» TeamX (����� ������)«


����� TeamX » ���. ��������� » ������� (��� ������� �� ���������� - ����)

������� �� �����
<< ����. ����. >>
�������� ���� ���� [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 ] ��� ��������

 
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

>>... else if ((global_var((38)) == 1)) then Static_Reaction:=S\ ... <- ��� ��� ��� S ���� �� �����, �� ������� �� ��������

�����. �� �������. ��� �������. ������ ������ �������� ������� ������ (�������������) � ������ �� � ����� '\' - ������ ����������� ������. �� ��������� ����� �� ������. ������������, ��� ����������� �����-�� ������. ����������� ������ �� ����� ���������� ����������. �, ������ ������, ����� ������� �� ������������� ������������. �� ����� ������� �� ������.

��� ������ - ����� ������� ������������� ����� ���������� ������� ���������� ������� ����� � ����. �������, ��.


(���������� �� 14:59 - 11 ���., 2005.)


to Ray

http://www.teamx.ru/fop/docs/BIS_help.html
�������� ���� - ��, ����� - ��������� �������. ��� ��� say-������. � ������� ��� ������ ����� :-)

http://www.teamx.ru/fop/docs/FScript-HOWTO
��� ���, �� ������ ������ :-)

����������: 14:55 - 11 ���., 2005
ChosenOne
������������

������: �. �����
�����������: ���� 2004

�����: 23 ���������

���... ��� ���������� - �������� ������������... �� �����...
Borland'������ ������������ � ��� ��� � ��������... � ���� ������ ���� Borland C++(�� ������)...

(��������������(�) ChosenOne - 16:26 - 11 ���., 2005)

-----
��� � ������ ����� �����, �� ����������� ��������� � �������� �����������. ������ ��� �� ��� ������, ��� �������. [PNWORLD] - Post Nuclear World!
LISTEN TO BLACK SABBATH

����������: 16:21 - 11 ���., 2005
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

� �� Borland C++ Command Line Tools ����. �� ����� 90��.

����������: 17:57 - 11 ���., 2005
Net
������������

������: Samara
�����������: ���. 2004

�����: 8 ���������

#include "headers\define.h"
#include "headers\command.h"
#include "headers\newland.h"

#define NAME 1309

procedure Node001;
procedure Node002;
procedure Node003;
procedure Node004;
procedure Node005;
procedure Node999;

procedure start begin
end

#define LVAR_Hostile (1)

procedure look_at_p_proc begin
 display_msg(message_str(NAME,100));
//message_str(NAME,random(100,102))
end




procedure critter_p_proc begin
if (local_var(LVAR_Hostile) == 1) then
begin
attack(dude_obj);

end
end


procedure talk_p_proc begin
 start_gdialog(NAME,self_obj,-1,-1,-1);
 GSay_Start;
   call Node001;
 GSay_End;
 End_Dialogue;
end


procedure Node001 begin
 gsay_reply(NAME,103);
 
 if get_critter_stat(dude_obj,4) >= 4 then begin
   gsay_option(NAME, 104, Node002,-1);
   gsay_option(NAME, 105, Node999,-1);
 end
 else begin
   gsay_option(NAME, 106, Node999,-1);
 end
end

procedure Node002 begin
 gsay_reply(NAME,107);
 gsay_option(NAME,obj_name(dude_obj),Node004,-1);
 gsay_option(NAME,109,Node003,-1);
 gsay_option(NAME,110,Node005,-1);
end

procedure Node003 begin
 gsay_reply(NAME,111);
 gsay_option(NAME,112,Node004,-1);
 gsay_option(NAME,113,Node005,-1);
 gsay_option(NAME,114,Node999,-1);
end
procedure Node005 begin
set_local_var(LVAR_Hostile,1);
call Node999;
end
procedure Node004 begin
gsay_reply(NAME,115);
gsay_option(NAME,116,Node999,-1);
gsay_option(NAME,117,Node999,-1);
end
procedure Node999 begin
end

Raven, � ������ �������� ������, �� �� �������. � ���� �� �������� ������ � �� ���� ���� ��� ������ ��������� ������� ������ ������, ������� ������ � ��� �������� �� ����.

����������: 20:58 - 11 ���., 2005
Pavel
���������

������: ������ �������
�����������: ��� 2004

�����: 368 ���������

1) ��������� �� � ������.��� ��������� ����� � ������ ������ 0.

�������� �� ������� ���
2) #define LVAR_Hostile (1) ������� 5. ��������� #define LVAR_Hostile (5) - ��� ����� 5 ���� ���� ��������� � ���.

3) ������ Node005 ������� Node998 - ������ �����.
  set_local_var(LVAR_Hostile,2);

4) � critter_p_proc  ������
 if ((local_var(LVAR_Hostile) == 2) and (obj_can_see_obj(self_obj,dude_obj))) then begin
      set_local_var(LVAR_Hostile,1);
      attack(dude_obj);

-----
� ����� ������ ���� ��������� �� 100%, ���� ������� �� ������ �����...

����������: 2:58 - 12 ���., 2005
ChosenOne
������������

������: �. �����
�����������: ���� 2004

�����: 23 ���������

��� �����, � ���������� � �����, ��� "����� ��� � ���, � ���� �� ����� ���������� � ��� ������� �� �� �������� ��������������"
So it was...
�� ���������� � � ����������...
������� ��� ��� �� NPC ������ ���� ��� ������(�� ������  �� ������, � ������ �� ����� ���), ������� � ������, �������� � ���� - �� �� �������, ���� �� ������(��� �� ������)...
��� ������ ����� ���������:

������:

procedure damage_p_proc begin
script_overrides;
if (source_obj == dude_obj) then begin
set_local_var(LVAR_Personal_Enemy,1);
end

-----------

begin
  if (((local_var(LVAR_Hostile) == 2)or(local_var(LVAR_Personal_Enemy) == 1)) and (obj_can_see_obj(self_obj,dude_obj))) then begin
     set_local_var(LVAR_Hostile,1);
     Flee_From_Dude
  end
  else if ((random(0,100) == 1) and (In_Timed_Event == 0)) then begin
      In_Timed_Event:=1;
      add_timer_event(self_obj,game_ticks(random(17,37)),1);
  end


��������, ���� ������!

-----
��� � ������ ����� �����, �� ����������� ��������� � �������� �����������. ������ ��� �� ��� ������, ��� �������. [PNWORLD] - Post Nuclear World!
LISTEN TO BLACK SABBATH

����������: 21:43 - 13 ���., 2005
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

� ��, ��� ���� "--------------", � ����� ��������� �����������? �� critter_p_proc, �����? ��� �� ����� ��� �� ����������. ��� � map_update, �����. ������� ���� ����� ����� � ��� �� damage_p_proc.

����������: 9:08 - 14 ���., 2005
Net
������������

������: Samara
�����������: ���. 2004

�����: 8 ���������

� ������ ������ ��������, � � ���� - ���. ��� ������? ������ �� ����

����������: 14:00 - 14 ���., 2005
Raven
������������

������: ������
�����������: ����. 2004

�����: 408 ���������

to Net

��������� (����������� ����������� newland.h). ��������� �������� ��� � ������, ��� � � ����.

�������������: � �� ������ � ����, �����, �� ����� ctrl+r �������? ��� �������� ������������ �� ����������. ������: ����� �������� ������� ���������� ������ ������� � ����.

����������: 14:10 - 14 ���., 2005
Net
������������

������: Samara
�����������: ���. 2004

�����: 8 ���������

To Raven.
�� ����. ���� ��� CTRL+r ��� ��� ���������� ctrl+r, ��������� ����.

����������: 19:15 - 14 ���., 2005
 

������� �� �����
<< ����. ����. >>
�������� ���� ���� [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 ] ��� ��������


Powered by Ikonboard 2.1.9 RUS
Modified by RU.Board Team
© 2000 Ikonboard.com