home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / qh_demo.exe / DEMOHNT2.DXR / 00002.ls < prev    next >
Encoding:
Text File  |  1996-08-09  |  2.1 KB  |  98 lines
  1. on selectedjunluh
  2.   global gnum1, gtime1, gwlist1
  3.   puppetSound(3, 51)
  4.   set sp to gnum1 + 21
  5.   set the castNum of sprite sp to getAt(gwlist1, gnum1) + 210
  6.   repeat while soundBusy(3)
  7.     set the castNum of sprite (sp - 20) to 166
  8.     updateStage()
  9.     waith(2)
  10.     set the castNum of sprite (sp - 20) to 121
  11.     updateStage()
  12.     waith(2)
  13.   end repeat
  14.   if the frame < 5 then
  15.     goquiz()
  16.     go("q")
  17.   end if
  18. end
  19.  
  20. on goquiz
  21.   global gpersonlist
  22.   repeat with n = 2 to 7
  23.     puppetSprite(n, 0)
  24.   end repeat
  25.   puppetSprite(12, 0)
  26.   puppetSprite(41, 0)
  27.   puppetSprite(48, 0)
  28.   repeat with n = 1 to 4
  29.     set the locH of sprite (n + 7) to 641 - (n * 156)
  30.     set the locV of sprite (n + 7) to 304
  31.     set the castNum of sprite (n + 7) to getAt(gpersonlist, n) + 380
  32.   end repeat
  33.   repeat with n = 1 to 4
  34.     set the castNum of sprite (n + 12) to 166
  35.     set the castNum of sprite (n + 16) to 166
  36.   end repeat
  37.   repeat with n = 21 to 40
  38.     set the castNum of sprite n to 166
  39.   end repeat
  40. end
  41.  
  42. on cursormoveh1
  43.   global gnum1
  44.   waitsnd()
  45.   startTimer()
  46.   repeat with n = 1 to 20
  47.     set the locH of sprite 48 to 641 - (16 * n)
  48.     set the locV of sprite 48 to 440 - (11 * n)
  49.     updateStage()
  50.     if (n mod 3) = 0 then
  51.       repeat while the timer < 2
  52.         nothing()
  53.       end repeat
  54.       startTimer()
  55.     end if
  56.   end repeat
  57.   set sp to gnum1 + 21
  58.   set h to the locH of sprite sp
  59.   set v to the locV of sprite sp
  60.   set mh to abs(321 - h) / 20
  61.   set mv to abs(220 - v) / 20
  62.   if 321 > h then
  63.     set mh to -1 * mh
  64.   end if
  65.   if 220 > v then
  66.     set mv to -1 * mv
  67.   end if
  68.   waith(30)
  69.   startTimer()
  70.   repeat with n = 1 to 20
  71.     set the locH of sprite 48 to 321 + (mh * n)
  72.     set the locV of sprite 48 to 220 + (mv * n)
  73.     updateStage()
  74.     if (n mod 3) = 0 then
  75.       repeat while the timer < 2
  76.         nothing()
  77.       end repeat
  78.       startTimer()
  79.     end if
  80.   end repeat
  81.   set the locH of sprite 48 to h
  82.   set the locV of sprite 48 to v
  83.   updateStage()
  84. end
  85.  
  86. on waitsnd
  87.   repeat while soundBusy(3)
  88.     nothing()
  89.   end repeat
  90. end
  91.  
  92. on waith n
  93.   startTimer()
  94.   repeat while the timer < n
  95.     nothing()
  96.   end repeat
  97. end
  98.