REM ********************************************
REM
REM             s̗v
REM
REM ********************************************

SET_GENERATE_SPEED(400)
MAX_CREATURES(PLAYER0,35)
START_MONEY(PLAYER0,5000)

ADD_CREATURE_TO_POOL(BUG,50)
ADD_CREATURE_TO_POOL(FLY,35)
ADD_CREATURE_TO_POOL(SPIDER,75)
ADD_CREATURE_TO_POOL(TROLL,50)

CREATURE_AVAILABLE(PLAYER0,FLY,1,1)
CREATURE_AVAILABLE(PLAYER0,BUG,1,1)
CREATURE_AVAILABLE(PLAYER0,SPIDER,1,1)
CREATURE_AVAILABLE(PLAYER0,TROLL,1,1)

ROOM_AVAILABLE(PLAYER0,TREASURE,1,1)
ROOM_AVAILABLE(PLAYER0,LAIR,1,1)
ROOM_AVAILABLE(PLAYER0,GARDEN,1,1)
ROOM_AVAILABLE(PLAYER0,TRAINING,1,1)
ROOM_AVAILABLE(PLAYER0,RESEARCH,1,1)
ROOM_AVAILABLE(PLAYER0,WORKSHOP,1,0)
ROOM_AVAILABLE(PLAYER0,GUARD_POST,1,0)
ROOM_AVAILABLE(PLAYER0,TORTURE,1,0)
ROOM_AVAILABLE(PLAYER0,BARRACKS,1,0)

MAGIC_AVAILABLE(PLAYER0,POWER_HAND,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_SLAP,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_HOLD_AUDIENCE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_DISEASE,1,0)

DOOR_AVAILABLE(PLAYER0,STEEL,1,0)
DOOR_AVAILABLE(PLAYER0,MAGIC,1,0)

TRAP_AVAILABLE(PLAYER0,ALARM,1,0)
TRAP_AVAILABLE(PLAYER0,POISON_GAS,1,0)
TRAP_AVAILABLE(PLAYER0,WORD_OF_POWER,1,0)
TRAP_AVAILABLE(PLAYER0,LAVA,1,0)

rem n}Qh암
CREATE_PARTY(GUARDIANS)
ADD_TO_PARTY(GUARDIANS,WIZARD,5,200,ATTACK_ENEMIES,0)
ADD_TO_PARTY(GUARDIANS,FAIRY,5,100,ATTACK_ENEMIES,0)
ADD_TO_PARTY(GUARDIANS,GIANT,5,100,ATTACK_ENEMIES,0)
ADD_TO_PARTY(GUARDIANS,MONK,7,200,DEFEND_PARTY,0)
ADD_TO_PARTY(GUARDIANS,SAMURAI,5,300,ATTACK_ENEMIES,0)

rem G암
CREATE_PARTY(ONE)
ADD_TO_PARTY(ONE,ARCHER,5,500,ATTACK_ENEMIES,0)
ADD_TO_PARTY(ONE,BARBARIAN,5,500,ATTACK_ENEMIES,0)
ADD_TO_PARTY(ONE,GIANT,5,500,ATTACK_ENEMIES,0)
ADD_TO_PARTY(ONE,HELL_HOUND,6,600,ATTACK_ROOMS,0)

rem G
CREATE_PARTY(TWO)
ADD_TO_PARTY(TWO,WIZARD,5,500,ATTACK_ENEMIES,0)
ADD_TO_PARTY(TWO,SAMURAI,5,500,ATTACK_ENEMIES,0)
ADD_TO_PARTY(TWO,THIEF,5,500,ATTACK_ENEMIES,0)
ADD_TO_PARTY(TWO,MONK,6,500,DEFEND_PARTY,0)
ADD_TO_PARTY(TWO,DRAGON,6,600,ATTACK_ENEMIES,0)

rem G2
CREATE_PARTY(THREE)
ADD_TO_PARTY(THREE,WIZARD,5,500,ATTACK_ENEMIES,0)
ADD_TO_PARTY(THREE,FAIRY,6,500,ATTACK_ENEMIES,0)
ADD_TO_PARTY(THREE,FAIRY,6,500,ATTACK_ENEMIES,0)
ADD_TO_PARTY(THREE,MONK,6,500,DEFEND_PARTY,0)
ADD_TO_PARTY(THREE,WITCH,7,500,ATTACK_ENEMIES,0)
ADD_TO_PARTY(THREE,SKELETON,8,1000,ATTACK_ENEMIES,0)

rem アGRc
CREATE_PARTY(FOUR)
ADD_TO_PARTY(FOUR,BARBARIAN,3,250,ATTACK_ENEMIES,0)
ADD_TO_PARTY(FOUR,ARCHER,3,250,ATTACK_ENEMIES,0)
ADD_TO_PARTY(FOUR,THIEF,3,250,ATTACK_ENEMIES,0)

rem アGRc2
CREATE_PARTY(FIVE)
ADD_TO_PARTY(FIVE,GIANT,3,250,ATTACK_ENEMIES,0)
ADD_TO_PARTY(FIVE,SAMURAI,3,250,ATTACK_ENEMIES,0)
ADD_TO_PARTY(FIVE,MONK,3,250,ATTACK_ENEMIES,0)

rem アGRc3
CREATE_PARTY(SIX)
ADD_TO_PARTY(SIX,WITCH,3,250,ATTACK_ENEMIES,0)
ADD_TO_PARTY(SIX,FAIRY,3,250,ATTACK_ENEMIES,0)
ADD_TO_PARTY(SIX,DWARF,3,250,ATTACK_ENEMIES,0)

rem 10ȏz@ɓGo
IF(PLAYER0,TOTAL_GOLD_MINED >= 150000)
	SET_TIMER(PLAYER0,TIMER1)
ENDIF

IF(PLAYER0,TIMER1 >= 2000)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,FOUR,-1,DUNGEON,0,9,50)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,FIVE,-2,DUNGEON,0,9,50)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,SIX,-3,DUNGEON,0,9,50)
ENDIF

rem ~ϑ[uXCb`(̌\ɂ=Ζx\)
IF_ACTION_POINT(1,PLAYER0)
	ROOM_AVAILABLE(PLAYER0,BRIDGE,1,0)
ENDIF

rem n}Qh암
IF_ACTION_POINT(2,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,GUARDIANS,2,2)
ENDIF

rem vǔbZ[W
rem IF_ACTION_POINT(3,PLAYER0)
rem 	DISPLAY_INFORMATION(1,PLAYER0)
rem ENDIF

rem Ge^N|_ǎ\ɂ
IF(PLAYER_GOOD,TENTACLE==0)
	ROOM_AVAILABLE(PLAYER0,TEMPLE,1,0)
ENDIF

rem G암o&^C}[X^[g
IF_ACTION_POINT(4,PLAYER0)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,-1,DUNGEON,0,8,50)
	SET_TIMER(PLAYER0,TIMER0)
ENDIF

rem G
IF(PLAYER0,TIMER0 >= 500)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,TWO,-2,DUNGEON,0,9,50)
ENDIF

rem G2
IF(PLAYER0,TIMER0 >= 1000)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,THREE,-3,DUNGEON,0,9,50)
	SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

rem G2oAXPg|Š\ɂ
IF(PLAYER0,FLAG0==1)
	IF(PLAYER_GOOD,SKELETON==0)
		ROOM_AVAILABLE(PLAYER0,PRISON,1,0)
	ENDIF
ENDIF

rem GSłNA
IF(PLAYER_GOOD,TOTAL_CREATURES==0)
	WIN_GAME
ENDIF

rem CvSłsk
IF(PLAYER0,TOTAL_IMPS==0)
	LOSE_GAME
ENDIF
