/* Przykladowy dylizans
 * Napisane przez Alfena
 */
 
#include "local.h"
#include <pl.h>

inherit LPATH + "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("czarny","czarni");
  
  // ustawiamy krotki opis - koniecznie po dodaniu przymiotnikow i nazwy
  ustaw_krotki_opis();
  
   // dlugi opis
  set_long("Czarny dylizans zaprzezony jest w czworke koni. Na kozle "+
     "siedzi mezczyzna trzymajacy w reku bat. Ubrany on jest w "+
     "stroj takze koloru czarnego. Z obu stronach dylizansu, "+
     "tuz obok kozla wystaja lampy, ktorych zadaniem jest zapewne "+
     "ostrzeganie podroznych przemierzajacych trakty Imperium noca.\n");
     
  
  //trasa dylizansu
  ustaw_trase_dylizansu(({
    0,"n","n","n","@@brama1","n","n","n","ne","e","ne","ne","ne",
    "e","e","e","se","se","se","se","e","se","n",
    0,"s","se","e","e","e","se","se","e","e",
    "ne","n","ne","e","e",0,
    "w","w","sw","s","sw",
    "w","w","nw","nw","w","w","w","nw","n",0,
    "s","nw","w","nw","nw","nw","nw","w","w","w",
    "sw","sw","sw","w","sw","s","s","s","@@brama1","s","s","s"}) );
  
  // wnetrze dylizansu
  ustaw_wnetrze_dylizansu(LPATH + "wnetrze_dylizansu_1.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;
}