home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / alert.dxr / 00006.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  421 b   |  24 lines
  1. property pSprite
  2.  
  3. on beginSprite me
  4.   pSprite = me.spriteNum
  5. end
  6.  
  7. on mouseDown me
  8.   sprite(pSprite).member = "ok_pressed"
  9.   updateStage()
  10.   repeat while the stillDown
  11.     if rollOver() = pSprite then
  12.       sprite(pSprite).member = "ok_pressed"
  13.       updateStage()
  14.       next repeat
  15.     end if
  16.     sprite(pSprite).member = "ok"
  17.     updateStage()
  18.   end repeat
  19.   if rollOver() = pSprite then
  20.     close()
  21.   else
  22.   end if
  23. end
  24.