みかんさんがなんだか挑戦してらっしゃるようなので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)・・・ほっ。~ ~ -・・・と、こんな感じ。