#時計あわせ #1/○ の確率で\1側が時計あわせをしてくれる #乱数の数値で確率を決定(下記は1/2) #確率は上から3行目の #「>1側あわせ (乱数1〜2)==1」の乱数の数字を変えて調整してください。 *OnSNTPBegin $1側あわせフラグ=0 >1側あわせ (乱数1〜2)==1 :(R0)から正しい時間を取得中です。 *1側あわせ $1側あわせフラグ=1 :\b[-1] :今日はオレが時計あわせやりたい! *OnSNTPCompare >1側あわせ確認 (1側あわせフラグ) $時計 (split、(R1)、,) :あちらは、(S0)年(S1)月(S2)日(S3)時(S4)分(S5)秒 $時計 (split、(R2)、,) こちらが、(S0)年(S1)月(S2)日(S3)時(S4)分(S5)秒 >時計のずれが0秒 (R3)==0 >少しずれてる (R3)<11 えーと、(R3)秒ずれてますね。合わせますか? _合わせる _合わせない #「少しずれてる」は10秒内外の誤差。 #誤差を示す(R3)は常に正数 *1側あわせ確認 >時計のずれが0秒 (R3)==0 あっち (R1) こっち (R2) (R3)秒ズレてるけどどうする? _合わせる _合わせない *合わせる :\6 *合わせない >1側あわせなし (1側あわせフラグ) :じゃ、放っときます。 *1側あわせなし せっかくやろうと思ったのに!! *時計のずれが0秒 >1側あわせズレなし (1側あわせフラグ) :ぴったり合ってます。 :それはそれで落ち着かない気が…… *1側あわせズレなし ズレてなーい。 *少しずれてる :(R3)秒ずれてるけど……これは誤差かな。 _合わせる _合わせない *OnSNTPCorrect >1側あわせた (1側あわせフラグ) :合わせました。 *1側あわせた あわせた。ほめろ!! *OnSNTPFailure >1側あわせられない (1側あわせフラグ) :失敗……繋がらない? *1側あわせられない つ・・・つながらない!!