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

Text File | 2002-01-25 | 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