Komputer for Alle 2002 #10/K-CD-10-2002.ISO/Tools/K-CS.dcr/00313.ls

Text File | 2002-04-19 | 342 b | 22 lines

global BlinkObjekt

on new me
  startTimer()
  set BlinkObject to 0
  set the locH of sprite 99 to 780
  set BlinkObjekt to new(script "Blink")
end

on exitFrame
  checkBlink(BlinkObjekt)
  if the timer < 240 then
    go(#loop)
  else
    if the visible of sprite 59 = 0 then
      go(#next)
    else
      go("SMC5")
    end if
  end if
end