#!/usr/local/jacl-1.5/bin/jacl # ----------------------------------------------------------------------------- prefix ;Put game identifier here constant GAME_VERSION 1 # ----------------------------------------------------------------------------- {+intro if here hasnt OUTDOORS move north_wall to here move south_wall to here move east_wall to here move west_wall to here endall move ground to here look } object kryten: myself self me has ANIMATE short name "yourself" quantity 42 parent ;PUT THE LABEL OF THE STARTING LOCATION HERE player {examine write "

As beautiful as ever.

" execute "+inventory" } {take write "

...seriously?" set TIME = false } {+no_light write "

It is too dark to see.^" set TIME = false } {+title if player has SITTING write "

(sitting)

^" endif } {+game_over write "

^" centre "

---[THE END]---

" if interpreter = TACL write "^" execute "+score" endif endgame loop if noun3(parent) = player set noun3(parent) = limbo endif endloop set player(parent) = prologue look } location prologue : prologue {look write "

The game is over. Type restart or restore." write "A restore command can optionally be followed by a filename.

^" } {+header write "Content-type: text/html" write "Expire: -1^^" write " write "" execute "+styles" write "" write "
" } {+footer write "
" execute "+exits" prompt execute "+score" write "" write "" write "" } {+styles write "" }