ユーザ名設定。こんなに細かく設定する必要は既知宇宙の中に不在すぎ。 *ユーザ名設定 $元ユーザ名 (ユーザ名) :(0)この中に入力してエンター。 その気がなくなったときは、枠をつついてみて。 \![open,inputbox,ユーザ名,-1] *ユーザ名を教えてもらった >ユーザ名名無し (is_empty、(R1))==1 >ユーザ名名無し "(erase、(R1)、  )"=="" >ユーザ名変わってない (元ユーザ名)==(ユーザ名) >ユーザ名ご主人様 (ユーザ名)==奥さま >ユーザ名ご主人様 (ユーザ名)==奥様 >ユーザ名ご主人様 (count、(ユーザ名)、旦那様)==1 >ユーザ名ご主人様 (count、(ユーザ名)、だんな様)==1 >ユーザ名ご主人様 (count、(ユーザ名)、だんなさま)==1 >ユーザ名ご主人様 (count、(ユーザ名)、旦那さま)==1 >ユーザ名ご主人様 (count、(ユーザ名)、ご主人)==1 >ユーザ名ご主人様 (count、(ユーザ名)、御主人)==1 >ユーザ名ご主人様 (ユーザ名)==マスター >ユーザ名お兄ちゃん (count、(ユーザ名)、お兄)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、おにぃ)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、おにい)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、おにー)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、御兄)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、兄さま)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、兄様)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、にぃにぃ)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、にーにー)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、にいにい)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、あにい)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、あにぃ)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、兄上)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、あにうえ)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、にいちゃん)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、にぃちゃん)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、にーちゃん)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、あにうえ)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、にいさま)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、にぃさま)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、兄貴)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、アニキ)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、あにき)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、兄くん)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、兄君)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、あにくん)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、あにあに)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、兄チャマ)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、あにちゃま)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、兄や)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、にいや)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、にぃや)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、にーや)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、ニィヤ)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、にーたん)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、にぃたん)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、お父)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、御父)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、父さん)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、父様)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、父さま)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、おじさま)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、叔父)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、伯父)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、お爺)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、御爺)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、旦那)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、だんな)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、お坊ちゃま)==1 >ユーザ名お兄ちゃん (count、(ユーザ名)、パパ)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、お姉)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、おねぇ)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、おねえ)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、おねー)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、御姉)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、ねえねえ)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、ねーねー)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、ねぇねぇ)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、あねえ)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、あねぇ)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、あねー)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、姉上)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、あねうえ)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、ねえちゃん)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、ねぇちゃん)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、ねーちゃん)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、ねえさま)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、ねぇさま)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、姉様)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、姉さま)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、姉貴)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、アネキ)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、姉御)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、アネゴ)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、姐御)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、あねき)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、姉くん)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、姉君)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、あねくん)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、あねあね)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、姉チャマ)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、あねちゃま)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、姉や)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、ねえや)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、ねぇや)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、ねーや)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、ネエヤ)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、ねーたん)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、ねぇたん)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、お婆)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、御婆)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、お母)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、母さん)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、母さま)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、母様)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、御母)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、おばさま)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、叔母)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、伯母)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、お嬢)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、御嬢)==1 >ユーザ名お姉ちゃん (count、(ユーザ名)、ママ)==1 >ユーザ名お兄ちゃんっぽい (count、(ユーザ名)、兄)==1 >ユーザ名お兄ちゃんっぽい2 (count、(ユーザ名)、にい)==1 >ユーザ名お兄ちゃんっぽい2 (count、(ユーザ名)、にぃ)==1 >ユーザ名ご主人様っぽい (string,match,(ユーザ名),/様\Z/) >ユーザ名ご主人様っぽい (string,match,(ユーザ名),/さま\Z/) >ユーザ名お姉ちゃんっぽい (count、(ユーザ名)、姉)==1 >ユーザ名お姉ちゃんっぽい (count、(ユーザ名)、姐)==1 >ユーザ名お姉ちゃんっぽい2 (count、(ユーザ名)、ねえ)==1 >ユーザ名お姉ちゃんっぽい2 (count、(ユーザ名)、ねぇ)==1 >ユーザ名子供っぽい (string,match,(ユーザ名),/ちゃん\Z/) >ユーザ名萌えキャラっぽい (string,match,(ユーザ名),/たん\Z/) >ユーザ名萌えキャラっぽい (string,match,(ユーザ名),/タン\Z/) >ユーザ名萌えキャラっぽい2 (string,match,(ユーザ名),/きゅん\Z/) >ユーザ名萌えキャラっぽい2 (string,match,(ユーザ名),/キュン\Z/) #>ユーザ名ポチ (ユーザ名)==ポチ #>ユーザ名ポチ (count、(ユーザ名)、雄豚)==1 #>ユーザ名ポチ (count、(ユーザ名)、雌豚)==1 #>ユーザ名ポチ (count、(ユーザ名)、デブヲタ)==1 #>ユーザ名ポチ (count、(ユーザ名)、ガリヲタ)==1 #>ユーザ名ポチ (ユーザ名)==ブタ野郎 # #さすがにあんまり、というかそっち方向のイベントを作る気力が沸かないのでコメントアウト。 #お兄ちゃん、とかならそういう呼び名の時専用のイベントを作る気にもなれるが。 >ユーザ名ヴィイ (ユーザ名)==ヴィイ >ユーザ名ウタゲ (ユーザ名)==ウタゲ >ユーザ名正常終了 *ユーザ名お兄ちゃん $現在名兄姉主犬 1 >ユーザ名変だけど経験済み (お兄ちゃん経験)>0 $お兄ちゃん経験=(お兄ちゃん経験)+1 >ユーザ名お兄ちゃん男 (男確定)>0 >ユーザ名お兄ちゃん女 (女確定)>0 >ユーザ名お兄ちゃん性別不確定 *ユーザ名お兄ちゃん性別不確定 :(0)……(ユーザ名)、って?\w7 ええと……本気? それに、男の人だったの? _「男だよ」 ユーザ名兄男だよ _「女だよ」 ユーザ名兄女だよ _「冗談だよ」 ユーザ名冗談 *ユーザ名お兄ちゃん男 :(0)(ユーザ名)、って?\w7 ええと……本気? _「嫌?」 ユーザ名兄嫌ですか _「冗談だよ」 ユーザ名冗談 *ユーザ名お兄ちゃん女 :(0)……(ユーザ名)、って、あなた女でしょう? _「嫌?」 ユーザ名兄嫌ですか女 _「冗談だよ」 ユーザ名冗談 *ユーザ名兄男だよ $性別確定 1 $女確定 0 $男確定 1 :(0)それなら別に……いや、それでもちょっと……\w7 (1)……まあ、いいか。\w9\w5 (0)(ユーザ名)? 改めて、よろしくね。\x >読み仮名判定2 *ユーザ名兄女だよ :(3)……え?\w7 ねえ、もう一度聞くけど、本当にいいの? _「当然」 ユーザ名兄当然の如く _「冗談だよ」 ユーザ名冗談 *ユーザ名兄当然の如く $性別確定 1 $女確定 1 $男確定 0 :(1)……。\w7 じゃ、じゃあ、女の人だけど……(ユーザ名)? その、よろしく。\x >読み仮名判定2 *ユーザ名兄嫌ですか :(1)嫌っていうほどじゃ、ないけど……\w9\w5 (6)……分かった、それでいいよ。\w7 (0)改めてよろしく、……(ユーザ名)。\x >読み仮名判定2 *ユーザ名兄嫌ですか女 :(1)え?\w7 だって、嫌とかそういう事じゃなくて、あの…… _「じゃあ、いい?」 ユーザ名兄当然の如く _「冗談だよ」 ユーザ名冗談 *ユーザ名お兄ちゃんっぽい :(0)(ユーザ名)……兄?\w7 ううん、別にいいけど…… 間違っていたりしないわよね? _「もちろん」 _「ごめん」 *ユーザ名お兄ちゃんっぽい2 :(0)(ユーザ名)……にぃ?\w7 ううん、別にいいけど…… 間違っていたりしないわよね? _「もちろん」 _「ごめん」 *ユーザ名お姉ちゃん $現在名兄姉主犬 2 >ユーザ名変だけど経験済み (お姉ちゃん経験)>0 $お姉ちゃん経験=(お姉ちゃん経験)+1 >ユーザ名お姉ちゃん男 (男確定)>0 >ユーザ名お姉ちゃん女 (女確定)>0 >ユーザ名お姉ちゃん性別不確定 *ユーザ名お姉ちゃん性別不確定 :(0)……(ユーザ名)、って?\w7 ええと……本気? それに、女の人だったの? _「男だよ」 ユーザ名姉男だよ _「女だよ」 ユーザ名姉女だよ _「冗談だよ」 ユーザ名冗談 *ユーザ名お姉ちゃん女 :(0)……(ユーザ名)、って?\w7 ええと……本気? _「嫌?」 ユーザ名姉嫌ですか _「冗談だよ」 ユーザ名冗談 *ユーザ名お姉ちゃん男 :(0)……(ユーザ名)、って、あなた男でしょう? _「嫌?」 ユーザ名姉嫌ですか男 _「冗談だよ」 ユーザ名冗談 *ユーザ名姉女だよ $性別確定 1 $女確定 1 $男確定 0 :(0)それなら別に……いや、それでもちょっと……\w7 (1)……まあ、いいか。\w9\w5 (0)(ユーザ名)? 改めて、よろしくね。\x >読み仮名判定2 *ユーザ名姉男だよ :(3)……え?\w7 ねえ、もう一度聞くけど、本当にいいの? _「当然」 ユーザ名姉当然の如く _「冗談だよ」 ユーザ名冗談 *ユーザ名姉当然の如く $性別確定 1 $女確定 0 $男確定 1 :(1)……。\w7 じゃ、じゃあ、男の人だけど……(ユーザ名)? その、よろしく。\x >読み仮名判定2 *ユーザ名姉嫌ですか :(1)嫌っていうほどじゃ、ないけど……\w9\w5 (6)……分かった、それでいいよ。\w7 (0)改めてよろしく、……(ユーザ名)。\x >読み仮名判定2 *ユーザ名姉嫌ですか男 :(1)え?\w7 だって、嫌とかそういう事じゃなくて、あの…… _「じゃあ、いい?」 ユーザ名姉当然の如く _「冗談だよ」 ユーザ名冗談 *ユーザ名お姉ちゃんっぽい :(0)(ユーザ名)……姉?\w7 ううん、別にいいけど…… 間違っていたりしないわよね? _「もちろん」 _「ごめん」 *ユーザ名お姉ちゃんっぽい2 :(0)(ユーザ名)……ねぇ?\w7 ううん、別にいいけど…… 間違っていたりしないわよね? _「もちろん」 _「ごめん」 *ユーザ名ご主人様 $現在名兄姉主犬 3 >ユーザ名変だけど経験済み (ご主人様経験)>0 $ご主人様経験=(ご主人様経験)+1 :(0)……(ユーザ名)?\w9\w5 (1)どうしても呼んで欲しいなら、それでもいいけど…… _「どうしても」 ユーザ名どうしても _「冗談だよ」 ユーザ名冗談 *ユーザ名どうしても :(1)……ん。\w9\w5 (0)(ユーザ名)。\w7 よろしくお願い、します……\x >読み仮名判定2 *ユーザ名ご主人様っぽい :(0)(ユーザ名)……様?\w7 ううん、別にいいけど…… 間違っていたりしないわよね? _「もちろん」 _「ごめん」 *ユーザ名子供っぽい :(0)(ユーザ名)……ちゃん?\w7 ううん、別にいいけど…… 間違っていたりしないわよね? _「もちろん」 _「ごめん」 *ユーザ名萌えキャラっぽい :(0)(ユーザ名)……たん? 噂に聞く萌えキャラ?\w7 ううん、別にいいけど…… 間違っていたりしないわよね? _「もちろん」 _「ごめん」 *ユーザ名萌えキャラっぽい2 :(0)(ユーザ名)……きゅん? 噂に聞く萌えキャラ?\w7 ううん、別にいいけど…… 間違っていたりしないわよね? _「もちろん」 _「ごめん」 *ユーザ名ポチ $現在名兄姉主犬 4 >ユーザ名変だけど経験済み (ポチ経験)>0 $ポチ経験=(ポチ経験)+1 :(0)(ユーザ名)……\w9\w5(7)(ユーザ名)!? _「呼んでください」 ユーザ名呼んで _「冗談だよ」 ユーザ名冗談 *ユーザ名呼んで :(1)……………………(ユーザ名)。\w7 あ、あなたがいいなら、そう呼ぶ……\x >読み仮名判定2 *ユーザ名ヴィイ :(6)それ、私の名前。\w7 それとも、本当にその名前でいいの? _「そうだよ」 ユーザ名その通り _「冗談だよ」 ユーザ名冗談 *ユーザ名ウタゲ :(0)それ、私の姉の名前……\w7 あなたも、この名前を使ってるの? _「そうだよ」 ユーザ名その通り _「冗談だよ」 ユーザ名冗談 *ユーザ名その通り :(0)それならそれでいいわ。\w7 (ユーザ名)。\w7……唯一の名前じゃないしね。\x >読み仮名判定2 *ユーザ名冗談 $現在名兄姉主犬 0 :(0)……じゃあ、もう一度。 $元ユーザ名 (ユーザ名) \![open,inputbox,ユーザ名] *ユーザ名変わってない :(元ユーザ名)から(ユーザ名)に変更……(あれ、って) 変えなくても、いいの? _「いいよ」 なんでもない _「やっぱり変える」 ユーザ名冗談 @あれ、って あれ? え? って、 *ユーザ名名無し $ユーザ名 (元ユーザ名) :(0)名前が入ってない。 間違って押しちゃった?\![open,inputbox,ユーザ名] *ユーザ名変だけど経験済み :(6)……今更、驚かないけど。\w9\w5 (0)いちおう確認しておくわ。本当にそれでいい? _「構わない」 ユーザ名構わない _「やっぱり変える」 ユーザ名冗談 *ユーザ名構わない :(6)よろしく、(ユーザ名)。\w9\w5 (1)……こんな反応で、いいの?\x >読み仮名判定2 *ユーザ名正常終了 $現在名兄姉主犬 0 :(0)(ユーザ名)、か。覚えたわ。 間違っていたりしないわよね? _「もちろん」 _「ごめん」 *「もちろん」 >ユーザ名紹介前 (変数「自己紹介済みフラグ」の存在)==0 :(0)当然、ね。\x \c(6)(ユーザ名)。\w7 ……改めて、よろしくお願いします。\x >読み仮名判定2 *ユーザ名紹介前 $自己紹介済みフラグ 1 :(6)……(ユーザ名)。\w7 (ユーザ名)。\w7 (ユーザ名)。\x \c(5)覚えたよ。\w7 これから、よろしくね。\x >読み仮名判定2 *「ごめん」 :(6)……もう一回。 $元ユーザ名 (ユーザ名) \![open,inputbox,ユーザ名] (0)別に、繰り返しても怒ったりしないから。 *読み仮名判定 $ユーザ読み null $ユーザ読み (kata2hira,(ユーザ名)) $ユーザ読み (replace,(ユーザ読み),ヴぁ,ば) $ユーザ読み (replace,(ユーザ読み),ヴぃ,び) $ユーザ読み (replace,(ユーザ読み),ヴぇ,べ) $ユーザ読み (replace,(ユーザ読み),ヴぉ,ぼ) $ユーザ読み (replace,(ユーザ読み),ヴ,ぶ) (set,ユーザ読み,(if,(ユーザ名)==ご主人様,ごしゅじんさま,(ユーザ読み))) (set,ユーザ読み,(if,(ユーザ名)==お兄ちゃん,おにいちゃん,(ユーザ読み))) (set,ユーザ読み,(if,(ユーザ名)==お姉様,おねえさま,(ユーザ読み))) (ユーザ読み語尾決定) >読み仮名読めない (string,match,(ユーザ読み),/[^ぁ-んー−―、。・゛゜]+/k)==1 >読み仮名決定 *読み仮名判定2 $ユーザ読み null $ユーザ読み (kata2hira,(ユーザ名)) $ユーザ読み (replace,(ユーザ読み),ヴぁ,ば) $ユーザ読み (replace,(ユーザ読み),ヴぃ,び) $ユーザ読み (replace,(ユーザ読み),ヴぇ,べ) $ユーザ読み (replace,(ユーザ読み),ヴぉ,ぼ) $ユーザ読み (replace,(ユーザ読み),ヴ,ぶ) (set,ユーザ読み,(if,(ユーザ名)==ご主人様,ごしゅじんさま,(ユーザ読み))) (set,ユーザ読み,(if,(ユーザ名)==お兄ちゃん,おにいちゃん,(ユーザ読み))) (set,ユーザ読み,(if,(ユーザ名)==お姉様,おねえさま,(ユーザ読み))) (ユーザ読み語尾決定) >読み仮名読めない2 (string,match,(ユーザ読み),/[^ぁ-んー−―、。・゛゜]+/k)==1 *読み仮名決定 (ユーザ読み語尾決定) (call、感情、4、60、0) :(26)ん、(ユーザ読み)(語尾延ばし)……? いたのぉ……?\w9\w5 ……ごめん。ちょっとさっきまでお酒飲んでて、まだアルコールが残ってるみたい、なの。\w9 あと一分で消化するから、ちょっと待ってて…… *読み仮名読めない $ユーザ読み (ユーザ名) :(6)こんにちは、(ユーザ名)。\w9\n[half] (0)……あ。そういえば、ひとつ確認しておきたい事があるの。\w9 私、あなたの名前の読み方、まだ聞いてないよね? _教えてあげる ユーザ読み教える _後で教える ユーザ読み後で *読み仮名読めない2 $ユーザ読み (ユーザ名) :\c(0)……そうだ、ついでに名前の読み方も教えてくれる? 入力は、全部ひらがなでお願い。\![open,inputbox,ユーザ読み,-1] *ユーザ読み後で $ユーザ読み教えてないフラグ 1 $特定会話カウンタ=(特定会話カウンタ)+1 :(6)ん。\w7 それじゃ、気が向いた時にお願い。 *ユーザ読み教える :(8)ありがと。 それじゃ、ここにね……あ、ちなみに入力は全部ひらがなでね。\![open,inputbox,ユーザ読み,-1]\w7 (6)あと、もし後から読みを変えたくなったら、メニューで名前を再設定した後にでも私から聞くから。 *特定会話読み教える $ユーザ読み教えてないフラグ 0 $特定会話カウンタ=(特定会話カウンタ)−1 :(8)あ、教えてくれるの? それじゃ、ここにね……あ、ちなみに入力は全部ひらがなでね。\![open,inputbox,ユーザ読み,-1]\w7 (6)あと、もし後から読みを変えたくなったら、メニューで名前を再設定した後にでも私から聞くから。 *ユーザ読みを教えてもらった >ユーザ読み名無し (is_empty、(R1))==1 >ユーザ読み名無し "(erase、(R1)、  )"=="" >読み仮名無理 (string,match,(ユーザ読み),/[^ぁ-んァ-ヶー−、。・゛゜―]+/k)==1||(string,match,(substr,(ユーザ読み),(calc,(length,(ユーザ読み))−1),1),/[^ぁ-んァ-ヶー−―]+/k)==1 >読み仮名カナ混じり (string,match,(ユーザ読み),/[^ぁ-んー−、。・゛゜―]+/k)==1 >ユーザ読み確認 *読み仮名無理 :(3)……ごめん。それじゃ読めないよ、(ユーザ名)。\![open,inputbox,ユーザ読み,-1] *読み仮名カナ混じり $ユーザ読み (kata2hira,(ユーザ読み)) $ユーザ読み (replace,(ユーザ読み),ヴぁ,ば) $ユーザ読み (replace,(ユーザ読み),ヴぃ,び) $ユーザ読み (replace,(ユーザ読み),ヴぇ,べ) $ユーザ読み (replace,(ユーザ読み),ヴぉ,ぼ) $ユーザ読み (replace,(ユーザ読み),ヴ,ぶ) :(3)……ひらがなで、って言ったのに。\w9 ええと、(ユーザ読み)? これでいいの? _「いいよ」 ユーザ読み入力終了 _「ちょっと違う」 ユーザ読み再入力 *ユーザ読み確認 :(ユーザ読み)か。 念のため確認しておくけど、これでいいんだよね? _「もちろん」 ユーザ読み入力終了 _「あっ」 ユーザ読み再入力 *ユーザ読み名無し $ユーザ読み (ユーザ名) :(0)名前が入ってない。 間違って押しちゃった?\![open,inputbox,ユーザ読み,-1] *ユーザ読み再入力 :(6)……じゃあ、もう一回。\![open,inputbox,ユーザ読み,-1] *ユーザ読みメニュー入力 :(6)それじゃ、あなたの名前の読みがなをここに書いてね。\![open,inputbox,ユーザ読み,-1] \w7 いちおう、全部ひらがなでね? お願い。 *ユーザ読み入力終了 >ユーザ読み入力終了2 (ユーザ読み教えてないフラグ)==1 (ユーザ読み語尾決定) :(6)……ん、分かった。\w9\n[half] これも、ちゃんと覚えておくから…… *ユーザ読み入力終了2 $ユーザ読み教えてないフラグ 0 $特定会話カウンタ=(特定会話カウンタ)−1 (ユーザ読み語尾決定) :(6)……ん、分かった。\w9\n[half] これも、ちゃんと覚えておくから…… *ユーザ読み語尾決定 (set,ユーザ読み語尾,(iflist、(substr,(ユーザ読み),(calc,(length,(ユーザ読み))−1),1)、 ==あ、ぁ、 ==ぁ、ー、 ==か、ぁ、 ==が、ぁ、 ==さ、ぁ、 ==ざ、ぁ、 ==た、ぁ、 ==だ、ぁ、 ==な、ぁ、 ==は、ぁ、 ==ば、ぁ、 ==ぱ、ぁ、 ==ま、ぁ、 ==や、ぁ、 ==ゃ、ぁ、 ==ら、ぁ、 ==ゎ、ぁ、 ==わ、ぁ、 ==い、ぃ、 ==ぃ、ー、 ==き、ぃ、 ==ぎ、ぃ、 ==し、ぃ、 ==じ、ぃ、 ==ち、ぃ、 ==ぢ、ぃ、 ==に、ぃ、 ==ひ、ぃ、 ==び、ぃ、 ==ぴ、ぃ、 ==み、ぃ、 ==ゐ、ぃ、 ==り、ぃ、 ==う、ぅ、 ==ぅ、ー、 ==く、ぅ、 ==ぐ、ぅ、 ==す、ぅ、 ==ず、ぅ、 ==つ、ぅ、 ==づ、ぅ、 ==ぬ、ぅ、 ==ふ、ぅ、 ==ぶ、ぅ、 ==ぷ、ぅ、 ==む、ぅ、 ==ゆ、ぅ、 ==ゅ、ぅ、 ==る、ぅ、 ==ん、ー、 ==え、ぇ、 ==ぇ、ー、 ==け、ぇ、 ==げ、ぇ、 ==せ、ぇ、 ==ぜ、ぇ、 ==て、ぇ、 ==で、ぇ、 ==ね、ぇ、 ==へ、ぇ、 ==べ、ぇ、 ==ぺ、ぇ、 ==め、ぇ、 ==れ、ぇ、 ==ゑ、ぇ、 ==お、ぉ、 ==ぉ、ー、 ==こ、ぉ、 ==ご、ぉ、 ==そ、ぉ、 ==ぞ、ぉ、 ==と、ぉ、 ==ど、ぉ、 ==の、ぉ、 ==ほ、ぉ、 ==ぼ、ぉ、 ==ぽ、ぉ、 ==も、ぉ、 ==よ、ぉ、 ==ょ、ー、 ==ろ、ぉ、 ==を、ー、 ))