REM ********************************************
REM
REM Script for Level 220
REM
REM ********************************************

SET_GENERATE_SPEED(4000)
COMPUTER_PLAYER(PLAYER1,1)
START_MONEY(PLAYER0,2)
ADD_CREATURE_TO_POOL(ORC,6)
ADD_CREATURE_TO_POOL(DRAGON,6)
ADD_CREATURE_TO_POOL(BILE_DEMON,6)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,6)
CREATURE_AVAILABLE(PLAYER1,ORC,1,1)
CREATURE_AVAILABLE(PLAYER1,DRAGON,1,1)
CREATURE_AVAILABLE(PLAYER1,BILE_DEMON,1,1)
CREATURE_AVAILABLE(PLAYER1,DARK_MISTRESS,1,1)

ROOM_AVAILABLE(ALL_PLAYERS,TREASURE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,LAIR,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,GARDEN,1,0)
ROOM_AVAILABLE(PLAYER1,TRAINING,1,0)
ROOM_AVAILABLE(PLAYER1,RESEARCH,1,0)
ROOM_AVAILABLE(PLAYER1,GUARD_POST,1,0)
ROOM_AVAILABLE(PLAYER1,WORKSHOP,1,0)
ROOM_AVAILABLE(PLAYER1,BARRACKS,1,0)
ROOM_AVAILABLE(PLAYER1,PRISON,1,0)
ROOM_AVAILABLE(PLAYER1,TORTURE,1,0)
ROOM_AVAILABLE(PLAYER1,TEMPLE,1,0)

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
MAGIC_AVAILABLE(PLAYER1,POWER_IMP,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_CHICKEN,1,0)

DOOR_AVAILABLE(PLAYER0,MAGIC,1,2)
DOOR_AVAILABLE(PLAYER1,MAGIC,1,0)

SET_CREATURE_HEALTH(VAMPIRE,6120)
SET_CREATURE_STRENGTH(VAMPIRE,255)
SET_CREATURE_ARMOUR(VAMPIRE,255)

DISPLAY_OBJECTIVE(1,PLAYER0)
DISPLAY_INFORMATION(2,PLAYER0)

IF_ACTION_POINT(1,PLAYER0)
    DISPLAY_INFORMATION(8,PLAYER0)
ENDIF

IF(PLAYER0,GIANT > 0)
    DISPLAY_OBJECTIVE(3,PLAYER0)
ENDIF

IF(PLAYER0,FAIRY > 0)
    DISPLAY_OBJECTIVE(27,PLAYER0)
ENDIF

IF(PLAYER_GOOD,HELL_HOUND < 1)
    DISPLAY_OBJECTIVE(28,PLAYER0)
ENDIF

IF(PLAYER_GOOD,SKELETON < 1)
    DISPLAY_OBJECTIVE(4,PLAYER0)
ENDIF

IF(PLAYER0,TOTAL_CREATURES > 2)
    DISPLAY_INFORMATION(31,PLAYER0)
ENDIF

IF(PLAYER_GOOD,BUG < 1)
    DISPLAY_OBJECTIVE(30,PLAYER0)
ENDIF

IF(PLAYER0,FAIRY > 1)
    DISPLAY_OBJECTIVE(18,PLAYER0)
ENDIF

IF(PLAYER0,IMP > 0)
    DISPLAY_OBJECTIVE(5,PLAYER0)
ENDIF

IF(PLAYER0,RESEARCH > 0)
    DISPLAY_INFORMATION(6,PLAYER0)
ENDIF

IF(PLAYER0,GIANT > 1)
    DISPLAY_OBJECTIVE(26,PLAYER0)
ENDIF

IF(PLAYER0,WORKSHOP > 0)
    DISPLAY_INFORMATION(7,PLAYER0)
ENDIF

IF(PLAYER0,GIANT > 2)
    DISPLAY_OBJECTIVE(17,PLAYER0)
ENDIF

IF(PLAYER0,FAIRY > 2)
    DISPLAY_OBJECTIVE(10,PLAYER0)
ENDIF

IF(PLAYER0,KNIGHT > 1)
    DISPLAY_OBJECTIVE(11,PLAYER0)
ENDIF

IF(PLAYER0,TEMPLE > 0)
    DISPLAY_INFORMATION(12,PLAYER0)
ENDIF

IF(PLAYER0,TORTURE > 0)
    DISPLAY_INFORMATION(15,PLAYER0)
ENDIF

IF(PLAYER0,KNIGHT > 2)
    DISPLAY_OBJECTIVE(9,PLAYER0)
ENDIF

IF(PLAYER0,BARRACKS > 0)
    ROOM_AVAILABLE(PLAYER0,BARRACKS,1,1)
    DISPLAY_OBJECTIVE(13,PLAYER0)
    DISPLAY_INFORMATION(35,PLAYER0)
ENDIF

IF(PLAYER0,GUARD_POST > 0)
    ROOM_AVAILABLE(PLAYER0,GUARD_POST,1,1)
    DISPLAY_OBJECTIVE(14,PLAYER0)
    DISPLAY_INFORMATION(33,PLAYER0)
ENDIF

IF(PLAYER_GOOD,TOTAL_CREATURES < 1)
    DISPLAY_OBJECTIVE(32,PLAYER0)
ENDIF

IF(PLAYER_GOOD,DUNGEON_DESTROYED == 1)
    ROOM_AVAILABLE(PLAYER0,BRIDGE,1,1)
    DISPLAY_INFORMATION(16,PLAYER0)
ENDIF

IF(PLAYER0,AVATAR > 0)
    ROOM_AVAILABLE(PLAYER0,PRISON,1,1)
    DISPLAY_OBJECTIVE(25,PLAYER0)
    DISPLAY_INFORMATION(29,PLAYER0)
ENDIF

IF(PLAYER0,ORC > 0)
    DISPLAY_OBJECTIVE(19,PLAYER0)
ENDIF

IF(PLAYER0,DRAGON > 0)
    DISPLAY_OBJECTIVE(20,PLAYER0)
ENDIF

IF(PLAYER0,BILE_DEMON > 0)
    DISPLAY_OBJECTIVE(21,PLAYER0)
ENDIF

IF(PLAYER0,DARK_MISTRESS > 0)
    DISPLAY_OBJECTIVE(22,PLAYER0)
ENDIF

IF(PLAYER0,TOTAL_CREATURES > 16)
    DISPLAY_INFORMATION(34,PLAYER0)
ENDIF

IF(PLAYER1,DUNGEON_DESTROYED == 1)
    DISPLAY_INFORMATION(23,PLAYER0)
    WIN_GAME
ENDIF

IF(PLAYER0,DUNGEON_DESTROYED == 1)
    DISPLAY_INFORMATION(24,PLAYER0)
    LOSE_GAME
ENDIF

IF(PLAYER0,TOTAL_CREATURES < 1)
    DISPLAY_INFORMATION(24,PLAYER0)
    LOSE_GAME
ENDIF
