Hacking and Lockpicking Everything

scn HackingLockpickBumpSCRIPT

ref rObject
ref rTemp
int sSkill
int sLock
int sSkillDiff
int sMoreWords
int sOriginalWords

BEGIN GameMode

	set rObject to GetCrosshairRef

	if (rObject != rTemp)
	set rTemp to rObject
		if (rObject.GetType == 23)		;terminal

			set sSkill to Player.GetAV Science
			set sLock to rObject.GetLockLevel

			if (sLock == 1)
				set sLock to 25
			elseif (sLock == 2)
				set sLock to 50
			elseif (sLock == 3)
				set sLock to 75
			elseif (sLock == 4)
				set sLock to 100
			elseif (sLock == 5)
				set sLock to 255
			endif

			printc "Object of type terminal found. Lock level is %.0f." sLock

			if (sLock > sSkill)
				printc "Player skill lower than lock skill."
				set sSkillDiff to (sLock - sSkill) / 5
				set sOriginalWords to GetGameSetting iHackingMinWords
				printc "Original iHackingMinWords %.0f" sOriginalWords
				if (sSkillDiff < sOriginalWords)
					set sMoreWords to (sOriginalWords) + sSkillDiff
					printc "Setting iHackingMinWords to %.0f." sMoreWords
					con_SetGameSetting iHackingMinWords sMoreWords
				endif
			endif
			if (Player.HasPerk HackSkillBoostPerk == 0)
				printc "Increasing Skill."			;Runs to here, but doesn't add perk.
				Player.AddPerk HackSkillBoostPerk
			endif
		else
			if (Player.HasPerk HackSkillBoostPerk)
				printc "Deacreasing Skill"
				Player.RemovePerk HackSkillBoostPerk
			endif
			con_SetGameSetting iHackingMinWords 5
		endif

		if (rObject.GetType == 27)	;container
			if (Player.HasPerk HackSkillBoostPerk == 0)
				Player.AddPerk HackSkillBoostPerk
			endif
		else
			if (Player.HasPerk HackSkillBoostPerk)
				Player.RemovePerk HackSkillBoostPerk
			endif
		endif
	endif

	if (player.HasPerk HackSkillBoostPerk)
		ShowMessage DefaultDebugIncrement01
	endif

END