檢視使用者:Mm018347/人狼物語的原始碼

<toggledisplay>
<pre>
package SWTextRS_sow;

# ※人狼BBS互換

sub GetTextRS {
	# 序～2日目開始的訊息
	my @announce_first = (
		'這個村有恐怖的人狼傳說。白天裝成人類、晚上襲擊人類的魔物。被不安驅使的村民們、前往集會所……。',
		'只有你才知道你是什麼。來吧、一起消滅村人的天敵人狼吧。人狼的話……用狡猾的行動確實的消滅人類吧。',
		'傳說變成了現實。追逐血腥氣味的魔物“人狼”、確實在這裡當中。<br><br>無力的人類為了對抗人狼、村人們定下了一個規則。每日靠投票決定一個可疑的人處刑。也會有處刑沒罪的人的時候、這也是為了村子不得已的事……。',
	);

	# 職業分配告知
	my @announce_role = (
		'在這村子當中、_ROLE_。',
		'有',
		'名',
		'、',
	);

	# 告知生存者
	my @announce_lives = (
		'現在的生存者有、',
		'、',
		' 以上 _LIVES_ 名。',
	);

	# 告知處刑
	my @announce_vote =(
		'_NAME_ 對 _TARGET_ 投票。_RANDOM_',
		'_NAME_ 被 _COUNT_人投票。',
		'_NAME_ 被表決處死。'
	);

	# 告知委任投票
	my @announce_entrust = (
		'_NAME_對_TARGET_進行委任投票。_RANDOM_',
		'_NAME_對_TARGET_進行委任投票、但是無法解決。_RANDOM_',
	);

	# 約定
	my @announce_commit = (
		'_NAME_取消了「快轉時間」。',
		'_NAME_選擇「快轉時間」。',
	);

	# 約定狀況
	my @announce_totalcommit = (
		'沒有選擇「快轉時間」的人、或者人數太少。', # 0～1/3の時
		'選擇「快轉時間」的人是全體的1/3~2/3。', # 1/3～2/3の時
		'多數的人選擇「快轉時間」、但不是全員。', # 2/3～n-1の時
		'全部的人選擇「快轉時間」', # 全員約定完畢
	);

	# 襲撃結果訊息
	my @announce_kill = (
		'今天沒有犧牲者，人狼的襲擊失敗了嗎？',
		'隔日早晨、_TARGET_ 悽慘的死狀被發現。',
	);

	# 勝敗訊息
	my @announce_winner = (
		'新的太陽升起。但是、照耀的大地卻十分的平靜。<br>這個村、已經看不到任何一個人影了……。',
		'烏雲已經過去、耀眼的陽光降臨。──全部的人狼已經消滅！',
		'黑暗包覆著村子、村人們察覺到了自己的錯誤。人狼們用完最後一餐、為了追求新的犧牲者而離開這個沒人的村子。',
		'旋風呼呼的吹著、村人們高唱著凱歌。<br>但是、他們沒注意真正的勝利者……。',
		'旋風呼呼的吹著、村中四處都是人狼們的狂叫聲。但是、他們沒注意真正的勝利者……。',
	);

	# 勝利者
	my @caption_winner = (
		'',
		'村人',
		'人狼',
		'小動物',
		'小動物',
	);

	# 役職名
	my @rolename = (
		'無',
		'村人',
		'人狼',
		'占卜師',
		'靈能者',
		'狂人',
		'獵人',
		'共有者',
		'倉鼠人',
		'Ｃ國狂人',
		'聖痕者',
		'狂信者',
		'共鳴者',
		'蝙蝠人',
		'咒狼',
		'智狼',
		'妖精',
	);

	# 役職名（省略時）
	my @roleshortname = (
		'無',
		'村',
		'狼',
		'占',
		'靈',
		'狂',
		'獵',
		'共',
		'倉',
		'Ｃ',
		'痕',
		'信',
		'鳴',
		'傘',
		'咒',
		'智',
		'妖',
	);

	# 役職の説明
	my @explain_role = (
		'<p>你是沒有定義的職業。</p>',
		'<p>你是村人。沒有任何能力。</p>',
		'<p>你是人狼。把人類減少到跟人狼一樣就是您的勝利。</p><p>「遠吠」除了人狼與Ｃ國狂人外是聽不到的。請用遠吠與同伴溝通。</p>',
		'<p>你是占卜師。你能一天一次對村人占卜鑑定是否為人狼。</p>',
		'<p>你是靈能者。你可以知道處刑的人及暴斃死的人是村人或是人狼。</p>',
		'<p>你是狂人。你是人類、但你是人狼的同伴。為了人狼側的勝利進行狡猾的行動吧。</p><p>請注意人狼並不知道你是誰。</p>',
		'<p>你是獵人。你能一天一人、保護村人不受人狼的襲擊。但是您不能保護自己。</p>',
		'<p>你是共有者。你知道其他的共有者是誰。</p>',
		'<p>你是倉鼠人。不屬村人側及人狼側的孤高存在。在滿足村人側或人狼側勝利之時你還活著、就是你的勝利。</p><p>倉鼠人被人狼咬不會死。倉鼠人被占卜會死亡。</p>',
		'<p>你是Ｃ國狂人。你是人類、但你是人狼的同伴。為了人狼側的勝利進行狡猾的行動吧。</p><p>「遠吠」除了人狼與Ｃ國狂人外是聽不到的。請用這個與同伴溝通。</p>',
		'<p>你是_ROLESUBID_聖痕者。</p>',
		'<p>你是狂信者。你是人類、但你是人狼的同伴。為了人狼側的勝利進行狡猾的行動吧。</p><p>狂信者知道人狼是誰、人狼並不知道你是誰。</p>',
		'<p>你是共鳴者。知道其他的共鳴者是誰。</p><p>「共鳴」在共鳴者以為聽不到。請用這個跟同伴討論吧。</p>',
		'<p>你是蝙蝠人。不屬於村人側或人狼側、與倉鼠人是同陣營。村人側或人狼側的勝利條件満足之時 倉鼠人或蝙蝠人或妖精生存下來、就是你的勝利。</p><p>蝙蝠人被咬不會死亡。蝙蝠人被占卜會死亡。</p><p>「念話」除了蝙蝠人以外聽不見。請用這個與同伴溝通。</p>',
		'<p>你是咒狼。把人類減少到跟人狼一樣就是您的勝利。你如果被占卜 占卜師會死亡。</p><p>「遠吠」除了人狼與Ｃ國狂人外是聽不到的。請用這個與同伴溝通。</p>',
		'<p>你是智狼。把人類減少到跟人狼一樣就是您的勝利。你可以知道被咬死的人的職業。</p><p>「遠吠」除了人狼與Ｃ國狂人外是聽不到的。請用這個與同伴溝通。</p>',
		'<p>你是妖精。不屬於村人側及人側、與倉鼠人是同陣營。村人側或人狼側的勝利條件満足之時 倉鼠人或蝙蝠人或妖精生存下來、就是你的勝利。</p><p>妖精被人狼襲擊不會死。妖精被占卜會死亡。</p><p>妖精在１日目、可以替喜歡的兩人個結下命運之羈絆。結下命運之羈絆的人、在對方死亡後會追隨他死亡。</p>',
	);

	# 役職希望
	my %explain_roles = (
		prologue => '你的希望職業是_SELROLE_。但是、不一定能選到你要的能力者。',
		dead     => '你是_ROLE_、已經死了。',
		epilogue => '你是_ROLE_（希望是_SELROLE_）。',
		explain  => \@explain_role,
	);

	# 投票欄表示
	my @votelabels = (
		'投票',
		'委任',
	);

	# 能力者用特殊發言欄的設定
	my @caption_rolesay = (
		'',         # 未定義
		'',         # 村人
		'遠吠',     # 人狼
		'',         # 占卜師
		'',         # 靈能者/霊媒師
		'',         # 狂人
		'',         # 獵人/守護者
		'',         # 共有者/結社員
		'',         # 倉鼠人/妖魔/妖狐
		'遠吠',     # Ｃ國狂人
		'',         # 聖痕者
		'',         # 狂信者
		'共鳴',     # 共鳴者
		'念話',     # 蝙蝠人
		'遠吠',     # 咒狼
		'遠吠',     # 智狼
		'',         # 妖精
	);

	# 能力名
	my @abi_role = (
		'',     # 未定義
		'',     # 村人
		'襲擊', # 人狼
		'占卜', # 占卜師
		'',     # 靈能者/霊媒師
		'',     # 狂人
		'護衛', # 獵人/守護者
		'',     # 共有者/結社員
		'',     # 倉屬/妖魔/妖狐
		'',     # Ｃ國狂人
		'',     # 聖痕者
		'',     # 狂信者
		'',     # 共鳴者
		'',     # 蝙蝠人
		'襲擊', # 咒狼
		'襲擊', # 智狼
		'結下', # 妖精
	);

	# 聖痕者的色
	# 想看見五人都到齊（喂
	# 變更人數時、請至設定檔的 MAXCOUNT_STIGMA 去變更。
	my @stigma_subid = (
		'紅之',
		'藍之',
		'黃之',
		'綠之',
		'桃之',
	);

	# 占い結果
	my @result_seer = (
		'_NAME_ 是 _RESULT_ 。',
		'村人',
		'人狼',
	);

	# 分配表情稱
	my %caption_roletable = (
		default => '標準',
		hamster => '倉鼠',
		wbbs_c  => 'Ｃ國',
		test1st => '聖痕',
		test2nd => '狂信',
		custom  => '自訂',
	);

	# アクション
	my @actions = (
		'毆打。 ',
		'安慰。 ',
		'揮手。 ',		
		'互相打架。 ',
		'點頭。 ',
		'歪頭。 ',
		'一動也不動的凝視。 ',
		'感到奇怪的看著。 ',
		'戳來戳去。 ',
		'感到驚訝。 ',
		'害羞。 ',
		'敬禮。 ',
		'微笑。 ',
		'擁抱。 ',
		'追問一小時。 ',
		'覺得是同伴。 ',
		'感謝。 ',
	);

	my %textrs = (
		CAPTION => '人狼物語',

		# 身代君的的参加表示（XX進村了）的有無
		NPCENTRYMES => 1,

		# 公開訊息
		ANNOUNCE_EXTENSION  => '還不夠人數、村的更新時間延長24小時。',
		ENTRYMES            => '_NO_人、_NAME_ 來到村子裡。',
		EXITMES             => '_NAME_離開村子了。',
		SUDDENDEATH         => '_NAME_ 暴斃。',
		SUICIDEBONDS        => '_NAME_ 因為羈絆追隨 _TARGET_ 死亡。',
		SUICIDELOVERS       => '_NAME_ 因為覺得悲哀追隨 _TARGET_ 死亡。',
		ANNOUNCE_RANDOMVOTE => '(隨機投票)',
		ANNOUNCE_VICTORY    => '_VICTORY_側勝利！<br>',
		ANNOUNCE_EPILOGUE   => '_AVICTORY_全部紀錄跟ID公開。到_DATE_為止可以自由輸入 、這次的感想。',

		RANDOMENTRUST => '(隨機委任)',

		# 能力関連
		UNDEFTARGET      => '委託',
		RANDOMTARGET     => '隨機', # 隨機對象
		RANDOMROLE       => '隨機', # 隨機希望職業
		NOSELROLE        => '村莊設定是「無視希望職業」、全部的希望職業無視。',
		SETRANDOMROLE    => '_NAME_ 的希望職業 _SELROLE_ 自動決定。',
		SETRANDOMTARGET  => '_NAME_ 的能力（_ABILITY_）的對象 _TARGET_ 自動決定。',
		CANCELTARGET    => '_NAME_ 的能力（_ABILITY_）沒有有效對象。',
		EXECUTESEER      => '_NAME_ 對 _TARGET_ 占卜。',
		EXECUTEKILL      => '_TARGET_！ 今天就是你的忌日！',
		EXECUTEGUARD     => '_NAME_ 對 _TARGET_ 護衛。',
		EXECUTETRICKSTER => '_NAME_ 對 _TARGET1_ 和 _TARGET2_ 結下命運的羈絆。',
		RESULT_GUARD     => '_TARGET_ 從人狼的襲擊下存活了。',
		RESULT_KILL      => '_TARGET_ 被殺害。',
		RESULT_KILLIW    => '_TARGET_ 被殺害（_TARGET_ 是 _ROLE_ ）。',
		RESULT_FM        => '還有_ROLE_是_TARGET_ 。',
		RESULT_FANATIC   => '_NAME_ 是 人狼 。',
		MARK_BONDS       => '絆',
		RESULT_BONDS     => '您和 _TARGET_ 結下了命運的羈絆。',
		MARK_LOVERS      => '戀人',
		RESULT_LOVERS    => '您和 _TARGET_ 相愛。',

		# アクション関連
		ACTIONS_ADDPT     => '催促他繼續說話。 _REST_',
		ACTIONS_RESTADDPT => '(剩_POINT_回)',
		ACTIONS_BOOKMARK  => '到這裡為止的閱讀。 ',

		# 操作ログ関連
		ANNOUNCE_SELROLE    => '_NAME_的希望職業是_SELROLE_ （其他人看不到）。',
		ANNOUNCE_SETVOTE    => '_NAME_選擇對、_TARGET_ 投票。',
		ANNOUNCE_SETENTRUST => '委任投票。<br><br>_NAME_對_TARGET_ 進行投票委任。',
		ANNOUNCE_SETTARGET  => '_NAME_決定_TARGET_ 為施展（_ABILITY_）的對象。',

		# ボタンのラベル
		BUTTONLABEL_PC  => '_BUTTON_ / 更新',
		BUTTONLABEL_MB  => '_BUTTON_',
		CAPTION_SAY_PC  => '發言',
		CAPTION_SAY_MB  => '發言',
		CAPTION_TSAY_PC => '自言自語',
		CAPTION_TSAY_MB => '自言自語',
		CAPTION_GSAY_PC => '死者發言',
		CAPTION_GSAY_MB => '呻吟',
		CAPTION_ROLESAY => \@caption_rolesay,

		ANNOUNCE_FIRST       => \@announce_first,
		ANNOUNCE_ROLE        => \@announce_role,
		ANNOUNCE_WINNER      => \@announce_winner,
		ANNOUNCE_LIVES       => \@announce_lives,
		ANNOUNCE_VOTE        => \@announce_vote,
		ANNOUNCE_COMMIT      => \@announce_commit,
		ANNOUNCE_TOTALCOMMIT => \@announce_totalcommit,
		ANNOUNCE_ENTRUST     => \@announce_entrust,
		ANNOUNCE_KILL        => \@announce_kill,
		CAPTION_WINNER       => \@caption_winner,
		ROLENAME             => \@rolename,
		ROLESHORTNAME        => \@roleshortname,
		EXPLAIN_ROLES        => \%explain_roles,
		ABI_ROLE             => \@abi_role,
		STIGMA_SUBID         => \@stigma_subid,
		RESULT_SEER          => \@result_seer,
		CAPTION_ROLETABLE    => \%caption_roletable,
		VOTELABELS           => \@votelabels,
		ACTIONS              => \@actions,
	);
	return \%textrs,
}

1;
</pre>
</toggledisplay>