procedure start;
procedure do_stuff;
procedure look_at_p_proc;
procedure description_p_proc;
procedure use_p_proc;
procedure start
begin
if (script_action == 6) then begin
call use_p_proc;
end
else begin
if (script_action == 3) then begin
call description_p_proc;
end
else begin
if (script_action == 21) then begin
call look_at_p_proc;
end
end
end
end
procedure do_stuff
begin
script_overrides;
display_msg(message_str(0, 102));
end
procedure look_at_p_proc
begin
script_overrides;
display_msg(message_str(0, 101));
end
procedure description_p_proc
begin
script_overrides;
display_msg(message_str(0, 100));
end
procedure use_p_proc
begin
call do_stuff;
end