|
Alchemist
���������
������: �������-17 �����������: ���. 2004
�����: 298 ���������
|
�������� ��������� �������� Fallout, ���� ���, ���������� Startrek Scripting Language aka SSL. � �� �� ��������� �� �����. � ����������� ${..........} �������� ������ �������������� �� Ruby, ������ ���������� �� ��������� ��� ������. �� ������� � ������� Noid'�� ������������. �� ���� � ����, ����� ������� �� �� ����� �������� �����������. �� ��� �� � Anchorit'�� ��� ������������ � � int2ssl �������� ������� �����������.
----- /// What'ya be sain'? Vault 100+? We need nothing o'that!
|
����������: 22:59 - 3 ���., 2005
|
|
Fozzy
������������
������: �������,���� �����������: ���. 2004
�����: 81 ���������
|
��� ����� ��������� ���� �� ����� ������? ������ ���� �� ����'� ������� �� ��� ��������? ������ �������, �� ������ � �������� ������������ �� �������� ��� ������ .
----- ��������� ������ � ����������� ������ - ������� ������� �� �� ��� �� ������. � ��� ����� ����� � ���� ������� - ����������, ������� ��� �� �����. (�)Fozzy
|
����������: 21:21 - 5 ���., 2005
|
|
Wasteland Ghost
��������� ���� ����������
������: ������, ������ �����������: ���. 2002
�����: 2251 ���������
|
��� ���� �� ����� ������ ������ �� ������� . � ��������� destroy_p_proc: set_global_var(GVAR_ENCLAVE_FRANK_DEAD,1); ���� ��� ���� ������. ��� ��������������� . int player_kill_count(int type) - ����� ������ ������� ��������� ���������: type - ��� �������� ������������ ��������: ����� ������ ������� ��������� ��������� ���� ����������: ������ �� metarule3(METARULE3_GET_KILL_COUNT, type, 0, 0) ��� ������, ������, ��� ��� ������� 18 (type = 18) - ������� � �������� ���� .
|
����������: 22:00 - 5 ���., 2005
|
|
Fozzy
������������
������: �������,���� �����������: ���. 2004
�����: 81 ���������
|
����, � ������ ����� ������������� ������: ��� ����� ������� ������ ������� �����? ������ ������ ������� ������, � ������ ���� ��������� �����, ��� ��������� ������������ ����� �� 0/1 � ��������� ����� ��� ����� ����.
----- ��������� ������ � ����������� ������ - ������� ������� �� �� ��� �� ������. � ��� ����� ����� � ���� ������� - ����������, ������� ��� �� �����. (�)Fozzy
|
����������: 18:01 - 6 ���., 2005
|
|
Wasteland Ghost
��������� ���� ����������
������: ������, ������ �����������: ���. 2002
�����: 2251 ���������
|
�����, ��� ������� "������" ������� ������ . [Area 00] ; Arroyo area_name=Arroyo world_pos=184,133 start_state=On size=Medium townmap_art_idx=156 townmap_label_art_idx=370 entrance_0=On,350,275,Arroyo Bridge,-1,-1,3 ; Etc. entrance_1=On,280,175,Arroyo Village,-1,-1,0 entrance_2=On,200,90,Arroyo Temple,-1,-1,0 entrance_3=Off,100,150,Arroyo Wilderness,-1,-1,0 entrance_4=Off,-1,-1,Arroyo Caves,-1,-1,0 [Area 22] ; Destroyed Arroyo area_name=Arroyo world_pos=184,133 start_state=Off size=Medium townmap_art_idx=-1 townmap_label_art_idx=370 entrance_0=On,345,230,Destroyed Arroyo Bridge,-1,26719,0 ������, ������ ��� ������ ���-�� �������� ���������� ����������� ��������.
|
����������: 10:09 - 7 ���., 2005
|
|
binyan
������������
������: Israel �����������: ���� 2005
�����: 292 ���������
|
���. ��������� ����� ����� ��� ��������: variable original_fid; //"������" FID Procedure start begin original_fid:=obj_art_fid(self_obj);//��� ��������� ���������� ������ - start, ������� ��� ����� ������������� ������ FID end variable ptr_armor; //��������� �� ����� variable Art_fidM:=-1;//"�������" FID variable Art_fidF:=-1;//"�������" FID Procedure critter_p_proc begin ptr_armor:=critter_inven_obj(self_obj,INVEN_TYPE_WORN); if (ptr_armor==0) then metarule3(107,self_obj,original_fid,0); else begin if(obj_pid(ptr_armor)==PID_LEATHER_ARMOR)OR(obj_pid(ptr_armor)==PID_CURED_LEATHER_ARMOR)OR(obj_pid(ptr_armor)==PID_LEATHER_ARMOR_MK_II)then begin Art_fidM:=FID_HMLTHR; Art_fidF:=FID_HFLTHR; end else if(obj_pid(ptr_armor)==PID_LEATHER_JACKET)then begin Art_fidM:=FID_HMMAXX; Art_fidF:=FID_HFMAXX; end else if(obj_pid(ptr_armor)==PID_PURPLE_ROBE)then begin Art_fidM:=FID_HAROBE; Art_fidF:=FID_HAROBE; end else if(obj_pid(ptr_armor)==PID_METAL_ARMOR)OR(obj_pid(ptr_armor)==PID_TESLA_ARMOR)OR(obj_pid(ptr_armor)==PID_METAL_ARMOR_MK_II)then begin Art_fidM:=FID_HMMETL; Art_fidF:=FID_HFMETL; end else if(obj_pid(ptr_armor)==PID_COMBAT_ARMOR)OR(obj_pid(ptr_armor)==PID_COMBAT_ARMOR_MK_II)then begin Art_fidM:=FID_HMCMBT; Art_fidF:=FID_HFCMBT; end else if(obj_pid(ptr_armor)==PID_POWERED_ARMOR)OR(obj_pid(ptr_armor)==PID_HARDENED_POWER_ARMOR)OR(obj_pid(ptr_armor)==PID_BROTHERHOOD_COMBAT_ARMOR)then begin Art_fidM:=FID_NAPOWR; Art_fidF:=FID_NAPOWR; end �������! ������ �������: 1. ���� �������(�.� ����� ����, � ����� ������) ����� � ������ �������, ��� �������� �� ��������. �.�. ����� ������� �����, ����� ����� �����, ����� �� �������, ����� � ������, � ����� ������. ������? 2. ������, ��� ����� �����(����� �� �������) ������� �������� �������� ���� �� �����. ��-�� ���� ��� ����� ����? (���������� �� 23:53 - 13 ���., 2005.) �����... ��� ������ �� ���������, ��� � ������ ������� ������ ������� ��������, ����� ����� ������ �� ������ �����. ������� �����. ���: #define Weapon(Pid_Item) if(obj_carrying_pid_obj(self_obj,Pid_Item)!=0)then\ gsay_option(-1,"� ����, ����� �� ���� � ����"+ proto_data(Pid_Item,it_name), wield_obj(obj_carrying_pid_obj(self_obj,Pid_Item)),-1); ��� (��� � �� ���� ����� ��� �������, �� ��� ������� ��� ��-���� gsay_option) #define Weapon(Pid_Item) if(obj_carrying_pid_obj(self_obj,Pid_Item)!=0)then\ SayOption("� ����, ����� �� ���� � ����"+proto_data(Pid_Item,it_name),wield_obj(obj_carrying_pid_obj(self_obj,Pid_Item))); � �������, ��� ������ wield_obj(obj_carrying_pid_obj(self_obj,Pid_Item)) ��� ������ ���� �������� �� ���������. ���-�� �����: SayOption("� ����, ����� �� ���� � ����"+proto_data(Pid_Item,it_name), Wield_Critter); Procedure Wield_Critter begin wield_obj(obj_carrying_pid_obj(self_obj,Pid_Item)); end �� ��� �������� ���� ��������� Pid_Item??? Procedure Take_Weapon begin variable Pid_Item:=4; Rep(10); Weapon(45)Weapon(94)Weapon(118)Weapon(120)Weapon(122)Weapon(143)Weapon(159) Weapon(261)Weapon(268)Weapon(270)Weapon(280)Weapon(283)Weapon(287)Weapon(296) Weapon(313)Weapon(332)Weapon(365)Weapon(421)Weapon(427)Weapon(500)Weapon(519) while((Pid_Item>=3)AND(Pid_Item<14))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End while((Pid_Item>=15)AND(Pid_Item<17))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End while((Pid_Item>=18)AND(Pid_Item<29))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End while((Pid_Item>=115)AND(Pid_Item<117))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End while((Pid_Item>=160)AND(Pid_Item<163))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End while((Pid_Item>=233)AND(Pid_Item<237))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End while((Pid_Item>=241)AND(Pid_Item<243))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End while((Pid_Item>=290)AND(Pid_Item<294))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End while((Pid_Item>=299)AND(Pid_Item<301))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End while((Pid_Item>=319)AND(Pid_Item<321))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End while((Pid_Item>=350)AND(Pid_Item<356))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End while((Pid_Item>=371)AND(Pid_Item<373))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End while((Pid_Item>=383)AND(Pid_Item<408))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End while((Pid_Item>=496)AND(Pid_Item<498))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End while((Pid_Item>=508)AND(Pid_Item<510))do begin Weapon(Pid_Item)Pid_Item:=Pid_Item+1;End end
----- ...������� �������������, ���������� � ��������������..
|
����������: 23:47 - 13 ���., 2005
|
|
Mynah
���������
������: ����� �����������: ���. 2004
�����: 469 ���������
|
����������� � critter_p_proc �� ����. procedure talk_p_proc begin variable previous_armor; variable current_armor; variable previous_weapon; variable current_weapon; --���������� ������� ��������� �������� � previous'�--- --������-- --���� ������� ��������� != �����������, �� ������� �����, ����� ������ (���� �� wield'��� ������, ��, ����� ����� �����, ������� �������� � ������� ������)-- end
----- Scio me nihil scire
|
����������: 9:19 - 14 ���., 2005
|
|
binyan
������������
������: Israel �����������: ���� 2005
�����: 292 ���������
|
�� ������ �� ����. � ��� ��������, �� ����������. ��������� ����� ���������� � Node999, �.�. � ����� �������. ����� �� �������� �������. � ��� ������ ������ ���������? ������ ��� ������ ������������?
----- ...������� �������������, ���������� � ��������������..
|
����������: 23:00 - 15 ���., 2005
|
|
Mynah
���������
������: ����� �����������: ���. 2004
�����: 469 ���������
|
>>�� ������ �� ����. � ����� ��? ;) � ����-�� �� ��������. � ��� ����� ��� ;)
----- Scio me nihil scire
|
����������: 0:04 - 16 ���., 2005
|
|
binyan
������������
������: Israel �����������: ���� 2005
�����: 292 ���������
|
���� ����� ��. �� � ���� �������� ��� ��� � ������� =)
----- ...������� �������������, ���������� � ��������������..
|
����������: 0:30 - 16 ���., 2005
|
|
|
|