/* Ten plik bedzie inheritowany wszedzie, gdzie sprzedajemy golebie.
   Aby wszystko poprawnie dzialalo, w pliku inheritujacym powinnismy
   dodac w init() lu init_living() wywolanie init_pigeon_trade(). Tigr */

inherit "lib/trade";
#include <pl.h>
#include <macros.h>

#define TO this_object()
#define TP this_player()

#define PIGEON "/d/Imperium/std/golab"

int kup(string str)
{
 string how="";
 int *res;
 
 notify_fail("Kup co?\n");
 
 if(!str) return 0;
 
 if(str!="golebia") 
   {
      if (!sscanf(str,"golebia za %s",how)) return 0;
      str="golebia"; /* W poprzednim kodzie bylo tu sscanf(str,"%s za %s",str,how);
      			co dawalo dokladnie te same efekty ale wygladalo o wiele 
      			bardziej powaznie. Ale 'powazny' nie jest okresleniem,
      			ktore uzylbym w odniesieniu do siebie, wiec zamienilem to
      			na cos zrozumialego na pierwszy rzut oka;-) */
   }
 
 res=pay(20,this_player(),how,0,0,0,0);
 
 if (sizeof(res)==1)
    {
       if (how="") how="pieniadze";
       switch(res[0])
         {
            case 0: write("Nie masz komu zaplacic.\n");
            	    break;
            case 1: if (living(TO)) 
            		command("powiedz Te " + how + " to za malo, by zaplacic za mego golebia.");
            	    else
            	        write("Te " + how + " to za malo, aby zaplacic za golebia.");
            	    break;
            case 2: write("Hmmm... Czym chcesz zaplacic?\n");
                    break;
            case 3: write("Masz za malo pieniedzy zeby kupic golebia.\n");
                    break;
            case 4: if (living(TO))
            		command("powiedz Nie przyjmuje takich pieniedzy jak "+how+".");
            	    else
            	    	write("Nie przyjmujemy takich pieniedzy jak "+how+".\n");
            	    break;
         }
       return 1;
   }
   
 if (living(TO))
    {
       write("Placisz "+ TO->short(TP,PL_CEL) + " i dostajesz od " + 
        TO->koncowka("niego","niej","niego","nich","nich") +
        " golebia.\n");
       say(QCIMIE(TP,PL_MIA) + " placi " + QIMIE(TO, PL_CEL) + " i " +
        "dostaje od " + TO->koncowka("niego","niej","niego","nich","nich") +
        " golebia.\n");
    }
  else
    {
       write("Placisz i dostajesz golebia.\n");
       say(QCIMIE(TP,PL_MIA) + " placi i dostaje goleboa.\n");
    }
    
 if(sizeof(res)>7&&res[7]>0)
   {
      write("Niestety, nie mogac udzwignac reszty upuszczasz ja na podloge.\n");
      say(QCIMIE(TP,PL_MIA)+" upuszcza pieniadze na podloge.\n");
   }
 clone_object(PIGEON)->move(TP);
 return 1;

}      

init_pigeon_trade()
{
   add_action(kup,"kup");
}