Oblivion Game Data

ScriptName SEAbGrummite1Script

Short RegenOn
Short RainGenOn

Begin ScriptEffectStart
	RemoveSpell SEAbGrummite1RegenWater
	RemoveSpell SEAbGrummiteRegenRain
End

Begin ScriptEffectUpdate
	If RegenOn == 0
		If IsSwimming == 1
			RemoveSpell SEAbGrummite1RegenWater
			AddSpell SEAbGrummite1RegenWater
			Set RegenOn to 1
		EndIf
	Else
		If IsSwimming == 0 
			RemoveSpell SEAbGrummite1RegenWater
			Set RegenOn to 0
		EndIf
	EndIf
	If RainGenOn == 0
		If IsInInterior == 0
			If IsRaining == 1 && IsSwimming == 0
				RemoveSpell SEAbGrummiteRegenRain
				AddSpell SEAbGrummiteRegenRain
				Set RainGenOn to 1
			EndIf
		EndIf
	Else
		If IsRaining == 0 || IsInInterior == 1
			RemoveSpell SEAbGrummiteRegenRain
			Set RainGenOn to 0
		EndIf		
	EndIf
End

Begin ScriptEffectFinish
	RemoveSpell SEAbGrummite1RegenWater
	RemoveSpell SEAbGrummiteRegenRain
End