/* 
 * Dylizans Nuln - Las Loren
 *  by Tanis ( na podstawie przykladu Alfena )
 */
 

#include "dylizans.h"
#include "ogolne.h"

inherit DPATH + "dylizans";

void
create_dylizans()
{
  // w tym miejscu ustawiamy nazwe naszego dylizansu
  ustaw_nazwe( ({"dylizans","dylizansu","dylizansowi","dylizans",
    "dylizansem","dylizansie"}),
    ({"dylizansy","dylizansow","dylizansom","dylizansy","dylizansami",
    "dylizansach"}), PL_MESKI_NOS_NZYW);
  
 

  // przymiotnik
  dodaj_przym("zielony","zieloni");
  
  // ustawiamy krotki opis - koniecznie po dodaniu przymiotnikow i nazwy
  ustaw_krotki_opis();
  
   // dlugi opis
  set_long("Duzy, zielony dylizans zaprzezony w czworke koni. Na kozle siedzi mezczyzna ubrany w skorzane, "
     + "wygodne ubranie. Dylizans jest nieco przykurzony, lecz wyglada na zadbany. "
     + "Po bokach dylizansu, tuz obok kozla woznicy umocowano lampy, ostrzegajace "
     + "osoby podrozujace po zmroku. Dylizans wyglada na solidny i z pewnoscia jest bardzo wygodny, "
     + "nawet podczas dlugich podrozy.\n");
     
  
  //trasa dylizansu - Na razie z placu glownego w Nuln do lokacji trakt18, przed samym wejsciem do Loren
  // Postoje - plac poludniowy w Nuln
  //         - gl. plac w Kreutzhofen ( ten z tablica )
  //         - lokacja przed wejsciem do Loren
  
  ustaw_trase_dylizansu(({
    0,"s","@@brama1","s","s","s","s","s","s","s","s",
    "s","s","sw","sw","sw","sw","w","w","w","w",
    0,"n","nw","nw","e","e","ne","@@most1",
    "n","n","n",
    "w","w","sw","sw","nw","w","w","w","nw","sw",
    "w","nw","w","w","w","nw","nw","n","nw",
    "w","w","nw","w","w","s",0,
    "n","e","e","se","e","e",
    "se","s","se","se","e","e","e","se","e",
    "ne","se","e","e","e","se","ne","ne","e","e",
    "s","@@most1",
    "s","s","sw","w","w","se","se","s",0,
    "e","e","e","e","ne","ne","ne","ne","n","n",
    "n","n","n","n","n","n","n","@@brama1","n","n"}) );

   seteuid(getuid()); // Ustawiamy, bo inaczej dylizans nie potrafi zaladowac swego wnetrza.
  
  // wnetrze dylizansu
  ustaw_wnetrze_dylizansu("/d/Imperium/Loren/dylizans/wnetrze_dylizansu_nl.c");
  
  // czas przebywania w lokacjach podczas ruchu w sekundach
  ustaw_czas_ruchu(5);
  
  // czas postoju w sekundach
  ustaw_czas_postoju(30);
  
  // ilosc osob, jakie moga sie zmiescic w dylizansie
  ustaw_pojemnosc_dylizansu(4);
  
  // cene biletu w miedziakach
  ustaw_cene_biletu(10);
  
  // uruchamiamy dylizans
  uruchom_dylizans();
}


float
brama1()
{
  object ob = environment(this_object());
  
  if (ob->brama_zam())
    ob->otworz_zamknij();
  return 0.1;
}


int
most1()
{
   int ile;

   ile = find_object(MASZYNA)->dylizans_czeka_przy_moscie();

   if(ile > 1)
     {
   tell_room(find_object(PATH + "dylizans/wnetrze_dylizansu_nl.c"),"Z zewnatrz dochodzi glos woznicy wolajacego : "
       + "Prosze o cierpliwosc, bedziemy musieli chwile poczekac na opuszczenie mostu na rzece !\n");
   tell_room(environment(this_object()),"Woznica wola do wnetrza dylizansu: Prosze o cierpliwosc, bedziemy musieli chwile poczekac na opuszczenie mostu na rzece !\n");
   ustaw_zdarzenia_na_postoju();
   remove_adj("pedzacy");
   ustaw_krotki_opis();
   set_alarm(itof(ile), 0.0, "ustaw_zdarzenia_podczas_drogi");
   set_alarm(itof(ile), 0.0, "dodaj_przym",({"pedzacy","pedzacy"}));
   set_alarm(itof(ile)+0.5, 0.0, "ustaw_krotki_opis");
     }
       
  return ile;
}