Komputer for Alle 2002 #11/K-CD-11-2002.ISO/Tools/K-CS.DCR/00400.ls

Text File | 2002-02-14 | 520 b | 25 lines

global SnapMouseY, BlinkObjekt

on new me
  cursor(0)
  set the visible of sprite 48 to 0
  set the visible of sprite 49 to 0
  set the visible of sprite 50 to 0
  set Letter to ((SnapMouseY - 3) / 20) - 10
  if Letter < 0 then
    set Letter to 0
  end if
  if Letter > 2 then
    set Letter to 2
  end if
  set the visible of sprite (Letter + 48) to 1
  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