Sorry your browser is not supported!

fountain:
   create animated sprite 1,"media/bmp/fountain.bmp",11,1,1
   sprite 1,255,300,1
   play sprite 1,1,11,100
   menu$(1)="Drink from fountain":menu$(2)="ignore":choice = 0: selections = 2: menuchoice = 1
    while choice = 0
      oldc = newc
      newc = upkey()
      if newc > oldc
         dec menuchoice
      endif
      oc = nc
      nc = downkey()
      if nc > oc
         inc menuchoice
      endif

      if menuchoice > selections then menuchoice = 1
      if menuchoice < 1 then menuchoice = selections

      menu(menuchoice, selections)
      pause(10000)

      if inkey$() = chr$(13)
         choice = menuchoice
      ENDIF
      sync
   endwhile
   if choice = 1
      charstatus(2)=100 // all fountains satisfy thirst
      if charloc(1)=1 then charstatus(19)=0 // level 1 fountain cures poison
      if charloc(1)=3 then charstatus(18)=0 // level 3 fountain cures disease
      center text screen width()/2,250,"You feel refreshed!"
      anykey()
   sync
   ENDIF
   delete sprite  1
return

print "This is a test of a one second delay."
` Call the pause function for 1 second
Pause(1000)
print "The second is up!"
print ""
print ""
print "This is another test of a one second delay."
` Wait for 1 second
wait 1000
print "The next second is up!"
wait key
end



function Pause(Delay)

 ` Set the timer
 tim=timer()
 
 ` Repeat this
 repeat
 ` Until the current TIMER() is more than the old value of timer plus the delay
 until timer()>tim+Delay

endfunction

` Set syncing as fast as the computer can handle it
sync rate 0
` Turn on syncing
sync on

` Clear the buffer (so no previous keys are added to the string)
clear entry buffer
` Create a timer
tim=timer()
` Make all text overwrite previous text (for backspace)
set text opaque

do
 
 ` Show the prompt and user input
 text 0,0,"User Input: " + Com$+"| "
 
 ` Get a character from entry$() and clear the buffer again
 a$=entry$(1):clear entry buffer
 
 ` Check for backspace (allow every 100 milliseconds)
 if keystate(14) and timer()>tim+100
  ` Remove last character from the input string
  Com$=left$(Com$,len(Com$)-1)
  ` Clear a$ and reset timer
  a$="":tim=timer()
 endif
 
 ` Check for enter key and exit the DO/LOOP
 if keystate(28) then exit
 ` Add a$ to input string if it's more than nothing
 if a$<>"" then Com$ = Com$ + a$
 
 ` Update the screen
 sync

loop

` Show the input string
text 0,20,Com$
sync
wait key