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

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


*こんな風にやってます。 [#d134f80f]


*ススキ誕生日設定~
>ススキ誕生日再設定確認	(ユーザ誕生日を聞いた)==1~
>ススキ誕生日初回設定~
~
*ススキ誕生日初回設定~
SS(110)にゃ、(ユーザ名ススキ)の誕生日って、聞いてませんでしたね。~
まずは・・・ええと、何月ですか?~
(数字のみでお願いします)~
\![open,inputbox,生まれ月]~
-インプットボックスから入力してもらいます。~
~
-インプットボックスから入力してもらいます。

*生まれ月を教えてもらった~
>ススキ生まれ月異常入力	(is_digit,(生まれ月))==0||(生まれ月)<1||(生まれ月)>12~
SS(106)(生まれ月)月の・・・何日ですか?~
(数字のみでお願いします)~
\![open,inputbox,生まれ日]~
-数字でなかったとか、0とか13とかありえない月だった場合は・・・~
~
-数字でなかったとか、0とか13とかありえない月だった場合は・・・

*ススキ生まれ月異常入力~
SS(110)(生まれ月)月・・・?~
・・・間違えてませんか?~
~
_すまんφ、やっぱ後で	ススキ誕生日消去~
_あーφ、間違えた	ススキ誕生日再設定~
-このように、確認を。~
~
-このように、確認を。

*生まれ日を教えてもらった~
>ススキ生まれ日異常入力	(is_digit,(生まれ日))==0~
>ススキ生まれ日異常入力	(生まれ日)<1||(生まれ日)>31~
>ススキ生まれ日異常入力	(生まれ月)==2&&(生まれ日)>29~
>生まれ日チェック	(生まれ月)==4||(生まれ月)==6||(生まれ月)==9||(生まれ月)==11~
SS(106)・・・(生まれ月)月(生まれ日)日、ですね?~
~
_ああ	ススキ誕生日確定~
_すまんφ、間違えた	ススキ誕生日再設定~
-こちらも数字でない、0や32などありえない日の場合は確認へ。
-また、特定の月(31日が存在しない月)では・・・~
~
-また、特定の月(31日が存在しない月)では・・・

*生まれ日チェック~
>生まれ日異常入力	(生まれ日)>30~
-こうして31日を弾きます。~
~
-こうして31日を弾きます。

*ススキ生まれ日異常入力~
SS(110)(生まれ月)月の(生まれ日)日・・・ですか?~
・・・間違えてません?~
~
_すまんφ、やっぱ後で	ススキ誕生日消去~
_あーφ、間違えた	ススキ誕生日再設定~
-日の確認。~
~
-日の確認。

*ススキ誕生日再設定~
SS(109)ま、間違えたんですか?~
(101)えっと・・・(106)では、改めて。~
(100)まず、何月ですか?~
(数字のみでお願いします)~
\![open,inputbox,生まれ月]~
-再設定。~
~
-再設定。

*ススキ誕生日消去~
SS(109)そうですか・・・。~
$生まれ月	~
$生まれ日	~
$ユーザ誕生日を聞いた	~
-やっぱ後で、を選択すると消去。~
~
-やっぱ後で、を選択すると消去。

*生まれ月キャンセル~
SS(109)ひみつ、ですか?~
~
_すまんφ、やっぱ後で	ススキ誕生日消去~
_あーφ、間違えた	ススキ誕生日再設定~
-キャンセルされたらここに。
-キャンセル云々はまた気が向いたら。~
~
-キャンセル云々はまた気が向いたら。

*生まれ日キャンセル~
SS(109)ひみつ、ですか?~
~
_すまんφ、やっぱ後で	ススキ誕生日消去~
_あーφ、間違えた	ススキ誕生日再設定~
-日のキャンセル~
~
-日のキャンセル

*ススキ誕生日確定~
SS(106)(生まれ月)月、(生まれ日)日・・・。~
・・・はい、覚えました。~
$ユーザ誕生日を聞いた	1~
-設定した後、確認のために。~
~
-設定した後、確認のために。

*ススキ誕生日再設定確認~
SS(110)(生まれ月)月(生まれ日)日・・・でしたよね?~
~
_ああ	ススキ誕生日確認~
_すまんφ、間違えた	ススキ誕生日再設定~
-すでに設定してある場合、これが。~
~
-すでに設定してある場合、これが。

*ススキ誕生日確認~
SS(106)・・・ほっ。~
~


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

トップ   編集 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS