vcconnor.int
variable LVar3;
procedure Node015
begin
variable LVar0 := 0;
variable LVar1 := 0;
variable LVar2 := 0;
if (LVar3 == 4) then begin
set_map_var(0, game_time);
LVar1 := obj_carrying_pid_obj(dude_obj, 94);
// LVar2 := obj_carrying_pid_obj(dude_obj, 23);
LVar0 := rm_mult_objs_from_inven(dude_obj, LVar1, 1);
// LVar0 := rm_mult_objs_from_inven(dude_obj, LVar2, 4);
add_mult_objs_to_inven(self_obj, LVar1, 1);
set_global_var(0, global_var(0) + 20);
debug_msg("Player gains " + 20 + " Karma Points.");
set_global_var(37, 0);
set_global_var(38, 0);
set_global_var(39, 0);
set_global_var(40, 0);
set_global_var(41, 0);
set_global_var(42, 0);
set_global_var(43, 0);
set_global_var(44, 0);
set_global_var(45, 0);
tmp_gen_rep := global_var(0);
if (has_trait(0, dude_obj, 95)) then begin
tmp_gen_rep := global_var(0) * 2;
end
if (tmp_gen_rep >= 1000) then begin
set_global_var(37, 1);
end
else begin
if (tmp_gen_rep >= 750) then begin
set_global_var(38, 1);
end
else begin
if (tmp_gen_rep >= 500) then begin
set_global_var(39, 1);
end
else begin
if (tmp_gen_rep >= 250) then begin
set_global_var(40, 1);
end
else begin
if (tmp_gen_rep > -250) then begin
set_global_var(41, 1);
end
else begin
if (tmp_gen_rep > -500) then begin
set_global_var(42, 1);
end
else begin
if (tmp_gen_rep > -750) then begin
set_global_var(43, 1);
end
else begin
if (tmp_gen_rep > -1000) then begin
set_global_var(44, 1);
end
else begin
set_global_var(45, 1);
end
end
end
end
end
end
end
end
set_global_var(143, 4);
give_exp_points(800);
display_msg(message_str(14, 100) + 800 + message_str(14, 101));
gsay_reply(126, 139);
giq_option(4, 126, 140, Node999, 50);
end
else begin
LVar2 := obj_carrying_pid_obj(dude_obj, 23);
LVar0 := rm_mult_objs_from_inven(dude_obj, LVar2, 1);
LVar3 := (LVar3 + 1);
call Node015;
end
end
Same thing for "procedure Node033" and "procedure Node991".