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