Testing item

[Lich]

Instead of start game with different character, its better test game in mapper using such item which modify character stats and skills. Add code to misc item with use option.

code:

procedure start;
procedure use_p_proc;
procedure talk_p_proc;
procedure book;
procedure Node999;
procedure dumb;
procedure wise;
procedure champion;

procedure start begin
end

procedure use_p_proc begin
call talk_p_proc;
end

procedure talk_p_proc begin 
start_gdialog(NAME,self_obj,4,-1,-1);
gSay_Start; 
call book;
gSay_End; 
end_dialogue; 
end

procedure book begin
Reply(100);
NOption(200,dumb,002);
NOption(400,wise,002);
NOption(500,champion,002);
NOption(800,Node999,002);
end

procedure Node999 begin
end

procedure dumb begin
set_critter_stat(dude_obj,0,-2);
set_critter_stat(dude_obj,1,-2);
set_critter_stat(dude_obj,2,-2);
set_critter_stat(dude_obj,3,-2);
set_critter_stat(dude_obj,4,-2);
set_critter_stat(dude_obj,5,-2);
set_critter_stat(dude_obj,6,-2);
Reply(200);
NOption(800,Node999,002);
end

procedure wise begin
set_critter_stat(dude_obj,0,3);
set_critter_stat(dude_obj,1,3);
set_critter_stat(dude_obj,2,3);
set_critter_stat(dude_obj,3,3);
set_critter_stat(dude_obj,4,3);
set_critter_stat(dude_obj,5,3);
set_critter_stat(dude_obj,6,3);
Reply(400);
NOption(800,Node999,002);
end

procedure champion begin
critter_mod_skill(dude_obj,0,300);
critter_mod_skill(dude_obj,1,300);
critter_mod_skill(dude_obj,2,300);
critter_mod_skill(dude_obj,3,300);
critter_mod_skill(dude_obj,4,300);
critter_mod_skill(dude_obj,5,300);
critter_mod_skill(dude_obj,6,300);
critter_mod_skill(dude_obj,7,300);
critter_mod_skill(dude_obj,8,300);
critter_mod_skill(dude_obj,9,300);
critter_mod_skill(dude_obj,10,300);
critter_mod_skill(dude_obj,11,300);
critter_mod_skill(dude_obj,12,300);
critter_mod_skill(dude_obj,13,300);
critter_mod_skill(dude_obj,14,300);
critter_mod_skill(dude_obj,15,300);
critter_mod_skill(dude_obj,16,300);
critter_mod_skill(dude_obj,17,300);
Reply(500);
NOption(800,Node999,002);
end

{100}{}{OPTIONS:}
{200}{}{DUMB (stats 3) }
{400}{}{WISE (stats 8) }
{500}{}{CHAMPION (skills 300) }
{800}{}{END}

 

[MIB88]

I like this. This could really be useful, since things in the mapper don't always act like they do ingame.