/* Bank w Nuln
 * Silvy
 * 9.02.98
 */

inherit "/d/Imperium/std/room";
inherit "/d/Arkadia/obj/bank_lib"; // Funkcje depozytu bankowego 
inherit "/lib/bank.c";

#include <pl.h>
#include <macros.h>
#include "silvy.h"
#include "/sys/stdproperties.h"

create_imperium_room()
{
    add_prop(ROOM_I_INSIDE,1);
    config_default_trade();
    set_bank_fee(20);

    config_trade_data();

    set_short("Centralny Bank Imperialny - Filia w Nuln");
    set_long("Znajdujesz sie w malym, dusznym pomieszczeniu Filii Centralnego "+
        "Banku Imperialnego w Nuln. Bank ten cieszy sie gwarancjami samego cesarza, co "+
        "zapewnia jego klientom pewnosc i spokojny sen"+
        ". Oprocz wyjscia " +
        "widzisz tu tylko niewielkie zakratowane okienko, wiszaca nad nim " +
        "tablice informacyjna oraz drewniana tabliczke na scianie.\n");
    add_item(({"okienko","niewielkie okienko"}),"Za solidnym, zakratowanym okienkiem "+
        "widzisz niepozornego czlowieczka, najprawdopodobniej kasjera.\n");
    add_item(({"czlowieczka","kasjera"}),"Kasjer, jak to kasjer, obsluguje klientow banku.\n");     

    add_cmd_item( ({ "tablice","tablice informacyjna", "instrukcje" }), "przeczytaj", 
        "@@info_depozytu");

    add_item( ({ "tabliczke","drewniana tabliczke" }),
      "Cos tam jest napisane. Moze ja przeczytasz?\n");

    add_cmd_item(({"tabliczke", "drewniana tabliczke"}), 
    	"przeczytaj", "@@standard_bank_sign");
        
    add_item( ({ "tablice", "tablice informacyjna", "instrukcje" }), "Sa na niej zapisane " +
        "jakies informacje.\n");
        
    set_depozyt_tax(8);

    add_exit(NPATH + "lokacje/bramna1.c","poludniowy-wschod");
}

init()
{
    ::init();
    init_depozyt();	// Dodaje komendy depozytu bankowego
    bank_init();

}

// Ponizej funkcje maskujace swoje odpowiedniki w bank_lib, odpowiedzialne
// za teksty, jakie sie pokazuja graczowi.

public void
hook_gracz_za_male_konto()
{
    write("Kasjer mowi do ciebie: Nie masz tyle pieniedzy na koncie.\n");
}

public void
hook_gracz_nie_ma_kasy()
{
    write("Nie masz tyle pieniedzy przy sobie.\n");
}

public void
hook_gracz_pobiera_kase(string opis_kasy)
{
    write("Kasjer wyplaca ci " + opis_kasy + " przez zakratowane okienko.\n");
    say(QCIMIE(this_player(), PL_MIA) + " pobiera pieniadze " +
        "z konta.\n");
}

public void
hook_gracz_wplaca_kase()
{
    say(QCIMIE(this_player(), PL_MIA) + " wplaca pieniadze na konto.\n");
}

public void
hook_gracz_sprawdza_konto(int *kasa)
{

    write("Oto stan twojego konta w Centralnym Banku Imperialnym:\n" +
          "Miedz:    " + kasa[0] + "\n" +
          "Srebro:   " + kasa[1] + "\n" +
          "Zloto:    " + kasa[2] + "\n" +
          "Mithryl:  " + kasa[3] + "\n");

          
    say(QCIMIE(this_player(), PL_MIA) + " dowiaduje sie o stan swojego " +
        "konta.\n");
}

public string
info_depozytu()
{
    return 
       "\t\tWitaj w Centralnym Banku Imperialnym.\n\n" +
       "Oferujemy ci mozliwosc umieszczania swych pieniedzy w " +
       "naszych calkowicie bezpiecznych depozytach. Pobieramy jedynie " +
       query_depozyt_tax() + " procent od wartosci kazdej transakcji.\n\n" +
       "Dostepne komendy to:\n" + 
       "  zdeponuj    - wplacenie jakiejs sumy pieniedzy na konto,\n" +
       "   pobierz    - pobranie pieniedzy z konta,\n" +
       "sprawdz konto - zbadanie stanu konta.\n\n" +
       "Przy deponowaniu i pobieraniu trzeba podac liczbe i rodzaj monet, " +
       "na przyklad 'zdeponuj 100 miedziakow'.\n";
       
}