X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=src%2Fspells-summon.c;h=aa5e6d1bb24344001e9aba94b92d5fef303e8051;hb=refs%2Fheads%2Fmaster;hp=391deac9a50429062a2482f44c77db1873b61bdd;hpb=c2d13e1614e9a7184375bcb602968076961c09b3;p=hengband%2Fhengband.git

diff --git a/src/spells-summon.c b/src/spells-summon.c
deleted file mode 100644
index 391deac9a..000000000
--- a/src/spells-summon.c
+++ /dev/null
@@ -1,354 +0,0 @@
-#include "angband.h"
-#include "spells-summon.h"
-
-/*!
-* @brief トランプ魔法独自の召喚処理を行う / Handle summoning and failure of trump spells
-* @param num summon_specific()関数を呼び出す回数
-* @param pet ペット化として召喚されるか否か
-* @param y 召喚位置のy座標
-* @param x 召喚位置のx座標
-* @param lev 召喚レベル
-* @param type 召喚条件ID
-* @param mode モンスター生成条件フラグ
-* @return モンスターが（敵対も含めて）召還されたならばTRUEを返す。
-*/
-bool trump_summoning(int num, bool pet, POSITION y, POSITION x, DEPTH lev, int type, BIT_FLAGS mode)
-{
-	PLAYER_LEVEL plev = p_ptr->lev;
-
-	MONSTER_IDX who;
-	int i;
-	bool success = FALSE;
-
-	/* Default level */
-	if (!lev) lev = plev * 2 / 3 + randint1(plev / 2);
-
-	if (pet)
-	{
-		/* Become pet */
-		mode |= PM_FORCE_PET;
-
-		/* Only sometimes allow unique monster */
-		if (mode & PM_ALLOW_UNIQUE)
-		{
-			/* Forbid often */
-			if (randint1(50 + plev) >= plev / 10)
-				mode &= ~PM_ALLOW_UNIQUE;
-		}
-
-		/* Player is who summons */
-		who = -1;
-	}
-	else
-	{
-		/* Prevent taming, allow unique monster */
-		mode |= PM_NO_PET;
-
-		/* Behave as if they appear by themselfs */
-		who = 0;
-	}
-
-	for (i = 0; i < num; i++)
-	{
-		if (summon_specific(who, y, x, lev, type, mode, '\0'))
-			success = TRUE;
-	}
-
-	if (!success)
-	{
-		msg_print(_("誰もあなたのカードの呼び声に答えない。", "Nobody answers to your Trump call."));
-	}
-
-	return success;
-}
-
-
-bool cast_summon_demon(int power)
-{
-	u32b flg = 0L;
-	bool pet = !one_in_(3);
-
-	if (pet) flg |= PM_FORCE_PET;
-	else flg |= PM_NO_PET;
-	if (!(pet && (p_ptr->lev < 50))) flg |= PM_ALLOW_GROUP;
-
-	if (summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, power, SUMMON_DEMON, flg, '\0'))
-	{
-		msg_print(_("硫黄の悪臭が充満した。", "The area fills with a stench of sulphur and brimstone."));
-		if (pet)
-		{
-			msg_print(_("「ご用でございますか、ご主人様」", "'What is thy bidding... Master?'"));
-		}
-		else
-		{
-			msg_print(_("「卑しき者よ、我は汝の下僕にあらず！ お前の魂を頂くぞ！」",
-				"'NON SERVIAM! Wretch! I shall feast on thy mortal soul!'"));
-		}
-	}
-	return TRUE;
-}
-
-
-/*!
-* @brief 悪魔領域のグレーターデーモン召喚に利用可能な死体かどうかを返す。 / An "item_tester_hook" for offer
-* @param o_ptr オブジェクト構造体の参照ポインタ
-* @return 生贄に使用可能な死体ならばTRUEを返す。
-*/
-bool item_tester_offer(object_type *o_ptr)
-{
-	/* Flasks of oil are okay */
-	if (o_ptr->tval != TV_CORPSE) return (FALSE);
-	if (o_ptr->sval != SV_CORPSE) return (FALSE);
-
-	if (my_strchr("pht", r_info[o_ptr->pval].d_char)) return (TRUE);
-
-	/* Assume not okay */
-	return (FALSE);
-}
-
-/*!
-* @brief 悪魔領域のグレーターデーモン召喚を処理する / Daemon spell Summon Greater Demon
-* @return 処理を実行したならばTRUEを返す。
-*/
-bool cast_summon_greater_demon(void)
-{
-	PLAYER_LEVEL plev = p_ptr->lev;
-	OBJECT_IDX item;
-	concptr q, s;
-	int summon_lev;
-	object_type *o_ptr;
-
-	item_tester_hook = item_tester_offer;
-	q = _("どの死体を捧げますか? ", "Sacrifice which corpse? ");
-	s = _("捧げられる死体を持っていない。", "You have nothing to scrifice.");
-	o_ptr = choose_object(&item, q, s, (USE_INVEN | USE_FLOOR));
-	if (!o_ptr) return FALSE;
-
-	summon_lev = plev * 2 / 3 + r_info[o_ptr->pval].level;
-
-	if (summon_specific(-1, p_ptr->y, p_ptr->x, summon_lev, SUMMON_HI_DEMON, (PM_ALLOW_GROUP | PM_FORCE_PET), '\0'))
-	{
-		msg_print(_("硫黄の悪臭が充満した。", "The area fills with a stench of sulphur and brimstone."));
-		msg_print(_("「ご用でございますか、ご主人様」", "'What is thy bidding... Master?'"));
-
-		/* Decrease the item (from the pack) */
-		if (item >= 0)
-		{
-			inven_item_increase(item, -1);
-			inven_item_describe(item);
-			inven_item_optimize(item);
-		}
-
-		/* Decrease the item (from the floor) */
-		else
-		{
-			floor_item_increase(0 - item, -1);
-			floor_item_describe(0 - item);
-			floor_item_optimize(0 - item);
-		}
-	}
-	else
-	{
-		msg_print(_("悪魔は現れなかった。", "No Greater Demon arrive."));
-	}
-
-	return TRUE;
-}
-
-/*!
- * @brief 同族召喚(援軍)処理
- * @param level 召喚基準レベル
- * @param y 召喚先Y座標
- * @param x 召喚先X座標
- * @param mode 召喚オプション
- * @return ターンを消費した場合TRUEを返す
- */
-bool summon_kin_player(DEPTH level, POSITION y, POSITION x, BIT_FLAGS mode)
-{
-	bool pet = (bool)(mode & PM_FORCE_PET);
-	SYMBOL_CODE symbol = '\0';
-	if (!pet) mode |= PM_NO_PET;
-
-	switch (p_ptr->mimic_form)
-	{
-	case MIMIC_NONE:
-		switch (p_ptr->prace)
-		{
-		case RACE_HUMAN:
-		case RACE_AMBERITE:
-		case RACE_BARBARIAN:
-		case RACE_BEASTMAN:
-		case RACE_DUNADAN:
-			symbol = 'p';
-			break;
-		case RACE_HALF_ELF:
-		case RACE_ELF:
-		case RACE_HOBBIT:
-		case RACE_GNOME:
-		case RACE_DWARF:
-		case RACE_HIGH_ELF:
-		case RACE_NIBELUNG:
-		case RACE_DARK_ELF:
-		case RACE_MIND_FLAYER:
-		case RACE_KUTAR:
-		case RACE_S_FAIRY:
-			symbol = 'h';
-			break;
-		case RACE_HALF_ORC:
-			symbol = 'o';
-			break;
-		case RACE_HALF_TROLL:
-			symbol = 'T';
-			break;
-		case RACE_HALF_OGRE:
-			symbol = 'O';
-			break;
-		case RACE_HALF_GIANT:
-		case RACE_HALF_TITAN:
-		case RACE_CYCLOPS:
-			symbol = 'P';
-			break;
-		case RACE_YEEK:
-			symbol = 'y';
-			break;
-		case RACE_KLACKON:
-			symbol = 'K';
-			break;
-		case RACE_KOBOLD:
-			symbol = 'k';
-			break;
-		case RACE_IMP:
-			if (one_in_(13)) symbol = 'U';
-			else symbol = 'u';
-			break;
-		case RACE_DRACONIAN:
-			symbol = 'd';
-			break;
-		case RACE_GOLEM:
-		case RACE_ANDROID:
-			symbol = 'g';
-			break;
-		case RACE_SKELETON:
-			if (one_in_(13)) symbol = 'L';
-			else symbol = 's';
-			break;
-		case RACE_ZOMBIE:
-			symbol = 'z';
-			break;
-		case RACE_VAMPIRE:
-			symbol = 'V';
-			break;
-		case RACE_SPECTRE:
-			symbol = 'G';
-			break;
-		case RACE_SPRITE:
-			symbol = 'I';
-			break;
-		case RACE_ENT:
-			symbol = '#';
-			break;
-		case RACE_ANGEL:
-			symbol = 'A';
-			break;
-		case RACE_DEMON:
-			symbol = 'U';
-			break;
-		default:
-			symbol = 'p';
-			break;
-		}
-		break;
-	case MIMIC_DEMON:
-		if (one_in_(13)) symbol = 'U';
-		else symbol = 'u';
-		break;
-	case MIMIC_DEMON_LORD:
-		symbol = 'U';
-		break;
-	case MIMIC_VAMPIRE:
-		symbol = 'V';
-		break;
-	}
-	return summon_specific((pet ? -1 : 0), y, x, level, SUMMON_KIN, mode, symbol);
-}
-
-/*!
- * @brief サイバーデーモンの召喚
- * @param who 召喚主のモンスターID(0ならばプレイヤー)
- * @param y 召喚位置Y座標
- * @param x 召喚位置X座標
- * @return 作用が実際にあった場合TRUEを返す
- */
-int summon_cyber(MONSTER_IDX who, POSITION y, POSITION x)
-{
-	int i;
-	int max_cyber = (easy_band ? 1 : (dun_level / 50) + randint1(2));
-	int count = 0;
-	BIT_FLAGS mode = PM_ALLOW_GROUP;
-
-	/* Summoned by a monster */
-	if (who > 0)
-	{
-		monster_type *m_ptr = &m_list[who];
-		if (is_pet(m_ptr)) mode |= PM_FORCE_PET;
-	}
-
-	if (max_cyber > 4) max_cyber = 4;
-
-	for (i = 0; i < max_cyber; i++)
-	{
-		count += summon_specific(who, y, x, 100, SUMMON_CYBER, mode, '\0');
-	}
-
-	return count;
-}
-
-
-void mitokohmon(void)
-{
-	int count = 0, i;
-	monster_type *m_ptr;
-	concptr kakusan = "";
-
-	if (summon_named_creature(0, p_ptr->y, p_ptr->x, MON_SUKE, PM_FORCE_PET))
-	{
-		msg_print(_("『助さん』が現れた。", "Suke-san apperars."));
-		kakusan = "Suke-san";
-		count++;
-	}
-	if (summon_named_creature(0, p_ptr->y, p_ptr->x, MON_KAKU, PM_FORCE_PET))
-	{
-		msg_print(_("『格さん』が現れた。", "Kaku-san appears."));
-		kakusan = "Kaku-san";
-		count++;
-	}
-	if (!count)
-	{
-		for (i = m_max - 1; i > 0; i--)
-		{
-			m_ptr = &m_list[i];
-			if (!m_ptr->r_idx) continue;
-			if (!((m_ptr->r_idx == MON_SUKE) || (m_ptr->r_idx == MON_KAKU))) continue;
-			if (!los(m_ptr->fy, m_ptr->fx, p_ptr->y, p_ptr->x)) continue;
-			if (!projectable(m_ptr->fy, m_ptr->fx, p_ptr->y, p_ptr->x)) continue;
-			count++;
-			break;
-		}
-	}
-
-	if (count)
-	{
-		msg_format(_("「者ども、ひかえおろう！！！このお方をどなたとこころえる。」",
-			"%^s says 'WHO do you think this person is! Bow your head, down your knees!'"), kakusan);
-		sukekaku = TRUE;
-		stun_monsters(120);
-		confuse_monsters(120);
-		turn_monsters(120);
-		stasis_monsters(120);
-		sukekaku = FALSE;
-	}
-	else
-	{
-		msg_print(_("しかし、何も起きなかった。", "Nothing happen."));
-	}
-}