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

 
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
 

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