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

Text File | 2002-01-14 | 360 b | 24 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
  if the optionDown then
    if the controlDown then
      if the keyCode = 101 then
        go(#next)
      end if
    end if
  end if
end