| 私はドラモンスターです。
↓イベントデータここから
For 文字パーツ番号 = 1 To 8
Switch 文字パーツ番号
Case 1
文字パーツ[文字パーツ番号] = Call("判定名$(Wide(文字パーツ番号))文字目選定")
Case 2 3
Do
Do
Do
文字パーツ[文字パーツ番号] = Call("判定名$(Wide(文字パーツ番号))文字目選定")
Loop While (文字パーツ[文字パーツ番号] = Call(子音算出,Right(文字パーツ[(文字パーツ番号 - 1)],1)))
#↑算出した文字が直前に算出した文字列の最後の文字の子音ではないかどうかをサブルーチン「子音算出」を使って調査し、同じであれば算出をやり直す。
Loop While (InStr(文字パーツ[(文字パーツ番号 - 1)],文字パーツ[文字パーツ番号]) <> 0)
#↑算出した文字が直前に算出した文字列の中にないかどうかを調査し、入っていれば算出をやり直す。
Loop While (Call(拗音判定,文字パーツ[文字パーツ番号]) = Call(拗音判定,文字パーツ[(文字パーツ番号 - 1)]))
#↑算出した文字と直前に算出した文字列が共に拗音であるかをサブルーチン「拗音判定」を使って調査し、共に拗音であった場合は算出をやり直す。
Case 4
Switch Random(4)
Case 1
文字パーツ[文字パーツ番号] = ー
If Random(100) <= 50 Then
For 残り文字列 = (文字パーツ番号 + 1) To 8
文字パーツ[残り文字列] = ""
Next
Break
EndIf
#↑５０％の確率で残りの文字列に空文字列を代入して処理を終了する。
Case 2
文字パーツ[文字パーツ番号] = ン
If Random(100) <= 50 Then
For 残り文字列 = (文字パーツ番号 + 1) To 8
文字パーツ[残り文字列] = ""
Next
Break
EndIf
#↑５０％の確率で残りの文字列に空文字列を代入して処理を終了する。
Case 3
文字パーツ[文字パーツ番号] = ッ
Case 4
文字パーツ[文字パーツ番号] = ""
EndSw
Case 5
Switch 文字パーツ[4]
Case ッ
Do
Do
Do
文字パーツ[文字パーツ番号] = Call("判定名$(Wide(文字パーツ番号))文字目選定第１処理")
Loop While (文字パーツ[文字パーツ番号] = Call(子音算出,Right(文字パーツ[(文字パーツ番号 - 2)],1)))
#↑算出した文字が直前に算出した文字列の最後の文字の子音ではないかどうかをサブルーチン「子音算出」を使って調査し、同じであれば算出をやり直す。
Loop While (InStr(文字パーツ[(文字パーツ番号 - 2)],文字パーツ[文字パーツ番号]) <> 0)
#↑算出した文字が直前に算出した文字列の中にないかどうかを調査し、入っていれば算出をやり直す。
Loop While (Call(拗音判定,文字パーツ[文字パーツ番号]) = Call(拗音判定,文字パーツ[(文字パーツ番号 - 2)]))
#↑算出した文字と直前に算出した文字列が共に拗音であるかをサブルーチン「拗音判定」を使って調査し、共に拗音であった場合は算出をやり直す。
Switch 文字パーツ[文字パーツ番号]
Case ン ス
If Random(100) <= 50 Then
For 残り文字列 = (文字パーツ番号 + 1) To 8
文字パーツ[残り文字列] = ""
Next
Break
EndIf
#↑５０％の確率で残りの文字列に空文字列を代入して処理を終了する。
EndSw
Case Else
Do
Do
Do
文字パーツ[文字パーツ番号] = Call("判定名$(Wide(文字パーツ番号))文字目選定第２処理")
Loop While (文字パーツ[文字パーツ番号] = Call(子音算出,Right(文字パーツ[(文字パーツ番号 - 2)],1)))
#↑算出した文字が直前に算出した文字列の最後の文字の子音ではないかどうかをサブルーチン「子音算出」を使って調査し、同じであれば算出をやり直す。
Loop While (InStr(文字パーツ[(文字パーツ番号 - 2)],文字パーツ[文字パーツ番号]) <> 0)
#↑算出した文字が直前に算出した文字列の中にないかどうかを調査し、入っていれば算出をやり直す。
Loop While (Call(拗音判定,文字パーツ[文字パーツ番号]) = Call(拗音判定,文字パーツ[(文字パーツ番号 - 2)]))
#↑算出した文字と直前に算出した文字列が共に拗音であるかをサブルーチン「拗音判定」を使って調査し、共に拗音であった場合は算出をやり直す。
Switch 文字パーツ[文字パーツ番号]
Case ン ス
If Random(100) <= 50 Then
For 残り文字列 = (文字パーツ番号 + 1) To 8
文字パーツ[残り文字列] = ""
Next
Break
EndIf
#↑５０％の確率で残りの文字列に空文字列を代入して処理を終了する。
EndSw
EndSw
Case 6
Do
Do
Do
文字パーツ[文字パーツ番号] = Call("判定名$(Wide(文字パーツ番号))文字目選定")
Loop While (文字パーツ[文字パーツ番号] = Call(子音算出,Right(文字パーツ[(文字パーツ番号 - 1)],1)))
#↑算出した文字が直前に算出した文字列の最後の文字の子音ではないかどうかをサブルーチン「子音算出」を使って調査し、同じであれば算出をやり直す。
Loop While (InStr(文字パーツ[(文字パーツ番号 - 1)],文字パーツ[文字パーツ番号]) <> 0)
#↑算出した文字が直前に算出した文字列の中にないかどうかを調査し、入っていれば算出をやり直す。
Loop While (Call(拗音判定,文字パーツ[文字パーツ番号]) = Call(拗音判定,文字パーツ[(文字パーツ番号 - 1)]))
#↑算出した文字と直前に算出した文字列が共に拗音であるかをサブルーチン「拗音判定」を使って調査し、共に拗音であった場合は算出をやり直す。
If 文字パーツ[(文字パーツ番号 - 1)] = エ Then
If 文字パーツ[文字パーツ番号] = ル Then
Break
EndIf
EndIf
Switch 文字パーツ[文字パーツ番号]
Case ン ス ー ル
If Random(100) <= 50 Then
For 残り文字列 = (文字パーツ番号 + 1) To 8
文字パーツ[残り文字列] = ""
Next
Break
EndIf
#↑５０％の確率で残りの文字列に空文字列を代入して処理を終了する。
EndSw
Case 7
Do
Do
文字パーツ[文字パーツ番号] = Call("判定名$(Wide(文字パーツ番号))文字目選定")
Loop While (文字パーツ[文字パーツ番号] = Call(子音算出,Right(文字パーツ[(文字パーツ番号 - 1)],1)))
#↑算出した文字が直前に算出した文字列の最後の文字の子音ではないかどうかをサブルーチン「子音算出」を使って調査し、同じであれば算出をやり直す。
Loop While (InStr(文字パーツ[(文字パーツ番号 - 1)],文字パーツ[文字パーツ番号]) <> 0)
#↑算出した文字が直前に算出した文字列の中にないかどうかを調査し、入っていれば算出をやり直す。
Switch 文字パーツ[文字パーツ番号]
#↑算出した文字と直前に算出した文字列が共に拗音であるかをサブルーチン「拗音判定」を使って調査し、共に拗音であった場合は算出をやり直す。
Case ン ス ル ー ア
For 残り文字列 = (文字パーツ番号 + 1) To 8
文字パーツ[残り文字列] = ""
Next
Break
#↑残りの文字列に空文字列を代入して処理を終了する。
EndSw
Case 8
Do
Do
文字パーツ[文字パーツ番号] = Call("判定名$(Wide(文字パーツ番号))文字目選定")
Loop While (文字パーツ[文字パーツ番号] = Call(子音算出,Right(文字パーツ[(文字パーツ番号 - 1)],1)))
#↑算出した文字が直前に算出した文字列の最後の文字の子音ではないかどうかをサブルーチン「子音算出」を使って調査し、同じであれば算出をやり直す。
Loop While (InStr(文字パーツ[(文字パーツ番号 - 1)],文字パーツ[文字パーツ番号]) <> 0)
#↑算出した文字が直前に算出した文字列の中にないかどうかを調査し、入っていれば算出をやり直す。
EndSw
Next
共通名候補 = "$(文字パーツ[1])$(文字パーツ[2])$(文字パーツ[3])$(文字パーツ[4])$(文字パーツ[5])$(文字パーツ[6])$(文字パーツ[7])$(文字パーツ[8])"
子音算出:
Local 子音
Switch Args(1)
Case ア カ サ タ ナ ハ マ ヤ ラ ワ バ パ キャ ギャ ジャ シャ ツァ クァ ァ ファ ヒャ チャ ニャ ミャ リャ ガ ダ ザ テャ デャ トァ ドァ
子音 = ア
Case イ キ シ チ ニ ヒ ミ リ ビ ピ キィ ギィ ジィ シィ ツィ クィ ィ フィ ヒィ チィ ニィ ミィ リィ ギ ヂ ジ ティ ディ トィ ドィ
子音 = イ
Case ウ ク ス ツ ヌ フ ム ユ ル ブ プ キュ ギュ ジュ シュ クゥ ゥ ヒュ チュ ニュ ミュ リュ グ ヅ ズ テュ デュ トゥ ドゥ
子音 = ウ
Case エ ケ セ テ ネ ヘ メ レ ベ ペ キェ ギェ ジェ シェ ツェ クェ ェ フェ ヒェ チェ ニェ ミェ リェ ゲ デ ゼ テェ デェ トェ ドェ
子音 = エ
Case オ コ ソ ト ノ ホ モ ヨ ロ ヲ ボ ポ キョ ギョ ジョ ショ ツォ クォ ォ フォ ヒョ チョ ニョ ミョ リョ ゴ ド ゾ テョ デョ トォ ドォ
子音 = オ
Case ン
子音 = ン
EndSw
Return 子音
拗音判定:
Local 結果
Switch Args(1)
Case キャ ギャ ジャ シャ ツァ クァ ファ ヒャ チャ ニャ ミャ リャ テャ デャ トァ ドァ キィ ギィ ジィ シィ ツィ クィ フィ ヒィ チィ ニィ ミィ リィ ティ ディ トィ ドィ キュ ギュ ジュ シュ クゥ ヒュ チュ ニュ ミュ リュ テュ デュ トゥ ドゥ キェ ギェ ジェ シェ ツェ クェ フェ ヒェ チェ ニェ ミェ リェ テェ デェ トェ ドェ キョ ギョ ジョ ショ ツォ クォ ォ フォ ヒョ チョ ニョ ミョ リョ テョ デョ トォ ドォ
結果 = 拗音
Case Else
結果 = それ以外
EndSw
Return 結果
↑イベントデータここまで
判定名１文字目選定〜判定名８文字目選定のサブルーチンはそれぞれ１音を表す片仮名（判定名１文字目選定は２音も多い）をランダムに返すサブルーチンですが、
長い上に単調なので、省略しています。
上記のイベントは名前付きザコに使用しようとしている名前算出用のサブルーチンです。
Doコマンドの連続のせいかとも思いましたが、処理を１回だけならフリーズはしませんでした。
動作しないと思われるDoコマンドの修復を行ったところフリーズするようになりました。
どうすれば正常に動くようになるのでしょうか。
エラーは出ていません。
最後の「共通名候補」に実際に使われる名前が入るようになっています。
|
新着情報