Scriptname aaaKimachuuPenaltyExample1 Extends ReferenceAlias

MiscObject Property Gold001 Auto

Event OnInit()
	RegisterForModEvent("PenaltyEvent", "PenaltyEventFunction")
EndEvent

Event PenaltyEventFunction(string eventName, string strArg, float numArg, Form sender)
	Int currentGold = Game.GetPlayer().GetItemCount(Gold001)
	Game.GetPlayer().RemoveItem(Gold001, currentGold/2, True)
EndEvent