Internet 1996 World Exposition/park.org.s3.amazonaws.com.7z/park.org.s3.amazonaws.com/Japan/CSK/hyakki/adv_all/movie/end.dcr/00016.ls

Text File | 2017-09-21 | 1.5 KB | 21 lines

on mouseDown
  global tlist
  set the castNum of sprite 3 to 17
  updateStage()
  repeat while the stillDown
    nothing()
  end repeat
  set the castNum of sprite 3 to 16
  updateStage()
  set t to string(tlist)
  set tt to word 1 of t & word 2 of t & word 3 of t & word 4 of t & word 5 of t & word 6 of t & word 7 of t & word 8 of t & word 9 of t & word 10 of t
  set tt to tt & word 11 of t & word 12 of t & word 13 of t & word 14 of t & word 15 of t & word 16 of t & word 17 of t & word 18 of t & word 19 of t & word 20 of t
  set tt to tt & word 21 of t & word 22 of t & word 23 of t & word 24 of t & word 25 of t & word 26 of t & word 27 of t & word 28 of t & word 29 of t & word 30 of t
  set tt to tt & word 31 of t & word 32 of t & word 33 of t & word 34 of t & word 35 of t & word 36 of t & word 37 of t & word 38 of t & word 39 of t & word 40 of t
  set tt to tt & word 41 of t & word 42 of t & word 43 of t & word 44 of t & word 45 of t & word 46 of t & word 47 of t & word 48 of t & word 49 of t & word 50 of t
  set tt to tt & word 51 of t & word 52 of t & word 53 of t & word 54 of t & word 55 of t & word 56 of t & word 57 of t & word 58 of t & word 59 of t & word 60 of t
  set tt to tt & word 61 of t & word 62 of t & word 63 of t & word 64 of t & word 65 of t & word 66 of t & word 67 of t & word 68 of t & word 69 of t & word 70 of t
  set tt to tt & word 71 of t & word 72 of t & word 73 of t & word 74 of t & word 75 of t & word 76 of t & word 77 of t & word 78 of t & word 79 of t & word 80 of t
  gotonetpage("/cgi-bin/Japan/CSK/youkai.cgi/?" & tt)
end