home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / shared.dir / 00405.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  455 b   |  24 lines
  1. on mouseDown
  2.   startTimer()
  3.   set the visible of sprite 37 to 0
  4.   set the visible of sprite 48 to 0
  5.   setUpSprites("6-12;16-35;37-48", 0)
  6.   puppetSprite(48, 0)
  7.   set castData to EMPTY
  8.   updateStage()
  9.   go(marker(0) + 2)
  10. end
  11.  
  12. on mouseUp
  13.   global n, x1, y1, castData, keyHotspots
  14.   stopSound(1, 10)
  15.   if n <> EMPTY then
  16.     set n to n - 1
  17.     set theCmd to line n of field 570
  18.     do(theCmd)
  19.     set n to EMPTY
  20.   else
  21.     set castData to EMPTY
  22.   end if
  23. end
  24.