4
Fork 0
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 

65 lines
1.9 KiB

Scriptname _00E_FS_ForgottenStories_Functions extends Quest
;=====================================================================================
; EVENTS
;=====================================================================================
;=====================================================================================
; FUNCTIONS
;=====================================================================================
Function TransmuteOre(Form akSource, MineOreScript oreREF, int iCurrentResources)
if akSource == _05E_FS_SaldrinsTouch
if oreREF.ResourceCountCurrent > 0
_00E_FS_MAGSaldrinsTouchM.Play(PlayerREF)
_00E_MAGEldritchCastIMOD.Apply()
Game.ShakeCamera(afStrength = 0.2)
float fGoldDivider = PlayerREF.GetAV("Alteration")/65
if fGoldDivider < 0.5
fGoldDivider = 0.5
endif
float iGoldAmount = ((oreREF.Ore.GetGoldValue()/1.5*fGoldDivider))*oreREF.ResourceCountTotal
oreREF.ResourceCountCurrent = 0
PlayerREF.AddItem(Gold001, iGoldAmount as int)
oreREF.damageObject(50)
;DrScOreOpen.play(oreREF)
oreREF.setDestroyed(true)
_00E_OreVeinsMined.SetValueInt(_00E_OreVeinsMined.GetValueInt() +1)
Else
MiningDepletedMessage.Show()
MAGFail.Play(PlayerREF)
EndIf
EndIf
EndFunction
;=====================================================================================
; PROPERTIES
;=====================================================================================
Actor Property PlayerREF Auto
Projectile Property AlterPosProjectile Auto
MiscObject Property Gold001 Auto
Sound Property _00E_FS_MAGSaldrinsTouchM Auto
Sound Property MAGFail Auto
Spell Property _05E_FS_SaldrinsTouch Auto
Message Property MiningDepletedMessage Auto
ImageSpaceModifier Property _00E_MAGEldritchCastIMOD Auto
GlobalVariable Property _00E_OreVeinsMined Auto