blob: 53074d0f12cf80d8c1be83ca957360702f8c06a9 [file] [log] [blame]
// 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;
}