Internet 1996 World Exposition/park.org.s3.amazonaws.com.7z/park.org.s3.amazonaws.com/Cdrom/Pavilions/IBM/Konishiki/konishiki.dcr/Untitled-1_12.ls

Text File | 2017-09-21 | 439 b | 23 lines

on exitFrame
  global counter, counterloc
  set counter to counter - 2
  if (counter mod 10) = 0 then
    set counterloc to counterloc - 4
    set the locH of sprite 18 to counterloc
  end if
  moveufo()
  if counter <= 0 then
    set the locH of sprite 18 to -500
    moveaway()
    set the actorList to []
  else
    go(marker(0))
  end if
end

on moveaway
  repeat with n = 7 to 11
    set the locH of sprite n to -500
  end repeat
end