home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Share Gallery 1
/
share_gal_1.zip
/
share_gal_1
/
WA
/
WA813.ZIP
/
WINBATCH
/
SOL.WBT
< prev
next >
Wrap
Text File
|
1991-01-23
|
833b
|
27 lines
;* solitare.wbt *
MinutesToPlay=AskLine("Solitaire","How many minutes do you want to play?","")
if WinExist("Solitaire")==@TRUE then goto activate
RunZoom("sol.exe","")
goto loaded
:activate
WinActivate("Solitaire")
WinZoom("Solitaire")
:loaded
SendKey("!gc{right}{sp}~")
SecondsToPlay=MinutesToPlay*60
SecondsAlreadyPlayed=0
:moretime
SecondsRemaining=SecondsToPlay-SecondsAlreadyPlayed
if !WinExist("Solitaire") then Exit
WinTitle("Solitaire","Solitaire (%SecondsRemaining% seconds left)")
Delay(10)
SecondsAlreadyPlayed=SecondsAlreadyPlayed+10
if SecondsAlreadyPlayed<SecondsToPlay then goto moretime
beep
:TryAgain
WinClose("Solitaire")
if WinExist("Solitaire") then goto TryAgain ;Mouse *might* be down
message("Solitaire's Over","Get back to work!")
Exit