LEVEL_VERSION(1)
SET_GENERATE_SPEED(600)
START_MONEY(ALL_PLAYERS,0)
MAX_CREATURES(ALL_PLAYERS,25)

ADD_CREATURE_TO_POOL(BUG,20)
ADD_CREATURE_TO_POOL(DEMONSPAWN,20)
ADD_CREATURE_TO_POOL(TROLL,20)
ADD_CREATURE_TO_POOL(SPIDER,20)
ADD_CREATURE_TO_POOL(HELL_HOUND,20)
ADD_CREATURE_TO_POOL(TENTACLE,20)
ADD_CREATURE_TO_POOL(SORCEROR,20)
ADD_CREATURE_TO_POOL(DRUID,20)
ADD_CREATURE_TO_POOL(ORC,20)
ADD_CREATURE_TO_POOL(BILE_DEMON,20)
ADD_CREATURE_TO_POOL(DRAGON,20)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,20)

CREATURE_AVAILABLE(ALL_PLAYERS,BUG,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,DEMONSPAWN,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,TROLL,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,SPIDER,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,HELL_HOUND,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,TENTACLE,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,SORCEROR,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,ORC,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,BILE_DEMON,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,DRAGON,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,DARK_MISTRESS,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,DRUID,1,0)

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,0)
ROOM_AVAILABLE(ALL_PLAYERS,RESEARCH,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,GUARD_POST,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,WORKSHOP,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,PRISON,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TORTURE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,BARRACKS,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TEMPLE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,GRAVEYARD,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,SCAVENGER,1,0)

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_POSSESS,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_OBEY,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HOLD_AUDIENCE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CAVE_IN,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CHICKEN,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_DISEASE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_ARMAGEDDON,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_DESTROY_WALLS,1,0)

TRAP_AVAILABLE(ALL_PLAYERS,ALARM,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,POISON_GAS,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,BOULDER,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,WORD_OF_POWER,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)

REM ***************************************************************************
REM Drain health script block
REM ***************************************************************************

QUICK_OBJECTIVE(1,"Money is life, poverty is death. The richest player drains the heart of the other one.",ALL_PLAYERS)

SET_TIMER(PLAYER3,TIMER0)
IF(PLAYER1,MONEY > PLAYER0,MONEY)
    IF(PLAYER3,TIMER0 == 26)
        NEXT_COMMAND_REUSABLE
        CREATE_EFFECT(-45,2)
    ENDIF
    IF(PLAYER3,TIMER0 == 27)
        NEXT_COMMAND_REUSABLE
        CREATE_EFFECT(-45,4)
    ENDIF
    IF(PLAYER3,TIMER0 == 28)
        NEXT_COMMAND_REUSABLE
        CREATE_EFFECT(-45,6)
    ENDIF
    IF(PLAYER3,TIMER0 == 29)
        NEXT_COMMAND_REUSABLE
        CREATE_EFFECT(-45,8)
    ENDIF
    IF(PLAYER3,TIMER0 > 30)
        NEXT_COMMAND_REUSABLE
        ADD_HEART_HEALTH(PLAYER0,-60,0)
        NEXT_COMMAND_REUSABLE
        ADD_HEART_HEALTH(PLAYER1,50,0)
        NEXT_COMMAND_REUSABLE
        CREATE_EFFECTS_LINE(PLAYER0,PLAYER1,0,2,20,-16)
        NEXT_COMMAND_REUSABLE
        SET_TIMER(PLAYER3,TIMER0)
    ENDIF
ENDIF
IF(PLAYER0,MONEY > PLAYER1,MONEY)
    IF(PLAYER3,TIMER0 == 26)
        NEXT_COMMAND_REUSABLE
        CREATE_EFFECT(-45,1)
    ENDIF
    IF(PLAYER3,TIMER0 == 27)
        NEXT_COMMAND_REUSABLE
        CREATE_EFFECT(-45,3)
    ENDIF
    IF(PLAYER3,TIMER0 == 28)
        NEXT_COMMAND_REUSABLE
        CREATE_EFFECT(-45,5)
    ENDIF
    IF(PLAYER3,TIMER0 == 29)
        NEXT_COMMAND_REUSABLE
        CREATE_EFFECT(-45,7)
    ENDIF
    IF(PLAYER3,TIMER0 > 30)
        NEXT_COMMAND_REUSABLE
        ADD_HEART_HEALTH(PLAYER1,-60,0)
        NEXT_COMMAND_REUSABLE
        ADD_HEART_HEALTH(PLAYER0,50,0)
        NEXT_COMMAND_REUSABLE
        CREATE_EFFECTS_LINE(PLAYER1,PLAYER0,0,2,20,-16)
        NEXT_COMMAND_REUSABLE
        SET_TIMER(PLAYER3,TIMER0)
    ENDIF
ENDIF
REM ***************************************************************************

IF(PLAYER0,GAME_TURN > 40)
    REVEAL_MAP_LOCATION(PLAYER1,9,11)
    REVEAL_MAP_LOCATION(PLAYER1,10,11)
    REVEAL_MAP_LOCATION(PLAYER1,11,11)
    REVEAL_MAP_LOCATION(PLAYER1,12,11)
    REVEAL_MAP_LOCATION(PLAYER0,9,11)
    REVEAL_MAP_LOCATION(PLAYER0,10,11)
    REVEAL_MAP_LOCATION(PLAYER0,11,11)
    REVEAL_MAP_LOCATION(PLAYER0,12,11)
ENDIF

NEXT_COMMAND_REUSABLE
CHANGE_CREATURE_OWNER(PLAYER1,ANY_CREATURE,AT_ACTION_POINT[9],PLAYER_GOOD)
NEXT_COMMAND_REUSABLE
CHANGE_CREATURE_OWNER(PLAYER1,IMP,AT_ACTION_POINT[9],PLAYER_GOOD)
NEXT_COMMAND_REUSABLE
CHANGE_CREATURE_OWNER(PLAYER0,ANY_CREATURE,AT_ACTION_POINT[10],PLAYER_GOOD)
NEXT_COMMAND_REUSABLE
CHANGE_CREATURE_OWNER(PLAYER0,IMP,AT_ACTION_POINT[10],PLAYER_GOOD)

REM ***************************************************************************

IF(PLAYER0,ALL_DUNGEONS_DESTROYED == 1)
	WIN_GAME
ENDIF

IF(PLAYER1,ALL_DUNGEONS_DESTROYED == 1)
	WIN_GAME
ENDIF

REM ***************************************************************************