home *** CD-ROM | disk | FTP | other *** search
/ Internet Professionell Archive 1999 / Ipro_0200.iso / SELFHTML / ykoepfe.dcr / 00007.ls < prev    next >
Encoding:
Text File  |  1998-04-27  |  452 b   |  21 lines
  1. on mouseDown
  2.   puppetSprite(the clickOn, 1)
  3.   repeat while the stillDown
  4.     if rollOver(the clickOn) then
  5.       set the castNum of sprite the clickOn to 4
  6.       updateStage()
  7.       next repeat
  8.     end if
  9.     set the castNum of sprite the clickOn to 5
  10.     updateStage()
  11.   end repeat
  12. end
  13.  
  14. on mouseUp
  15.   set the castNum of sprite the clickOn to 5
  16.   puppetSprite(the clickOn, 0)
  17.   if rollOver(the clickOn) then
  18.     goToNetPage("MenuShok.htm")
  19.   end if
  20. end
  21.