Added "get/set_object_data" script functions (from Mr.Stalin)

Changed read_byte, read_short, read_int, and read_string functions to not require AllowUnsafeScripting.
Fixed a bug in the hero appearance mod that caused the player to disappear after saving the game when player's base FID is greater than 255.
2026-07-27 16:52:34 -07:00 · 2018-12-05 10:17:26 +08:00 · 2018-12-04 09:45:55 +08:00 · 2018-12-03 20:43:03 +08:00 · 2018-11-30 11:35:14 +08:00 · 2018-11-29 09:56:41 +08:00
242 changed files with 21256 additions and 30743 deletions
@@ -46,8 +46,6 @@ nb-configuration.xml
 *.user
 *.userosscache
 *.sln.docstates
 *.VC.db
 *.VC.opendb
 # User-specific files (MonoDevelop/Xamarin Studio)
 *.userprefs
@@ -7,8 +7,8 @@
 ; have an additional NoHardcode option in this file which can
 ; be used to remove their hardcoded effects, and add new stat/skill effects
-;Name=The name of the perk (max 63 characters)
+;Name=The name of the perk
-;Desc=The description of the perk (max 1023 characters)
+;Desc=The description of the perk
 ;Image=The line number (0-indexed) of the corresponding FRM in skilldex.lst
 ;Ranks=The number of perk levels
 ;Level=The minimum required level
@@ -1,12 +1,11 @@
 ;Controls the elevators
-;Image must match up with the image of an existing elevator (can be overrided in sfall 4.1.4/3.8.14 or newer)
+;Image must match up with the image of an existing elevator
 ;Make sure you specify the correct number of exit targets
 ;The maximum number of elevators is currently capped at 50
 ;Use the line number (0-indexed) of the corresponding FRM in intrface.lst to set the appearance of the elevator
 ;Override elevator 0
-[0]
+[000]
-;This elevator will use the settings of the original forth elevator
+;This elevator uses the frm of the original forth elevator
 Image=4
 ;Set up the first exit point
@@ -25,22 +24,3 @@ Elevation3=0
 Tile3=12944
 ;No forth exit point
 ;Override FRM images of elevator 0. Set ButtonsFrm to -1 to use default buttons from MainFrm
 MainFrm=143
 ButtonsFrm=-1
 ;An example of a new elevator
 [24]
 ;Set Image to 24 to create a new elevator type (0-23 are the original elevator types)
 Image=24
 ;Set the number of buttons
 ButtonCount=3
 ;Set the appearance of the elevator
 MainFrm=148
 ButtonsFrm=151
 ;Set up the exit points for all three buttons (see examples above)
@@ -1,91 +0,0 @@
 ;WeaponAnims codes
 ; 1 - Knife (D)
 ; 2 - Club (E)
 ; 3 - Sledgehammer (F) 
 ; 4 - Spear (G)
 ; 5 - Pistol (H)
 ; 6 - SMG (I)
 ; 7 - Rifle (J)
 ; 8 - Big Gun (K)
 ; 9 - Minigun (L)
 ; 10 - Rocket Launcher (M)
 ; 11-15 - sfall additional weapon animation codes
 ; This section maps 7 armor types to corresponding armor item PIDs
 [ArmorTypes]
 Jacket   = 74,265
 Leather  = 1,379
 Metal    = 2,240,380
 Power    = 3,232
 AdvPower = 348,349
 Combat   = 17,239,381
 Robe     = 113,524
 ; Default armor FIDs (the same for all NPCs)
 [Default]
 Power=16777217
 AdvPower=16777287
 Robe=16777218
 ; Sulik
 [1]
 PID=16777313
 WeaponAnims=1,3,4,6
 Default=16777280
 Leather=16777325
 Power=16777324
 Metal=16777323
 Jacket=16777321
 Combat=16777322
 ; Vic
 [2]
 PID=16777278
 WeaponAnims=1,5,7
 Default=16777307
 Jacket=16777329
 Combat=16777330
 Metal=16777331
 Power=16777332
 Leather=16777333
 ; Cassidy
 [3]
 PID=16777305
 WeaponAnims=4,5,7
 Default=16777354
 Leather=16777260
 Power=16777328
 Metal=16777327
 Jacket=16777351
 Combat=16777326
 ; Myron
 [4]
 PID=16777376
 WeaponAnims=1,5
 Default=16777304
 Leather=
 Power=16777349
 Combat=16777350
 ; Cat Jules
 [5]
 PID=16777734
 WeaponAnims=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
 Default=16777353
 Leather=16777347
 Metal=16777348
 Jacket=16777346
 Combat=16777226
 ; Kitsune
 [6]
 PID=16777724
 WeaponAnims=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
 Default=16777222
 Leather=16777221
 Metal=16777223
 Jacket=16777222
 Combat=16777219
@@ -1,55 +0,0 @@
 [Highlighting]
 ; DX scancode of a key to press to highlight items on the ground
 ;  42 - SHIFT key
 Key=42
 ; Set to 1 to also highlight containers
 Containers=1
 ; Set to 1 to also highlight lootable corpses
 Corpses=1
 ; Set to 1 to only highlight objects in the player's line-of-sight
 CheckLOS=0
 ; Set the color of outlines, available colors:
 ; 1 - glowing red
 ; 2 - red
 ; 4 - grey
 ; 8 - glowing green
 ; 16 - bright yellow
 ; 32 - dark yellow
 ; 64 - purple
 OutlineColor=16
 ; Motion Scanner mode:
 ; 0 - ignored
 ; 1 - requires Motion Scanner present in player inventory to activate highlighting
 ; 2 - requires Motion Scanner and also requires 1 charge on every use (depleted scanner will not work anymore)
 MotionScanner=0
 [CombatControl]
 ;Allows you to directly control other critters in combat
 ;Set to 0 to disable
 ;Set to 1 to control all critters in combat
 ;Set to 2 to control all party members
 ;If you want to control only specific critters, uncomment the PIDList line and set a comma delimited list of PIDs
 Mode=0
 ;PIDList=62,89,97,107,160,161
 ;Choose a notification box to display the name of the controlled critter above the interface bar
 ;Must be between 5 and (4 + the value of BoxBarCount in ddraw.ini)
 ;Set to 0 to disable
 DisplayName=0
 ;Set the color of display name, available colors:
 ;0 - green
 ;1 - red
 ;2 - white
 ;3 - yellow
 ;4 - dark yellow
 ;5 - blue
 ;6 - purple
 DisplayNameColor=0
@@ -1,5 +1,5 @@
 ;sfall configuration settings
-;v4.1.4
+;v3.8.13
 [Main]
 ;Change to 1 if you want to use command line args to tell sfall to use another ini file.
@@ -136,6 +136,23 @@ SpeedKey9=0x00
 ;Set to -1 for either ctrl key, -2 for either alt key or -3 for either shift key
 WindowScrollKey=0
 ;A key to press to toggle the highlighting of all items on the ground on the current map
 ;Set to 0 if you don't want a toggle key, or a DX scancode otherwise
 ToggleItemHighlightsKey=42
 ;Set to 1 to also highlight containers
 HighlightContainers=1
 ;Set the color of outlines, available colors:
 ;0x01 - glowing red
 ;0x02 - red
 ;0x04 - grey
 ;0x08 - glowing green
 ;0x10 - bright yellow
 ;0x20 - dark yellow
 ;0x40 - purple
 OutlineColor=0x10
 ;A key to press to reload your currently equipped weapon
 ;Set to 0 if you don't want a reload key, or a DX scancode otherwise
 ReloadWeaponKey=0
@@ -209,10 +226,6 @@ WorldMapSlots=0
 ;Modified: master_patches > critter_patches > patchXXX.dat > critter_dat > f2_res_patches > f2_res_dat > master_dat
 DataLoadOrderPatch=0
 ;Set to 1 to enable loading alternative dialog msg files from text/language/dialog_female/ for female PC
 ;Set to 2 to also load subtitle files from text/language/cuts_female/ for female PC
 FemaleDialogMsgs=0
 ;To change the default and starting player models, uncomment the next four lines.
 ;The default models can also be changed ingame via script
 ;MaleStartModel=hmwarr
@@ -409,6 +422,7 @@ UseScrollingQuestsList=1
 ;Use this line to modify the list of cities and their associated global variables used for city reputations
 ;Syntax is 'city id:global id', with each city/global pair separated by a comma.
 ;CityRepsCount=19
 ;CityRepsList=0:47,2:48,1:49,4:50,5:51,3:52,8:53,6:54,7:55,13:56,10:57,11:59,14:61,17:63,19:64,18:65,25:66,9:294,20:308
 ;Set this to a valid path to save a copy of the console contents
@@ -417,14 +431,6 @@ UseScrollingQuestsList=1
 ;Set to 1 to add additional pages of save slots
 ExtraSaveSlots=0
 ;To use more than one save slot for quick saving (F6 key) without picking a slot beforehand, set the next two lines
 ;AutoQuickSave sets how many save slots on a page you want to use for quick saving (valid range: 1..10)
 ;AutoQuickSavePage is the page number to use (valid range: 1..1000) if ExtraSaveSlots is enabled
 ;The quick saves will be rotated from the first slot on the page to the n-th slot
 ;Set to 0 to disable. AutoQuickSave will use the current selected page if AutoQuickSavePage is disabled
 AutoQuickSave=0
 AutoQuickSavePage=0
 ;Set to 1 to speed up the HP/AC counter animations
 ;Set to 2 to update the HP/AC counters instantly
 ;Set to 3 to update the AC counter instantly when switching to other controlled critters in combat
@@ -432,6 +438,7 @@ SpeedInterfaceCounterAnims=0
 ;These lines allow you to control the karma FRMs displayed on the character screen
 ;Number of KarmaPoints should be 1 less than number of KarmaFRMs
 ;KarmaFRMsCount=3
 ;KarmaFRMs=47,48,49
 ;KarmaPoints=-100,100
@@ -442,11 +449,8 @@ ScienceOnCritters=0
 ;Default is 166
 SpeedInventoryPCRotation=166
-;Modify the number of the extra interface boxes available to modders. (Default is 5, and the maximum is 95)
+;Uncomment to set the text colour of the extra 5 interface boxes
-BoxBarCount=5
+;The line must contain a 5 digits, each either a 0 for green or 1 for red
 ;Uncomment to set the text colour of the extra interface boxes
 ;The line must contain the same number of digits as the value of BoxBarCount, each either a 0 for green or 1 for red
 ;BoxBarColours=00000
 ;Set to 1 to fix the bug that caused bonus HtH damage to not be applied correctly.
@@ -499,6 +503,7 @@ CritterInvSizeLimit=100
 ;Some bit flags to alter behaviour of the motion sensor
 ;1 - Allow sensor use on automap when motion sensor is in pack rather than hands
 ;2 - Motion sensor doesn't require charges
 ;4 - Motion sensor is required to use the item highlight feature
 MotionScannerFlags=1
 ;Set to non-0 to adjust the maximum encounter table size
@@ -579,6 +584,14 @@ DialogPanelAnimDelay=33
 ;Controls the speed of pipboy alarm clock animations (lower - faster; valid range: 0..127)
 PipboyTimeAnimDelay=50
 ;Allows you to directly control other critters in combat
 ;Set to 0 to disable
 ;Set to 1 to control all critters in combat
 ;Set to 2 to control all party members
 ;If you want to control only specific critters, uncomment the ControlCombatPIDList line and set a comma delimited list of PIDs
 ControlCombat=0
 ;ControlCombatPIDList=62,89,97,107,160,161
 ;Set to 1 to stack empty identical weapons, no matter what type of ammo was loaded before
 StackEmptyWeapons=0
@@ -601,10 +614,6 @@ EnableMusicInDialogue=0
 ;Set to 1 to prevent the player from running while sneaking without Silent Running perk
 DontTurnOffSneakIfYouRun=0
 ;Changes the distance at which the player will switch to walking when trying to use objects (valid range: 0..3)
 ;Set to 0 to disable switching. (Default is 3)
 UseWalkDistance=3
 ;Set to 1 to fix the bug that unable to sell used geiger counters or stealth boys
 CanSellUsedGeiger=1
@@ -616,9 +625,6 @@ CarChargingFix=1
 InstantWeaponEquip=0
 ;To add additional game msg files, uncomment the next line and set a comma delimited list of filenames without .msg extension
 ;By default, the files will have consecutive numbers assigned beginning with 0
 ;You can use the syntax 'filename:number' to manually assign numbers to specific msg files, with each pair separated by a comma
 ;If a file after the specified pair does not have a number assigned, it will have the next consecutive number from the last pair
 ;You need to use the message_str_game script function to get messages from the files
 ;ExtraGameMsgFileList=
@@ -628,9 +634,6 @@ NumbersInDialogue=0
 ;Set to 1 to use Fallout's normal text font instead of DOS-like font on the world map
 WorldMapFontPatch=0
 ;Set to 1 to keep the selected attack mode when moving the weapon between active item slots
 KeepWeaponSelectMode=1
 ;Set to 1 to display full item description for weapon/ammo in barter screen
 FullItemDescInBarter=0
@@ -640,30 +643,12 @@ DisplaySwiftLearnerExp=1
 ;Set to 1 to display party member's current level/AC/addict flag on the combat control panel
 PartyMemberExtraInfo=0
 ;Set to 1 to fix the bug of using First Aid/Doctor skills when using them on the player
 ;This will cause the party member to apply his/her skills when you use First Aid/Doctor skills on the player, but only if
 ;the player is standing next to the party member
 ;Note that because the related engine function is not fully implemented, enabling this option without a global script
 ;that overrides First Aid/Doctor functions has very limited usefulness
 PartyMemberSkillFix=0
 ;Set to 1 to skip loading game settings from a saved game, except for the game/combat difficulty settings
 ;Set to 2 to also skip loading the game/combat difficulty settings
 SkipLoadingGameSettings=0
 ;Set to 1 to prevent the inventory/loot/automap interfaces from being placed on top of other script-created windows
 InterfaceDontMoveOnTop=0
 ;Set to 1 to display sfall built-in credits at the bottom of credits.txt contents instead of at the top
 CreditsAtBottom=0
 ;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 [Scripts]
 ;Comma-separated list of masked paths to load global scripts from
 ;Only use single slash \ as directory separator
 ;Paths outside of scripts folder are supported
 GlobalScriptPaths=scripts\gl*.int,scripts\sfall\gl*.int
 ;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 [Debugging]
 ;Extra sfall configuration settings that can be used by modders
@@ -707,12 +692,6 @@ DontDeleteProtos=0
 ;Set to 1 to give scripts direct access to Fallout's address space, and to make arbitrary calls into Fallout's code
 AllowUnsafeScripting=0
 ;Set to 1 to force sfall to search for global scripts every time the game loads rather than only once on the first game start
 AlwaysFindScripts=0
 ;Set to 1 to force sfall to inject all hooks code into the game, even if corresponding hook scripts don't exist
 InjectAllGameHooks=0
 ;These options control what output is saved in the debug log (sfall-log.txt)
 ;Prints messages duing sfall initialization
@@ -1,44 +0,0 @@
 /*
   Example implementation of the algorithm of how the game engine sets the explosive timer.
 */
 #include "..\..\scripting_docs\headers\sfall.h"
 #include "..\..\scripting_docs\headers\define_lite.h"
 // from CONDTION.H
 #define ROLL_CRITICAL_FAILURE (0)
 #define ROLL_FAILURE          (1)
 #define ROLL_SUCCESS          (2)
 #define ROLL_CRITICAL_SUCCESS (3)
 procedure start;
 procedure start begin
   if game_loaded then begin
      register_hook(HOOK_EXPLOSIVETIMER);
   end else begin
      variable
         time   := get_sfall_arg,
         result := ROLL_CRITICAL_FAILURE;
      if has_trait(TRAIT_PERK, dude_obj, PERK_demolition_expert_perk) then
         result := ROLL_SUCCESS;
      else begin
         result := roll_vs_skill(dude_obj, SKILL_TRAPS, 0);
      end
      if (result) then begin
         if (result == ROLL_FAILURE) then
            time /= 2;
         else begin // success or critical success
            result := ROLL_SUCCESS;
         end
      end else begin  // critical failure
         time := 0;
         result := ROLL_FAILURE;
      end
      set_sfall_return(time);
      set_sfall_return(result);  // failure/success
   end
 end
@@ -1,60 +0,0 @@
 /*
   Example implementation of the algorithm of how the game engine checks if one critter sees another critter.
   NOTE: the AllowUnsafeScripting option must be enabled.
 */
 #include "..\headers\define.h"
 #include "..\headers\command.h"
 #include "..\headers\sfall\sfall.h"
 #include "..\headers\sfall\define_extra.h"
 #define can_see_(source, target)    call_offset_r2(0x412BEC, source, target)
 #define obj_dist_(target, source)   call_offset_r2(0x48BBD4, target, source)
 procedure start;
 procedure start begin
   if game_loaded then begin
      register_hook(HOOK_WITHINPERCEPTION);
   end else begin
      variable
         source := get_sfall_arg,
         target := get_sfall_arg,
         original := get_sfall_arg,
         hookType := get_sfall_arg, /* new arg */
         result := 0,
         distance;
      if target then begin
         distance := get_critter_stat(source, STAT_pe);
         if can_see_(source, target) then begin
            distance *= 5;
            if (get_flags(target) bwand FLAG_TRANSGLASS) then distance /= 2;
         end else if combat_is_initialized then begin
            distance *= 2;
         end
         if (target == dude_obj) then begin
            if sneak_success then begin
               distance /= 4;
               if has_skill(target, SKILL_SNEAK) > 120 then distance -= 1;
            end else if dude_is_sneaking then begin
               distance := distance * 2 / 3;
            end
         end
         if obj_dist_(target, source) <= distance then result := 1;
         // example
         if (result) then begin
            display_msg("hs_withinperception: " + obj_name(source) + " sees " + obj_name(target) + " [original: " + original + " script: " + result + "]");
         end else begin
            display_msg("hs_withinperception: " + obj_name(source) + " does not see " + obj_name(target) + " [original: " + original + " script: " + result + "]");
         end
      end
      //set_sfall_return(result);
   end
 end
@@ -1,134 +0,0 @@
 /**
   Item Highlight mod.
   Previously was part of sfall itself, now a separate mod.
   Features:
   - highlighting items, containers (optional) and lootable corpses (optional) on the ground
   - configurable hotkey is used to trigger highlight
   - only objects in direct line-of-sight of player are highlighted (optional)
   - motion scanner is required to enable highlight (optional)
   - motion scanner charges are decreased on each use (optional)
   NOTE: this script requires compiler from sfall modderspack with -s option
   (short circuit evaluation)
   version 1.0
 **/
 #include "main.h"
 //#include "..\..\..\!SRC\headers\define.h"
 #define CRITTER_IS_DEAD    (1)
 #define PID_MOTION_SENSOR  (59)
 #define NO_HIGHLIGHT(obj)  (get_flags(obj) bwand FLAG_NOHIGHLIGHT)
 #define NO_STEAL(obj)      (get_proto_data(obj_pid(obj), PROTO_CR_FLAGS) bwand CFLG_NOSTEAL)
 variable configSection := "Highlighting";
 variable highlightKey;
 variable isHighlight;
 variable alsoContainer;
 variable alsoCorpse;
 variable checkLOS;
 variable outlineColor;
 variable motionScanner;
 variable highlightFailMsg1;
 variable highlightFailMsg2;
 procedure ToggleHighlightObject(variable obj, variable enable) begin
   if obj and (not enable or not checkLOS or not obj_blocking_line(dude_obj, tile_num(obj), BLOCKING_TYPE_SHOOT)) then begin
      if (alsoContainer and obj_item_subtype(obj) == item_type_container) or (not NO_HIGHLIGHT(obj)) then begin
         if (enable) then set_outline(obj, outlineColor);
         else set_outline(obj, 0);
      end
   end
 end
 procedure ToggleHighlight(variable enable) begin
   variable obj;
   foreach obj in list_as_array(LIST_GROUNDITEMS) begin
      if obj != outlined_object then begin
         call ToggleHighlightObject(obj, enable);
      end
   end
   if (alsoCorpse) then begin
      foreach obj in list_as_array(LIST_CRITTERS) begin
         if critter_state(obj) == CRITTER_IS_DEAD and not NO_STEAL(obj) then begin
            call ToggleHighlightObject(obj, enable);
         end
      end
   end
   tile_refresh_display;
 end
 procedure KeyPressHandler begin
   variable pressed := get_sfall_arg,
            scanCode := get_sfall_arg,
            scanner, charges;
   if scanCode == highlightKey and not(get_game_mode bwand INTFACELOOT) then begin
      if pressed then begin
         isHighlight := true;
         if motionScanner then begin
            scanner := obj_carrying_pid_obj(dude_obj, PID_MOTION_SENSOR);
            if scanner then begin
               if motionScanner >= 2 then begin
                  charges := get_weapon_ammo_count(scanner);
                  if charges > 0 then begin
                     set_weapon_ammo_count(scanner, charges - 1);
                     intface_redraw;
                     call ToggleHighlight(true);
                  end else begin
                     display_msg(highlightFailMsg2);
                  end
               end else begin
                  call ToggleHighlight(true);
               end
            end else begin
               display_msg(highlightFailMsg1);
            end
         end else begin
            call ToggleHighlight(true);
         end
      end else begin
         isHighlight := false;
         call ToggleHighlight(false);
      end
   end
 end
 procedure CombatTurnHandler begin
   if isHighlight then begin
      isHighlight := false;
      call ToggleHighlight(false);
   end
 end
 procedure GameModeChangeHandler begin
   if isHighlight and (get_game_mode bwand INTFACELOOT) then begin
      isHighlight := false;
      call ToggleHighlight(false);
   end
 end
 procedure start begin
   if game_loaded and (sfall_ver_major >= 4) then begin
      call InitConfigs;
      highlightKey := GetConfig(configSection, "Key", 0);
      alsoContainer := GetConfig(configSection, "Containers", 0);
      alsoCorpse := GetConfig(configSection, "Corpses", 0);
      checkLOS := GetConfig(configSection, "CheckLOS", 0);
      outlineColor := GetConfig(configSection, "OutlineColor", 16);
      if (outlineColor < 1) then outlineColor := 64;
      motionScanner := GetConfig(configSection, "MotionScanner", 0);
      highlightFailMsg1 := Translate("HighlightFail1", "You aren't carrying a motion sensor.");
      highlightFailMsg2 := Translate("HighlightFail2", "Your motion sensor is out of charge.");
      register_hook_proc(HOOK_KEYPRESS, KeyPressHandler);
      register_hook_proc(HOOK_COMBATTURN, CombatTurnHandler);
      register_hook_proc(HOOK_GAMEMODECHANGE, GameModeChangeHandler);
   end
 end
@@ -1,183 +0,0 @@
 /*
   NPC Armor Appearance mod
   Used to replace the scripted part of B-Team mod.
   Appropriate graphics are required for this mod to work.
   Can be adopted to any mod by adjusting armor PIDs, allowed weapon anim codes, NPC PIDs and NPC FIDs in INI file.
   NOTE: this script requires compiler from sfall modderspack with -s option
   (short circuit evaluation)
   version 1.1
 */
 #include "main.h"
 #define IS_ARMOR(item)  (obj_type(item) == OBJ_TYPE_ITEM and obj_item_subtype(item) == item_type_armor)
 #define IS_WEAPON(item)  (obj_type(item) == OBJ_TYPE_ITEM and obj_item_subtype(item) == item_type_weapon)
 variable
   modIni := "npcarmor.ini",
   defaultFids,
   armorPidMap, // maps armor PID to it's "type" - leather armor, metal, power armor, etc.
   npcMap,
   altWeapon,
   unWieldWeapon;
 procedure check_armor_change(variable critter, variable item, variable isWorn) begin
   variable npc, armorType, fid;
   if (npcMap[obj_pid(critter)]) then begin
      npc := npcMap[obj_pid(critter)];
      if (not isWorn) then begin
         // display_msg("No armor fid: " + npc["Default"]);
         return npc["Default"];
      end else if (item) then begin
         armorType := armorPidMap[obj_pid(item)];
         fid := npc[armorType] or defaultFids[armorType];
         if (fid == 0 or fid == -1) then fid := npc["Default"];
         // display_msg("Change fid: " + fid + ", npc: " + npc[armorType] + ", default:" + defaultFids[armorType]);
         return fid;
      end
   end
   return -1;
 end
 procedure check_weapon_change(variable critter, variable item, variable isWield) begin
   variable npc, newWeaponAnim, weaponAnimList, i;
   if (npcMap[obj_pid(critter)]) then begin
      npc := npcMap[obj_pid(critter)];
      if isWield then begin
         newWeaponAnim := get_proto_data(obj_pid(item), PROTO_WP_ANIM);
         weaponAnimList := string_split(npc["WeaponAnims"], ",");
         if newWeaponAnim then begin // anim code 0 - none/unarmed
            foreach (i in weaponAnimList) begin
               if (newWeaponAnim == atoi(i)) then return -1;
            end
            return 0;
         end
      end else begin
         unWieldWeapon := obj_pid(item);
      end
   end
   return -1;
 end
 procedure search_alt_weapon(variable critter) begin
   variable obj, res, i := 0;
   obj := inven_ptr(critter, 0);
   while (obj) do begin
      if (obj_item_subtype(obj) == item_type_weapon) then begin
         if (unWieldWeapon == 0 or unWieldWeapon != obj_pid(obj)) then begin
            res := check_weapon_change(critter, obj, 1);
            if (res == -1) then begin
               altWeapon := obj;
               wield_obj_critter(critter, obj);
               altWeapon := 0;
               break;
            end
         end
      end
      i++;
      obj := inven_ptr(critter, i);
   end
   unWieldWeapon := 0;
 end
 // for NPCs when they change armor/weapon themselves
 procedure invenwield_handler begin
   variable critter, item, fid, slot, isWorn, canWield;
   critter := get_sfall_arg;
   item := get_sfall_arg;
   slot := get_sfall_arg;
   isWorn := get_sfall_arg;
   if (critter and item and slot == INVEN_TYPE_WORN) then begin
      fid := check_armor_change(critter, item, isWorn);
      if (fid != -1) then begin
         art_change_fid_num(critter, fid);
      end
      return;
   end
   if (critter and item and slot == INVEN_TYPE_RIGHT_HAND) then begin
      if (altWeapon == item) then return;
      canWield := check_weapon_change(critter, item, isWorn);
      set_sfall_return(canWield);
      if (canWield != -1) then begin
         call search_alt_weapon(critter);
      end
   end
 end
 // when changing armor from inventory while controlling other NPCs
 procedure adjustfid_handler begin
   variable fid, armor;
   if (dude_obj != real_dude_obj) then begin
      armor := critter_inven_obj(dude_obj, INVEN_TYPE_WORN);
      fid := check_armor_change(dude_obj, armor, armor != 0);
      if (fid != -1) then begin
         set_sfall_return(fid);
      end
   end
 end
 // when changing weapon from inventory while controlling other NPCs
 procedure inventorymove_handler begin
   variable slot, item, canWield;
   slot := get_sfall_arg;
   item := get_sfall_arg;
   if (dude_obj != real_dude_obj) then begin
      if (IS_WEAPON(item) and (slot == INVEN_TYPE_RIGHT_HAND or slot == INVEN_TYPE_LEFT_HAND)) then begin
         canWield := check_weapon_change(dude_obj, item, item != 0);
         set_sfall_return(canWield);
      end
   end
 end
 procedure start begin
   variable sect, sects, armorTypes, armorType, npc, pid, pids, i;
   if game_loaded and (sfall_ver_major >= 4) then begin
      register_hook_proc(HOOK_INVENWIELD, invenwield_handler);
      register_hook_proc(HOOK_ADJUSTFID, adjustfid_handler);
      register_hook_proc(HOOK_INVENTORYMOVE, inventorymove_handler);
      defaultFids := get_ini_section(modIni, "Default");
      fix_array(defaultFids);
      foreach (armorType: i in defaultFids) begin
         defaultFids[armorType] := atoi(i);
      end
      armorPidMap := create_array_map;
      armorTypes := get_ini_section(modIni, "ArmorTypes");
      foreach (armorType: pids in armorTypes) begin
         pids := string_split(pids, ",");
         foreach (pid in pids) begin
            armorPidMap[atoi(pid)] := armorType;
         end
      end
      npcMap := create_array_map;
      i := 1;
      sect := get_ini_section(modIni, ""+i);
      while (sect.PID) do begin
         npc := create_array_map;
         npc["WeaponAnims"] := sect["WeaponAnims"];
         npc["Default"] := atoi(sect["Default"]);
         foreach (armorType: pids in armorTypes) begin
            if (sect[armorType]) then begin
               npc[armorType] := atoi(sect[armorType]);
            end
         end
         npcMap[atoi(sect.PID)] := npc;
         i += 1;
         sect := get_ini_section(modIni, ""+i);
      end
   end
 end
@@ -1,94 +0,0 @@
 /*
   NPC Combat Control
   Allows to take control of your party member or other NPCs during combat
   NOTE: this script requires compiler from sfall modderspack with -s option
   (short circuit evaluation)
   version 1.0
 */
 #include "..\headers\define.h"
 #include "..\headers\command.h"
 #include "main.h"
 variable
   configSection := "CombatControl",
   controlMode,
   pidList,
   displayName,
   displayNameColor,
   maxBoxCount,
   inControl := false,
   hasGeckoSkinning := false;
 procedure combatturn_handler begin
   variable
      status := get_sfall_arg,
      critter := get_sfall_arg,
      arg3 := get_sfall_arg,
      pid;
   // display_msg("Combat Turn: " + status + ", by "  + obj_name(critter) + ", arg3: " + arg3);
   pid := obj_pid(critter);
   if (status == 1
      and (len_array(pidList) == 0 or scan_array(pidList, pid bwand 0xFFFFFF) != -1)
      and (controlMode == 1 or party_member_obj(pid))) then begin
      if not(critter == real_dude_obj) then begin
         set_dude_obj(critter);
         if hasGeckoSkinning then critter_add_trait(critter, TRAIT_PERK, PERK_gecko_skinning_perk, 1);
         inControl := true;
      end
      if inControl then begin
         // center the screen on the controlled critter and remove roof tiles
         move_to(dude_obj, dude_tile, dude_elevation);
         if (displayName and critter != real_dude_obj) then begin
            set_iface_tag_text(displayName, obj_name(critter), displayNameColor);
            show_iface_tag(displayName);
         end
      end
   end else if inControl then begin
      set_dude_obj(real_dude_obj);
      if displayName then hide_iface_tag(displayName);
   end
 end
 procedure gamemodechange_handler begin
   if has_trait(TRAIT_PERK, real_dude_obj, PERK_gecko_skinning_perk) then hasGeckoSkinning := true;
   if not(get_game_mode BWAND COMBAT) then inControl := false;
 end
 procedure inventorymove_handler begin
   if (inControl and get_sfall_arg == 3) then begin // armor slot
      if (obj_pid(dude_obj) == PID_MARCUS or proto_data(obj_pid(dude_obj), cr_body_type) != CR_BODY_BIPED) then begin
         display_msg(message_str_game(GAME_MSG_PROTO, 675));
         set_sfall_return(true);
      end
   end
 end
 procedure start begin
   if (game_loaded and sfall_ver_major >= 4) then begin
      set_perk_ranks(PERK_gecko_skinning_perk, 1);
      set_perk_level(PERK_gecko_skinning_perk, 999); // prevent it from appearing in the perk selection window
      controlMode := GetConfig("CombatControl", "Mode", 0);
      if (controlMode > 2) then controlMode := 0;
      if (controlMode > 0) then begin
         pidList := GetConfigListInt("CombatControl", "PIDList");
         fix_array(pidList);
         maxBoxCount := get_ini_setting("ddraw.ini|Misc|BoxBarCount") + 4;
         displayName := GetConfig("CombatControl", "DisplayName", 0);
         displayNameColor := GetConfig("CombatControl", "DisplayNameColor", 0);
         if (maxBoxCount < 9) then maxBoxCount := 9;
         if (displayName < 5 or displayName > maxBoxCount) then displayName := 0;
         register_hook_proc(HOOK_COMBATTURN, combatturn_handler);
         register_hook_proc(HOOK_GAMEMODECHANGE, gamemodechange_handler);
         register_hook_proc(HOOK_INVENTORYMOVE, inventorymove_handler);
      end
   end
 end
@@ -1,57 +0,0 @@
 #include "..\scripting\headers\sfall.h"
 #include "..\scripting\headers\define_lite.h"
 #include "..\scripting\headers\define_extra.h"
 #include "..\scripting\headers\lib.arrays.h"
 #include "..\scripting\headers\lib.strings.h"
 // #include "..\scripting\headers\lib.inven.h"
 variable ini := "sfall-mods.ini";
 variable translationIni;
 // Gets the integer value from ddraw.ini
 procedure GetConfig(variable section, variable key, variable def) begin
   variable val := get_ini_setting(ini + "|" + section + "|" + key);
   if val == -1 then val := def;
   return val;
 end
 // Gets the string value from ddraw.ini
 procedure GetConfigStr(variable section, variable key, variable def) begin
   variable val := get_ini_string(ini + "|" + section + "|" + key);
   if val == -1 or val == "" then val := def;
   return val;
 end
 // Gets the value from ddraw.ini as a temp array of strings
 procedure GetConfigList(variable section, variable key) begin
   variable val := get_ini_string(ini + "|" + section + "|" + key);
   if val == -1 or val == "" then return [];
   return string_split(val, ",");
 end
 // Gets the value from ddraw.ini as a temp array of ints
 procedure GetConfigListInt(variable section, variable key) begin
   variable arr, i, item;
   arr := GetConfigList(section, key);
   for (i := 0; i < len_array(arr); i++) begin
      arr[i] := atoi(arr[i]);
   end
   return arr;
 end
 // Translates given string using Translations.ini
 procedure Translate(variable id, variable def) begin
   variable str := get_ini_string(translationIni + "|Sfall|" + id);
   if not str or (strlen(str) == 0) then begin
      str := def;
   end
   return str;
 end
 procedure InitConfigs begin
   translationIni := GetConfigStr("Main", "TranslationsINI", "./Translations.ini");
 end
@@ -1,2 +0,0 @@
 To install each mod, copy *.int file into your <Fallout Dir>\data\scripts\ folder.
 For gl_npcarmor.int, you also need to copy npcarmor.ini to your Fallout directory.
@@ -151,16 +151,14 @@ Example:
 *mixed means any type
-> int create_array(int size, int flags):
+> int create_array(int size, int nothing):
 - creates permanent array (but not "saved")
 - if size is >= 0, creates list with given size
 - if size == -1, creates map (associative array)
- if size == -1 and flags == 2, creates a "lookup" map in which the values of existing keys are read-only and can't be updated.
+- second argument is not used yet, just use 0
 This type of array allows you to store a zero (0) key value
 - NOTE: in earlier versions (up to 4.1.3/3.8.13) the second argument is not used, just use 0
 - returns arrayID (valid until array is deleted)
-> int temp_array(int size, int flags):
+> int temp_array(int size, int nothing):
 - works exactly like "create_array", only created array becomes "temporary"
 > void fix_array(int arrayID):
@@ -171,7 +169,6 @@ This type of array allows you to store a zero (0) key value
 - if used on list, "key" must be numeric and within valid index range (0..size-1)
 - if used on map, key can be of any type
 - to "unset" a value from map, just set it to zero (0)
 - NOTE: to add a value of 0 for the key, use the float value of 0.0
 - this works exactly like statement:
    arrayID[key] := value;
@@ -185,7 +182,7 @@ This type of array allows you to store a zero (0) key value
 - changes array size
 - applicable to maps too, but only to reduce elements
 - there are number of special negative values of "size" which perform various operations on the array,
-use macros sort_array, sort_array_reverse, reverse_array, shuffle_array from sfall.h header
+use macros sort_array, sort_array_reverse, reverse_array, shuffle_array  from sfall.h header
 > void free_array(int arrayID):
 - deletes any array
@@ -267,80 +267,6 @@
 #define WPN_ANIM_MINIGUN            (0x09) // (L)
 #define WPN_ANIM_ROCKET_LAUNCHER    (0x0A) // (M)
 // AI data parameters
 #define AI_CAP_AGGRESSION              (0)
 #define AI_CAP_AREA_ATTACK_MODE        (1)
 #define AI_CAP_ATTACK_WHO              (2)
 #define AI_CAP_BEST_WEAPON             (3)
 #define AI_CAP_CHEM_USE                (4)
 #define AI_CAP_DISPOSITION             (5)
 #define AI_CAP_DISTANCE                (6)
 #define AI_CAP_MAX_DISTANCE            (7)
 #define AI_CAP_MIN_HP                  (8)
 #define AI_CAP_MIN_TO_HIT              (9)
 #define AI_CAP_HURT_TOO_MUCH           (10) // DAM_BLIND/DAM_CRIP_* flags
 #define AI_CAP_RUN_AWAY_MODE           (11)
 #define AI_CAP_SECONDARY_FREQ          (12)
 #define AI_CAP_CALLED_FREQ             (13)
 #define AI_CAP_CHEM_PRIMARY_DESIRE     (14) // array pid list
 // AI attack area mode values
 #define ai_area_always                 (0)
 #define ai_area_sometimes              (1)
 #define ai_area_be_sure                (2)
 #define ai_area_be_careful             (3)
 #define ai_area_be_absolutely_sure     (4)
 // AI attack who mode values
 #define ai_attack_no_pref              (-1)
 #define ai_attack_whomever_attacking_me (0)
 #define ai_attack_strongest            (1)
 #define ai_attack_weakest              (2)
 #define ai_attack_whomever             (3)
 #define ai_attack_closest              (4)
 // AI run away mode values
 #define ai_run_away_none               (0)
 #define ai_run_away_coward             (1)
 #define ai_run_away_finger_hurts       (3)
 #define ai_run_away_bleeding           (4)
 #define ai_run_away_not_feeling_good   (5)
 #define ai_run_away_tourniquet         (6)
 #define ai_run_away_never              (7)
 // AI disposition values
 #define ai_disposition_none            (0)
 #define ai_disposition_custom          (1)
 #define ai_disposition_coward          (2)
 #define ai_disposition_defensive       (3)
 #define ai_disposition_aggressive      (4)
 #define ai_disposition_berserk         (5)
 // AI distance values
 #define ai_distance_stay_close         (0)
 #define ai_distance_charge             (1)
 #define ai_distance_snipe              (2)
 #define ai_distance_on_your_own        (3)
 #define ai_distance_stay               (4)
 // AI best weapon pref values
 #define ai_weapon_no_pref              (0)
 #define ai_weapon_melee                (1)
 #define ai_weapon_melee_over_ranged    (2)
 #define ai_weapon_ranged_over_melee    (3)
 #define ai_weapon_ranged               (4)
 #define ai_weapon_unarmed              (5)
 #define ai_weapon_unarmed_over_thrown  (6)
 #define ai_weapon_random               (7)
 // AI chem use mode values
 #define ai_chem_clean                  (0)
 #define ai_chem_stims_when_hurt_little (1) // use only stimpak/super stimpak/healing powder
 #define ai_chem_stims_when_hurt_lots   (2) // use only stimpak/super stimpak/healing powder
 #define ai_chem_sometimes              (3)
 #define ai_chem_anytime                (4)
 #define ai_chem_always                 (5)
 // common object data offsets
 #define OBJ_DATA_TILENUM            (0x04)
 #define OBJ_DATA_CUR_FRM            (0x18) // current frame number
@@ -358,49 +284,4 @@
 #define OBJ_DATA_DAMAGE_LAST_TURN   (0x48)
 #define OBJ_DATA_WHO_HIT_ME         (0x54)
 // compute attack result data offsets
 #define C_ATTACK_SOURCE             (0x00)
 #define C_ATTACK_HIT_MODE           (0x04)
 #define C_ATTACK_WEAPON             (0x08)
 #define C_ATTACK_DAMAGE_SOURCE      (0x10) // Amount
 #define C_ATTACK_FLAGS_SOURCE       (0x14) // see DAM_* values in define.h
 #define C_ATTACK_ROUNDS             (0x18)
 #define C_ATTACK_TARGET             (0x20)
 #define C_ATTACK_BODY_PART          (0x28)
 #define C_ATTACK_DAMAGE_TARGET      (0x2C) // Amount
 #define C_ATTACK_FLAGS_TARGET       (0x30) // see DAM_*
 #define C_ATTACK_KNOCKBACK_VALUE    (0x34)
 #define C_ATTACK_MAIN_TARGET        (0x38)
 #define C_ATTACK_AROUND_NUMBER      (0x3C) // The number of critters around the target
 #define C_ATTACK_TARGET1            (0x40)
 #define C_ATTACK_TARGET2            (0x44)
 #define C_ATTACK_TARGET3            (0x48)
 #define C_ATTACK_TARGET4            (0x4C)
 #define C_ATTACK_TARGET5            (0x50)
 #define C_ATTACK_TARGET6            (0x54)
 #define C_ATTACK_BODY_PART1         (0x58)
 #define C_ATTACK_BODY_PART2         (0x5C)
 #define C_ATTACK_BODY_PART3         (0x60)
 #define C_ATTACK_BODY_PART4         (0x64)
 #define C_ATTACK_BODY_PART5         (0x68)
 #define C_ATTACK_BODY_PART6         (0x6C)
 #define C_ATTACK_DAMAGE_TARGET1     (0x70) // Amount
 #define C_ATTACK_DAMAGE_TARGET2     (0x74)
 #define C_ATTACK_DAMAGE_TARGET3     (0x78)
 #define C_ATTACK_DAMAGE_TARGET4     (0x7C)
 #define C_ATTACK_DAMAGE_TARGET5     (0x80)
 #define C_ATTACK_DAMAGE_TARGET6     (0x84)
 #define C_ATTACK_FLAGS_TARGET1      (0x88) // see DAM_*
 #define C_ATTACK_FLAGS_TARGET2      (0x8C)
 #define C_ATTACK_FLAGS_TARGET3      (0x90)
 #define C_ATTACK_FLAGS_TARGET4      (0x94)
 #define C_ATTACK_FLAGS_TARGET5      (0x98)
 #define C_ATTACK_FLAGS_TARGET6      (0x9C)
 #define C_ATTACK_KNOCKBACK_VALUE1   (0xA0)
 #define C_ATTACK_KNOCKBACK_VALUE2   (0xA4)
 #define C_ATTACK_KNOCKBACK_VALUE3   (0xA8)
 #define C_ATTACK_KNOCKBACK_VALUE4   (0xAC)
 #define C_ATTACK_KNOCKBACK_VALUE5   (0xB0)
 #define C_ATTACK_KNOCKBACK_VALUE6   (0xB4)
 #endif // DEFINE_EXTRA_H
@@ -20,9 +20,6 @@
 /*
  Generic array functions
 */
 // returns True if the specified key exists in the associative array
 procedure map_contains_key(variable arrayMap, variable key);
 // push new item at the end of array, returns array
 procedure array_push(variable array, variable item);
@@ -154,14 +151,6 @@ procedure load_collection(variable name);
 #define ARRAY_SET_BLOCK_SIZE  (10)
 procedure map_contains_key(variable arrayMap, variable key) begin
   variable i;
   for (i := 0; i < len_array(arrayMap); i++) begin
      if (array_key(arrayMap, i) == key) then return true;
   end
   return false;
 end
 /**
 * Returns first index of zero value
 */
@@ -17,8 +17,6 @@
 #define INTFACEUSE  (0x8000)
 #define INTFACELOOT (0x10000)
 #define BARTER      (0x20000)
 #define HEROWIN     (0x40000)
 #define DIALOGVIEW  (0x80000)
 //Valid arguments to register_hook
 #define HOOK_TOHIT            (0)
@@ -47,19 +45,6 @@
 #define HOOK_WITHINPERCEPTION (23)
 #define HOOK_INVENTORYMOVE    (24)
 #define HOOK_INVENWIELD       (25)
 #define HOOK_ADJUSTFID        (26)
 #define HOOK_COMBATTURN       (27)
 #define HOOK_CARTRAVEL        (28)
 #define HOOK_SETGLOBALVAR     (29)
 #define HOOK_RESTTIMER        (30)
 #define HOOK_GAMEMODECHANGE   (31)
 #define HOOK_USEANIMOBJ       (32)
 #define HOOK_EXPLOSIVETIMER   (33)
 #define HOOK_DESCRIPTIONOBJ   (34)
 #define HOOK_USESKILLON       (35)
 #define HOOK_ONEXPLOSION      (36)
 #define HOOK_SUBCOMBATDAMAGE  (37)
 #define HOOK_SETLIGHTING      (38)
 //Valid arguments to list_begin
 #define LIST_CRITTERS    (0)
@@ -117,10 +102,6 @@
 #define create_array_map            (create_array(-1, 0))
 // create temporary map
 #define temp_array_map              (temp_array(-1, 0))
 // create persistent lookup map (see arrays.txt for details)
 #define create_lookup_map           (create_array(-1, 2))
 // create temporary lookup map
 #define temp_lookup_map             (temp_array(-1, 2))
 // true if array is map, false otherwise
 #define array_is_map(x)             (array_key(x, -1) == 1)
 // returns temp list with names of all arrays saved with save_array() in alphabetical order
@@ -133,18 +114,14 @@
 #define array_exists(array)         (len_array(array) != -1)
 // remove all elements from array
 #define clear_array(array)          resize_array(array, 0)
-// sort array or map by key in ascending order
+// sort array in ascending order
 #define sort_array(array)           resize_array(array, -2)
-// sort array or map by key in descending order
+// sort array in descending order
 #define sort_array_reverse(array)   resize_array(array, -3)
-// reverse elements in list/map
+// reverse elements in list
 #define reverse_array(array)        resize_array(array, -4)
-// randomly shuffle elements in list/map
+// randomly shuffle elements in list
 #define shuffle_array(array)        resize_array(array, -5)
 // sort map in ascending order by value
 #define sort_map_value(array)       resize_array(array, -6)
 // sort map in descending order by value
 #define sort_map_value_desc(array)  resize_array(array, -7)
 // remove element from map or just replace value with 0 for list
 #define unset_array(array, item)    set_array(array, item, 0)
 // same as "key_pressed" but checks VK codes instead of DX codes
@@ -156,10 +133,6 @@
 #define set_attack_is_explosion(x)            metarule2_explosions(4, x, 0)
 #define set_attack_is_explosion_fire          set_attack_is_explosion(DMG_fire)
 #define set_explosion_radius(grenade, rocket) metarule2_explosions(5, grenade, rocket)
 #define get_explosion_damage(itemPid)         metarule2_explosions(6, itemPid, 0)
 #define set_dynamite_damage(minDmg, maxDmg)   metarule2_explosions(7, minDmg, maxDmg)
 #define set_plastic_damage(minDmg, maxDmg)    metarule2_explosions(8, minDmg, maxDmg)
 #define set_explosion_max_targets(x)          metarule2_explosions(9, x, 0)
 #define GAME_MSG_COMBAT      (0)
@@ -202,11 +175,6 @@
 #define CURSOR_COMMAND      (1)
 #define CURSOR_TARGETING    (2)
 //Valid flags for set_rest_mode
 #define RESTMODE_DISABLED   (1) // disable resting on all maps
 #define RESTMODE_STRICT     (2) // disable resting on maps with "can_rest_here=No" in Maps.txt, even if there are no other critters
 #define RESTMODE_NO_HEALING (4) // disable healing during resting
 #define mstr_combat(x)      (message_str_game(GAME_MSG_COMBAT, x))
 #define mstr_ai(x)          (message_str_game(GAME_MSG_AI, x))
 #define mstr_scrname(x)     (message_str_game(GAME_MSG_SCRNAME, x))
@@ -239,51 +207,33 @@
 #define attack_is_aimed                                 sfall_func0("attack_is_aimed")
 #define car_gas_amount                                  sfall_func0("car_gas_amount")
 #define create_win(winName, x, y, w, h)                 sfall_func5("create_win", winName, x, y, w, h)
 #define create_win_flag(winName, x, y, w, h, flag)      sfall_func6("create_win", winName, x, y, w, h, flag)
 #define critter_inven_obj2(obj, type)                   sfall_func2("critter_inven_obj2", obj, type)
 #define dialog_message(text)                            sfall_func1("dialog_message", text)
 #define dialog_obj                                      sfall_func0("dialog_obj")
 #define display_stats                                   sfall_func0("display_stats")
 #define exec_map_update_scripts                         sfall_func0("exec_map_update_scripts")
 #define floor2(value)                                   sfall_func1("floor2", value)
 #define get_can_rest_on_map(map, elev)                  sfall_func2("get_can_rest_on_map", map, elev)
 #define get_current_inven_size(obj)                     sfall_func1("get_current_inven_size", obj)
 #define get_cursor_mode                                 sfall_func0("get_cursor_mode")
 #define get_flags(obj)                                  sfall_func1("get_flags", obj)
 #define get_ini_section(file, sect)                     sfall_func2("get_ini_section", file, sect)
 #define get_ini_sections(file)                          sfall_func1("get_ini_sections", file)
 #define get_map_enter_position                          sfall_func0("get_map_enter_position")
 #define get_object_ai_data(obj, aiParam)                sfall_func2("get_object_ai_data", obj, aiParam)
 #define get_object_data(obj, offset)                    sfall_func2("get_object_data", obj, offset)
 #define get_outline(obj)                                sfall_func1("get_outline", obj)
 #define get_string_pointer(text)                        sfall_func1("get_string_pointer", text)
 #define intface_hide                                    sfall_func0("intface_hide")
 #define intface_is_hidden                               sfall_func0("intface_is_hidden")
 #define intface_redraw                                  sfall_func0("intface_redraw")
 #define intface_show                                    sfall_func0("intface_show")
 #define inventory_redraw(invSide)                       sfall_func1("inventory_redraw", invSide)
 #define item_make_explosive(pid, aPid, min, max)        sfall_func4("item_make_explosive", pid, aPid, min, max)
 #define item_weight(obj)                                sfall_func1("item_weight", obj)
 #define lock_is_jammed(obj)                             sfall_func1("lock_is_jammed", obj)
 #define loot_obj                                        sfall_func0("loot_obj")
 #define obj_under_cursor(crSwitch, inclDude)            sfall_func2("obj_under_cursor", crSwitch, inclDude)
 #define outlined_object                                 sfall_func0("outlined_object")
 #define real_dude_obj                                   sfall_func0("real_dude_obj")
 #define set_can_rest_on_map(map, elev, value)           sfall_func3("set_can_rest_on_map", map, elev, value)
 #define set_car_intface_art(artIndex)                   sfall_func1("set_car_intface_art", artIndex)
 #define set_cursor_mode(mode)                           sfall_func1("set_cursor_mode", mode)
 #define set_dude_obj(critter)                           sfall_func1("set_dude_obj", critter)
 #define set_flags(obj, flags)                           sfall_func2("set_flags", obj, flags)
 #define set_iface_tag_text(tag, text, color)            sfall_func3("set_iface_tag_text", tag, text, color)
 #define set_ini_setting(setting, value)                 sfall_func2("set_ini_setting", setting, value)
 #define set_map_enter_position(tile, elev, rot)         sfall_func3("set_map_enter_position", tile, elev, rot)
 #define set_object_data(obj, offset, value)             sfall_func3("set_object_data", obj, offset, value)
 #define set_outline(obj, color)                         sfall_func2("set_outline", obj, color)
 #define set_rest_heal_time(time)                        sfall_func1("set_rest_heal_time", time)
 #define set_rest_mode(mode)                             sfall_func1("set_rest_mode", mode)
 #define set_unjam_locks_time(time)                      sfall_func1("set_unjam_locks_time", time)
 #define spatial_radius(obj)                             sfall_func1("spatial_radius", obj)
 #define tile_refresh_display                            sfall_func0("tile_refresh_display")
 #define unjam_lock(obj)                                 sfall_func1("unjam_lock", obj)
--- a/Show More
+++ b/Show More
		`@@ -1,2 +0,0 @@`
			`To install each mod, copy *.int file into your <Fallout Dir>\data\scripts\ folder.`
			`For gl_npcarmor.int, you also need to copy npcarmor.ini to your Fallout directory.`