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 / 00029.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  650 b   |  29 lines
  1. global mm, status
  2.  
  3. on mouseDown
  4.   if ((mm - 200) < 0) and (status = 1) then
  5.     go("getout")
  6.   else
  7.     set mm to mm - 200
  8.     put mm into field "gold"
  9.   end if
  10.   set spnum to clickOn()
  11.   set nowcastnum to the castNum of sprite spnum
  12.   puppetSprite(spnum, 1)
  13.   repeat while the mouseDown = 1
  14.     if rollOver(spnum) then
  15.       set the castNum of sprite spnum to nowcastnum + 1
  16.       updateStage()
  17.       next repeat
  18.     end if
  19.     set the castNum of sprite spnum to nowcastnum
  20.     updateStage()
  21.   end repeat
  22.   set the castNum of sprite spnum to nowcastnum
  23.   updateStage()
  24.   puppetSprite(spnum, 0)
  25.   if rollOver(spnum) then
  26.     go("shoot")
  27.   end if
  28. end
  29.