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


����� TeamX » ������������ » ������� ������ (�������� "������������")

������� �� �����
<< ����. ����. >>
�������� ���� ���� [ 1 2 3 ] ��� ��������

 
Raven
������������

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

�����: 408 ���������

>>��� ����� ���� ��������� ��������� ����� ��������� ���������� � ������� ��������.

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

��������! ��, � ��� � (����) ���� �������� - ��� ����������� ������� ����������.

�������� ����� ��� msg-�����. ��� ��� �����? ��������������� (������������� ���������������) ������ �����. ��� ������ ��������� � ����� �� ��� ������������ ��������. ����� ��������� � ������� ����������� �������.

��� ������ � msg-������ � ������� ����������� �������� ���������� ���������� ������ NAME:
#define NAME �����_�������

����� ����� mstr(xxx) ������ ������ xxx.

������ 1.

����������: �������� ������� � ������-�� ��� ������. ���� �� ��������� ��������� ������� � scripts.lst (� ����� ������, ��� �������� ������ � ���� ����� �������), �� ������ �������� �������� - �.�. �� ������� ���� msg-���.

�������: ��������� ��������. ������ ��� ��������� �������. � msg �� ������������� ������� ������� ����������� ������. ��������, � ��� ���� �������� �� ����� ����� (��� �� ���������):
------------------------
{1000}{}{�����}
------------------------

����� ���:
------------------------
#define LIMIT 2000 //�� ����� ������ ������������
variable msg_num; //���������� ����, � ������� ����� ����� �������� msg-���
<...>
variable i:=1300; //���� ������ � ����� msg-����, ������� �� �������
while message_str(i,1000)!=obj_name(self_obj) and i<LIMIT do i+=1;
if i==LIMIT then display_msg("ERROR: msg not found.");
else msg_num:=i;
<...>
------------------------

�� ��� ����� ������������ � ������ - � �����!

������ 2:

�� ����� ������� ����� ��������� ��� ���������, ��� ����� �� ������� � ������� ��������� ������ �� ���������� ��������� ������� � msg-�����. ��! �� �����, ����� �������� ��������� ����������� - �.�. ���� � msg-��� � ��� 15 ������, �� �� ������� 1 �� 15; 20 - 1 �� 20.

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

�������:
������� ����� ��� msg:
------------------------
<...> //������ �����������, ������� - ���������������
{231}{}{BEGIN REPLICS}
{232}{}{������}
{233}{}{���}
{234}{}{��� ����?}
<...>
{240}{}{END REPLICS}
<...>
------------------------

���:
------------------------
#define LIMIT 5000 //������� ����� ������������

//msg_num - ����� ����� msg-���, ��������� �������

<...>
variable i:=1;
variable first; //����� ������ � ������ ��������
variable last; //� ���������

while message_str(msg_num,i)!="BEGIN REPLICS" and i<LIMIT do i+=1;
if i==LIMIT then display_msg("ERROR: replics list not found");
else start:=i+1;

//�������� ������ �� ������ first
//���� ���� ����������� "���", ���� ������ ������ ������
while message_str(msg_num,i)!="END REPLICS" or message_str(msg_num,i)!="Error" do i+=1;
last:=i-1; //�������� �� ������ �� ������, �.�. ������ �� ����� ���� �����������, ������ ������ ������ �������
//����������� ��� ����� "��� ����", ��� �����������

floater(random(first,last));
<...>
------------------------

�������� ������� ���, �� �������� �������� ������. �� ����������� ������� ������������! ����������� ���� ����������� ����.

�����, �� ������� ������. �������� ������� ����� �������������� ��������, ��������.

������?

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

����������: 11:41 - 24 ������, 2004
Mynah
���������

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

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

������:

�������� ������� ���, �� �������� �������� ������.


� ���� ����� �������� 15-20? ���� �� ��?

� ����������� �������� - ����� :)

-----
Scio me nihil scire

����������: 12:52 - 24 ������, 2004
Raven
������������

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

�����: 408 ���������

�� ������������ Cel 1700 �� ��������� (�� ��� ������) �� ������ �������. �� ��� Athlon XP 3000+ - ���� :-) �� ��� ������ 166... �� ������, �� ����.

��� �� ����������� ���� ���, � map_enter. � msg-��� ����� � � LVAR� ���������, ���� ���.

����������: 13:01 - 24 ������, 2004
Mynah
���������

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

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

���� ����-�� ��������� - ���� �������� ���� ���������. � ��������� obj_hear_obj � obj_see_obj.

��� ������� ����� �� �������� �� ��� ������ ��� ��������� :)

-----
Scio me nihil scire

����������: 4:20 - 26 ������, 2004
Raven
������������

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

�����: 408 ���������

>>���� ����-�� ���������...

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

P.S. ���� ��������� ��������� ����� ��� ����� �����.

����������: 4:37 - 26 ������, 2004
Alan Killenger
������������

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

�����: 404 ���������

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

----------
procedure set_script_number begin
 variable V_index;
 V_index:=C_identify_start;
 while not(V_index>C_identify_end) do begin
   if message_str(V_index,C_identify)==obj_name(self_obj) then begin
     set_local_var(LV_script,V_index);
     V_index:=C_identify_end+1;
   end else begin
     V_index:=V_index+1;
   end
 end
 if local_var(LV_script)==0 then begin
   display_msg("Error: *.msg file not found for "+obj_name(self_obj)+".");
 end else begin
   display_msg("��������������� ����� ������: "+local_var(LV_script)+".");
 end
end
----------

�������� *.msg ����� ������� �� ����������.

����������� #1:
----------
 #define C_identify 0
 #define C_identify_start 1000
 #define C_identify_end 1300
----------
���������: ����� �����-���� ������ ��������, ���������� �������: "Error: *.msg file not found for ����."

����������� #2:
----------
 #define C_identify 0
 #define C_identify_start 1000
 #define C_identify_end 1400
----------
���������: ����� �����-���� ������ ��������, Fallout (��� � ������) �������� � ��������: ".. ������ �� ����� ���� read."

�������������, ���� �� ��������� ��� ������ �������� win2k? ���������, ��� ��������� :).

(��������������(�) Raven - 17:01 - 25 ���., 2005)

����������: 2:39 - 27 ������, 2004
Raven
������������

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

�����: 408 ���������

�������� ��� ���:
if message_str(V_index,C_identify)

� ��� ���:
#define C_identify 0

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

������ ������������� ������ (���������� ������� :-) - �������� (1000-1300). ������� 1-1304 ������ ��� ������������ ������� ����, ������ ������ � ��� *����* ����-��� ������������. � ������ �������� ������ ����: ������� � ������ ����������� ����� �������� (1305) - ��������� ������� � scripts.lst + ��������� �����.

>>�������������, ���� �� ��������� ��� ������ �������� win2k? ���������, ��� ���������.

��� ��� - �������, ����, ���� - ���� ���, �� ������ :-)

P.S. ��� ��������� �������� ����� �������� ���:
-------------------------------------------
#define LIM 1500
#define search(line,what) while not message_str(i,line)!=what and i<LIM do i+=1; \
                         if i==LIM then display_mg(what + " not found")
<...>
variable i:=1300;
search(1,obj_name(self_obj));
set_local_var(0,i);
<...>
-------------------------------------------


(���������� �� 5:03 - 27 ������, 2004.)


��������� ����� 2.

��������:

���� generic-������, ������������ ��������� ������ �������� ����� (���-�������� � ��� ������).

����� �������� ������ ����� ������� ���������� ��� �� ������, ����� ��� ��� ��������� ���� �� ��� �������. ������ � ���, ��� ��� ��� ��� �������� ������� ������ � ���� �� �������, �� � ��������� � ��� ����������� �� - � SID, � ���/�������� �� scrname.msg, � ������� �� talk/description, � ������ ���������...

��� ����?

�����������:

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

����, ��� �������� ������/�������. ����� ����������, ����������� ��� export �������� � ��������� ����� namespace - �� ������ �� ������� ��� �� ����������������. ����� ����� ����� ������ ������ ����� � �������������. ������ ����� ������� �� �����.

�������:

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

--------------------------
//��������� ����� ��� ��� ����������
export variable begin
ptr_1;
ptr_2;
ptr_3;
end

procedure start begin
end

procedure map_enter_p_proc begin
if not ptr_1 then ptr_1:=self_obj;
else if not ptr_2 then ptr_2:=self_obj;
else if not ptr_3 then ptr_3:=self_obj;
end

procedure talk_p_proc begin
if self_obj==ptr_1 then display_msg("NPC 1");
else if self_obj==ptr_2 then display_msg("NPC 2");
else if self_obj==ptr_3 then display_msg("NPC 3");
end
--------------------------

����� � ���, ��� ��� "�������" ���� �������� � ����� ���������� � �����������/������� ������. ������� ���� �� ������ ptr_1, �� ��� ���� ��������� ��������, ��������������� (��� ����������������!) ��� ����, ��� ����� ��� ������.

��� - ����� ������� (� � ����� ������������, � � ����� ����������) �������. ����� ����� ����� �� msg, ������� ��� ��� ��������������� ����� ��� � ������������ ��� � �.�.

�����������, � �������� ���� ������, �� �����-�� ������� ������. �����, ��������, ���������� ��������� �� ���������� ����, ����������� � �����. � ��������� ����� ����������� "� �����, �� ��� � ... ������, �� ���, ��� ���� � ����?".

����������: 4:04 - 27 ������, 2004
Alan Killenger
������������

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

�����: 404 ���������

���-�� �� ������ ����������� �������� ������, ������ ������������ �������� . ��� ������������, ������� ���������� ���� ���������� ���, ��� � ���� � ������� ������ � *.msg ������:

������:

display_msg(message_str(1304,0));
display_msg(message_str(1304,999));
display_msg(message_str(1304,-998));
display_msg(message_str(1304,998));
display_msg(message_str(1304,-999));



����������� #1.
������:

{0}{}{������� 0}
{999}{}{������� 999}
{-998}{}{������� -998}
{998}{}{������� 998}
{-999}{}{������� -999}


������:

�������� 0
�������� 999
�������� -998
�������� 998
�������� -999



����������� #2.
������:

{0}{}{������� 0}
{999}{}{������� 999}
{-998}{}{������� -998}
#{1.5}{}{������� 1.5}
{998}{}{������� 998}
{-999}{}{������� -999}


������:

�Error
�������� 999
�������� -998
�Error
�Error


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

����������� #3.
������:

{0}{}{������� 0}
{999}{}{������� 999}
{-998}{}{������� -998}
#{998}{}{�������������� ������� 998}
{998}{}{������� 998}
{-999}{}{������� -999}


������:

�������� 0
�������� 999
�������� -998
�������� 998
�������� -999



P.S. ������� ���-������ please �� ���� ����� �������� � �������������� ����� ����� ��� spawn ��� ���������� �� ���� � "��������".

3.12.04

������� ���������� ��������, � ������� ����������� ��������� Raven'� ������������ �� ������������� ������� ������.

4.12.04

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

(��������������(�) Alan Killenger - 21:09 - 4 ���., 2004)

-----
hit me, nail me, make me god

����������: 20:10 - 29 ������, 2004
Raven
������������

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

�����: 408 ���������

spawn, exec � fork

�� �������. ����������:
spawn("����_�_�������/����_�������.int");
��������� ������ �� ���������� (������� � ��� ��������� start). ���� ����������� child-������, ������������ �����������. �� ����������� ���������� ���������� ������� � �������� ������. �.�. ��� call ��� ��������, � �� ��������.

exec ���������� spawn, �� ����������� ���������� ������ �� ������� exit. ���� ��� ������� - ��� ��������.

fork - ��� �� spawn, �� ���������� ������ �������� ����������� ���������.

������ ������ ��� �� ����� �� ����: �������, ��������� ����� �������, �� ������������� � ������-���� ������� (self_obj==0). �����������, ����������� � ��� ������� ������� �� �����. � ��������� ���� ����� ������������� �������. ����� ����, � �������� ������� ����������� ������ ��������� start (���� ����� ������ call), �� � ���������� ������ ��������� ������.

������:
------------------
<...>
spawn("scripts/fork.int");
display_msg("back to main");
<...>
------------------

forks.ssl:
------------------
procedure start begin
�display_msg("spawned script");
end
------------------

�����:
spawned script
back to main

(��������������(�) Raven - 10:32 - 30 ������, 2004)

����������: 3:31 - 30 ������, 2004
Ray
���������

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

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

[deleted]

�� �� � ����... ����� ���. ��� �� �������.
WG

����������: 15:19 - 5 ���., 2004
 

������� �� �����
<< ����. ����. >>
�������� ���� ���� [ 1 2 3 ] ��� ��������


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