Mobiclic 46/Mobiclic46.iso/pc/DATA/SHARED/COMMUNS.CST/00011_Script_11

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