ScriptName aaaKimachuuMagicAttackSpellSet Extends ActiveMagicEffect

Actor Property PlayerRef Auto
FormList Property fl01 Auto
FormList Property fl02 Auto
FormList Property fl03 Auto
FormList Property fl04 Auto
Message Property mes01 Auto
Message Property mes02 Auto

Event OnEffectStart(Actor akTarget, Actor akCaster)
	Int iIndex = mes02.Show()
	If iIndex == 0
		Spell sp01 = PlayerRef.GetEquippedSpell(0)
		fl01.Revert()
		fl01.AddForm(sp01)
		mes01.Show()
	ElseIf iIndex == 1
		Spell sp01 = PlayerRef.GetEquippedSpell(0)
		fl02.Revert()
		fl02.AddForm(sp01)
		mes01.Show()
	ElseIf iIndex == 2
		Spell sp01 = PlayerRef.GetEquippedSpell(0)
		fl03.Revert()
		fl03.AddForm(sp01)
		mes01.Show()
	ElseIf iIndex == 3
		Spell sp01 = PlayerRef.GetEquippedSpell(0)
		fl04.Revert()
		fl04.AddForm(sp01)
		mes01.Show()
	ElseIf iIndex == 4
		String sF01 = fl01.GetAt(0).GetName()
		String sF02 = fl02.GetAt(0).GetName()
		String sF03 = fl03.GetAt(0).GetName()
		String sF04 = fl04.GetAt(0).GetName()
		Debug.MessageBox(" Slot1:" + sF01 + " Slot2:" + sF02 + " Slot3:" + sF03 + " SlotPA:" + sF04)
	Else
		;empty
	EndIf
EndEvent