/*   /lib/teller.c
 *   from the Dead Souls V Object Library
 *   npc interface which handles banking transactions
 *   created by Blitz@Dead Souls 960105
 *   Version: @(#) teller.c 1.3@(#)
 *   Last Modified: 96/10/22
 */
 
#include <lib.h>
#include <daemons.h>
#include "include/teller.h"
 
inherit LIB_SENTIENT;
 
string BankName, LocalCurrency;
string *Currencies;
int LocalFee, NonLocalFee, OpenFee;
float ExchangeFee;
 
static void create() {
    sentient::create();
    BankName = "Praxis Trust";
    LocalCurrency = "gold";
    OpenFee = 5;
    Currencies = ({ "copper", "silver", "electrum", "gold", "platinum" });
    SetCommandResponses( ([
      "default" : (: cmdParse :),
    ]) );
    SetRequestResponses( ([
      "default" : (: cmdParse :),
    ]) );
}
 
string SetBankName(string str) { return (BankName = str); }
 
string SetLocalCurrency(string str) { return (LocalCurrency = str); }
 
int SetLocalFee(int x) { return (LocalFee = x); }
 
int SetNonLocalFee(int x) { return (NonLocalFee = x); }
 
int SetOpenFee(int x) { return (OpenFee = x); }
 
float SetExchangeFee(float x) { return (ExchangeFee = x); }
 
mixed SetCurrencies(mixed var) {
    if( arrayp(var) ) {
        if( member_array(LocalCurrency, var) == -1 )
        var += ({ LocalCurrency });
      return (Currencies = var);
    }
    else error("Bad argument 1 to SetCurrencies()");
}
 
int GetLocalFee() { return LocalFee; }
 
int GetNonLocalFee() { return NonLocalFee; }
 
int GetExchangeFee() { return ExchangeFee; }
 
int GetOpenFee() { return OpenFee; }
 
mixed GetCurrencies() { return copy(Currencies); }
 
string GetBankName() { return BankName; }
 
string GetLocalCurrency() { return LocalCurrency; }
 
mixed CanBank(object who) {
  if( creatorp(who) )
    return "Creators have no need for that.";
  if( !(int)who->GetAccountInfo( GetBankName() ) )
    return "You must create an account with "+GetBankName()+" first.";
  return 1;
}
 
int AddSurcharge(object who, string currency, int amount) {
    int charge;
    string type;
 
    if( (string)who->GetTown() == GetTown() ) {
        type = "standard";
        charge = GetLocalFee();
    } else {
        type = "non-residential";
        charge = GetNonLocalFee();
    }
    if( !charge ) return amount;
    if( amount > charge ) {
         amount -= charge;
         who->eventPrint(sprintf("The bank retains a %s "
                        "surcharge of %d %s.", type, charge, currency));
         return amount;
    }
    else if( (amount + charge) <= (int)who->GetCurrency(currency) ) {
         who->eventPrint(sprintf("The bank charges you a %s %d %s "
                        "surcharge.", type, charge, currency));
         who->AddCurrency(currency, -charge);
         return amount;
    } else {
         who->eventPrint(sprintf("You are unable to afford the "
                        "%s surcharge of %d %s.", type, charge, currency));
         return 0;
    }
    return amount;
}
 
int eventBalance(object who) {
    string str, ret, *tmp;
    mapping mp;
    float val;
    int total;
 
    mp = (mapping)who->GetAccountInfo( GetBankName() );
    if( !mp ) return 0;
    environment()->eventPrint( (string)who->GetName() + " requests "
                   "current balance.", ({ who }) );
    ret = "Your account with "+GetBankName()+" was "
           "opened "+ctime(mp["open"])+".\n";
    ret += "This location's default currency is "+GetLocalCurrency()+".\n\n";
    tmp = filter(keys(mp), (: member_array($1, Currencies) > -1 :));
    total = 0;
    if( !sizeof(tmp) )
      ret += "You have made no deposits.\n";
    else foreach(str in tmp) {
        if( mp[str] < 1 ) continue;
        ret += sprintf("%-20s : %d\n", str+" coins", mp[str]);
        if( str == GetLocalCurrency() ) total += mp[str];
        else if( mp[str] ) {
            if( currency_rate(str) )
            val = mp[str] / currency_rate(str);
            else val = 0;
            if( currency_rate(GetLocalCurrency()) )
              total += to_int( val * currency_rate(GetLocalCurrency()) );
        }
    }
    ret += sprintf("%-20s ----------\n%-22s %d",
                   "", "Total in "+GetLocalCurrency(), total);
    if( mp["last time"] )
      ret += sprintf("\n\nYour last transaction: %s at %s.",
                    mp["last trans"], ctime(mp["last time"]) );
    who->eventPage(explode(ret, "\n"), "info");
    return 1;
}
 
int eventDeposit(object who, string currency, int amount) {
    int i;
    if( amount < 1 ) {
        eventForce("speak " + (string)who->GetName() + ", "
                   "you are a moron.");
        return 1;
    }
    if( !currency ) currency = GetLocalCurrency();
    if( !(i = (int)who->GetCurrency(currency)) ) {
        eventForce("speak You are not carrying any "+currency+".");
        return 1;
    }
    if( amount > i ) {
        eventForce("speak You are not carrying that much "+ currency +".");
        return 1;
    }
    who->eventPrint(sprintf("You deposit %d %s into your "
                    "account.", amount, currency));
    environment()->eventPrint((string)who->GetName() + " makes "
                  "a deposit.", ({ who }) );
    who->AddCurrency(currency, -amount);
    who->AddBank(GetBankName(), currency, amount);
    return 1;
}
 
int eventWithdraw(object who, string currency, int amount) {
    int i, x;
 
    x = amount;
    if( amount < 1 ) {
        eventForce("speak Withdrawing a negative amount is not a prudent "
                "idea, "+ (string)who->GetName() +".");
        return 1;
    }
    if( !currency ) currency = GetLocalCurrency();
    if( !(i = (int)who->GetBank(GetBankName(), currency)) ) {
        eventForce("speak You have no "+currency+" in your account.");
        return 1;
    }
    if( amount > i ) {
        eventForce("speak You do not have that much "+currency+" in your "
                   "account.");
        return 1;
    }
    if( !(amount = AddSurcharge(who, currency, amount)) ) return 1;
    if( (int)who->AddCurrency(currency, amount) < 0 ) {
        eventForce("speak You are unable to carry that "
                   "much "+currency+"!");
        if( x > amount ) {
            who->eventPrint("The bank returns the fee.");
            who->AddCurrency(currency, (amount - x));
        }
        return 1;
    }
    who->AddBank(GetBankName(), currency, -amount);
    who->eventPrint(sprintf("You withdraw %d %s from your account.",
                    amount, currency));
    environment()->eventPrint(sprintf("%s withdraws some %s.",
                             (string)who->GetName(), currency), ({ who }));
    return 1;
}
 
int eventExchange(object who, int amount, string str1, string str2) {
    int i, x, charge;
    float val;
 
    if( amount < 1 ) {
        eventForce("speak " + (string)who->GetName() + ", you are "
                   "definitely a moron!");
        return 1;
    }
    if( amount > (int)who->GetCurrency(str1) ) {
        eventForce("speak You do not have that much "+str1+" to exchange.");
        return 1;
    }
    if( str1 == str2 ) {
        eventForce("speak That would be pointless.");
        return 1;
    }
    if( member_array(str1, GetCurrencies()) == -1 ) {
        eventForce("speak You cannot exchange "+str1+" here.");
        return 1;
    }
    if( member_array(str2, GetCurrencies()) == -1 ) {
        eventForce("speak You cannot exchange "+str2+" here.");
        return 1;
    }
    val = amount / currency_rate(str1);
    x = to_int( (amount * 0.01) + amount );
    i = to_int( val * currency_rate(str2) );
    if( GetExchangeFee() )
      charge = to_int(i / (100 / GetExchangeFee()));
      else charge = 0;
    if( charge ) i -= charge;
    if( i < 1 ) {
        eventForce("speak That isn't even worth one " + str2 + "!");
        return 1;
    }
    if( (int)who->AddCurrency(str2, i) < 0 ) {
        eventForce("speak You cannot carry that much "+str2+", " +
                   (string)who->GetName()+".");
        return 1;
    }
    who->AddCurrency(str1, -amount);
    who->eventPrint(sprintf("You exchange %d %s for %d %s.",
                    amount, str1, i, str2));
    if( charge )
      who->eventPrint(sprintf("You were charged a %.1f%s fee of %d %s.",
                      GetExchangeFee(), "%", charge, str2) );
    environment()->eventPrint((string)who->GetName()+" exchanges some "+
                              str1+" for "+str2+".", who);
    return 1;
}
 
int eventOpenAccount(object who) {
    if( who->GetAccountInfo( GetBankName() ) ) {
        eventForce("speak You already have an account with "+GetBankName()+", " +
                   (string)who->GetName()+"!");
        return 1;
    }
    if( (int)who->GetCurrency( GetLocalCurrency() ) < OpenFee ) {
        eventForce(" speak "+ sprintf("You must have at least %d %s to open "
                   "an account at this branch of %s, %s.", GetOpenFee(),
                   GetLocalCurrency(), GetBankName(), (string)who->GetName()));
        return 1;
    }
    if( OpenFee < 1 ) return 0;
    who->AddCurrency(GetLocalCurrency(), -OpenFee);
    who->AddBank(GetBankName(), GetLocalCurrency(), OpenFee);
    who->eventPrint(sprintf("You deposit %d %s and open an account "
        "with %s.", OpenFee, GetLocalCurrency(), GetBankName()) );
    eventBalance(who);
    environment()->eventPrint((string)who->GetName() + " opens an "
                     "account.", who);
    eventForce("smile "+(string)who->GetKeyName());
    return 1;
}
 
int cmdParse(object who, string cmd, string str) {
    int x;
    string s1, s2;
    mixed err;
 
    if( cmd != "account" && stringp(err = CanBank(who)) ) {
        who->eventPrint(err);
        return 1;
    }
    switch(cmd) {
        case "balance" :
            return eventBalance(who);
        break;
        case "deposit" : case "withdraw" :
            if( !str ) {
                eventForce("speak How much of what?");
                return 1;
            }
            sscanf(str, "%d %s", x, s1);
            if( member_array(s1, Currencies) < 0 ) {
              who->eventPrint(s1 + " is not supported here!");
              return 1;
            }
            if( cmd == "deposit" )
              return eventDeposit(who, s1, x);
            else
              return eventWithdraw(who, s1, x);
        break;
        case "exchange" :
            if( !str ) {
                eventForce("speak Exchange what for what?");
                return 1;
            }
            sscanf(str, "%d %s for %s", x, s1, s2);
            return eventExchange(who, x, s1, s2);
        break;
        case "account" :
            return eventOpenAccount(who);
        break;
        default:
            eventForce("speak " + (string)who->GetName() + ", I do not "
                       "understand what you want.");
            eventForce("whisper to " + (string)who->GetKeyName() + " Try "
                       "\"help banking\" if you are confused.");
 
    }
    return 1;
}