REM ********************************************
REM
REM             Script for Level 5588
REM
REM ********************************************

REM PLAY Regicide (Version 3)

LEVEL_VERSION(1)

SET_GENERATE_SPEED(800)

MAX_CREATURES(PLAYER0,25)

START_MONEY(PLAYER0,0)

ADD_CREATURE_TO_POOL(SORCEROR,25)
ADD_CREATURE_TO_POOL(DRAGON,25)
ADD_CREATURE_TO_POOL(ORC,25)
ADD_CREATURE_TO_POOL(SPIDER,25)
ADD_CREATURE_TO_POOL(TENTACLE,25)

CREATURE_AVAILABLE(ALL_PLAYERS,	SORCEROR,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,	DRAGON,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,	ORC,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,	SKELETON,1,1)

ROOM_AVAILABLE(ALL_PLAYERS,TREASURE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,GARDEN,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,TRAINING,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,RESEARCH,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,WORKSHOP,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,BARRACKS,1,0)

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_OBEY,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CONCEAL,1,0)
		
TRAP_AVAILABLE(ALL_PLAYERS,POISON_GAS,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,STEEL,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,WORD_OF_POWER,1,0)

SET_CREATURE_HEALTH(THIEF,5000)
SET_CREATURE_ARMOUR(THIEF,100)
SET_CREATURE_STRENGTH(THIEF,150)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,THIEF,10)
SET_CREATURE_HEALTH(AVATAR,5000)

IF(PLAYER_GOOD,KNIGHT > 0)
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER_GOOD,KNIGHT,SPELL_REBOUND,10)
		SET_TIMER(PLAYER_GOOD,TIMER4)
			NEXT_COMMAND_REUSABLE
			IF(PLAYER_GOOD,TIMER4 == 250)
				NEXT_COMMAND_REUSABLE
				USE_SPELL_ON_PLAYERS_CREATURES(PLAYER_GOOD,KNIGHT,SPELL_REBOUND,10)
					NEXT_COMMAND_REUSABLE
					SET_TIMER(PLAYER_GOOD,TIMER4)
			ENDIF
ENDIF

QUICK_OBJECTIVE(​0,​"Welcome to Regicide, the last bastion of the forces of goodness. Here you will encounter the King himself and his three sons. Beware keeper, they are no easy to kill and can decimate your creatures in seconds.. ",PLAYER0)


IF(PLAYER0,GAME_TURN > 160)
	QUICK_INFORMATION(​1,​​"The King's influence over this land prevents you from building a Lair. Our spies say there is an abandoned dungeon nearby that we can use..",PLAYER0)
ENDIF


SET_FLAG(PLAYER0,FLAG5,0)

IF(PLAYER0,TOTAL_CREATURES >= 5)
	IF(PLAYER0,FLAG5 == 0)
		SET_TIMER(PLAYER0,TIMER5)
	ENDIF
ENDIF

IF(PLAYER0,FLAG5 == 0)
IF(PLAYER0,TIMER5 == 4000)
		CREATE_PARTY(3)
		ADD_TO_PARTY(3,DWARFA,3,1000,ATTACK_ENEMIES,0)
		ADD_TO_PARTY(3,BARBARIAN,3,1000,ATTACK_ENEMIES,0)
		ADD_TO_PARTY(3,ARCHER,3,1000,ATTACK_ENEMIES,0)
		ADD_TO_PARTY(3,WIZARD,3,1000,ATTACK_ENEMIES,0)
		ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,3,3,DUNGEON,0,3,1000)
	ENDIF
ENDIF

IF(PLAYER0,FLAG5 == 0)
IF(PLAYER0,TIMER5 == 8000)
	CREATE_PARTY(4)
	ADD_TO_PARTY(4,DWARFA,4,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(4,BARBARIAN,4,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(4,ARCHER,4,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(4,WIZARD,4,1000,ATTACK_ENEMIES,0)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,4,3,DUNGEON,0,4,1000)
	ENDIF
ENDIF


IF(PLAYER0,TIMER5 == 12000)
	CREATE_PARTY(5)
	ADD_TO_PARTY(5,DWARFA,5,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(5,BARBARIAN,5,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(5,ARCHER,5,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(5,WIZARD,5,1000,ATTACK_ENEMIES,0)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,5,3,DUNGEON,0,5,1000)
	ENDIF
ENDIF

IF(PLAYER0,FLAG5 == 0)
IF(PLAYER0,TIMER5 == 16000)
CREATE_PARTY(6)
	ADD_TO_PARTY(6,DWARFA,6,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(6,BARBARIAN,6,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(6,ARCHER,6,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(6,WIZARD,6,1000,ATTACK_ENEMIES,0)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,6,3,DUNGEON,0,6,1000)
	ENDIF
ENDIF

IF(PLAYER0,FLAG5 == 0)
IF(PLAYER0,TIMER5 == 24000)
CREATE_PARTY(7)
	ADD_TO_PARTY(7,DWARFA,7,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(7,BARBARIAN,7,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(7,ARCHER,7,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(7,WIZARD,7,1000,ATTACK_ENEMIES,0)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,7,3,DUNGEON,0,7,1000)
	ENDIF
ENDIF

IF(PLAYER0,FLAG5 == 0)
IF(PLAYER0,TIMER5 == 28000)
CREATE_PARTY(8)
	ADD_TO_PARTY(8,DWARFA,8,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(8,BARBARIAN,8,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(8,ARCHER,8,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(8,WIZARD,8,1000,ATTACK_ENEMIES,0)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,8,3,DUNGEON,0,8,1000)
	ENDIF
ENDIF

IF(PLAYER0,FLAG5 == 0)
IF(PLAYER0,TIMER5 == 32000)
CREATE_PARTY(9)
	ADD_TO_PARTY(9,DWARFA,9,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(9,BARBARIAN,9,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(9,ARCHER,9,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(9,WIZARD,9,1000,ATTACK_ENEMIES,0)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,9,3,DUNGEON,0,9,1000)
	ENDIF
ENDIF

IF(PLAYER0,FLAG5 == 0)
IF(PLAYER0,TIMER5 == 36000)
CREATE_PARTY(10)
	ADD_TO_PARTY(10,DWARFA,10,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(10,BARBARIAN,10,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(10,ARCHER,10,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(10,WIZARD,10,1000,ATTACK_ENEMIES,0)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,10,3,DUNGEON,0,10,1000)
	SET_TIMER(PLAYER0,TIMER7)
	ENDIF
ENDIF

IF(PLAYER0,FLAG5 == 0)
IF(PLAYER0,TIMER7 == 4000)
	NEXT_COMMAND_REUSABLE
	CREATE_PARTY(INFINITE)
	ADD_TO_PARTY(INFINITE,DWARFA,10,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(INFINITE,BARBARIAN,10,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(INFINITE,ARCHER,10,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(INFINITE,WIZARD,10,1000,ATTACK_ENEMIES,0)
	NEXT_COMMAND_REUSABLE
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,INFINITE,3,DUNGEON,0,10,1000)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER0,TIMER7)
	ENDIF
ENDIF

IF(PLAYER0,ENTRANCE > 9)
	QUICK_INFORMATION(​2,​​"With the capture of this Portal, hero's parties will stop coming. And also allows you to attract 5 more creatures..",PLAYER0)
		SET_FLAG(PLAYER0,FLAG5,1)
			SET_TIMER(PLAYER0,TIMER5)
				MAX_CREATURES(PLAYER0,30)
ENDIF

IF(PLAYER0,PRISON > 0)
	QUICK_INFORMATION(​3,​​"Now you control a Prison, so you can have an army of undead skeletons. But remember Keeper, Lair space is limited..",PLAYER0)
		MAX_CREATURES(PLAYER0,30)
ENDIF

IF(PLAYER0,ORC == 1)
	QUICK_INFORMATION(​4,​​"A loner Orc scout has join your dungeon. He says there is a heavy guarded prison to the west of our dungeon, we should investigate once our forces are strong enough..",PLAYER0)
ENDIF

IF(PLAYER0,BILE_DEMON == 1)
	QUICK_INFORMATION(​5,"A Bile Demon is now under you control. Very very useful creature. Do I need to remind you to not let him be killed?",PLAYER0)
		SET_FLAG(PLAYER0,FLAG2,1)
ENDIF

IF(PLAYER0,DARK_MISTRESS == 1)
	QUICK_INFORMATION(​6,​​"A Dark Mistress! You will need her in the future. KEEP HER ALIVE TOO!! But be careful, she likes to get in trouble..",PLAYER0)
		SET_FLAG(PLAYER0,FLAG3,1)
ENDIF

IF(PLAYER0,WIZARD > 0)
	QUICK_INFORMATION(​7,​​"You have found a rogue Wizard. He is not happy about the King's reigning and joined your forces of evil. Maybe there are more out there..",PLAYER0)
ENDIF

IF_ACTION_POINT(1,PLAYER0)
	IF(PLAYER0, BILE_DEMON == 1)
		CHANGE_SLAB_TYPE(44,24,PRETTY_PATH)
			PLACE_DOOR(PLAYER_GOOD,SECRET,44,24,LOCKED,FREE)
				QUICK_INFORMATION(​8,​​"A dead end! Maybe there is a hidden door somewhere. A creature with SIGHT might me useful..",PLAYER0)
	ENDIF
ENDIF
	
IF(PLAYER0,TROLL == 1)
	QUICK_INFORMATION(​9,​​"You have encounter a Troll that was imprison and heavily guarded. I wonder why? Something tell me he's important. KEEP HIM ALIVE AT ALL COST!!",PLAYER0)
		SET_TIMER(PLAYER0,TIMER6)
			SET_FLAG(PLAYER0,FLAG4,1)
				IF(PLAYER0,TIMER6 == 100)
					QUICK_INFORMATION(​10,​​"He also came with plans to build a bridge..",PLAYER0)
						ROOM_AVAILABLE(ALL_PLAYERS,BRIDGE,1,1)
				ENDIF
ENDIF

IF(PLAYER0,TEMPLE < 9)
SET_FLAG(PLAYER0,FLAG1,0)
ENDIF

IF(PLAYER0,TEMPLE == 9)
	SET_FLAG(PLAYER0,FLAG1,1)
		SET_FLAG(PLAYER0,FLAG2,0)
			SET_FLAG(PLAYER0,FLAG3,0)
				SET_FLAG(PLAYER0,FLAG4,0)
		QUICK_INFORMATION(11,​​"Now you have a temple, use it to summon the most powerful creature available..",PLAYER0)
			
ENDIF

IF(PLAYER0,TEMPLE < 9)
	IF(PLAYER0,FLAG1 == 1)
		QUICK_INFORMATION(12,​​"What did you do???!!! You can't win without a Temple! Try again keeper..",PLAYER0)
			LOSE_GAME
	ENDIF
ENDIF

IF(PLAYER0,FLAG4 == 1)
	IF(PLAYER0,TROLL == 0)
		SET_TIMER(PLAYER0,TIMER1)
			QUICK_INFORMATION(​13,​​"Your Troll has been slain, now you can't win this level. Unless you can resurrect him. QUICKLY OR YOU WILL LOSE!!",PLAYER0)
				IF(PLAYER0,TIMER1 == 500)
					QUICK_INFORMATION(​14,​​"You failed to resurrect your creature. Try again keeper.",PLAYER0)
						LOSE_GAME
				ENDIF
	ENDIF
ENDIF

IF(PLAYER0,FLAG3 == 1)
	IF(PLAYER0,DARK_MISTRESS == 0)
		SET_TIMER(PLAYER0,TIMER2)
			QUICK_INFORMATION(​15,​​"Your Dark Mistress has been slain, now you can't win this level. Unless you can resurrect her. QUICKLY OR YOU WILL LOSE!!",PLAYER0)
				IF(PLAYER0,TIMER2 == 500)
					QUICK_INFORMATION(​16,​​"You failed to resurrect your creature. Try again keeper.",PLAYER0)
						LOSE_GAME
				ENDIF
	ENDIF
ENDIF

IF(PLAYER0,FLAG2 == 1)
	IF(PLAYER0,BILE_DEMON == 0)
		SET_TIMER(PLAYER0,TIMER3)
			QUICK_INFORMATION(​17,​​"Your Bile Demon has been slain, now you can't win this level. Unless you can resurrect him. QUICKLY OR YOU WILL LOSE!!",PLAYER0)
				IF(PLAYER0,TIMER3 == 500)
					QUICK_INFORMATION(​18,​​"You failed to resurrect your creature. Try again keeper.",PLAYER0)
					LOSE_GAME
				ENDIF
	ENDIF
ENDIF

IF(PLAYER0,TROLL == 1)
	IF(PLAYER0,DARK_MISTRESS == 1)
		IF(PLAYER0,BILE_DEMON == 1)
			QUICK_INFORMATION(​19,​"Now you have the necessary creatures to summon a Horny Reaper. Do not alow them to be slain or you will be in trouble..",PLAYER0)
		ENDIF
	ENDIF
ENDIF

IF(PLAYER0,HORNY == 1)
	SET_FLAG(PLAYER0,FLAG1,0)
ENDIF

IF(PLAYER_GOOD,AVATAR == 0)
	IF(PLAYER_GOOD,THIEF == 0)
		QUICK_OBJECTIVE(​​20,​"You have defeated the King and his legacy. Behind that door is the portal to the Heroes land. Be careful keeper, I sense a immense power flowing through the door..",PLAYER0)
	ENDIF
ENDIF

IF_ACTION_POINT(2,PLAYER0)
	QUICK_OBJECTIVE(​21,​"The Stone Knights!! They are the ultimate hero defense. Non of your creatures can defeat them. Or maybe just one..",PLAYER0)
ENDIF

IF(PLAYER_GOOD,KNIGHT == 0)
	QUICK_OBJECTIVE(​​22,​"You succeeded!! The Heroes are no more! Nothing will stop you from conquer the Overworld. Congratulations, you are the Ultimate Keeper..",PLAYER0)
ENDIF

IF(PLAYER0,DUNGEON_DESTROYED == 1)
	LOSE_GAME
ENDIF

IF(PLAYER_GOOD,DUNGEON_DESTROYED == 1)
	IF(PLAYER_GOOD,KNIGHT == 0)
		WIN_GAME
	ENDIF
ENDIF