case speakWithSelect(2,"はい","いいえ", 
    "ここでは、ログインボーナスを\n受け取れます。早速受け取りますか？")
  when 0
t = getServerCurrentDate()
ty = toString(t[0])
tm = toString(t[1])
td = toString(t[2])
yy = getVariable("ey")
ym = getVariable("em")
yd = getVariable("ed")

if ty != yy || tm != ym || td != yd
  speak("ボーナスをチェックします。")
case (rand(6))
  when 1
addMoney(100)
speak("100タマーを手に入れた！")

   
  when 2
addMoney(300)
speak("300タマーを手に入れた！\n")

    
  when 3
addMoney(10)
speak("10タマーを手に入れた！")


  when 4
addMoney(500)
speak("500タマーを手に入れた！")


  when 5
addMoney(1000)
speak("なんと！1000タマーを手に入れた！")

   
  when 6
speak("何も手に入れられなかった。")

    
end

  setVariable("ey", ty)
  setVariable("em", tm)
  setVariable("ed", td)
else
  speak("もうチェックしています。")
end




    
  when 1
speak("では、またのご利用\nお待ちしております。")

    
end

case speakWithSelect(2,"はい","いいえ", 
    "ここでは、ログインボーナスを\n受け取れます。早速受け取りますか？")
  when 0
t = getServerCurrentDate()
ty = toString(t[0])
tm = toString(t[1])
td = toString(t[2])
yy = getVariable("ey")
ym = getVariable("em")
yd = getVariable("ed")

if ty != yy || tm != ym || td != yd
  speak("ボーナスをチェックします。")
case (rand(6))
  when 1
addMoney(100)
speak("100タマーを手に入れた！")

   
  when 2
addMoney(300)
speak("300タマーを手に入れた！\n")

    
  when 3
addMoney(10)
speak("10タマーを手に入れた！")


  when 4
addMoney(500)
speak("500タマーを手に入れた！")


  when 5
addMoney(1000)
speak("なんと！1000タマーを手に入れた！")

   
  when 6
speak("何も手に入れられなかった。")

    
end

  setVariable("ey", ty)
  setVariable("em", tm)
  setVariable("ed", td)
else
  speak("もうチェックしています。")
end




    
  when 1
speak("では、またのご利用\nお待ちしております。")

    
end