One room in eight-and-a-half IF languages

[KVonGit]

The Adventures of Koww the Magician was the first Quest game ever submitted to Alex.

The original version did not add the Quest 2 standard library which allowed full interaction with held items, nor did it define the items which could be held. Due to this, I recently decided to port it to Quest 5 (for Quest 5.9).

During that process, I thought it would be fun to port it to Squiffy as a CYOA. So, I did that, too.

After that, well... long story short: I went portin' crazy. In fact, I'm still porting it to other engines. I'm almost done with the PunyInform port right now.

I am enjoying working with the same thing in all the different IF languages, and I thought it would be fun to share the code for the first room from all the existing versions.

Original ASL (Adventure Scripting Language) (for Quest 2)

' ************KOWW'S CHASM************
define room <Koww's Chasm>
	command <read #1#> if is <#1#;sign> then exec <look at sign> else msg <What the hell is a #1#?>
	command <use #1#> if is <#1#;fly scroll> then do <finishproc>
	look <You are outside in a pasture of pure, pure green.  Green as far as the eye can see.  But you, Koww the Magician, are not satisfied.  The grass may be even greener on the other side of the |bchasm|xb... you must know!  Also in the area is a very undramatic |bsign|xb.>
	define object <sign>
		prefix <a>
		look <It reads: "|iGot milk?  Come to Farmer Zeke's mag-NIFicent silo!|xi">
		take msg <You yank the sign out of the ground and try to fit it in your Koww-pack.  But it just doesn't fit.  Frustrated, you put it back.>
	end define
	define object <chasm>
		prefix <the>
		look <That's the chasm you simply MUST cross!  Surely the only way to cross it is to FLY!> 
		take msg <Don't worry, the men in the white coats will soon be here to deal with you.>
	end define
	command <fly> {
		msg <That's not a spell you know.  But perhaps if you could find a scroll -- like the ones owned by the Great Phoenix -- you could do so.>}
	east <Zeke's Farm>
end define
define procedure <finishproc>
	if got <fly scroll> then do <endproc> else msg <Maybe you'll find it someday, but you don't have it today.  You stupid cow.>
end define
define procedure <endproc>
	msg <You fly up and over the chasm!>
	playerwin
end define

---

ASLX (for Quest 5.9)

  <object name="Kowws Chasm">
    <inherit name="editor_room" />
    <isroom />
    <alias>Koww's Chasm</alias>
    <usedefaultprefix type="boolean">false</usedefaultprefix>
    <description><![CDATA[You are in Koww's Chasm.<br/><br/>You are outside in a pasture of pure, pure green.  Green as far as the eye can see.{once:  But you, Koww the Magician, are not satisfied.  The grass may be even greener on the other side of the {object:chasm}... you must know!  Also in the area is}{notfirst:<br/><br/>You can see the {object:chasm} and} a very undramatic {object:sign}.<br/><br/>You can go <a style="font-family: {game.defaultfont}; color: {game.defaultlinkforeground}; font-size: {game.defaultfontsize};" class="cmdlink exitlink" data-elementid="exit1" data-command="go east">east</a>{if Zeke's Farm.visited: (to Zeke's Farm)}.]]></description>
    <prefix type="string"></prefix>
    <suffix type="string"></suffix>
    <smellme>You can smell... the pasture surrounding you, and water is nearby. The sweet smell of hay is coming from the east, which is where you also faintly sense the scent of Farmer Zeke. From across the chasm, you smell only mystery and adventure.</smellme>
    <enter type="script">
    </enter>
    <object name="player">
      <inherit name="editor_object" />
      <inherit name="editor_player" />
      <attr name="pov_look">You are Koww the Magician!</attr>
      <object name="milk">
        <inherit name="editor_object" />
        <isroom type="boolean">false</isroom>
        <usedefaultprefix type="boolean">false</usedefaultprefix>
        <look>Your magic milk{either milk.parent=player:, Zeke's favorite!| supply is now very low, but you'll have more in the sequel.}</look>
        <drop type="boolean">false</drop>
        <dropmsg>Why would you do that?  Awful waste of milk.</dropmsg>
        <inventoryverbs type="stringlist">
          <value>Look at</value>
          <value>Give</value>
        </inventoryverbs>
        <feature_usegive />
        <use type="boolean">false</use>
        <givesingle />
        <displayverbs type="stringlist">
          <value>Look at</value>
          <value>Take</value>
        </displayverbs>
        <takemsg>You already have it!</takemsg>
        <contemplate>{either milk.parent=player:Farmer Zeke LOVES your magic milk!|You gave some to Zeke, now your supply is low. That's okay, you don't need any more milk.}</contemplate>
        <giveto type="scriptdictionary">
          <item key="Zeke">
            pitchproc
          </item>
        </giveto>
      </object>
    </object>
    <object name="sign">
      <inherit name="editor_object" />
      <isroom type="boolean">false</isroom>
      <look>It reads: "{i:Got milk?  Come to Farmer Zeke's mag-NIFicent silo!}"</look>
      <takemsg>You yank the sign out of the ground and try to fit it in your Koww-pack.  But it just doesn't fit.  Frustrated, you put it back.</takemsg>
      <usestandardverblist />
      <listalias>Sign (object)</listalias>
      <contemplate>Just {command:read sign:read it}.</contemplate>
      <read type="script">
        msg (this.look)
      </read>
    </object>
    <object name="chasm">
      <inherit name="editor_object" />
      <isroom type="boolean">false</isroom>
      <usedefaultprefix type="boolean">false</usedefaultprefix>
      <prefix>the</prefix>
      <look>That's the chasm you simply MUST cross!  Surely the only way to cross it is to {command:FLY}!</look>
      <takemsg>Don't worry, the men in the white coats will soon be here to deal with you.</takemsg>
      <listalias>Chasm (object)</listalias>
      <cross>The only way to cross it is to {command:FLY}!</cross>
      <contemplate>You need to fly across it!!!</contemplate>
    </object>
    <exit name="exit1" alias="east" to="Zekes Farm">
      <inherit name="eastdirection" />
      <look type="script">
        msg ("It is the way to Zeke's Farm.")
      </look>
    </exit>
    <object name="pasture">
      <inherit name="editor_object" />
      <scenery />
      <look>About what you'd expect, very green.</look>
      <alt type="stringlist">
        <value>green pasture</value>
        <value>grass</value>
      </alt>
      <not_all />
      <takemsg>That grass doesn't look appetizing. You chew your cud instead.</takemsg>
    </object>
  </object>

---

Squiffy

<!-- ************KOWW'S CHASM************ -->
[[Koww's Chasm]]:
You are in <font color=red>Kow<span onclick="cheat()">w</span>'s Chasm</font>.<br/>
There is nobody here.<br/>
There is a [sign] and the [chasm] here.<br/>
You can go [[east]](Zeke's Farm).<br/>
You are outside in a pasture of pure, pure green.  Green as far as the eye 
can see.  But you, Koww the Magician, are not satisfied.  The grass may be 
even greener on the other side of the 
{strongTake}chasm</strong>... you must 
know! Also in the area is a very undramatic {strongTake}sign</strong>.
{if gotflyscroll:

[Use fly scroll.](FLY)}

[sign]:
It reads: "<em>Got milk?  Come to Farmer Zeke's mag-NIFicent silo!</em>"

[take sign]:
**> take sign**

You yank the sign out of the ground and try to fit it in your Koww-pack. 
But it just doesn't fit.  Frustrated, you put it back.

[chasm]:
That's the chasm you simply MUST cross!  Surely the only way to cross it 
is to [FLY]!

[take chasm]:
**> take chasm**

Don't worry, the men in the white coats will soon be here to deal with you.

[FLY]:
    if (squiffy.get('gotflyscroll')){
      squiffy.story.passage('endproc');
    }
    else {
      squiffy.story.passage('noscroll');
    }

[noscroll]:
That's not a spell you know.  But perhaps if you could find a scroll -- 
like the ones owned by the Great Phoenix -- you could do so.


[endproc]:
@clear
You fly up and over the chasm!<br/>
Congratulations, you have found out that you were better off where you 
started anyway.  The grass here is brown and crackly.  Too bad!  And... OH 
NO!  Now you're trapped here, alone with the NecroYaks!  Stay tuned for 
"The Adventures of Koww the Magician II -- Escape from the NecroYaks!"

---

JavaScript (for QuestJS 1.4.0)

/*
**************KOWW'S CHASM************
*/

createRoom("kowwsChasm", {
  alias: "Koww's Chasm",
  east: new Exit("zekesFarm"),
  desc:"You are outside in a pasture of pure, pure green.  Green as far as the eye can see.{once:  But you, Koww the Magician, are not satisfied.  The grass may be even greener on the other side of the {nm:chasm}... you must know!  Also in the area is}{notfirst:<br/><br/>You can see the {object:chasm} and} a very undramatic {nm:sign}.<br/><br/>You can go {exit:east}."
})

createItem("chasm", TAKEABLE(), {
  loc:"kowwsChasm",
  examine:"That's the chasm you simply MUST cross!  Surely the only way to cross it is to {exit:fly:FLY}!",
  take:"Don't worry, the men in the white coats will soon be here to deal with you."
})

createItem("sign", TAKEABLE(), {
  examine:"It reads: \"{i:Got milk?  Come to Farmer Zeke's mag-NIFicent silo!}\"",
  read:"It reads: \"{i:Got milk?  Come to Farmer Zeke's mag-NIFicent silo!}\"",
  take:"You yank the sign out of the ground and try to fit it in your Koww-pack.  But it just doesn't fit.  Frustrated, you put it back.",
  loc:"kowwsChasm",
  verbFunction:function(list) {
    list.splice("Examine")
    list.push("Read")
  }
})

createItem("pasture", {
  loc:"kowwsChasm",
  alias:"pasture of green grass",
  examine:"About what you'd expect, very green.",
  take:"That grass doesn't look appetizing. You chew your cud instead.",
  scenery:true
})

---

ZIL (Zork Implementation Language) (for Zilf 0.9)

;" ************************* KOWW'S CHASM ***************************************"

<ROOM KOWWS-CHASM
  (IN ROOMS)
  (DESC "Koww's Chasm")
  (ACTION KOWWS-CHASM-R)
  (FLAGS LIGHTBIT OUTSIDEBIT)
  (THINGS (PURE GREEN) (PASTURE GRASS) "It's very, very green.")
  (EAST TO ZEKES-FARM)>

<ROUTINE KOWWS-CHASM-R (RARG)
  <COND
    (<==? .RARG ,M-LOOK>
      <TELL 
"You are outside in a pasture of pure, pure green.  Green as far as the eye can
see.  But you, Koww the Magician, are not satisfied.  The grass may be even
greener on the other side of the chasm... you must know!  Also in the area is a very undramatic
sign." CR CR>)
    (<==? .RARG ,M-FLASH>
      <TELL "You can go east." CR>)>>

<OBJECT CHASM-SIGN
  (DESC "sign")
  (SYNONYM SIGN)
  (IN KOWWS-CHASM)
  (FLAGS NDESCBIT TAKEBIT TRYTAKEBIT)
  (ACTION CHASM-SIGN-R)>

<OBJECT CHASM
  (DESC "chasm")
  (FLAGS NDESCBIT TAKEBIT)
  (SYNONYM CHASM)
  (IN KOWWS-CHASM)
  (ACTION CHASM-R)>


<ROUTINE CHASM-SIGN-R ()
    <COND
      (<VERB? EXAMINE READ>
        <TELL "It reads: '">
        <ITALICIZE "Got milk?  Come to Farmer Zeke's mag-NIFicent silo!">
        <TELL "'" CR>)
      (<VERB? TAKE>
        <TELL 
"You yank the sign out of the ground and try to fit it in your Koww-pack.  But
it just doesn't fit.  Frustrated, you put it back." CR>
        <FCLEAR ,KOWW-PACK ,INVISIBLE>)>>

<ROUTINE CHASM-R ()
  <COND
    (<VERB? TAKE>
      <TELL 
"Don't worry, the men in the white coats will soon be here to deal with you.|">)
    (<VERB? EXAMINE>
      <TELL 
"That's the chasm you simply MUST cross!  Surely the only way to cross it is to
FLY!" CR>)
    (<VERB? SEARCH>
      <TELL "That is not possible from your current location." CR>
    )>>

---

Inform 7

[************KOWW'S CHASM************]

KOWWS-CHASM is a room. "You are outside in a pasture of pure, pure green.  Green as far as the eye can see. But you, Koww the Magician, are not satisfied.  The grass may be even greener on the other side of the [bold type]chasm[roman type]... you must know!  Also in the area is a very undramatic [bold type]sign[roman type].[paragraph break]You can go [bold type]east[roman type]."

The printed name of KOWWS-CHASM is "Koww's Chasm".

The player is in KOWWS-CHASM.

Your milk is carried by the player.

The description of milk is "You are more than familiar with your own magic milk.".

Instead of dropping milk:
	say "Why would you do that?  Awful waste of milk.";
	rule succeeds.

The chasm is scenery  in KOWWS-CHASM.

The description of the chasm is "That's the chasm you simply MUST cross!  Surely the only way to cross it is to [bold type]fly[roman type]!".

Before trying taking the chasm:
	say "[thatscrazy]";
	rule succeeds instead.

The sign is scenery in KOWWS-CHASM.

The description of the sign is "It reads: '[italic type]Got milk?  Come to Farmer Zeke's mag-NIFicent silo![roman type]'[line break]".

Before trying taking the sign:
	say "You yank the sign out of the ground and try to fit it in your Koww-pack.  But it just doesn't fit.  Frustrated, you put it back.";
	rule succeeds instead.

A thing called the pasture is scenery in KOWWS-CHASM. Understand "green" and "pasture" and "grass" as pasture.

The description of the pasture is "The pasture is pure, pure green.  Green grass, as far as the eye can see.".

Before trying taking the pasture:
	say "[thatscrazy]";
	rule succeeds instead.

---

PunyInform (alternative Inform 6 library)

!################# KOWW'S CHASM #########################
Object kowws_chasm "Koww's Chasm"
	with
		description 
"You are outside in a pasture of pure, pure green.  Green as far as the eye can see.  But you, Koww
the Magician, are not satisfied.  The grass may be even greener on the other side of the chasm...
you must know!  Also in the area is a very undramatic sign.^^You can go east.",
  e_to zekes_farm;

Object -> sign "sign"
	with
		name 'sign',
		description "It reads: ~Got milk?  Come to Farmer Zeke's mag-NIFicent silo!~",
    before [;
      Take:
        print_ret 
"You yank the sign out of the ground and try to fit it in your Koww-pack.  But it just doesn't fit. 
Frustrated, you put it back.";
    ],
  has scenery;

Object -> chasm "chasm"
  with name
    'chasm',
  description
    "That's the chasm you simply MUST cross!  Surely the only way to cross it is to FLY!",
  before [;
      Take:
        print_ret "Don't worry, the men in the white coats will soon be here to deal with you.";
    ],
  has scenery;
  
Object -> pasture "pasture"
  with name 'green' 'pasture',
       description "The pasture is pure, pure green.",
  has scenery;

---

I also have two versions of both the ZIL and the Inform 7 ports.

I converted the Zilf port to a website using Parchment, then modified the ZIL and Parchment's JS to add hyperlinks (including object links with drop-down menus, exit links, and command links, but no panes), and I did the same with i7 version and Vorple.

No reason to share the code for those versions, really, because it's all game-specific and probably wouldn't help anyone at all. It just seemed like I should make "clickable" versions of those ports, since the other versions all have link functionality. This seems like a fair approach, for some reason.

Anyway, if I end up with a TADS and/or ALAN port, I'll come back and update this, ha-ha!

Happy gaming!

[KVonGit]

Inform 6.42 (no PunyInform)

!################# KOWW'S CHASM #########################
Object kowws_chasm "Koww's Chasm"
	with
		description 
"You are outside in a pasture of pure, pure green.  Green as far as the eye can see.  But you, Koww
the Magician, are not satisfied.  The grass may be even greener on the other side of the chasm...
you must know!  Also in the area is a very undramatic sign.^^You can go east.",
  e_to zekes_farm,
  has light;

Object -> sign "sign"
	with
		name 'sign',
		description "It reads: ~Got milk?  Come to Farmer Zeke's mag-NIFicent silo!~",
    before [;
      Take:
        print_ret 
"You yank the sign out of the ground and try to fit it in your Koww-pack.  But it just doesn't fit. 
Frustrated, you put it back.";
    ],
  has scenery;

Object -> chasm "chasm"
  with name
    'chasm',
  description
    "That's the chasm you simply MUST cross!  Surely the only way to cross it is to FLY!",
  before [;
      Take:
        print_ret "Don't worry, the men in the white coats will soon be here to deal with you.";
    ],
  has scenery;
  
Object -> pasture "pasture"
  with name 'green' 'pasture',
       description "The pasture is very green.",
  has scenery;

---

ALAN 3

-- ######################## KOWW'S CHASM ###############
The KowwsChasm IsA site
  Mentioned "Koww's Chasm"
  Description
  "You are outside in a pasture of pure, pure green.  Green as far as the eye can see. But you, Koww the Magician, are not satisfied.  The grass
  may be even greener on the other side of the chasm... you must know!  Also in the area is a very undramatic sign.$PYou can go east.$P"
  exit east to ZekesFarm.
end The.

The chasm IsA object
  at KowwsChasm
  description ""
  VERB examine
    DOES ONLY say "That's the chasm that you simply MUST cross!  Surely the only way to cross it is to FLY!".
  END VERB.
  VERB take
	DOES ONLY say "Don't worry, the men in the white coats will soon be here to deal with you.".
  END VERB.
end the.

The sign IsA object
  at KowwsChasm
  description ""
  Is readable.
  VERB examine, read
    DOES ONLY say "It reads: ""Got milk?  Come to Farmer Zeke's mag-NIFicent silo!""".
  END VERB.
  VERB take
	DOES ONLY say "You yank the sign out of the ground and try to fit it in your Koww-pack.  But it just doesn't fit.  Frustrated, you put it back.".
  END VERB.
end the.

[KVonGit]

TADS 3

KowwsChasm: OutdoorRoom 'Koww\'s Chasm'
    "You are outside in a pasture of pure, pure green.  Green as far as the eye can see. But you, Koww the Magician, are not satisfied. 
    The grass may be even greener on the other side of the chasm... you must know!  Also in the area is a very undramatic sign.
    <.p>You can go east."

    east = ZekesFarm
;

+ me: Actor
;

+ chasm: Immovable 'chasm' 'chasm'
    "It's the chasm that you simply MUST cross!  The only way to get across it is to FLY!"
    cannotTakeMsg = 'Don\'t worry. The men in white coats will soon be here to deal with you.'
;

+ sign: Immovable 'sign' 'sign'
    "It reads: \"Got milk?  Come to Farmer Zeke's mag-NIFicent silo!\""
    cannotTakeMsg = 'You yank the sign out of the ground and try to fit it in your Koww-pack.  But it just doesn\'t fit.  Frustrated, you
        put it back.'
;

+ pasture: Floor 'green grass pasture' 'pasture'
    "The pasture is pure, pure green!"
;