home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp12.dxr / script_4.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  1.2 KB  |  50 lines
  1. on setokasih
  2.   global gnum1, gwlist1, gwlist2
  3.   set num to getAt(gwlist1, gnum1)
  4.   if num < 6 then
  5.     set var to 1
  6.     set num to (num * 5) + 5
  7.   else
  8.     set var to 5
  9.   end if
  10.   set alist to []
  11.   set gwlist2 to []
  12.   repeat with n = 1 to 5
  13.     set nn to 140 + num + (n * var)
  14.     append(alist, nn)
  15.   end repeat
  16.   set flg to 5 - (random(4) + 1)
  17.   repeat with n = 1 to 15 + flg
  18.     set nn to 150 + random(25)
  19.     if getOne(alist, nn) = 0 then
  20.       append(alist, nn)
  21.       next repeat
  22.     end if
  23.     set n to n - 1
  24.   end repeat
  25.   repeat with n = 1 to flg
  26.     deleteAt(alist, random(6 - n))
  27.   end repeat
  28.   set flg to 5 - flg
  29.   repeat with n = 1 to flg
  30.     append(gwlist2, getAt(alist, n))
  31.   end repeat
  32.   repeat with n = 10 to 29
  33.     set var to random(count(alist))
  34.     set the memberNum of sprite n to getAt(alist, var)
  35.     deleteAt(alist, var)
  36.   end repeat
  37. end
  38.  
  39. on setfh5
  40.   global gnum1
  41.   set the memberNum of sprite (gnum1 + 2) to getAt([134, 136, 135, 135, 137], gnum1)
  42.   set the locH of sprite (gnum1 + 2) to getAt([245, 343, 320, 409, 352], gnum1)
  43.   set the locV of sprite (gnum1 + 2) to getAt([89, 90, 90, 89, 91], gnum1)
  44. end
  45.  
  46. on setbagh5
  47.   global gnum1
  48.   set the locH of sprite (gnum1 + 2) to getAt([112, 211, 388, 546, 459], gnum1)
  49. end
  50.