#include <define.h>
#include <command.h>
procedure start begin end
procedure say_exit begin
display_msg("Quit");
SayQuit; //force destroy say-mode
end
procedure say_node3 begin
item_caps_adjust(dude_obj,100);
give_exp_points(500);
SayGoToReply("sm_node1"); //this will exit
end
procedure talk_p_proc begin
//**Optional**
SayReplyWindow(1,1,200,100,"pcx/reply_win.pcx"); //set reply window options
SayOptionWindow(210,1,200,100,"pcx/option_win.pcx");
sayoptionflags(0); //justify: 0-left, 1-right, 2-center
saysetspacing(15); //gap beetwen options
setfont(5); //.fon file
sayborder(7,10); //set hor/vert tabs for windows
AddKey('0',say_exit); //adding hadler for button press. press 0 to exit from say-dialog
//**Optional**
SayStart; //equal to gsay_start, starts say mode command sequence
sayreplytitle("Simple dialog"); //Optional
SayReply("sm_node1","Hello"); //create reply with ID="sm_node1"
SayOption("Bye","exit"); //to exit from dialog you need to set option link to not existent node
SayOption("Gimme exp",say_node3);
if dude_iq>7 then SayOption("Option for smart char","sm_node2");
SayReply("sm_node2","Click me to continue"); //there is only one option, so option window would *not* be showed
SayOption("Bye","exit");
SayEnd;
end
Raven_2 said:to dude_obj
>>Wow that's cool. Can you share any screen shots?
No. I`m to lazy to register free hosting for it
soundnormal 0x0000
soundloop 0x0001
sound8bit 0x0000
sound16bit 0x0002
soundmemory 0x0100
soundstreamed 0x0200
soundmono 0x1000
soundstereo 0x2000
variable pause;
variable ret;
procedure start begin end
procedure map_enter_p_proc begin
ret:=soundplay("music/back.wav",soundstereo bwor sound 16bit bwor soundstreamed bwor soundloop);
end
procedure talk_p_proc begin
if not pause then begin
pause:=1;
display_msg("Pause");
soundpause(ret);
end else begin
pause:=0;
display_msg("Resume");
soundresume(ret);
end
end
Raven_2 said:to dude_ob
I can send you script & sources if you want. Good way to learn how to use all that inerface- and say-mode stuff
to jargo
Do you can read in russian? There is a great doc about lifts engine offsets by Anchorite.
to dude_ob
I can send you script & sources if you want. Good way to learn how to use all that inerface- and say-mode stuff
Raven_2 said:to jargo and dude_obj Check your mailboxes.