home *** CD-ROM | disk | FTP | other *** search
/ Headbone Interactive / Headbone_Interactive_CD-ROM_Sampler_1995.iso / pc / demos / abf / fff / zfff3.dxr / 00030.ls < prev    next >
Encoding:
Text File  |  1995-09-15  |  3.3 KB  |  123 lines
  1. on startMovie
  2.   global gvDidItOnce, gvHoofSprite, gvVelmaSprite, gvHeadSprite
  3.   set gvHeadSprite to 4
  4.   set gvVelmaSprite to 23
  5.   set gvHoofSprite to 22
  6.   set gvDidItOnce to 0
  7.   set the puppet of sprite gvVelmaSprite to 1
  8.   set the puppet of sprite gvHoofSprite to 1
  9.   set the visible of sprite gvHoofSprite to 0
  10.   xPlat()
  11.   set the keyDownScript to "checkKeyForQuit"
  12.   set the exitLock to 1
  13. end
  14.  
  15. on SpeakMan
  16.   global gvHeadSprite
  17.   repeat while the soundBusy of 1
  18.     if the mouseDown then
  19.       exit repeat
  20.     end if
  21.     set the castNum of sprite gvHeadSprite to the number of cast "head1"
  22.     updateStage()
  23.     wait(10)
  24.     set the castNum of sprite gvHeadSprite to the number of cast "head2"
  25.     updateStage()
  26.     wait(10)
  27.   end repeat
  28.   set the castNum of sprite gvHeadSprite to the number of cast "head2"
  29.   updateStage()
  30. end
  31.  
  32. on stopMovie
  33.   global gvVelmaSprite, gvHoofSprite, gvHeadSprite
  34.   set the puppet of sprite gvVelmaSprite to 0
  35.   set the puppet of sprite gvHoofSprite to 0
  36.   set the puppet of sprite gvHeadSprite to 0
  37. end
  38.  
  39. on wait vTicks
  40.   startTimer()
  41.   repeat while the timer < vTicks
  42.     if the mouseDown then
  43.       exit repeat
  44.     end if
  45.   end repeat
  46. end
  47.  
  48. on waitSound
  49.   repeat while soundBusy(1)
  50.     if the mouseDown then
  51.       exit repeat
  52.     end if
  53.   end repeat
  54. end
  55.  
  56. on SpeakVelma3
  57.   global gvVelmaSprite, gvHoofSprite
  58.   set the puppet of sprite gvVelmaSprite to 1
  59.   set vCounter to 0
  60.   repeat while soundBusy(1)
  61.     if the mouseDown then
  62.       sound stop 1
  63.       exit repeat
  64.     end if
  65.     if (vCounter = 5) or (vCounter = 2) or (vCounter = 7) or (vCounter = 10) then
  66.       set the castNum of sprite gvVelmaSprite to the number of cast "Velma4"
  67.       updateStage()
  68.       wait(10)
  69.     end if
  70.     set the castNum of sprite gvVelmaSprite to the number of cast "Velma3"
  71.     updateStage()
  72.     wait(10)
  73.     set the castNum of sprite gvVelmaSprite to the number of cast "Velma1"
  74.     updateStage()
  75.     wait(10)
  76.     set the castNum of sprite gvVelmaSprite to the number of cast "Velma2"
  77.     updateStage()
  78.     wait(10)
  79.     set vCounter to vCounter + 1
  80.   end repeat
  81.   set the castNum of sprite gvVelmaSprite to the number of cast "Velma1"
  82.   updateStage()
  83. end
  84.  
  85. on SpeakGoodbye
  86.   global gvHoofSprite, gvVelmaSprite
  87.   set the visible of sprite gvHoofSprite to 1
  88.   set the castNum of sprite gvHoofSprite to the number of cast "hoof2"
  89.   updateStage()
  90.   wait(5)
  91.   set the castNum of sprite gvHoofSprite to the number of cast "hoof1"
  92.   updateStage()
  93.   wait(5)
  94.   set the castNum of sprite gvHoofSprite to the number of cast "hoof2"
  95.   updateStage()
  96.   wait(5)
  97.   set the castNum of sprite gvHoofSprite to the number of cast "hoof1"
  98.   updateStage()
  99.   wait(5)
  100.   set the visible of sprite gvHoofSprite to 0
  101.   puppetSound(byeFile())
  102.   updateStage()
  103.   repeat while the soundBusy of 1
  104.     set the castNum of sprite gvVelmaSprite to the number of cast "Velma2"
  105.     updateStage()
  106.     wait(10)
  107.     set the castNum of sprite gvVelmaSprite to the number of cast "Velma3"
  108.     updateStage()
  109.     wait(10)
  110.     set the castNum of sprite gvVelmaSprite to the number of cast "Velma1"
  111.     updateStage()
  112.     wait(10)
  113.   end repeat
  114.   set the castNum of sprite gvVelmaSprite to the number of cast "velma6"
  115.   updateStage()
  116.   wait(15)
  117.   set the castNum of sprite gvVelmaSprite to the number of cast "velma5"
  118.   updateStage()
  119.   wait(10)
  120.   set the castNum of sprite gvVelmaSprite to the number of cast "Velma1"
  121.   updateStage()
  122. end
  123.