home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 46 / Mobiclic46.iso / pc / DATA / COMMUNS / MOBICLIC_MENUS.CST / 00231_Script_GESTION_BANDEAU_PAUSE < prev    next >
Text File  |  2002-08-21  |  988b  |  43 lines
  1. property pdizsprite, pdizspriteNo, pdizguyH
  2. global gpistePause, gFlag_hideWindows 
  3. ------------------
  4. on beginSprite me
  5.   pdizspriteNo = me.spriteNum
  6.   pdizsprite = sprite(pdizspriteNo) 
  7.   pdizguyH = pdizsprite.height
  8.   gpistePause = pdizspriteNo
  9. end
  10. ----------------- 
  11. on mouseWithin
  12.   x = the mouseH
  13.   y = the mouseV
  14.   case(x > 565 and x < 623 and y>11 and y<67) of
  15.     1:
  16.       cursor 280
  17.     0:
  18.       cursor -1
  19.   end case
  20. end
  21. -----------------
  22. on mouseLeave
  23.   cursor -1
  24. end
  25. -----------------
  26. on mouseUp
  27.   x = the mouseH
  28.   y = the mouseV
  29.   case(x > 565 and x < 623 and y>11 and y<67) of
  30.     1:
  31.       --      repeat while pdizsprite.locV > -pdizguyH/2
  32.       --        pdizsprite.locV =  pdizsprite.locV - 2
  33.       --        updateStage
  34.       --      end repeat
  35.       puppetsprite pdizspriteNo, FALSE
  36.       --      continue
  37.       go the frame
  38.       if gFlag_hideWindows = 2 then resume_window()
  39.     0:
  40.       nothing
  41.   end case
  42. end
  43. ---------------