神鳴/誕生日の設定＠里々

みかんさんがなんだか挑戦してらっしゃるようなのでCIMのをさらしてみる。読みにくいのはいつものこと。

祝う時は現在月と現在日を使えばOK。

こんな風にやってます。†

＊ススキ誕生日設定
＞ススキ誕生日再設定確認 （ユーザ誕生日を聞いた）＝＝１
＞ススキ誕生日初回設定

＊ススキ誕生日初回設定
ＳＳ（１１０）にゃ、（ユーザ名ススキ）の誕生日って、聞いてませんでしたね。
まずは・・・ええと、何月ですか？
（数字のみでお願いします）
\![open,inputbox,生まれ月]

• インプットボックスから入力してもらいます。

＊生まれ月を教えてもらった
＞ススキ生まれ月異常入力 （is_digit,（生まれ月））＝＝0｜｜（生まれ月）＜１｜｜（生まれ月）＞１２
ＳＳ（１０６）（生まれ月）月の・・・何日ですか？
（数字のみでお願いします）
\![open,inputbox,生まれ日]

• 数字でなかったとか、０とか１３とかありえない月だった場合は・・・

＊ススキ生まれ月異常入力
ＳＳ（１１０）（生まれ月）月・・・？
・・・間違えてませんか？

＿すまんφ、やっぱ後で ススキ誕生日消去
＿あーφ、間違えた ススキ誕生日再設定

• このように、確認を。

＊生まれ日を教えてもらった
＞ススキ生まれ日異常入力 （is_digit,（生まれ日））＝＝0
＞ススキ生まれ日異常入力 （生まれ日）＜１｜｜（生まれ日）＞３１
＞ススキ生まれ日異常入力 （生まれ月）＝＝２＆＆（生まれ日）＞２９
＞生まれ日チェック （生まれ月）＝＝４｜｜（生まれ月）＝＝６｜｜（生まれ月）＝＝９｜｜（生まれ月）＝＝１１
ＳＳ（１０６）・・・（生まれ月）月（生まれ日）日、ですね？

＿ああ ススキ誕生日確定
＿すまんφ、間違えた ススキ誕生日再設定

• こちらも数字でない、０や３２などありえない日の場合は確認へ。
• また、特定の月（３１日が存在しない月）では・・・

＊生まれ日チェック
＞生まれ日異常入力 （生まれ日）＞３０

• こうして３１日を弾きます。

＊ススキ生まれ日異常入力
ＳＳ（１１０）（生まれ月）月の（生まれ日）日・・・ですか？
・・・間違えてません？

＿すまんφ、やっぱ後で ススキ誕生日消去
＿あーφ、間違えた ススキ誕生日再設定

• 日の確認。

＊ススキ誕生日再設定
ＳＳ（１０９）ま、間違えたんですか？
（１０１）えっと・・・（１０６）では、改めて。
（１００）まず、何月ですか？
（数字のみでお願いします）
\![open,inputbox,生まれ月]

• 再設定。

＊ススキ誕生日消去
ＳＳ（１０９）そうですか・・・。
＄生まれ月
＄生まれ日
＄ユーザ誕生日を聞いた

• やっぱ後で、を選択すると消去。

＊生まれ月キャンセル
ＳＳ（１０９）ひみつ、ですか？

＿すまんφ、やっぱ後で ススキ誕生日消去
＿あーφ、間違えた ススキ誕生日再設定

• キャンセルされたらここに。
• キャンセル云々はまた気が向いたら。

＊生まれ日キャンセル
ＳＳ（１０９）ひみつ、ですか？

＿すまんφ、やっぱ後で ススキ誕生日消去
＿あーφ、間違えた ススキ誕生日再設定

• 日のキャンセル

＊ススキ誕生日確定
ＳＳ（１０６）（生まれ月）月、（生まれ日）日・・・。
・・・はい、覚えました。
＄ユーザ誕生日を聞いた １

• 設定した後、確認のために。

＊ススキ誕生日再設定確認
ＳＳ（１１０）（生まれ月）月（生まれ日）日・・・でしたよね？

＿ああ ススキ誕生日確認
＿すまんφ、間違えた ススキ誕生日再設定

• すでに設定してある場合、これが。

＊ススキ誕生日確認
ＳＳ（１０６）・・・ほっ。

• ・・・と、こんな感じ。