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