inherit "/lib/std/item";
//#include <security.h>
#include <council.h>
#define LOG "/realms/nialson/data/mage_coffer_log"

int loaded, stored_amount;

void init() {
    ::init();
    add_action("donate", "donate");
    add_action("withdraw", "withdraw");
}

void create() {
    ::create();
    loaded=stored_amount=0;
    SetKeyName("donation box");
    SetId( ({ "donation box", "box" }) );
    SetShort("a donation box");
    SetRead("Property of Frobitz collection agency.");
    SetMass(0);
    SetValue(0);
    SetPreventGet("You aren't allowed to take that. No one is.");
    SetNoClean(1);
}

int restore_int(string str) {
    string tmp;
    string repl;
    int value;

    tmp=absolute_path("/realms/nialson/data", str);
    repl=read_file(tmp, 1, 1);
    sscanf(repl, "%d\n", value);
    return value;   
}

void save_int(string str, int value) {
    string tmp;

    tmp=absolute_path("/realms/nialson/data", str);
    rm(tmp);
    write_file(tmp, ""+value+"\n");
}

int donate(string str) {
    int amount;

    if(!str) {
	notify_fail("Donate what?\n");
	return 0;
    }
    if(sscanf(str, "%d gold", amount) !=1) {
	notify_fail("Correct syntax: <donate [#] gold>\n");
	return 0;
    }
    if(amount < 1) {
	notify_fail("That would be a nifty trick indeed!\n");
	return 0;
    }
    if((int)this_player()->query_money("gold") < amount) {
	notify_fail("You don't have that much gold!\n");
	return 0;
    }
    if (!loaded) {
	stored_amount = restore_int("mage_coffers");
	loaded=1;}
    this_player()->add_money("gold", -1*amount);
    write("You donate "+amount+" gold coins to the mages.");
    say(this_player()->query_cap_name()+" donates some gold.", this_player());
    stored_amount += amount;
    write_file(LOG,""+stored_amount+"\t"+
      this_player()->query_name()+" donates ."+amount+"\n");
    save_int("mage_coffers", stored_amount);
    return 1;
}

string GetLong(string junk) {
    if (!loaded) {
	stored_amount = restore_int("mage_coffers");
	loaded=1;}
    return
    "A medium sized, VERY heavy box that contains the funds of the mage class.\n"+
    "If you wish, you can <donate # gold> to increase those funds.\n"+
    "The coffers currently contain "+stored_amount+" gold.\n";
}

int withdraw(string str) {
    int amount;
#define TESTERS ({"nialson", "lassondra", "zaknaifen"})
    if((-1==member_array(this_player()->query_name(), TESTERS))&&
      (-1==member_array(this_player()->query_name(), MAGE_COUNCIL))) {
	notify_fail("Only council members may withdraw money.\n");
	return 0; }
    if(!str) {
	notify_fail("Withdraw what?\n");
	return 0; }
    if(sscanf(str, "%d gold", amount) !=1) {
	notify_fail("Correct syntax: <withdraw [#] gold>\n");
	return 0; }
    if (!amount) {
	notify_fail("Stop wasting my time and yours.\n");
	return 0; }
    if (amount < 0) {
	notify_fail("Negatives not allowed!\n");
	return 0; }
    if (!loaded) {
	stored_amount = restore_int("mage_coffers");
	loaded=1;}

    write("You withdraw "+amount+" gold coins from the mages.");
    say(this_player()->query_cap_name()+" withdraws some gold.", this_player());
    stored_amount -= amount;
    this_player()->add_money("gold", amount);
    write_file(LOG,""+stored_amount+"\t"+
      this_player()->query_name()+" withdrew ."+amount+"\n");
    save_int("mage_coffers", stored_amount);
    return 1;
}

