Internet 1996 World Exposition/park.org.s3.amazonaws.com.7z/park.org.s3.amazonaws.com/Japan/Panasonic-/events/gento/Panachan.dcr/00051.ls

Text File | 2017-09-21 | 551 b | 20 lines

global pananowh, pananowv, panawalkcount, panah, panav

on timeoutanim2
  repeat with n = 8 to 30
    if n = 29 then
      set panawalkcount to panawalkcount + 1
      next repeat
    end if
    movelochv(n, pananowh + getAt(panah, panawalkcount), pananowv + getAt(panav, panawalkcount))
    set panawalkcount to panawalkcount + 1
  end repeat
end

on timeoutanim2_2
  repeat with n = 10 to 11
    movelochv(n, pananowh + getAt(panah, panawalkcount), pananowv + getAt(panav, panawalkcount))
    set panawalkcount to panawalkcount + 1
  end repeat
end