REM Play Level Moria

REM ******* Basic settings *******

SET_GENERATE_SPEED(200)

MAX_CREATURES(PLAYER0,40)

START_MONEY(PLAYER0,0)

ALLY_PLAYERS(PLAYER0,PLAYER1)

COMPUTER_PLAYER(PLAYER_GOOD,0)

CREATURE_AVAILABLE(PLAYER0,ORC,1,1)
CREATURE_AVAILABLE(PLAYER0,TROLL,1,1)
CREATURE_AVAILABLE(PLAYER0,DEMONSPAWN,1,1)
CREATURE_AVAILABLE(PLAYER0,BILE_DEMON,1,1)

REM ********** Game settings **********

IF(PLAYER0,DUNGEON_DESTROYED == 1)
	LOSE_GAME
ENDIF
IF(PLAYER_GOOD,TOTAL_CREATURES==0)
	WIN_GAME
ENDIF

CREATE_PARTY(ONE)
	ADD_TO_PARTY(ONE,KNIGHT,10,0,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,KNIGHT,9,0,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,WIZARD,10,0,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,BARBARIAN,10,0,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,ARCHER,10,0,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,DWARFA,10,0,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,DWARFA,10,0,ATTACK_ENEMIES,0)

ADD_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,1,1)
ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DWARFA,1,2,10,0)

IF(PLAYER1,GHOST==3)
	ADD_CREATURE_TO_LEVEL(PLAYER1,BILE_DEMON,2,2,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER0,TROLL,2,5,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER0,TROLL,2,6,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER0,ORC,2,8,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER0,ORC,2,4,9,0)
	ADD_CREATURE_TO_LEVEL(PLAYER0,ORC,2,1,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER0,DEMONSPAWN,2,3,6,0)
ENDIF

IF(PLAYER1,GHOST==2)
	SET_TIMER(PLAYER0,TIMER0)
	SET_TIMER(PLAYER0,TIMER1)
	SET_TIMER(PLAYER0,TIMER2)
	SET_TIMER(PLAYER0,TIMER3)
ENDIF

IF(PLAYER0,TIMER0>=3)
	IF(PLAYER1,TOTAL_CREATURES<45)
		IF(PLAYER1,BATTLES_LOST<400)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER1,DEMONSPAWN,-1,2,4,0)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER1,DEMONSPAWN,-1,1,5,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER0,TIMER0)
		ENDIF
	ENDIF
ENDIF

IF(PLAYER0,TIMER1>=4)
	IF(PLAYER1,TOTAL_CREATURES<45)
		IF(PLAYER1,BATTLES_LOST<400)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER1,ORC,-2,1,8,0)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER1,TROLL,-2,1,4,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER0,TIMER1)
		ENDIF
	ENDIF
ENDIF

IF(PLAYER0,TIMER2>=5)
	IF(PLAYER1,TOTAL_CREATURES<45)
		IF(PLAYER1,BATTLES_LOST<400)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER1,TROLL,-3,1,4,0)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER1,DEMONSPAWN,-3,2,4,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER0,TIMER2)
		ENDIF
	ENDIF
ENDIF

IF(PLAYER0,TIMER3>=4)
	IF(PLAYER1,TOTAL_CREATURES<45)
		IF(PLAYER1,BATTLES_LOST<400)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER1,DEMONSPAWN,-4,1,5,0)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER1,ORC,-4,1,8,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER0,TIMER3)
		ENDIF
	ENDIF
ENDIF

IF(PLAYER1,GHOST==1)
	ADD_CREATURE_TO_LEVEL(PLAYER0,BILE_DEMON,5,4,9,0)
	ADD_CREATURE_TO_LEVEL(PLAYER0,TROLL,5,7,9,0)
	ADD_CREATURE_TO_LEVEL(PLAYER0,ORC,5,12,10,0)
ENDIF

IF(PLAYER1,GHOST==0)
	ADD_CREATURE_TO_LEVEL(PLAYER0,TROLL,4,5,7,0)
	ADD_CREATURE_TO_LEVEL(PLAYER0,TROLL,4,2,4,0)
	ADD_CREATURE_TO_LEVEL(PLAYER0,TROLL,4,3,2,0)
	IF(PLAYER_GOOD,BATTLES_WON>=575)
		ADD_CREATURE_TO_LEVEL(PLAYER3,DRAGON,3,1,10,0)
	ENDIF
ENDIF