REM PLAY Level 99

SET_GENERATE_SPEED(500)
MAX_CREATURES(PLAYER0,13)
Max_Creatures(PLayer1,25)
START_MONEY(PLAYER0,35000)
Start_Money(player1,15000)

ADD_CREATURE_TO_POOL(SORCEROR,15)
ADD_CREATURE_TO_POOL(BILE_DEMON,15)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,10)
ADD_CREATURE_TO_POOL(Troll,10)
ADD_CREATURE_TO_POOL(Bug,15)
ADD_CREATURE_TO_POOL(Spider,15)
ADD_CREATURE_TO_POOL(Fly,15)
ADD_CREATURE_TO_POOL(ORC,10)
ADD_CREATURE_TO_POOL(Dragon,15)

CREATURE_AVAILABLE(ALL_PLAYERS,Troll,1,1) 
CREATURE_AVAILABLE(ALL_PLAYERS,SORCEROR,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,BILE_DEMON,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,DARK_MISTRESS,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,ORC,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,Dragon,1,1) 
CREATURE_AVAILABLE(ALL_PLAYERS,Spider,1,1) 
CREATURE_AVAILABLE(ALL_PLAYERS,Fly,1,1) 
CREATURE_AVAILABLE(ALL_PLAYERS,Bug,1,1) 
CREATURE_AVAILABLE(ALL_PLAYERS,Troll,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,TORTURE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TEMPLE,1,0)
ROOM_AVAILABLE(PLAYER0,Bridge,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,Workshop,1,0) 
ROOM_AVAILABLE(PLAYER1,Graveyard,1,0)
ROOM_AVAILABLE(PLAYER1,Prison,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(ALL_PLAYERS,POWER_OBEY,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,0,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,0,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CONCEAL,0,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CAVE_IN,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CHICKEN,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_lightning,1,0)
MAGIC_AVAILABLE(PLAYER0,Power_Destroy_walls,1,0)


Door_available(all_players,Wood,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,Boulder,1,0)
Trap_Available(All_players,Lava,1,0)



CREATE_PARTY(PARTY1)
   ADD_to_PARTY(PARTY1,ARCHER,10,100,ATTACK_ENEMIES,0)
   ADD_to_PARTY(PARTY1,Knight,10,100,ATTACK_ENEMIES,0)
   ADD_to_PARTY(PARTY1,Giant,10,100,ATTACK_ENEMIES,0)
   ADD_to_PARTY(PARTY1,WIZARD,10,100,ATTACK_ENEMIES,0)
   ADD_to_PARTY(PARTY1,WIZARD,10,100,ATTACK_ENEMIES,0)

IF_ACTION_POINT(1, PLAYER0)
   ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,1,1)
   SET_FLAG(PLAYER0,FLAG0,1)
ENDIF


COMPUTER_PLAYER(PLAYER1, 4)

IF(PLAYER0,FLAG0 == 1)
        IF (PLAYER_GOOD, KNIGHT == 0)
                IF(PLAYER1, DUNGEON_DESTROYED == 0)
			DISPLAY_OBJECTIVE(895, PLAYER0)
		ENDIF
        ENDIF
ENDIF


IF(PLAYER0,FLAG0 == 1)
        IF (PLAYER_GOOD, KNIGHT == 0)
                IF(PLAYER1, DUNGEON_DESTROYED == 1)
                        IF (PLAYER_GOOD, DUNGEON_DESTROYED == 1)
                                WIN_GAME
                        ENDIF
                ENDIF
        ENDIF
ENDIF

DISPLAY_OBJECTIVE(896, PLAYER0)

IF_ACTION_POint(2,player0)
		DISPLAY_OBJECTIVE(897, PLAYER0)
ENDIF

