みかんさんがなんだか挑戦してらっしゃるようなのでCIMのをさらしてみる。読みにくいのはいつものこと。
祝う時は現在月と現在日を使えばOK。
こんな風にやってます。†
*ススキ誕生日設定
>ススキ誕生日再設定確認 (ユーザ誕生日を聞いた)==1
>ススキ誕生日初回設定
*ススキ誕生日初回設定
SS(110)にゃ、(ユーザ名ススキ)の誕生日って、聞いてませんでしたね。
まずは・・・ええと、何月ですか?
(数字のみでお願いします)
\![open,inputbox,生まれ月]
*生まれ月を教えてもらった
>ススキ生まれ月異常入力 (is_digit,(生まれ月))==0||(生まれ月)<1||(生まれ月)>12
SS(106)(生まれ月)月の・・・何日ですか?
(数字のみでお願いします)
\![open,inputbox,生まれ日]
- 数字でなかったとか、0とか13とかありえない月だった場合は・・・
*ススキ生まれ月異常入力
SS(110)(生まれ月)月・・・?
・・・間違えてませんか?
_すまんφ、やっぱ後で ススキ誕生日消去
_あーφ、間違えた ススキ誕生日再設定
*生まれ日を教えてもらった
>ススキ生まれ日異常入力 (is_digit,(生まれ日))==0
>ススキ生まれ日異常入力 (生まれ日)<1||(生まれ日)>31
>ススキ生まれ日異常入力 (生まれ月)==2&&(生まれ日)>29
>生まれ日チェック (生まれ月)==4||(生まれ月)==6||(生まれ月)==9||(生まれ月)==11
SS(106)・・・(生まれ月)月(生まれ日)日、ですね?
_ああ ススキ誕生日確定
_すまんφ、間違えた ススキ誕生日再設定
- こちらも数字でない、0や32などありえない日の場合は確認へ。
- また、特定の月(31日が存在しない月)では・・・
*生まれ日チェック
>生まれ日異常入力 (生まれ日)>30
*ススキ生まれ日異常入力
SS(110)(生まれ月)月の(生まれ日)日・・・ですか?
・・・間違えてません?
_すまんφ、やっぱ後で ススキ誕生日消去
_あーφ、間違えた ススキ誕生日再設定
*ススキ誕生日再設定
SS(109)ま、間違えたんですか?
(101)えっと・・・(106)では、改めて。
(100)まず、何月ですか?
(数字のみでお願いします)
\![open,inputbox,生まれ月]
*ススキ誕生日消去
SS(109)そうですか・・・。
$生まれ月
$生まれ日
$ユーザ誕生日を聞いた
*生まれ月キャンセル
SS(109)ひみつ、ですか?
_すまんφ、やっぱ後で ススキ誕生日消去
_あーφ、間違えた ススキ誕生日再設定
- キャンセルされたらここに。
- キャンセル云々はまた気が向いたら。
*生まれ日キャンセル
SS(109)ひみつ、ですか?
_すまんφ、やっぱ後で ススキ誕生日消去
_あーφ、間違えた ススキ誕生日再設定
*ススキ誕生日確定
SS(106)(生まれ月)月、(生まれ日)日・・・。
・・・はい、覚えました。
$ユーザ誕生日を聞いた 1
*ススキ誕生日再設定確認
SS(110)(生まれ月)月(生まれ日)日・・・でしたよね?
_ああ ススキ誕生日確認
_すまんφ、間違えた ススキ誕生日再設定
*ススキ誕生日確認
SS(106)・・・ほっ。