clearSaveGlobalVariable()
addLoadGlobalVariable(12876, "ゲームソフト")
loadGlobalVariable()

case speakWithSelect(2,"ゲームを返しに","特に用はない", 
    "パープル\n｢何の用だ。｣")
  when 0
    speak("パープル王\n｢おぉ、まじたいの王から取られたと思った
\nゲームソフトを返しにきてくれたのか？\nどれどれ･････。｣")

if getLoadedGlobalVariable(12876, "ゲームソフト")  == 2
speak("パープル王\n｢おぉ、もう返ってこないかと思っていたよ･････。｣")
speak("パープル王\n｢君のおかげで、暇が潰せそうだ\nありがとう。｣")
speak("ゲームクリアを行います。")
goEnding()


else
speak("パープル王\n｢ゲームソフトが足りないか\n
もしくは預かってないようだな、もう一度まじたいの王から\n
ゲームをとってくればいいのではないかと思う。｣")


end

  when 1
    speak("パープル王\n｢用がないなら立ち去るのだ･････。｣")


end

clearSaveGlobalVariable()
clearLoadGlobalVariable()
loadGlobalVariable()

if getFlag("まじたい")
case speakWithSelect(2,"はい","いいえ", 
    "まじたいの王\n｢隣の二人にゲームソフトを貰いましたか？｣")
  when 0
    case speakWithSelect(2,"はい","いいえ", 
    "まじたいの王\n｢では、ゲームをクリアしたいと思う\nよろしいか？｣")
  when 0

#####ここでグローバル関数をセーブ#####
clearSaveGlobalVariable()
addSaveGlobalVariable("ゲームソフト", getVariable("ゲームソフト"))
goEnding()

  when 1
    speak("まじたいの王\n｢もしかして、片方からのゲームしか貰って
ないとか\nそういうことがあったら、きっとパープル王は怒るのではな
いかと思う。｣")
speak("まじたいの王\n｢ちゃんと両方に話しかけなくては\n
いけないのではないかと思う。｣")

end

  when 1
    speak("まじたいの王\n｢早く貰ってくるのではないかと思う。\n
ちなみにゲームソフトを貰っても\nこのゲームを一旦クリアしなければ
\nデータが反映されないから。｣")
speak("まじたいの王\n｢二人から受け取ったら\n
もう一度話しかけてほしいのではないかと思う。｣")

end


else
speak("まじたいの王\n｢たまには息抜きも必要だと思う。｣")
speak("まじたいの王\n｢せっかくなので\n
半年ぐらいパープル王から、借りたままのゲームソフトを\n
返してきてほしいのではないかと思う。｣")
speak("まじたいの王\n｢パシりなんて、人聞きが悪いのではないかと思う。｣")
speak("まじたいの王\n｢私はこのゲームの管理人\n
このゲームの世界から出れないのではないかと思う。｣")
speak("まじたいの王\n｢だから色々なゲームを旅して回っている君に\n
頼みたいのではないかと思う。｣")
setVariable("ゲームソフト", 0)
setFlag("まじたい", true)

end

if getFlag("家来2")
speak("まじたい家来その2\n
｢もうゲームソフトは渡したのではないかと思う。｣")

else
speak("まじたい家来その2\n｢王様のゲームソフトを預かっている\n
受け取ればいいのではないかと思う。｣")
playSound(99751)
speak("ゲームソフトを手に入れた。")
setVariable("ゲームソフト", getVariable("ゲームソフト")+1)
speak("(浜谷ルメ子ちゃん達をメインに\n
リアルタイムな恋愛生活が体験できる\n
恋愛シュミレーションゲーム、ルメコプラスだ\n
一体パープル王はどんなコアプレイヤーなんだろう･････。)")
setFlag("家来2", true)
end