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

Text File | 2002-04-19 | 383 b | 23 lines

global BlinkObjekt, CalcStarted

on new me
  if CalcStarted then
    set CalcStarted to 0
    baCloseWindow(baFindWindow(EMPTY, "Lommeregner"))
  end if
  puppetSprite(60, 0)
  puppetSprite(63, 0)
  puppetSprite(64, 0)
  puppetSprite(65, 0)
  set BlinkObjekt to new(script "Blink")
end

on enterFrame
  checkBlink(BlinkObjekt)
end

on exitFrame
  puppetSprite(12, 0)
  go(#loop)
end