home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / qh_demo.exe / DEMOHNT2.DXR / 00010.ls < prev    next >
Encoding:
Text File  |  1996-08-09  |  596 b   |  23 lines
  1. on exitFrame
  2.   global gwlist1, gnum1, gvar1, gflag1
  3.   set gnum1 to getAt(gwlist1, gnum1)
  4.   puppetSprite(4, 1)
  5.   set the castNum of sprite 4 to (gnum1 * 4) + 517
  6.   updateStage()
  7.   set qinf to "1820251230201723282729192410300516271224"
  8.   set num to value(chars(qinf, (2 * gnum1) - 1, 2 * gnum1))
  9.   set deb to 0
  10.   if (num > deb) and (random(10) <> 10) then
  11.     set gflag1 to (num + 30) * (random(4) + 4) / 10
  12.     set gvar1 to 1
  13.   else
  14.     set gflag1 to num + 30
  15.     set gvar1 to 0
  16.   end if
  17.   puppetSprite(8, 1)
  18.   preLoadCast(gnum1 + 500)
  19.   puppetSound(3, 51 + random(2))
  20.   waitsnd()
  21.   waith(40)
  22. end
  23.