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

Text File | 2002-04-19 | 1.0 KB | 40 lines

global BlinkObjekt, CalcStarted

on new me
  if CalcStarted then
    set CalcStarted to 0
    baCloseWindow(baFindWindow(EMPTY, "Lommeregner"))
  end if
  set BlinkObjekt to new(script "Blink")
  puppetSprite(11, 0)
  repeat with Temp = 9 to 47
    set the visible of sprite Temp to 1
  end repeat
  repeat with Temp = 16 to 22
    set the visible of sprite (Temp * 3) to 1
    set the visible of sprite ((Temp * 3) + 1) to 0
    set the visible of sprite ((Temp * 3) + 2) to 0
  end repeat
  repeat with Temp = 23 to 29
    set the visible of sprite ((Temp * 3) + 1) to 1
    set the visible of sprite ((Temp * 3) + 2) to 0
    set the visible of sprite ((Temp * 3) + 3) to 0
  end repeat
  set the visible of sprite 69 to 0
  set the visible of sprite 59 to 0
  set the visible of sprite 61 to 0
  set the visible of sprite 62 to 0
  puppetSprite(60, 0)
  set the visible of sprite 60 to 0
  set the locH of sprite 99 to 780
  set the visible of sprite 99 to 1
end

on prepareFrame
  checkBlink(BlinkObjekt)
end

on exitFrame
  go(#loop)
end