home *** CD-ROM | disk | FTP | other *** search
/ LAUNCH 2 / LAUNCH.BIN / mac / SONY / PAYOFF.DIR / 00026_Script_26 < prev    next >
Text File  |  1995-06-07  |  4KB  |  163 lines
  1. --high des start movie
  2.  
  3. on STARTMOVIE
  4.   global gDesScore,gSndPath,QTKarmic,gKarmicAnimal,gQTSoundChannel
  5.   
  6.   set QTKarmic = 15    --sprite of the karmic QT
  7.   
  8.   set gQTSoundChannel = 44
  9.   puppetSprite gQTSoundChannel, TRUE
  10.   set the movierate of sprite(gQTSoundChannel) = 0
  11.   
  12.   if the machineType = 256 then
  13.     set gSndPath to the pathname & "sounds\"  --PC
  14.   else
  15.     set gSndPath to the pathname & "sounds:"  --Macintosh
  16.   end if
  17.   
  18.   put 45 into gDesScore  --################TEMP
  19.   CHECKANIMAL
  20.   
  21. end
  22.  
  23.  
  24. -------------------------------------------------------------
  25. -------------------------------------------------------------
  26.  
  27. --determine which animal user will become
  28.  
  29. on CHECKANIMAL
  30.   global gDesScore,gKarmicAnimal
  31.   
  32.   if gDesScore < 0 then
  33.     set gKarmicAnimal = "germ"
  34.     exit
  35.   else if gDesScore > -5 and gDesScore < 10 then
  36.     set gKarmicAnimal = "beetle"
  37.     exit
  38.   else if gDesScore > 5 and gDesScore < 20 then
  39.     set gKarmicAnimal = "bass"
  40.     exit
  41.   else if gDesScore > 15 and gDesScore < 30 then
  42.     set gKarmicAnimal = "warthog"
  43.     exit
  44.   else if gDesScore > 25 and gDesScore < 40 then
  45.     set gKarmicAnimal = "retriever"
  46.     exit
  47.   else if gDesScore > 35 and gDesScore < 45 then
  48.     set gKarmicAnimal = "penniless"
  49.     exit
  50.   else if gDesScore > 40 then
  51.     set gKarmicAnimal = "famous"
  52.     exit
  53.   end if
  54.   
  55.   
  56.   
  57. end
  58.  
  59.  
  60. -------------------------------------------------------------
  61. -------------------------------------------------------------
  62.  
  63. on SETNEEDLE
  64.   global gDesScore,gKarmicAnimal
  65.   puppetsprite(9), true
  66.   
  67.   if gDesScore = 0 then exit   --needle doesn't move
  68.   
  69.   --score is below 0
  70.   if gDesScore < 0 then
  71.     set Z = 0  --starting point to count down
  72.     repeat while Z <> gDesScore
  73.       set Needle to ("score " & Z)
  74.       set the castNum of sprite(9) to the number of cast Needle
  75.       updatestage
  76.       set Z = (Z - 5)
  77.     end repeat      
  78.   end if
  79.   
  80.   --score is better than 0
  81.   if gDesScore > 0 then
  82.     set Z = 0  --starting point to count up
  83.     repeat while Z <> gDesScore
  84.       set Needle to ("score " & Z)
  85.       set the castNum of sprite(9) to the number of cast Needle
  86.       updatestage
  87.       set Z = (Z + 5)
  88.     end repeat      
  89.   end if
  90.   
  91.   --set needle to final position and sound it
  92.   PlayQTSound "SALLFDG2.MOV", false
  93.   set Needle to ("score " & gDesScore)
  94.   set the castNum of sprite(9) to the number of cast Needle
  95.   updatestage
  96.   
  97.   startTimer
  98.       repeat while the timer < 79  --duration of this sound
  99.             nothing
  100.       end repeat
  101.   
  102.   KillQTSound
  103.   
  104. end
  105.  
  106.  
  107. -------------------------------------------------------------
  108. -------------------------------------------------------------
  109.  
  110. on SETANIMAL
  111.   global gDesScore,gKarmicAnimal
  112.   
  113.   PlayQTSound "SALLHORN.MOV"
  114.   
  115.   startTimer
  116.       repeat while the timer < 73  --duration of this sound        
  117.     nothing
  118.       end repeat
  119.   KillQTSound
  120.   puppetsprite(7), true
  121.   set the castNum of sprite(7) to cast gKarmicAnimal
  122.   updatestage
  123.   
  124.   
  125. end
  126.  
  127.  
  128.  
  129. -------------------------------------------------------------
  130. -------------------------------------------------------------
  131.  
  132. on SAYGOODBYE
  133.   global gDesScore,gGoodbyeLength
  134.   
  135.   if gDesScore < 0 then
  136.     PlayQTSound "SDKG035.MOV", false
  137.     put the duration of cast "SDKG035.MOV" into gGoodbyeLength
  138.   else if gDesScore > -5 and gDesScore < 25 then
  139.     PlayQTSound "SDKG036.MOV", false
  140.     put the duration of cast "SDKG036.MOV" into gGoodbyeLength
  141.   else if gDesScore > 15 and gDesScore < 45 then
  142.     PlayQTSound "SDKG037.MOV", false
  143.     put the duration of cast "SDKG037.MOV" into gGoodbyeLength
  144.   else if gDesScore > 40 then
  145.     PlayQTSound "SDKG038.MOV", false
  146.     put the duration of cast "SDKG038.MOV" into gGoodbyeLength
  147.   end if
  148.   
  149.   updatestage
  150.   
  151. end
  152.  
  153.  
  154.  
  155. -------------------------------------------------------------
  156. -------------------------------------------------------------
  157.  
  158. on ONESECDELAY
  159.       startTimer
  160.       repeat while the timer < 60
  161.             nothing
  162.       end repeat
  163. end