REM *********************************************************************
REM
REM Script for Homofelix Level - by Rangex        21.02.2004
REM
REM *********************************************************************


SET_GENERATE_SPEED(400)
MAX_CREATURES(PLAYER0,15)
START_MONEY(PLAYER0,50000)
SET_CREATURE_MAX_LEVEL(PLAYER0,SORCEROR,7)
SET_CREATURE_MAX_LEVEL(PLAYER0,BILE_DEMON,7)
SET_CREATURE_MAX_LEVEL(PLAYER0,DARK_MISTRESS,7)
SET_CREATURE_MAX_LEVEL(PLAYER0,ORC,7)
SET_CREATURE_MAX_LEVEL(PLAYER0,HORNY,7)
SET_CREATURE_MAX_LEVEL(PLAYER0,DRAGON,7)

ADD_CREATURE_TO_POOL(SPIDER,15)
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,BRIDGE,1,0)
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)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CONCEAL,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(ALL_PLAYERS,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)

CREATE_PARTY(PARTY1)
    ADD_TO_PARTY(PARTY1,THIEF,2,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY1,THIEF,2,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY1,THIEF,2,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY1,THIEF,2,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY1,THIEF,2,0,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(PARTY2)
    ADD_TO_PARTY(PARTY2,DWARFA,2,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY2,DWARFA,2,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY2,DWARFA,2,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY2,DWARFA,2,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY2,DWARFA,2,0,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(PARTY3)
    ADD_TO_PARTY(PARTY3,ARCHER,3,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY3,ARCHER,3,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY3,ARCHER,3,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY3,ARCHER,3,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY3,ARCHER,3,0,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(PARTY4)
    ADD_TO_PARTY(PARTY4,KNIGHT,1,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY4,KNIGHT,1,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY4,KNIGHT,1,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY4,KNIGHT,1,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY4,KNIGHT,1,0,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(PARTY6)
    ADD_TO_PARTY(PARTY6,KNIGHT,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY6,KNIGHT,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY6,KNIGHT,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY6,KNIGHT,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY6,KNIGHT,10,0,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(PARTY7)
    ADD_TO_PARTY(PARTY7,VAMPIRE,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY7,VAMPIRE,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY7,VAMPIRE,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY7,VAMPIRE,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(PARTY7,AVATAR,10,0,ATTACK_DUNGEON_HEART,0)


QUICK_OBJECTIVE(1,"This region is an Arcadia of underground - full of wealth and vast spaces to manage. Unfortunately, bilious tribe of heroes under the leadership of Timothy Winesoaker have already weaven a nest in the north. What's worse, those penuries have been able to sense your presence, so their assault troops will soon arrive here. Therefore act quickly, Keeper, faster than lightning! The prize for the hurry will be authority on this fabulous land.",PLAYER0)


IF(PLAYER0,GAME_TURN >= 11000)
QUICK_INFORMATION(2,"Your main problem is that Timothy Winesoaker has prudently accursed entire area, which prevents your combat units to achieve their full potential. But do not lose hope - somewhere in this land six great warriors are entrapped, and they'll willingly join you, if only you'll be able to find them.")
ENDIF


IF(PLAYER0,GAME_TURN >= 1500)
    ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,1,DUNGEON_HEART,0,1,500)
ENDIF

IF(PLAYER0,GAME_TURN >= 3500)
    ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY2,2,DUNGEON_HEART,0,2,1000)
ENDIF

IF(PLAYER0,GAME_TURN >= 5500)
    ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY3,3,DUNGEON_HEART,0,3,1500)
ENDIF

IF(PLAYER0,GAME_TURN >= 7500)
    ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY4,4,DUNGEON_HEART,0,4,2000)
ENDIF

IF(PLAYER0,GAME_TURN >= 8000)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,THIEF,1,5,1,0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DWARFA,2,5,2,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 9000)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,ARCHER,3,5,3,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 9500)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,KNIGHT,4,5,1,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 15000)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,THIEF,1,5,2,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 15500)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DWARFA,2,5,3,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 16000)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,ARCHER,3,5,4,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 16750)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,KNIGHT,4,5,2,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 17500)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BARBARIAN,1,5,3,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 18750)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,GIANT,2,5,4,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 20000)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FAIRY,3,5,5,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 21250)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,KNIGHT,4,5,3,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 22500)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BARBARIAN,1,5,4,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 23750)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,GIANT,2,5,5,0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FAIRY,3,5,6,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 26250)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,KNIGHT,4,5,4,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 27500)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WITCH,1,5,5,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 28750)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WIZARD,2,5,6,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 30000)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,MONK,3,5,7,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 31250)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,KNIGHT,4,5,5,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 32500)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WITCH,1,5,6,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 33750)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WIZARD,2,5,7,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 35000)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,MONK,3,5,8,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 36250)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,KNIGHT,4,5,6,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 37500)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,THIEF,1,5,7,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 38750)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DWARFA,2,5,8,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 40000)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,ARCHER,3,5,9,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 41250)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,KNIGHT,4,5,7,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 42500)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BARBARIAN,1,5,7,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 43750)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,GIANT,2,5,8,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 45000)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FAIRY,3,5,9,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 46250)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,KNIGHT,4,5,8,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 47500)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WITCH,1,5,7,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 48750)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WIZARD,2,5,8,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 50000)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,MONK,3,5,9,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 51250)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,KNIGHT,4,5,9,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 52500)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SAMURAI,1,5,10,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 53750)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SAMURAI,2,5,10,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 55000)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SKELETON,2,7,10,0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,GHOST,3,7,10,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 56250)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,TENTACLE,1,5,10,0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,KNIGHT,4,5,10,0)
ENDIF

IF(PLAYER0,GAME_TURN >= 60000)
    QUICK_INFORMATION(3,"You've managed to eliminate all branches assault heroes. Now you can go to the north and smash their weathered fortress into dust.")
ENDIF


IF_ACTION_POINT(5,PLAYER0)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY6,6,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY6,7,1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY7,8,1)
    QUICK_INFORMATION(4,"Rump of the heroes have taken a final attempt to defend theirs Dungeon Heart. Destroy these poor bastards and receive the crown of Arcadia underground ruler!")
ENDIF


IF(PLAYER0,ALL_DUNGEONS_DESTROYED == 1)
    IF(PLAYER_GOOD,AVATAR == 0)
QUICK_OBJECTIVE(5,"Again you exultate, Keeper! Now you can entirely exploit this prosperous land and suck all the juices of life out of it. You are no doubt the most mischievous of cancers, consuming the whole Underground!",PLAYER0)
        WIN_GAME
    ENDIF
ENDIF

IF(PLAYER0,DUNGEON_DESTROYED == 1)
    LOSE_GAME
ENDIF
