;----------------------------- Potion.voc ---------------------------

VOCAB

;--------------------------------------------------------------------

action FastMem, FastRam, ChipMem, ChipRam, FreeMem, Avail, Mem, Memory
 $tx := "@FastMem  Kbytes FastMem   @ChipMem  Kbytes ChipMem"
 call print
endact

;--------------------------------------------------------------------

action Cycle
 Show Screen 1 ; location scenery
 While LeftButton = 1 do ; waits to make sure mouse button is down
 endwhile
 While LeftButton = 0 do ; waits to make sure mouse button is released
 endwhile
 Show Screen 2 ; button.pic
 While LeftButton = 1 do ; waits to make sure mouse button is down
 endwhile
 While LeftButton = 0 do ; waits to make sure mouse button is released
 endwhile
 Show Screen 24 ; overlay buffer
 While LeftButton = 1 do ; waits to make sure mouse button is down
 endwhile
 While LeftButton = 0 do ; waits to make sure mouse button is released
 endwhile
 Show Screen 0
endact

;--------------------------------------------------------------------

action help, hint, clue, give me clue, give me help, give me hint
 ;       ----------------------------------------
 $tx := "Type sentences, or use buttons instead."
 call print
 $tx := "Examples: to examine the tree, either"
 call print
 $tx := "type LOOK AT THE TREE or just click on"
 call print
 $tx := "the picture of the tree.  To pick up the"
 call print
 $tx := "ladder, either type TAKE THE LADDER or"
 call print
 $tx := "click on the GET button and then click"
 call print
 $tx := "on the picture of the ladder.  To drop"
 call print
 $tx := "the ladder, do not use the buttons."
 call print
 $tx := "You must type DROP THE LADDER.  You may"
 call print
 $tx := "also PUT THE LADDER AGAINST THE SHACK,"
 call print
 $tx := "etc.  You can go west by typing GO WEST"
 call print
 $tx := "or by clicking on the W button on the"
 call print
 $tx := "compass.  To save a game in progress,"
 call print
 $tx := "type SAVE or click on the SAVE button."
 call print
 $tx := "To start a game that was saved, type"
 call print
 $tx := "LOAD or click on the LOAD button."
 call print
 $tx := "Remember, the buttons are only a very"
 call print
 $tx := "few things that this adventure allows."
 call print
 $tx := "Use your imagination, and type anything"
 call print
 $tx := "you want to do, and the computer will"
 call print
 $tx := "respond.  Enjoy the adventure, and buy"
 call print
 $tx := "Visionary from OXXI/Aegis so you can"
 call print
 $tx := "write your own adventures.  They can be"
 call print
 $tx := "pure text, pure graphics, or (like this)"
 call print
 $tx := "a hybrid combination."
 call print
endact

;--------------------------------------------------------------------

action drink, drink out of bottle

if player has bottle then
 call DrinkBottle
else
 call NoHave
endif

endact

;--------------------------------------------------------------------

action author author, author
 $tx:="written 5/5/91 by John Olsen"
 call print
 $tx:="P.O. Box 181, Newberg, OR 97132"
 call print
endact

;--------------------------------------------------------------------

action quit
 $tx := "quit"
 call print
endact

;--------------------------------------------------------------------

action save, save game, save position, store, store game
 ghost "save SaveGame"
 $tx := "OK.  Saved."
 call print
endact

;--------------------------------------------------------------------

action load, load game, restore, restore game, restore position
 ghost "load SaveGame"
endact

;--------------------------------------------------------------------

ENDVOCAB