home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / qh_demo.exe / DEMOHNT3.DXR / 00193.ls < prev    next >
Encoding:
Text File  |  1996-08-09  |  384 b   |  19 lines
  1. on exitFrame
  2.   global gwlist1, gnum1, gtime1, gpa
  3.   set gwlist1 to []
  4.   repeat with n = 1 to 4
  5.     set num to random(20)
  6.     if (getOne(gwlist1, num) = 0) and (gpa <> num) then
  7.       append(gwlist1, num)
  8.       next repeat
  9.     end if
  10.     set n to n - 1
  11.   end repeat
  12.   repeat with n = 6 to 13
  13.     puppetSprite(n, 1)
  14.   end repeat
  15.   set gnum1 to 21
  16.   set gtime1 to 211
  17.   startTimer()
  18. end
  19.