home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / qh_demo.exe / DEMOHNT2.DXR / 00017.ls < prev    next >
Encoding:
Text File  |  1996-08-09  |  873 b   |  45 lines
  1. on exitFrame
  2.   global gnum1, gvar1
  3.   puppetSound(3, 64)
  4.   set the castNum of sprite (gnum1 + 21) to 331
  5.   puppetTransition(26, 1, 8)
  6.   updateStage()
  7.   set num to random(5)
  8.   set the castNum of sprite (gnum1 + 21) to num + 235
  9.   puppetTransition(26, 1, 8)
  10.   updateStage()
  11.   waitsnd()
  12.   puppetSound(3, num + 230)
  13.   waitsnd()
  14.   puppetSound(3, 64 + random(2))
  15.   waitsnd()
  16.   puppetSound(3, 67)
  17.   set the castNum of sprite 48 to 127 + gvar1
  18.   compjunluselecth()
  19.   endh()
  20. end
  21.  
  22. on compjunluselecth
  23.   global gnum1
  24.   set alist to [5, 8, 13]
  25.   repeat with n = 1 to 1
  26.     set num to random(19) + 1
  27.     if (num = gnum1) or (getOne(alist, num) <> 0) then
  28.       set n to n - 1
  29.     end if
  30.   end repeat
  31.   set gnum1 to num
  32.   cursormoveh1()
  33.   selectedjunluh()
  34. end
  35.  
  36. on endh
  37.   waitsnd()
  38.   puppetSound(3, 31)
  39.   repeat with n = 2 to 41
  40.     puppetSprite(n, 0)
  41.   end repeat
  42.   go("e")
  43.   abort()
  44. end
  45.