home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Today (BR) Volume 2 #6
/
CDRTV2N6.iso
/
makers
/
search.dir
/
00093_Script_93
< prev
next >
Wrap
Text File
|
1996-03-11
|
529b
|
24 lines
on DemoOnly SSprite , TheLoc , PrevLoc
beep
puppetSprite SSprite, TRUE
set the LocH of sprite SSprite to TheLoc
updateStage
repeat while the mouseDown
updateStage
end repeat
set STIcks = the ticks
repeat while not the mouseDown and (the ticks - Sticks < (60 * 3))
-- put the ticks - Sticks
end repeat
if the mouseCast <> the number of cast "demo" then
set the Loch of sprite SSprite to PrevLoc
puppetSprite SSprite, FALSE
updateStage
end if
end