Testing item

Discussion in 'Fallout General Modding' started by Lich, Jul 13, 2007.

  1. Lich

    Lich Water Chip? Been There, Done That

    829
    Dec 23, 2004
    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:

    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
    Code:
    {100}{}{OPTIONS:}
    {200}{}{DUMB (stats 3) }
    {400}{}{WISE (stats 8) }
    {500}{}{CHAMPION (skills 300) }
    {800}{}{END}
     
  2. MIB88

    MIB88 So Old I'm Losing Radiation Signs
    Modder

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