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