inherit "std/Object";
#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;
   set_name("donation box");
   set_id( ({ "donation box", "box" }) );
   set_short("a donation box");
   set_read("Property of Frobitz collection agency.");
   set_mass(0);
   set_value(0);
   set_prevent_get("You aren't allowed to take that. No one is.");
   set_no_clean(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 query_long(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;
}