home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp01b.dxr / script_17_du.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  2.1 KB  |  96 lines
  1. on moveh5
  2.   global gtime1
  3.   bus2h()
  4.   if (gtime1 mod 2) = 0 then
  5.     duck2h()
  6.   end if
  7.   if (gtime1 mod 4) = 0 then
  8.     penguinh()
  9.   end if
  10.   if (gtime1 mod 24) = 0 then
  11.     sealh()
  12.   end if
  13. end
  14.  
  15. on duck2h
  16.   global gwlist1
  17.   set num to getAt(gwlist1, 3)
  18.   if num = 18 then
  19.     set num to 1
  20.   else
  21.     set num to num + 1
  22.   end if
  23.   setAt(gwlist1, 3, num)
  24.   if num = 1 then
  25.     set the memberNum of sprite 18 to 291
  26.     set the memberNum of sprite 19 to 292
  27.   else
  28.     if num < 8 then
  29.       set the locH of sprite 18 to 335 + (10 * num)
  30.       set the locH of sprite 19 to 378 + (10 * num)
  31.     else
  32.       if num = 10 then
  33.         set the memberNum of sprite 18 to 301
  34.         set the memberNum of sprite 19 to 302
  35.       else
  36.         if (num > 10) and (num < 17) then
  37.           set the locH of sprite 18 to 405 - (10 * (num - 9))
  38.           set the locH of sprite 19 to 448 - (10 * (num - 9))
  39.         end if
  40.       end if
  41.     end if
  42.   end if
  43. end
  44.  
  45. on penguinh
  46.   global gwlist1
  47.   setAt(gwlist1, 4, getAt(gwlist1, 4) * -1)
  48.   if getAt(gwlist1, 4) = 1 then
  49.     set the memberNum of sprite 20 to 293
  50.     set the memberNum of sprite 21 to 294
  51.   else
  52.     set the memberNum of sprite 20 to 303
  53.     set the memberNum of sprite 21 to 304
  54.   end if
  55. end
  56.  
  57. on sealh
  58.   global gwlist1
  59.   setAt(gwlist1, 5, getAt(gwlist1, 5) * -1)
  60.   if getAt(gwlist1, 5) = 1 then
  61.     set the memberNum of sprite 24 to 295
  62.   else
  63.     set the memberNum of sprite 24 to 305
  64.   end if
  65. end
  66.  
  67. on bus2h
  68.   global gwlist1
  69.   set num to getAt(gwlist1, 6)
  70.   if num = 184 then
  71.     set num to 1
  72.   else
  73.     set num to num + 1
  74.   end if
  75.   setAt(gwlist1, 6, num)
  76.   if num = 1 then
  77.     set the memberNum of sprite 22 to 296
  78.     set the memberNum of sprite 23 to 297
  79.   else
  80.     if num < 84 then
  81.       set the locH of sprite 22 to 586 - (num * 6)
  82.       set the locH of sprite 23 to 76 + (num * 6)
  83.     else
  84.       if num = 93 then
  85.         set the memberNum of sprite 22 to 297
  86.         set the memberNum of sprite 23 to 296
  87.       else
  88.         if (num > 93) and (num < 176) then
  89.           set the locH of sprite 22 to 88 + ((num - 93) * 6)
  90.           set the locH of sprite 23 to 574 - ((num - 93) * 6)
  91.         end if
  92.       end if
  93.     end if
  94.   end if
  95. end
  96.