home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / funcity / paris / wave / MAP062E.dcr / 00017.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  681 b   |  30 lines
  1. global mm, gpana
  2.  
  3. on mouseDown
  4.   set spnum to clickOn()
  5.   set nowcastnum to the castNum of sprite spnum
  6.   puppetSprite(spnum, 1)
  7.   repeat while the mouseDown = 1
  8.     if rollOver(spnum) then
  9.       set the castNum of sprite spnum to nowcastnum + 1
  10.       updateStage()
  11.       next repeat
  12.     end if
  13.     set the castNum of sprite spnum to nowcastnum
  14.     updateStage()
  15.   end repeat
  16.   set the castNum of sprite spnum to nowcastnum
  17.   updateStage()
  18.   puppetSprite(spnum, 0)
  19.   if rollOver(spnum) then
  20.     puppetSprite(20, 0)
  21.     puppetSprite(21, 0)
  22.     puppetSprite(29, 0)
  23.     puppetSprite(30, 0)
  24.     puppetSprite(31, 0)
  25.     puppetSprite(32, 0)
  26.     initialize()
  27.     go("Begin")
  28.   end if
  29. end
  30.