inherit "/std/object";

#include <stdproperties.h>
#include <macros.h>
#include <pl.h>
#include <cmdparse.h>
#include <ss_types.h>

int takt;

void create_object()
{
   dodaj_nazwy(({"flet", "fletu", "fletowi", "flet",
                 "fletowi", "flecie"}),
               ({"flety", "fletow", "fletom", "flety",
                 "fletom", "fletach"}), PL_MESKI_NZYW);
   ustaw_shorty(({"piekny srebrny flet",
                  "pieknego srebrnego fletu",
                  "pieknemu srebrnemu fletowi",
                  "piekny srebrny flet",
                  "pieknemu srebrnemu fletowi",
                  "pieknym srebrnym flecie"}),
               ({"flety", "fletow", "fletom", "flety",
                 "fletom", "fletach"}), PL_MESKI_NYZW);

   set_long("Spogladasz na ow przepiekny przedmiot pokryty "+
            "delikatnymi wyobrazeniami lisci i kwiatow. Z "+
            "pewnoscia instrument ow ma cudowny czysty dzwiek. "+
            "Na jego powierzchni wypisano runami takie slowa: "+
            "TANIEC, NATURA, WOLNOSC. Dostrzegasz tez malutkie "+
            "literki <flpomoc>.\n");

/    dodaj_przym("piekny", "piekne");
/    dodaj_przym("srebrny", "srebrni");

   add_prop(OBJ_I_WEIGHT, 2000);
   add_prop(OBJ_I_VOLUME, 3000);

}
init(){
 add_action("flwesolo", "flwesolo");
 add_action("flsmutno", "flsmutno");
 add_action("flromantycznie", "flromantycznie");
 add_action("fldrzewa", "fldrzewa");
 add_action("flmagia", "flmagia");
 add_action("flpomoc", "flpomoc");
 ::init();
}

int takt;

int wesolo(){

  if(takt<5){
   switch(takt){
     case 0 : write("Twoja melodia staje sie coraz zywsza i "+
                    "skoczniejsza, czujesz jak przepelnia cie energia.\n")
              saybb("Melodia ktora cie ogarnia, wywoluje usmiech "+
                    "na twarzy, slyszysz w niej bowiem radosny szczebiot dzieci.\n");
             break;
     case 1 : write("Zaczynasz grac szybciej, podrywajac do zycia tysiace "+
                   "dzwiekowi i rytm ziemi. Czujesz jak twoje serce szybko bije.\n");
             saybb(this_player()->query_Imie(this_player(), PL_MIA) +
                   " zaczyna grac szybciej i zwawiej. Plynace wartko dzwieki "+
                   "podrywaja serce do rytmicznego bicia, czujesz puls ziemi "+
                   "i taniec dzwiekow w plynacej muzyce.\n");
             break;
    case 2 : write("Urywasz gre na moment, az zalega cisza. Po chwili "+
                "znow podejmujesz melodie tak radosna i szczesliwa jak slonce.\n");
             saybb("Muzyka urywa sie nagle, jakby w oczekiwaniu na jakis "+
                "ruch. Wnet jednak sie odzywa sie ponownie, ze zdwojona "+
                "radoscia i szczesciem, wypelniajac kazda twoja czesc.\n");
             break;
    case 3 : write("Powoli sciszasz gre, choc nadal pobrzmiewaja w niej "+
                   "skoczniejsze tony, lagodzisz dzwieki.\n");
             saybb(this_player()->query_Imie(this_player(), PL_MIA) +
                   " powoli scisza gre, choc nadal slyszysz w muzyce wybijajace "+
                   "sie radosne nuty. Melodia zamienia sie w szmer.\n");
             break;
    }
    takt++;
    set_alarm(4.0, 0.0, &wesolo());
  } else {
   write("Opuszczasz instrument, urywajac skoczna melodie.\n");
   saybb(this_player()->query_Imie(this_player(), PL_MIA) +
            " opuszcza flet, urywajac skoczna melodie.\n");
   this_player()->change_prop(LIVE_S_EXTRA_SHORT,"");
   return 1;
 }
 return 1;
}

int
flwesolo()
{

    write("Unosisz srebrny flet do ust i zaczynasz grac.\n");
    saybb(this_player()->query_Imie(this_player(), PL_MIA) +
       " unosi srebrzysty flet i zaczyna grac.\n");
    this_player()->add_prop(LIVE_S_EXTRA_SHORT, "grajac" +this_player()->koncowka("y","a")+ " na flecie");
    takt = 0;


    wesolo();


  return 1;
}

int takt;

int romantycznie(){

  if(takt<5){
   switch(takt){
     case 0 : write("Z fletu plyna delikatne cieple dzwieki, ktore "+
              "wyplywajac z glebi twego serca unosza sie miekko jak motyle.\n")
              saybb("Melodia ktora cie ogarnia, wywoluje usmiech "+
                    "na twarzy, slyszysz w niej bowiem radosny szczebiot dzieci.\n");
             break;
     case 1 : write("Przymykasz oczy.\n");
             saybb(this_player()->query_Imie(this_player(), PL_MIA) +
                   " zaczyna grac szybciej i zwawiej. Plynace wartko dzwieki "+
                   "podrywaja serce do rytmicznego bicia, czujesz puls ziemi "+
                   "i taniec dzwiekow w plynacej muzyce.\n");
             break;
    case 2 : write("Urywasz gre na moment, az zalega cisza. Po chwili "+
                "znow podejmujesz melodie tak radosna i szczesliwa jak slonce.\n");
             saybb("Muzyka urywa sie nagle, jakby w oczekiwaniu na jakis "+
                "ruch. Wnet jednak sie odzywa sie ponownie, ze zdwojona "+
                "radoscia i szczesciem, wypelniajac kazda twoja czesc.\n");
             break;
    case 3 : write("Powoli sciszasz gre, choc nadal pobrzmiewaja w niej "+
                   "skoczniejsze tony, lagodzisz dzwieki.\n");
             saybb(this_player()->query_Imie(this_player(), PL_MIA) +
                   " powoli scisza gre, choc nadal slyszysz w muzyce wybijajace "+
                   "sie radosne nuty. Melodia zamienia sie w szmer.\n");
             break;
    }
    takt++;
    set_alarm(6.0, 0.0, &romantycznie());
  } else {
   write("Opuszczasz instrument, konczac slodka melodie.\n");
   saybb(this_player()->query_Imie(this_player(), PL_MIA) +
            " opuszcza flet, konczac upajajaca gre.\n");
   this_player()->change_prop(LIVE_S_EXTRA_SHORT,"");
   return 1;
 }
 return 1;
}

int
flromantycznie()
{

    write("Unosisz srebrny flet do ust i zaczynasz grac.\n");
    saybb(this_player()->query_Imie(this_player(), PL_MIA) +
       " unosi srebrzysty flet i zaczyna grac.\n");
    this_player()->add_prop(LIVE_S_EXTRA_SHORT, "grajac" +this_player()->koncowka("y","a")+ " na flecie");
    takt = 0;


    romantycznie();


  return 1;
}

int flpomoc(){
 write("Flet daje ci mozliwosc:\n");
 write("************************\n");
 write("flsmutno - zagrania smutnej melodii\n");
 write("flwesolo - zagrania zartobliwej melodii\n");
 write("flromantycznie - zagrania piesni o milosci\n");
 write("fldrzewa - zagrania melodii drzew\n");
 write("flmagia - zagrania magicznej melodii\n");
 return 1;
}