home *** CD-ROM | disk | FTP | other *** search
/ Action Ware 12: Heretic & Hexen / actionware12.iso / acware12 / hexlvls / hxskate / hxskate.acs next >
Text File  |  1995-12-15  |  2KB  |  73 lines
  1. /*
  2. /===.=======================================================================\
  3. | @ | Hexen: Ice-Hockey                                               v1.0  |
  4. \===^=======================================================================/
  5. /---------------------------------------------------------------------------\
  6. |      The following scripts keep track of score, display the score,        |
  7. | correct a glitch in Hexen that does not allow the 'puck' to port in at a  |
  8. |   raised height (This isn't a major thing, but the 'puck' glides MUCH     |
  9. |       better when it is not on the ground),  and play the sounds.         |
  10. \---------------------------------------------------------------------------/
  11. */
  12.  
  13. #include "common.acs"
  14.  
  15. int GoldScore;
  16. int GreyScore;
  17. int Message;
  18. int Lower;
  19.  
  20. SCRIPT 1 OPEN
  21.     {
  22.     Message = "LET THE GAMES BEGIN!";
  23.     print (s:Message);
  24.     ambientsound("KoraxVoiceGreetings", 127);
  25.     GoldScore = 0;
  26.     GreyScore = 0;
  27.     Lower = 1;
  28.     }
  29.  
  30. SCRIPT 2 (int Side)
  31.     {
  32.     switch(Side)
  33.     {
  34.     case 1:
  35.         GoldScore += 1;
  36.         Message = "GOLD SCORES!";
  37.         printbold(s:Message);
  38.         break;
  39.     case 2:
  40.         GreyScore += 1;
  41.         Message = "GREY SCORES!";
  42.         print(s:Message);
  43.         break;
  44.         }
  45.     delay(64);
  46.     ACS_EXECUTE(3,1,0,0,0);
  47.     Floor_RaiseInstant(13,0,4);
  48.     delay(16);
  49.     Teleport(1);
  50.     Lower = 1;
  51.     }
  52.  
  53. SCRIPT 3 (VOID)
  54.     {
  55.     Message = "GOLD'S SCORE IS...";
  56.     printbold(s:Message);
  57.     delay(32);
  58.     Message = GoldScore;
  59.     printbold(d:Message);
  60.     delay(64);
  61.     Message = "GREY'S SCORE IS...";
  62.     print(s:Message);
  63.     delay(32);
  64.     Message = GreyScore;
  65.     print(d:Message);
  66.     }
  67.  
  68. SCRIPT 4 (VOID)
  69.     {
  70.     if (Lower==1) Floor_LowerInstant(13,0,4);
  71.     Lower = 0;
  72.     }
  73.