|
Mynah
���������
������: ����� �����������: ���. 2004
�����: 469 ���������
|
������:
��� ������, ������������ �� � *.msg ����� ������� � �������� �������?
if message_str(file_num, str_num)="Error" then begin end else begin end (���������� �� 5:28 - 23 ������, 2004.) 2Alan Killenger: 1) ���������� ���������� ���. �������� ���������� ������ ������ display_msg'��� �� look_at � description . 2) �� ������ ����� ���� �����������. anim_busy ��� ����� ���� �������� ��������� ��������. � ��� ����, ����� ������� �������� � ������ ����� �������� �� ��������. ���������� ������: procedure citter_p_proc begin if (tile_distance_objs( self_obj, dude_obj ) <= 25) and (tile_distance_objs( self_obj, dude_obj ) >5) and (local_var(0)==0) then animate_run_to_tile(tile_num(dude_obj)); if (tile_distance_objs( self_obj, dude_obj ) <= 5) and (local_var(0)==0) then call Node001; end procedure Node001 begin set_local_var(0, 1); end � ���� �������, ��� ������ ����� �������� � ��������, � ������� �������� ������ ���������, �� 25 ������ - ������� ������ ������ � ������, ���� �� ��������� ���������� � 5 ������, � ��� ������ ������ ��������. local_var ������������, ����� ������� "������� �������� �� �������" ���������� ����� ���� ���.
----- Scio me nihil scire
|
����������: 5:10 - 23 ������, 2004
|
|
Alan Killenger
������������
������: ������, ������ �����������: ���� 2004
�����: 404 ���������
|
������������� �����, Mynah. ��������� � ����� ��������, ������������� ���������� �������������� ������� � �������� ���? anim_busy - ��� ��� ��� ��, ��� ��� �����, ������ ���� ������� ������. �� �����, ���� ��� ����� ������� (������� �����, ��� ���� �� ���������� ).
������: if message_str(file_num, str_num)=="Error" then begin end else begin end
��������, ��������. �����, ���������� . �� ���� � ���� �������, �� � ���� ����������.. ��� ����� ���� ��������� ��������� ����� ��������� ���������� � ������� ��������.
������: ���-�� ���������������? ���� �������� 3-5 ��������, �� ����� ������ ������� �� ��� � ������������ � ������.
��� ���� ���� . P.S. ��� �������� ������� self_can_hear_dude? � �������� �������, ��� ��� ������ ��������� �������� "������" � ��� ������, ����� ���� ������ ����� ������� ������. �� ����� ���� ��� ������� ����� �������� � ������ � ��� ����� ������� �� ����������� (����� � �������� self_can_see_dude ��� ����� ���������).
----- hit me, nail me, make me god
|
����������: 21:33 - 23 ������, 2004
|
|
Raven
������������
������: ������ �����������: ����. 2004
�����: 408 ���������
|
������ ��������� � (��������) ���������� � ���� ����� ���������. � ��� ���������� - � ������ �� ������, ��� ��� ��������.
|
����������: 7:02 - 24 ������, 2004
|
|
pal
������������
������: Estonia, Narva �����������: ���. 2003
�����: 42 ���������
|
������ ��� ����� ������: ������� ���������� ������ ��������� ��� � ����1, � �������� ��� � ������ ������� ����� ���������� �� �� ��� ����� LogFileDebug.bat � ����� � ��������� ���� ������� �� ����������� � ������ ���� �� �������. � ���� ��������� ������� ���������: Error during execution: Stack underflow short. Current script: scripts\Zeca.int, procedure Zeca05 Scripts: [Game Reset] �������� ��� ������!�� ���� ���? �����.����� �������� ���.����������� ������ ��� ��������� SayWOAnswer(XXX,YYY,ZZZ) ����� �������� ���� ZZZ. (��������������(�) pal - 13:52 - 24 ������, 2004)
|
����������: 10:34 - 24 ������, 2004
|
|
Mynah
���������
������: ����� �����������: ���. 2004
�����: 469 ���������
|
������: ��� �������� ������� self_can_hear_dude?
�����. ���� ��� ���� �� ������������. ������� ���� �� ������ ����� ��: ������/�������/�������/������������/���������/�������������� ����� � ���. �� ������ �������� ������ ���������. ������ ������ ��� ���... ���� ���� "��������", ����� � ��� �� ������ ����� �����... ������ ��� � ���� ������. �����: ������� �� ��������, ������������ ������.
----- Scio me nihil scire
|
����������: 5:07 - 25 ������, 2004
|
|
pal
������������
������: Estonia, Narva �����������: ���. 2003
�����: 42 ���������
|
��� ����� ������: � ������� ����� GetObjectID(SlotX(Player,1); ����� �� ���� ������� ������ �����. ��� ��� ��������� � ������ �������� ���� ���� (�� �.�. ������� �� � �� ����� pro_item.msg) ,���� pro_item.msg � script.lst ����. ??? ���� ����� �� �������� ������ ���� � ipp �������. ������� ��� ���������� ������� �� �� ��� ����� � ��������� �� ����� ������� � FOP ����: write ('Object Name: ' + GetName (objAddr)); { ���������� �������� ������� } Tnx ! (��������������(�) pal - 14:59 - 26 ������, 2004)
|
����������: 12:30 - 26 ������, 2004
|
|
Mynah
���������
������: ����� �����������: ���. 2004
�����: 469 ���������
|
<����� ��� ����> ���� ������ ���� :-/ ��������� ���� �� ������. (��������������(�) Mynah - 22:03 - 27 ������, 2004)
----- Scio me nihil scire
|
����������: 17:07 - 27 ������, 2004
|
|
Alan Killenger
������������
������: ������, ������ �����������: ���� 2004
�����: 404 ���������
|
����� �� ������� ������������� ���� �������� *.msg ����, �� ����������� � ������-����, ����� ���� ��������������, �������? ������� �, ����� ��� �������� ����� �������� (����� ��� ���������� �������� ) �� ���������� Raven'�. ���� ���, ���� ����� ���� � ���������� ����������, � ���� ���? ���, �� ����� �����, ������� 4 ������� � �������� ��� ������ - ���, ����� ������, ��������; ����� ��������� ������ ���� �������, ����� ��������. ��� ����� ����������� ������? ����� ���� �� ��� ������� ��� � Pascal'� - findnext, �� ���������� ���������� ������� � ���������� ����� ��������� �������. ��� ��� �����, ����������� �� ����� � ���, ����� ������� ��� ����� *.msg'���. ���-������ ����������� � ��������? ���������� ������, �������� �� ��������� �������� �����-���� GVAR'� �����-���� �������������� ���������� (���� ��� �������, �� ����� ������� ������ )?
----- hit me, nail me, make me god
|
����������: 2:25 - 28 ������, 2004
|
|
Mynah
���������
������: ����� �����������: ���. 2004
�����: 469 ���������
|
2Alan Killenger: ���� ����. � ������ �����-����� �����������. ������ ������ �� ��� ������� ��� *.msg.
������:
�������� �� ��������� �������� �����-���� GVAR'� �����-���� �������������� ����������
���. ���������� ���������� �������� ������ �� ����� ������ �������, �� �������� ��������������. ����.. ������ �������������� �� ������� obj_dude, ��������� �������� � �����, ��� ����������. ����� ����������������� ������ �����. �� ���, ����, ������ :) (��������������(�) Mynah - 5:48 - 28 ������, 2004)
----- Scio me nihil scire
|
����������: 3:46 - 28 ������, 2004
|
|
Raven
������������
������: ������ �����������: ����. 2004
�����: 408 ���������
|
������: � ��� ���� ��������� ���-�� "�����" � ������ (�� 0 �� �������������). �� ����� (���) ����� ������. ���� ����� ��� ������ talk ��� "���" ������ (�� ������� ������� ��������-������� �� ����� � ����������� � �������), ��� ������ - ������ � �.�. ����� ����� �������� - ����� ��������� �� ������. �������: ��-������ ����������� � ������� ���. ������� ������� - �������������. ��� ������� (� ����� ������ �������������� �����) ����� ���������� ������ �� �������, ������� 10-�� (10, 20, 30 ...). ���-���. ------------------------------- {0}{}{[Songs file]} {10}{}{[Song]} {11}{}{La-la-la} {12}{}{Lu-lu-u} <...> {20}{}{[Song]} <...> {60}{}{[Song]} <...> {100}{}{[End file]} ------------------------------- ������:
���:
variable msg_num; //��������� ����� �������/��� variable num_of_songs; //���������� ��� ����� ����� variable last_song; //��������� ����������� ����� <...> //������� ����� ����� procedure get_num_of_songs begin variable i:=10; //����� ������ while i<2000 and message_str(msg_num,i)!="[End file]" do begin //���� �� ������ ���� ����� �if message_str(msg_num,1)=="[Song]" then num_of_songs+=1; //������� ����� �������� �i+=10; end if num_of_songs==0 then num_of_songs:=-1; //���� �������� ���, ������ ����� � -1 end procedure sing(variable song) begin variable i:=10; variable cur_song; variable start_song; if not num_of_songs then call get_num_of_songs; //���� ����� ����, ������ �� �� ��� �� ������� if num_of_songs==-1 then begin //��� ������� �display_msg("There is no songs in msg #"+msg_num); �return -1; end if song>num_of_song then begin //��� ������� �display_msg("There is only "+num_of_songs+" songs"); �display_msg("Try to get:" + song); �return -1; end while cur_song!=song do begin //���� ������ ������. ������������ ����� ��� �� ����� �if message_str(msg_num,i)=="[Song]" then cur_song+=1; �i+=10; end last_song:=song; //���������� ��������� ������ ����� i+=1; //��������� �� ������ ������� ��������� ����� start_song:=i; //��������� ����� ������� �� �������. �� ������� ��� ������ ������ � ����������� � ������� //i-strsong=0 ��� ������ �������, 1 ��� ������ � �.�. while message_str(msg_num,i)!="Error" and message_str(msg_num,i)!="[Song]" do begin �add_timer_event(self_obj,i-start_song,i); �i+=1; end end procedure timed_event_p_proc begin //fixed_param==����� ������, ������� � floater(message_str(msg_num,fixed_param); end //��������� ���������� procedure talk_p_proc begin if num_of_songs!=-1 then begin �//���� ���� ��� ����� � ������ - ��� ��������� �if last_song<num_of_songs then call sing(last_song+1); �//����� �������� ������� �else call sing(1); end else display_msg("!ERROR!"); end
Enjoy :-) ��������� ������ - � � ��������� ��� :-) (��������������(�) Raven - 14:18 - 28 ������, 2004)
|
����������: 7:16 - 28 ������, 2004
|
|
|
|