procedure start;
procedure do_dialogue;
procedure tylier01;
procedure tylier02;
procedure tylier03;
procedure tylier04;
procedure tylier05;
procedure tylier06;
procedure tylier07;
procedure tylier08;
procedure tylier09;
procedure tylierend;
procedure start
begin
if (script_action == 11) then begin
call do_dialogue;
end
else begin
if ((script_action == 21) or (script_action == 3)) then begin
script_overrides;
float_msg(self_obj, message_str(309, 100), 0);
end
end
end
procedure do_dialogue
begin
start_gdialog(309, self_obj, 4, -1, -1);
gsay_start;
if (global_var(140)) then begin
call tylier01;
end
else begin
call tylier09;
end
gsay_end;
end_dialogue;
end
procedure tylier01
begin
gsay_reply(309, 101);
giq_option(-3, 309, 102, tylier02, 50);
giq_option(-3, 309, 103, tylier02, 50);
giq_option(4, 309, 104, tylier02, 50);
giq_option(5, 309, message_str(309, 105) + proto_data(obj_pid(dude_obj), 1) + message_str(309, 106), tylier02, 50);
giq_option(5, 309, 107, tylier03, 50);
end
procedure tylier02
begin
gsay_message(309, 108, 50);
end
procedure tylier03
begin
gsay_reply(309, 109);
giq_option(5, 309, 110, tylier04, 50);
giq_option(5, 309, 111, tylier04, 50);
giq_option(5, 309, 112, tylierend, 50);
end
procedure tylier04
begin
gsay_reply(309, 113);
giq_option(5, 309, 114, tylier05, 50);
giq_option(5, 309, 115, tylierend, 50);
giq_option(6, 309, 116, tylier06, 50);
end
procedure tylier05
begin
gsay_message(309, 117, 50);
end
procedure tylier06
begin
gsay_reply(309, 118);
if (global_var(141)) then begin
giq_option(5, 309, 119, tylier07, 50);
end
giq_option(5, 309, 120, tylier06, 50);
giq_option(5, 309, 121, tylier06, 50);
giq_option(5, 309, 122, tylier06, 50);
giq_option(0, 309, 123, tylierend, 50);
end
procedure tylier07
begin
gsay_message(309, 124, 50);
set_global_var(140, 1);
end
procedure tylier08
begin
gsay_reply(309, 125);
giq_option(5, 309, 126, tylier06, 50);
giq_option(0, 309, 127, tylierend, 50);
end
procedure tylier09
begin
gsay_message(309, 128, 50);
end
procedure tylierend
begin
end
