Cleanup dead code, ref https://forums.bgforge.net/viewtopic.php?t=450

Author: burner1024

scripts_src/maps/ncr1.ssl

@@ -67,8 +67,6 @@ procedure start;
 procedure map_enter_p_proc;
 procedure map_update_p_proc;
 
-procedure Initial_Inven;
-
 variable inited := 0;
 
 procedure start begin
@@ -94,13 +92,9 @@ end
 
 procedure map_enter_p_proc begin
    variable critter;
-//   override_map_start_hex(14095,0,2);
-   if (map_first_run) then begin
-   end
    if (global_var(GVAR_LOAD_MAP_INDEX) == 5) then begin
      fadein(1);
-     //set_global_var(global_var(GVAR_LOAD_MAP_INDEX), 0);
-     set_global_var(GVAR_LOAD_MAP_INDEX, 0); //edit by killap
+     set_global_var(GVAR_LOAD_MAP_INDEX, 0);
      override_map_start_hex(ROPE_LOAD_POS, 0, 2);
    end
 
@@ -118,7 +112,3 @@ end
 procedure map_update_p_proc begin
    Lighting;
 end
-
-
-procedure Initial_Inven begin
-end

scripts_src/maps/sfchina.ssl

@@ -40,8 +40,6 @@ procedure start;
 procedure map_enter_p_proc;
 procedure map_update_p_proc;
 
-procedure Initial_Inven;
-
 export variable i_table_swap    := 0;
 export variable i_gun_table_1   := 0;
 export variable i_gun_table_2   := 0;
@@ -70,7 +68,6 @@ end
 
 
 procedure map_enter_p_proc begin
-//   override_map_start_hex(14095,0,2);
 
    //added by killap - prevent car from disappearing if the car runs out of gas while on the town circle
    if ((car_current_town == AREA_CAR_OUTTA_GAS) and (cur_map_index != MAP_CAR_DESERT) and (car_out_of_fuel)) then begin
@@ -83,8 +80,6 @@ procedure map_enter_p_proc begin
       Check_Create_Car(CAR_SAN_FRANCISCO_HEX, CAR_SAN_FRANCISCO_ELEV)
    //end added
 
-   //Check_Create_Car(CAR_SAN_FRANCISCO_HEX, CAR_SAN_FRANCISCO_ELEV)
-
    //added by killap
    if (map_first_run) then begin
        display_msg(mstr(100));
@@ -97,7 +92,3 @@ end
 procedure map_update_p_proc begin
    Lighting;
 end
-
-
-procedure Initial_Inven begin
-end

scripts_src/ncr/scduppo.ssl

@@ -225,8 +225,6 @@ procedure talk_p_proc begin
    set_local_var(LVAR_Herebefore, 1);
 
    move_obj_inven_to_obj(self_obj, i_duppo_table);
-   //self_caps_adjust(item_caps_total(i_duppo_table)); -comment out by NovaRain
-   //item_caps_adjust(i_duppo_table, -self_caps); -comment out by NovaRain
 end
 
 /* This procedure gets called only on the death of this NPC. Special things like
@@ -523,5 +521,3 @@ procedure Node013 begin
    Reply(146);
    NOption(147, Node999, 4);
 end
-
-//xxxxxxxxxxxxxxxxxxxx

scripts_src/ncr/sidtbl.ssl

@@ -210,9 +210,3 @@ procedure map_enter_p_proc begin
       end
    end
 end
-
-/***************************************************************************
-   This procedure is used should the player try to pry the door open using a
-   crowbar or some similar instrument.
-***************************************************************************/
-

scripts_src/sanfran/fcgunmer.ssl

@@ -195,9 +195,6 @@ procedure talk_p_proc begin
 
    GetReaction;
 
-   //set_local_var(LVAR_Money, self_caps); -comment out by killap
-   //self_caps_adjust(-local_var(LVAR_Money)); -comment out by killap
-
    move_obj_inven_to_obj(self_obj, swap_obj);
    move_obj_inven_to_obj(i_table_swap, self_obj);
 
@@ -210,9 +207,6 @@ procedure talk_p_proc begin
    self_caps_adjust(caps);
    item_caps_adjust(obj, -caps);
 
-   //self_caps_adjust(local_var(LVAR_Money)); -comment out by killap
-   //set_local_var(LVAR_Money, 0); -comment out by killap
-
    if (san_fran_flag(SF_SHI_ENEMY)) then begin
       start_gdialog(NAME,self_obj,4,-1,-1);
       gSay_Start;
@@ -241,20 +235,8 @@ procedure talk_p_proc begin
       end_dialogue;
    end
 
-   //set_local_var(LVAR_Money, self_caps); -comment out by killap
-   //self_caps_adjust(-local_var(LVAR_Money)); -comment out by killap
-
    move_obj_inven_to_obj(self_obj, i_table_swap);
    move_obj_inven_to_obj(swap_obj, self_obj);
-   /*if () then begin
-      start_gdialog(NAME,self_obj,4,-1,-1);
-      gSay_Start;
-         call Node001;
-      gSay_End;
-      end_dialogue;
-   end*/
-   //self_caps_adjust(local_var(LVAR_Money)); -comment out by killap
-   //set_local_var(LVAR_Money, 0); -comment out by killap
 end
 
 /* This procedure gets called only on the death of this NPC. Special things like
@@ -419,6 +401,3 @@ procedure Node014 begin
    Reply(151);
    NOption(152, Node998, 4);
 end
-
-
-//xxxxxxxxxxxxxxxxxxxx

scripts_src/sanfran/fclaocho.ssl

@@ -251,9 +251,6 @@ procedure talk_p_proc begin
 
    GetReaction;
 
-   //set_local_var(LVAR_Money, self_caps); -comment out by killap
-   //self_caps_adjust(-local_var(LVAR_Money)); -comment out by killap
-
    move_obj_inven_to_obj(self_obj, swap_obj);
    move_obj_inven_to_obj(i_lao_table_swap, self_obj);
 
@@ -266,9 +263,6 @@ procedure talk_p_proc begin
    self_caps_adjust(caps);
    item_caps_adjust(obj, -caps);
 
-   //self_caps_adjust(local_var(LVAR_Money)); -comment out by killap
-   //set_local_var(LVAR_Money, 0); -comment out by killap
-
    if (san_fran_flag(SF_SHI_ENEMY)) then begin
       call Node020;
    end else if (struggle_flag(STRUG_OZ9DEAD)) then begin
@@ -285,14 +279,8 @@ procedure talk_p_proc begin
       end_dialogue;
    end
 
-   //set_local_var(LVAR_Money, self_caps); -comment out by killap
-   //self_caps_adjust(-local_var(LVAR_Money)); -comment out by killap
-
    move_obj_inven_to_obj(self_obj, i_lao_table_swap);
    move_obj_inven_to_obj(swap_obj, self_obj);
-
-   //self_caps_adjust(local_var(LVAR_Money)); -comment out by killap
-   //set_local_var(LVAR_Money, 0); -comment out by killap
 end
 
 /* This procedure gets called only on the death of this NPC. Special things like
@@ -743,6 +731,3 @@ procedure Node902 begin
    else
       call Node050;
 end
-//end added
-
-//xxxxxxxxxxxxxxxxxxxx