rem super-sorcerors
COMPUTER_PLAYER(PLAYER1,1)
SET_GENERATE_SPEED(950)
START_MONEY(PLAYER0,10000)
START_MONEY(PLAYER1,50000000)
MAX_CREATURES(PLAYER0,40)
MAX_CREATURES(PLAYER1,50)
CREATURE_AVAILABLE(PLAYER0,WIZARD,1,1)
CREATURE_AVAILABLE(PLAYER0,SAMURAI,1,1)
CREATURE_AVAILABLE(PLAYER0,THIEF,1,1)
CREATURE_AVAILABLE(PLAYER0,GIANT,1,1)
CREATURE_AVAILABLE(PLAYER0,TUNNELLER,1,1)
CREATURE_AVAILABLE(PLAYER0,KNIGHT,1,1)
CREATURE_AVAILABLE(PLAYER0,DWARFA,1,1)
CREATURE_AVAILABLE(PLAYER0,MONK,1,1)
CREATURE_AVAILABLE(PLAYER0,ARCHER,1,1)
CREATURE_AVAILABLE(PLAYER0,BARBARIAN,1,1)
CREATURE_AVAILABLE(player1,DEMONSPAWN,1,1)
CREATURE_AVAILABLE(player1,SPIDER,1,1)
CREATURE_AVAILABLE(player1,BUG,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_CHICKEN,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_HEAL_CREATURE,1,1)
MAGIC_AVAILABLE(player1,POWER_HEAL_CREATURE,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_OBEY,1,1)
ROOM_AVAILABLE(player1,TORTURE,1,1)
ROOM_AVAILABLE(player1,TRAINING,1,1)
ROOM_AVAILABLE(player1,TREASURE,1,1)
ROOM_AVAILABLE(player1,WORKSHOP,1,1)
ROOM_AVAILABLE(player1,GARDEN,1,1)
ROOM_AVAILABLE(player1,SCAVENGER,1,1)
ROOM_AVAILABLE(player1,LAIR,1,1)
ROOM_AVAILABLE(player1,PRISON,1,1)
ROOM_AVAILABLE(player1,TEMPLE,1,1)

ROOM_AVAILABLE(PLAYER0,PRISON,1,1)
ROOM_AVAILABLE(PLAYER0,TRAINING,1,1)
ROOM_AVAILABLE(PLAYER0,BARRACKS,1,1)
ROOM_AVAILABLE(PLAYER0,GARDEN,1,1)
TRAP_AVAILABLE(PLAYER0,LIGHTNING,1,0)
TRAP_AVAILABLE(player1,LIGHTNING,1,0)
DOOR_AVAILABLE(PLAYER0,BRACED,1,0)
DOOR_AVAILABLE(PLAYER0,WOOD,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,GUARD_POST,1,1)
ADD_CREATURE_TO_POOL(WIZARD,15)
ADD_CREATURE_TO_POOL(SPIDER,16)
ADD_CREATURE_TO_POOL(BUG,32)
ADD_CREATURE_TO_POOL(DEMONSPAWN,8)
ADD_CREATURE_TO_POOL(SAMURAI,4)
ADD_CREATURE_TO_POOL(THIEF,15)
ADD_CREATURE_TO_POOL(GIANT,3)
ADD_CREATURE_TO_POOL(TUNNELLER,19)
ADD_CREATURE_TO_POOL(KNIGHT,1)
ADD_CREATURE_TO_POOL(DWARFA,10)
ADD_CREATURE_TO_POOL(MONK,5)
ADD_CREATURE_TO_POOL(ARCHER,30)
ADD_CREATURE_TO_POOL(BARBARIAN,20)


SET_TIMER(player1,TIMER0)
SET_CREATURE_MAX_LEVEL(player1,DEMONSPAWN,9)
SET_CREATURE_HEALTH(BUG,150)
SET_CREATURE_HEALTH(SORCEROR,1200)
SET_CREATURE_HEALTH(SPIDER,300)
SET_CREATURE_HEALTH(DEMONSPAWN,600)
IF(player1,DUNGEON_DESTROYED==0)
	IF(player1,TOTAL_IMPS<7)
		IF(player1,TIMER0>=210)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(player1,IMP,1,1,1,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(player1,TIMER0)
		ENDIF
	ENDIF
ENDIF

IF(PLAYER_GOOD, TOTAL_CREATURES == 0)
IF(player1, DUNGEON_DESTROYED >= 1)
	WIN_GAME
ENDIF
endif

set_timer(player0,timer0)
if(PLAYER_GOOD,sorceror<38)
if(player_good,research>3)
IF(PLAYER0,TIMER0 >= 1200)
	NEXT_COMMAND_REUSABLE
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,sorceror,-1,1,5,100)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER0,TIMER0)
endif
endif
endif

IF_ACTION_POINT(2,PLAYER0)
ADD_CREATURE_TO_LEVEL(player1,spider,-2,1,2,0)
ADD_CREATURE_TO_LEVEL(player1,spider,-3,2,1,0)
ADD_CREATURE_TO_LEVEL(player1,spider,-4,1,2,0)
ADD_CREATURE_TO_LEVEL(player1,spider,-5,2,2,0)
ADD_CREATURE_TO_LEVEL(player1,spider,-6,1,3,0)
endif

set_timer(player1,timer1)
IF(player1, DUNGEON_DESTROYED == 0)
	if(player1,timer1>=4500)
		NEXT_COMMAND_REUSABLE
		RESET_ACTION_POINT(2)
		NEXT_COMMAND_REUSABLE
		set_timer(player1,timer1)
	endif
endif

IF(PLAYER0,RESEARCH>0)
ROOM_AVAILABLE(PLAYER0,treasure,1,0)
ROOM_AVAILABLE(PLAYER0,lair,1,0)
ROOM_AVAILABLE(PLAYER0,torture,1,0)
ROOM_AVAILABLE(PLAYER0,temple,1,0)
ROOM_AVAILABLE(PLAYER0,research,1,0)
ROOM_AVAILABLE(PLAYER0,workshop,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_LIGHTNING,1,1)
endif

IF(PLAYER0,TOTAL_IMPS>0)
ROOM_AVAILABLE(PLAYER0,bridge,1,1)
endif
