/*
/===.=======================================================================\
| @ | Hexen: Ice-Hockey                                               v1.0  |
\===^=======================================================================/
/---------------------------------------------------------------------------\
|      The following scripts keep track of score, display the score,        |
| correct a glitch in Hexen that does not allow the 'puck' to port in at a  |
|   raised height (This isn't a major thing, but the 'puck' glides MUCH     |
|       better when it is not on the ground),  and play the sounds.         |
\---------------------------------------------------------------------------/
*/

#include "common.acs"

int GoldScore;
int GreyScore;
int Message;
int Lower;

SCRIPT 1 OPEN
	{
	Message = "LET THE GAMES BEGIN!";
	print (s:Message);
	ambientsound("KoraxVoiceGreetings", 127);
	GoldScore = 0;
	GreyScore = 0;
	Lower = 1;
	}

SCRIPT 2 (int Side)
	{
	switch(Side)
	{
	case 1:
		GoldScore += 1;
		Message = "GOLD SCORES!";
		printbold(s:Message);
		break;
	case 2:
		GreyScore += 1;
		Message = "GREY SCORES!";
		print(s:Message);
		break;
		}
	delay(64);
	ACS_EXECUTE(3,1,0,0,0);
	Floor_RaiseInstant(13,0,4);
	delay(16);
	Teleport(1);
	Lower = 1;
	}

SCRIPT 3 (VOID)
	{
	Message = "GOLD'S SCORE IS...";
	printbold(s:Message);
	delay(32);
	Message = GoldScore;
	printbold(d:Message);
	delay(64);
	Message = "GREY'S SCORE IS...";
	print(s:Message);
	delay(32);
	Message = GreyScore;
	print(d:Message);
	}

SCRIPT 4 (VOID)
	{
	if (Lower==1) Floor_LowerInstant(13,0,4);
	Lower = 0;
	}
