REM ************************************************************************
REM
REM Script for Lactobacillus Level - by Rangex        04.02.2004
REM
REM ************************************************************************

SET_GENERATE_SPEED(500)
MAX_CREATURES(PLAYER0,20)
MAX_CREATURES(PLAYER1,25)
MAX_CREATURES(PLAYER2,25)
MAX_CREATURES(PLAYER3,25)
START_MONEY(PLAYER0,50000)
START_MONEY(PLAYER1,100000)
START_MONEY(PLAYER2,100000)
START_MONEY(PLAYER3,100000)

ADD_CREATURE_TO_POOL(SORCEROR,60)
ADD_CREATURE_TO_POOL(BILE_DEMON,50)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,50)
ADD_CREATURE_TO_POOL(TROLL,55)
ADD_CREATURE_TO_POOL(ORC,55)
ADD_CREATURE_TO_POOL(DRAGON,50)
ADD_CREATURE_TO_POOL(DEMONSPAWN,30)
ADD_CREATURE_TO_POOL(HELL_HOUND,40)
ADD_CREATURE_TO_POOL(SPIDER,20)
ADD_CREATURE_TO_POOL(FLY,20)

CREATURE_AVAILABLE(PLAYER0,TROLL,1,1)
CREATURE_AVAILABLE(PLAYER2,TROLL,1,1)
CREATURE_AVAILABLE(PLAYER1,DARK_MISTRESS,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,SORCEROR,1,1)
CREATURE_AVAILABLE(PLAYER3,BILE_DEMON,1,1)
CREATURE_AVAILABLE(PLAYER3,HELL_HOUND,1,1)
CREATURE_AVAILABLE(PLAYER2,DRAGON,1,1)
CREATURE_AVAILABLE(PLAYER0,ORC,1,1)
CREATURE_AVAILABLE(PLAYER1,ORC,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,FLY,1,1)
CREATURE_AVAILABLE(PLAYER0,SPIDER,1,1)
CREATURE_AVAILABLE(PLAYER0,DEMONSPAWN,1,1)

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,BARRACKS,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,GUARD_POST,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TEMPLE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,WORKSHOP,1,0)
ROOM_AVAILABLE(PLAYER1,GRAVEYARD,1,0)
ROOM_AVAILABLE(PLAYER2,GRAVEYARD,1,0)
ROOM_AVAILABLE(PLAYER3,GRAVEYARD,1,0)
ROOM_AVAILABLE(PLAYER1,PRISON,1,0)
ROOM_AVAILABLE(PLAYER2,PRISON,1,0)
ROOM_AVAILABLE(PLAYER3,PRISON,1,0)
ROOM_AVAILABLE(PLAYER1,TORTURE,1,0)
ROOM_AVAILABLE(PLAYER2,TORTURE,1,0)
ROOM_AVAILABLE(PLAYER3,TORTURE,1,0)
ROOM_AVAILABLE(PLAYER2,SCAVENGER,1,0)
ROOM_AVAILABLE(PLAYER3,SCAVENGER,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(PLAYER1,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(PLAYER2,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(PLAYER3,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(PLAYER2,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(PLAYER3,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(PLAYER2,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(PLAYER3,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_DISEASE,1,0)
MAGIC_AVAILABLE(PLAYER2,POWER_DISEASE,1,0)
MAGIC_AVAILABLE(PLAYER3,POWER_DISEASE,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_CAVE_IN,1,0)
MAGIC_AVAILABLE(PLAYER2,POWER_CAVE_IN,1,0)
MAGIC_AVAILABLE(PLAYER3,POWER_CAVE_IN,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CHICKEN,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HOLD_AUDIENCE,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(PLAYER1,MAGIC,1,0)
DOOR_AVAILABLE(PLAYER2,MAGIC,1,0)
DOOR_AVAILABLE(PLAYER3,MAGIC,1,0)

TRAP_AVAILABLE(ALL_PLAYERS,POISON_GAS,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,ALARM,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,WORD_OF_POWER,1,0)

COMPUTER_PLAYER(PLAYER1,0)
COMPUTER_PLAYER(PLAYER2,0)
COMPUTER_PLAYER(PLAYER3,0)


CREATE_PARTY(PARTY1)
    ADD_TO_PARTY(PARTY1,HORNY,6,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY1,HORNY,7,0,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(PARTY2)
    ADD_TO_PARTY(PARTY2,HORNY,8,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY2,HORNY,9,0,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(PARTY3)
    ADD_TO_PARTY(PARTY3,HORNY,10,0,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(PARTY5)
    ADD_TO_PARTY(PARTY5,HORNY,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY5,HORNY,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY5,HORNY,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY5,HORNY,10,0,ATTACK_DUNGEON_HEART,0)


QUICK_OBJECTIVE(1,"Prince Bolko The Skew-legged inseparably ruled that land, until draw attention of the four infernal magnates interested in punder of his treasure rooms. Almost entire area came into rule of the forces of darkness, but Bolko managed to barricade along with his elite guards in a powerful liquid lava surrounded fortress. Destroy the swaggerer, and his infernal rivals - only then you shall receive autocracy.",PLAYER0)


IF(PLAYER0,GAME_TURN >= 1500)
QUICK_INFORMATION(2,"In this kingdom, eternal war is in progress, and forces are compensated. Know that only you can put an end to it. But first, you need a protection against any financial backing; good idea would be to plunder treasure room of dwarves in the Southeast. But stay on watch - you're not as mighty as your rivals, so only minor creatures will join you. You won't conquer this land with force, but only with wiliness.")
ENDIF

IF(PLAYER0,GAME_TURN >= 7500)
QUICK_INFORMATION(3,"In an attempt to penetrate the nature of this place, you've sensed the presence of many invisible beings. Those are former enemies of Bolek The Skew-legged, locked in the airy prison by the prince. The source of magic spells that bonds those ghosts is Dungeon Heart in Bolek's fortress. Destroy it, and released hordes of the damned will flood the entire underground, knocking the tar out of your rivals. But remember, that at the end you will have to stop their march...")
ENDIF

IF(PLAYER0,GAME_TURN >= 25000)
QUICK_INFORMATION(6,"Gaining the Bolek's stronghold without building a bridge would be a matter of miracle. Unfortunately, held Prince has entrusted the construction plans of Bridges to a pair of trusted Guardians, staying in the two most fore on north chambers underground. To get these chambers, you'll have to sneak by enemy bearing the yellow marks. You have to overcome the Guardian and pick up their plans, of course, you already know that spell of Invisibility will be invaluable in this situation.")
ENDIF

IF(PLAYER_GOOD,DUNGEON_DESTROYED == 1)
    QUICK_INFORMATION(4,"Be careful Keeper. You've unleashed hell. Try to avoid being fried in a devil's boiler.")
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY3,1,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY2,2,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,3,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY5,4,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY5,5,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY5,6,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY5,8,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY5,9,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY5,10,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY5,12,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY5,13,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY5,14,1)
ENDIF

IF(PLAYER_GOOD,GHOST == 0)
QUICK_OBJECTIVE(7,"By merging two parts of manuscript describing bridge construction, you've gained ability necessary to break into Bolko The Skew-legged stronghold. Now you can finally get rid of this buffoon and issue the death sentence on your molest rivals. So to work!",PLAYER0)
    ROOM_AVAILABLE(PLAYER0,BRIDGE,1,1)
ENDIF

IF(PLAYER0,ALL_DUNGEONS_DESTROYED == 1)
    IF(PLAYER_GOOD,HORNY == 0)
        IF(PLAYER_GOOD,AVATAR == 0)
            IF(PLAYER_GOOD,KNIGHT == 0)
                IF(PLAYER_GOOD,MONK == 0)
                    IF(PLAYER_GOOD,WIZARD == 0)
QUICK_OBJECTIVE(5,"Lactobacillus Kingdom is now in your (and only your) hands! You've succeeded with unusual act - ended eternal war, quenched fires of four-sided conflict and at the top of the mountain of dead bodies, you've jabbed the flag of demonic harmony. Now, you may 	anguish and degrade this stinking country. Did I already mentioned, Lord, that you are in deed a bird of peace? Now people of this reigin won't even see a piece of bird!",PLAYER0)
                        WIN_GAME
                    ENDIF
                ENDIF
            ENDIF
        ENDIF
    ENDIF
ENDIF

IF(PLAYER0,DUNGEON_DESTROYED == 1)
    LOSE_GAME
ENDIF
