home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 46
/
Mobiclic46.iso
/
pc
/
DATA
/
SHARED
/
COMMUNS.CST
/
00011_Script_11
< prev
next >
Wrap
Text File
|
2002-07-12
|
628b
|
38 lines
--PAUSE
--parameters
property pPauseTime
property pPauseClic
on getPropertyDescriptionList me
list=[:]
--pause time
addProp list, #pPauseTime,\
[#comment: "Temps de pause (s)", #format: #integer, #default:1]
--pause clicable
addProp list, #pPauseClic,\
[#comment: "Pause clicable", #format: #boolean, #default:0]
return list
end
on beginSprite me
startTimer
end
on exitFrame me
if the timer < pPauseTime * 60 then
go to the frame
end if
end
on mouseUp
if pPauseClic = 1 then
if testClic()=1 then
go to the frame + 1
end if
end if
end