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