home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 2 / CDROM02.iso / tlapse / tloview.exe / OVERVIEW.DXR / 00650.ls < prev    next >
Encoding:
Text File  |  1996-04-26  |  484 b   |  22 lines
  1. on mouseUp
  2.   set the castNum of sprite the clickOn to 449
  3.   puppetSprite(the clickOn, 0)
  4.   if (the mouseCast = 449) or (the mouseCast = 450) then
  5.     go("end")
  6.   end if
  7.   updateStage()
  8. end
  9.  
  10. on mouseDown
  11.   set snum to the clickOn
  12.   puppetSprite(snum, 1)
  13.   repeat while the mouseDown
  14.     if (the mouseCast = 449) or (the mouseCast = 450) then
  15.       set the castNum of sprite snum to 450
  16.     else
  17.       set the castNum of sprite snum to 449
  18.     end if
  19.     updateStage()
  20.   end repeat
  21. end
  22.