;Check all Zombie Hearts, and turn them into Event Tokens

SendMessageToAll("The Zombie Heart Hunt has ended!",#MSG_SAY)

ZombieHeart = 758
EventToken = 759

user = GetNextOnlineUser(0)
While user <> 0
	Hearts = 0
	While HasItem(user,ZombieHeart) = 1
		TakeItem(user,ZombieHeart)
		Hearts = Hearts + 1
	Wend
	
	Tokens = Floor(Hearts/5)
	
	SendMessageToAll(GetUserName(user)+" has "+Hearts+" Zombie Hearts, giving him "+Tokens+" Event Tokens.",#MSG_EMOTE)
	
	While Tokens > 0
		GiveItem(user,EventToken)
		Tokens = Tokens - 1
	Wend
	
	Label END
	
	user = GetNextOnlineUser(user)
Wend
SendMessageToAll("All your Zombie Hearts are belong to us!",#MSG_SAY)
SendMessageToAll("Hope you enjoyed the hunt!",#MSG_SAY)

Continue = 1