home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp01b.dxr / script_3.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  413 b   |  23 lines
  1. on exitFrame
  2.   global gtime1, gland
  3.   startTimer()
  4.   set gtime1 to 1
  5.   puppetSprite(15, 1)
  6.   set alist to [4, 5, 4, 3, 7]
  7.   seth(getAt(alist, gland))
  8.   puppetSound(3, gland + 93)
  9. end
  10.  
  11. on seth num
  12.   global gwlist1
  13.   set maxn to 17 + num
  14.   repeat with n = 18 to maxn
  15.     puppetSprite(n, 1)
  16.   end repeat
  17.   set num to num - 1
  18.   set gwlist1 to [1, 1]
  19.   repeat with n = 1 to num
  20.     append(gwlist1, 1)
  21.   end repeat
  22. end
  23.