procedure start;
procedure critter_p_proc;
procedure destroy_p_proc;
procedure talk_p_proc;
procedure Brenden01;
procedure Brenden02;
procedure Brenden03;
procedure Brenden04;
procedure Brenden05;
procedure Brenden06;
procedure Brenden07;
procedure Brenden08;
procedure Brenden09;
procedure Brenden10;
procedure Brenden11;
procedure Brenden12;
procedure BrendenEnd;
variable hostile;
variable initialized;
procedure start
begin
if (not(initialized)) then begin
critter_add_trait(self_obj, 1, 6, 44);
critter_add_trait(self_obj, 1, 5, 62);
initialized := 1;
end
else begin
if (script_action == 12) then begin
call critter_p_proc;
end
else begin
if (script_action == 18) then begin
call destroy_p_proc;
end
else begin
if (script_action == 11) then begin
call talk_p_proc;
end
end
end
end
end
procedure critter_p_proc
begin
if (global_var(250)) then begin
hostile := 1;
end
if (tile_distance_objs(self_obj, dude_obj) > 12) then begin
hostile := 0;
end
if (hostile) then begin
set_global_var(250, 1);
hostile := 0;
attack_complex(dude_obj, 0, 1, 0, 0, 30000, 0, 0);
end
end
procedure destroy_p_proc
begin
set_global_var(250, 1);
rm_timer_event(self_obj);
if (source_obj == dude_obj) then begin
if (((global_var(160) + global_var(159)) >= 25) and ((global_var(159) > (2 * global_var(160))) or (global_var(156) == 1))) then begin
set_global_var(156, 1);
set_global_var(157, 0);
end
if (((global_var(160) + global_var(159)) >= 25) and ((global_var(160) > (3 * global_var(159))) or (global_var(157) == 1))) then begin
set_global_var(157, 1);
set_global_var(156, 0);
end
set_global_var(159, global_var(159) + 1);
if ((global_var(159) % 2) == 0) then begin
set_global_var(155, global_var(155) - 1);
end
end
end
procedure talk_p_proc
begin
start_gdialog(666, self_obj, 4, -1, -1);
gsay_start;
call Brenden01;
gsay_end;
end_dialogue;
end
procedure Brenden01
begin
if (local_var(0)) then begin
gsay_reply(666, 112);
end
else begin
set_local_var(0, 1);
gsay_reply(666, 102);
end
giq_option(-3, 666, 107, Brenden05, 50);
giq_option(4, 666, 103, Brenden02, 50);
giq_option(4, 666, 104, Brenden03, 50);
giq_option(4, 666, 105, Brenden04, 50);
if (local_var(1) == 0) then begin
giq_option(4, 666, 106, Brenden06, 50);
end
giq_option(4, 666, 113, BrendenEnd, 50);
end
procedure Brenden02
begin
gsay_reply(666, 109);
giq_option(0, 634, 106, Brenden01, 50);
end
procedure Brenden03
begin
gsay_reply(666, 110);
giq_option(0, 634, 106, Brenden01, 50);
end
procedure Brenden04
begin
gsay_reply(666, 111);
giq_option(0, 634, 106, Brenden01, 50);
end
procedure Brenden05
begin
gsay_message(666, 108, 50);
end
procedure Brenden06
begin
set_local_var(1, 1);
gsay_reply(666, 114);
giq_option(4, 666, 115, Brenden07, 49);
giq_option(4, 666, 116, Brenden12, 51);
giq_option(4, 666, 113, BrendenEnd, 50);
end
procedure Brenden07
begin
gsay_reply(666, 117);
giq_option(6, 666, 118, Brenden08, 50);
giq_option(4, 666, 119, Brenden11, 50);
giq_option(4, 666, 113, BrendenEnd, 50);
end
procedure Brenden08
begin
gsay_reply(666, 120);
giq_option(6, 666, 121, Brenden09, 49);
giq_option(4, 666, 113, BrendenEnd, 50);
end
procedure Brenden09
begin
gsay_reply(666, 122);
giq_option(6, 666, 123, Brenden10, 50);
giq_option(4, 666, 113, BrendenEnd, 50);
end
procedure Brenden10
begin
gsay_reply(666, 124);
giq_option(4, 666, 113, BrendenEnd, 50);
end
procedure Brenden11
begin
gsay_reply(666, 125);
giq_option(4, 666, 126, Brenden09, 49);
giq_option(4, 666, 113, BrendenEnd, 50);
end
procedure Brenden12
begin
gsay_message(666, 127, 51);
end
procedure BrendenEnd
begin
end
