CommonEvent 3844
Name = "アグレイブ"

  999([3838])
  ShowPicture([5, "80_agrave_st01", 0, 0, 0, 0, 100, 100, 0, 0])
  MovePicture([5, nil, 0, 0, 0, 0, 100, 100, 255, 0, 30, true])
  PlayBGM(["RPG::BGM(@name=\"ero1\", @volume=100, @pitch=100)"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Ahhh..."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["Have you lost the will to resist?"])
  ShowText(["Then, let's begin the milking operation......"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["An arm extends and lifts my defenseless body."])
  ShowText(["Thus, I was drawn into the interior of Agraev's sphere-"])
  ShowPicture([5, "ev_agrave_ha1", 0, 0, 0, 0, 100, 100, 0, 0])
  MovePicture([5, nil, 0, 0, 0, 0, 100, 100, 255, 0, 30, true])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["U... Ugh..."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["This is inside Agraev's sphere."])
  ShowText(["I am attached to the device and restrained."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["L-Let me go......"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["No matter how much I twist and struggle, I can't do anything against the strong restraints."])
  ShowText(["At that moment, Agreave's main body spoke to me."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["We will now conduct the ejaculation test."])
  ShowText(["We will stimulate your male organ and induce ejaculation."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["N-no way..."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["By conducting repeated experiments, we should be able to optimize the method."])
  ShowText(["First, let's use the standard type of ejaculation machine..."])
  ShowPicture([5, "ev_agrave_ha2", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["What extends toward my groin is a tube-like device."])
  ShowText(["It seems that a cylindrical insertion machine is attached at the tip-"])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["Now, let's begin the ejaculation process."])
  ShowText(["First, we will provide stimulation through suction and extract the semen."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["S-stop-ahhh...!"])
  PlayBGS(["RPG::BGS(@name=\"mon_hsean11_innerworks_c1\", @volume=80, @pitch=100)"])
  ShowPicture([5, "ev_agrave_ha3", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The cylindrical ejaculation device envelops my penis, covering it all the way to the base."])
  ShowText(["The inner wall has a slippery texture, tightly constricting from all sides."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["W-what is this... take it off...!"])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["With the pressure stimulation from the special pump, it will lead to ejaculation instantly."])
  ShowText(["You will reach climax in about 20 seconds, so please relax."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["N-no way-ah... aahhh...!"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The ejaculation device begins to operate, and the inner wall contracts like waves."])
  ShowText(["It feels like my penis is being kneaded with a squelching sound."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The internal pressure rises, and the sensation of suction intensifies."])
  ShowText(["This is a stimulation that relentlessly drives a man to climax in a short period of time-"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["I-it feels good... ahhh!"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["My entire penis is being stroked, and I shudder in response."])
  ShowText(["Before I knew it, a sweet feeling of release was welling up-"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["I-I can't hold it back... ahhh...!"])
  PlayBGS(["RPG::BGS(@name=\"\", @volume=80, @pitch=100)"])
  CallCommonEvent([104])
  ShowPicture([5, "ev_agrave_ha4", 0, 0, 0, 0, 100, 100, 255, 0])
  CallCommonEvent([105])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["And then, I was unexpectedly brought to climax."])
  ShowText(["I release my semen into the device that wraps around my penis, pulsating with each thrust."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["It is truly a pleasurable motion designed to mechanically force a man to climax."])
  ShowText(["I was easily brought to orgasm, and my semen was being sucked away-"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["U...ugh..."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The mechanical milking denies my humanity."])
  ShowText(["Overwhelmed by the misery, I couldn't help but sob-"])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["Climax confirmed in 15 seconds..."])
  ShowText(["In this test, we have collected basic data."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["Stimulation to the urethra seems to have a greater effect."])
  ShowText(["Through self-evolution, I have added urethral stimulation functions to the milking device-"])
  ShowPicture([5, "ev_agrave_hb1", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["A different milking machine extends towards my groin than before."])
  ShowText(["It still has a shape for inserting into the penis, but a protrusion can be seen in the center."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["No... Aaaah..."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["Now, we will conduct Test 2."])
  ShowText(["Please relax and focus on the sensations in your male organ."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Stop it... Aaaahhh..."])
  PlayBGS(["RPG::BGS(@name=\"mon_hsean17_sigoki\", @volume=80, @pitch=100)"])
  ShowPicture([5, "ev_agrave_hb2", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["Squelch... the milking device has engulfed my penis."])
  ShowText(["At the same time, the soft protrusion in the center invades my urethra."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["A tingling discomfort makes my hips shudder."])
  ShowText(["It feels as if I am being violated from the inside of my penis-"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Hah... Ughh...!"])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["The sensory values are in disarray."])
  ShowText(["However, it seems that the sensations are greatly fluctuating towards pleasure."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The inner walls enveloping the penis are contracting and kneading with a squelching sound."])
  ShowText(["A tube has slipped into the urethra, providing stimulation from the inside as well."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Hah... ah, ahhhh...!"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["Suddenly, a maddening sensation surged from deep within my waist."])
  ShowText(["The feeling of release quickly built up, and my penis pulsed and twitched-"])
  CallCommonEvent([104])
  ShowPicture([5, "ev_agrave_hb3", 0, 0, 0, 0, 100, 100, 255, 0])
  CallCommonEvent([105])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["Throbbing, semen was being released."])
  ShowText(["In an instant, I was forced to release my semen a second time-"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Auuuu..."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["Test 2, complete..."])
  ShowText(["Good data has been collected."])
  PlayBGS(["RPG::BGS(@name=\"\", @volume=80, @pitch=100)"])
  ShowPicture([5, "ev_agrave_hb4", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The penis was pulled out from the extracting device."])
  ShowText(["The inside of the tube was filthy, coated with semen."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["That white fluid was proof that I had been made to ejaculate helplessly by a strange machine-"])
  ShowText(["Overwhelmed by humiliation, I trembled."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["...Next, let's change things up a bit."])
  ShowText(["Pleasure pulses will be sent to the male organ and all erogenous zones."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["P-pleasure pulses...?"])
  ShowText(["W-what... is that...?"])
  ShowPicture([5, "ev_agrave_hc1", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["A strange device was attached to my groin, causing me to panic."])
  ShowText(["It felt as if my male organ itself had been restrained-"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["N-No, stop it..."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["Now, let's flow in the pleasure pulses."])
  ShowText(["Rank 1, executing..."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["As the machine activated, the restraining device emitted a faint light-"])
  PlayBGS(["RPG::BGS(@name=\"mon_hsean24_machine1\", @volume=80, @pitch=100)"])
  ShowPicture([5, "ev_agrave_hc2", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Ah... aahhhhhh-!!"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["A wave of vibrations coursed through my entire body."])
  ShowText(["The vibrations infiltrated my groin, providing a sweet, tingling sensation."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Hya... Aahhhh~~!!"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["I screamed and my body jolted uncontrollably."])
  ShowText(["My penis trembles and starts pulsing against my will-"])
  CallCommonEvent([104])
  ShowPicture([5, "ev_agrave_hc3", 0, 0, 0, 0, 100, 100, 255, 0])
  CallCommonEvent([105])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["And then, a large amount of semen bursts out with a splatter."])
  ShowText(["It was a mechanical release sensation, completely different from the pleasure of ejaculation-"])
  PlayBGS(["RPG::BGS(@name=\"\", @volume=80, @pitch=100)"])
  ShowPicture([5, "ev_agrave_hc4", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Haa... ahh..."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["Having my semen continuously extracted, I become completely limp."])
  ShowText(["However, it wasn't just my body that was beaten down."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["I learned that I am a miserable being who will immediately spit out semen when stimulated-"])
  ShowText(["This was taught not only to my body but also to my mind."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["My dignity as a man was trampled, and I was even shedding tears."])
  ShowText(["But no matter how much I lamented, I couldn't escape this ejaculation experiment-"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["U... Ugh..."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["Ejaculation confirmed, Test 3 complete......"])
  ShowText(["As a result, a new function was added to the ejaculation device......"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Please stop...... Aahhh...!!"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["Thus, I was endlessly milked by Agraev."])
  ShowText(["No two ejaculation devices were the same, and I was always made to ejaculate with different stimuli."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["As I continued to reach climax endlessly, my reason began to fade..."])
  ShowText(["And I became nothing more than a being that simply drips semen."])
  FadeoutScreen([])
  ErasePicture([5])
  ErasePicture([6])
  FadeoutBGS([2])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["・・・・・・・・"])
  FadeoutScreen([])
  FadeoutBGM([1])
  Wait([120])
  Script(["memory_interruption"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["I hear the voice of the goddess Ilias..."])
  ShowText(["Shall we have a Evaluation meeting?"])
  ShowChoices([["Attend Evaluation meeting", "Change difficulty", "Return to Reincarnation"], 3])
  When([0, "反省会に出る"])
    PlayBGM(["RPG::BGM(@name=\"irias\", @volume=90, @pitch=105)"])
    ShowPicture([1, "bg001", 0, 0, 0, 0, 100, 100, 255, 0])
    FadeinScreen([])
    ShowPicture([5, "80_iriasu_st04", 0, 0, 0, 0, 100, 100, 0, 0])
    MovePicture([5, nil, 0, 0, 0, 0, 100, 100, 255, 0, 30, true])
    ShowTextAttributes(["iriasu_fc1", 3, 0, 2])
    ShowText(["\\n<Ilias>"])
    ShowText(["Dried fish has been sent again..."])
    ShowText(["Moreover, this time it's even thinner than usual."])
    ShowPicture([5, "80_iriasu_st01", 0, 0, 0, 0, 100, 100, 255, 0])
    ShowTextAttributes(["iriasu_fc1", 0, 0, 2])
    ShowText(["\\n<Ilias>"])
    ShowText(["Agreive has high capability and unleashes powerful attacks with double strikes..."])
    ShowText(["That should be the case, but with Lucifina around, they are tough minions."])
    ShowTextAttributes(["iriasu_fc1", 0, 0, 2])
    ShowText(["\\n<Ilias>"])
    ShowText(["It seems unlikely to struggle at all."])
    ShowText(["That should be the case, but why did we lose?"])
    ShowPicture([5, "80_iriasu_st02", 0, 0, 0, 0, 100, 100, 255, 0])
    ShowTextAttributes(["iriasu_fc1", 1, 0, 2])
    ShowText(["\\n<Ilias>"])
    ShowText(["Now go, Hero Luka..."])
    ShowPicture([5, "80_iriasu_st06", 0, 0, 0, 0, 100, 100, 255, 0])
    ShowTextAttributes(["iriasu_fc1", 5, 0, 2])
    ShowText(["\\n<Ilias>"])
    ShowText(["...What, you still haven't returned from the dried fish?"])
    ShowText(["This time, I must soak it in water longer than usual."])
    FadeoutBGM([1])
    FadeoutScreen([])
    ErasePicture([5])
    ErasePicture([1])
    Wait([60])
    Empty([])

  When([1, "難易度を変更する"])
    ShowTextAttributes(["", 0, 0, 2])
    ShowText(["Please select a difficulty level."])
    CallCommonEvent([110])
    Empty([])

  When([2, "輪廻に戻る"])
    Empty([])

  ChoicesEnd([])
  CallCommonEvent([3000])
  Empty([])
