MGQ Generic

*name_start

mov $name,"Name " ; - Name used for name display
mov $name2,"Name " ; - Name used in special things such as HP drain/restoration
mov $lavel,"name" ;- Monster Label
mov $tatie1,"name_st11" ;- Battle Picture (Normal)
mov $tatie2,"name_st02" ;- Battle Picture (Gloating)
mov $tatie3,"name_st12" ;- Battle Picture (Disadvantage)
mov $tatie4,"name_st02" ;- Battle Picture (Binding)
mov $haikei,"bg008" ;- Background image
mov %monster_x,170 ;- X position of monster
mov %monster_y,0 ;-   Y position of monster
if %nanido=1 mov %max_enemylife,30 ;- If (Easy = true) set life
if %nanido=2 mov %max_enemylife,30 ;- If (Hard = true) set life
if %nanido=3 mov %max_enemylife,30 ;- If (Hell = true) set life
mov %damage_keigen,100 ;- Defense power modifier
mov %kaihi,95 ;- Evasion rate
mov %music,1 ;- BGM selection
gosub *maxmp:mov %mp,%max_mp ;- Setting MP amount
gosub *syutugen ;- Sets the battle window, "xxxx appears", plays battle start music, etc...
mov $mogaku_anno1," - Struggle Fail - "
mov $mogaku_anno2," - Struggle Success - "
mov $mogaku_anno3," - Attack While Bound Fail - "
mov $mogaku_sel1," - Struggle Taunt - "
mov $mogaku_sel2," - Struggle Taunt - "
mov $mogaku_sel3," - Struggle Taunt - "
mov $mogaku_sel4," - Struggle Taunt - "
mov $mogaku_sel5," - Struggle Taunt - "
mov $mogaku_dassyutu1,"Struggle Escape Text Line 1 "
mov $mogaku_dassyutu2,"Struggle Escape Text Line 2 "
mov $half_s1,"Half Health Line 1 "
mov $half_s2,"Half Health Line 2 "
mov $kiki_s1,"Critical Health Line 1 "
mov $kiki_s2,"Critical Health Line 2 "
mov %end_n,2 ; - Bad end number
mov %zmonster_x,-100 ; - Bad end x coordinate

 -- Pre Battle Text --

mov %sinkou,1 ;- Battle turn number
goto *common_main



*name_main

gosub *cmd_main ; - Displays command window
if %cmd1=11 && %kousoku>0 goto *common_mogaku ; - If choose (attack) && bindingstatus > 0, go to bind_function
if %cmd1=11 && %sinkou=1 goto *name001 ; - If choose (attack) && turnnumber = 1, go to specific_functionXXX
if %cmd1=11 && %sinkou=2 goto *name002 ; - If choose (attack) && turnnumber = 2, go to specific_functionXXX
if %cmd1=11 && %sinkou>2 goto *common_attack ; - If choose (attack) && turnnumber > 2, go to common_attack
if %cmd1=12 && %genmogaku>0 goto *common_mogaku ; - If choose (struggle) && numstruggles>0, goto common_struggle
if %cmd1=12 && %genmogaku=0 goto *common_mogaku2 ; - If choose (struggle) && numstruggles==0, goto common_struggle2
if %cmd1=13 goto *common_bougyo ; - If choose (guard), goto common_guard
if %cmd1=14 goto *common_nasugamama ; - If choose (wait), goto common_wait
if %cmd1=15 goto *name_kousan ; - if choose (surrender), goto monster_surrender
if %cmd1=16 goto *name_onedari ; - if choose (request), goto monster_request
if %cmd1=17 goto *common_skill ; - if choose (skill), goto common_skill
goto *name_main

*name001
-Unique actions/text for first turn, if attack is chosen.

gosub *name_a1 ; - Once event is over, call monster_attack1
mov %sinkou,2 ; - Increment the counter
goto *common_main ; - Go back to main position for battle



*name002

-Unique actions/text for second turn, if attack is chosen.

gosub *name_a3 ; - Once event is over, call monster_attack3
mov %sinkou,3 ; - Increment the counter
goto *common_main ; - Go back to main position


*name_v ; - Victory screen for when victory conditions are met.

gosub *face3 ; - Setting face to "pained/losing" (Declared at start of battle)
name $name ; - Equivalent to name "Monster "
 - Defeat text
dwave 1,"se\syometu.ogg" ; - Dissolve sound
csp 700:print 99,4500,"system\breakup.dll/urb" ; - Dissolve effect
 - Victory text

mov %viclose,2:gosub *victory ; - Setting victory variables
mov %getexp,10:gosub *lvup ; - Give experience and level up
mov %2202,1 ; - USED FOR ENCYCLOPEDIA. This is setting 2202 (Slug Girl) to "1", meaning you've beaten her.
goto *sean0039 ; - Return to a specific scene in the main story



*name_a ; - Monster_attacks

if %kousoku=1 gosub *name_a4:goto *common_main ; - If binding == true, goto monster_attack4, then goto main
rnd2 %ransu,1,3 ; - random between 1 and 3.
if %ransu=1 gosub *name_a1:goto *common_main	; - If random = 1, goto attack 1, then goto main
if %ransu=2 gosub *name_a2:goto *common_main	; - If random = 2, goto attack 2, then goto main
if %ransu=3 && %owaza_count1a>2 gosub *name_a3:goto *common_main	; - If random = 3 && specific_actions > 2, goto attack 3.
skip -4 ; - If none are true, go back and roll again



*name_a1
rnd2 %ransu,1,3 ; - Random 1 through 3
if %ransu=%ren skip -1 ; - If random number = the number used before, go back 1 and roll again
mov %ren,%ransu ; - Remember random number so that same text isn't used twice in a row
if %ransu=1 mov $sel1,"Attack text 1 "
if %ransu=2 mov $sel1,"Attack text 2 "
if %ransu=3 mov $sel1,"Attack text 3 "
name $name
$sel1 ; - Print text
> \
name ""
skillname "Skillname "
dwave 1,"se\ero_slime2.ogg"

if %nanido=1 damage 3,4 ; - If normal - damage between 3 and 4
if %nanido=2 damage 4,6 ; - If hard - damage between 4 and 6
if %nanido=3 damage 6,8 ; - If hell - damage between 6 and 8
skillname "" ; - clear skill box
if %mylife=0 return *name_h1 ; - If Luka's hp = 0, goto monster_hscene1
if %max_mylife>%mylife*2 && %sel_hphalf=0 gosub *common_s1 ; - If hp is at half and hp_half_text hasn't already been said, goto hphalftext
if %max_mylife>%mylife*5 && %sel_kiki=0 gosub *common_s2 ; - If hp is at critical and hp_critical_text hasn't already been said, goto hpcriticaltext
return

*name_a3

if %kousan=2 skip 5 ; If kousan = 2 (Request), skip 5 lines
name $name
>I'll get on top of you... @ >...with this Slug body... \
name ""
skillname "Climb Over "
dwave 1,"se\ero_name2.ogg"
>The Slug climbs on top of Luka! @
>Luka is completely covered by the Slug's sticky body! \
if %nanido=1 damage 4,5
if %nanido=2 damage 6,7
if %nanido=3 damage 6,7
mov %kousoku,1:gosub *status_print ; - Set binding to true, print status/
>Luka's body is completely covered by the Slug! \
skillname ""
if %mylife=0 return *name_h3
if %kousan=2 return ; - If kousan = 2 (request), go back
name $name
>Here... have a taste of a sticky hell! @
>When you can't take it anymore... just let it out! \
name ""
if %nanido=1 mov %genmogaku,1 ; - If normal, set struggle counter to 1
if %nanido=2 mov %genmogaku,1 ; - If hard, set struggle counter to 1
if %nanido=3 mov %genmogaku,2 ; - If hell, set struggle counter to 2
return



*name_a4

skillcount1 3006
>The Slug is on top of Luka's body! \
rnd2 %ransu,1,10
if %ransu=%ren skip -1
mov %ren,%ransu
if %ransu=1 mov $sel1,"It's useless to struggle... you can't do anything but be my food now... ":mov $sel2,"The Slug's sticky, elastic body presses into Luka! "
if %ransu=2 mov $sel1,"Have more of my sticky mucus... ":mov $sel2,"A large amount of mucus comes out of the Slug, covering Luka's body! "
if %ransu=3 mov $sel1,"I'll play with you some more... ":mov $sel2,"Like being licked by tongues all over, Luka's whole body is covered with mucus. "
if %ransu=4 mov $sel1,"Fufu... does it feel good? ":mov $sel2,"Luka's whole body is covered by a sweet sticky feeling! "
if %ransu=5 mov $sel1,"How's this...? ":mov $sel2,"Luka's penis sinks into the Slug's sticky hole! "
if %ransu=6 mov $sel1,"The more you struggle, the better it will feel... ":mov $sel2,"Luka's penis is stuck in the sticky Slug! "
if %ransu=7 mov $sel1,"I'll move to make it feel even better! ":mov $sel2,"While on top of Luka, the Slug starts to move her body! "
if %ransu=8 mov $sel1,"How is the sticky feeling...? ":mov $sel2,"Luka's dick is attacked by a slimy, elastic feeling!"
if %ransu=9 mov $sel1,"Your dick must be feeling amazing now... ":mov $sel2,"The sticky mucus around Luka's penis starts to rub and pull on it! "
if %ransu=10 mov $sel1,"Should I let you come now...? ":mov $sel2,"The Slug starts to tighten the mucus covering Luka's penis! "
name $name
$sel1
> \
name ""
skillname "Slug　Rape "
dwave 1,"se\ero_name2.ogg"
$sel2
> \
if %nanido=1 damage 4,5
if %nanido=2 damage 6,7
if %nanido=3 damage 7,10
skillname ""
if %mylife=0 return *name_h4
if %max_mylife>%mylife*2 && %sel_hphalf=0 gosub *common_s1
if %max_mylife>%mylife*5 && %sel_kiki=0 gosub *common_s2
return



*name_kousan ; - Surrender

gosub *kousan_syori ; - Set surrender variables
>Luka yields to the promise of pleasure, unable to resist. \
name ""
gosub *face2 ; - Superiority face
name $name
>So you want to taste a sticky hell... @
>Alright... I'll let you taste it to your heart's content! \
name ""
goto *name_a



*name_onedari ; - Requestable moves

mov $list1,"Sticky　Mucus "
if %3004>0 mov %list_num1,1
mov $list2,"Sticky　Caress "
if %3005>0 mov %list_num2,1
mov $list3,"Slug　Rape "
if %3006>0 mov %list_num3,1
gosub *cmd_onedari
if %cmd1=11 goto *name_onedari1
if %cmd1=12 goto *name_onedari2
if %cmd1=13 && %kousoku=0 goto *name_onedari3
if %cmd1=13 && %kousoku=1 goto *name_onedari4
if %cmd1=-1 goto *name_main
goto *name_onedari



*name_onedari1

gosub *onedari_syori
name $name
>You want my mucus all over your dick...? @
>Alright... I'll let you drown in it! \
name ""
gosub *name_a1
skip -1



*name_onedari2

gosub *onedari_syori
name $name
>You want my sticky body all over you...? @
>Alright... I'll make you a prisoner of my sticky body! \
name ""
gosub *name_a2
skip -1



*name_onedari3

gosub *onedari_syori
name $name
>You want to taste a sticky hell...? @
>Alright... I'll let you enjoy it to your heart's content! \
name ""
gosub *name_a3
name $name
>Let it all out, covered in my mucus... \
name ""
gosub *name_a4
skip -1



*name_onedari4

gosub *onedari_syori
name $name
>Keep playing with you like this...? @
>Alright, I'll keep playing with you until you come... \
name ""
gosub *name_a4
skip -1



*name_h1

mov %ikigoe,1:gosub *ikigoe ; - Set orgasm to true, call orgasm function
gosub *syasei1 ; - Orgasm effects
lsp 693,":a;chara\name_bk02.bmp",183,0 ; - Change CG
gosub *syasei2 ; - Orgasm effects
 - Losing text -
mov %viclose,1:gosub *lose ; - Set losing variables
mov %2502,%2502+1:if %2502=1 mov %count_koenemy,%count_koenemy+1 ; - Variables for record keeping
if %2502>%count_most mov %count_most,%2502:mov $count_mostname,$name
count 11,1
mov $bad1,"Covered in sticky mucus, Luka ejaculted. " ; - Bad end flavor text for skill taken
mov $bad2," From then on, Luka spent the rest of his life as the Slug's mate. " ; - Bad end flavor text for Luka's fate
gosub *face2
 - Losing text -
cspl 690,699
goto *name_h ; - Go to H-scene

if %hsean_cut=1 gosub *hsean_cut2 ; - Checking for options on skipping H-scenes / previously seen scenes.
if %hsean_cut=2 gosub *hsean_cut
gosub *syasei1:gosub *syasei2
gosub *anten ; - Fade to black
mov %hseanwave,0:hseanwave ; - Cut sound
goto *badend ; - Call bad end