home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / GLEN / WBT20A.ZIP / SOL.WBT < prev    next >
Text File  |  1991-01-07  |  592b  |  25 lines
  1.  
  2. ;* solitare.wbt *
  3.   mins=askline("Solitaire","How many minutes do you want to play?","")
  4.   if winexist("Solitaire")==@true then goto activate
  5.   runzoom("sol","")
  6.   goto loaded
  7. :activate
  8.   winactivate("Solitaire")
  9.   winzoom("Solitaire")
  10. :loaded
  11.   sendkey("!gc{right}{sp}~")
  12.   goal=mins*60
  13.   timer=0
  14. :moretime
  15.   remain=goal-timer
  16.   if !WinExist("Solitaire") then Exit
  17.   wintitle("Solitaire","Solitaire (%remain% seconds left)")
  18.   delay(10)
  19.   timer=timer+10
  20.   if timer<goal then goto moretime
  21.   beep
  22.   winclose("Solitaire")
  23.   message("Time's up","Get back to work!")
  24.  
  25.