みかんさんがなんだか挑戦してらっしゃるようなので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

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

*ススキ生まれ日異常入力
SS(110)(生まれ月)月の(生まれ日)日・・・ですか?
・・・間違えてません?

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

  • 日の確認。

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

  • 再設定。

*ススキ誕生日消去
SS(109)そうですか・・・。
$生まれ月
$生まれ日
$ユーザ誕生日を聞いた

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

*生まれ月キャンセル
SS(109)ひみつ、ですか?

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

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

*生まれ日キャンセル
SS(109)ひみつ、ですか?

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

  • 日のキャンセル

*ススキ誕生日確定
SS(106)(生まれ月)月、(生まれ日)日・・・。
・・・はい、覚えました。
$ユーザ誕生日を聞いた 1

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

*ススキ誕生日再設定確認
SS(110)(生まれ月)月(生まれ日)日・・・でしたよね?

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

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

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

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

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2008-11-28 (金) 00:34:44