home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / nttdata / nx01.dcr / 00001.ls next >
Encoding:
Text File  |  2017-09-21  |  2.5 KB  |  99 lines
  1. on nxMov
  2.   repeat with ps = 10 to 15
  3.     puppetSprite(ps, 1)
  4.   end repeat
  5.   set loop to 0
  6.   set aa to 0
  7.   set bb to 10
  8.   set hh to 40
  9.   set vv to 40
  10.   set md to 0
  11.   repeat while 1
  12.     set the locH of sprite 10 to random(bb) + 275 + hh
  13.     set the locV of sprite 10 to random(bb) + 153 + vv
  14.     set the locH of sprite 11 to random(bb) + 219 + hh
  15.     set the locV of sprite 11 to random(bb) + 258 + vv
  16.     set the locH of sprite 12 to random(bb) + 91 + hh
  17.     set the locV of sprite 12 to random(bb) + 256 + vv
  18.     set the locH of sprite 13 to random(bb) + 52 + hh
  19.     set the locV of sprite 13 to random(bb) + 137 + vv
  20.     set the locH of sprite 14 to random(bb) + 152 + hh
  21.     set the locV of sprite 14 to random(bb) + 45 + vv
  22.     set the locH of sprite 15 to random(bb) + 161 + hh
  23.     set the locV of sprite 15 to random(bb) + 179 + vv
  24.     set loop to loop + 1
  25.     if loop = 10 then
  26.       exit repeat
  27.     end if
  28.     updateStage()
  29.     if mouseDown() then
  30.       if rollOver(10) then
  31.         set aa to 10
  32.       else
  33.         if mouseDown() then
  34.           if rollOver(11) then
  35.             set aa to 11
  36.           else
  37.             if mouseDown() then
  38.               if rollOver(12) then
  39.                 set aa to 12
  40.               else
  41.                 if mouseDown() then
  42.                   if rollOver(13) then
  43.                     set aa to 13
  44.                   else
  45.                     if mouseDown() then
  46.                       if rollOver(14) then
  47.                         set aa to 14
  48.                       else
  49.                         if mouseDown() then
  50.                           if rollOver(15) then
  51.                             set aa to 15
  52.                           end if
  53.                         end if
  54.                       end if
  55.                     end if
  56.                   end if
  57.                 end if
  58.               end if
  59.             end if
  60.           end if
  61.         end if
  62.       end if
  63.     end if
  64.     if aa > 0 then
  65.       exit repeat
  66.     end if
  67.   end repeat
  68.   repeat with ps = 10 to 15
  69.     puppetSprite(ps, 0)
  70.   end repeat
  71.   if aa > 0 then
  72.     puppetSound("nx.aiff")
  73.   end if
  74.   updateStage()
  75.   if aa = 10 then
  76.     go("loop10")
  77.   else
  78.     if aa = 11 then
  79.       go("loop11")
  80.     else
  81.       if aa = 12 then
  82.         go("loop12")
  83.       else
  84.         if aa = 13 then
  85.           go("loop13")
  86.         else
  87.           if aa = 14 then
  88.             go("loop14")
  89.           else
  90.             if aa = 15 then
  91.               go("loop15")
  92.             end if
  93.           end if
  94.         end if
  95.       end if
  96.     end if
  97.   end if
  98. end
  99.