home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 April (DVD) / PCWELT_4_2006.ISO / Shared.Cst / 00022_Rbutton1.ls < prev    next >
Encoding:
Text File  |  2004-02-05  |  763 b   |  34 lines
  1. on mouseDown
  2.   set whichclick = the clickon
  3.   puppetSprite whichclick, True
  4.   set lCastName = "RButton"
  5.   puppetTransition 0
  6.   
  7.   --repeat with i = 1 to 40
  8.   --  if the type of sprite i = 16 then
  9.   --    resetQT i
  10.   --    exit repeat
  11.   --  end if
  12.   --end repeat
  13.   
  14.   
  15.   repeat with i = 2 to 3
  16.     set lCastNameComplete = lCastName&string(i)
  17.     set the castnum of sprite whichclick = the number of cast lCastNameComplete
  18.     updatestage
  19.   end repeat
  20.   repeat with i = 2 down to 1
  21.     set lCastNameComplete = lCastName&string(i)
  22.     set the castnum of sprite whichclick = the number of cast lCastNameComplete
  23.     --waitNew (.1)
  24.     updatestage
  25.   end repeat
  26.   repeat while the stillDown
  27.     
  28.   end repeat
  29.   puppetSprite whichclick, False
  30.   sound stop 1
  31.   pass
  32. end
  33.  
  34.