procedure start;
procedure do_dialogue;
variable rndx;
variable hostile;
procedure start
begin
if (script_action == 11) then begin
call do_dialogue;
end
else begin
if (script_action == 12) then begin
if (hostile) then begin
hostile := 0;
attack_complex(dude_obj, 0, 1, 0, 0, 30000, 0, 0);
end
end
else begin
if (script_action == 4) then begin
hostile := 1;
end
else begin
if ((script_action == 21) or (script_action == 3)) then begin
script_overrides;
display_msg(message_str(4, 100));
end
end
end
end
end
procedure do_dialogue
begin
variable LVar0 := 0;
rndx := random(0, 6);
if (rndx == 0) then begin
LVar0 := message_str(4, 101);
end
if (rndx == 1) then begin
LVar0 := message_str(4, 102);
end
if (rndx == 2) then begin
LVar0 := message_str(4, 103);
end
if (rndx == 3) then begin
LVar0 := message_str(4, 104);
end
if (rndx == 4) then begin
LVar0 := message_str(4, 105);
end
if (rndx == 5) then begin
LVar0 := message_str(4, 106);
end
if (rndx == 6) then begin
LVar0 := message_str(4, 107);
end
float_msg(self_obj, LVar0, 0);
end
