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


����� TeamX » ������� » F2: Alternative Life (���)

������� �� �����
<< ����. ����. >>
�������� ���� ���� [ 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 ] ��� ��������

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

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

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

� ������� � ���������. �� ������, �� ��, ������� ������������ ���-�� ��������� ��� ���? �������� ������, ���� ������ �� ����� �������� ������, �������� ��. � ���� ��� �� ������ ��� ����������� ����������� ����� ���� ������������ ���-�� ��������� ����� ������? ��� ���? �������� ����������, ����� � ���� ������ ��� ��� ���.
�� ������...� �������: ����� �������� ������� �����, ��� ������� �� ������� �����.�.�. ���� � ����� ����� �������� �������������, � ����� ���� �������, �� ������� ��������� � ����� �������������. ������������� ������������ ��������� ����� ��������� �� ������������ ����, �� ������ ����� ��� ������� �����.
��� ��� � ������� �� ����� ������:
���:
 
if(critter_inven_obj(self_obj,INVEN_TYPE_WORN)!=0)then
  begin
  pid_armor:=obj_pid(critter_inven_obj(self_obj,INVEN_TYPE_WORN));
  if (pid_armor==PID_LEATHER_ARMOR)OR(critter_inven_obj(self_obj,INVEN_TYPE_WORN)==0)then begin
  Art_fidM:=FID_HMLTHR;
  Art_fidF:=FID_HFLTHR;
  end
  else if(pid_armor==PID_LEATHER_ARMOR_MK_II) then begin
  Art_fidM:=FID_HMLTHR;
  Art_fidF:=FID_HFLTHR;
  end
  else if(pid_armor==PID_LEATHER_JACKET)then begin
  Art_fidM:=FID_HMMAXX;
  Art_fidF:=FID_HFMAXX;
  end
  else if(pid_armor==PID_CURED_LEATHER_ARMOR)then begin
  Art_fidM:=FID_HMMAXX;
  Art_fidF:=FID_HFMAXX;
  end
  else if(pid_armor==PID_PURPLE_ROBE)then begin
  Art_fidM:=FID_HAROBE;
  Art_fidF:=FID_HAROBE;
  end
  else if(pid_armor==PID_METAL_ARMOR)then begin
  Art_fidM:=FID_HMMETL;
  Art_fidF:=FID_HFMETL;
  end
  else if(pid_armor==PID_METAL_ARMOR_MK_II)then begin
  Art_fidM:=FID_HMMETL;
  Art_fidF:=FID_HFMETL;
  end
  else if(pid_armor==PID_TESLA_ARMOR)then begin
  Art_fidM:=FID_HMMETL;
  Art_fidF:=FID_HFMETL;
  end
  else if(pid_armor==PID_COMBAT_ARMOR)then begin
  Art_fidM:=FID_HMCMBT;
  Art_fidF:=FID_HFCMBT;
  end
  else if(pid_armor==PID_COMBAT_ARMOR_MK_II)then begin
  Art_fidM:=FID_HMCMBT;
  Art_fidF:=FID_HFCMBT;
  end
  else if(pid_armor==PID_BROTHERHOOD_COMBAT_ARMOR)then begin
  Art_fidM:=FID_HMCMBT;
  Art_fidF:=FID_HFCMBT;
  end
  else if(pid_armor==PID_POWERED_ARMOR)then begin
  Art_fidM:=FID_HAPOWR;
  Art_fidF:=FID_HAPOWR;
  end
  else if(pid_armor==PID_HARDENED_POWER_ARMOR)then begin
  Art_fidM:=FID_HAPOWR;
  Art_fidF:=FID_HAPOWR;
  end
  else if(pid_armor==PID_ADVANCED_POWER_ARMOR)then begin
  Art_fidM:=FID_HANPWR;
  Art_fidF:=FID_HANPWR;
  end
  else if(pid_armor==PID_ADVANCED_POWER_ARMOR_MK2)then begin
  Art_fidM:=FID_HANPWR;
  Art_fidF:=FID_HANPWR;
  End
 if self_is_male then art_change_fid_num(self_obj,Art_fidM);
 else art_change_fid_num(self_obj,Art_fidF);
 wield_obj(self_item(pid_armor));
End


��������� �������� ��� ���� ����� ���������, �������������� ���� �� ������� ��� ����, �� �������� �� ������� ����� ������
����� ���� ��� ������. ��� ��������� �������� ��� ������������ ���:
���:
Else art_change_fid_num(self_obj,FID_PARTYMAN);


���, ��� ������ �, ��������� �������� ������� �����, ���� � ���� ��� ����, � ���� ���������, ������� �, � ������� ������:

���:
 
#define Rep(x)  gsay_reply(NAME,mstr(x))
#define Opt(x,y)  gsay_option(NAME,x,y,-1)

#define Armor_in_inventory((obj_is_carrying_obj_pid(self_obj,PID_LEATHER_ARMOR)+\
                          (obj_is_carrying_obj_pid(self_obj,PID_METAL_ARMOR))+\
                          (obj_is_carrying_obj_pid(self_obj,PID_POWERED_ARMOR)+\
                          (obj_is_carrying_obj_pid(self_obj,PID_COMBAT_ARMOR))+\
                          (obj_is_carrying_obj_pid(self_obj,PID_LEATHER_JACKET+\
                          (obj_is_carrying_obj_pid(self_obj,PID_PURPLE_ROBE))+\
                  (obj_is_carrying_obj_pidself_obj,PID_HARDENED_POWER_ARMOR))+\
                (obj_is_carrying_obj_pidself_obj,PID_BROTHERHOOD_COMBAT_ARMOR)+\
                          (obj_is_carrying_obj_pid(self_obj,PID_TESLA_ARMOR))+\
(obj_is_carrying_obj_pidself_obj,PID_CURED_LEATHER_ARMOR))+\
(obj_is_carrying_obj_pidself_obj,PID_ADVANCED_POWER_ARMOR))+\
(obj_is_carrying_obj_pidself_obj,PID_ADVANCED_POWER_ARMOR_MK2))+\
(obj_is_carrying_obj_pidself_obj,PID_LEATHER_ARMOR_MK_II))+\
(obj_is_carrying_obj_pidself_obj,PID_METAL_ARMOR_MK_II))+\
(obj_is_carrying_obj_pidself_obj,PID_COMBAT_ARMOR_MK_II)))

Procedure Dialog_in_party begin
������ ������ �����...�
Opt(� ����, ����� �� ���� � ���� ��� �����,Remove_Armor);
end


Procedure Remove_armor begin
if(Armor_in_inventory > 1)then begin
Rep(������, � ����� ��� �����, � ����� ������);
Opt(����� ,Sub_remove_armor);
end
else
begin
Rep(��! � �� ���� ������ �����);
Opt(�����,Dialog_in_party);
end
end

Procedure Sub_remove_armor begin
Variable restock_obj;
call Choose_best_armor;
//remove_armor(self_obj)
restock_obj := critter_inven_obj(self_obj, 0);
rm_obj_from_inven(self_obj, restock_obj);
add_obj_to_inven(self_obj, restock_obj);
wield_obj(self_item(Best_armor));
call Dialog_in_party;
end


Procedure Choose_best_armor begin
variable i:=0;
while i<16 do begin
  i+=1;
  if self_have_item(Armors_pid_array(i)) then Best_armor:=Armors_pid_array(i);
end

end

procedure Armors_pid_array(variable num) begin
variable tmp_out;
if(obj_is_carrying_obj_pid(self_obj,obj_pid(cur_armor))>1)then begin
if (num==1)
then tmp_out:=PID_PURPLE_ROBE;
if (num==2)
then tmp_out:=PID_LEATHER_ARMOR;
if (num==3)
then tmp_out:=PID_LEATHER_JACKET;
if (num==4)
then tmp_out:=PID_LEATHER_ARMOR_MK_II ;
if (num==5)
then tmp_out:=PID_CURED_LEATHER_ARMOR;
if (num==6)
then tmp_out:=PID_METAL_ARMOR;
if (num==7)
then tmp_out:=PID_METAL_ARMOR_MK_II;
if (num==8)
then tmp_out:=PID_TESLA_ARMOR;
if (num==9)
then tmp_out:=PID_COMBAT_ARMOR;
if (num==10)
then tmp_out:=PID_COMBAT_ARMOR_MK_II;
if (num==11)
then tmp_out:=PID_BROTHERHOOD_COMBAT_ARMOR;
if (num==12)
then tmp_out:=PID_POWERED_ARMOR;
if (num==13)
then tmp_out:=PID_HARDENED_POWER_ARMOR;
if (num==14)
then tmp_out:=PID_ADVANCED_POWER_ARMOR;
if (num==15)
then tmp_out:=PID_ADVANCED_POWER_ARMOR_MK2;
end
else begin
if (num==1)and(cur_armor!=self_item(PID_PURPLE_ROBE))
then tmp_out:=PID_PURPLE_ROBE;
if (num==2)and(cur_armor!=self_item(PID_LEATHER_ARMOR))
then tmp_out:=PID_LEATHER_ARMOR;
if (num==3)and(cur_armor!=self_item(PID_LEATHER_JACKET))
then tmp_out:=PID_LEATHER_JACKET;
if (num==4)and(cur_armor!=self_item(PID_LEATHER_ARMOR_MK_II))
then tmp_out:=PID_LEATHER_ARMOR_MK_II ;
if (num==5)and(cur_armor!=self_item(PID_CURED_LEATHER_ARMOR))
then tmp_out:=PID_CURED_LEATHER_ARMOR;
if (num==6)and(cur_armor!=self_item(PID_METAL_ARMOR))
then tmp_out:=PID_METAL_ARMOR;
if (num==7)and(cur_armor!=self_item(PID_METAL_ARMOR_MK_II))
then tmp_out:=PID_METAL_ARMOR_MK_II;
if (num==8)and(cur_armor!=self_item(PID_TESLA_ARMOR))
then tmp_out:=PID_TESLA_ARMOR;
if (num==9)and(cur_armor!=self_item(PID_COMBAT_ARMOR))
then tmp_out:=PID_COMBAT_ARMOR;
if (num==10)and(cur_armor!=self_item(PID_COMBAT_ARMOR_MK_II))
then tmp_out:=PID_COMBAT_ARMOR_MK_II;
if (num==11)and(cur_armor!=self_item(PID_BROTHERHOOD_COMBAT_ARMOR))
then tmp_out:=PID_BROTHERHOOD_COMBAT_ARMOR;
if (num==12)and(cur_armor!=self_item(PID_POWERED_ARMOR))
then tmp_out:=PID_POWERED_ARMOR;
if (num==13)and(cur_armor!=self_item(PID_HARDENED_POWER_ARMOR))
then tmp_out:=PID_HARDENED_POWER_ARMOR;
if (num==14)and(cur_armor!=self_item(PID_ADVANCED_POWER_ARMOR))
then tmp_out:=PID_ADVANCED_POWER_ARMOR;
if (num==15)and(cur_armor!=self_item(PID_ADVANCED_POWER_ARMOR_MK2))
then tmp_out:=PID_ADVANCED_POWER_ARMOR_MK2;
end
return tmp_out;
end

cur_armor - ��� ����� ������� � ��������� ������ �� ��������. ���� ������(� ����� ��������).





� ��� ��������� ���. � ������ �������� � ������������� ������� � ���-���.
1.��������� � �����, ������� ���� ��� ����� ���������� � ������� ����������� ��� �������
2. ���������� ������� "Error",  � �� ���� ��� ��� �����.


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

����������: 16:51 - 17 ���., 2006
Argent
������������

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

�����: 44 ���������

binyan,
����� � ���� � ����������� ����������� �� � �������. ��� ����� �����. � � ������, ��� ������ ���� �� ����� ���-�� � ���� ����� (���� � ���-�� ����������). ������ ����� ����� ������� � ������������ ���������� ���, ��� ���� ����� ��������, - � ������ �������������� ��� ��������� ���������. � ����� ���� ����� ����������� ��������� ��� ������, ����� �������...


(���������� �� 0:39 - 19 ���., 2006.)


��, binyan, � ��� ����. �� �����, ����������, ������ � ���� ����� ������ ��� ��������, ���-���� ���� ��� ������������� �� ������, ������ ���, ��� �����, �� � ��� ����. � ��� ������������ ��������� ����� �������� ��������� ������-���� �������, ���� ��� ����� ���� ���������� ����� "���. ���������" �, � ��������� �������, - "������������".

����������: 0:31 - 19 ���., 2006
binyan
������������

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

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

2Argent
���� ������ �� � ����� �������������� ��� ��������� ���������. ��� �������� � ���� ���� ���, � ��� ����� ���� ������(� ������ �����������). �.�. ��� �������� �� ������ ���. �������� �� �� �����������, ��� ��� � ������������ ��������� ���� ���� �� �����. ��, � ���...� ������ �������� � ����������� ��������� �� �����. ������������ ���-�� ��������� �������� �� � ��������� ������?
��, Argent, � ��� ����. ����� ������ ���� �� ���� =) � ������ ���������

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

����������: 22:32 - 19 ���., 2006 | ����������: binyan - 22:33 - 19 ���., 2006
Argent
������������

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

�����: 44 ���������

binyan
��, �� ����� � �� ����, � ��� ����. � ���� ���� ���� ���-���� �����������, � ��� ��������. ������ ������ � � ���� ����������� ����� � �����, �������, �����, �� � ���� ������ �� ���� (��� ��� ������ �� �������� ) ������, ����� ���������� ������ �����. ������ ���� ���� ���������� ����� ������ Mynah'�, ������� ������ ����� �����, � ������� ����������� �������� � ���� ��� ��������������� �� ����� �����...

����������: 1:58 - 20 ���., 2006
Dar
������������

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

�����: 289 ���������

binyan

���� �������������� ������ � ����� ����� ������� 24
���� ����� ������� �������� "��������� �����"
� ����� �� ���. ������� ���� ������� ��� ��������
������� ���� �� ��� ���������� ��������� �� ������.

� ���� �� ������� ���� ���� ������ ���.
������ ���� ������� ����� ��� �� ����� �����, �� �� ����� ���������� ����� ��� ��������� ����� � ����� �� ����� ������������, � � ����� ����� ��� ��������� � ����� ����� ������������. :-/

Argent ���� ��� ���� - � ������ � "Fallout" �� ����� �:-)

����������: 7:55 - 20 ���., 2006 | ����������: Dar - 7:57 - 20 ���., 2006
Wasteland Ghost
��������� ���� ����������

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

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

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

����������: 12:52 - 20 ���., 2006
Ken
������������

�����������: ���. 2005

�����: 1 ���������

�������� ���� �� ���� ����� ������� ������ � ������� ������ ��������� � ����� � �������� ������ ��� � ������ ?
� �������� ����� ������ � ��� ������� ���� ������� � ��������� ������ �������
����� �� ���� �������� ����� ����� � ��� �������� ����� ����� ?
� �������� ������ ���������� ������ ��� �������� ��������� � ��� ���� �������� ������
��� �� ���� ������ �������� ?
�.S.
���� ���� �� � ���� �� ������ �� ���� � ���� ��������

����������: 4:45 - 21 ���., 2006
Lars
������������

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

�����: 26 ���������

��� ����� ������� � Mynah'��, �� ����, ���������� � ������, ����������� �� ����, ����� ���� ������ ������?

���� � ���, ��� � ����� �������� ����� "������ ����", ��� ���� ������ ��� ������, ����� � ������ ������� �� ����������, ���� ������� � ������������� ����. (�� ��������� ��� ���� ���� ����� ����� ������, ������� �� ������� �������).

-----
http://www.nistudio.alfaspace.net/

����������: 9:41 - 29 ���., 2006
Wasteland Ghost
��������� ���� ����������

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

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

����� ������� (crsnmain, ������ ����������) ������� ������� ���� � ����. ��� �� � ������ ������ ������ ��������?

����������: 11:31 - 30 ���., 2006
Lars
������������

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

�����: 26 ���������

http://avega.nightmail.ru/ - ��� �� ���� ������� ���������� ����� ���� ����� (������ � ������ �����), � ����� �����, ��� � ����� ������ ��� ��� ���������. ��������� ����� � �� �����, ��� ����� �����, ���� ��� ����������� �������.

-----
http://www.nistudio.alfaspace.net/

����������: 14:56 - 30 ���., 2006
 

������� �� �����
<< ����. ����. >>
�������� ���� ���� [ 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 ] ��� ��������


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