Code: Select all
;; Upgrading Weapons here:
(block (currentWeapon bestWeapon instWeap itmInHold)
(objEnumItems gSource "wI~l" instWeap
(block nil
(setq bestWeapon instWeap)
(setq currentWeapon instWeap)
)
)
(objEnumItems gSource "wUN~l" itmInHold
(block nil
(setq ItmHold itmInHold)
(if (ls (itmGetLevel bestWeap) (itmGetLevel itmInHold))
(setq bestWeapon itmInHold)
)
)
)
(block nil
(if (not (eq bestWeapon currentWeapon))
(block nil
(shpRemoveDevice gSource currentWeapon)
(shpInstallDevice gSource bestWeapon)
)
)
)
)