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

Text File | 2002-04-19 | 310 b | 19 lines

global BlinkObjekt

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

on exitFrame
  if the timer < 640 then
    set the width of sprite 43 to 95 * the timer / 640
    go(#loop)
  else
    go(#next)
  end if
end