home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / qh_demo.exe / DEMOHNT2.DXR / 00016.ls < prev    next >
Encoding:
Text File  |  1996-08-09  |  1.6 KB  |  60 lines
  1. on exitFrame
  2.   global gvar1, gpersonlist, gnum1
  3.   puppetSprite(6, 1)
  4.   set num to getAt(gpersonlist, gvar1 + 1) + 380
  5.   puppetSound(3, 57)
  6.   set the castNum of sprite 4 to 145
  7.   set the locV of sprite 4 to -11 + (33 * gnum1)
  8.   repeat with n = 1 to 3
  9.     set the castNum of sprite (gvar1 + 8) to num
  10.     updateStage()
  11.     waith(10)
  12.     set the castNum of sprite (gvar1 + 8) to num + 30
  13.     updateStage()
  14.     waith(10)
  15.   end repeat
  16.   set the castNum of sprite (gvar1 + 8) to num
  17.   updateStage()
  18.   atarih(num)
  19. end
  20.  
  21. on atarih num
  22.   global gvar1, gpersonlist
  23.   puppetSound(3, 57 + random(2))
  24.   set the castNum of sprite (gvar1 + 8) to num + 40
  25.   repeat with n = 1 to 4
  26.     if (n - 1) <> gvar1 then
  27.       set the castNum of sprite (n + 7) to 430 + getAt(gpersonlist, n)
  28.     end if
  29.   end repeat
  30.   waith(60)
  31.   updateStage()
  32.   gopanel()
  33. end
  34.  
  35. on gopanel
  36.   global gvar1, gnum1, gwlist1, gpa
  37.   puppetSprite(42, 0)
  38.   puppetSprite(43, 0)
  39.   puppetSprite(2, 1)
  40.   puppetSprite(3, 1)
  41.   puppetSprite(5, 1)
  42.   repeat with c = 1 to 4
  43.     set v to -10 + (92 * c)
  44.     set sp to (5 * c) - 5 + 21
  45.     set pos to (5 * c) - 5
  46.     repeat with n = 1 to 5
  47.       set the locH of sprite (n + sp) to -21 + (114 * n)
  48.       set the locV of sprite (n + sp) to v
  49.       set the castNum of sprite (n + sp) to getAt(gwlist1, pos + n) + 190
  50.       set the locH of sprite (n + sp - 20) to -21 + (114 * n)
  51.       set the locV of sprite (n + sp - 20) to v
  52.       set the castNum of sprite (n + sp - 20) to getAt(gwlist1, pos + n)
  53.     end repeat
  54.   end repeat
  55.   set gnum1 to gpa
  56.   set the castNum of sprite (gnum1 + 21) to getAt(gwlist1, gnum1) + 210
  57.   set the castNum of sprite (gnum1 + 1) to gvar1 + 122
  58.   waitsnd()
  59. end
  60.