// MorgenGrauen MUDlib
//
// zentralbank.c -- Zentrale Geld-Verwaltung der Haendler im MG
// $Id: zentralbank.c 9223 2015-05-27 21:46:58Z Zesstra $
//
/*
 * $Log: zentralbank.c,v $
 * Revision 1.5  2003/12/30 11:17:34  Vanion
 * query_prevent_shadow fehlte. Danke fuer den Hinweis an Ogo.
 *
 * Revision 1.4  2003/12/30 11:12:02  Jof
 * Ich hab Dir das File mal geklaut.
 * Vanion
 *
 * Revision 1.3  1995/07/10  07:31:04  Jof
 * typo fixed
 *
 * Revision 1.2  1995/07/10  07:27:59  Jof
 * Use bank.h
 * _query_current_money
 *
 * Revision 1.1  1995/07/05  16:29:26  Jof
 * Initial revision
 *
 */
#pragma no_shadow
#pragma no_clone
#pragma no_inherit
#pragma strong_types,save_types

#include <wizlevels.h>
#include <properties.h>
#include <money.h>

#define NEED_PROTOTYPES
#include <bank.h>

#define TIME strftime("%H:%M",time())
#define LS 1000000

int allmoney,bank_default_percent,store_default_percent,shop_default_percent;
int falling;
// Geldmengen: in NPC, in Boersen, rumliegen, auf Seherkarten, Gesamtsumme,
// Zeitpunkt der Berechnung.
int *summen = ({0,0,0,0,0,0});

nosave int last_save;
nosave int counter;

void save_me()
{
  save_object("/p/daemon/save/zentralbank");
  last_save=time();
}

protected void create()
{
  seteuid(getuid());
  allmoney=500000;
  bank_default_percent=BANK_DEFAULT_PERCENT;
  store_default_percent=STORE_PERCENT_LEFT;
  shop_default_percent=SHOP_PERCENT_LEFT;
  restore_object("/p/daemon/save/zentralbank");
}

private void adjust_percents()
{
  if (allmoney<50000   && falling>=0) falling=-1;
  if (allmoney>1000000 && falling<=0) falling=1;
  if (allmoney<200000 && falling>0 ) falling=0;
  if (allmoney>80000  && falling<0 ) falling=0;
  if (falling<0 && !((++counter)%5))
  {
    bank_default_percent=bank_default_percent+random(3)+1;
    store_default_percent=store_default_percent+random(3)+1;
    shop_default_percent=shop_default_percent+random(3)+1;
    log_file("ZENTRALBANK",
	sprintf("%s: PERCENTS SET TO BANK %d STORE %d SHOP %d\n",
	  TIME,bank_default_percent,store_default_percent,
	  shop_default_percent),LS);
  }
  if (falling>0)
  {
    bank_default_percent/=2;
    store_default_percent/=2;
    shop_default_percent/=2;
    log_file("ZENTRALBANK",
	sprintf("%s: PERCENTS SET TO BANK %d STORE %d SHOP %d\n",
	  TIME,bank_default_percent,store_default_percent,
	  shop_default_percent),LS);
  }
  if (bank_default_percent<1) bank_default_percent=1;
  if (bank_default_percent>90) bank_default_percent=90;
  if (store_default_percent<1) store_default_percent=1;
  if (store_default_percent>90) store_default_percent=90;
  if (shop_default_percent<1) shop_default_percent=1;
  if (shop_default_percent>90) shop_default_percent=90;
  save_me();
}

void reset()
{
  adjust_percents();
}

private void real_log()
{
  log_file("ZBANKSTATUS",sprintf("%s: %d\n",dtime(time()),allmoney),LS);
}

private void log_state()
{
  // nur alle 15min nen Status-Logeintrag. Reicht voellig.
  if (find_call_out(#'real_log) == -1)
    call_out(#'real_log,900);
}

public varargs void PayIn(int amount, int percent)
{
  if (amount<=0) return;
  percent|=bank_default_percent;
  allmoney+=amount*percent/100;
  log_file("ZENTRALBANK",
      sprintf("%s: Einzahlung: %d (%d brutto) von %O\n",
	TIME,amount*percent/100,amount,previous_object()),LS);
  log_state();
}

public int WithDraw(int amount)
{
  int got;

  if (amount<=0) return 0;
  if (allmoney<0) allmoney=0;
  if (!allmoney)
    got=0;
  else
  {
    if (amount*3<allmoney)
      got=amount;
    else
    {
      got=allmoney/3;
      if (!got) got=1;
    }
    allmoney-=got;
  }
  log_file("ZENTRALBANK",sprintf("%s: Abhebung: %6d/%6d von %O\n",
	TIME,got, amount,previous_object()),LS);
  log_state();
  return got;
}

int _query_current_money()
{
  return allmoney;
}

int _query_bank_default_percent()
{
  return bank_default_percent;
}

int _query_shop_percent_left()
{
  return shop_default_percent;
}

int _query_store_percent_left()
{
  return store_default_percent;
}

// Geldmenge im Spiel
public int *geldmenge() {
  
  if (summen[5] > time()-3600 || !IS_ELDER(this_player()))
      return summen;

  summen = allocate(6);
  object *geld = clones(GELD,2);
  foreach(object ob: geld) {
    if (!environment(ob) || IS_LEARNER(environment(ob)))
      continue;
    if (environment(ob)->QueryProp(P_NPC))
      // in NPC
      summen[0]+=ob->QueryProp(P_AMOUNT);
    else if (load_name(environment(ob)) == BOERSE)
      // in boersen
      summen[1]+=ob->QueryProp(P_AMOUNT);
    else
      // sonst rumliegend
      summen[2]+=ob->QueryProp(P_AMOUNT);
  }
  // Seherkarten
  geld = clones(SEHERKARTE,2);
  mapping cards=m_allocate(sizeof(geld),1);
  foreach(object ob: geld) {
    cards[ob->query_owner()] = ob->QueryProp(P_AMOUNT);
  }
  foreach(string owner, int amount: cards)
    summen[3]+=amount;
  summen[4]=summen[0]+summen[1]+summen[2]+summen[3];
  summen[5]=time();
  return summen;
}

public void PrintGeldmenge() {
  int *sum = geldmenge();
  printf("NPC: %d\n"
         "Boersen: %d\n"
         "rumliegend: %d\n"
         "Seherkarten: %d\n"
         "Gesamt: %d\n"
         "Zeit: %s\n",
         sum[0],sum[1],sum[2],sum[3],sum[4],strftime(sum[5]));
}

void set_percents(int store,int shop,int bank)
{
  store_default_percent=store;
  shop_default_percent=shop;
  bank_default_percent=bank; 
  log_file("ZENTRALBANK",
      sprintf("%s: PERCENTS SET TO BANK %d STORE %d SHOP %d\n",
	TIME,bank_default_percent,store_default_percent,
	shop_default_percent),LS);
}

int remove()
{
  save_me();
  destruct(this_object());
  return 1;
}