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

 
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

��� ������ �� ���� �������� ���� ������� "� ��� ��������� �����!"

�������� ��� �������, �� ������ Mynah ����� ������� � ������. ������ ����������� �������� ������ ������ � ���������, ������� ���������� ������ ��� � ������� - ������ ������ ����. ��� ���, binyan, ������� ���� ���, ���� ���� ������� - ����� ��. � ������ ������ �� �����.

����������: 11:13 - 16 ���., 2005
binyan
������������

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

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

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

�� ������ �� ����. � ��� ��������, �� ����������. ��������� ����� ���������� � Node999, �.�. � ����� �������. ����� �� �������� �������.



���������� ������� �� ����, �� �� �������_�_���� � ��������� ����� �����.

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

����������: 22:40 - 16 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

��� ������� �������. �� ������ ���� ��������� ������ � Node999, �� ���� ���� � �������� �������. ����� �� - � ��������� ���������. ��-������. ��-������, � tpp ����� ���������� ���������� ������������������, ������ ���� ���-�� ����� ����, ��� ���� ������� Mynah. � ����������� ������� ����� ���������. � ��� ��������. ��� ��� ������ ���� ��������� � tpp .

����������: 10:07 - 17 ���., 2005
Mynah
���������

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

�����: 469 ���������

������ ������ ������.

��� ����� ����� header � ������� ����������� ��������. �� �� ����������, ��� ��� �������� �����-������ ������ ������, �� � ������� �������� ���� ��������. �� ��� ������ �� ���� ��� ������ �� �����:) �� �, ���� "����� ������� ���������� ���� � ������������������", �� ��������� ������ ���. ������� - ������� ;)

��: ����� ������� ���������� �, ������������, ����� ������� ��������� ������� � ���, ��� � Option ������ ��������� ���������� ��������� � �����������. �� �����, ����, ����������.

-----
Scio me nihil scire

����������: 13:18 - 17 ���., 2005 | ����������: Mynah - 15:20 - 17 ���., 2005
binyan
������������

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

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

� ���� ����� ������:
����� �� � ��������� �������� ��������� �������? ���� ��, �� ���?

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

����������: 22:12 - 18 ���., 2005
Ray
���������

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

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

[��� �� � ������� ���� �����. ����� ��� ����]

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

variable temp:="abcd";

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

����������: 0:01 - 19 ���., 2005 | ����������: Ray - 23:12 - 18 ���., 2005
binyan
������������

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

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

� ������� �� � �������.
������� Raven:
������:

��������� �����������. ��� �������� ������� ����� � ���� ��������� ��. ����� ����������. ����� �������:
"12345678:87654321:6892020"...
�.�. - ����������� char-������. atoi �������. �����������, ��� �������� ������ ��� ������������� �������� ���. � �������� �� ������� ������. ���� - ������� :-) � ���� ���������� "� ����� ����" :-)

������ �� ������ ��� �� ����� ������ �����������

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

����������: 0:49 - 19 ���., 2005
Ray
���������

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

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

����� ��������� ������ ����������� ��� �������������� ����������� ������ (������ ������� �� Raven'������� ������ ���� �����������). ���:

========================
procedure start;
procedure getmas(variable name,variable index);
procedure setmas(variable name,variable numb,variable index);
procedure look_at_p_proc;

variable mas:=0;
variable h:=0;

procedure start
begin
end


procedure look_at_p_proc
begin
 mas:=setmas(mas,70,0);
 mas:=setmas(mas,90,1);
 mas:=setmas(mas,80,2);
 h:=getmas(mas,1);
 h:=getmas(mas,2);
end

procedure getmas(variable name,variable index)
begin
variable ret:=0;
variable k:=0;
ret:=name;
while (index!=0) do
begin
index:=index-1;
ret:=ret/100;
end
k:=ret;
k:=k/100;
k:=k*100;
ret:=ret-k;
return ret;
end

procedure setmas(variable name,variable numb,variable index)
begin
variable temp:=0;
variable inj:=0;
inj:=index;
temp:=name;
if (index!=0) then
begin
while (inj!=0) do
begin
inj:=inj-1;
temp:=temp/100;
end
temp:=temp/100;
temp:=temp*100+numb;
while (index!=0) do
begin
index:=index-1;
temp:=temp*100+getmas(name,index);
end
end
else
begin
temp:=numb;
end
return temp;
end
============================


��� �� �����. � ����� �� ����� mas. ��������� ��� �� 0. ����� ��������� ��� __ __ __ __
��� ���� ������� - ����� �� 0 �� 99.

procedure setmas(variable name,variable numb,variable index);

�������� � �����. ��������� name - ��� ������, numb - ��������, index - ����� �������� (��������� � ����)

procedure getmas(variable name,variable index);

������
name- ��� ������
index - �����

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

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

����������: 1:54 - 19 ���., 2005
Wasteland Ghost
��������� ���� ����������

������: ������, ������
�����������: ���. 2002

�����: 2251 ���������

������� . ��-������, ���� ����, ���� � ���� ��� �������� ��������. ��-������, ��� ���� ������ ���������� ������� (����� �������) ������� Mynah � ���� ������� ��� ������ ������. �-�������, �������� ������� � �������� � ���������. � ����� ��� ������ . ���� custstr2.ssl, ��������� wordar.

����������: 10:21 - 19 ���., 2005
binyan
������������

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

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

����, ����.
����� ������� ����� ����� ��� �������� ����������� ����� �����, �� � "������" ������� ����� ����� ���� �� ������, ������� ��� ��������� ��-�� ��. ������ ��� ���� �������� � ���� �������. ���� �� ������� � ������ �� �������. ���� ������ �������� �� �������, �� ����������� ������ ������� � ���� �� ������. ��� ���, �������� ����, ������� ���, ����� ��� �������, � "�������" ����������� ������ �� ������������, � ��� ������ �� �������, � ������� ������������.��� ��������� ��������:

#define remove_from_inventory(Forbidden_weapon_remove) rm_obj_from_inven(self_obj,obj_carrying_pid_obj(self_obj,Forbidden_weapon_remove))
#define add_to_inventory(Forbidden_weapon_add) add_obj_to_inven(self_obj,create_object(Forbidden_weapon_add,1,1))

procedure forbidden_weapon_pid_array(variable num);
procedure degree(variable num, variable degree);
Procedure Hide_forbidden_weapon;
Procedure Show_forbidden_weapon;

variable amount_forbidden_weapon:=4;

procedure forbidden_weapon_pid_array(variable num) begin
variable temp;
if num==0 then temp:=PID_PLASMA_RIFLE;
if num==1 then temp:=PID_ROCKET_LAUNCHER;
if num==2 then temp:=PID_GATLING_LASER;
if num==3 then temp:=PID_TURBO_PLASMA_RIFLE;
return temp;
end

������, � �������� ��������� ���� �������? ���� 10 � ������ n � �.�.? ���� ����, �� � ��� ��������� ����� =((
procedure degree(variable num, variable degree) begin
variable i:=1;
variable temp;
while(i<degree) do begin
num:=num*num;
i+=1;
end
temp:=num;
if degree==0 then temp:=1;
return temp;
end

Procedure Hide_forbidden_weapon begin
variable i;
set_local_var(LVAR_forbidden_weapon,0);
while(i<amount_forbidden_weapon) do begin
if(obj_carrying_pid_obj(self_obj,forbidden_weapon_pid_array(i))!=0)then
begin
remove_from_inventory(forbidden_weapon_pid_array(i));
set_local_var(LVAR_forbidden_weapon,((local_var(LVAR_forbidden_weapon)*10)+1));
end
else set_local_var(LVAR_forbidden_weapon,(local_var(LVAR_forbidden_weapon)*10));
i+=1;
end
end

Procedure Show_forbidden_weapon begin
variable i;
variable j:=0;
variable g:=1;
i:=(amount_forbidden_weapon-1);
if((local_var(LVAR_forbidden_weapon)/degree(10,i))==1) then add_to_inventory(forbidden_weapon_pid_array(j));
while(i>=0) do begin
i-=1;
j+=1;
if(((local_var(LVAR_forbidden_weapon)/degree(10,i))%degree(10,g))==1) then add_to_inventory(forbidden_weapon_pid_array(j));
g+=1;
end
end

Procedure Dialog_in_party begin
call Hide_forbidden_weapon;
Rep(6);
Opt(61,Weapon);
//if self_wearing_armor then        Self_wearing_weapon - Command.h
if(critter_inven_obj(self_obj,INVEN_TYPE_WORN)!=0)then
�pt(62,Remove_Armor);
Opt(63,Healing);
Opt(64,Waiting);
Opt(66,Distance);
Opt(65,End_dialog);
End

Procedure talk_p_proc begin
Dialogue(self_obj,Choose_dialog);
call Show_forbidden_weapon;
//��� ������ ����� �����
�nd

��� ������, ��� ����� � ������, �� ����������� ������ ����������, � ��� ������ �����������. ���� ������ ���� ��������...������. ����������� ��������� ��� ������� ����, ���� ������ gdialog_barter. �� ��� �� ���������� �������� ��������. ������������� � �� ���� ������, ����� �� ��� ������ � ���������.� �� ���� ������� ������ � �������.
�� ����� �������������� ������� ������:
� �������� �� ������ ������, � ������� �� ��� ���?



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

����������: 0:24 - 24 ���., 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