LEVEL_VERSION(1)

START_MONEY(PLAYER0,10000)
START_MONEY(PLAYER1,1000000)
START_MONEY(PLAYER2,1000000)
START_MONEY(PLAYER3,1000000)

COMPUTER_PLAYER(PLAYER1,10)
COMPUTER_PLAYER(PLAYER2,10)
COMPUTER_PLAYER(PLAYER3,10)

SET_CREATURE_HEALTH(IMP,200)
SET_CREATURE_HEALTH(BILE_DEMON,2700)
SET_CREATURE_HEALTH(ORC,1750)
SET_CREATURE_HEALTH(DARK_MISTRESS,1000)
SET_CREATURE_HEALTH(DRAGON,2250)
SET_CREATURE_ARMOUR(DRAGON,140)
SET_CREATURE_HEALTH(HORNY,5000)

SET_CREATURE_HEALTH(GIANT,2000)
SET_CREATURE_HEALTH(SAMURAI,1400)

ALLY_PLAYERS(PLAYER1, PLAYER0,1)
ALLY_PLAYERS(PLAYER2, PLAYER0,1)
ALLY_PLAYERS(PLAYER3, PLAYER0,1)
ALLY_PLAYERS(PLAYER_GOOD, PLAYER0,1)


MAGIC_AVAILABLE(PLAYER1, POWER_SPEED, 1, 1)
MAGIC_AVAILABLE(PLAYER2, POWER_SPEED, 1, 1)
MAGIC_AVAILABLE(PLAYER3, POWER_SPEED, 1, 1)
MAGIC_AVAILABLE(PLAYER1, POWER_CALL_TO_ARMS, 1, 1)
MAGIC_AVAILABLE(PLAYER2, POWER_CALL_TO_ARMS, 1, 1)
MAGIC_AVAILABLE(PLAYER3, POWER_CALL_TO_ARMS, 1, 1)
MAGIC_AVAILABLE(PLAYER1, POWER_HEAL_CREATURE, 1, 1)
MAGIC_AVAILABLE(PLAYER2, POWER_HEAL_CREATURE, 1, 1)
MAGIC_AVAILABLE(PLAYER3, POWER_HEAL_CREATURE, 1, 1)
MAGIC_AVAILABLE(PLAYER1, POWER_PROTECT, 1, 1)
MAGIC_AVAILABLE(PLAYER2, POWER_PROTECT, 1, 1)
MAGIC_AVAILABLE(PLAYER3, POWER_PROTECT, 1, 1)
MAGIC_AVAILABLE(PLAYER0, POWER_CAVE_IN, 1, 1)
MAGIC_AVAILABLE(PLAYER0, POWER_LIGHTNING, 1, 1)
MAGIC_AVAILABLE(PLAYER0, POWER_DESTROY_WALLS, 1, 1)

REVEAL_MAP_RECT(PLAYER0,127,127,254,254)

SET_TIMER(PLAYER0,TIMER0)
SET_FLAG(PLAYER0,FLAG1,0)

QUICK_OBJECTIVE(1,"Three keepers will soon start to fight with each other. You can watch their battle or interfere them if you like.",PLAYER0)

IF(PLAYER0,TIMER0>=1)
NEXT_COMMAND_REUSABLE
ADD_GOLD_TO_PLAYER(PLAYER0,30)
NEXT_COMMAND_REUSABLE
SET_TIMER(PLAYER0,TIMER0)
ENDIF

IF(PLAYER0,GAME_TURN>=500)
	MAGIC_AVAILABLE(PLAYER1, POWER_IMP, 1, 1)
	MAGIC_AVAILABLE(PLAYER2, POWER_IMP, 1, 1)
	MAGIC_AVAILABLE(PLAYER3, POWER_IMP, 1, 1)
	ADD_CREATURE_TO_LEVEL(PLAYER1,IMP,PLAYER1,15,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,IMP,PLAYER2,15,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER3,IMP,PLAYER3,15,10,0)
ENDIF

IF(PLAYER1, TOTAL_CREATURES==0)
	ADD_HEART_HEALTH(PLAYER1, -30000,1)
ENDIF

IF(PLAYER2, TOTAL_CREATURES==0)
	ADD_HEART_HEALTH(PLAYER2, -30000,1)
ENDIF

IF(PLAYER3, TOTAL_CREATURES==0)
	ADD_HEART_HEALTH(PLAYER3, -30000,1)
ENDIF

IF(PLAYER1,DUNGEON_DESTROYED==1)
IF(PLAYER2,DUNGEON_DESTROYED==1)
	 KILL_CREATURE(PLAYER0,FLOATING_SPIRIT,MOST_EXPERIENCED,1)
	CHANGE_SLAB_OWNER(42,56,PLAYER0)
	SET_FLAG(PLAYER0,FLAG1,DRAWFROM(5,6))
ENDIF
ENDIF

IF(PLAYER1,DUNGEON_DESTROYED==1)
IF(PLAYER3,DUNGEON_DESTROYED==1)
	KILL_CREATURE(PLAYER0,FLOATING_SPIRIT,MOST_EXPERIENCED,1)
	CHANGE_SLAB_OWNER(42,56,PLAYER0)
	SET_FLAG(PLAYER0,FLAG1,DRAWFROM(3,4))
ENDIF
ENDIF

IF(PLAYER2,DUNGEON_DESTROYED==1)
IF(PLAYER3,DUNGEON_DESTROYED==1)
	KILL_CREATURE(PLAYER0,FLOATING_SPIRIT,MOST_EXPERIENCED,1)
	CHANGE_SLAB_OWNER(42,56,PLAYER0)
	SET_FLAG(PLAYER0,FLAG1,DRAWFROM(1,2))
ENDIF
ENDIF

IF(PLAYER0, FLAG1==1)
	QUICK_OBJECTIVE(2,"Blue is the winner. He gives one of his bile demons to you.",PLAYER0)
	ADD_CREATURE_TO_LEVEL(PLAYER0,BILE_DEMON,PLAYER0,1,8,0)
	WIN_GAME
ENDIF

IF(PLAYER0, FLAG1==2)
	QUICK_OBJECTIVE(3,"Blue is the winner. He gives one of his vampires to you.",PLAYER0)
	ADD_CREATURE_TO_LEVEL(PLAYER0,VAMPIRE,PLAYER0,1,6,0)
	WIN_GAME
ENDIF

IF(PLAYER0, FLAG1==3)
	QUICK_OBJECTIVE(4,"Green is the winner. He gives one of his orcs to you.",PLAYER0)
	ADD_CREATURE_TO_LEVEL(PLAYER0,ORC,PLAYER0,1,10,0)
	WIN_GAME
ENDIF

IF(PLAYER0, FLAG1==4)
	QUICK_OBJECTIVE(5,"Green is the winner. He gives one of his warlocks to you.",PLAYER0)
	ADD_CREATURE_TO_LEVEL(PLAYER0,SORCEROR,PLAYER0,1,9,0)
	WIN_GAME
ENDIF

IF(PLAYER0, FLAG1==5)
	QUICK_OBJECTIVE(6,"Yellow is the winner. He gives one of his dragons to you.",PLAYER0)
	ADD_CREATURE_TO_LEVEL(PLAYER0,DRAGON,PLAYER0,1,7,0)
	WIN_GAME
ENDIF

IF(PLAYER0, FLAG1==6)
	QUICK_OBJECTIVE(7,"Yellow is the winner. He gives one of his mistresses to you.",PLAYER0)
	ADD_CREATURE_TO_LEVEL(PLAYER0,DARK_MISTRESS,PLAYER0,1,6,0)
	WIN_GAME
ENDIF
