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


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

������� �� �����
<< ����. ����. >>
������������ �������� ���� ����

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

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

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

��������� ������� ��� atoi. � ���������� � ������ :-(

Atoi - ��� ��������� ������������� string-����� � int-�����.

��������:

��� ���, ��� �� ������� ��������� ����������� �������� ���� (������, klngon Academy, ������������� ����) - ������� �� parse.c:
----------------------------------
/*
* Parser for SSL (Startrek Scripting Language).
*
* All variables are "typeless"; their type is defined by how
* they are used. �All types are promoted to the "highest" type
* in an expression, where the order is from lowest to highest:
* int, float, string.
*
* So,
* if you do 2 + "foo", you get back "2foo".
* if you do 2 + 2.4, � you get 4.4
* if you do 2 + 4, � � you get 6 (hopefully :)
* if you do 2 + 2.4 + "foo", you get "4.4foo", since
* expressions are parsed left to right.
* if you do 2 + (2.4 + "foo") you get "22.4foo", due
* to the parentheses.
* etc.
*/
----------------------------------

�.�.:
----------------------------------
variable a:="1234";
a+=1;
display_msg("a="+a);
----------------------------------
������� "a=12341".

��� ������ ����� �� �������� � msg-������ �������� ��������. � ������ ��� ���� �� ������, �.�. ����� ����� ������� � msg PID-� ���������, ������/�������� ��������� GVAR, ������ "��������" ������ - �.�. ������������ � �������� ������� �������� - ��� ��������� �� ����������, ������� ������ �� ������������� ����������� � ����������������� ��, ��� ���������� �����/PID.

����� ����, ����� ���� �� ������� ��� ���������� �����, �����, PID-� �������� ���������� � �������� ��������� ������; ��������� ������� ��� �������� ���, ����������� �� ����� "�� ����������"; �������� ������/����������, ����������� ��� ������/������� ������ - �.�. ��������� �������� ������������ ����.

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

����, � ��� ���� ������. ��� �� ����� � ���� ������? ������ �������? ������������ �����. �� ����� �� ����������:
"abc"=="abc" //true
"abc">"abc" //false
"b">"a" � � //true
"b">"abczz" //true
"abc">"abd" //false
"b">"A" � � //false

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

��� ��� ��� ���? ���������� ������ "123". ��� �� ����� �������?
"123">"1". � "123"<"2"
�������? �� ������ ��� ������� ������ ������. ��������� ���. ������� ������.
"123">"11", "123">"12", "123"<"13".
����� ������. ��������� � �������.
"123">"121","123">"122","123"=="123". ����� ������. ����������� � ���������������� ������ �� ����� �������� ����� - ����������.

����� ���:
----------------------------------
procedure atoi(var str) begin
�var tmp_str:=""; //������������� �����������, ����� tmp_str="0"
�var value; //�������� ��������
�//""+0=="0"
�if (str>tmp_str+0 and str<tmp_str+1) or str==tmp_str+0 then begin
� �tmp_str+=0; //��������� ������. "123"+0=="1230"
� �value:=value*10+0; //"����������" ���� ������
�end
�//���� ��� ��������� ����
�<...>
----------------------------------

�� ��� ������ ���� ������� � ����:
----------------------------------
procedure atoi(var str) begin
�var tmp_str:=""; var value;
�var i; �//��� ����������� �� ����� ������������� ������

�while str!=tmp_str and i<16 do begin
� �if (str>tmp_str+0 and str<tmp_str+1) or str==tmp_str+0 then begin
� � �tmp_str+=0;
� � �value:=value*10+0;
� �end
� �<...>
� �i+=1;
�end
�if i!=16 then return value; //������ >16 �������� ���� �������� ���������� �������
�else return -1;
end
----------------------------------

������ ����-���� ��������, ����� ������� ����:
----------------------------------
procedure atoi(var str) begin
�var tmp_str:=""; var value; var i;
�var j; �//��� ����������� �� ����� ������������� ������

�while (str!=tmp_str) and j<16 do begin
� �//������������ ������� ���������. �������, ���������� :-)
� �while not ((str>tmp_str+i and str<tmp_str+(i+1)) or str==tmp_str+i) and i<9 do i+=1;
� �//��� i=9 ���������� ��������� �� �������� (str>...+9 and str<...+10)
� �//������ � �������� ������������ ��������
� �if i==9 and not (ostr>str+9 or ostr==str+9) then i:=10;
� �//���������� tmp_str � value
� �if i<10 then begin tmp_str+=i; value:=value*10+i; end
� �//� ������ ������� ���������� ������
� �else return -1;
� �i:=0;j+=1;
�end
�return val;
end
----------------------------------
����� �������� ������������ ��������� ������ 10 ����� :-)

�� ��� � ��. ������ ���� msg:
----------------------------------
{214}{}{2000}
----------------------------------
,�� ���
----------------------------------
give_exp(atoi(mstr(214));
----------------------------------
���� ���� 2000 �����.

�������� ��� ���������� ��������� (���� ���������� ���-���� ���������� �����-�����), ����� �������� � �������� ������� ini-�����, ��� ����� ���� ���������:
1. ����� �� ������ �����
2. ��������� ����� �� ������
3. �������� ��������� GVAR (����/������/���� � �.�.)
4. ������� �� ������

� �����, ������ const GVAR-�. �� � ����� �����, �������������� �� ���������. ������������ ����������.

P.S. Mynah, �� ������� ��� hear/see? �������, �� ���������.




=================================================



������ ����� NPC.

������� �� ������������ ��� ����� ������������ floater-����� ����� ����� ���? �����������.

�������:

����, � ��� ��� �������. � ��� �������� ������ (���� � ��� ��). ����������� ��� �� ����������.������ ����� ��������� ������� (������/������� - ���������� ���������). ��� ����� � ����� ������ ��������� floater-������? ��� ������������������ ������� floater-��, ���������� �� ������� (floater ��� ������ ���, ����� � �������, floater ��� ������ ��� ...). �.�. ��������, ��� ����������� �� � ������� add_timer_event. �������� ������ ������:

msg:
------------------------------
{1}{}{Phrase1}
{2}{}{Phrase2}
{3}{}{Phrase3}
{4}{}{Phrase4}
------------------------------

���:
------------------------------
export var begin
ptr_chat_1;
ptr_chat_2;
end

procedure start begin
end

procedure map_enter_p_proc begin
�if not ptr_chat_1 then ptr_chat_1:=self_obj;
�else ptr_chat_2:=self_obj;
end

procedure talk_p_proc begin
�var i:=1; //i==������ ����� ������ - ����. ���������

�while (mstr(i)!="Error") do begin
� �//��������� ������� �� ������� �/� 0,1,2,3 �������
� �add_timer_event(self_obj,i-1,i);
� �i+=1;
�end
end

procedure timed_event_p_proc begin
�var who; //��� �������
�//���� ����� ������� ������ - ������� ������ ���, ����� - ������
�if fixed_param%2 then who:=ptr_chat_1;
�else who:=ptr_chat_2;

�float_msg(who,mstr(fixed_param),0);
end
------------------------------

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

� ���� �������� ���������� ���� "���" - ������� ��� ������ � ��� - ������� �������� � ����. ������������. ��� ����� ���������? ������� ����, ������� � ���� � ������ �������, ���������� � �����. ��������� ������ - � ����� ������ ����� ���������� ������ timed_event, � �� ����� ���������� ������� (������� ���������� ����� � ����� ������). �.�. �� ������ �������� 4 ��������� ������� ��� ������ ���� + ��� ���� ��� ������ ����������. ��� �� ���������? ���� ����� ����� (������� �����) ����� ���� ����� - � �������������, � �������������, � ������� - �.�. ������� ��������� ������������� �������� ��������� �� "����������/�������� ����" ��, ������ ������, �� �����.

�����: "�������" ���������. ��� ������ � ��������� �����. �.�. �� "��������" ���� ������ ������������� �������� ��� "����", ������������ ��� ��������.

��������, ���� "0" �������, ��� �������� - ����� ������ � msg ��� floater. ���� ������ 3130 - ������ ����� ������� ������ 313, ������ 120 - ������� ������ 12, 900 - ������ 90. � ���� "1" ����� �������� �����/��������� ���� "������ ��� ���".

------------------------------
export var is_chatting;
<...>
//������ ������ �����
#define flag �(fixed_param%10)
//����� ��� ������� �������
#define param (fixed_param/10)

procedure timed_event_p_proc begin

�if flag==0 then begin

� �if param%2 then float_msg(ptr_chat_1,mstr(param),0)
� �else float_msg(ptr_chat_2,mstr(param),0);

�end else if flag==1 then is_chatting:=param;

end

procedure talk_p_proc begin
�var i:=1;
�//���� ��� ������� - ������ �� ������
�if is_chatting then return 0;

�//������������� ����
�add_timer_event(self_obj,0,11);

�//������� ������ ����� � ����������� ���� ������
�while (mstr(i)!="Error") do begin
� �add_timer_event(self_obj,i-1,i*10+0);
� �i+=1;
�end

�//��������� ������� ������ ����� �� ��������� ���������
�add_timer_event(self_obj,i,01);
end
------------------------------

��. ������, � timed_event/add_timer_event ����������� ������ ���������. ���������: ����, ���� ��������� �� ������, � ������� add_timer_event �� ����� "���������" ��� ��� ������ - �������������/������ LVAR-�, �������� ���������, ����������� ��������, �������� ������, ���������. ��� - ������ ������������� ��������������. �, ����, ����� ��������� � �-���������� :-)

���� ��� ���-��� - �������/������ ��������. �� �� ���� - � ��������� ������. �� ������������ ����� :-)

(��������������(�) Raven - 12:47 - 7 ���., 2004)

����������: 4:50 - 7 ���., 2004
Alan Killenger
������������

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

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

���� ����� ������� �� ��������� � ������ ���� ��� ��������� �������, � ������ �� ����� ����������������?
������:

..
variable self_sing:=false;
..
procedure talk_p_proc begin
 if not(self_sing) then begin
   self_sing:=true;
   add_timer_event(self_obj,30,/*������� �����*/);
 end
end
..
procedure timed_event_p_proc begin
 if self_sing then
   self_sing:=sing_song(fixed_param,/*��������*/);
end
..
procedure sing_song(variable P_pos,variable P_delay) begin
 if /*��� ����� �����*/ then begin
   float_msg(self_obj,mstr(P_pos),0);
   add_timer_event(self_obj,P_delay,P_pos+1);
   return true;
 end else
   return false;
end
..


����� ������� ���������� self_sing ������������� ������ �������� false, ����� �����(��� *float ������) ����� ���������. ���� ����� ���� ������� ����������� � ����� �������� �������: ��������, ���� ��� ������ �� �������� �� 30 ������ ������� ���������� ������; ��� ���� ��� ���������� � NPC ������ ������ ������ �����.

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

����������: 12:29 - 8 ���., 2004
Raven
������������

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

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

��, ��� ����� ������� �����. � ��������� ����� ������� �������, as-is, ���� ����. ���������� � ������ ���������� ������ �� ����. �� ��� ����� �����������/����������, ����������, ��������������. � ������ ����� � is_chatting ������ ���� ��������� ���� ����������� ���� �� "��������" ���������� �������� � ����. ������ ����� ���������� ��� ��������� ��������� � �������������� ���� �������� �/� timed_event.

����������: 15:07 - 8 ���., 2004
Raven
������������

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

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

Say-�����.

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

� ���� ���� ����� ������, ������������ � say, ������� �� ������� � API � �� ������������ � ����. ��������:
saystart
saysend
sayoption
sayreply
� �.�.

����� �� ������� ���������� ���������������� �����, ��� ������� � ���� �����������. ����, ��� ��� �����. ��� - ����� ����������� �������. ��-��, ������ ��, ��� ���������� � ������� start_gdialog, �� ���� ��� ����� �������. � ������:
1. �� ����� �������� ����������, ������� � ��������� reply- � option-���� (������������ �������� ������ ������� - � �������, � ������, � ���������� - ��������� �� �������)
2. �� ����� �������� �����, ���� ������, ��������� ��� ���������, ������������, �������
3. ��� ����������� ������� ���������� ����� (��� if-��������, ��������� ������ � �.�.) �� ��������� ��������� ��������� ����
4. ����� �������. ���� ����� ����� ���������������� � ����� ������ - �� ����� ���, �� ��������� etc. ����� ��� ������������� ��������� *�����������*. �.�. ����� �������, ��������, ���� �����, ������� ��� ������������� �� ��������� ������� say-�����, � �� ��� ��������� - �������� �� ���������. ��������, ��������� ���������.

����� ��� �������� � say-����� ��������������� (��� � ���������/��������). ����� - �������� ������ :-( ������� ��� ����� ������� ���������� ����� �� display-��������. �� �������� �� ���������-������ � �������� �������.

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

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

sayreplywindow(x,y,width,height,"path/to/pcx_file.pcx");
����� ����������, ������ � �������� ����. ���� - ������������ Data. �.�., ������ data/pcx, ����� ���� pcx-�������� � ����� ���� � �������.

setfont(num);
num - ����� ������ (1-5 � ����������, ��. ������ master.dat)

sayborder(x,y);
������� ��� ���������� � ���� ������ - �� ��������� � ����������� - � ����� ������.

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

������ ��� �����������. ������� ���� ������� � ����� �������� saystart. ����� ����� ������ �� saysend  
sayreply(str node_name, str text);
������ �������� - ��������� ����� (���� �������� ��������� � ������������ � �����������, ��������� sayreplywindow).
������ - ��� ��� ����� "����". ����� ��� ����� ����� �������� ������� � ����������� �� sayoption.

sayoption(str text,str/proc node);
������� ������� ������ � option-���� (��������� �������� � sayoptionwindow, ���������� reply).
��������! ���� ����� �� ����� ����, �� option ���� �� �������� � ����� �� ���������. ��� ����������� ������� ��� ���� ���� �������� �� reply-����. ������, ��������� ����� ������� �� ���� ������ �����������, �� �� ������������ �� ����� sayoption.
������ - �����. ������ - ��� ���� �� sayreply (� ��������) *���* ��� ���������� ��������� (��� �������).

������� ������:
-----------------------------
procedure start begin end

procedure critter_p_proc begin
end

procedure talk_p_proc begin
sayreplywindow(20,10,200,100,"111.pcx");
sayoptionwindow(230,10,200,100,"111.pcx");
setfont(5);
sayborder(10,10);

saystart;
sayreply("NodeHi","Hello");
sayoption("Hi. How it goes?","NodeHow");
sayoption("Bye","NodeClose");
sayreply("NodeHow","Fine, thanks");
sayoption("Well, gotta get moving.","NodeClose");
sayoption("Bye","NodeClose");
sayreply("NodeClose","Bye");
sayoption("Bye","Empty");
sayend;
end
-----------------------------

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

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

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

(��������������(�) Raven - 23:29 - 14 ���., 2005)

����������: 15:41 - 14 ���., 2005
Raven
������������

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

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

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

����������: 12:07 - 15 ���., 2005
Tehnokrat
���������

������: �����������
�����������: ���. 2003

�����: 489 ���������

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

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

����������: 23:48 - 15 ���., 2005
Raven
������������

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

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

>>��� ��� � ����� ����?

���� �����.

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

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

����������: 0:36 - 16 ���., 2005
Raven
������������

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

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

���������, ��� ����������� �� ����� ���� -  ���. ��, ��� �� ������� � vault13.gam, ����� ���� ������������ � ����.

��� ������� �� ����� ������?

����������: 16:16 - 20 ���., 2005
YikxX
������������

������: NCR :)
�����������: ����. 2004

�����: 304 ���������

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

-----
��������! � �������� ���� �����...

����������: 17:00 - 20 ���., 2005
Raven
������������

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

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

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

����������: 17:27 - 20 ���., 2005
Tehnokrat
���������

������: �����������
�����������: ���. 2003

�����: 489 ���������

������� �� ������ ��� �����-���� ����������� �� ����� GVAR.

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

����������: 0:06 - 21 ���., 2005
binyan
������������

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

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

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


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



��� ���   )!="END REPLICS" or message_str ������ ���� AND ������ or, ������ ��� ������ ������ � ��� �� "������ �������". ���������.




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

����������: 21:43 - 17 ���., 2006
Oleg1969
������������

������: �������
�����������: ��� 2006

�����: 168 ���������

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

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

����������: 21:00 - 24 ����., 2006
Dweller
������������

������: �-����
�����������: ���� 2007

�����: 29 ���������

��� �� �������� � ���������� �� �������� ������� � ������, ������� ������ ������ ����. ����� ������������� �����, ��� �������� ��-�� ������� message_str(i,1000)!=obj_name(self_obj).  ��������, ��� ����������!

-----
�� ����� ��� ��� �������

����������: 2:12 - 30 ����, 2007
Wasteland Ghost
��������� ���� ����������

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

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

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

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

����������: 12:13 - 2 ���., 2007
Ray
���������

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

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

������:
��� ������������ ��������� ������� "�����" ��� ������� ������� ��� �������� ������� � �������� �������� �����. ��� ����� �������� ��� �� ���������. ��� ������� �������� ��� � ���� �������� ��������� ��� ��������� ���������, �� ����� ��������� ����� ��� ������


� ������ ����������� � ���� ����������?

0x96F8A
������������ ��������: 000F85A500
��������: FF7400EB02

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

����������: 21:32 - 2 ���., 2007
Wasteland Ghost
��������� ���� ����������

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

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

�����������. ������ �� ����������:
���:
 
Error loading message file text\english\dialog\test0.msg at offset 3d03.
Error loading script dialog message file!
ERROR: message_str: can't find message file: List: 2!
Error: No message file EXISTS!: index 2, line 500


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

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

����������: 11:10 - 9 ���., 2007
Ray
���������

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

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

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

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

����������: 11:51 - 9 ���., 2007
 

������� �� �����
<< ����. ����. >>
������������ �������� ���� ����


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