home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 21 / CTROM21A.mdf / mmm / demos.dxr / 00126_bb.ls < prev    next >
Encoding:
Text File  |  1999-09-27  |  1.2 KB  |  50 lines
  1. property theSprite, castID, castHI, castMD, target, wissel
  2. global hydrolijst
  3.  
  4. on new me, spr, csID, csHI, csMD, TA
  5.   theSprite = spr
  6.   castID = the number of member csID
  7.   castHI = the number of member csHI
  8.   castMD = the number of member csMD
  9.   target = TA
  10.   wissel = castID
  11.   puppetSprite(theSprite, 1)
  12.   return me
  13. end
  14.  
  15. on cbbtn22 me
  16.   if rollOver(theSprite) then
  17.     puppetSprite(theSprite, 1)
  18.     set the castNum of sprite theSprite to castHI
  19.     updateStage()
  20.     if the mouseDown then
  21.       set the castNum of sprite theSprite to castMD
  22.       updateStage()
  23.       repeat while the mouseDown
  24.         if rollOver(theSprite) and the mouseDown then
  25.           set the castNum of sprite theSprite to castMD
  26.           updateStage()
  27.           next repeat
  28.         end if
  29.         set the castNum of sprite theSprite to castHI
  30.         updateStage()
  31.       end repeat
  32.       if rollOver(theSprite) = 0 then
  33.         exit
  34.       end if
  35.       sprite(theSprite).visible = 0
  36.       set the castNum of sprite 60 to cast("dummypixel")
  37.       exit
  38.     end if
  39.   else
  40.     set the castNum of sprite theSprite to wissel
  41.   end if
  42. end
  43.  
  44. on setcurrentSW me, cstmd
  45.   wissel = the number of member cstmd
  46.   set the castNum of sprite theSprite to wissel
  47.   updateStage()
  48.   return me
  49. end
  50.