"""
Created by: Joris Bontje <jbontje@suespammers.org>

This script implements the apply event for mailboxes. When a mailbox is
opened, check the player's mail and create objects if necessary.
"""

import Crossfire
import CFMail

activator=Crossfire.WhoIsActivator()
activatorname=activator.Name
whoami=Crossfire.WhoAmI()

mail = CFMail.CFMail()
total = mail.countmail(activatorname)

if total > 0:
	activator.Write("You have %d mail!" % total)
	elements = mail.receive(activatorname)
	for element in elements:
		type, fromname, message = element
		if type==1:
			msgob = whoami.CreateObject('scroll')
			msgob.Name='mail F: '+fromname+' T: '+activatorname
			msgob.NamePl=msgob.Name
			msgob.Message=message
			msgob.Value=0
		elif type==2:
			msgob = whoami.CreateObject('note')
			msgob.Name='newspaper D: '+fromname
			msgob.NamePl='newspapers D: '+fromname
			msgob.Message=message
			msgob.Value=0
		elif type==3:
			msgob = whoami.CreateObject('diploma')
			msgob.Name='mailwarning F: '+fromname+' T: '+activatorname
			msgob.NamePl='mailwarnings F: '+fromname+' T: '+activatorname
			msgob.Message=message
			msgob.Value=0
		else:
			Crossfire.Log(Crossfire.LogError, 'ERROR: unknown mailtype\n')
else:
	activator.Write("You haven't got any mail.")