/* 
 * Kompania Krogulca
 *
 * Copyright(C):    Khazzar (jedrekz@pascom.pl)
 * Data:            26.08.2003
 * 
 */

void
init_living()
{
    ::init_living();
    add_action("posil", "posil");
    add_action("napij", "napij");
}

int
posil(string str)
{
    notify_fail("Posil sie?\n");
    if ( str != "sie" ) return 0;

    if ( !TP->eat_food(100,1) )
    {
        TP->catch_msg("Chocby nie wiem co, nie wepchniesz w siebie wiecej.\n");
        return 1;
    }

    while ( TP->eat_food(100,0) ) {}
    while ( TP->eat_food(10,0) )  {}

    while ( TP->drink_soft(100,0) ) {}
    while ( TP->drink_soft(10,0) ) {}

    TP->drink_alco(100,0);

    TP->catch_msg("Zamawiasz posilek i juz po chwili dostajesz pelna " +
                  "miske grochowki robionej weglug wojskowego przepisu, " +
                  "do tego garniec piwa by zaspokoic osuszone gardlo.\n");
    tell_room(environment(TP),QCIMIE(TP,PL_MIA) + " zamawia posilek i juz " +
              "po chwili z entuzjazmem posila sie miska porzadnej wojskowej " +
              "grochowki, co chwila zapijajac piwem.\n", ({TP}));
    return 1;
}

int
napij(string czego)
{
    int procenty=0;
    string opis="";

    notify_fail("Czego chcesz sie napic? Mamy jasne piwo, ciemne piwo i " +
                "portera. Mamy tez troche cienkiego sikacza.\n");

    switch( czego )
    {
        case "sie jasnego piwa"  : opis = "jasnego piwska";
                                   procenty = 50;
                                   break;

        case "sie ciemnego piwa" : opis = "ciemnego piwska";
                                   procenty = 100;
                                   break;

        case "sie portera"       : opis = "portera";
                                   procenty = 200;
                                   break;

        case "sie piwa"          : opis = "piwska";
                                   procenty = 50;
                                   break;

        case "sie sikacza"       : opis = "cienkiego sikacza";
                                   procenty = 20;
                                   break;
        default : return 0;
    }

    if ( !TP->drink_alco(procenty,1) )
    {            
        TP->catch_msg("Uff... nie, ci juz chyba starczy.\n");
        return 1;
    }
    
    TP->drink_alco(procenty,0);

    TP->catch_msg("Zamawiasz potezny kufel pienistego " + opis + " i " + 
                  "rozkoszujac sie kazdym lykiem wypijasz go duszkiem, " +
                  "ocierajac na koniec usta.\n");
    tell_room(environment(TP),QCIMIE(TP,PL_MIA) + " zamawia potezny kufel " +
              "pienistego " + opis + " i rozkoszujac sie kazdym lykiem " +
              "wypija go duszkiem, ocierajac na koniec usta.\n", ({TP}));
    return 1;
}