REM ********************************************
REM
REM             Script for Level 225
REM
REM ********************************************
SET_GENERATE_SPEED(700)

COMPUTER_PLAYER(PLAYER1,	10)
COMPUTER_PLAYER(PLAYER2,	10)
COMPUTER_PLAYER(PLAYER3,	10)

START_MONEY(	PLAYER0,	50000)START_MONEY(	PLAYER1,	20000)
START_MONEY(	PLAYER2,	20000)START_MONEY(	PLAYER3,	20000)

SET_COMPUTER_PROCESS(PLAYER1,"DIG TO CLOSE GOLD",0,25000,500,3,47)
SET_COMPUTER_PROCESS(PLAYER2,"DIG TO CLOSE GOLD",0,25000,500,3,47)
SET_COMPUTER_PROCESS(PLAYER3,"DIG TO CLOSE GOLD",0,25000,500,3,47)

ALLY_PLAYERS(PLAYER1,PLAYER2)
ALLY_PLAYERS(PLAYER1,PLAYER3)
ALLY_PLAYERS(PLAYER2,PLAYER3)

MAX_CREATURES(	PLAYER0,	15)
MAX_CREATURES(	PLAYER1,	15)
MAX_CREATURES(	PLAYER2,	25)
MAX_CREATURES(	PLAYER3,	20)

REM Creature_Availability
REM Ӭ
ADD_CREATURE_TO_POOL(	FLY,		10)
REM ׳
ADD_CREATURE_TO_POOL(	BUG,		10)
REM ֩
ADD_CREATURE_TO_POOL(	SPIDER,		10)
REM ħʦ
ADD_CREATURE_TO_POOL(	SORCEROR,	20)
REM 
ADD_CREATURE_TO_POOL(	DEMONSPAWN,	10)
REM 
ADD_CREATURE_TO_POOL(	DRAGON,		50)
REM 
ADD_CREATURE_TO_POOL(	TROLL,		20)
REM 
ADD_CREATURE_TO_POOL(	ORC,		10)
REM ֮Ȯ
ADD_CREATURE_TO_POOL(	HELL_HOUND,	10)
REM ڰŮ
ADD_CREATURE_TO_POOL(	DARK_MISTRESS,	50)
REM ħ
ADD_CREATURE_TO_POOL(	BILE_DEMON,	50)
REM Ѫ
ADD_CREATURE_TO_POOL(	VAMPIRE,	10)

CREATURE_AVAILABLE(	ALL_PLAYERS,	FLY,	        1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	BUG,		1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	SPIDER,	        1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	SORCEROR,       1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	DEMONSPAWN,     1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	DRAGON,		1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	TROLL,		1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	ORC,		1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	HELL_HOUND,     1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	DARK_MISTRESS,	1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	BILE_DEMON,	1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	VAMPIRE,	1,			1)

REM Room_Availability
REM 
ROOM_AVAILABLE(		ALL_PLAYERS,	TREASURE,	1,			1)
REM Ѩ
ROOM_AVAILABLE(		ALL_PLAYERS,	LAIR,		1,			1)
REM 
ROOM_AVAILABLE(		ALL_PLAYERS,	GARDEN,		1,			1)
REM ѵ
ROOM_AVAILABLE(		ALL_PLAYERS,	TRAINING,	1,			1)
REM ͼ
ROOM_AVAILABLE(		ALL_PLAYERS,	RESEARCH,	1,			1)
REM 
ROOM_AVAILABLE(		ALL_PLAYERS,	WORKSHOP,	1,			0)
REM 
ROOM_AVAILABLE(		ALL_PLAYERS,	BRIDGE,		1,			0)
REM 
ROOM_AVAILABLE(		ALL_PLAYERS,	GUARD_POST,	1,			0)
REM 
ROOM_AVAILABLE(		ALL_PLAYERS,	PRISON,		1,			0)
REM Ѷ
ROOM_AVAILABLE(		ALL_PLAYERS,	TORTURE,	1,			0)
REM Ӫ
ROOM_AVAILABLE(		ALL_PLAYERS,	BARRACKS,	1,			0)
REM 
ROOM_AVAILABLE(		ALL_PLAYERS,	TEMPLE,		1,			0)
REM Ĺ
ROOM_AVAILABLE(		ALL_PLAYERS,	GRAVEYARD,	1,			0)
REM ļ
ROOM_AVAILABLE(         ALL_PLAYERS,    SCAVENGER,      1,                      1)

REM  doors & traps
REM ľ
DOOR_AVAILABLE(		ALL_PLAYERS,	WOOD,			1,			0)
REM Ƥ
DOOR_AVAILABLE(		ALL_PLAYERS,	BRACED,			1,			0)
REM 
DOOR_AVAILABLE(		ALL_PLAYERS,	STEEL,			1,			0)
REM ħ
DOOR_AVAILABLE(		ALL_PLAYERS,	MAGIC,			1,			0)

REM ʯ
TRAP_AVAILABLE(		ALL_PLAYERS,	BOULDER,		1,			0)
REM 
TRAP_AVAILABLE(		ALL_PLAYERS,	ALARM,			1,			0)
REM 
TRAP_AVAILABLE(		ALL_PLAYERS,	POISON_GAS,		1,			0)
REM 
TRAP_AVAILABLE(		ALL_PLAYERS,	LIGHTNING,		1,			0)
REM ǿ
TRAP_AVAILABLE(		ALL_PLAYERS,	WORD_OF_POWER,		1,			0)
REM ҽ
TRAP_AVAILABLE(		ALL_PLAYERS,	LAVA,			1,			0)

REM Spells
REM С
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_IMP,		1,			1)
REM а֮
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_SIGHT,		1,			0)
REM ϲ
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_CALL_TO_ARMS,	1,			0)
REM 
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_CAVE_IN,		1,			0)
REM 
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_HEAL_CREATURE,	1,			0)
REM ٻ
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_HOLD_AUDIENCE,	1,			0)
REM 
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_LIGHTNING,	1,			0)
REM ٶ
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_SPEED,		1,			0)
REM 
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_PROTECT,		1,			0)
REM 
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_CONCEAL,		1,			0)
REM С
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_CHICKEN,		1,			0)
REM
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_DISEASE,		1,0)
REM		
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_ARMAGEDDON,	1,0)
REM		
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_DESTROY_WALLS,1,0)

RESEARCH(	ALL_PLAYERS,	MAGIC,		 POWER_IMP,	          1000)
RESEARCH(	ALL_PLAYERS,	ROOM,		 TREASURE,	          1000)
RESEARCH(	ALL_PLAYERS,	ROOM,		 GARDEN,	          1000)
RESEARCH(	ALL_PLAYERS,	MAGIC,		 POWER_SIGHT,	          3800)
RESEARCH(	ALL_PLAYERS,	MAGIC,		 POWER_SPEED,	          5700)
RESEARCH(	ALL_PLAYERS,	ROOM,		 TRAINING,	          1000)
RESEARCH(	ALL_PLAYERS,	MAGIC,		 POWER_OBEY,	          6000)
RESEARCH(	ALL_PLAYERS,	ROOM,		 Lair,	                  1000)
RESEARCH(	ALL_PLAYERS,	MAGIC,		 POWER_CALL_TO_ARMS,	  7400)
RESEARCH(	ALL_PLAYERS,	MAGIC,		 POWER_CONCEAL,	          9400)
RESEARCH(	ALL_PLAYERS,	ROOM,		 RESEARCH,	          1000)
RESEARCH(	ALL_PLAYERS,	MAGIC,		 POWER_HEAL_CREATURE,	  14000)
RESEARCH(	ALL_PLAYERS,	ROOM,		 BRIDGE,	          4600)
RESEARCH(	ALL_PLAYERS,	MAGIC,		 POWER_HOLD_AUDIENCE,	  11000)
RESEARCH(	ALL_PLAYERS,	ROOM,		 GUARD_POST,	          6700)
RESEARCH(	ALL_PLAYERS,	ROOM,		 WORKSHOP,	          9000)
RESEARCH(	ALL_PLAYERS,	MAGIC,		 POWER_PROTECT,	          15000)
RESEARCH(	ALL_PLAYERS,	ROOM,		 BARRACKS,	          12000)
RESEARCH(	ALL_PLAYERS,	MAGIC,		 POWER_LIGHTNING,	  15000)
RESEARCH(	ALL_PLAYERS,	MAGIC,		 POWER_CAVE_IN,	          25000)
RESEARCH(	ALL_PLAYERS,	ROOM,		 PRISON,	          20000)
RESEARCH(	ALL_PLAYERS,	ROOM,		 TORTURE,	          20000)
RESEARCH(	ALL_PLAYERS,	ROOM,		 TEMPLE,	          25000)
RESEARCH(	ALL_PLAYERS,	MAGIC,		 POWER_CHICKEN,	          20000)
RESEARCH(	ALL_PLAYERS,	MAGIC,		 POWER_DISEASE,	          20000)
RESEARCH(	ALL_PLAYERS,	ROOM,		 GRAVEYARD,	          25000)
RESEARCH(	ALL_PLAYERS,	MAGIC,		 POWER_ARMAGEDDON,	  100000)
RESEARCH(	ALL_PLAYERS,	ROOM,		 SCAVENGER,	          27500)
RESEARCH(	ALL_PLAYERS,	MAGIC,		 POWER_DESTROY_WALLS,	  750000)

QUICK_OBJECTIVE(0,"    Have a torturing time when playing this!      =======Made by Mike======= ",PLAYER0)



IF(PLAYER0,DUNGEON_DESTROYED == 1)
   	LOSE_GAME
ENDIF
IF(PLAYER_GOOD,DUNGEON_DESTROYED==1)

WIN_GAME

ENDIF

IF(PLAYER1,DUNGEON_DESTROYED==1)
WIN_GAME

ENDIF

IF(PLAYER2,DUNGEON_DESTROYED==1)
WIN_GAME

ENDIF
IF(PLAYER3,DUNGEON_DESTROYED==1)
WIN_GAME

ENDIF