Komputer for Alle 2002 #12/K-CD-12-2002.ISO/Tools/K-CS.dcr/00161.ls

Text File | 2002-04-19 | 432 b | 19 lines

global BlinkObjekt, taeller

on new me
  set taeller to the ticks
  set BlinkObject to 0
  set the locH of sprite 99 to 780
  set BlinkObjekt to new(script "Blink")
end

on exitFrame
  checkBlink(BlinkObjekt)
  if ((the ticks - taeller) / 50) > 32 then
    set taeller to the ticks
  end if
  set newSprite to 925 - ((the ticks - taeller) / 50)
  set the member of sprite 105 to member newSprite of castLib "VConst"
  go(#loop)
end