DEAD_CREATURES_RETURN_TO_POOL(1)

ALLY_PLAYERS(PLAYER0,PLAYER_GOOD)

SET_GENERATE_SPEED(400)

COMPUTER_PLAYER(PLAYER1,0)

START_MONEY(PLAYER0,9999999)
START_MONEY(PLAYER1,6000)

MAX_CREATURES(PLAYER1,15)

ADD_CREATURE_TO_POOL(BUG,40)
ADD_CREATURE_TO_POOL(FLY,40)
ADD_CREATURE_TO_POOL(SPIDER,40)
ADD_CREATURE_TO_POOL(DEMONSPAWN,70)
ADD_CREATURE_TO_POOL(SORCEROR,70)

CREATURE_AVAILABLE(PLAYER1,BUG,1,1)
CREATURE_AVAILABLE(PLAYER1,FLY,1,1)
CREATURE_AVAILABLE(PLAYER1,SPIDER,1,1)
CREATURE_AVAILABLE(PLAYER1,DEMONSPAWN,1,1)
CREATURE_AVAILABLE(PLAYER1,SORCEROR,1,1)

ROOM_AVAILABLE(PLAYER1,TREASURE,1,1)
ROOM_AVAILABLE(PLAYER1,LAIR,1,1)
ROOM_AVAILABLE(PLAYER1,GARDEN,1,1)
ROOM_AVAILABLE(PLAYER1,TRAINING,1,1)
ROOM_AVAILABLE(PLAYER1,RESEARCH,1,1)
ROOM_AVAILABLE(PLAYER1,BRIDGE,1,0)

MAGIC_AVAILABLE(PLAYER1,POWER_IMP,1,1)
MAGIC_AVAILABLE(PLAYER1,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_SIGHT,1,1)
MAGIC_AVAILABLE(PLAYER1,POWER_SPEED,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_SPEED,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_DESTROY_WALLS,1,1)
MAGIC_AVAILABLE(PLAYER1,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_CALL_TO_ARMS,1,0)

IF(PLAYER1,DUNGEON_DESTROYED==1)
	WIN_GAME
ENDIF

IF(PLAYER_GOOD,DUNGEON_DESTROYED==1)
	LOSE_GAME
ENDIF

CREATE_PARTY(TUNNELLER)
CREATE_PARTY(THIEF)
CREATE_PARTY(ARCHER)
CREATE_PARTY(KNIGHT)

ADD_TO_PARTY(TUNNELLER,TUNNELLER,1,400,DEFEND_PARTY,0)
ADD_TO_PARTY(TUNNELLER,TUNNELLER,1,400,DEFEND_PARTY,0)
ADD_TO_PARTY(TUNNELLER,TUNNELLER,1,400,DEFEND_PARTY,0)

ADD_TO_PARTY(THIEF,THIEF,1,0,STEAL_GOLD,0)

ADD_TO_PARTY(ARCHER,ARCHER,1,300,DEFEND_PARTY,0)
ADD_TO_PARTY(ARCHER,ARCHER,1,300,DEFEND_PARTY,0)
ADD_TO_PARTY(ARCHER,ARCHER,1,300,DEFEND_PARTY,0)

ADD_TO_PARTY(KNIGHT,KNIGHT,1,5000,DEFEND_PARTY,0)
ADD_TO_PARTY(KNIGHT,ARCHER,1,300,DEFEND_PARTY,0)
ADD_TO_PARTY(KNIGHT,ARCHER,1,300,DEFEND_PARTY,0)
ADD_TO_PARTY(KNIGHT,ARCHER,1,300,DEFEND_PARTY,0)
ADD_TO_PARTY(KNIGHT,TUNNELLER,1,400,DEFEND_PARTY,0)
ADD_TO_PARTY(KNIGHT,TUNNELLER,1,400,DEFEND_PARTY,0)
ADD_TO_PARTY(KNIGHT,TUNNELLER,1,400,DEFEND_PARTY,0)

SET_FLAG(PLAYER0,FLAG0,0)

IF(PLAYER_GOOD,TUNNELLER==0)
	NEXT_COMMAND_REUSABLE
	ADD_TUNNELLER_TO_LEVEL(PLAYER_GOOD,-1,DUNGEON,1,1,0)
ENDIF

IF(PLAYER0,FLAG0==0)
	IF(PLAYER0,TOTAL_CREATURES==0)
		NEXT_COMMAND_REUSABLE
		ADD_PARTY_TO_LEVEL(PLAYER0,TUNNELLER,-1,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,FLAG0,1)
	ENDIF
ENDIF

IF(PLAYER0,FLAG0==1)
	IF(PLAYER0,TOTAL_CREATURES==0)
		NEXT_COMMAND_REUSABLE
		ADD_PARTY_TO_LEVEL(PLAYER0,TUNNELLER,-1,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,FLAG0,2)
	ENDIF
ENDIF

IF(PLAYER0,FLAG0==2)
	IF(PLAYER0,TOTAL_CREATURES==0)
		NEXT_COMMAND_REUSABLE
		ADD_PARTY_TO_LEVEL(PLAYER0,ARCHER,-1,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,FLAG0,3)
	ENDIF
ENDIF

IF(PLAYER0,FLAG0==3)
	IF(PLAYER0,TOTAL_CREATURES==0)
		NEXT_COMMAND_REUSABLE
		ADD_PARTY_TO_LEVEL(PLAYER0,ARCHER,-1,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,FLAG0,4)
	ENDIF
ENDIF

IF(PLAYER0,FLAG0==4)
	IF(PLAYER0,TOTAL_CREATURES==0)
		NEXT_COMMAND_REUSABLE
		ADD_PARTY_TO_LEVEL(PLAYER0,KNIGHT,-1,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,FLAG0,0)
	ENDIF
ENDIF

SET_FLAG(PLAYER1,FLAG0,0)

IF(PLAYER1,MONEY>=10000)
	IF(PLAYER1,FLAG0==0)
		IF(PLAYER_GOOD,THIEF==0)
			NEXT_COMMAND_REUSABLE
			ADD_PARTY_TO_LEVEL(PLAYER_GOOD,THIEF,-1,1)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER1,FLAG0,1)
		ENDIF
	ENDIF
ENDIF

IF(PLAYER1,MONEY>=20000)
	IF(PLAYER1,FLAG0==1)
		IF(PLAYER_GOOD,THIEF==0)
			NEXT_COMMAND_REUSABLE
			ADD_PARTY_TO_LEVEL(PLAYER_GOOD,THIEF,-1,1)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER1,FLAG0,2)
		ENDIF
	ENDIF
ENDIF

IF(PLAYER1,MONEY>=30000)
	IF(PLAYER1,FLAG0==1)
		IF(PLAYER_GOOD,THIEF==0)
			NEXT_COMMAND_REUSABLE
			ADD_PARTY_TO_LEVEL(PLAYER_GOOD,THIEF,-1,1)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER1,FLAG0,0)
		ENDIF
	ENDIF
ENDIF
