Komputer for Alle 2001 #8/CD 8 (Black) - 2001.iso/K-CS.dcr/00202.ls

Text File | 2001-02-20 | 381 b | 20 lines

global BlinkObjekt

on exitFrame
  checkBlink(BlinkObjekt)
  go(#loop)
end

on new me
  cursor(0)
  set BlinkObject to 0
  set the locH of sprite 99 to 780
  set BlinkObjekt to new(script "Blink", 4, 80)
  repeat with Index = 64 to 84
    set the visible of sprite Index to 1
    if not (Index mod 3) = 0 then
      set the locV of sprite Index to 1000
    end if
  end repeat
end