自作シナリオ - 天制覇wiki PUK（パワーアップキット）

e7acs9*自作シナリオ

自作シナリオ及びイベントの投稿を行って下さい。
新たに追加したイベントフラグを使用している場合はその有無と使った番号を書いて下さい
前の投稿者のフラグの番号と被らないようにしていくと後が楽です

-タイトル
#openclose(show=スクリプトの表示){
 イベントスクリプト
}

---

• 我、人造少女を発見セリ（イベントフラグ７９番）

ホスエン⇒バルゴの順でサクサク攻略した時に人造少女が登場しないままになるのを回収するイベント

• ミディア病死？（イベントフラグ８０番）

１０６年、ミディア病死のプレイヤー配下時救済イベント

• パメラと離婚したい

ロゴじゃないプレイヤーでも奥さんを追放してしまうパメライベントを改造
アップローダー > tensieha0111.zip （上記３点セット）

• 覇王プレー時、副官３人娘仕官イベント

副官は本来なら９１年以降、１８歳の状態で登場します
なのでシナリオ１だと年齢いくつだよｗ　ということで今回は一律１５歳で設定してみました
１５歳ということで、仕官学校卒業前、ギレンの野望的には臨時徴集だねというノリで候補生としてみましたｗ

スクリプトの表示

set_epid1,player
set_epid2,3kan_player

eve_start

//プレイヤーが覇王かどうかを判定
if_chksts,player,4,13000
//副官イベントが未発生であること
if_eveflg,47,0
if_eveflg,48,0
//プレイヤーが惑星上にいる
if_pwid_on_ext,player
//プレイヤー陣営に文将か闘将が居ることを判定
if_chksts,pid2,4,<13000

eve_end

zin_reg_init
zin_reg_event,仕官候補生採用,pid1,pid2,zin23,gzin2

zin_reg_msg,p_name2か、話というのは？,0
zin_reg_msg,p_name1様、現在我が軍は仕官不足です,1
zin_reg_msg,うむ、戦が続いておるからな・・・,0
zin_reg_msg,そこで初等士官学校の仕官候補生を,1
zin_reg_msg,何名か登用しようと思います,1
zin_reg_msg,候補生か・・・使いものになるのか？,0
zin_reg_msg,既に短縮カリキュラムを行い、,1
zin_reg_msg,最低限のことは身に付けさせております,1
zin_reg_msg,それに、進学よりも配属希望という,1
zin_reg_msg,そこそこ骨のある連中ですので,1
zin_reg_msg,下手な者よりはマシでしょう,1
zin_reg_msg,ほうcrどんなやつらなのだ？,0
zin_reg_face,607
zin_reg_msg,１人目がアーメイ、,1
zin_reg_face,130
zin_reg_msg,続いて２人目がクレア、,1
zin_reg_face,312
zin_reg_msg,最後に３人目がサツキという仕官達です,1
zin_reg_msg,むぅ、そこいらの小娘と変わらんようにも思えるが,0
zin_reg_msg,まあ、そこはまだ候補生ですので,1
zin_reg_msg,分かった、この件はそちらで進めておいてくれ,0
zin_reg_msg,御意に,1
zin_dialog,仕官候補生達が首都星に配属されました
zin_reg_button,0

zin_reg_exit

//３人娘のステータス変更及び、実体化

set_psts,607,2,poid_player,cap_player,2000,90,15
set_psts,130,2,poid_player,cap_player,2000,90,15
set_psts,312,2,poid_player,cap_player,2000,90,15

//副官イベントが間違っても始まらないように副官イベントフラグを終了の値に変更

set_eveflg,48,10

end

• 娼婦身受け（イベントフラグ８１番）

覇王プレーだと登場しないホスエン遊郭の娼婦を金で買うイベント
アップローダー > tensieha0114.zip

• 覇王プレー時に、部下プレー時のプレイヤー種子をオルド種子に変換するイベント

スクリプトの表示

eve_start

//プレイヤーが覇王
if_chksts,player,4,13000
//本イベントの対象となる部下プレー時のプレイヤー種子の状態確認
if_chksts,217,0,13
if_chksts,221,0,13
if_chksts,227,0,13
if_chksts,260,0,13
if_chksts,322,0,13
if_chksts,477,0,13
if_chksts,696,0,13
if_chksts,710,0,13
if_chksts,753,0,13
if_chksts,806,0,13
if_chksts,807,0,13
if_chksts,808,0,13
if_chksts,809,0,13
if_chksts,810,0,13

eve_end

//片っ端から状態をオルド種子に変更

set_psts,217,1,0,0,0,0,0
set_psts,221,1,0,0,0,0,0
set_psts,227,1,0,0,0,0,0
set_psts,260,1,0,0,0,0,0
set_psts,322,1,0,0,0,0,0
set_psts,477,1,0,0,0,0,0
set_psts,696,1,0,0,0,0,0
set_psts,710,1,0,0,0,0,0
set_psts,753,1,0,0,0,0,0
set_psts,806,1,0,0,0,0,0
set_psts,807,1,0,0,0,0,0
set_psts,808,1,0,0,0,0,0
set_psts,809,1,0,0,0,0,0
set_psts,810,1,0,0,0,0,0
end

• カンシを17月に拷問する(女覇王でも発生、確率1/3)

スクリプトの表示

eve_start

if_aft_date,92
//2回目以降訪問
if_eveflg,42,>0
//毎年１７月に発生する
if_amon,17
//コルバトが出ていない間
if_eveflg,24,0
//プレイヤーは覇王
if_pkun,player,13000
//プレイヤーは惑星上にいる
if_pwid_on,player
//カンシは処女
if_virgin,356

if_rnd,3

eve_end
set_epid1,player
set_epid2,356
bgm_chg,25
zin_reg_init
zin_reg_event,スパイ疑惑,pid1,pid2,,gzin24

zin_reg_msg,カンシ、貴様まさか・・・,0
zin_reg_msg,えっ、p_name1様・・・？,1
zin_reg_msg,情報が漏れているとは思っていたが,0

zin_reg_msg,スパイは貴様か！？,0

zin_reg_msg,わ、私は何も知りません,1

zin_reg_msg,あくまでシラを切ると申すか,0
zin_reg_msg,ならそのカラダに,0
zin_reg_msg,聞いてみるとするか,0
zin_reg_msg,な、何を！？,1

bl_fadeout
bgm_chg,60
bl_fadein,gzin6
zin_reg_event,越後屋タイム,pid1,pid2,,gzin6

zin_reg_msg,言え、貴様はスパイか！,0
zin_reg_msg,ち、違います！誤解です！,1
zin_reg_msg,嘘を言うな！,0
zin_reg_msg,は、はうっ・・・,1
zin_reg_msg,フフ,0
zin_reg_msg,言わぬならそれでもよいのだぞ,0
zin_reg_msg,いや、やめて・・・,1
zin_reg_msg,よく見ればなかなかにいい身体をしておる,0
zin_reg_msg,や、やめて下さいp_name1様,1
zin_reg_msg,自らの潔白を証明したければ,0
zin_reg_msg,自分で脱ぐのだな,0
zin_reg_msg,や、やめて！,1

psn_putsex,2,356,1
set_non_virgin,356

zin_reg_msg,ぬぅん！！,0
zin_reg_msg,あう、あああ,1
zin_reg_msg,・・・この感触、この反応,0
zin_reg_msg,そなた、処女であったか,0
zin_reg_msg,ううう・・・私の,1
zin_reg_msg,さあ、本当のことを言え！,0

zin_reg_msg,は、はい・・・はうっ・・・,1
zin_reg_msg,む、無実ですp_name1様,1
zin_reg_msg,まだ言うか,0
zin_reg_msg,は・・・はうっ・・・,1
zin_reg_msg,はあ、い、いいぞ・・・,0
zin_reg_msg,よい身体だ,0
zin_reg_msg,そこらの村娘には出せぬ腰つきよ,0
zin_reg_msg,はああっ！！あ、あ、あああん,1
zin_reg_msg,これほどツヤのある肌,0
zin_reg_msg,そなた、どこの生まれだ？,0
zin_reg_msg,ル・・・あ・・・,1
zin_reg_msg,ホ、ホスエンでございます,1
zin_reg_msg,まあ、もうどうでもよいわ,0
zin_reg_msg,さあ、もっと腰を振れ,0
zin_reg_msg,は、はい・・・,1
zin_reg_msg,ううう・・・はああ,1
zin_reg_msg,はあ、い、いいぞ,0
zin_reg_msg,このまま中にぶちまけてやろう,0
zin_reg_msg,え、あの、いえそれは,1
zin_reg_msg,い、いくぞ,0
zin_reg_msg,やめて、やめて下さいまし,1

zin_reg_msg,p_name1様、どうか,1
zin_reg_msg,どうかそれだけは・・,1
zin_reg_msg,なら、スパイだと認めるのだな？,0
zin_reg_msg,い、いえ・・・,1
zin_reg_msg,では全て受け止めよ,0

zin_reg_msg,奥の奥まで注ぎ込んでやろうぞ,0
zin_reg_msg,おおおっ,0
zin_reg_msg,うっ！！！,0
zin_reg_msg,あ、あああ・・・・,1
zin_reg_msg,うううっ・・,1
zin_reg_msg,・・ード様・・,1

bl_fadeout
bl_fadein,gzin6
zin_reg_event,,pid1,pid2,,gzin6

zin_reg_msg,フフフ、悪くなかったぞ,0
zin_reg_msg,・・・・,1
zin_reg_msg,今日のところはここまでにしてやろう,0
zin_reg_msg,・・私の疑いは晴れたのでしょうか,1
zin_reg_msg,さあ、どうかな,0
zin_reg_msg,目立つ行動は控えることだ,0
zin_reg_msg,・・・はい・・・,1
zin_reg_button,0
zin_reg_exit
end

• その後もノコノコやってくるカンシを1/3の確率で凌辱

スクリプトの表示

eve_start

if_aft_date,92
//2回目以降訪問
if_eveflg,42,>0
//毎年１７月に発生する
if_amon,17
//コルバトが出ていない間
if_eveflg,24,0
//プレイヤーは覇王
if_pkun,player,13000
if_pwid_on,player
//カンシの処女膜がない
if_not_virgin,356
if_rnd,3

eve_end
set_epid1,player
set_epid2,356
bgm_chg,25
zin_reg_init
zin_reg_event,カンシへの疑惑,pid1,pid2,,gzin8

zin_reg_msg,カンシ、またうろうろしているのか,0
zin_reg_msg,p_name1様・・・,1
zin_reg_msg,さあ、奥へ来い,0

bl_fadeout
bgm_chg,60
bl_fadein,gzin6
zin_reg_event,運び屋の枕営業,pid1,pid2,,gzin6

zin_reg_msg,いつもどこから来て、どこへ行っているのやら,0

zin_reg_msg,そなた、本当は何者だ,0

zin_reg_msg,ただの運び屋ですよ,1

zin_reg_msg,またお決まりのセリフか,0
zin_reg_msg,ならばこうするまで,0
zin_reg_msg,あ、p_name1様・・・,1

zin_reg_msg,フフフ,0
zin_reg_msg,また愉しませてもらうとするか,0

psn_putsex,2,356,1

zin_reg_msg,さあ、正直に言うがいい,0
zin_reg_msg,この味が忘れられぬのであろう？,0
zin_reg_msg,あああ・・・す、すごい,1
zin_reg_msg,奥までぶち抜いてやろうぞ！,0

zin_reg_msg,あっ・・・はうっ・・・,1
zin_reg_msg,p_name1様の、堅い・・・,1
zin_reg_msg,あらゆる女を知り尽くしたこの身で,0
zin_reg_msg,そなたも喘ぐがよい,0
zin_reg_msg,あ、あ、あああん,1
zin_reg_msg,ぬうっ,0
zin_reg_msg,何度抱いても飽きぬ身体だ,0
zin_reg_msg,胸の張りも素晴らしい,0
zin_reg_msg,あっ、はっ・・・,1
zin_reg_msg,そ、そこはだめえ,1
zin_reg_msg,ここが感じるか,0
zin_reg_msg,あ、いいの、いいの・・・,1
zin_reg_msg,そこは弱いの、p_name1様・・・,1
zin_reg_msg,ワシもそろそろ限界だ,0
zin_reg_msg,いつものように注いでやる,0
zin_reg_msg,お願い、奥に・・・,1
zin_reg_msg,よかろう,0
zin_reg_msg,いくぞ！,0
zin_reg_msg,き、来てくださいませp_name1様,1
zin_reg_msg,おっ,0
zin_reg_msg,それっ！,0
zin_reg_msg,いっいっ,1
zin_reg_msg,いっちゃうううううっ！,1

bl_fadeout
bl_fadein,gzin6
zin_reg_event,,pid1,pid2,,gzin6

zin_reg_msg,さあ、口で綺麗にするのだ,0
zin_reg_msg,は、はい・・・,1
zin_reg_msg,ずいぶんと上達したではないか,0
zin_reg_msg,たびたび来るがよい,0
zin_reg_msg,はい、p_name1様・・・,1
zin_reg_button,0
zin_reg_exit
end

• SC91アモス奪還

スクリプトの表示

eve_start

if_date,91,2
//ザクソンがアキ領
if_hid,19,432
//バーセムがアキの配下
if_poid,69,432
//アモスがアグデッパの配下
if_poid,423,16
//eve6=4であること　ラーを引き入れ済み
if_eveflg,6,4

eve_end
bgm_chg,25
set_epid1,423//アモス
set_epid2,69//バーセム
set_epid3,432//アキ
zin_reg_init

zin_reg_event,アモス奪還,pid1,pid2,,gzin16
zin_reg_msg,ひさしぶりだな、アモス,1
zin_reg_msg,随分老けたんじゃないか,1
zin_reg_msg,お前はバーセム！,0
zin_reg_msg,なぜここに！？,0
zin_reg_msg,積もる話はあとだ,1
zin_reg_msg,アキ様のところに戻る気があるならついてこい,1
zin_reg_msg,なんだと！？,0
zin_reg_msg,だが、家族を置いてはいけぬ,0
zin_reg_msg,準備ができていないわけないだろう,1
zin_reg_msg,あとはお前だけだ,1
zin_reg_msg,・・・なるほど、ラーか,0
zin_reg_msg,ならこんなところにいる理由はないな,0
zin_reg_exit

bl_fadeout
bgm_chg,26
zin_reg_init

zin_reg_event,アモス奪還,pid3,pid1,,gzin8
zin_reg_msg,アキ様、数々のご無礼申し訳ありませぬ,1
zin_reg_msg,恥を忍んでおめおめと舞い戻ってまいりました,1
zin_reg_msg,よい！,0
zin_reg_msg,全てよいのだ、アモス,0
zin_reg_msg,アキ様・・・,1
zin_reg_msg,つらい目に合わせたな、許せ,0
zin_reg_msg,ただただ、お前が無事で良かった,0
zin_reg_msg,よく戻ってきてくれた,0
zin_reg_msg,アキ様！！,1
zin_reg_exit

zin_dialog,アモスは首都星に帰還します。
set_psts,423,2,432,19,11000,100,0//11000は将軍待遇10000分将待遇でもいいかも？
end

• バン専用旗艦汎用化

バンが専用旗艦を手に入れるイベント(e005)をプレイヤー時以外でも発生させる差し替えスクリプト
※★のコマンドをつかえば他の専用旗艦も同様に汎用化できる

スクリプトの表示

eve_start

//このイベントが発生する年月は90年2月
if_date,90,2
//バンがの生存確認（覇王か否かは問わない）
//条件式,キャラクターID(2=バン),命令オプション(0=状態ステート参照命令),2=着任中
if_chksts,2,0,2//★

eve_end
set_pid1,2,0
set_pid2,778,0
bgm_chg,48
zin_reg_init
zin_reg_event,旗艦ダンテライオ,pid1,pid2,,gzin8

zin_reg_msg,どうも、ＫＭＤです,1
zin_reg_msg,先日、ご注文いただいた件ですが・・・,1
zin_reg_msg,なに？crできたのか？,0
zin_reg_msg,はい。ご期待に添える物かと。,1
zin_reg_msg,さっそくご覧いただきたく,1
zin_reg_msg,よかろう、どこか？,0
zin_reg_msg,Ａ４８番ポートに接岸しております,1

zin_reg_event,旗艦ダンテライオ,pid1,pid2,zin37,gzin3

zin_reg_msg,おお、これか！！,0
zin_reg_msg,性能もご要望どおりのものです,1
zin_reg_msg,わがＫＭＤの最新技術のかたまりです,1
zin_reg_msg,そうか、なかなかのものだな,0
zin_reg_msg,ご満足いただけたようでなによりです,1
zin_reg_msg,よろしければ納品書にサインを・・・,1
zin_reg_msg,よかろう,0
zin_reg_msg,これからも頼むぞ,0
zin_reg_msg,お任せください,1

zin_reg_title,p_name1は旗艦を手に入れました
set_flagship,2,139
zin_reg_exit
end

---