/*
 * Tablica z melodiami do Elfiego Fletu
 *   by Tanis
 *
 *   Musze sie wytlumaczyc .... ;-)
 *    No wiec .... W tej (nad)tablicy sa kolejno (dla kazdej melodii) :
 *         1) tablica z okresleniami melodii w tablicy nastepnej.
 *         2) tablica z wlasciwa melodia, kolejno :
 *                 a) (pod)tablica z opisem1, opisem2, opisem3, przypadkiem, i liczba
 *                      Jesli liczba=1, to wszyscy w pokoju (poza grajacym)
 *                       dostaja opis1+imie_grajacego(w podanym przypadku)+opis2
 *                      Jesli liczba=0, to dostaja opis1+opis2.
 *                      Grajacy zawsze dostaje opis3
 *                 b) liczba oznaczajaca przerwe miedzy kolejnym etapem melodii
 *                     Jesli liczba ta=0, to gra konczy sie
 *                     Uwaga ! Na koncu zawsze musi byc 0 !
 *
 *      W przypadku tablicy z melodiami dla kogos miedzy opisem dla innych
 *         a opisem dla grajacego jest opis dla celu gry ( na koncu, za parametrami dla innych
 *                     sa parametry dla celu).
 *       A ! I mala zmiana - przy parametrach dla innych ( pierwsze 2) : 
 *            PL_PRZYPADEK,0 <- nie wystepuje imie w zwrotce.
 *            PL_PRZYPADEK,1 <- w zwrotce wystepuje imie grajacego w danym przypadku
 *            PL_PRZYPADEK,2 <- w zwrotce wystepuje imie celu w danym przypadku
 *      Oprocz tego na samym koncu sa parametry dla grajacego ( opisujace cel)
 *
 *   Jesli ktos chce zagrac melodie <dla kogos> to jest szukana w tablicy z melodiami dla kogos.
 *     Jesli nie poda sie, dla kogo sie gra, to w zwyklej tablicy. ( Nazwy melodii w tablicach 
 *            moga sie wiec powtarzac - w zaleznosci od okolicznosci bedzie wzieta odpowiednia.)
 *
 *   Dodatkowo jest funkcja - czy_melodia_mozliwa(object grajacy, object dla_kogo_gra, string nazwa_melodii)
 *     Sprawdza ona, czy wykonanie melodii jest mozliwe ( robilem dla 'milosnej melodii' - w tym przypadku rozne plci )
 *
 *              Ufffff.... Wiem, system moze moglby byc bardziej elastyczny, jednak na razie nie potrzebuje innego...
 *                           Jak bede potrzebowal ( i bedzie mi sie chcialo) to pewnie rozbuduje ... ;-))))
 *                                               Tanis
 *
 *   Melodie - Ellentir, Silvy, Tanis ( na podstawie propozycji graczy )
 *
 */

mixed tablica_melodii=({ ({"wesola melodie"}),
    ({  ({""," gra swa melodie, a muzyka sprawia, ze wpadasz w lepszy nastroj.",
             "Grasz swoja melodie i wiesz, ze sluchaczom od razu poprawi sie nastroj.",PL_MIA,1}),
        5,
        ({"Melodia"," staje sie jeszcze weselsza. Zapominasz o wszystkich troskach i koncentrujesz jedynie na melodii fletu...",
          "Twoja melodia robi sie jeszcze bardziej wesola. Koncentrujesz sie jedynie na niej, zapominajac o wszystkich troskach.",PL_DOP,0}),
        3,
        ({""," gra ciszej, melodia powoli konczy sie...","Grasz coraz ciszej, twoja muzyka powoli cichnie ...",PL_MIA,1}),
        0
    }),
  ({"smutna melodie"}),
    ({  ({""," gra powoli jakas smutna melodie.","Grasz powoli smutna melodie.",PL_MIA,1}),
        5,
        ({"Wsluchujesz sie mocniej w melodie "," i slyszysz zawarty w niej bol.",
          "Czujesz, ze dzwiek wydobywajacy sie "
              + "z twego fletu zawiera caly bol, ktory nazbieral sie w twojej duszy...",PL_DOP,1}),
        5,
        ({"Melodia grana przez "," powoduje, ze czujesz sciskanie w gardle.",
          "Rzewna melodia nawet ciebie sciska w gardle, jednak nie przerywasz gry.",PL_BIE,1}),
        5,
        ({"Czujesz, ze pojedyncza lza, ktorej nie udalo ci sie powstrzymac sluchajac dzwieku fletu ",", splywa po twym policzku.",
          "Czujesz, ze pojedyncza lza, ktorej nie udalo ci sie powstrzymac sluchajac dzwieku fletu, splywa po twym policzku.",PL_DOP,1}),
        0
   }),
  ({"skoczna melodie"}),
    ({  ({""," gra lekka, skoczna melodyjke na swym flecie.","Grasz lekka, skoczna melodyjke.",PL_MIA,1}),
        2,
        ({""," gra dalej, a tobie az chce sie troche klaskac i skakac w rytm melodii.",
          "Grasz dalej, lekko podskakujac w rytm melodii.",PL_DOP,1}),
        0
   }),
  ({"lesna melodie"}),
    ({  ({"Wydaje ci sie, ze melodia grana przez "," jest piesnia samego lasu.","Grasz melodie, ktora wydaje sie byc melodia samego lasu.",PL_BIE,1}),
        4,
        ({"W melodii "," slyszysz szum wiatru, spiew ptakow i wycie wilkow.",
          "W twej melodii slychac szum wiatru, spiew ptakow i wycie wilkow.",PL_DOP,1}),
        4,
        ({"Melodia "," zbliza sie ku koncowi, pozostawiajac w twym umysle obraz pieknego, zielonego boru.",
          "Twa melodia zbliza sie ku koncowi, pozostawiajac w umysle obraz pieknego, zielonego boru.",PL_DOP,1}),
        0
   }),

  ({"milosna melodie"}),
    ({  ({""," gra piekna, milosna melodie dla wszystkich zakochanych.","Grasz piekna, milosna melodie dla wszystkich zakochanych.",PL_MIA,1}),
        4,
        ({"Slyszysz, jak w swej muzyce "," stara wyrazic cala milosc, jaka darzy sie ukochana osobe.",
          "W melodii fletu starasz sie wyrazic cala milosc, jaka darzy sie ukochana osobe.",PL_BIE,1}),
        7,
        ({"Nagle dostrzegasz na twarzy "," dostrzegasz zdziwienie, a melodia staje sie zupelnie inna. Zupelnie, jakby flet sam zaczal grac.",
          "Niespodziewanie melodia przestaje sie ciebie sluchac, jakby kierowana inna, potezniejsza sila. Tak potezna, jak milosc.",PL_DOP,1}),
        4,
        ({"Melodia fletu "," staje sie coraz glosniejsza, zarliwsza, wprost naladowana emocjami.",
          "Grasz coraz glosniej, zarliwiej, melodia staje sie wprost naladowana emocjami.",PL_DOP,0}),
        7,
        ({"Melodia robi sie coraz cichsza, jakby grajacy coraz bardziej sie meczyl. Zerkasz na twarz ",", jednak mimo zmeczenia maluje sie na niej radosc. Radosc z tego, ze gra na flecie udalo sie oddac piekno milosci.",
          "Gra zaczyna cie meczyc, jednak twa dusze wprost rozpiera radosc. Szczescie, ze udalo ci sie oddac piekno milosci.",PL_DOP,1}),
        0
   }),
  
  ({"bitewna melodie"}),   
  ({   ({"Dzwieki fletu "," ukladaja sie w pelna werwy melodie.",
  "Umiejetenie dobierasz dzwieki, chcac rozpalic serca i dusze otaczajacych cie osob.",PL_DOP,1}),
  5,
  ({"","Czujesz, jak twa reka zaciska sie w piesc, a w sercu pojawia sie "+
  "nieodparta wola zwyciestwa.","Czujesz, jak przepelnia cie energia, ktora "+
  "przemieniasz we wzniosle tony fletu.",0,0}),
  5,
  ({""," konczy grac, a ciebie przepelnia niemal pewnosc, ze nastepne zwyciestwo "+
  "bedzie Twoje!","Z sercem pelnym woli zwyciestwa, wydobywasz z instrumentu ostatnia nute.",PL_MIA,1}),
  0
  })

  });

mixed tablica_melodii_dla_kogos=({ ({"milosna melodie"}),
    ({  ({"Melodia grana przez "," jest niezwykle slodka. Probujesz dokladniej sie w nia wsluchac, jednak nagle zdajesz sobie sprawe, ze ta melodia nie jest dla ciebie...",
          "Melodia grana przez "," jest niezwykle slodka. Napawa cie niespotykanie milym i oniesmielajacy uczuciem...",
          "Z twego fletu wydobywaja sie slodkie i bardzo delikatne dzwieki kojace kazdy bol i troske... kazdy gniew i kazda zlosc...","",PL_DOP,1,PL_DOP,1,PL_MIA,0}),
        5,
        ({"Widzisz, ze w miare sluchania twarz "," oblewa sie purpurowym rumiencem, a oddech staje sie nieco szybszy.",
          "Czujesz jak twoja twarz oblewa sie purpurowym rumiencem, serce bije tak szybko jak nigdy dotad nie bilo...","",
          "Widzisz, ze w miare jak grasz, twarz "," oblewa sie purpurowym rumiencem, a oddech staje sie nieco szybszy.",PL_DOP,2,PL_MIA,0,PL_DOP,1}),
        5,
        ({"Widzisz, jak sluchajac melodii fletu, twarz "," rozjasnia lekki usmiech...",
          "Usmiechasz sie lekko, zapominasz o otaczajacym Cie swiecie...","",
          "Czujesz cieplo, ktore zaczyna ogarniac Twoje serce na widok usmiechu malujacego sie na twarzy ","...",PL_DOP,2,PL_MIA,0,PL_DOP,1}),
        4,
        ({"Slyszysz, ze melodia grana przez "," staje sie az ciezka od zawartych w niej emocji.",
          "Slyszysz, ze "," w swej muzyce stara sie jak najlepiej oddac swa milosc do ciebie... milosc, ktora jest tak wielka jak slonce... swieza jak poranna rosa... i piekna jak ksiezyc w pelni, lekko polyskujacy w tafli jeziora...",
          "Swoja muzyka probujesz wyrazic swoje uczucia... swoja milosc do ",", ktora jest tak wielka jak slonce... swieza jak poranna rosa... i piekna jak ksiezyc w pelni, lekko polyskujacy w tafli jeziora...",PL_DOP,1,PL_MIA,1,PL_DOP,1}),
        7,
        ({"Melodia powoli konczy sie, pozostawiajac na twarzy "," lekki, niesmialy usmiech.",
          "Dajesz uwiesc sie tej niebianskiej muzyce... melodia powoli konczy sie, ale ty jeszcze przez jakis czas pozostajesz w romantycznym, blogim stanie... lekkim zamysleniu... po chwili powracasz do realnego swiata, lecz pozostal w tobie czar muzyki ","...",
          "Twoja melodia zbliza sie do konca, a na twej twarzy maluje sie lekki, niesmialy usmiech...","",PL_DOP,1,PL_DOP,1,PL_MIA,0}),
        0
    }) 

  });

int
czy_melodia_mozliwa(object kto, object dla_kogo, string *nazwy)
{
  int a;

   for(a=0;a<sizeof(nazwy);a++)
      {
       switch(nazwy[a])
          {
         case "milosna melodie" :
                                   if(kto->query_gender() == dla_kogo->query_gender())
                                      {
                                         write("Przeciez nie bedziesz grac tej melodii dla " + kto->koncowka("mezczyzny","kobiety") + "!\n");
                                         return 0;
                                      }
                                   break;
          }
       }

   return 1;
}