home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 51
/
Mobiclic51.iso
/
mac
/
DATA
/
COMMUNS
/
MOBICLIC_MENUS.CST
/
00231_Script_GESTION_BANDEAU_PAUSE
< prev
next >
Wrap
Text File
|
2003-01-30
|
988b
|
43 lines
property pdizsprite, pdizspriteNo, pdizguyH
global gpistePause, gFlag_hideWindows
------------------
on beginSprite me
pdizspriteNo = me.spriteNum
pdizsprite = sprite(pdizspriteNo)
pdizguyH = pdizsprite.height
gpistePause = pdizspriteNo
end
-----------------
on mouseWithin
x = the mouseH
y = the mouseV
case(x > 565 and x < 623 and y>11 and y<67) of
1:
cursor 280
0:
cursor -1
end case
end
-----------------
on mouseLeave
cursor -1
end
-----------------
on mouseUp
x = the mouseH
y = the mouseV
case(x > 565 and x < 623 and y>11 and y<67) of
1:
-- repeat while pdizsprite.locV > -pdizguyH/2
-- pdizsprite.locV = pdizsprite.locV - 2
-- updateStage
-- end repeat
puppetsprite pdizspriteNo, FALSE
-- continue
go the frame
if gFlag_hideWindows = 2 then resume_window()
0:
nothing
end case
end
---------------