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(["Ah……"])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["Have you lost the will to resist?"])
  ShowText(["Then, let's begin the extraction process……"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["An arm extends and lifts my defenseless body."])
  ShowText(["Thus, I was drawn into the interior of Aggrave'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(["Ugh…"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["This is inside Aggrave's sphere."])
  ShowText(["I am attached to the device and bound."])
  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 cannot escape the strong restraints."])
  ShowText(["Then, the main body of Agraive spoke to me."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["We will now conduct a milking test."])
  ShowText(["Let's 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 repeating the experiments, we should be able to optimize the methods."])
  ShowText(["First, let's use the standard milking machine..."])
  ShowPicture([5, "ev_agrave_ha2", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["What extended towards my groin was a tube-like device."])
  ShowText(["At its tip, there seems to be a cylindrical insertion machine..."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["Now, let's begin the milking 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 milking device enveloped my penis, wrapping around it completely."])
  ShowText(["The inner wall had a slippery texture, tightly compressing from all sides."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["W-what is this...! Get it off me...!"])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["With the pressure stimulation from the special pump, it will lead to ejaculation immediately."])
  ShowText(["You will reach climax in about 20 seconds, so please relax."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["N-no way—huh... ah, aah...!"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The milking device started to operate, and the inner wall contracted like waves."])
  ShowText(["It felt like my penis was being kneaded and massaged."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The internal pressure increased, heightening the sensation of suction."])
  ShowText(["This is a stimulation that unavoidably pushes a man to climax in a short time—"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["I-it feels good... ahhh!"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["My entire penis was being stroked, and I shuddered at the waist."])
  ShowText(["Sweet sensations of release surged within me—"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["I-I’m going to cum... huhhh...!"])
  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 just like that, I reached ejaculation without any resistance."])
  ShowText(["I released semen into the milking device that enveloped my penis, pumping it out in pulses."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["It was truly a pleasurable action designed to mechanically force a man to climax."])
  ShowText(["I was easily brought to orgasm, and my semen was being sucked up—"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Ugh... ugh..."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["Mechanical ejaculation that denies even humanity."])
  ShowText(["Overwhelmed by the misery, I let out a sob――"])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["Ejaculation confirmed in 15 seconds..."])
  ShowText(["In the current test, basic data has been collected."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["Stimulation to the urethra seems to yield higher effects."])
  ShowText(["With self-evolution, the ejaculation device has added urethral torture functions――"])
  ShowPicture([5, "ev_agrave_hb1", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["A different ejaculation machine than before extends towards my groin."])
  ShowText(["It is indeed shaped for inserting the penis, but a protrusion can be seen in the center."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["No... ah, aah..."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["Now, we will conduct Test 2."])
  ShowText(["Relax and focus on the sensations in your male organ."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Stop it... ah, aaaaa..."])
  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(["With a squelching sound, the ejaculation device enveloped the penis."])
  ShowText(["At the same time, the soft protrusion in the center invaded the urethra."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["A tingling discomfort made my waist tremble."])
  ShowText(["It feels as if I am being violated from the inside of the penis――"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Hah... ugh...!"])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["The sensory values are in disarray."])
  ShowText(["However, it seems there is a significant sway towards pleasure."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The inner wall wrapping the penis squelches, contracting and kneading it."])
  ShowText(["A tube has slipped into the urethra, stimulating from the inside as well."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Hah... ah, aah...!"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["Suddenly, an overwhelming sensation surged from deep within my waist."])
  ShowText(["The feeling of release quickly built up, and the penis pulsated violently――"])
  CallCommonEvent([104])
  ShowPicture([5, "ev_agrave_hb3", 0, 0, 0, 0, 100, 100, 255, 0])
  CallCommonEvent([105])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["With a throbbing sound, the semen was released."])
  ShowText(["In no time, I was forced to release semen for the second time――"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Aaaaaah..."])
  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 is being pulled out from the ejaculation device."])
  ShowText(["The inside of the tube was filthy with semen."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["That cloudy substance is proof that I was made to ejaculate helplessly by a strange machine――"])
  ShowText(["Overwhelmed by shame, I couldn't help but tremble."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["...Next, let's change the approach 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 the male organ itself was being restrained――"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["P-please stop..."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Aggrave>"])
  ShowText(["Now, let's send in the pleasure pulses."])
  ShowText(["Rank 1, executing..."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["With the machine's operation, the restraint machine emitted a soft 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... Aaaaaah――!!"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["Waves of vibrations coursed through my entire body."])
  ShowText(["The vibrations infiltrated my groin, delivering a sweet, tingling sensation."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Hya... Aaaaaah～～!!"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["I screamed, my body jerking violently."])
  ShowText(["My penis quivered, starting to pulse 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 erupted forcefully."])
  ShowText(["It was a mechanical release, entirely different from pleasure-induced 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(["Hah... Auuu..."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["Having my semen continuously extracted, I was completely drained."])
  ShowText(["However, it wasn't just my body that was crushed."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["I learned that I was a miserable existence, ready to expel semen at the slightest stimulation――"])
  ShowText(["This was taught to me not only in body but also in spirit."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["My dignity as a man was trampled upon, and I found myself 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-equipped milking device..."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Please stop... Ah, aaaaah...!!"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["Thus, I was endlessly milked by Agreive."])
  ShowText(["No two milking devices used are the same, and I am constantly made to ejaculate from 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 can hear the voice of the goddess Ilias..."])
  ShowText(["Shall we attend the reflection meeting?"])
  ShowChoices([["反省会に出る", "難易度を変更する", "輪廻に戻る"], 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(["Then 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([])
