REM ***********************************************************************
REM
REM Script for Drosophilium Level - by Rangex        24.01.2004
REM Translated by Mefistotelis
REM ***********************************************************************


SET_GENERATE_SPEED(500)
MAX_CREATURES(PLAYER0,23)
START_MONEY(PLAYER0,20000)

ADD_CREATURE_TO_POOL(SORCEROR,15)
ADD_CREATURE_TO_POOL(BILE_DEMON,20)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,15)
ADD_CREATURE_TO_POOL(TROLL,15)
ADD_CREATURE_TO_POOL(ORC,15)
ADD_CREATURE_TO_POOL(DRAGON,20)
ADD_CREATURE_TO_POOL(DEMONSPAWN,15)

CREATURE_AVAILABLE(ALL_PLAYERS,TROLL,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,DARK_MISTRESS,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,SORCEROR,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,BILE_DEMON,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,HELL_HOUND,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,DRAGON,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,VAMPIRE,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,ORC,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,DRAGON,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,WORKSHOP,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,BARRACKS,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,GUARD_POST,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TORTURE,1,0)

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)

DOOR_AVAILABLE(ALL_PLAYERS,WOOD,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,BRACED,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)



CREATE_PARTY(PARTY1)
    ADD_TO_PARTY(PARTY1,FLY,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY1,FLY,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY1,FLY,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY1,FLY,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY1,FLY,10,0,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(PARTY2)
    ADD_TO_PARTY(PARTY2,BUG,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY2,BUG,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY2,BUG,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY2,BUG,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY2,BUG,10,0,ATTACK_DUNGEON_HEART,0)

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

CREATE_PARTY(PARTY4)
    ADD_TO_PARTY(PARTY4,TENTACLE,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY4,TENTACLE,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY4,TENTACLE,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY4,TENTACLE,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY4,TENTACLE,10,0,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(PARTY6)
    ADD_TO_PARTY(PARTY6,HORNY,5,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY6,HORNY,5,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY6,HORNY,5,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY6,HORNY,5,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY6,HORNY,5,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY6,HORNY,5,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY6,HORNY,5,0,ATTACK_DUNGEON_HEART,0)

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


QUICK_OBJECTIVE(1,"You've finally discovered the location of the legendary Shrine of Everseeing Eye. Taking control over it allows you to see everything that happens in the underground world; why total invigilation is total power. Unfortunately, it appears that you're unable to force through massive walls of the Shrine until you accumulate enough magical power. Ransack the surrounding caves carefully - solution may be hidden inside.",PLAYER0)


IF(PLAYER0,GAME_TURN >= 750)
QUICK_INFORMATION(2,"The dark magic emanating from the Shrine in north has deprived you of almost all the spells. But do not lose hope - in this land, many mystical coils are hidden. Finding them will allow you to recover lost forces.")
ENDIF

IF(PLAYER0,GAME_TURN >= 5000)
QUICK_INFORMATION(3,"The demonic magic of Everseeing Eye has pervaded many insects living on this area. As a consequence, they become gigantic proportions. Try to find and destroy as many of these magic-swollen creatures - then you will grab the energy which fills them.")
ENDIF

IF(PLAYER0,GAME_TURN >= 20000)
QUICK_INFORMATION(4,"It appears that under the influence of devilish magic of the Shrine, cave insects have a fit of raving madness and attack everything they encounter on their way. Be on guard, keeper - soon the wave of vermin will flood!")
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,1,2)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,2,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,3,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,6,2)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,7,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,8,1)
ENDIF

IF(PLAYER0,GAME_TURN >= 20500)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,1,2)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,2,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,3,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY3,7,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY2,8,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,9,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,10,2)
ENDIF

IF(PLAYER0,GAME_TURN >= 20750)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY2,1,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY4,7,2)
ENDIF


IF(PLAYER0,GAME_TURN >= 22500)
    ROOM_AVAILABLE(ALL_PLAYERS,BRIDGE,1,1)
QUICK_INFORMATION(5,"Your whole dungeon is buried with rotten bodies of insects; You've gathered enough magic power to build bridges, and almost as much as you need to ruin walls of the Shrine. On the northeast there's an ancient Dungeon Heart, being powerful catalyst of energy. Destroy it, and the magic unleashed will certainly attract more insects - enough for you to gather full force.")
ENDIF

IF(PLAYER_GOOD,DUNGEON_DESTROYED == 1)
    SET_TIMER(PLAYER_GOOD,TIMER0)
    QUICK_INFORMATION(6,"The plan has worked, Keeper. In the distance, you can now hear tramp made by hundreds of pattes. Prepare properly!")
ENDIF

IF(PLAYER_GOOD,TIMER0 >= 500)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,10,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,2,2)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,7,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY3,8,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY3,3,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY2,4,1)
ENDIF

IF(PLAYER_GOOD,TIMER0 >= 1500)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,10,2)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,2,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,7,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY4,8,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY3,3,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY2,4,2)
ENDIF

IF(PLAYER_GOOD,TIMER0 >= 2500)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,10,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,2,2)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY4,7,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY4,8,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY3,3,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY3,4,2)
ENDIF

IF(PLAYER_GOOD,TIMER0 >= 3500)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,10,2)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,2,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY4,7,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY4,8,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY4,3,2)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY3,4,1)
ENDIF

IF(PLAYER_GOOD,TIMER0 >= 5000)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,10,2)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY4,1,2)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY4,7,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY4,8,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY4,3,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY4,4,1)
ENDIF

IF(PLAYER_GOOD,TIMER0 >= 7000)
    MAGIC_AVAILABLE(PLAYER0,POWER_DESTROY_WALLS,1,1)
QUICK_INFORMATION(7,"Congratulations, Keeper! Now, with one move of your little finger, you can turn even the most tremendous wall into dust. Use this newly-acquired ability to get to the Shrine; but remain vigilant - great danger lurks inside...")
    
ENDIF

IF_ACTION_POINT(11,PLAYER0)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY6,12,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY6,13,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY7,14,1)
    QUICK_INFORMATION(8,"The Everseeing Eye will not yield so easily to your dishonourable will, Keeper! First, you have to overcome the bloodthirsty demons it summoned in defence.")
ENDIF

IF(PLAYER_GOOD,HORNY == 0)
    IF(PLAYER_GOOD,SCAVENGER == 0)
QUICK_OBJECTIVE(9,"Flawless victory! Now you see the whole Underground as clear as hands, and nothing is able to escape your mind, even the farts let surreptitiously by uneducated bumpkins. Big Brother looks - let the plebs tremble!",PLAYER0)
        WIN_GAME
    ENDIF
ENDIF

IF(PLAYER0,DUNGEON_DESTROYED == 1)
    LOSE_GAME
ENDIF
