# say.py -- script for say event of IPO employees
#
# Copyright (C) 2002 Joris Bontje
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
# The author can be reached via e-mail at jbontje@suespammers.org
#
# Updated to use new path functions in CFPython - Todd Mitchell

#### Constants ####

# Price values in platinum coins.
priceWritingPen = 100
priceScrollOfLiteracy = 5000
priceMailScroll = 2
priceFactor = 50    # platinum to silver conversion

# Define several different types of packages on sale.
# The format is: <name to display to player> : [ price (in plat), max weight, archetype, name ]
packages = {'bag' : [ 5, 5000, 'bag', 'IPO-bag'],
            'package' : [ 45, 50000, 'package', 'IPO-package' ],
            'carton' : [ 90, 100000, 'carton_box_1', 'IPO-carton' ] }

# Map storage for packages
storage_map = '/planes/IPO_storage'
storage_x = 2
storage_y = 2

import CFLog
import Crossfire
import string

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

x = activator.X
y = activator.Y

log = CFLog.CFLog()
text = Crossfire.WhatIsMessage().split()

# Have a conversation with the player about what's on sale.
if Crossfire.MatchString("buy", text[0]):
    whoami.Say("Well, we have a few items for sale. You can also send out letters and packages to your friends. What can I interest you in?")
    Crossfire.AddReply("items", "What items do you sell?")
    Crossfire.AddReply("letter", "I'd like to send a letter.")
    Crossfire.AddReply("mail", "I want to send a package.")

elif Crossfire.MatchString("items", text[0]):
    whoami.Say("Here are the items on sale:\n" +
            " - pen (%i platinum)\n" % priceWritingPen +
            " - literacy scroll (%i platinum)\n" % priceScrollOfLiteracy +
            "Please tell me what you'd like to buy.")

    if activator.DungeonMaster:
        whoami.Say("Oh, and as a dungeon master, you can also order:\n" +
                " - mailwarning <player name> (free)")

elif Crossfire.MatchString("letter", text[0]):
    whoami.Say("For %i platinum you can send a letter to your friend. Just say 'mailscroll <friend name>'." % priceMailScroll)

elif Crossfire.MatchString("mail", text[0]):
    reply = "To send items, buy one of our following containers:\n"

    for pack in packages.keys():
        # weight is in grams, so need to convert.
        reply += " - %s (limit %d kg, %d platinum)\n" % (pack, packages[pack][1] / 1000, packages[pack][0])

    reply += "When you're ready to send it, say 'send <friend name>'."
    whoami.Say(reply)

# Sell items to the player if he/she asks for them.
elif text[0] == 'pen':
    if activator.PayAmount(priceWritingPen*priceFactor):
        whoami.Say("Here is your pen, enjoy!")
        id = activator.Map.CreateObject('writing pen', x, y)
        id.Name = 'IPO writing pen'
        id.Value = 0
    else:
        whoami.Say("I'm sorry, you need %d platinum to buy a pen." % priceWritingPen)

elif text[0] == 'literacy':
    if activator.PayAmount(priceScrollOfLiteracy*priceFactor):
        whoami.Say('Here is your IPO Scroll of Literacy')
        id = activator.Map.CreateObject('scroll of literacy', x, y)
        id.Name = 'IPO Scroll of Literacy'
        id.NamePl = 'IPO Scrolls of Literacy'
        id.Value = 0
    else:
        whoami.Say('You need %s platinum for an IPO Scroll of Literacy'%priceScrollOfLiteracy)


elif text[0] == 'mailscroll':
    if len(text) == 2:
        if log.info(text[1]):
            if activator.PayAmount(priceMailScroll*priceFactor):
                whoami.Say('Here is your mailscroll')
                id = activator.Map.CreateObject('scroll', x, y)
                id.Name = 'mailscroll T: '+text[1]+' F: '+activatorname
                id.NamePl = 'mailscrolls T: '+text[1]+' F: '+activatorname
                id.Value = 0
            else:
                whoami.Say('You need %s platinum for a mailscroll'%priceMailScroll)
        else:
            whoami.Say('I don\'t know %s'%text[1])

    else:
        whoami.Say('Usage "mailscroll <friend>"')


elif text[0] == 'mailwarning':
    if activator.DungeonMaster:
        if len(text) == 2:
            if log.info(text[1]):
                whoami.Say('Here is your mailwarning')
                id = activator.Map.CreateObject('diploma', x, y)
                id.Name = 'mailwarning T: '+text[1]+' F: '+activatorname
                id.NamePl = 'mailwarnings T: '+text[1]+' F: '+activatorname
                id.Value = 0
            else:
                whoami.Say('I don\'t know any %s'%text[1])

        else:
            whoami.Say('Usage "mailwarning <player>"')
    else:
        whoami.Say('You need to be DM to be able to use this command')


elif text[0] in packages:
    if len(text) == 2:
        if log.info(text[1]):
            price = packages[text[0]][0]
            max = packages[text[0]][1]
            item = packages[text[0]][2]

            if activator.PayAmount(price*priceFactor):
                box = activator.CreateObject(item)
                box.Name = packages[text[0]][3] + ' T: '+text[1]+' F: '+activatorname
                box.WeightLimit = max
                box.Str = 0
                whoami.Say('Here is your %s'%text[0])
            else:
                whoami.Say('You need %s platinum to buy a %s'%(price, text[0]))

        else:
            whoami.Say('I don\'t know any %s'%text[1])

    else:
        whoami.Say('Send a %s to who?'%text[0] )


elif text[0] == 'send':
    if len(text) == 2:
        count = 0
        for package in packages.keys():
            sackName = packages[package][3]
            inv = activator.CheckInventory(sackName)
            while inv:
                next = inv.Below
                text2 = inv.Name.split()
                if len(text2) == 5 and text2[0] == sackName and text2[1] == 'T:' and text2[3] == 'F:' and text2[2] == text[1]:
                    map = Crossfire.ReadyMap(storage_map)
                    if map:
                        # rename container to prevent sending it multiple times
                        inv.Name = sackName+' F: '+text2[4]+' T: '+text2[2]

                        inv.Teleport(map, storage_x, storage_y)
                        count = count+1
                    else:
                        whoami.Say('I\'m sorry but the post can\'t send your package now.')
                inv = next
        if count <= 0:
            whoami.Say('No package to send.')
        elif count == 1:
            whoami.Say('Package sent.')
        else:
            whoami.Say('%d packages sent.'%count)
    else:
        whoami.Say('Send packages to who?')


elif text[0] == 'receive':
    map = Crossfire.ReadyMap(storage_map)
    if map:
        count = 0
        for package in packages.keys():
            sackName = packages[package][3]
            item = map.ObjectAt(storage_x, storage_y)
            while item:
                previous = item.Above
                text2 = item.Name.split()
                if len(text2) == 5 and text2[0] == sackName and text2[4] == activatorname:
                    item.Name = item.Name+' (used)'
                    item.InsertInto(activator)
                    count = count+1
                item = previous
        if count <= 0:
            whoami.Say('No package for you, sorry.')
        else:
            whoami.Say('Here you go.')
    else:
        whoami.Say("I'm sorry, our package delivery service is currently on strike. Please come back later.")


else:
    whoami.Say("Welcome to the IPO! How can I help you?")
    Crossfire.AddReply("buy", "What can I buy here?")
    Crossfire.AddReply("receive", "Do I have any packages?")

Crossfire.SetReturnValue(1)