This instance will be upgraded to Heptapod 0.17.2 on 2020-12-03 at 14:00 UTC+1 (a few minutes of down time)

Commit ff9d1ec2 authored by Jesse McGrew's avatar Jesse McGrew

Updated the cloak full test project.

parent 398c115b680f
......@@ -6,7 +6,7 @@ Cloak of Darkness
A basic IF demonstration.
Original game by Roger Firth
ZIL conversion by Jesse McGrew, Jayson Smith, and Josh Lawrence
Release 1 / Serial number 150611 / ZILF 0.5 lib J1
Release 1 / Serial number 150611 / ZILF 0.6 lib J2
Foyer of the Opera House
You are standing in a spacious hall, splendidly decorated in red and gold, with glittering chandeliers overhead. The entrance from the street is to the north, and there are doorways south and west.
......@@ -22,8 +22,7 @@ You are standing in a spacious hall, splendidly decorated in red and gold, with
> Foyer of the Opera House Score: 0 Moves: 3 You can't go that way.
> Foyer of the Opera House Score: 0 Moves: 4 Darkness
It is pitch black. You are likely to be eaten by a grue.
> Foyer of the Opera House Score: 0 Moves: 4 It is pitch black. You are likely to be eaten by a grue.
> Foyer Bar Score: 0 Moves: 5 It is too dark to see what you're carrying.
......@@ -61,13 +60,12 @@ Cloak of Darkness
A basic IF demonstration.
Original game by Roger Firth
ZIL conversion by Jesse McGrew, Jayson Smith, and Josh Lawrence
Release 1 / Serial number 150611 / ZILF 0.5 lib J1
Release 1 / Serial number 150611 / ZILF 0.6 lib J2
Foyer of the Opera House
You are standing in a spacious hall, splendidly decorated in red and gold, with glittering chandeliers overhead. The entrance from the street is to the north, and there are doorways south and west.
> Foyer of the Opera House Score: 0 Moves: 0 Darkness
It is pitch black. You are likely to be eaten by a grue.
> Foyer of the Opera House Score: 0 Moves: 0 It is pitch black. You are likely to be eaten by a grue.
> Foyer Bar Score: 0 Moves: 1 You grope around clumsily in the dark. Better be careful.
......
......@@ -16,22 +16,24 @@ ZIL conversion by Jesse McGrew, Jayson Smith, and Josh Lawrence">
<TELL "Hurrying through the rainswept November night, you're glad to see the
bright lights of the Opera House. It's surprising that there aren't more
people about but, hey, what do you expect in a cheap demo game...?" CR CR>
<INIT-STATUS-LINE>
<V-VERSION> <CRLF>
<SETG HERE ,FOYER>
<MOVE ,PLAYER ,HERE>
<V-LOOK>
<REPEAT ()
<COND (<PARSER>
<PERFORM ,PRSA ,PRSO ,PRSI>
;"WAIT loops through M-END and CLOCKER in a special way during PERFORM, so skip
those routines if WAIT ran this turn"
<OR <META-VERB?> <AND ,AGAINCALL> <APPLY <GETP ,HERE ,P?ACTION> ,M-END>>
<OR <META-VERB?> <AND ,AGAINCALL> <CLOCKER>>
;"backup inputbuffers"
<COPY-READBUF>
<COPY-LEXBUF>
<SETG AGAINCALL 0>)>
<SETG HERE <LOC ,WINNER>>>>
<PERFORM ,PRSA ,PRSO ,PRSI>
;"WAIT loops through M-END and CLOCKER in a special way during PERFORM, so skip
those routines if WAIT ran this turn"
<COND (<NOT <OR ,AGAINCALL <GAME-VERB?>>>
<APPLY <GETP ,HERE ,P?ACTION> ,M-END>
<CLOCKER>)>
;"backup inputbuffers"
<COPY-READBUF>
<COPY-LEXBUF>
<SETG AGAINCALL 0>)>
<SETG HERE <LOC ,WINNER>>>>
<INSERT-FILE "parser">
......@@ -76,7 +78,7 @@ of the foyer to the north, is completely empty.")
(ELSE <FSET ,BAR ,LIGHTBIT>)>)
(<==? .RARG ,M-BEG>
<COND (<AND <NOT <FSET? ,BAR ,LIGHTBIT>>
<NOT <META-VERB?>>
<NOT <GAME-VERB?>>
<NOT <VERB? LOOK>>
<NOT <AND <VERB? WALK> <==? ,PRSO ,P?NORTH>>>>
<TELL "You grope around clumsily in the dark. Better be careful." CR>
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment