REM ********************************************
REM
REM            Script for Level 30 - Pickel
REM
REM ********************************************
REM Generated using Dungeon Scripter V0.84.
REM Created by Stubbjax.
REM ********************************************

REM ************** SETUP - GENERAL *************

SET_GENERATE_SPEED(400)
MAX_CREATURES(ALL_PLAYERS,30)
START_MONEY(ALL_PLAYERS,10000)
COMPUTER_PLAYER(PLAYER2,1)

REM ************* SETUP - CREATURES ************

ADD_CREATURE_TO_POOL(BUG,20)
ADD_CREATURE_TO_POOL(SPIDER,20)
ADD_CREATURE_TO_POOL(TROLL,30)
ADD_CREATURE_TO_POOL(DEMONSPAWN,30)
ADD_CREATURE_TO_POOL(HELL_HOUND,10)
ADD_CREATURE_TO_POOL(TENTACLE,10)
ADD_CREATURE_TO_POOL(ORC,10)
ADD_CREATURE_TO_POOL(BILE_DEMON,20)
ADD_CREATURE_TO_POOL(DRAGON,20)
ADD_CREATURE_TO_POOL(SORCEROR,20)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,10)
ADD_CREATURE_TO_POOL(DWARFA,20)
ADD_CREATURE_TO_POOL(BARBARIAN,20)
ADD_CREATURE_TO_POOL(GIANT,20)
ADD_CREATURE_TO_POOL(THIEF,10)
ADD_CREATURE_TO_POOL(ARCHER,20)
ADD_CREATURE_TO_POOL(SAMURAI,10)
ADD_CREATURE_TO_POOL(WIZARD,10)
ADD_CREATURE_TO_POOL(FAIRY,20)

CREATURE_AVAILABLE(PLAYER2,BUG,1,1)
CREATURE_AVAILABLE(PLAYER2,SPIDER,1,1)
CREATURE_AVAILABLE(PLAYER2,TROLL,1,1)
CREATURE_AVAILABLE(PLAYER2,DEMONSPAWN,1,1)
CREATURE_AVAILABLE(PLAYER2,HELL_HOUND,1,1)
CREATURE_AVAILABLE(PLAYER2,TENTACLE,1,1)
CREATURE_AVAILABLE(PLAYER2,ORC,1,1)
CREATURE_AVAILABLE(PLAYER2,BILE_DEMON,1,1)
CREATURE_AVAILABLE(PLAYER2,DRAGON,1,1)
CREATURE_AVAILABLE(PLAYER2,SORCEROR,1,1)
CREATURE_AVAILABLE(PLAYER2,DARK_MISTRESS,1,1)
CREATURE_AVAILABLE(PLAYER0,DWARFA,1,1)
CREATURE_AVAILABLE(PLAYER0,BARBARIAN,1,1)
CREATURE_AVAILABLE(PLAYER0,GIANT,1,1)
CREATURE_AVAILABLE(PLAYER0,THIEF,1,1)
CREATURE_AVAILABLE(PLAYER0,ARCHER,1,1)
CREATURE_AVAILABLE(PLAYER0,SAMURAI,1,1)
CREATURE_AVAILABLE(PLAYER0,WIZARD,1,1)
CREATURE_AVAILABLE(PLAYER0,FAIRY,1,1)

REM *************** SETUP - ROOMS **************

ROOM_AVAILABLE(PLAYER0,TREASURE,1,1)
ROOM_AVAILABLE(PLAYER0,LAIR,1,1)
ROOM_AVAILABLE(PLAYER0,GARDEN,1,1)
ROOM_AVAILABLE(PLAYER0,TRAINING,1,1)
ROOM_AVAILABLE(PLAYER0,RESEARCH,1,1)
ROOM_AVAILABLE(PLAYER0,BRIDGE,1,1)
ROOM_AVAILABLE(PLAYER0,GUARD_POST,1,1)
ROOM_AVAILABLE(PLAYER0,WORKSHOP,1,0)
ROOM_AVAILABLE(PLAYER0,PRISON,1,0)
ROOM_AVAILABLE(PLAYER0,TORTURE,1,0)
ROOM_AVAILABLE(PLAYER0,BARRACKS,1,0)
ROOM_AVAILABLE(PLAYER0,TEMPLE,1,0)

REM ************** SETUP - SPELLS **************

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_OBEY,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_HOLD_AUDIENCE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CAVE_IN,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CHICKEN,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_ARMAGEDDON,1,0)

REM *********** SETUP - TRAPS & DOORS **********

TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)
TRAP_AVAILABLE(PLAYER0,BOULDER,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,WORD_OF_POWER,1,0)
DOOR_AVAILABLE(PLAYER0,WOOD,1,0)
DOOR_AVAILABLE(PLAYER2,WOOD,1,15)
DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,0)

CREATE_PARTY(ONE)
    ADD_TO_PARTY(ONE,FAIRY,10,300,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,BARBARIAN,10,300,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,GIANT,10,300,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,BARBARIAN,10,300,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,SAMURAI,10,300,ATTACK_ENEMIES,0)

CREATE_PARTY(TWO)
    ADD_TO_PARTY(TWO,WIZARD,10,300,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,WIZARD,10,300,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,GIANT,10,300,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,MONK,10,300,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,BARBARIAN,10,300,ATTACK_ENEMIES,0)

CREATE_PARTY(THREE)
    ADD_TO_PARTY(THREE,ARCHER,10,300,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,DWARFA,10,300,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,DWARFA,10,300,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,MONK,10,300,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,ARCHER,10,300,ATTACK_ENEMIES,0)

CREATE_PARTY(LANDLORDS)
    ADD_TO_PARTY(LANDLORDS,KNIGHT,10,1500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORDS,KNIGHT,10,1500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORDS,KNIGHT,10,1500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORDS,KNIGHT,10,1500,ATTACK_ENEMIES,0)

REM ****************************************************************************

QUICK_OBJECTIVE(1,"Some devious Knights are about to attack another Enemy Keeper in this land. You have been given an ideal dungeon. You have no portal or creatures, and the only one available is located in the centre where the heroes are. You certainly have gotten yourself into a pickel here, Master. You need a plan.",ALL_PLAYERS)

SET_TIMER(PLAYER_GOOD,TIMER1)

IF(PLAYER_GOOD,TIMER1 >= 100)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,-1,2)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TWO,-2,2)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,THREE,-3,2)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,LANDLORDS,-4,2)
	SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF(PLAYER_GOOD,TIMER1 >= 350)
	QUICK_INFORMATION(2,"Sit Back and enjoy the show, Master. However, you still need to claim the portal. Turn your only thief into a ghost and blow the enemy tunneller onto it's own land to break through the fortified wall, as there is no Destroy Walls spell available. Then claim the portal while your enemies are distracted. It's your only hope.")
ENDIF

IF(PLAYER2,DUNGEON_DESTROYED ==1)
	SET_FLAG(PLAYER0,FLAG0,1)
	QUICK_OBJECTIVE(3,"The heroes attack has been a success. But you still need to wipe the remaining forces out in order to conquer this realm. Train and use your resources well and prepare for another almighty battle. Make sure you've claimed the portal.",PLAYER2)
ENDIF

IF(PLAYER0,FLAG0 == 1)
	IF(PLAYER0,TOTAL_DUNGEONS_DESTROYED == 1)
		IF(PLAYER_GOOD,TOTAL_CREATURES == 0)
			QUICK_OBJECTIVE(4,"Truly you have won a magnificent victory, Master! You have a truly evil reputation to live up to.",ALL_PLAYERS)
			WIN_GAME
		ENDIF
	ENDIF
ENDIF
