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

Text File | 2017-09-21 | 427 b | 22 lines

on exitFrame
  global counter, counterloc
  set counter to counter - 1
  if (counter mod 10) = 0 then
    set counterloc to counterloc - 2
    set the locH of sprite 18 to counterloc
  end if
  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 10
    set the locH of sprite n to -500
  end repeat
end