home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp01b.dxr / script_14_ch.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  2.4 KB  |  104 lines
  1. on moveh2
  2.   global gtime1
  3.   bikeh()
  4.   if (gtime1 mod 2) = 0 then
  5.     duckh()
  6.   end if
  7.   if (gtime1 mod 12) = 0 then
  8.     pandah()
  9.   end if
  10.   if (gtime1 mod 6) = 0 then
  11.     weathercockh()
  12.   end if
  13. end
  14.  
  15. on weathercockh
  16.   global gwlist1
  17.   if getAt(gwlist1, 3) = 3 then
  18.     setAt(gwlist1, 3, 1)
  19.   else
  20.     setAt(gwlist1, 3, getAt(gwlist1, 3) + 1)
  21.   end if
  22.   if getAt(gwlist1, 3) = 1 then
  23.     set the memberNum of sprite 18 to 201
  24.   else
  25.     if getAt(gwlist1, 3) = 3 then
  26.       set the memberNum of sprite 18 to 211
  27.     end if
  28.   end if
  29. end
  30.  
  31. on pandah
  32.   global gwlist1
  33.   setAt(gwlist1, 4, getAt(gwlist1, 4) * -1)
  34.   if getAt(gwlist1, 4) = 1 then
  35.     set the memberNum of sprite 19 to 202
  36.   else
  37.     set the memberNum of sprite 19 to 212
  38.   end if
  39. end
  40.  
  41. on duckh
  42.   global gwlist1
  43.   set num to getAt(gwlist1, 5)
  44.   if num = 29 then
  45.     set num to 1
  46.   else
  47.     set num to num + 1
  48.   end if
  49.   setAt(gwlist1, 5, num)
  50.   if num = 1 then
  51.     set the memberNum of sprite 20 to 203
  52.   else
  53.     if num = 18 then
  54.       set the memberNum of sprite 20 to 213
  55.     end if
  56.   end if
  57.   if num <= 6 then
  58.     set the locH of sprite 20 to getAt([449, 458, 468, 477, 490, 503], num)
  59.     set the locV of sprite 20 to getAt([200, 195, 191, 186, 190, 194], num)
  60.   else
  61.     if (num >= 11) and (num <= 13) then
  62.       set num to num - 10
  63.       set the locH of sprite 20 to getAt([517, 530, 543], num)
  64.       set the locV of sprite 20 to getAt([199, 203, 207], num)
  65.     else
  66.       if (num >= 18) and (num <= 25) then
  67.         set num to num - 17
  68.         set the locH of sprite 20 to getAt([533, 513, 493, 473, 453, 446, 440, 433], num)
  69.         set the locV of sprite 20 to getAt([214, 217, 220, 222, 225, 220, 215, 210], num)
  70.       end if
  71.     end if
  72.   end if
  73. end
  74.  
  75. on bikeh
  76.   global gwlist1
  77.   set num to getAt(gwlist1, 6)
  78.   if num = 218 then
  79.     set num to 1
  80.   else
  81.     set num to num + 1
  82.   end if
  83.   setAt(gwlist1, 6, num)
  84.   if num = 1 then
  85.     set the memberNum of sprite 21 to 204
  86.     set the memberNum of sprite 22 to 205
  87.   else
  88.     if num < 101 then
  89.       set the locH of sprite 21 to 584 - (num * 4)
  90.       set the locH of sprite 22 to 57 + (num * 5)
  91.     else
  92.       if num = 110 then
  93.         set the memberNum of sprite 21 to 205
  94.         set the memberNum of sprite 22 to 204
  95.       else
  96.         if (num > 110) and (num < 210) then
  97.           set the locH of sprite 21 to 184 + ((num - 110) * 4)
  98.           set the locH of sprite 22 to 557 - ((num - 110) * 5)
  99.         end if
  100.       end if
  101.     end if
  102.   end if
  103. end
  104.