miércoles, 19 de mayo de 2010

Código Capítulo 3

import 'palante.i'.

------------------------
-- Bareto
------------------------
The bareto Isa location
  Name Bareto.
  Description
    "Un viejo y maloliente bareto de mala muerte... tu favorito. Junto a la vieja y sucia barra del bar está la única silla, de plástico cutre.$nAl norte está el lavabo.$n"
  Exit norte To lavabo.
End The bareto. 

The barra Isa object At bareto
  Name barra del bar.
  Name barra.
  Name bar.
  Name bareto.
  Is femenina.
  Is Not tomable.
  Description
    ""
  Verb examinar
    Does Only
      "La vieja barra del bar está pegajosa por los innumerables líquidos y comidas 
      que han ido cayendo y nadie se preocupó de limpiar correctamente."
    End Verb.
End The barra.

The silla Isa object At bareto
  Name silla.
  Is femenina.
  Is Not tomable.
  Description
    ""
  Verb examinar
    Does Only
      "Una incómoda silla de plástico barato blanco de bar."
  End Verb.
End The silla.

The jarra_cerveza Isa object In hero
  Name jarra de cerveza.
  Name jarra.
  Name cerveza.
  Is bebible.
  Is femenina.
  Description
    "Una jarra de cerveza que ya no está fría."
  Verb examinar
    Does Only
      "La jarra de cerveza caliente está medio vacía."
  End Verb.
  Verb beber
    Does Only
      Locate jarra_cerveza At Limbo.
      Locate jarra_vacia In Hero.
      "De un aburrido trago te bebes el resto de la cerveza caliente. Sabe a orina."
  End Verb.
End The jarra_cerveza.

The jarra_vacia Isa object At Limbo
  Name jarra de cerveza.
  Name jarra.
  Name cerveza.
  Is femenina.
  Description
    "Una jarra de cerveza vacía."
  Verb examinar
    Does Only
      "La jarra de cerveza está vacía... algún desalmado se la bebió..."
  End Verb.
End The jarra_vacia


------------------------
-- Lavabo
------------------------
The lavabo Isa location
  Name Lavabo.
  Description
    "De este infecto lavabo sale el olor característico del bareto.$nAl sur puedes volver al bareto.$n"
  Exit sur To bareto.
End The lavabo.


Start At bareto. 
schedule ini_terms at limbo after 0.
Show 'parao.png'.
"$n$tParao: un tutorial para Alan en castellano.$n$n
Estás en paro, y tu novia te ha echado de casa diciéndote que no vuelvas hasta que
no tengas un trabajo y dinero. Ahora te encuentras en tu bar favorito con una cerveza
en la mano...$n"

No hay comentarios:

Publicar un comentario