Komputer for Alle 2002 #4/K-CD-4-2002.ISO/K-CS.DCR/00288.ls

Text File | 2002-01-25 | 829 b | 31 lines

global IconNummer, HPos, BlinkObjekt, CalcTimer, CalcStarted

on new me
  set CalcTimer to 0
  set CalcStared to 0
  set BlinkObjekt to new(script "Blink")
  set the visible of sprite 60 to 1
  set the locH of sprite 60 to ((HPos + 16) / 32 * 32) - 26
  set the visible of sprite 60 to 0
  set the visible of sprite 64 to 0
  set the visible of sprite 65 to 0
  set the visible of sprite 63 to 1
  set the locH of sprite 63 to ((HPos + 16) / 32 * 32) - 4
  set the locH of sprite 64 to ((HPos + 16) / 32 * 32) - 46
  set the locH of sprite 65 to ((HPos + 16) / 32 * 32) - 47
end

on prepareFrame
  checkBlink(BlinkObjekt)
  if CalcStarted then
    if CalcTimer > (the timer + (30 * 60)) then
      set CalcStarted to 0
      baCloseWindow(baFindWindow(EMPTY, "Lommeregner"))
    end if
  end if
end

on exitFrame
  go(#loop)
end