home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1998 #6 / 1998 CD 6 (Gul).iso / shared.dir / 01223_Rbutton1.ls < prev    next >
Encoding:
Text File  |  1996-02-08  |  607 b   |  22 lines
  1. on mouseDown
  2.   set whichclick to the clickOn
  3.   puppetSprite(whichclick, 1)
  4.   set lCastName to "RButton"
  5.   puppetTransition(0)
  6.   repeat with i = 2 to 3
  7.     set lCastNameComplete to lCastName & string(i)
  8.     set the castNum of sprite whichclick to the number of cast lCastNameComplete
  9.     updateStage()
  10.   end repeat
  11.   repeat with i = 2 down to 1
  12.     set lCastNameComplete to lCastName & string(i)
  13.     set the castNum of sprite whichclick to the number of cast lCastNameComplete
  14.     updateStage()
  15.   end repeat
  16.   repeat while the stillDown
  17.   end repeat
  18.   puppetSprite(whichclick, 0)
  19.   sound stop 1
  20.   pass()
  21. end
  22.