REM ********************************************
REM  Nikolai's Castles campaign for KeeperFX
REM  Script for Level 9, Eastland
REM  Version 1.00
REM ********************************************

SET_GENERATE_SPEED(700)

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

MAX_CREATURES(PLAYER0,11)
MAX_CREATURES(PLAYER1,21)
MAX_CREATURES(PLAYER2,21)
MAX_CREATURES(PLAYER3,21)

RESEARCH(PLAYER1,MAGIC,POWER_SIGHT,300000)
RESEARCH(PLAYER2,MAGIC,POWER_SIGHT,100000)
RESEARCH(PLAYER3,MAGIC,POWER_SIGHT,100000)
RESEARCH(PLAYER0,MAGIC,POWER_SIGHT,100000)

START_MONEY(PLAYER0,9900)
START_MONEY(PLAYER1,9900)
START_MONEY(PLAYER2,9900)
START_MONEY(PLAYER3,9900)

ADD_CREATURE_TO_POOL(BUG,6)
ADD_CREATURE_TO_POOL(FLY,6)
ADD_CREATURE_TO_POOL(SPIDER,6)
ADD_CREATURE_TO_POOL(SORCEROR,6)
ADD_CREATURE_TO_POOL(BILE_DEMON,6)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,6)
ADD_CREATURE_TO_POOL(DRAGON,6)

CREATURE_AVAILABLE(ALL_PLAYERS,BUG,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,SORCEROR,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,BILE_DEMON,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,DARK_MISTRESS,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,FLY,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,SPIDER,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,DRAGON,1,1)

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_DESTROY_WALLS,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SIGHT,1,0)

SET_TIMER(PLAYER0,TIMER0)
SET_TIMER(PLAYER0,TIMER1)
SET_TIMER(PLAYER0,TIMER2)
SET_TIMER(PLAYER0,TIMER3)
SET_TIMER(PLAYER0,TIMER4)
SET_TIMER(PLAYER0,TIMER5)
SET_TIMER(PLAYER0,TIMER6)
SET_TIMER(PLAYER0,TIMER7)

REM QUICK_OBJECTIVE(1,"This castle was once a car-park for a suburban shopping mall, and is almost entirely without magic. Some of the rooms still have disgruntled shoppers trapped inside.",ALL_PLAYERS)
DISPLAY_OBJECTIVE(25,ALL_PLAYERS)

IF(PLAYER0,TIMER0 >= 3000)
    REM QUICK_INFORMATION(10,"Attention, K-Mart shoppers! Boulder Traps are half-price until Friday!")
    DISPLAY_INFORMATION(26,ALL_PLAYERS)
ENDIF

IF(PLAYER0,TIMER1 >= 6000)
    REM QUICK_INFORMATION(2,"We have a lost Demon Spawn named Gerald at the manager's office. Could his parents please pick him up?")
    DISPLAY_INFORMATION(27,ALL_PLAYERS)
ENDIF

IF(PLAYER0,TIMER2 >= 9000)
    REM QUICK_INFORMATION(3,"This shopping centre will be open until midnight on Friday 13th for your convenience.")
    DISPLAY_INFORMATION(28,ALL_PLAYERS)
ENDIF

IF(PLAYER0,TIMER3 >= 12000)
    REM QUICK_INFORMATION(4,"Owner of car LUH-339; your headlights are on. And your Hellhound has eaten your rear-view mirror.")
    DISPLAY_INFORMATION(29,ALL_PLAYERS)
ENDIF

IF(PLAYER0,TIMER4 >= 15000)
    REM QUICK_INFORMATION(5,"Could Gerald's parents please come to the manager's office? He's about to turn into a level five Dragon.")
    DISPLAY_INFORMATION(30,ALL_PLAYERS)
ENDIF

IF(PLAYER0,TIMER5 >= 18000)
    REM QUICK_INFORMATION(6,"Attention, K-Mart shoppers! Discounts on Warlock's robes all this week!")
    DISPLAY_INFORMATION(31,ALL_PLAYERS)
ENDIF

IF(PLAYER0,TIMER6 >= 21000)
    REM QUICK_INFORMATION(7,"Attention, shoppers: please beware of the mad, rampaging vampires in section Seven Blue.")
    DISPLAY_INFORMATION(32,ALL_PLAYERS)
ENDIF

IF(PLAYER0,TIMER7 >= 24000)
    REM QUICK_INFORMATION(8,"Could Gerald's parents please come to the manager's office before he eats another secretary?")
    DISPLAY_INFORMATION(33,ALL_PLAYERS)
ENDIF

IF(PLAYER0,ALL_DUNGEONS_DESTROYED == 1)
    WIN_GAME
ENDIF
