| |
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
|
|
| |
|