m = getItemIndexWithId(19405)
if getFlag("a", true)
speak("ありがとう！")

if getFlag("渡す")
speak("やってくれたのか！\nありがとう！\nハートを２つやる！")
giveItem(19399)
giveItem(19399) 
setFlag("a")
if getFlag("a", true)
speak("ありがとう！")
elsif m == -1
#プレゼントを持っていない
  speak("きみ！\n俺のファンにプレゼントをくれてやってくれないか")
    case speakWithSelect(2,"はい","いいえ",
"引き受けますか？")
    when 0
    speak("よろしくね！")
    speak("プレゼントをもらった")
    giveItem(19405)
    setFlag("引き受ける", true)
    when 1
    speak("やっぱダメか…")
    end
else
#すでにプレゼントを持っている
speak("頼んだぞ。")


end

speak("はるかたそ～")



m = getItemIndexWithId(19405)

if getFlag("渡す")
#プレゼントを渡した
speak("どうもありがとう！")
elsif getFlag("引き受ける") && m != -1
#依頼を受けてプレゼントを持っている
speak("これは？\nはるかの写真か！\nあいつに１００点と伝えといてくれ！")
speak("プレゼントを渡した")
removeItemWithIndex(m)
getItemIndexWithId(19405)
setFlag("渡す", true)
elsif getFlag("引き受ける") && m == -1
#依頼を受けたが、プレゼントを捨てるなどしたため持っていない
speak("そんなことなどどうでもいい")
elsif !getFlag("引き受ける") && m != -1
#依頼を受けていないがプレゼントは持っている
speak("わー、いいなあ\nほしいなあ")
else
#依頼を受けていないしプレゼントを持っていない

end

m = getItemIndexWithId(19405)
if getFlag("a", true)
speak("ありがとう！")

if getFlag("渡す")
speak("やってくれたのか！\nありがとう！\nハートを２つやる！")
giveItem(19399)
giveItem(19399) 
setFlag("a")
if getFlag("a", true)
speak("ありがとう！")
elsif m == -1
#プレゼントを持っていない
  speak("きみ！\n俺のファンにプレゼントをくれてやってくれないか")
    case speakWithSelect(2,"はい","いいえ",
"引き受けますか？")
    when 0
    speak("よろしくね！")
    speak("プレゼントをもらった")
    giveItem(19405)
    setFlag("引き受ける", true)
    when 1
    speak("やっぱダメか…")
    end
else
#すでにプレゼントを持っている
speak("頼んだぞ。")


end

speak("はるかたそ～")



m = getItemIndexWithId(19405)

if getFlag("渡す")
#プレゼントを渡した
speak("どうもありがとう！")
elsif getFlag("引き受ける") && m != -1
#依頼を受けてプレゼントを持っている
speak("これは？\nはるかの写真か！\nあいつに１００点と伝えといてくれ！")
speak("プレゼントを渡した")
removeItemWithIndex(m)
getItemIndexWithId(19405)
setFlag("渡す", true)
elsif getFlag("引き受ける") && m == -1
#依頼を受けたが、プレゼントを捨てるなどしたため持っていない
speak("そんなことなどどうでもいい")
elsif !getFlag("引き受ける") && m != -1
#依頼を受けていないがプレゼントは持っている
speak("わー、いいなあ\nほしいなあ")
else
#依頼を受けていないしプレゼントを持っていない

end