#define SFALL_GVAR_PERK_HERCULES  (2127)

#define NAME_PERK_HERCULES  ("Name Hercules")
#define DESC_PERK_HERCULES  ("Desc Hercules")

#define PERK_ON   (1)
#define PERK_OFF  (0)

#define select_perk(Perk, Active, Image)          \
set_selectable_perk(message_str(NAME, Perk + 1000), Active, Image, message_str(NAME, Perk + 2000));

procedure start;
procedure Add_Selectable_Fake_Perks;
procedure Selected_Perk;
procedure Apply_Perks_Repeat;

procedure start begin
   if (game_loaded) then begin
      set_global_script_repeat(100);
   end
   //set_perkbox_title("Choose a trait");
   hide_real_perks;
   //perk_add_mode(1);
   //show_real_perks;
   display_msg("" + get_sfall_global_int(SFALL_GVAR_PERK_HERCULES));
   call Add_Selectable_Fake_Perks;
   call Selected_Perk;
   call Apply_Perks_Repeat;
end

procedure Add_Selectable_Fake_Perks begin
  // if(requierments for the perk to be selectable)then
  //    begin

                  //set_sfall_global(SFALL_GVAR_PERK_HERCULES, 0);
  //    end
  // else
  //    begin
  //       set_selectable_perk(NAME_PERK_HERCULES, 0, 3, DESC_PERK_HERCULES);
  //    end
  
  
  
    IF (get_sfall_global_int(SFALL_GVAR_PERK_HERCULES) == 0) THEN
    set_selectable_perk(NAME_PERK_HERCULES, PERK_ON, 3, DESC_PERK_HERCULES);
    else
    set_selectable_perk(NAME_PERK_HERCULES, PERK_OFF, 3, DESC_PERK_HERCULES);
    
    
end

procedure Selected_Perk begin
   if(has_fake_perk(NAME_PERK_HERCULES) AND (get_sfall_global_int(SFALL_GVAR_PERK_HERCULES) < 1)) then //need a var to stop it from being applied over and over
      begin
      add_mult_objs_to_inven(dude_obj, create_object_sid(6,0,0,-1), 1);
         set_sfall_global(SFALL_GVAR_PERK_HERCULES, get_sfall_global_int(SFALL_GVAR_PERK_HERCULES) + 1);
         display_msg("" + get_sfall_global_int(SFALL_GVAR_PERK_HERCULES));
      end
end

procedure Apply_Perks_Repeat
begin
   //if (if has perk and needs to be repeated(game load etc)>) then begin
   //   <bonuses>
   //end
end