REM Clares First Level

REM THREE COMPUTER PLAYERS
COMPUTER_PLAYER(PLAYER1,4)
COMPUTER_PLAYER(PLAYER2,3)
COMPUTER_PLAYER(PLAYER3,5)

REM SPEED OF ENTRANCES
SET_GENERATE_SPEED(500)

REM MAX NUMBER OF CREATURES
MAX_CREATURES(PLAYER0,30)
MAX_CREATURES(PLAYER1,30)
MAX_CREATURES(PLAYER2,30)
MAX_CREATURES(PLAYER3,30)


REM STARTING GOLD
START_MONEY(PLAYER0,15000)
START_MONEY(PLAYER1,15000)
START_MONEY(PLAYER2,15000)
START_MONEY(PLAYER3,15000)

REM SET UPT THE CREATURE POOL
ADD_CREATURE_TO_POOL(DARK_MISTRESS,50)
ADD_CREATURE_TO_POOL(DRAGON,50)
ADD_CREATURE_TO_POOL(SAMURAI,50)
ADD_CREATURE_TO_POOL(VAMPIRE,50)
ADD_CREATURE_TO_POOL(HORNY,50)
ADD_CREATURE_TO_POOL(SPIDER,50)


REM ENABLE PLAYERS TO RECIVE CREATURES
CREATURE_AVAILABLE(ALL_PLAYERS,DARK_MISTRESS,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,DRAGON,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,SAMURAI,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,VAMPIRE,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,HORNY,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,SPIDER,1,1)


REM SET ROOMS AVAILABLE
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,TORTURE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TEMPLE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,SCAVENGER,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,BRIDGE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,ENTRANCE,0,1)
ROOM_AVAILABLE(ALL_PLAYERS,WORKSHOP,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,GRAVEYARD,1,0)

REM SET DOORS AVAILABLE
DOOR_AVAILABLE(ALL_PLAYERS,STEEL,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,0)

REM SET TRAPS AVAILABLE
TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)

REM MAGIC AVAILABLE
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_OBEY,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HOLD_AUDIENCE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CONCEAL,1,0)




REM SET UP FLAG O AND SET IT TO 0

SET_FLAG(PLAYER0,FLAG0,0)

REM SET UP TIMER0

SET_TIMER(PLAYER0,TIMER0)

REM CREATE PARTY

CREATE_PARTY(PARTY1)
CREATE_PARTY(PARTY2)

REM ADD CREATURES TO PARTIES

    ADD_TO_PARTY(PARTY1,ARCHER,5,400,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(PARTY1,ARCHER,5,400,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(PARTY1,BARBARIAN,6,200,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(PARTY1,MONK,5,600,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(PARTY1,SAMURAI,6,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(PARTY1,SAMURAI,6,500,ATTACK_ENEMIES,0)

    ADD_TO_PARTY(PARTY2,SKELETON,7,400,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(PARTY2,HORNY,7,400,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(PARTY2,HORNY,7,200,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(PARTY2,SPIDER,8,600,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(PARTY2,FLY,8,600,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(PARTY2,HORNY,8,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(PARTY2,SKELETON,8,500,ATTACK_ENEMIES,0)

REM ACTION POINT DETECTION
IF_ACTION_POINT(1,PLAYER0)
    
    SET_FLAG(PLAYER0,FLAG0,1)
    
ENDIF

IF(PLAYER0,TIMER0 >= 20000)
    
    IF(PLAYER0,FLAG0 == 1)
        ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY1,-1,DUNGEON_HEART,0,3,400)
    ENDIF
    
ENDIF


REM FOR ACTION POINT 2

IF_ACTION_POINT(2,PLAYER0)
    
    REM The player the party is assigned to Party Name Action Point or Hero Door	Number of copies of party
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PARTY2,2,1)
    
ENDIF


REM WIN AND LOSE
IF(PLAYER0,ALL_DUNGEONS_DESTROYED == 1)
    
    WIN_GAME
    
ENDIF
