home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / funcity / tokyo / e / cool.dcr / 00047_ݨ޿àžìÆ.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  2.6 KB  |  84 lines
  1. on movesonic
  2.   global gdir, gcha, gdirt, gicec, gtime, gnin
  3.   if gtime = 0 then
  4.     set j to abs(random(gnin + 1) - 1) * 16
  5.     set m to random(20 - gnin)
  6.     if gdir = 0 then
  7.       set i to the left of sprite 9 - 10
  8.       if (i > (0 + j)) and (m <> 7) then
  9.         set gcha to the number of cast "SONIC-3"
  10.         set the castNum of sprite 9 to gcha
  11.         if gicec > 1 then
  12.           if gdirt < the ticks then
  13.             set gdirt to the ticks + 5
  14.             set gdir to 1
  15.             set the locH of sprite 9 to the locH of sprite 9 - 18
  16.           end if
  17.         else
  18.           set the locH of sprite 9 to the locH of sprite 9 - 10
  19.         end if
  20.       else
  21.         if i <= (0 + j) then
  22.           set gdir to 1
  23.           set gcha to the number of cast "SONIC-1"
  24.           set the castNum of sprite 9 to gcha
  25.           set i to 0 + j - the left of sprite 9
  26.           set the locH of sprite 9 to the locH of sprite 9 + i
  27.         else
  28.           set gdir to 1
  29.           set gcha to the number of cast "SONIC-1"
  30.           set the castNum of sprite 9 to gcha
  31.         end if
  32.       end if
  33.     else
  34.       set i to the left of sprite 9 + 10
  35.       if (i < (372 - j)) and (m <> 7) then
  36.         set gcha to the number of cast "SONIC-1"
  37.         set the castNum of sprite 9 to gcha
  38.         if gicec > 1 then
  39.           if gdirt < the ticks then
  40.             set gdirt to the ticks + 5
  41.             set gdir to 0
  42.             set the locH of sprite 9 to the locH of sprite 9 + 20
  43.           end if
  44.         else
  45.           set the locH of sprite 9 to the locH of sprite 9 + 10
  46.         end if
  47.       else
  48.         if i >= (372 - j) then
  49.           set gdir to 0
  50.           set gcha to the number of cast "SONIC-3"
  51.           set the castNum of sprite 9 to gcha
  52.           set i to 362 - j - the left of sprite 9
  53.           set the locH of sprite 9 to the locH of sprite 9 + i
  54.         else
  55.           set gdir to 0
  56.           set gcha to the number of cast "SONIC-3"
  57.           set the castNum of sprite 9 to gcha
  58.         end if
  59.       end if
  60.     end if
  61.     if gicec = 2 then
  62.       set gcha to the number of cast "SONIC-4"
  63.       set the castNum of sprite 9 to gcha
  64.       set the ink of sprite 9 to 4
  65.     else
  66.       if gicec < 2 then
  67.         set the ink of sprite 9 to 0
  68.       else
  69.         if gicec = 3 then
  70.           set gtime to the ticks + (3 * 60)
  71.           puppetSound("KAKIN")
  72.           set the visible of sprite 47 to 1
  73.           set the castNum of sprite 9 to the number of cast "SONIC-6"
  74.           set the ink of sprite 9 to 0
  75.         end if
  76.       end if
  77.     end if
  78.   else
  79.     if gtime < the ticks then
  80.       go(#next)
  81.     end if
  82.   end if
  83. end
  84.