Komputer for Alle 2002 #3/K-CD-3-2002.ISO/K-CS.DCR/00300.ls

Text File | 2002-01-14 | 644 b | 27 lines

global BlinkObjekt

on new me
  startTimer()
  set BlinkObject to 0
  set the visible of sprite 48 to 1
  set the visible of sprite 49 to 1
  set the visible of sprite 50 to 0
  set the visible of sprite 51 to 0
  set the visible of sprite 52 to 0
  set the locH of sprite 99 to 780
  set BlinkObjekt to new(script "Blink")
  set the locH of sprite 99 to 780
end

on exitFrame
  if the timer > 480 then
    set the visible of sprite 48 to 0
    set the visible of sprite 49 to 0
    set the visible of sprite 50 to 1
    set the visible of sprite 51 to 1
    set the visible of sprite 52 to 1
  end if
  checkBlink(BlinkObjekt)
  go(#loop)
end