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


����� TeamX » ���. ��������� » ������� (��� ������� �� ���������� - ����)

������� �� �����
<< ����. ����. >>
�������� ���� ���� [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 ] ��� ��������

 
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
 

������� �� �����
<< ����. ����. >>
�������� ���� ���� [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 ] ��� ��������


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