#AKT_S40_INTP RevPol
// ↑ は、変更してはいけません
#include "..\RevPolStdMacro.txt" // 共通簡易化マクロを読み込む
#include "MagicalDestMacro.txt"  // マジカル☆6デストロイ用のマクロを読み込む
#main



////////////////////////////////////////
////////////////////////////////////////
// ここから実行文を書きます。
//





// 変数に買収した会社名を入れる。
$買った社名 ＝に ＠買収社名 ＝を代入
$イベントID ＝に ＠買収イベントID ＝を代入

// 物件ランダム生成のときにタグ付けしたイベントがあれば
$イベントID 100 ？同じ〜ならば "CEID_" $イベントID strcat →に行け
$イベントID 101 ？同じ〜ならば "CEID_" $イベントID strcat →に行け
$イベントID 102 ？同じ〜ならば "CEID_" $イベントID strcat →に行け
$イベントID 103 ？同じ〜ならば "CEID_" $イベントID strcat →に行け
$イベントID 104 ？同じ〜ならば "CEID_" $イベントID strcat →に行け


// 物件名が一致すれば、イベント動作。（固有名のときだね）
$買った社名 "おかしカンパニー"		 ？同じ〜ならば "CE_" $買った社名 + →に行け
$買った社名 "大池屋"			 ？同じ〜ならば "CE_" $買った社名 + →に行け
$買った社名 "序盤の敵社"		 ？同じ〜ならば "CE_" $買った社名 + →に行け
$買った社名 "無限アリ製造装置"		 ？同じ〜ならば "CE_" $買った社名 + →に行け
$買った社名 "落ち武者大将軍"		 ？同じ〜ならば "CE_" $買った社名 + →に行け
$買った社名 "古代アステカ王国連盟"	 ？同じ〜ならば "CE_" $買った社名 + →に行け
$買った社名 "カマキリ星人"		 ？同じ〜ならば "CE_" $買った社名 + →に行け
$買った社名 "子猫"			 ？同じ〜ならば "CE_" $買った社名 + →に行け

↑ここまで




//おかしカンパニーのイベント
CE_おかしカンパニー:
	▲標準
	♪標準
	★左一般人
	★右ブリトニー
	■左
	"……、負けました。" A
	■右
	"わーい、買った〜。" A
↑ここまで



//おかしカンパニーのイベント
CE_大池屋:
	▲標準
	♪標準
	★左一般人
	★右ブリトニー
	■左
	"大池です。" A
	■右
	"勝った〜。" A
↑ここまで

CE_子猫:
	▲標準
	♪標準
	★左ブリトニー
	★右子猫
	■左
	"「ねこーねこー」" A
	■右
	"「にゃーにゃー」" A
	■左
	"「ねこーねこー」" A
	★右三途ノ川
	■右
	"「どっちが動物か分からないな」" A
	■左
	"「あっし、人間」" A
	■右
	"「今見ていると似たようなもんだったぞ」" A
	■左
	"「そんなことない……あ」" A
	■中
	"少し目を離した隙に、子猫は空を飛んで逃げていった。" A
	■左
	"「ねこー…ねこー…」" A
	■右
	"「ほら、行くぞ。ブリトニー」" A
	//元ネタ：Kan○n
↑ここまで

CE_序盤の敵社:
	▲日本海
	♪標準
	★左ブリトニー
	★右序盤の敵
	■右
	"「ぐわー。まけたー！！」" A
	■左
	"「正義は勝つのだー」" A
	■右
	"「ごめんなさい。命だけはたすけてくださいー」" A
	■左
	"「じゃあ、なんで付け狙ったんだ！？」" A
	■右
	"「つい、出来心で。今は反省している」" A
	■左
	"「なら仕方ないなー」" A
↑ここまで


CE_無限アリ製造装置:
	$eventcheck ＝に "済_大将軍" ＝という名前でグローバルから整数で代入
	$eventcheck 1　？同じ〜ならば　"CE_無限アリ製造装置＠将軍買収済み" →に行け
	▲森
	♪標準
	★左ブリトニー
	★右暗黒
	■右
	"「やめてくれー。この機械を壊さないでくれー！」" A
	■左
	"「駄目だ駄目だーッ！　世界の女の子からお菓子を奪おうとするお前たちの野望を許しはしないー！」" A
	■右
	"「もし、わしの味方になれば世界の半分をお前にやろう。だからやめろー」" A
	■左
	"「ふざけるなー。くらえー、マジカル全滅ビームッ！！！」" A
	■右
	"「やめろぉぉー！！！」" A
	■左
	"「どけー！　そこにいたら、お前も死んでしまうぞー！！」" A
	■右
	"「やれるものならやってみろー！！　たとえわしが滅びようとも、同士大将軍から任されたこの機械は壊されはしないー！！」" A
	■左
	"「うおおおおおおぉぉぉぉ！！！！」" A
	■中
	"きらきら、しゅいいいいいん〜〜" A
	■右
	"「ぐおおおおおおおおおぉぉぉぉぉぉ」" A
	"「ど、同士、、大将軍様、、ごめんなさ、、」" A
	■中
	"どかーん" A
	■左
	"「ふ、悪は滅びた」" A
	＝グローバルに 1 ＝の内容を "済_アリ製造" ＝という名前で代入
↑ここまで



CE_無限アリ製造装置＠将軍買収済み:
	▲森
	♪標準
	★左ブリトニー
	★右暗黒
	■左
	"「さぁ、暗黒落ち武者ー！！　はやく投降しろー！！」"A
	■右
	"「くそー！　もはやこれまでかーー！！」"A
	■中
	"……………"A
	"どかーん！！"A
	"暗黒落ち武者は、無限アリ製造装置の自爆機構を用いて、自爆した。。"A
↑ここまで



CE_落ち武者大将軍:
	$eventcheck ＝に "済_アリ製造" ＝という名前でグローバルから整数で代入
	$eventcheck 1　？違う〜ならば　"CE_落ち武者大将軍アリ前" →に行け
	//アリ落とした
	▲城
	♪標準
	★左ブリトニー
	★右大将軍
	■左
	"「無限アリ製造装置も動作を停止した！！」"A
	落ち武者BKP:
	■左
	"「ここまでだ！　追いつめたぞ、落ち武者大将軍！！」"A
	■右
	"「ふ…ふははははは、追いつめた…だと？」"A
	■左
	"「あっしのマジカルパワーで決着をつけてやる！」"A
	"「マジカル全滅ビーム！！！」"A
	■右
	"「な、なにぃ！！！」"A
	■中
	"フュイーン……カッ"A
	■右
	"「くっくっく、なかなかやるな……」"A
	■左
	"「ば、バカなっ！！！」"A
	★右三途ノ川
	■右
	"「駄目だよ、ブリトニーちゃん！！　あいつにはマジカルパワーは効かないんだ！！」"A
	■左
	"「く、くそぉー、どうすればいいんだー！！」"A
	★右大将軍
	■右
	"「くくくくく、さぁ行くぞ！！！」"A
	■左
	"「くそ…、戦術的撤退だ！！」"A
	■中
	"ブリトニーは、たーーっと逃げる。"A
	■右
	"「くくく、逃がさぬ！！」"A
	■中
	"大将軍も、たーーっと追いかける。"A
	■右
	"「ふははは、追いつめたぞ。ブリトニー！」"A
	■左
	"「くそー、ここまでか！！」"A
	■右
	"「死ねぇええええ！！！」"A
	■中
	"大将軍の猛烈なパンチがブリトニーを襲う！！"A
	"かと思われた、そのとき！！"A
	■右
	"「な、なにぃいい！！」"A
	■中
	"大将軍が踏み込んだ地面が、崩れ落ちた！！"A
	■右
	"「なんだとぉおおお！！？」"A
	■左
	"「計算通りッ！！！」"A
	■右
	"「なにぃい、、、はっ、まさか、ブリトニー…貴様！！」"A
	■左
	"「こんなこともあろうかと、落とし穴を作っておいたのさッ！」"A
	■右
	"「ばかなぁぁああ！！！！」"A
	■中
	"大将軍はずぼずぼと、首まで埋まった。"A
	■左
	"「センパイ、準備はいいですかー！！？」"A
	★右三途ノ川
	■右
	"「ああ、持ってきてやったぜ」"A
	★右大将軍
	■右
	"「そ、それはッ！！？」"A
	■左
	"「コンクリートだ。落ち武者大将軍、お前を首だけ出たオブジェにしてやるぜ！！」"A
	■右
	"「ばかなぁぁああああ！！」"A
	■中
	"こうして落ち武者代償軍は、芸術となった。"A
	＝グローバルに 1 ＝の内容を "済_大将軍" ＝という名前で代入
	//元ネタ：鬼○王ランス
↑ここまで
//アリ前に落とした。
CE_落ち武者大将軍アリ前:
	▲城
	♪標準
	★左ブリトニー
	★右大将軍
	■左
	"「さぁ、落ち武者大将軍！！　無限アリ製造装置を停止しろ！」"A
	■右
	"「くかかかか。それは出来ぬ相談だな！」"A
	■左
	"「ふざけるなッ！！」"A
	"落ち武者BKP"→に行け
↑ここまで



CE_古代アステカ王国連盟:
	▲洞窟
	♪標準
	★左ブリトニー
	★右アステカ人
	■左
	"「さー、これでキサマらもオシマイだ！　観念しろ！！！」" A
	■右
	"「ぐ、くぅ！！　見事な資金力だ！！！　傘下にはいらせてもらおう！」" A
	"「ところで何故我々を買収した！？」" A
	■左
	"「学校帰りに石が転がってたら蹴って帰るだろうが！！！　アレと一緒だ！！！！」" A
	■右
	"「ふ、完敗だ…」" A
↑ここまで



CE_カマキリ星人:
	▲宇宙
	♪標準
	★左ブリトニー
	★右カマキリ星人
	■右
	"「キリキリ、ええい、魔法少女ふぜいにしてやられたわ！」" A
	■左
	"「ふっ、正義は勝つとは限らんのだ！」" A
	■右
	"「部下となる忠義の証に「星型の生物の心を意のままにあやつる杖」をくれてやろう」" A
	■左
	"「そんなものいら…」" A
	"(―ッ！　星型の生物！？　もしかしてセンパイ！！？？　ど…、どうすればッ！！！)"A
	■中
	"……、続きは原作で。"A
	♪END
	xtalk
	"" 0 LChara
	"" 0 RChara
	▲STAFF1
	""A
	▲STAFF2
	""A
	■中
	END_bkp:
		"[終了してください]"A
	"END_bkp" →に行け
↑ここまで


// 指定イベントIDのイベント
CEID_100:
	▲標準
	♪標準
	★右トーマス
	■中
	"2000万円手に入れた" A
	2000＊万円所持金を増やす

	// 実行された回数を数えて記憶する部分。少し難しいよ。
		$count ＝に "ID100の回数" ＝という名前でグローバルから整数で代入
		$count ＝をインクリメント
		＝グローバルに $count ＝の内容を "ID100の回数" ＝という名前で代入
	// つまり、
	// $count = (int)GlobalGet("ID100の回数");
	// $count++;
	// GlobalSet("ID100の回数",$count)　と等価
	///////////////////////////////////////////////////

	"このイベントは、" B
	$count B
	"回目です。" A
↑ここまで



// 指定イベントIDのイベント
CEID_101:
	// 実行された回数を数えて記憶する部分。少し難しいよ。
		$count ＝に "ID101の回数" ＝という名前でグローバルから整数で代入
		$count ＝をインクリメント
		＝グローバルに $count ＝の内容を "ID101の回数" ＝という名前で代入
	///////////////////////////////////////////////////
	$count 1 ？同じ〜ならば "CEID_101_" $count strcat →に行け
	$count 2 ？同じ〜ならば "CEID_101_" $count strcat →に行け
	$count 3 ？同じ〜ならば "CEID_101_" $count strcat →に行け
↑ここまで

//日本海１回目
CEID_101_1:
	▲日本海
	♪標準
	★左ブリトニー
	★右三途ノ川
	■左
	"「センパイ。お花畑がきれいですね」" A
	■右
	"「ああ、そうだな」"A
	■中
	"お花畑なぞ無い荒々しい日本海の堤防を二人で歩いた。"A
↑ここまで


//日本海２回目
CEID_101_2:
	▲日本海
	♪標準
	★左ブリトニー
	★右三途ノ川
	■左
	"「センパイ、センパイ！」" A
	■右
	"「ふーっ、あまりなつかないでくれるか？」"A
↑ここまで


//日本海３回目
CEID_101_3:
	▲日本海
	♪標準
	★左ブリトニー
	★右三途ノ川
	■左
	"「ずいぶん遠くまで来ましたね…」" A
	■右
	"「ブリトニーちゃん、東中野が恋しいのか？」"A
	■左
	"「いえ…、センパイとなら…」"A
	■右
	"「ム…、敵だ。行くぞ！」"A
↑ここまで

//８次元
// 指定イベントIDのイベント
CEID_102:
	// 実行された回数を数えて記憶する部分。少し難しいよ。
		$count ＝に "ID102の回数" ＝という名前でグローバルから整数で代入
		$count ＝をインクリメント
		＝グローバルに $count ＝の内容を "ID102の回数" ＝という名前で代入
	///////////////////////////////////////////////////
	$count 1 ？同じ〜ならば "CEID_102_" $count strcat →に行け
	$count 2 ？同じ〜ならば "CEID_102_" $count strcat →に行け
	$count 3 ？同じ〜ならば "CEID_102_" $count strcat →に行け
↑ここまで


//８次元１回目
CEID_102_1:
	▲城
	♪標準
	★左ブリトニー
	★右三途ノ川
	■左
	"「センパイ……、ここは…？」" A
	■右
	"「８次元の地球だ。ここで力を蓄えよう」"A
↑ここまで

//８次元２回目
CEID_102_2:
	▲城
	♪標準
	★左ブリトニー
	★右三途ノ川
	■左
	"「センパイ…、悪い魔女はどこにいるんでしょうか」" A
	■右
	"「さあ、どこだろうな」"A
↑ここまで

//８次元３回目
CEID_102_3:
	▲城
	♪標準
	★左ブリトニー
	★右三途ノ川
	■左
	"「センパイ、地球が崩壊し始めています！！」" A
	■右
	"「ああ、８次元の地球を救うためにはコンクールに出なければならない」"A
	▲日本海
	■左
	"「１番ブリトニー、歌います！」"A
	■左
	"「黒く行く手を遮る 光を妬む魔女の闇ー」"A
	■左
	"「固く揺るがぬ想いは」"A
	■左
	"「鋭く輝く切っ先となり、絶望の魔女の心臓貫く〜」"A
	//元ネタ：Princess Br○ve!（曲）
	■中
	"ブリトニーが必死に歌ったので、８次元の地球は救われた。"A
↑ここまで





//石油
// 指定イベントIDのイベント
CEID_103:
	// 実行された回数を数えて記憶する部分。少し難しいよ。
		$count ＝に "ID103の回数" ＝という名前でグローバルから整数で代入
		$count ＝をインクリメント
		＝グローバルに $count ＝の内容を "ID103の回数" ＝という名前で代入
	///////////////////////////////////////////////////
	$count 1 ？同じ〜ならば "CEID_103_" $count strcat →に行け
	$count 2 ？同じ〜ならば "CEID_103_" $count strcat →に行け
	$count 3 ？同じ〜ならば "CEID_103_" $count strcat →に行け
↑ここまで


//石油１回目
CEID_103_1:
	▲日本海
	♪標準
	★左ブリトニー
	★右三途ノ川
	■右
	"「はぁー…」" A
	■左
	"「はぁー…」" A
	■右
	"「買っちゃったな…油田…」" A
	■左
	"「買っちゃいましたね…油田…」" A
↑ここまで


//石油２回目
CEID_103_2:
	//これとるまえに、アステカ人を落とすのは無しです。
	▲洞窟
	♪標準
	★左アステカ人
	■左
	"「みんな！！　何やってるんだ！」" A
	■左
	"「地球の石油は我らアステカ人のもの！！」" A
	■左
	"「他の奴らに取られるな！！！」" A
↑ここまで


//石油３回目
CEID_103_3:
	//これとるまえに、アステカ人を落とすのは無しです。
	▲洞窟
	♪標準
	★左アステカ人
	■左
	"「くううう！！　我らの油田が…」" A
	■左
	"「カマキリ星人といい、魔法少女といい…、とことん我らの邪魔をしようというのか！！」" A
↑ここまで


//宇宙
// 指定イベントIDのイベント
CEID_104:
	// 実行された回数を数えて記憶する部分。少し難しいよ。
		$count ＝に "ID104の回数" ＝という名前でグローバルから整数で代入
		$count ＝をインクリメント
		＝グローバルに $count ＝の内容を "ID104の回数" ＝という名前で代入
	///////////////////////////////////////////////////
	$count 1 ？同じ〜ならば "CEID_104_" $count strcat →に行け
↑ここまで


//宇宙１回目
CEID_104_1:
	▲宇宙
	♪標準
	★左ブリトニー
	★右三途ノ川
	■左
	"「うおー！！　宇宙だーー！！！」" A
	■右
	"「うむ、宇宙だな」" A
	★右カマキリ星人
	■右
	"「くそー！！　オレの領土をとりやがってー！！！」" A
	■左
	"「そっちが先に地球に侵略してきたんだろうが！！」" A
	■右
	"「もうゆるさん。ごめんなさいっていっても、許してあげないんだから！！」" A
↑ここまで

