» 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 ] ��� ��������

 
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

���...������� �������,�����, �� ���������� �����, �� ������� ������� �� ������
������ �� ��������.������ ������������� ���� � ������ �������.�� ����� ���� �� 1304 (� ���� �������������� ������)
�� ������ ������ ��������.� � �� ����� �� ���� ��� � ������.
�� ����� ������� �������,��� ����� � ��� ��������� � ��������� ����� ���������,�� ������ ���� ����������,����� �� � ��������.�� ������ ����� �� ���� ���������� ��� ��� "��� ���� ����?"
� ���� ������ ���������(� �������� ��� ���� � �� ��)
���:
#include "..\headers\command.h"
#include "..\headers\define.h"
#include "..\headers\myhead.h"


#define LVAR_PARTY_MAN (0)
#define LVAR_talk_pistol (1)
#define LVAR_have_pistol (2)
#define NAME 1304
#define Have_pistol ((obj_carrying_pid_obj(dude_obj,PID_10MM_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_LASER_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_14MM_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_PLASMA_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_ALIEN_LASER_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_223_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_NEEDLER_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_PK12_GAUSS_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_YK32_PULSE_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_MAGNETO_LASER_PISTOL)))


procedure start;
procedure critter_p_proc;
procedure pickup_p_proc;
procedure talk_p_proc;
procedure destroy_p_proc;
procedure look_at_p_proc;
procedure description_p_proc;
procedure use_skill_on_p_proc;
procedure use_obj_on_p_proc;
procedure damage_p_proc;
procedure map_enter_p_proc;
procedure push_p_proc;

procedure Node001;
procedure Node002;
procedure Node003;
procedure Node004;
procedure Node005;
procedure Node006;
procedure Node007;
procedure Node008;
procedure Node009;
procedure Node010;
procedure Node999;


procedure start begin
end

procedure talk_p_proc begin
dialogue(self_obj,Node001);
end

procedure Node001 begin


if (LVAR_talk_pistol==2) then
call Node008;


else if(LVAR_talk_pistol==3)then
call Node009;

else
call Node010;

end




procedure Node002 begin
rep(2);
opt(20,Node003);
opt(21,Node999);
end

procedure Node003 begin
rep(3);
opt(30,Node004);
opt(31,Node999);
end

procedure Node004 begin
set_local_var(LVAR_talk_pistol,2);
end

procedure Node005 begin
rep(50);
opt(5,Node007);
end

procedure Node006 begin
rep(411);
opt(412,Node999);
end

procedure Node007 begin
critter_add_trait (self_obj, 1, 6, 0);
critter_add_trait (self_obj, 1, 5, 194);
party_add(self_obj);
set_local_var(LVAR_talk_pistol,3);
set_local_var(LVAR_PARTY_MAN,3);
end

procedure critter_p_proc begin
if Have_pistol then
set_local_var(LVAR_have_pistol,2);
end

procedure pickup_p_proc begin
end

procedure destroy_p_proc begin
end

procedure look_at_p_proc begin
end

procedure description_p_proc begin
end

procedure use_skill_on_p_proc begin
end

procedure use_obj_on_p_proc begin
end

procedure damage_p_proc begin
end

procedure map_enter_p_proc begin
end

procedure push_p_proc begin
end

procedure Node999 begin
end

procedure Node008 begin
rep(4);
if (LVAR_have_pistol==2) then
begin
opt(40,Node005);
opt(41,Node006);
end

else
opt(42,Node006);
end

procedure Node009 begin
rep(6);
opt(60,Node999);
end
procedure Node010 begin
rep(1);
opt(10,Node002);
opt(11,Node999) ;
end
�� �� ����� �� ���� ���������� �� ����� ���� � ��-��.

(��������������(�) binyan - 19:41 - 4 ����, 2005)

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

����������: 19:40 - 4 ����, 2005
Pavel
���������

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

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

� ��� ����� ���� �������?
1) �� ��������� ������ ���������� ��� � ������.���
2) ������ ������� ��� ��������, � �� �����������.
3) � ������ ������ �����, ������ ����� - ����� ����������. ����� � ���� ����������.
� ������, ��� �������� ���� � talk_p_proc.


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

����������: 19:19 - 5 ����, 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

� ��� ����� ���� �������?
1) �� ��������� ������ ���������� ��� � ������.���
>> ���������
2) ������ ������� ��� ��������, � �� �����������.
>>��� �������� ����?
3) � ������ ������ �����, ������ ����� - ����� ����������. ����� � ���� ����������.
>>������ ��������
� ������, ��� �������� ���� � talk_p_proc.
>>� critter_p_proc ����� ������ �� ������?��� ���� ����������� ������ �������,��� ��� �� �����..

(��������������(�) binyan - 14:37 - 6 ����, 2005)

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

����������: 14:35 - 6 ����, 2005
Pavel
���������

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

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

procedure Node001 begin
if (LVAR_talk_pistol==2)or(variablA==2) then
call Node008;
.......

procedure Node004 begin
set_local_var(LVAR_talk_pistol,2);
variablA:=2;
end
�������, ����� ����������

� critter_p_proc ��� ��������, � ��� � ������� ���.
������ �� ���������: ���� � ������� ���������� �������, �� ����� critter_p_proc �� ������?
������� ����� � ������ � ���������.

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

����������: 16:19 - 6 ����, 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

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

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

����������: 18:09 - 6 ����, 2005
Pavel
���������

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

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

��, � ���� ���������� ���-�� �����:
...
procedure Node009;
procedure Node010;
procedure Node999;
...
variable variablA;
...

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

����������: 18:47 - 6 ����, 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

��.������� ��������,������ ���� �� ���� ������,� ���� ��������� ��� ������ ���� ����������.

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

����������: 19:56 - 6 ����, 2005
binyan
������������

������: Israel
�����������: ���� 2005

�����: 292 ���������

�����, ���� �� ���� ��� �������� ��� ���� ������ �� �����.
����� �� ��� � ����� ������
����� ����������������
��� ������� ������� �� vault13.gam :
GVAR_MODOC_GHOST_SEED_PIP               :=0;    //      (631)
GVAR_PARTY_MEMBERS_HIDDEN               :=0;    //      (632)
GVAR_CAR_PLACED_TILE                    :=0;    //      (633)
GVAR_PARTY_MAN_talk_have_pistol         :=0;    //      (634)
GVAR_RESERVED_VAR2                      :=0;    //      (635)
GVAR_RESERVED_VAR3                      :=0;    //      (636)
GVAR_RESERVED_VAR4                      :=0;    //      (637)
�� ������� �� ����� ������ ����� ��� ���� ���� ����?�
������� ���� ������ �� ����, ����� �� ������� � ����, � ������ ��� ���, ��� �� ���� ��� ������, ��?
� �� � � ������� ��� �� ���� ��� �������
��� ������ :
/*
���� ������������ � ��������� GVAR_PARTY_MAN_talk_have_pistol==1
���� ������� � ��������� � �� � ���� GVAR_PARTY_MAN_talk_have_pistol==2
���� ������� � ��������� � �� � ���� � �� � ������ GVAR_PARTY_MAN_talk_have_pistol==3
���� �� ������� � ��������� GVAR_PARTY_MAN_talk_have_pistol==0
*/
#include "..\headers\command.h"
#include "..\headers\define.h"
#include "..\headers\myhead.h"


#define GVAR_PARTY_MAN_talk_have_pistol (0)


#define NAME 1304
#define Have_pistol ((obj_carrying_pid_obj(dude_obj,PID_10MM_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_LASER_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_14MM_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_PLASMA_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_ALIEN_LASER_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_223_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_NEEDLER_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_PK12_GAUSS_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_YK32_PULSE_PISTOL))BWOR(obj_carrying_pid_obj(dude_obj,PID_MAGNETO_LASER_PISTOL)))


procedure start;
procedure critter_p_proc;
procedure pickup_p_proc;
procedure talk_p_proc;
procedure destroy_p_proc;
procedure look_at_p_proc;
procedure description_p_proc;
procedure use_skill_on_p_proc;
procedure use_obj_on_p_proc;
procedure damage_p_proc;
procedure map_enter_p_proc;
procedure push_p_proc;

procedure Node001;
procedure Node002;
procedure Node003;
procedure Node004;
procedure Node005;
procedure Node006;
procedure Node007;
procedure Node008;
procedure Node009;
procedure Node010;
procedure Node999;


procedure start begin
end

procedure talk_p_proc begin
if Have_pistol then
set_global_var(GVAR_PARTY_MAN_talk_have_pistol,2);
dialogue(self_obj,Node001);
end

procedure Node001 begin


if ((GVAR_PARTY_MAN_talk_have_pistol==1)BWOR(GVAR_PARTY_MAN_talk_have_pistol==2)) then
call Node008;


else if(GVAR_PARTY_MAN_talk_have_pistol==3)then
call Node009;

else
call Node010;

end

procedure Node002 begin
rep(2);
opt(20,Node003);
opt(21,Node999);
end

procedure Node003 begin
rep(3);
opt(30,Node004);
opt(31,Node999);
end

procedure Node004 begin
set_global_var(GVAR_PARTY_MAN_talk_have_pistol,1);
end

procedure Node005 begin
rep(50);
opt(5,Node007);
end

procedure Node006 begin
rep(411);
opt(412,Node999);
end

procedure Node007 begin
critter_add_trait (self_obj, 1, 6, 0);
critter_add_trait (self_obj, 1, 5, 194);
party_add(self_obj);
set_global_var(GVAR_PARTY_MAN_talk_have_pistol,3);
end

procedure critter_p_proc begin
end

procedure pickup_p_proc begin
end

procedure destroy_p_proc begin
end

procedure look_at_p_proc begin
end

procedure description_p_proc begin
end

procedure use_skill_on_p_proc begin
end

procedure use_obj_on_p_proc begin
end

procedure damage_p_proc begin
end

procedure map_enter_p_proc begin
end

procedure push_p_proc begin
end

procedure Node999 begin
end

procedure Node008 begin
rep(4);
if (GVAR_PARTY_MAN_talk_have_pistol==2) then
begin
opt(40,Node005);
opt(41,Node006);
end

else
opt(42,Node006);
end


procedure Node009 begin
rep(6);
opt(60,Node999);
end

procedure Node010 begin
rep(1);
opt(10,Node002);
opt(11,Node999);
end




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

����������: 0:55 - 7 ����, 2005
FFAN
������������

�����������: ���� 2005

�����: 22 ���������

��������, � � ������� �������������� ������ kcsulik.int ( ����� �� ����� ������� ���� ) � ����� ���� ��� ������� ������������� - ������ ������:
Undefined symbol op_party_member_obj

����� ��� ����� ���������.
�������������� ������ � ������� noid_decompiler , �  ������������ � ������� watcom � bis_compiler. � ��� ��������?

����������: 15:14 - 11 ����, 2005
Ray
���������

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

�����: 746 ���������

����� ������������� ���� ������� � ��������� ������.
� �������:

���� - op_party_add(self_obj);

BIS - party_add(self_obj);

������������/������. �� ����� ������������. ��� ���� ���� ����\������. � ���������. ��� BIS ����� � ������

-----
�� ������ ����������� ����� � ������ ���� �������.

����������: 15:38 - 11 ����, 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