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


����� TeamX » ������������ » Say-�����

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

 
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-��� ����������, ���������� � ������������� ����, ��������� ������ � ���������� ����������� � �.�.

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

procedure critter_p_proc begin
end

procedure NodeExp begin
 give_exp_points(1000);
 //sayquit;
 saygotoreply("NodeGoAway");
end

procedure NodeMoney begin
 item_caps_adjust(dude_obj,1000);
 saygotoreply("NodeGoAway");
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("NodeWhat","What do you want?");
     sayoption("Exp",NodeExp);
     sayoption("Money",NodeMoney);
     sayoption("Nothing","NodeClose");
   
   sayreply("NodeGoAway","Now go away.");
     sayoption("Bye","Empty");
     
   sayreply("NodeClose","Bye");
     sayoption("Bye","Empty");
 sayend;
end
-----------------------------

�� ������ - ������ ��� SayReply � SayOption ������� ��� ���������. ��������� ����������. � ��� ������...

���� �� ������ ������� give_exp_points(1000); � ������ ������, �� �� ��������� ��������� ��������� �������������� ����� �� say-������.

���� ������� ������ sayquit, �� ����� ��������� .. ������. �� ����, say-����� ���������� � ��� �������� ������� ��� ������� ��������� ������������ �����. �� ���� ���� �����-�� quit-����, ������� ��������������� ��� ������ sayquit. ���� ���� ���� ����������, �� ��� ������ ����� say-������� ��������� ����� � ���� ���������. ����� �������� � ����, ���������� ������������� sayquit. ��������� ����� - �� ���������. �.�. �� ��������� quit-����, ������� say-������� � ��������� �����.

�� ����, ��� ���������� � saygotoreply, ���� ������� � ���, ��� say-������� ��������.

��� �� ��� ��������, � say-������ ����� ��������� �� reply-������, ������� ��� �� ���������:
--------------------------------
<...>
sayreply("NodeWhat","What do you want?");
 <...>
 sayoption("Nothing","NodeClose");
<...>  
sayreply("NodeClose","Bye");
 sayoption("Bye","Empty");
<...>
--------------------------------

��� �����, "NodeClose" ��������  *����* ������ ������ �� ���� �  sayoption("Nothing","NodeClose"). � ��� ��� ���������������? � ���, ��� say-����� �� �������� ���������������, ������� �� ��������. �������� ����� ���� say-���� ������� � ������������ ����� reply-�����. ����� � ���, ��� �������� ���������� ���������� �� ������������. ���� �� �������� �� �������������� ���������/sayreply, ���������� ��� ������ �� ������. � say-����� ������ ���������� ��� ����������� ������. ��������� � ���, ��� �������� say-���� �������, ����� ������� ��������� �������� display_msg � ��������� ����� �����. ��� ��� ��������� ���� �� ������, ��� ������ ������ ������� ����� �� saystart.

� ������ �������� ��� ��� saygotoreply. ��� ������� �������� sayreply, ���������� � �������� ���������. ������, ��� ����� �� ����, ���������� sayreply-��� ����� ���� � � ������ ���������. saygotoreply �������� � � �����������. ����� ��������� ���� ���������:
--------------------------------
<...>
procedure NodeMoney begin
 item_caps_adjust(dude_obj,1000);
 saygotoreply(NodeExp);
end
<...>
--------------------------------

� say-������ �������� if-�������:
--------------------------------
variable once;

<...>

procedure NodeExp begin
 once:=1;
 <...>
end

procedure NodeMoney begin
 once:=1;
 <...>
end


procedure talk_p_proc begin
 <...>
 saystart;
 if not once then begin
   sayreply("NodeWhat","What do you want?");
     <...>
 end else begin
   sayreply("NodeNothing","I have nothing more to spare with you");
    sayoption("Nothing","Empty");
 end
 <...>
end
--------------------------------

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

[��������]
��, ���� ��� ���������� ����, � ������� � ���� (�� ��������� say-�����, ����� ��������������� ����) - �������� ����. ���� �� ��������� "�����"/"�� � ����". ����� � ��� ������� ���������, ������� ��������� �� ��� ���� ���� � �� ����������� ����� �� ���-������� ���, � ������� ������ �������� ������������ � �������� ����, ��� ��� ���������. � �� ���� � �� ���� - ������ �� ���? ��������� �� ����? ��� say-����� ��� ���� - ��������� :-) � ���������? ���� �� ������ �������� ���� - �������� ������. �� ���������� :-)

� ��� say-�����. ���� ���� ����� - �����������, ���������� ������� saystartpos(1), saygetlastpos(1), sayscrollup(6), sayscrolldown(6), refreshmouse(1), setglobalmousefunc(4), mouseshape(3). � ������� - ����� ����������.
[��������]

����������: 7:07 - 28 ���., 2005
Wasteland Ghost
��������� ���� ����������

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

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

�����! ��, ����, ��-���� �����������. :) ������, ��� ���������� ���� � ���������� ��������, ����������� ;).

���, ������, �������� ������� say-������:
saystartpos
saystart
sayreply
saygotoreply
sayreplytitle
sayoption
sayend
sayquit
saymessage
sayreplyflags
sayoptionflags
sayreplywindow
sayoptionwindow
sayborder
sayscrollup
sayscrolldown
saysetspacing
sayoptioncolor
sayreplycolor
sayrestart
saygetlastpos
saymessagetimeout

���� �������������� ;). � ���� �� ������������ � ����������� ������� ��������� ���� ���� :). ������, ��������� ����� :).

����������: 10:45 - 28 ���., 2005
ABel
��������

������: Krasnoyarsk
�����������: ���. 2002

�����: 307 ���������

�����!
����� ��������� � �������, �� ��������� �� ��� ����� � FOP, ������ � ������������ ��������?

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

����������: 11:55 - 4 ���., 2005
Wasteland Ghost
��������� ���� ����������

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

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

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

����������: 12:01 - 4 ���., 2005
 

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


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