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

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

SET_GENERATE_SPEED(400)
MAX_CREATURES(PLAYER0,30)
MAX_CREATURES(PLAYER1,32)
START_MONEY(ALL_PLAYERS,10000)
COMPUTER_PLAYER(PLAYER1,0)

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(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(WIZARD,10)
ADD_CREATURE_TO_POOL(FAIRY,20)
ADD_CREATURE_TO_POOL(SAMURAI,15)

CREATURE_AVAILABLE(PLAYER1,BUG,1,1)
CREATURE_AVAILABLE(PLAYER1,SPIDER,1,1)
CREATURE_AVAILABLE(PLAYER1,TROLL,1,1)
CREATURE_AVAILABLE(PLAYER1,DEMONSPAWN,1,1)
CREATURE_AVAILABLE(PLAYER1,TENTACLE,1,1)
CREATURE_AVAILABLE(PLAYER1,ORC,1,1)
CREATURE_AVAILABLE(PLAYER1,BILE_DEMON,1,1)
CREATURE_AVAILABLE(PLAYER1,DRAGON,1,1)
CREATURE_AVAILABLE(PLAYER1,SORCEROR,1,1)
CREATURE_AVAILABLE(PLAYER1,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,WIZARD,1,1)
CREATURE_AVAILABLE(PLAYER0,FAIRY,1,1)
CREATURE_AVAILABLE(PLAYER0,SAMURAI,1,1)

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

ROOM_AVAILABLE(ALL_PLAYERS,TREASURE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,LAIR,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,BRIDGE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,GUARD_POST,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,WORKSHOP,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,PRISON,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TORTURE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,BARRACKS,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TEMPLE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,GRAVEYARD,1,0)

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

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HOLD_AUDIENCE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_CHICKEN,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_DISEASE,1,0)

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

TRAP_AVAILABLE(ALL_PLAYERS,POISON_GAS,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,BOULDER,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,WORD_OF_POWER,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,WOOD,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,BRACED,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,STEEL,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,0)

CREATE_PARTY(DRAGONS)
    ADD_TO_PARTY(DRAGONS,DRAGON,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGONS,DRAGON,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGONS,DRAGON,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGONS,DRAGON,10,500,ATTACK_ENEMIES,0)
   
CREATE_PARTY(ONE)
    ADD_TO_PARTY(ONE,SAMURAI,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,ARCHER,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,MONK,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,MONK,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,GIANT,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,FAIRY,10,500,ATTACK_ENEMIES,0)

CREATE_PARTY(TWO)
    ADD_TO_PARTY(TWO,WIZARD,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,WITCH,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,WITCH,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,SAMURAI,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,THIEF,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,ARCHER,10,500,ATTACK_ENEMIES,0)

CREATE_PARTY(THREE)
    ADD_TO_PARTY(THREE,THIEF,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,THIEF,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,BARBARIAN,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,BARBARIAN,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,MONK,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,GIANT,10,500,ATTACK_ENEMIES,0)

CREATE_PARTY(FOUR)
    ADD_TO_PARTY(ONE,SAMURAI,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,ARCHER,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,ARCHER,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,ARCHER,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,ARCHER,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,MONK,10,500,ATTACK_ENEMIES,0)

CREATE_PARTY(LANDLORD)
    ADD_TO_PARTY(LANDLORD,AVATAR,10,1500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORD,KNIGHT,10,1500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORD,WIZARD,10,1500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORD,WIZARD,10,1500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORD,DWARFA,10,1500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORD,DWARFA,10,1500,ATTACK_ENEMIES,0)

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

QUICK_OBJECTIVE(1,"Another Keeper has decided to foolishly challenge your superior skill in this realm. Such an act of insolence can only go with the upmost justice of an extreme, slow, agonising and painful death. You will also find a small Fortess of heroes here that also deserve the same fate.",ALL_PLAYERS)

IF_ACTION_POINT(1,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,-1,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TWO,-1,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,THREE,-2,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,FOUR,-2,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,LANDLORD,1,1)
	SET_FLAG(PLAYER0,FLAG0,1)
	SET_FLAG(PLAYER0,FLAG1,1)
ENDIF

IF_ACTION_POINT(1,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER1,DRAGONS,2,1)
ENDIF

IF(PLAYER0,FLAG1 == 1)
	QUICK_OBJECTIVE(2,"This hero fortress may be small, but it's well defended. The locals were obviously expecting an attack. Why not divert them towards your rival. It may wear them down. Then you can move in for the kill.",1)
ENDIF

IF(PLAYER0,FLAG0 == 1)
	IF(PLAYER_GOOD,TOTAL_CREATURES == 0)
		IF(PLAYER0,ALL_DUNGEONS_DESTROYED ==1)
			QUICK_OBJECTIVE(3,"Your continued success is begining to make me sick to the pit of my stomach. Thank you, master.",ALL_PLAYERS)
			WIN_GAME
		ENDIF
	ENDIF
ENDIF
