REM ********************************************
REM  Conquest of the Arctic for KeeperFX
REM  Script for Level 9, Battlefield
REM  Version 1.00
REM ********************************************

SET_GENERATE_SPEED(400)

MAX_CREATURES(PLAYER0,30)

START_MONEY(ALL_PLAYERS,20000)

ADD_CREATURE_TO_POOL(WIZARD,20)
ADD_CREATURE_TO_POOL(ARCHER,20)
ADD_CREATURE_TO_POOL(SAMURAI,20)
ADD_CREATURE_TO_POOL(BARBARIAN,20)
ADD_CREATURE_TO_POOL(KNIGHT,20)
ADD_CREATURE_TO_POOL(THIEF,20)
ADD_CREATURE_TO_POOL(GIANT,20)
ADD_CREATURE_TO_POOL(AVATAR,10)

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

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_OBEY,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,0)

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

IF(PLAYER0,GAME_TURN > 30)
    REM QUICK_OBJECTIVE(1,"One of three other keeper possesses the incantation the destruction of walls, the ruler of this land walled up the entry to its own heart. This incantation will be not superfluous to the inroad to his heart. Successes!",PLAYER0)
    DISPLAY_OBJECTIVE(17,ALL_PLAYERS)
ENDIF

IF(PLAYER0,LAIR >= 1)
    CREATURE_AVAILABLE(PLAYER0,ARCHER,1,1)
ENDIF


IF(PLAYER0,TRAINING >= 1)
    CREATURE_AVAILABLE(PLAYER0,SAMURAI,1,1)
ENDIF


IF(PLAYER0,RESEARCH >= 1)
    CREATURE_AVAILABLE(PLAYER0,WIZARD,1,1)
ENDIF


IF(PLAYER0,GARDEN >= 1)
    CREATURE_AVAILABLE(PLAYER0,BARBARIAN,1,1)
ENDIF

IF(PLAYER0,WORKSHOP >= 1)
    CREATURE_AVAILABLE(PLAYER0,KNIGHT,1,1)
ENDIF

IF(PLAYER0,TRAINING >= 1)
    CREATURE_AVAILABLE(PLAYER0,THIEF,1,1)
ENDIF


IF(PLAYER0,BARRACKS >= 1)
    CREATURE_AVAILABLE(PLAYER0,GIANT,1,1)
ENDIF


IF(PLAYER0,TEMPLE >= 1)
    CREATURE_AVAILABLE(PLAYER0,AVATAR,1,1)
ENDIF

COMPUTER_PLAYER(PLAYER3, 1)
COMPUTER_PLAYER(PLAYER2, 1)
COMPUTER_PLAYER(PLAYER1, 1)

IF(PLAYER_GOOD,DUNGEON_DESTROYED == 1)
    REM QUICK_OBJECTIVE(2,"The following subject land, nobody is in a position to overcome  us!",PLAYER0)
    DISPLAY_OBJECTIVE(18,ALL_PLAYERS)
    WIN_GAME
ENDIF
