home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / vivi_ex.exe / vivi_ex.DXR / 00018.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  439 b   |  20 lines
  1. on exitFrame
  2.   global gtlist, gcount1, gvar1, gstg, gmode
  3.   puppetSound(2, (gstg mod 5) + 65)
  4.   set gtlist to []
  5.   repeat with n = 1 to 25
  6.     set num to random(55)
  7.     if (getOne(gtlist, num) = 0) and ((num mod 14) <> 0) then
  8.       append(gtlist, num)
  9.       next repeat
  10.     end if
  11.     set n to n - 1
  12.   end repeat
  13.   repeat with n = 13 to 39
  14.     puppetSprite(n, 1)
  15.   end repeat
  16.   puppetSound(3, 80)
  17.   set gvar1 to 0
  18.   set gcount1 to 25
  19. end
  20.