Komputer for Alle 2002 #7/K-CD-7-2002.ISO/Tools/K-CS.dcr/00163.ls

Text File | 2002-04-10 | 301 b | 21 lines

global BlinkObjekt

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

on exitFrame
  checkBlink(BlinkObjekt)
  go(#loop)
end

on keyDown
  set result to the keyCode
  if result = 53 then
    go(#previous)
  end if
end