/*
Copyright 1998-2003 Interplay Entertainment Corp.
All rights reserved.
*/
/*
Name: xipanl
Location: Abbey
Description: note panel
Log:
Created: Mai 21 2004
Updated:
*/
/* Include Files */
#include "..\headers\define.h"
#define NAME SCRIPT_XIPANL
#include "..\headers\command.h"
#include "..\headers\Abbey.h"
/* Standard Script Procedures */
procedure start;
procedure look_at_p_proc;
procedure description_p_proc;
procedure map_enter_p_proc;
procedure map_exit_p_proc;
procedure timed_event_p_proc;
procedure use_p_proc;
/* Script Specific Procedure Calls */
procedure Node999; // This Node is Always Ending
procedure Node001;
procedure Node002;
procedure Node003;
procedure Node004;
procedure Node005;
procedure Node006;
procedure Node007;
procedure Node008;
procedure Node009;
procedure Node010;
/* Local Variables which are saved. All Local Variables need to be
prepended by LVAR_ */
#define LVAR_Flags (0)
#define LVAR_ABBEY_BB_NOTE (1)
#define LVAR_Remove_Post_time (2)
#define LVAR_First_Read (3)
procedure start begin
end
procedure timed_event_p_proc begin
end
procedure map_enter_p_proc begin
if (is_loading_game == false) then begin
end
if (map_first_run) then begin
set_local_var(LVAR_First_Read,0);
end
end
procedure map_exit_p_proc begin
end
procedure use_p_proc begin
if (dude_is_stupid) then begin
call Node010;
end else begin
start_dialog_at_node(Node001);
end
end
procedure look_at_p_proc begin
script_overrides;
display_mstr(100);
end
procedure description_p_proc begin
script_overrides;
display_mstr(101);
set_examined;
end
procedure Node999 begin
end
procedure Node001 begin
if (local_var(LVAR_First_Read) == 0) then begin
set_local_var(LVAR_First_Read,1);
Reply(104);
end else begin
Reply(105);
end
NOption(106, Node002, 004); //resh
NOption(107, Node003, 004); //berth
NOption(108, Node004, 004); //lien
NOption(109, Node005, 004); //swoo
NOption(200, Node999, 004);
end
procedure Node002 begin
Reply(110);
NOption(202, Node006, 004);
NOption(201, Node001, 004);
NOption(200, Node999, 004);
end
procedure Node003 begin
Reply(111);
NOption(202, Node007, 004);
NOption(201, Node001, 004);
NOption(200, Node999, 004);
end
procedure Node004 begin
Reply(112);
NOption(202, Node008, 004);
NOption(201, Node001, 004);
NOption(200, Node999, 004);
end
procedure Node005 begin
Reply(113);
NOption(203, Node009, 004);
NOption(201, Node001, 004);
NOption(200, Node999, 004);
end
procedure Node006 begin
Reply(114);
NOption(201, Node001, 004);
NOption(200, Node999, 004);
end
procedure Node007 begin
Reply(115);
NOption(201, Node001, 004);
NOption(200, Node999, 004);
end
procedure Node008 begin
Reply(116);
NOption(201, Node001, 004);
NOption(200, Node999, 004);
end
procedure Node009 begin
Reply(117);
NOption(201, Node001, 004);
NOption(200, Node999, 004);
end
procedure Node010 begin
display_mstr(102);
dude_floater(103);
end