REM Play Level Big orc city

REM ******* Basic settings *******

SET_GENERATE_SPEED(500)

MAX_CREATURES(PLAYER0,40)
MAX_CREATURES(PLAYER1,40)
MAX_CREATURES(PLAYER2,40)
MAX_CREATURES(PLAYER3,40)

START_MONEY(PLAYER0,10000)
START_MONEY(PLAYER1,9000000)

ALLY_PLAYERS(PLAYER1,PLAYER_GOOD)
ALLY_PLAYERS(PLAYER0,PLAYER1)

REM ********** Available spells **********

                MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
        	MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
		MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,1)

REM ********** Game settings **********

IF(PLAYER0,ORC==0)
	LOSE_GAME
ENDIF

REM ********** Parties **********
    
CREATE_PARTY(ONE)
	ADD_TO_PARTY(ONE,ARCHER,3,100,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,ARCHER,3,100,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,ARCHER,3,100,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,DWARFA,6,100,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,GIANT,4,100,ATTACK_ENEMIES,0)

REM ********** Triggers & End game **********

IF_ACTION_POINT(3,PLAYER0)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,4,DUNGEON_HEART,PLAYER0,1,100)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,5,DUNGEON_HEART,PLAYER0,1,100)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,6,DUNGEON_HEART,PLAYER0,1,100)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,7,DUNGEON_HEART,PLAYER0,1,100)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,4,ACTION_POINT,6,2,100)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,5,ACTION_POINT,7,2,100)
ENDIF

SET_FLAG(PLAYER_GOOD,FLAG0,0)

IF(PLAYER_GOOD,BARBARIAN==0)
	SET_FLAG(PLAYER_GOOD,FLAG0,1)
ENDIF

IF_ACTION_POINT(1,PLAYER0)
	IF(PLAYER_GOOD,FLAG0==0)
		NEXT_COMMAND_REUSABLE
		RESET_ACTION_POINT(1)
	ENDIF
ENDIF

IF_ACTION_POINT(1,PLAYER0)
	IF(PLAYER_GOOD,FLAG0==1)
		ADD_CREATURE_TO_LEVEL(PLAYER3,ORC,2,6,1,0)
		IF(PLAYER3,ORC==0)
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BARBARIAN,2,3,9,0)
			SET_TIMER(PLAYER_GOOD,TIMER0)
			IF(PLAYER_GOOD,TIMER0>=1000)
				ADD_CREATURE_TO_LEVEL(PLAYER2,DRAGON,-1,26,2,0)
				ADD_CREATURE_TO_LEVEL(PLAYER2,SPIDER,-1,24,8,0)
				ADD_CREATURE_TO_LEVEL(PLAYER2,TENTACLE,-1,20,9,0)
				ADD_CREATURE_TO_LEVEL(PLAYER2,BUG,-1,32,4,0)
				ADD_CREATURE_TO_LEVEL(PLAYER2,FLY,8,14,7,0)
				IF(PLAYER_GOOD,BARBARIAN==0)
					WIN_GAME
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF