CommonEvent 2028
Name = "誘惑：クィーンハーピー"

  999([2028])
  ConditionalBranch([0, 25, 1])
    ExitEventProcessing([])
    Empty([])

  BranchEnd([])
  Script(["$game_troop.lose_event_id = 3028"])
  ControlVariables([26, 26, 0, 3, 3, 1, 4])
  ControlVariables([26, 26, 4, 0, 10])
  Script(["battler_graphic_hide"])
  ShowPicture([5, "80_queenhapy_st02_2", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The Queen Harpy's tail feathers start to twitch!"])
  ShowText(["She stops moving!"])
  ShowTextAttributes(["queenhapy_fc1", 2, 0, 2])
  ShowText(["\\n<Queen Harpy>Now, go ahead and attack.\nPlease end this cursed existence..."])
  ShowText([""])
  ShowText([""])
  ControlSwitches([98, 98, 0])
  ControlSwitches([96, 96, 0])
  ShowChoices([["Don't attack", "Attack"], 1])
  When([0, "攻撃を控える"])
    ShowTextAttributes(["", 0, 0, 2])
    ShowText(["But Luka doesn't attack!"])
    ShowTextAttributes(["queenhapy_fc1", 0, 0, 2])
    ShowText(["\\n<Queen Harpy>You're quite careful... Fufu."])
    ShowText([""])
    ErasePicture([5])
    Script(["battler_graphic_show"])
    ShowTextAttributes(["", 0, 0, 2])
    ShowText(["The Queen Harpy's tail feathers stop twitching!"])
    CallCommonEvent([1999])
    ExitEventProcessing([])
    Empty([])

  When([1, "攻撃する"])
    Empty([])

  ChoicesEnd([])
  ShowTextAttributes(["queenhapy_fc1", 2, 0, 2])
  ShowText(["\\n<Queen Harpy>Fufu, caught you.\nYou'll be finished inside me!"])
  ShowText([""])
  ShowText([""])
  Script(["display_skill_name(\"Happiness Rondo\")"])
  ControlVariables([26, 26, 3, 0, 4])
  PlaySE(["RPG::SE(@name=\"mon_ero_pyu2\", @pitch=100, @volume=100)"])
  ShowPicture([5, "ev_queenhapy_h1", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowPicture([6, "ev_queenhapy_ct01", 0, 0, 0, 0, 100, 100, 255, 0])
  ChangeHP([0, 1, 1, 1, 26, true])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["Hugging Luka, the Queen Harpy forces him inside her!"])
  ShowText(["Her warm vagina envelops his penis!\\D"])
  ShowText(["Luka takes \\V[26] damage!"])
  ControlVariables([27, 27, 0, 3, 3, 1, 2])
  PlaySE(["RPG::SE(@name=\"mon_ero_chupa4\", @pitch=100, @volume=100)"])
  ChangeHP([0, 1, 1, 1, 26, true])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["His penis is squeezed in her tight vagina!"])
  ShowText(["Numerous bumps rub against his penis!\\D"])
  ShowText(["Luka takes \\V[26] damage!"])
  ControlVariables([27, 27, 0, 3, 3, 1, 2])
  PlaySE(["RPG::SE(@name=\"mon_ero_chupa5\", @pitch=100, @volume=100)"])
  ChangeHP([0, 1, 1, 1, 26, true])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["Wetness covers his penis inside her!"])
  ShowText(["Her soft flesh presses down on him!\\D"])
  ShowText(["Luka takes \\V[26] damage!"])
  ControlVariables([27, 27, 0, 3, 3, 1, 2])
  Script(["clear_skill_name"])
  CallCommonEvent([104])
  ShowPicture([5, "ev_queenhapy_h2", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowPicture([6, "ev_queenhapy_ct02", 0, 0, 0, 0, 100, 100, 255, 0])
  CallCommonEvent([105])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Ahhhg!"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["Luka's body goes numb with pleasure as he comes inside the Queen Harpy."])
  ShowText(["His penis pulses with each spurt of semen in her."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["Her vagina is milking me..."])
  ShowText(["Every last drop of semen is squeezed out."])
  ShowTextAttributes(["queenhapy_fc1", 2, 0, 2])
  ShowText(["\\n<Queen Harpy>Fufu, instant kill.\nIf I get serious, someone like you is no match at all."])
  ShowText([""])
  ShowText([""])
  CallCommonEvent([2000])
  ExitEventProcessing([])
  Empty([])
