*menu_zukan

mov %ng,0
mov $alice_st,"alice_st"
mov %SQ,0
gosub *tatie_reset
saveoff
if %zukan_page=0 mov %zukan_page,1
screen_clear


*menu_zukan2

mov %SQ,0
shadedistance 1,2
lsp 502,":a;system\system_bg.jpg",0,0			;????
lsp 501,":a;system\window10.bmp",25,50			;????
lsp 141,":c;system\m_title_monster.jpg",20,20
lsp 142,":c;system\system_barx_u.jpg",0,0			;??????
lsp 143,":c;system\system_barx_d.jpg",0,560			;??????

*menu_zukan3

mov %SQ,0
mov %zukan_face,1
mov %zukan_pose,1
mov %zukan_cum1,0
mov %zukan_cum2,0
mov %zukan_cum3,0
mov %zukan_cum4,0
mov %zukan_cum5,0
mov %zukan_cum6,0
mov %zukan_cum7,0
mov %zukan_cum8,0
mov %zukan_skillc1,0
mov %zukan_skillc2,0
mov %zukan_skillc3,0
mov %zukan_skillc4,0
mov %zukan_skillc5,0
mov %zukan_skillc6,0
mov %zukan_skillc7,0
mov %zukan_skillc8,0
mov %zukan_skillc9,0
mov %zukan_skillc10,0
mov %zukan_skillc11,0
mov %zukan_skillc12,0
cspl 201,226
if %zukan_page<1 mov %zukan_page,12
if %zukan_page>12 mov %zukan_page,1
itoa2 $page_h,%zukan_page
if %zukan_page<10 lsp 144,":s/20,20,0;#FFFFFF"+$page_h+" / 12",370,500
if %zukan_page>9 lsp 144,":s/20,20,0;#FFFFFF"+$page_h+" / 12",360,500
if %zukan_page=1 goto *menu_zukan_page1
if %zukan_page=2 goto *menu_zukan_page2
if %zukan_page=3 goto *menu_zukan_page3
if %zukan_page=4 goto *menu_zukan_page4
if %zukan_page=5 goto *menu_zukan_page5
if %zukan_page=6 goto *menu_zukan_page6
if %zukan_page=7 goto *menu_zukan_page7
if %zukan_page=8 goto *menu_zukan_page8
if %zukan_page=9 goto *menu_zukan_page9
if %zukan_page=10 goto *menu_zukan_page10
if %zukan_page=11 goto *menu_zukan_page11
if %zukan_page=12 goto *menu_zukan_page12

*zukan_random

rnd2 %ransu,1,298
dwave 1,"2Q\se\pageturn.ogg"
if %ransu=1 goto *zukan_alice1
if %ransu=2 goto *zukan_name
if %ransu=3 goto *zukan_mdg
if %ransu=4 goto *zukan_granberia1
if %ransu=5 goto *zukan_mimizu
if %ransu=6 goto *zukan_gob
if %ransu=7 goto *zukan_pramia
if %ransu=8 goto *zukan_vgirl
if %ransu=9 goto *zukan_dragonp
if %ransu=10 goto *zukan_mitubati
if %ransu=11 goto *zukan_hapy_a
if %ransu=12 goto *zukan_hapy_bc
if %ransu=13 goto *zukan_queenhapy
if %ransu=14 goto *zukan_delh_a
if %ransu=15 goto *zukan_delh_b
if %ransu=16 goto *zukan_hiru
if %ransu=17 goto *zukan_rahure
if %ransu=18 goto *zukan_ropa
if %ransu=19 goto *zukan_youko
if %ransu=20 goto *zukan_meda
if %ransu=21 goto *zukan_kumo
if %ransu=22 goto *zukan_mimic
if %ransu=23 goto *zukan_nanabi
if %ransu=24 goto *zukan_tamamo1
if %ransu=25 goto *zukan_arumaeruma1
if %ransu=26 goto *zukan_namako
if %ransu=27 goto *zukan_kai
if %ransu=28 goto *zukan_lamia
if %ransu=29 goto *zukan_granberia2
if %ransu=30 goto *zukan_page17
if %ransu=31 goto *zukan_page257
if %ransu=32 goto *zukan_page65537
if %ransu=33 goto *zukan_kani
if %ransu=34 goto *zukan_kurage
if %ransu=35 goto *zukan_iso
if %ransu=36 goto *zukan_ankou
if %ransu=37 goto *zukan_kraken
if %ransu=38 goto *zukan_meia
if %ransu=39 goto *zukan_ghost
if %ransu=40 goto *zukan_doll
if %ransu=41 goto *zukan_zonbe
if %ransu=42 goto *zukan_zonbes
if %ransu=43 goto *zukan_frederika
if %ransu=44 goto *zukan_chrom
if %ransu=45 goto *zukan_fairy
if %ransu=46 goto *zukan_elf
if %ransu=47 goto *zukan_tfairy
if %ransu=48 goto *zukan_fairys
if %ransu=49 goto *zukan_sylph
if %ransu=50 goto *zukan_c_dryad
if %ransu=51 goto *zukan_taran
if %ransu=52 goto *zukan_mino
if %ransu=53 goto *zukan_sasori
if %ransu=54 goto *zukan_lamp
if %ransu=55 goto *zukan_mummy
if %ransu=56 goto *zukan_kobura
if %ransu=57 goto *zukan_lamias
if %ransu=58 goto *zukan_sphinx
if %ransu=59 goto *zukan_sara
if %ransu=60 goto *zukan_suckvore
if %ransu=61 goto *zukan_wormv
if %ransu=62 goto *zukan_ironmaiden
if %ransu=63 goto *zukan_lily
if %ransu=64 goto *zukan_arizigoku
if %ransu=65 goto *zukan_sandw
if %ransu=66 goto *zukan_gnome
if %ransu=67 goto *zukan_irias1
if %ransu=68 goto *zukan_alice2
if %ransu=69 goto *zukan_centa
if %ransu=70 goto *zukan_kaeru
if %ransu=71 goto *zukan_alraune
if %ransu=72 goto *zukan_durahan
if %ransu=73 goto *zukan_kerberos
if %ransu=74 goto *zukan_arumaeruma2
if %ransu=75 goto *zukan_yukionna
if %ransu=76 goto *zukan_nekomata
if %ransu=77 goto *zukan_samuraielf
if %ransu=78 goto *zukan_kunoitielf
if %ransu=79 goto *zukan_yamatanooroti
if %ransu=80 goto *zukan_moss
if %ransu=81 goto *zukan_mosquito
if %ransu=82 goto *zukan_imomusi
if %ransu=83 goto *zukan_mukade
if %ransu=84 goto *zukan_kaiko
if %ransu=85 goto *zukan_suzumebati
if %ransu=86 goto *zukan_queenbee
if %ransu=87 goto *zukan_a_alm
if %ransu=88 goto *zukan_a_looty
if %ransu=89 goto *zukan_a_vore
if %ransu=90 goto *zukan_a_parasol
if %ransu=91 goto *zukan_a_prison
if %ransu=92 goto *zukan_a_emp
if %ransu=93 goto *zukan_dorothy
if %ransu=94 goto *zukan_rafi
if %ransu=95 goto *zukan_dina
if %ransu=96 goto *zukan_jelly
if %ransu=97 goto *zukan_blob
if %ransu=98 goto *zukan_slime_green
if %ransu=99 goto *zukan_slime_blue
if %ransu=100 goto *zukan_slime_red
if %ransu=101 goto *zukan_slime_purple
if %ransu=102 goto *zukan_erbetie1
if %ransu=103 goto *zukan_undine
if %ransu=104 goto *zukan_kamakiri
if %ransu=105 goto *zukan_scylla
if %ransu=106 goto *zukan_medusa
if %ransu=107 goto *zukan_golem
if %ransu=108 goto *zukan_madgolem
if %ransu=109 goto *zukan_artm
if %ransu=110 goto *zukan_ant
if %ransu=111 goto *zukan_queenant
if %ransu=112 goto *zukan_maccubus
if %ransu=113 goto *zukan_minccubus
if %ransu=114 goto *zukan_renccubus
if %ransu=115 goto *zukan_succubus
if %ransu=116 goto *zukan_witchs
if %ransu=117 goto *zukan_lilith
if %ransu=118 goto *zukan_madaminsect
if %ransu=119 goto *zukan_madamumbrella
if %ransu=120 goto *zukan_maidscyulla
if %ransu=121 goto *zukan_emily
if %ransu=122 goto *zukan_cassandra
if %ransu=123 goto *zukan_yougan
if %ransu=124 goto *zukan_basilisk
if %ransu=125 goto *zukan_dragon
if %ransu=126 goto *zukan_salamander
if %ransu=127 goto *zukan_granberia3
if %ransu=128 goto *zukan_kani2
if %ransu=129 goto *zukan_dagon
if %ransu=130 goto *zukan_poseidones
if %ransu=131 goto *zukan_seiren
if %ransu=132 goto *zukan_hitode
if %ransu=133 goto *zukan_beelzebub
if %ransu=134 goto *zukan_trickfairy
if %ransu=135 goto *zukan_queenfairy
if %ransu=136 goto *zukan_queenelf
if %ransu=137 goto *zukan_saraevil
if %ransu=138 goto *zukan_wyvern
if %ransu=139 goto *zukan_kyoryuu
if %ransu=140 goto *zukan_c_beast
if %ransu=141 goto *zukan_c_dryad_vore
if %ransu=142 goto *zukan_vampire
if %ransu=143 goto *zukan_behemoth
if %ransu=144 goto *zukan_esuccubus
if %ransu=145 goto *zukan_hatibi
if %ransu=146 goto *zukan_inp
if %ransu=147 goto *zukan_gigantweapon
if %ransu=148 goto *zukan_arumaeruma3
if %ransu=149 goto *zukan_tamamo2
if %ransu=150 goto *zukan_erbetie2
if %ransu=151 goto *zukan_granberia4
if %ransu=152 goto *zukan_alice3
if %ransu=153 goto *zukan_irias2
if %ransu=154 goto *zukan_cupid
if %ransu=155 goto *zukan_valkyrie
if %ransu=156 goto *zukan_ariel
if %ransu=157 goto *zukan_c_s2
if %ransu=158 goto *zukan_c_a3
if %ransu=159 goto *zukan_stein1
if %ransu=160 goto *zukan_ranael
if %ransu=161 goto *zukan_c_tangh
if %ransu=162 goto *zukan_angels
if %ransu=163 goto *zukan_nagael
if %ransu=164 goto *zukan_c_slag
if %ransu=165 goto *zukan_c_tentacle
if %ransu=166 goto *zukan_mariel
if %ransu=167 goto *zukan_c_prison
if %ransu=168 goto *zukan_c_medulahan
if %ransu=169 goto *zukan_trinity
if %ransu=170 goto *zukan_c_bug
if %ransu=171 goto *zukan_sisterlamia
if %ransu=172 goto *zukan_catoblepas
if %ransu=173 goto *zukan_muzukiel
if %ransu=174 goto *zukan_Mermaid
if %ransu=175 goto *zukan_g_Mermaid
if %ransu=176 goto *zukan_ningyohime
if %ransu=177 goto *zukan_queenMermaid
if %ransu=178 goto *zukan_XX7
if %ransu=179 goto *zukan_shadow
if %ransu=180 goto *zukan_gaistvine
if %ransu=181 goto *zukan_chrom2
if %ransu=182 goto *zukan_berryel
if %ransu=183 goto *zukan_revel
if %ransu=184 goto *zukan_gnome2
if %ransu=185 goto *zukan_c_chariot
if %ransu=186 goto *zukan_carmilla
if %ransu=187 goto *zukan_elisabeth
if %ransu=188 goto *zukan_queenvanpire
if %ransu=189 goto *zukan_c_homunculus
if %ransu=190 goto *zukan_ironmaiden_k
if %ransu=191 goto *zukan_lusia
if %ransu=192 goto *zukan_silkiel
if %ransu=193 goto *zukan_endiel
if %ransu=194 goto *zukan_sylph2
if %ransu=195 goto *zukan_typhon
if %ransu=196 goto *zukan_lamianloid
if %ransu=197 goto *zukan_knightloid
if %ransu=198 goto *zukan_akaname
if %ransu=199 goto *zukan_mikolamia
if %ransu=200 goto *zukan_kezyorou
if %ransu=201 goto *zukan_sirohebisama
if %ransu=202 goto *zukan_walraune
if %ransu=203 goto *zukan_dryad
if %ransu=204 goto *zukan_queenalraune
if %ransu=205 goto *zukan_slimelord
if %ransu=206 goto *zukan_eggel
if %ransu=207 goto *zukan_salamander2
if %ransu=208 goto *zukan_tutigumo
if %ransu=209 goto *zukan_alakneload
if %ransu=210 goto *zukan_kumonomiko
if %ransu=211 goto *zukan_narcubus
if %ransu=212 goto *zukan_inps
if %ransu=213 goto *zukan_eva
if %ransu=214 goto *zukan_trooperloid
if %ransu=215 goto *zukan_assassinloid
if %ransu=216 goto *zukan_yomotu
if %ransu=217 goto *zukan_wormiel
if %ransu=218 goto *zukan_undine2
if %ransu=219 goto *zukan_alice4
if %ransu=220 goto *zukan_drainplant
if %ransu=221 goto *zukan_drainloid
if %ransu=222 goto *zukan_replicant
if %ransu=223 goto *zukan_laplace
if %ransu=224 goto *zukan_AD5
if %ransu=225 goto *zukan_fermesara
if %ransu=226 goto *zukan_angelghoul
if %ransu=227 goto *zukan_dragonzonbe
if %ransu=228 goto *zukan_cirque1
if %ransu=229 goto *zukan_cirque2
if %ransu=230 goto *zukan_cirque3
if %ransu=231 goto *zukan_alice15th
if %ransu=232 goto *zukan_shirom
if %ransu=233 goto *zukan_alice8th1
if %ransu=234 goto *zukan_traptemis
if %ransu=235 goto *zukan_gargoyle
if %ransu=236 goto *zukan_doppele
if %ransu=237 goto *zukan_hainu
if %ransu=238 goto *zukan_amphis
if %ransu=239 goto *zukan_tukuyomi
if %ransu=240 goto *zukan_arcen
if %ransu=241 goto *zukan_rapun
if %ransu=242 goto *zukan_heavensgate
if %ransu=243 goto *zukan_eden
if %ransu=244 goto *zukan_stein2
if %ransu=245 goto *zukan_alice8th2
if %ransu=246 goto *zukan_alice8th3
if %ransu=247 goto *zukan_alice8th4
if %ransu=248 goto *zukan_irias3
if %ransu=249 goto *zukan_irias4
if %ransu=250 goto *zukan_end
if %ransu=251 goto *zukan_granberia5
if %ransu=252 goto *zukan_arumaeruma4
if %ransu=253 goto *zukan_tamamo3
if %ransu=254 goto *zukan_erbetie3
if %ransu=255 goto *zukan_alice5
if %ransu=256 && %7001>0 goto *zukan_alice_ng
if %ransu=257 && %7002>0 goto *zukan_granberia_ng
if %ransu=258 && %7003>0 goto *zukan_queenharpy_ng
if %ransu=258 && %hsean_queenharpy_ng>0 goto *zukan_queenharpy_ng
if %ransu=259 && %7004>0 goto *zukan_tamamo_ng
if %ransu=259 && %hsean_tamamo_ng>0 goto *zukan_tamamo_ng
if %ransu=260 && %7005>0 goto *zukan_alma_ng
if %ransu=261 && %7006>0 goto *zukan_salamander_ng
if %ransu=262 && %7011>0 goto *zukan_undine_ng
if %ransu=263 && %7007>0 goto *zukan_sylph_ng
if %ransu=264 && %7008>0 goto *zukan_gnome_ng
if %ransu=265 && %7009>0 goto *zukan_erubetie_ng
if %ransu=266 && %7010>0 goto *zukan_micaela_ng
if %ransu=267 && %7012>0 goto *zukan_ririmu_ng
if %ransu=268 && %7013>0 goto *zukan_koakuma_ng
if %ransu=269 && %7015>0 goto *zukan_succubus_ng
if %ransu=270 && %7016>0 goto *zukan_witchs_ng
if %ransu=271 && %7034>0 goto *zukan_maccubus_ng
if %ransu=271 && %7040>0 goto *zukan_maccubus_ng
if %ransu=272 && %7035>0 goto *zukan_mincubus_ng
if %ransu=272 && %7041>0 goto *zukan_mincubus_ng
if %ransu=273 && %7026>0 goto *zukan_lencubus_ng
if %ransu=274 && %7014>0 goto *zukan_lilith_ng
if %ransu=275 && %7017>0 goto *zukan_kani_ng
if %ransu=276 && %7018>0 goto *zukan_kraken_ng
if %ransu=276 && %7022>0 goto *zukan_kraken_ng
if %ransu=276 && %7042>0 goto *zukan_kraken_ng
if %ransu=277 && %7019>0 goto *zukan_queenmermaid_ng
if %ransu=278 && %7020>0 goto *zukan_meia_ng
if %ransu=279 && %7037>0 goto *zukan_sphinx_ng
if %ransu=280 && %7036>0 goto *zukan_saraevil_ng
if %ransu=280 && %hsean_sara_ng>0 goto *zukan_saraevil_ng
if %ransu=281 && %7038>0 goto *zukan_bess_ng
if %ransu=282 && %7026>0 goto *zukan_redslime_ng
if %ransu=283 && %7027>0 goto *zukan_purpleslime_ng
if %ransu=284 && %7028>0 goto *zukan_morrigan_ng
if %ransu=285 && %7029>0 goto *zukan_astaroth_ng
if %ransu=286 && %7030>0 goto *zukan_beelzebub_ng
if %ransu=287 && %7050>0 goto *zukan_chrome_ng
if %ransu=288 && %7044>0 goto *zukan_koakuma_ng2
if %ransu=289 && %7045>0 goto *zukan_granberia_ng2
if %ransu=290 && %7046>0 goto *zukan_alma_ng2
if %ransu=291 && %7047>0 goto *zukan_valkyrie_ng
if %ransu=292 && %7048>0 goto *zukan_gnqueen
if %ransu=293 goto *zukan_slime
if %ransu=294 && %7056>0 goto *zukan_poseidoness_ng
if %ransu=295 && %7059>0 goto *zukan_pramia_ng
if %ransu=296 && %7062>0 goto *zukan_vgirl_ng
if %ransu=297 && %7065>0 goto *zukan_dragonp_ng
if %ransu=298 && %7068>0 goto *zukan_goblin_ng
goto *zukan_random

*zukan_prev

dwave 1,"2Q\se\pageturn.ogg"
if $zlavel="goblin_ng" && %7065>0 goto *zukan_dragonp_ng
if $zlavel="goblin_ng" && %7065<1 mov $zlavel,"dragonp_ng"
if $zlavel="dragonp_ng" && %7062>0 goto *zukan_vgirl_ng
if $zlavel="dragonp_ng" && %7062<1 mov $zlavel,"vgirl_ng"
if $zlavel="vgirl_ng" && %7059>0 goto *zukan_pramia_ng
if $zlavel="vgirl_ng" && %7059<1 mov $zlavel,"pramia_ng"
if $zlavel="pramia_ng" && %7056>0 goto *zukan_poseidoness_ng
if $zlavel="pramia_ng" && %7056<1 mov $zlavel,"poseidoness_ng"
if $zlavel="poseidoness_ng" && %7048>0 goto *zukan_gnqueen
if $zlavel="poseidoness_ng" && %7048<1 mov $zlavel,"gnqueen"
if $zlavel="gnqueen" && %7047>0 goto *zukan_valkyrie_ng
if $zlavel="gnqueen" && %7047<1 mov $zlavel,"valkyrie_ng"
if $zlavel="valkyrie_ng" && %7046>0 goto *zukan_alma_ng2
if $zlavel="valkyrie_ng" && %7046<1 mov $zlavel,"alma_ng2"
if $zlavel="alma_ng2" && %7045>0 goto *zukan_granberia_ng2
if $zlavel="alma_ng2" && %7045<1 mov $zlavel,"granberia_ng2"
if $zlavel="granberia_ng2" && %7044>0 goto *zukan_koakuma_ng2
if $zlavel="granberia_ng2" && %7044<1 mov $zlavel,"koakuma_ng2"
if $zlavel="koakuma_ng2" && %7050>0 goto *zukan_chrome_ng
if $zlavel="koakuma_ng2" && %7050<1 mov $zlavel,"chrome_ng"
if $zlavel="chrome_ng" && %7030>0 goto *zukan_beelzebub_ng
if $zlavel="chrome_ng" && %7030<1 mov $zlavel,"beelzebub_ng"
if $zlavel="beelzebub_ng" && %7029>0 goto *zukan_astaroth_ng
if $zlavel="beelzebub_ng" && %7029<1 mov $zlavel,"astaroth_ng"
if $zlavel="astaroth_ng" && %7028>0 goto *zukan_morrigan_ng
if $zlavel="astaroth_ng" && %7028<1 mov $zlavel,"morrigan_ng"
if $zlavel="morrigan_ng" && %7027>0 goto *zukan_purpleslime_ng
if $zlavel="morrigan_ng" && %7027<1 mov $zlavel,"purpleslime_ng"
if $zlavel="purpleslime_ng" && %7026>0 goto *zukan_redslime_ng
if $zlavel="purpleslime_ng" && %7026<1 mov $zlavel,"redslime_ng"
if $zlavel="redslime_ng" && %7038>0 goto *zukan_bess_ng
if $zlavel="redslime_ng" && %7038<1 mov $zlavel,"bess_ng"
if $zlavel="bess_ng" && %7036>0 goto *zukan_saraevil_ng
if $zlavel="bess_ng" && %hsean_sara_ng>0 goto *zukan_saraevil_ng
if $zlavel="bess_ng" && %7036<1 && %hsean_sara_ng<1 mov $zlavel,"saraevil_ng"
if $zlavel="saraevil_ng" && %7037>0 goto *zukan_sphinx_ng
if $zlavel="saraevil_ng" && %7037<1 mov $zlavel,"sphinx_ng"
if $zlavel="sphinx_ng" && %7020>0 goto *zukan_meia_ng
if $zlavel="sphinx_ng" && %7020<1 mov $zlavel,"meia_ng"
if $zlavel="meia_ng" && %7019>0 goto *zukan_queenmermaid_ng
if $zlavel="meia_ng" && %7019<1 mov $zlavel,"queenmermaid_ng"
if $zlavel="queenmermaid_ng" && %7018>0 goto *zukan_kraken_ng
if $zlavel="queenmermaid_ng" && %7022>0 goto *zukan_kraken_ng
if $zlavel="queenmermaid_ng" && %7042>0 goto *zukan_kraken_ng
if $zlavel="queenmermaid_ng" && %7018<1 && %7022<1 && %7042<1 mov $zlavel,"kraken_ng"
if $zlavel="kraken_ng" && %7017>0 goto *zukan_kani_ng
if $zlavel="kraken_ng" && %7017<1 mov $zlavel,"kani_ng"
if $zlavel="kani_ng" && %7014>0 goto *zukan_lilith_ng
if $zlavel="kani_ng" && %7014<1 mov $zlavel,"lilith_ng"
if $zlavel="lilith_ng" && %7026>0 goto *zukan_lencubus_ng
if $zlavel="lilith_ng" && %7026<1 mov $zlavel,"lencubus_ng"
if $zlavel="lencubus_ng" && %7035>0 goto *zukan_mincubus_ng
if $zlavel="lencubus_ng" && %7041>0 goto *zukan_mincubus_ng
if $zlavel="lencubus_ng" && %7035<1 && %7041<1 mov $zlavel,"mincubus_ng"
if $zlavel="mincubus_ng" && %7034>0 goto *zukan_maccubus_ng
if $zlavel="mincubus_ng" && %7040>0 goto *zukan_maccubus_ng
if $zlavel="mincubus_ng" && %7034<1 && %7040<1 mov $zlavel,"maccubus_ng"
if $zlavel="maccubus_ng" && %7016>0 goto *zukan_witchs_ng
if $zlavel="maccubus_ng" && %7016<1 mov $zlavel,"witchs_ng"
if $zlavel="witchs_ng" && %7015>0 goto *zukan_succubus_ng
if $zlavel="witchs_ng" && %7015<1 mov $zlavel,"succubus_ng"
if $zlavel="succubus_ng" && %7013>0 goto *zukan_koakuma_ng
if $zlavel="succubus_ng" && %7013<1 mov $zlavel,"koakuma_ng"
if $zlavel="koakuma_ng" && %7012>0 goto *zukan_ririmu_ng
if $zlavel="koakuma_ng" && %7012<1 mov $zlavel,"ririmu_ng"
if $zlavel="ririmu_ng" && %7010>0 goto *zukan_micaela_ng
if $zlavel="ririmu_ng" && %7010<1 mov $zlavel,"micaela_ng"
if $zlavel="micaela_ng" && %7009>0 goto *zukan_erubetie_ng
if $zlavel="micaela_ng" && %7009<1 mov $zlavel,"erubetie_ng"
if $zlavel="erubetie_ng" && %7008>0 goto *zukan_gnome_ng
if $zlavel="erubetie_ng" && %7008<1 mov $zlavel,"gnome_ng"
if $zlavel="gnome_ng" && %7007>0 goto *zukan_sylph_ng
if $zlavel="gnome_ng" && %7007<1 mov $zlavel,"sylph_ng"
if $zlavel="sylph_ng" && %7011>0 goto *zukan_undine_ng
if $zlavel="sylph_ng" && %7011<1 mov $zlavel,"undine_ng"
if $zlavel="undine_ng" && %7006>0 goto *zukan_salamander_ng
if $zlavel="undine_ng" && %7006<1 mov $zlavel,"salamander_ng"
if $zlavel="salamander_ng" && %7005>0 goto *zukan_alma_ng
if $zlavel="salamander_ng" && %7005<1 mov $zlavel,"alma_ng"
if $zlavel="alma_ng" && %7004>0 goto *zukan_tamamo_ng
if $zlavel="alma_ng" && %hsean_tamamo_ng>0 goto *zukan_tamamo_ng
if $zlavel="alma_ng" && %7004<1 mov $zlavel,"tamamo_ng"
if $zlavel="tamamo_ng" && %7003>0 goto *zukan_queenharpy_ng
if $zlavel="tamamo_ng" && %hsean_queenharpy_ng>0 goto *zukan_queenharpy_ng
if $zlavel="tamamo_ng" && %7003<1 mov $zlavel,"queenharpy_ng"
if $zlavel="queenharpy_ng" && %7002>0 goto *zukan_granberia_ng
if $zlavel="queenharpy_ng" && %7002<1 mov $zlavel,"granberia_ng"
if $zlavel="granberia_ng" && %7001>0 goto *zukan_alice_ng
if $zlavel="granberia_ng" && %7001<1 mov $zlavel,"alice_ng"
if $zlavel="alice_ng" goto *zukan_alice5
if $zlavel="alice5" goto *zukan_erbetie3
if $zlavel="erbetie3" goto *zukan_tamamo3
if $zlavel="tamamo3" goto *zukan_arumaeruma4
if $zlavel="arumaeruma4" goto *zukan_granberia5
if $zlavel="granberia5" goto *zukan_end
if $zlavel="end" goto *zukan_irias4
if $zlavel="irias4" goto *zukan_irias3
if $zlavel="irias3" goto *zukan_alice8th4
if $zlavel="alice8th4" goto *zukan_alice8th3
if $zlavel="alice8th3" goto *zukan_alice8th2
if $zlavel="alice8th2" goto *zukan_stein2
if $zlavel="stein2" goto *zukan_eden
if $zlavel="eden" goto *zukan_heavensgate
if $zlavel="heavensgate" goto *zukan_rapun
if $zlavel="rapun" goto *zukan_arcen
if $zlavel="arcen" goto *zukan_tukuyomi
if $zlavel="tukuyomi" goto *zukan_amphis
if $zlavel="amphis" goto *zukan_hainu
if $zlavel="hainu" goto *zukan_doppele
if $zlavel="doppele" goto *zukan_gargoyle
if $zlavel="gargoyle" goto *zukan_traptemis
if $zlavel="traptemis" goto *zukan_alice8th1
if $zlavel="alice8th1" goto *zukan_shirom
if $zlavel="shirom" goto *zukan_alice15th
if $zlavel="alice15th" goto *zukan_cirque3
if $zlavel="cirque3" goto *zukan_cirque2
if $zlavel="cirque2" goto *zukan_cirque1
if $zlavel="cirque1" goto *zukan_dragonzonbe
if $zlavel="dragonzonbe" goto *zukan_angelghoul
if $zlavel="angelghoul" goto *zukan_fermesara
if $zlavel="fermesara" goto *zukan_AD5
if $zlavel="AD5" goto *zukan_laplace
if $zlavel="laplace" goto *zukan_replicant
if $zlavel="replicant" goto *zukan_drainloid
if $zlavel="drainloid" goto *zukan_drainplant
if $zlavel="drainplant" goto *zukan_alice4
if $zlavel="alice4" goto *zukan_undine2
if $zlavel="undine2" goto *zukan_wormiel
if $zlavel="wormiel" goto *zukan_yomotu
if $zlavel="yomotu" goto *zukan_assassinloid
if $zlavel="assassinloid" goto *zukan_trooperloid
if $zlavel="trooperloid" goto *zukan_eva
if $zlavel="eva" goto *zukan_inps
if $zlavel="inps" goto *zukan_narcubus
if $zlavel="narcubus" goto *zukan_kumonomiko
if $zlavel="kumonomiko" goto *zukan_alakneload
if $zlavel="alakneload" goto *zukan_tutigumo
if $zlavel="tutigumo" goto *zukan_salamander2
if $zlavel="salamander2" goto *zukan_eggel
if $zlavel="eggel" goto *zukan_slimelord
if $zlavel="slimelord" goto *zukan_queenalraune
if $zlavel="queenalraune" goto *zukan_dryad
if $zlavel="dryad" goto *zukan_walraune
if $zlavel="walraune" goto *zukan_sirohebisama
if $zlavel="sirohebisama" goto *zukan_kezyorou
if $zlavel="kezyorou" goto *zukan_mikolamia
if $zlavel="mikolamia" goto *zukan_akaname
if $zlavel="akaname" goto *zukan_knightloid
if $zlavel="knightloid" goto *zukan_lamianloid
if $zlavel="lamianloid" goto *zukan_typhon
if $zlavel="typhon" goto *zukan_sylph2
if $zlavel="sylph2" goto *zukan_endiel
if $zlavel="endiel" goto *zukan_silkiel
if $zlavel="silkiel" goto *zukan_lusia
if $zlavel="lusia" goto *zukan_ironmaiden_k
if $zlavel="ironmaiden_k" goto *zukan_c_homunculus
if $zlavel="c_homunculus" goto *zukan_queenvanpire
if $zlavel="queenvanpire" goto *zukan_elisabeth
if $zlavel="elisabeth" goto *zukan_carmilla
if $zlavel="carmilla" goto *zukan_c_chariot
if $zlavel="c_chariot" goto *zukan_gnome2
if $zlavel="gnome2" goto *zukan_revel
if $zlavel="revel" goto *zukan_berryel
if $zlavel="berryel" goto *zukan_chrom2
if $zlavel="chrom2" goto *zukan_gaistvine
if $zlavel="gaistvine" goto *zukan_shadow
if $zlavel="shadow" goto *zukan_XX7
if $zlavel="XX7" goto *zukan_queenMermaid
if $zlavel="queenMermaid" goto *zukan_ningyohime
if $zlavel="ningyohime" goto *zukan_g_Mermaid
if $zlavel="g_Mermaid" goto *zukan_Mermaid
if $zlavel="Mermaid" goto *zukan_muzukiel
if $zlavel="muzukiel" goto *zukan_catoblepas
if $zlavel="catoblepas" goto *zukan_sisterlamia
if $zlavel="sisterlamia" goto *zukan_c_bug
if $zlavel="c_bug" goto *zukan_trinity
if $zlavel="trinity" goto *zukan_c_medulahan
if $zlavel="c_medulahan" goto *zukan_c_prison
if $zlavel="c_prison" goto *zukan_mariel
if $zlavel="mariel" goto *zukan_c_tentacle
if $zlavel="c_tentacle" goto *zukan_c_slag
if $zlavel="c_slag" goto *zukan_nagael
if $zlavel="nagael" goto *zukan_angels
if $zlavel="angels" goto *zukan_c_tangh
if $zlavel="c_tangh" goto *zukan_ranael
if $zlavel="ranael" goto *zukan_stein1
if $zlavel="stein1" goto *zukan_c_a3
if $zlavel="c_a3" goto *zukan_c_s2
if $zlavel="c_s2" goto *zukan_ariel
if $zlavel="ariel" goto *zukan_valkyrie
if $zlavel="valkyrie" goto *zukan_cupid
if $zlavel="cupid" goto *zukan_irias2
if $zlavel="irias2" goto *zukan_alice3
if $zlavel="alice3" goto *zukan_granberia4
if $zlavel="granberia4" goto *zukan_erbetie2
if $zlavel="erbetie2" goto *zukan_tamamo2
if $zlavel="tamamo2" goto *zukan_arumaeruma3
if $zlavel="arumaeruma3" goto *zukan_gigantweapon
if $zlavel="gigantweapon" goto *zukan_inp
if $zlavel="inp" goto *zukan_hatibi
if $zlavel="hatibi" goto *zukan_esuccubus
if $zlavel="esuccubus" goto *zukan_behemoth
if $zlavel="behemoth" goto *zukan_vampire
if $zlavel="vampire" goto *zukan_c_dryad_vore
if $zlavel="c_dryad_vore" goto *zukan_c_beast
if $zlavel="c_beast" goto *zukan_kyoryuu
if $zlavel="kyoryuu" goto *zukan_wyvern
if $zlavel="wyvern" goto *zukan_saraevil
if $zlavel="saraevil" goto *zukan_queenelf
if $zlavel="queenelf" goto *zukan_queenfairy
if $zlavel="queenfairy" goto *zukan_trickfairy
if $zlavel="trickfairy" goto *zukan_beelzebub
if $zlavel="beelzebub" goto *zukan_hitode
if $zlavel="hitode" goto *zukan_seiren
if $zlavel="seiren" goto *zukan_poseidones
if $zlavel="poseidones" goto *zukan_dagon
if $zlavel="dagon" goto *zukan_kani2
if $zlavel="kani2" goto *zukan_granberia3
if $zlavel="granberia3" goto *zukan_salamander
if $zlavel="salamander" goto *zukan_dragon
if $zlavel="dragon" goto *zukan_basilisk
if $zlavel="basilisk" goto *zukan_yougan
if $zlavel="yougan" goto *zukan_cassandra
if $zlavel="cassandra" goto *zukan_emily
if $zlavel="emily" goto *zukan_maidscyulla
if $zlavel="maidscyulla" goto *zukan_madamumbrella
if $zlavel="madamumbrella" goto *zukan_madaminsect
if $zlavel="madaminsect" goto *zukan_lilith
if $zlavel="lilith" goto *zukan_witchs
if $zlavel="witchs" goto *zukan_succubus
if $zlavel="succubus" goto *zukan_renccubus
if $zlavel="renccubus" goto *zukan_minccubus
if $zlavel="minccubus" goto *zukan_maccubus
if $zlavel="maccubus" goto *zukan_queenant
if $zlavel="queenant" goto *zukan_ant
if $zlavel="ant" goto *zukan_artm
if $zlavel="artm" goto *zukan_madgolem
if $zlavel="madgolem" goto *zukan_golem
if $zlavel="golem" goto *zukan_medusa
if $zlavel="medusa" goto *zukan_scylla
if $zlavel="scylla" goto *zukan_kamakiri
if $zlavel="kamakiri" goto *zukan_undine
if $zlavel="undine" goto *zukan_erbetie1
if $zlavel="erbetie1" goto *zukan_slime_purple
if $zlavel="slime_purple" goto *zukan_slime_red
if $zlavel="slime_red" goto *zukan_slime_blue
if $zlavel="slime_blue" goto *zukan_slime_green
if $zlavel="slime_green" goto *zukan_blob
if $zlavel="blob" goto *zukan_jelly
if $zlavel="jelly" goto *zukan_dina
if $zlavel="dina" goto *zukan_rafi
if $zlavel="rafi" goto *zukan_dorothy
if $zlavel="dorothy" goto *zukan_a_emp
if $zlavel="a_emp" goto *zukan_a_prison
if $zlavel="a_prison" goto *zukan_a_parasol
if $zlavel="a_parasol" goto *zukan_a_vore
if $zlavel="a_vore" goto *zukan_a_looty
if $zlavel="a_looty" goto *zukan_a_alm
if $zlavel="a_alm" goto *zukan_queenbee
if $zlavel="queenbee" goto *zukan_suzumebati
if $zlavel="suzumebati" goto *zukan_kaiko
if $zlavel="kaiko" goto *zukan_mukade
if $zlavel="mukade" goto *zukan_imomusi
if $zlavel="imomusi" goto *zukan_mosquito
if $zlavel="mosquito" goto *zukan_moss
if $zlavel="moss" goto *zukan_yamatanooroti
if $zlavel="yamatanooroti" goto *zukan_kunoitielf
if $zlavel="kunoitielf" goto *zukan_samuraielf
if $zlavel="samuraielf" goto *zukan_nekomata
if $zlavel="nekomata" goto *zukan_yukionna
if $zlavel="yukionna" goto *zukan_arumaeruma2
if $zlavel="arumaeruma2" goto *zukan_kerberos
if $zlavel="kerberos" goto *zukan_durahan
if $zlavel="durahan" goto *zukan_alraune
if $zlavel="alraune" goto *zukan_kaeru
if $zlavel="kaeru" goto *zukan_centa
if $zlavel="centa" goto *zukan_alice2
if $zlavel="alice2" goto *zukan_irias1
if $zlavel="irias1" goto *zukan_gnome
if $zlavel="gnome" goto *zukan_sandw
if $zlavel="sandw" goto *zukan_arizigoku
if $zlavel="arizigoku" goto *zukan_lily
if $zlavel="lily" goto *zukan_ironmaiden
if $zlavel="ironmaiden" goto *zukan_wormv
if $zlavel="wormv" goto *zukan_suckvore
if $zlavel="suckvore" goto *zukan_sara
if $zlavel="sara" goto *zukan_sphinx
if $zlavel="sphinx" goto *zukan_lamias
if $zlavel="lamias" goto *zukan_kobura
if $zlavel="kobura" goto *zukan_mummy
if $zlavel="mummy" goto *zukan_lamp
if $zlavel="lamp" goto *zukan_sasori
if $zlavel="sasori" goto *zukan_mino
if $zlavel="mino" goto *zukan_taran
if $zlavel="taran" goto *zukan_c_dryad
if $zlavel="c_dryad" goto *zukan_sylph
if $zlavel="sylph" goto *zukan_fairys
if $zlavel="fairys" goto *zukan_tfairy
if $zlavel="tfairy" goto *zukan_elf
if $zlavel="elf" goto *zukan_fairy
if $zlavel="fairy" goto *zukan_chrom
if $zlavel="chrom" goto *zukan_frederika
if $zlavel="frederika" goto *zukan_zonbes
if $zlavel="zonbes" goto *zukan_zonbe
if $zlavel="zonbe" goto *zukan_doll
if $zlavel="doll" goto *zukan_ghost
if $zlavel="ghost" goto *zukan_meia
if $zlavel="meia" goto *zukan_kraken
if $zlavel="kraken" goto *zukan_ankou
if $zlavel="ankou" goto *zukan_iso
if $zlavel="iso" goto *zukan_kurage
if $zlavel="kurage" goto *zukan_kani
if $zlavel="kani" goto *zukan_page65537
if $zlavel="page65537" goto *zukan_page257
if $zlavel="page257" goto *zukan_page17
if $zlavel="page17" goto *zukan_granberia2
if $zlavel="granberia2" goto *zukan_lamia
if $zlavel="lamia" goto *zukan_kai
if $zlavel="kai" goto *zukan_namako
if $zlavel="namako" goto *zukan_arumaeruma1
if $zlavel="arumaeruma1" goto *zukan_tamamo1
if $zlavel="tamamo1" goto *zukan_nanabi
if $zlavel="nanabi" goto *zukan_mimic
if $zlavel="mimic" goto *zukan_kumo
if $zlavel="kumo" goto *zukan_meda
if $zlavel="meda" goto *zukan_youko
if $zlavel="youko" goto *zukan_ropa
if $zlavel="ropa" goto *zukan_rahure
if $zlavel="rahure" goto *zukan_hiru
if $zlavel="hiru" goto *zukan_delh_b
if $zlavel="delh_b" goto *zukan_delh_a
if $zlavel="delh_a" goto *zukan_queenhapy
if $zlavel="queenhapy" goto *zukan_hapy_bc
if $zlavel="hapy_bc" goto *zukan_hapy_a
if $zlavel="hapy_a" goto *zukan_mitubati
if $zlavel="mitubati" goto *zukan_dragonp
if $zlavel="dragonp" goto *zukan_vgirl
if $zlavel="vgirl" goto *zukan_pramia
if $zlavel="pramia" goto *zukan_gob
if $zlavel="gob" goto *zukan_mimizu
if $zlavel="mimizu" goto *zukan_mdg
if $zlavel="mdg" goto *zukan_name
if $zlavel="name" goto *zukan_alice1
if $zlavel="alice1" goto *zukan_slime
if $zlavel="slime" && %7068>0 goto *zukan_goblin_ng
if $zlavel="slime" && %7068<1 mov $zlavel,"goblin_ng"
goto *zukan_prev

*zukan_next

dwave 1,"2Q\se\pageturn.ogg"
if $zlavel="slime" goto *zukan_alice1
if $zlavel="alice1" goto *zukan_name
if $zlavel="name" goto *zukan_mdg
if $zlavel="mdg" goto *zukan_granberia1
if $zlavel="granberia1" goto *zukan_mimizu
if $zlavel="mimizu" goto *zukan_gob
if $zlavel="gob" goto *zukan_pramia
if $zlavel="pramia" goto *zukan_vgirl
if $zlavel="vgirl" goto *zukan_dragonp
if $zlavel="dragonp" goto *zukan_mitubati
if $zlavel="mitubati" goto *zukan_hapy_a
if $zlavel="hapy_a" goto *zukan_hapy_bc
if $zlavel="hapy_bc" goto *zukan_queenhapy
if $zlavel="queenhapy" goto *zukan_delh_a
if $zlavel="delh_a" goto *zukan_delh_b
if $zlavel="delh_b" goto *zukan_hiru
if $zlavel="hiru" goto *zukan_rahure
if $zlavel="rahure" goto *zukan_ropa
if $zlavel="ropa" goto *zukan_youko
if $zlavel="youko" goto *zukan_meda
if $zlavel="meda" goto *zukan_kumo
if $zlavel="kumo" goto *zukan_mimic
if $zlavel="mimic" goto *zukan_nanabi
if $zlavel="nanabi" goto *zukan_tamamo1
if $zlavel="tamamo1" goto *zukan_arumaeruma1
if $zlavel="arumaeruma1" goto *zukan_namako
if $zlavel="namako" goto *zukan_kai
if $zlavel="kai" goto *zukan_lamia
if $zlavel="lamia" goto *zukan_granberia2
if $zlavel="granberia2" goto *zukan_page17
if $zlavel="page17" goto *zukan_page257
if $zlavel="page257" goto *zukan_page65537
if $zlavel="page65537" goto *zukan_kani
if $zlavel="kani" goto *zukan_kurage
if $zlavel="kurage" goto *zukan_iso
if $zlavel="iso" goto *zukan_ankou
if $zlavel="ankou" goto *zukan_kraken
if $zlavel="kraken" goto *zukan_meia
if $zlavel="meia" goto *zukan_ghost
if $zlavel="ghost" goto *zukan_doll
if $zlavel="doll" goto *zukan_zonbe
if $zlavel="zonbe" goto *zukan_zonbes
if $zlavel="zonbes" goto *zukan_frederika
if $zlavel="frederika" goto *zukan_chrom
if $zlavel="chrom" goto *zukan_fairy
if $zlavel="fairy" goto *zukan_elf
if $zlavel="elf" goto *zukan_tfairy
if $zlavel="tfairy" goto *zukan_fairys
if $zlavel="fairys" goto *zukan_sylph
if $zlavel="sylph" goto *zukan_c_dryad
if $zlavel="c_dryad" goto *zukan_taran
if $zlavel="taran" goto *zukan_mino
if $zlavel="mino" goto *zukan_sasori
if $zlavel="sasori" goto *zukan_lamp
if $zlavel="lamp" goto *zukan_mummy
if $zlavel="mummy" goto *zukan_kobura
if $zlavel="kobura" goto *zukan_lamias
if $zlavel="lamias" goto *zukan_sphinx
if $zlavel="sphinx" goto *zukan_sara
if $zlavel="sara" goto *zukan_suckvore
if $zlavel="suckvore" goto *zukan_wormv
if $zlavel="wormv" goto *zukan_ironmaiden
if $zlavel="ironmaiden" goto *zukan_lily
if $zlavel="lily" goto *zukan_arizigoku
if $zlavel="arizigoku" goto *zukan_sandw
if $zlavel="sandw" goto *zukan_gnome
if $zlavel="gnome" goto *zukan_irias1
if $zlavel="irias1" goto *zukan_alice2
if $zlavel="alice2" goto *zukan_centa
if $zlavel="centa" goto *zukan_kaeru
if $zlavel="kaeru" goto *zukan_alraune
if $zlavel="alraune" goto *zukan_durahan
if $zlavel="durahan" goto *zukan_kerberos
if $zlavel="kerberos" goto *zukan_arumaeruma2
if $zlavel="arumaeruma2" goto *zukan_yukionna
if $zlavel="yukionna" goto *zukan_nekomata
if $zlavel="nekomata" goto *zukan_samuraielf
if $zlavel="samuraielf" goto *zukan_kunoitielf
if $zlavel="kunoitielf" goto *zukan_yamatanooroti
if $zlavel="yamatanooroti" goto *zukan_moss
if $zlavel="moss" goto *zukan_mosquito
if $zlavel="mosquito" goto *zukan_imomusi
if $zlavel="imomusi" goto *zukan_mukade
if $zlavel="mukade" goto *zukan_kaiko
if $zlavel="kaiko" goto *zukan_suzumebati
if $zlavel="suzumebati" goto *zukan_queenbee
if $zlavel="queenbee" goto *zukan_a_alm
if $zlavel="a_alm" goto *zukan_a_looty
if $zlavel="a_looty" goto *zukan_a_vore
if $zlavel="a_vore" goto *zukan_a_parasol
if $zlavel="a_parasol" goto *zukan_a_prison
if $zlavel="a_prison" goto *zukan_a_emp
if $zlavel="a_emp" goto *zukan_dorothy
if $zlavel="dorothy" goto *zukan_rafi
if $zlavel="rafi" goto *zukan_dina
if $zlavel="dina" goto *zukan_jelly
if $zlavel="jelly" goto *zukan_blob
if $zlavel="blob" goto *zukan_slime_green
if $zlavel="slime_green" goto *zukan_slime_blue
if $zlavel="slime_blue" goto *zukan_slime_red
if $zlavel="slime_red" goto *zukan_slime_purple
if $zlavel="slime_purple" goto *zukan_erbetie1
if $zlavel="erbetie1" goto *zukan_undine
if $zlavel="undine" goto *zukan_kamakiri
if $zlavel="kamakiri" goto *zukan_scylla
if $zlavel="scylla" goto *zukan_medusa
if $zlavel="medusa" goto *zukan_golem
if $zlavel="golem" goto *zukan_madgolem
if $zlavel="madgolem" goto *zukan_artm
if $zlavel="artm" goto *zukan_ant
if $zlavel="ant" goto *zukan_queenant
if $zlavel="queenant" goto *zukan_maccubus
if $zlavel="maccubus" goto *zukan_minccubus
if $zlavel="minccubus" goto *zukan_renccubus
if $zlavel="renccubus" goto *zukan_succubus
if $zlavel="succubus" goto *zukan_witchs
if $zlavel="witchs" goto *zukan_lilith
if $zlavel="lilith" goto *zukan_madaminsect
if $zlavel="madaminsect" goto *zukan_madamumbrella
if $zlavel="madamumbrella" goto *zukan_maidscyulla
if $zlavel="maidscyulla" goto *zukan_emily
if $zlavel="emily" goto *zukan_cassandra
if $zlavel="cassandra" goto *zukan_yougan
if $zlavel="yougan" goto *zukan_basilisk
if $zlavel="basilisk" goto *zukan_dragon
if $zlavel="dragon" goto *zukan_salamander
if $zlavel="salamander" goto *zukan_granberia3
if $zlavel="granberia3" goto *zukan_kani2
if $zlavel="kani2" goto *zukan_dagon
if $zlavel="dagon" goto *zukan_poseidones
if $zlavel="poseidones" goto *zukan_seiren
if $zlavel="seiren" goto *zukan_hitode
if $zlavel="hitode" goto *zukan_beelzebub
if $zlavel="beelzebub" goto *zukan_trickfairy
if $zlavel="trickfairy" goto *zukan_queenfairy
if $zlavel="queenfairy" goto *zukan_queenelf
if $zlavel="queenelf" goto *zukan_saraevil
if $zlavel="saraevil" goto *zukan_wyvern
if $zlavel="wyvern" goto *zukan_kyoryuu
if $zlavel="kyoryuu" goto *zukan_c_beast
if $zlavel="c_beast" goto *zukan_c_dryad_vore
if $zlavel="c_dryad_vore" goto *zukan_vampire
if $zlavel="vampire" goto *zukan_behemoth
if $zlavel="behemoth" goto *zukan_esuccubus
if $zlavel="esuccubus" goto *zukan_hatibi
if $zlavel="hatibi" goto *zukan_inp
if $zlavel="inp" goto *zukan_gigantweapon
if $zlavel="gigantweapon" goto *zukan_arumaeruma3
if $zlavel="arumaeruma3" goto *zukan_tamamo2
if $zlavel="tamamo2" goto *zukan_erbetie2
if $zlavel="erbetie2" goto *zukan_granberia4
if $zlavel="granberia4" goto *zukan_alice3
if $zlavel="alice3" goto *zukan_irias2
if $zlavel="irias2" goto *zukan_cupid
if $zlavel="cupid" goto *zukan_valkyrie
if $zlavel="valkyrie" goto *zukan_ariel
if $zlavel="ariel" goto *zukan_c_s2
if $zlavel="c_s2" goto *zukan_c_a3
if $zlavel="c_a3" goto *zukan_stein1
if $zlavel="stein1" goto *zukan_ranael
if $zlavel="ranael" goto *zukan_c_tangh
if $zlavel="c_tangh" goto *zukan_angels
if $zlavel="angels" goto *zukan_nagael
if $zlavel="nagael" goto *zukan_c_slag
if $zlavel="c_slag" goto *zukan_c_tentacle
if $zlavel="c_tentacle" goto *zukan_mariel
if $zlavel="mariel" goto *zukan_c_prison
if $zlavel="c_prison" goto *zukan_c_medulahan
if $zlavel="c_medulahan" goto *zukan_trinity
if $zlavel="trinity" goto *zukan_c_bug
if $zlavel="c_bug" goto *zukan_sisterlamia
if $zlavel="sisterlamia" goto *zukan_catoblepas
if $zlavel="catoblepas" goto *zukan_muzukiel
if $zlavel="muzukiel" goto *zukan_Mermaid
if $zlavel="Mermaid" goto *zukan_g_Mermaid
if $zlavel="g_Mermaid" goto *zukan_ningyohime
if $zlavel="ningyohime" goto *zukan_queenMermaid
if $zlavel="queenMermaid" goto *zukan_XX7
if $zlavel="XX7" goto *zukan_shadow
if $zlavel="shadow" goto *zukan_gaistvine
if $zlavel="gaistvine" goto *zukan_chrom2
if $zlavel="chrom2" goto *zukan_berryel
if $zlavel="berryel" goto *zukan_revel
if $zlavel="revel" goto *zukan_gnome2
if $zlavel="gnome2" goto *zukan_c_chariot
if $zlavel="c_chariot" goto *zukan_carmilla
if $zlavel="carmilla" goto *zukan_elisabeth
if $zlavel="elisabeth" goto *zukan_queenvanpire
if $zlavel="queenvanpire" goto *zukan_c_homunculus
if $zlavel="c_homunculus" goto *zukan_ironmaiden_k
if $zlavel="ironmaiden_k" goto *zukan_lusia
if $zlavel="lusia" goto *zukan_silkiel
if $zlavel="silkiel" goto *zukan_endiel
if $zlavel="endiel" goto *zukan_sylph2
if $zlavel="sylph2" goto *zukan_typhon
if $zlavel="typhon" goto *zukan_lamianloid
if $zlavel="lamianloid" goto *zukan_knightloid
if $zlavel="knightloid" goto *zukan_akaname
if $zlavel="akaname" goto *zukan_mikolamia
if $zlavel="mikolamia" goto *zukan_kezyorou
if $zlavel="kezyorou" goto *zukan_sirohebisama
if $zlavel="sirohebisama" goto *zukan_walraune
if $zlavel="walraune" goto *zukan_dryad
if $zlavel="dryad" goto *zukan_queenalraune
if $zlavel="queenalraune" goto *zukan_slimelord
if $zlavel="slimelord" goto *zukan_eggel
if $zlavel="eggel" goto *zukan_salamander2
if $zlavel="salamander2" goto *zukan_tutigumo
if $zlavel="tutigumo" goto *zukan_alakneload
if $zlavel="alakneload" goto *zukan_kumonomiko
if $zlavel="kumonomiko" goto *zukan_narcubus
if $zlavel="narcubus" goto *zukan_inps
if $zlavel="inps" goto *zukan_eva
if $zlavel="eva" goto *zukan_trooperloid
if $zlavel="trooperloid" goto *zukan_assassinloid
if $zlavel="assassinloid" goto *zukan_yomotu
if $zlavel="yomotu" goto *zukan_wormiel
if $zlavel="wormiel" goto *zukan_undine2
if $zlavel="undine2" goto *zukan_alice4
if $zlavel="alice4" goto *zukan_drainplant
if $zlavel="drainplant" goto *zukan_drainloid
if $zlavel="drainloid" goto *zukan_replicant
if $zlavel="replicant" goto *zukan_laplace
if $zlavel="laplace" goto *zukan_AD5
if $zlavel="AD5" goto *zukan_fermesara
if $zlavel="fermesara" goto *zukan_angelghoul
if $zlavel="angelghoul" goto *zukan_dragonzonbe
if $zlavel="dragonzonbe" goto *zukan_cirque1
if $zlavel="cirque1" goto *zukan_cirque2
if $zlavel="cirque2" goto *zukan_cirque3
if $zlavel="cirque3" goto *zukan_alice15th
if $zlavel="alice15th" goto *zukan_shirom
if $zlavel="shirom" goto *zukan_alice8th1
if $zlavel="alice8th1" goto *zukan_traptemis
if $zlavel="traptemis" goto *zukan_gargoyle
if $zlavel="gargoyle" goto *zukan_doppele
if $zlavel="doppele" goto *zukan_hainu
if $zlavel="hainu" goto *zukan_amphis
if $zlavel="amphis" goto *zukan_tukuyomi
if $zlavel="tukuyomi" goto *zukan_arcen
if $zlavel="arcen" goto *zukan_rapun
if $zlavel="rapun" goto *zukan_heavensgate
if $zlavel="heavensgate" goto *zukan_eden
if $zlavel="eden" goto *zukan_stein2
if $zlavel="stein2" goto *zukan_alice8th2
if $zlavel="alice8th2" goto *zukan_alice8th3
if $zlavel="alice8th3" goto *zukan_alice8th4
if $zlavel="alice8th4" goto *zukan_irias3
if $zlavel="irias3" goto *zukan_irias4
if $zlavel="irias4" goto *zukan_end
if $zlavel="end" goto *zukan_granberia5
if $zlavel="granberia5" goto *zukan_arumaeruma4
if $zlavel="arumaeruma4" goto *zukan_tamamo3
if $zlavel="tamamo3" goto *zukan_erbetie3
if $zlavel="erbetie3" goto *zukan_alice5
if $zlavel="alice5" && %7001>0 goto *zukan_alice_ng
if $zlavel="alice5" && %7001<1 mov $zlavel,"alice_ng"
if $zlavel="alice_ng" && %7002>0 goto *zukan_granberia_ng
if $zlavel="alice_ng" && %7002<1 mov $zlavel,"granberia_ng"
if $zlavel="granberia_ng" && %7003>0 goto *zukan_queenharpy_ng
if $zlavel="granberia_ng" && %hsean_queenharpy_ng>0 goto *zukan_queenharpy_ng
if $zlavel="granberia_ng" && %7003<1 mov $zlavel,"queenharpy_ng"
if $zlavel="queenharpy_ng" && %7004>0 goto *zukan_tamamo_ng
if $zlavel="queenharpy_ng" && %hsean_tamamo_ng>0 goto *zukan_tamamo_ng
if $zlavel="queenharpy_ng" && %7004<1 mov $zlavel,"tamamo_ng"
if $zlavel="tamamo_ng" && %7005>0 goto *zukan_alma_ng
if $zlavel="tamamo_ng" && %7005<1 mov $zlavel,"alma_ng"
if $zlavel="alma_ng" && %7006>0 goto *zukan_salamander_ng
if $zlavel="alma_ng" && %7006<1 mov $zlavel,"salamander_ng"
if $zlavel="salamander_ng" && %7011>0 goto *zukan_undine_ng
if $zlavel="salamander_ng" && %7011<1 mov $zlavel,"undine_ng"
if $zlavel="undine_ng" && %7007>0 goto *zukan_sylph_ng
if $zlavel="undine_ng" && %7007<1 mov $zlavel,"sylph_ng"
if $zlavel="sylph_ng" && %7008>0 goto *zukan_gnome_ng
if $zlavel="sylph_ng" && %7008<1 mov $zlavel,"gnome_ng"
if $zlavel="gnome_ng" && %7009>0 goto *zukan_erubetie_ng
if $zlavel="gnome_ng" && %7009<1 mov $zlavel,"erubetie_ng"
if $zlavel="erubetie_ng" && %7010>0 goto *zukan_micaela_ng
if $zlavel="erubetie_ng" && %7010<1 mov $zlavel,"micaela_ng"
if $zlavel="micaela_ng" && %7012>0 goto *zukan_ririmu_ng
if $zlavel="micaela_ng" && %7012<1 mov $zlavel,"ririmu_ng"
if $zlavel="ririmu_ng" && %7013>0 goto *zukan_koakuma_ng
if $zlavel="ririmu_ng" && %7013<1 mov $zlavel,"koakuma_ng"
if $zlavel="koakuma_ng" && %7015>0 goto *zukan_succubus_ng
if $zlavel="koakuma_ng" && %7015<1 mov $zlavel,"succubus_ng"
if $zlavel="succubus_ng" && %7016>0 goto *zukan_witchs_ng
if $zlavel="succubus_ng" && %7016<1 mov $zlavel,"witchs_ng"
if $zlavel="witchs_ng" && %7034>0 goto *zukan_maccubus_ng
if $zlavel="witchs_ng" && %7040>0 goto *zukan_maccubus_ng
if $zlavel="witchs_ng" && %7034<1 && %7040<1 mov $zlavel,"maccubus_ng"
if $zlavel="maccubus_ng" && %7035>0 goto *zukan_mincubus_ng
if $zlavel="maccubus_ng" && %7041>0 goto *zukan_mincubus_ng
if $zlavel="maccubus_ng" && %7035<1 && %7041<1 mov $zlavel,"mincubus_ng"
if $zlavel="mincubus_ng" && %7026>0 goto *zukan_lencubus_ng
if $zlavel="mincubus_ng" && %7026<1 mov $zlavel,"lencubus_ng"
if $zlavel="lencubus_ng" && %7014>0 goto *zukan_lilith_ng
if $zlavel="lencubus_ng" && %7014<1 mov $zlavel,"lilith_ng"
if $zlavel="lilith_ng" && %7017>0 goto *zukan_kani_ng
if $zlavel="lilith_ng" && %7017<1 mov $zlavel,"kani_ng"
if $zlavel="kani_ng" && %7018>0 goto *zukan_kraken_ng
if $zlavel="kani_ng" && %7022>0 goto *zukan_kraken_ng
if $zlavel="kani_ng" && %7042>0 goto *zukan_kraken_ng
if $zlavel="kani_ng" && %7018<1 && %7022<1 && %7042<1 mov $zlavel,"kraken_ng"
if $zlavel="kraken_ng" && %7019>0 goto *zukan_queenmermaid_ng
if $zlavel="kraken_ng" && %7019<1 mov $zlavel,"queenmermaid_ng"
if $zlavel="queenmermaid_ng" && %7020>0 goto *zukan_meia_ng
if $zlavel="queenmermaid_ng" && %7020<1 mov $zlavel,"meia_ng"
if $zlavel="meia_ng" && %7037>0 goto *zukan_sphinx_ng
if $zlavel="meia_ng" && %7037<1 mov $zlavel,"sphinx_ng"
if $zlavel="sphinx_ng" && %7036>0 goto *zukan_saraevil_ng
if $zlavel="sphinx_ng" && %hsean_sara_ng>0 goto *zukan_saraevil_ng
if $zlavel="sphinx_ng" && %7036<1 && %hsean_sara_ng<1 mov $zlavel,"saraevil_ng"
if $zlavel="saraevil_ng" && %7038>0 goto *zukan_bess_ng
if $zlavel="saraevil_ng" && %7038<1 mov $zlavel,"bess_ng"
if $zlavel="bess_ng" && %7026>0 goto *zukan_redslime_ng
if $zlavel="bess_ng" && %7026<1 mov $zlavel,"redslime_ng"
if $zlavel="redslime_ng" && %7027>0 goto *zukan_purpleslime_ng
if $zlavel="redslime_ng" && %7027<1 mov $zlavel,"purpleslime_ng"
if $zlavel="purpleslime_ng" && %7028>0 goto *zukan_morrigan_ng
if $zlavel="purpleslime_ng" && %7028<1 mov $zlavel,"morrigan_ng"
if $zlavel="morrigan_ng" && %7029>0 goto *zukan_astaroth_ng
if $zlavel="morrigan_ng" && %7029<1 mov $zlavel,"astaroth_ng"
if $zlavel="astaroth_ng" && %7030>0 goto *zukan_beelzebub_ng
if $zlavel="astaroth_ng" && %7030<1 mov $zlavel,"beelzebub_ng"
if $zlavel="beelzebub_ng" && %7050>0 goto *zukan_chrome_ng
if $zlavel="beelzebub_ng" && %7050<1 mov $zlavel,"chrome_ng" 
if $zlavel="chrome_ng" && %7044>0 goto *zukan_koakuma_ng2
if $zlavel="chrome_ng" && %7044<1 mov $zlavel,"koakuma_ng2" 
if $zlavel="koakuma_ng2" && %7045>0 goto *zukan_granberia_ng2
if $zlavel="koakuma_ng2" && %7045<1 mov $zlavel,"granberia_ng2" 
if $zlavel="granberia_ng2" && %7046>0 goto *zukan_alma_ng2
if $zlavel="granberia_ng2" && %7046<1 mov $zlavel,"alma_ng2" 
if $zlavel="alma_ng2" && %7047>0 goto *zukan_valkyrie_ng
if $zlavel="alma_ng2" && %7047<1 mov $zlavel,"valkyrie_ng" 
if $zlavel="valkyrie_ng" && %7048>0 goto *zukan_gnqueen
if $zlavel="valkyrie_ng" && %7048<1 mov $zlavel,"gnqueen" 
if $zlavel="gnqueen" && %7056>0 goto *zukan_poseidoness_ng
if $zlavel="gnqueen" && %7056<1 mov $zlavel,"poseidoness_ng"
if $zlavel="poseidoness_ng" && %7059>0 goto *zukan_pramia_ng
if $zlavel="poseidoness_ng" && %7059<1 mov $zlavel,"pramia_ng"
if $zlavel="pramia_ng" && %7062>0 goto *zukan_vgirl_ng
if $zlavel="pramia_ng" && %7062<1 mov $zlavel,"vgirl_ng"
if $zlavel="vgirl_ng" && %7065>0 goto *zukan_dragonp_ng
if $zlavel="vgirl_ng" && %7065<1 mov $zlavel,"dragonp_ng"
if $zlavel="dragonp_ng" && %7068>0 goto *zukan_goblin_ng
if $zlavel="dragonp_ng" && %7068<1 mov $zlavel,"goblin_ng"
if $zlavel="goblin_ng" goto *zukan_slime
goto *zukan_next

*menu_zukan_page1

mov %ng,0
btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",330,500:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",450,500:spbtn 113,113

lsp 201,":s/20,20,0;#FFFFFF#FF4444Slime Girl",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Alice",50,110:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Slug Girl",50,140:spbtn 203,203
lsp 204,":s/20,20,0;#FFFFFF#FF4444Mandragora",50,170:spbtn 204,204
lsp 205,":s/20,20,0;#FFFFFF#FF4444Granberia (1)",50,200:spbtn 205,205
lsp 206,":s/20,20,0;#FFFFFF#FF4444Earthworm Girl",50,230:spbtn 206,206
lsp 207,":s/20,20,0;#FFFFFF#FF4444Goblin Girl",50,260:spbtn 207,207
lsp 208,":s/20,20,0;#FFFFFF#FF4444Tiny Lamia",50,290:spbtn 208,208
lsp 209,":s/20,20,0;#FFFFFF#FF4444Vampire Girl",50,320:spbtn 209,209
lsp 210,":s/20,20,0;#FFFFFF#FF4444Dragon Pup",50,350:spbtn 210,210
lsp 211,":s/20,20,0;#FFFFFF#FF4444Bee Girl",50,380:spbtn 211,211
lsp 212,":s/20,20,0;#FFFFFF#FF4444Harpy",50,410:spbtn 212,212
lsp 213,":s/20,20,0;#FFFFFF#FF4444Harpy Twins",50,440:spbtn 213,213
lsp 214,":s/20,20,0;#FFFFFF#FF4444Queen Harpy",400,80:spbtn 214,214
lsp 215,":s/20,20,0;#FFFFFF#FF4444Dark Elf Fencer",400,110:spbtn 215,215
lsp 216,":s/20,20,0;#FFFFFF#FF4444Dark Elf Mage",400,140:spbtn 216,216
lsp 217,":s/20,20,0;#FFFFFF#FF4444Leech Girl",400,170:spbtn 217,217
lsp 218,":s/20,20,0;#FFFFFF#FF4444Rafflesia Girl",400,200:spbtn 218,218
lsp 219,":s/20,20,0;#FFFFFF#FF4444Roper Girl",400,230:spbtn 219,219
lsp 220,":s/20,20,0;#FFFFFF#FF4444Kitsune",400,260:spbtn 220,220
lsp 221,":s/20,20,0;#FFFFFF#FF4444Meda",400,290:spbtn 221,221
lsp 222,":s/20,20,0;#FFFFFF#FF4444Spider Girl",400,320:spbtn 222,222
lsp 223,":s/20,20,0;#FFFFFF#FF4444Mimic",400,350:spbtn 223,223
lsp 224,":s/20,20,0;#FFFFFF#FF4444Nanabi",400,380:spbtn 224,224
lsp 225,":s/20,20,0;#FFFFFF#FF4444Tamamo",400,410:spbtn 225,225
lsp 226,":s/20,20,0;#FFFFFF#FF4444Alma Elma",400,440:spbtn 226,226

btnwait %bwait

if %bwait=112 mov %zukan_page,%zukan_page-1:cspl 301,303:goto *menu_zukan3
if %bwait=113 mov %zukan_page,%zukan_page+1:cspl 301,303:goto *menu_zukan3

if %bwait>200 dwave 1,"2Q\se\pageturn.ogg"
if %bwait=201 goto *zukan_slime
if %bwait=202 goto *zukan_alice1
if %bwait=203 goto *zukan_name
if %bwait=204 goto *zukan_mdg
if %bwait=205 goto *zukan_granberia1
if %bwait=206 goto *zukan_mimizu
if %bwait=207 goto *zukan_gob
if %bwait=208 goto *zukan_pramia
if %bwait=209 goto *zukan_vgirl
if %bwait=210 goto *zukan_dragonp
if %bwait=211 goto *zukan_mitubati
if %bwait=212 goto *zukan_hapy_a
if %bwait=213 goto *zukan_hapy_bc
if %bwait=214 goto *zukan_queenhapy
if %bwait=215 goto *zukan_delh_a
if %bwait=216 goto *zukan_delh_b
if %bwait=217 goto *zukan_hiru
if %bwait=218 goto *zukan_rahure
if %bwait=219 goto *zukan_ropa
if %bwait=220 goto *zukan_youko
if %bwait=221 goto *zukan_meda
if %bwait=222 goto *zukan_kumo
if %bwait=223 goto *zukan_mimic
if %bwait=224 goto *zukan_nanabi
if %bwait=225 goto *zukan_tamamo1
if %bwait=226 goto *zukan_arumaeruma1
if %bwait=111 && %storyon=0 screen_clear: return *extra_btn				;?????????
if %bwait= -1 && %storyon=0 screen_clear: return *extra_btn				;?????
if %bwait=-10 && %storyon=0 screen_clear: return *extra_btn				;ESC??
if %bwait=-11 && %storyon=0 screen_clear: return *extra_btn				;??????
if %bwait=111 && %storyon=1 screen_clear: return						;?????????
if %bwait= -1 && %storyon=1 screen_clear: return						;?????
if %bwait=-10 && %storyon=1 screen_clear: return						;ESC??
if %bwait=-11 && %storyon=1 screen_clear: return						;??????

goto *menu_zukan_page1



*menu_zukan_page2

mov %ng,0
btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",330,500:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",450,500:spbtn 113,113

lsp 201,":s/20,20,0;#FFFFFF#FF4444Sea Cucumber Girl",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Shellfish Girl",50,110:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Lamia",50,140:spbtn 203,203
lsp 204,":s/20,20,0;#FFFFFF#FF4444Granberia (2)",50,170:spbtn 204,204
lsp 205,":s/20,20,0;#FFFFFF#FF4444Page 17",50,200:spbtn 205,205
lsp 206,":s/20,20,0;#FFFFFF#FF4444Page 257",50,230:spbtn 206,206
lsp 207,":s/20,20,0;#FFFFFF#FF4444Page 65537",50,260:spbtn 207,207
lsp 208,":s/20,20,0;#FFFFFF#FF4444Crab Girl",50,290:spbtn 208,208
lsp 209,":s/20,20,0;#FFFFFF#FF4444Jellyfish Girl",50,320:spbtn 209,209
lsp 210,":s/20,20,0;#FFFFFF#FF4444Sea Anemone Girl",50,350:spbtn 210,210
lsp 211,":s/20,20,0;#FFFFFF#FF4444Anglerfish Girl",50,380:spbtn 211,211
lsp 212,":s/20,20,0;#FFFFFF#FF4444Kraken",50,410:spbtn 212,212
lsp 213,":s/20,20,0;#FFFFFF#FF4444Meia",50,440:spbtn 213,213

lsp 214,":s/20,20,0;#FFFFFF#FF4444Ghost Girl",400,80:spbtn 214,214
lsp 215,":s/20,20,0;#FFFFFF#FF4444Cursed Doll",400,110:spbtn 215,215
lsp 216,":s/20,20,0;#FFFFFF#FF4444Zombie Girl",400,140:spbtn 216,216
lsp 217,":s/20,20,0;#FFFFFF#FF4444Zombie Girls (Group)",400,170:spbtn 217,217
lsp 218,":s/20,20,0;#FFFFFF#FF4444Frederika",400,200:spbtn 218,218
lsp 219,":s/20,20,0;#FFFFFF#FF4444Chrome",400,230:spbtn 219,219
lsp 220,":s/20,20,0;#FFFFFF#FF4444Fairy",400,260:spbtn 220,220
lsp 221,":s/20,20,0;#FFFFFF#FF4444Elf",400,290:spbtn 221,221
lsp 222,":s/20,20,0;#FFFFFF#FF4444Twin Fairies",400,320:spbtn 222,222
lsp 223,":s/20,20,0;#FFFFFF#FF4444Fairies",400,350:spbtn 223,223
lsp 224,":s/20,20,0;#FFFFFF#FF4444Sylph",400,380:spbtn 224,224
lsp 225,":s/20,20,0;#FFFFFF#FF4444Chimera Dryad",400,410:spbtn 225,225
lsp 226,":s/20,20,0;#FFFFFF#FF4444Tarantula Girl",400,440:spbtn 226,226

btnwait %bwait

if %bwait=112 mov %zukan_page,%zukan_page-1:cspl 301,303:goto *menu_zukan3
if %bwait=113 mov %zukan_page,%zukan_page+1:cspl 301,303:goto *menu_zukan3

if %bwait>200 dwave 1,"2Q\se\pageturn.ogg"
if %bwait=201 goto *zukan_namako
if %bwait=202 goto *zukan_kai
if %bwait=203 goto *zukan_lamia
if %bwait=204 goto *zukan_granberia2
if %bwait=205 goto *zukan_page17
if %bwait=206 goto *zukan_page257
if %bwait=207 goto *zukan_page65537
if %bwait=208 goto *zukan_kani
if %bwait=209 goto *zukan_kurage
if %bwait=210 goto *zukan_iso
if %bwait=211 goto *zukan_ankou
if %bwait=212 goto *zukan_kraken
if %bwait=213 goto *zukan_meia
if %bwait=214 goto *zukan_ghost
if %bwait=215 goto *zukan_doll
if %bwait=216 goto *zukan_zonbe
if %bwait=217 goto *zukan_zonbes
if %bwait=218 goto *zukan_frederika
if %bwait=219 goto *zukan_chrom
if %bwait=220 goto *zukan_fairy
if %bwait=221 goto *zukan_elf
if %bwait=222 goto *zukan_tfairy
if %bwait=223 goto *zukan_fairys
if %bwait=224 goto *zukan_sylph
if %bwait=225 goto *zukan_c_dryad
if %bwait=226 goto *zukan_taran
if %bwait=111 && %storyon=0 screen_clear: return *extra_btn				;?????????
if %bwait= -1 && %storyon=0 screen_clear: return *extra_btn				;?????
if %bwait=-10 && %storyon=0 screen_clear: return *extra_btn				;ESC??
if %bwait=-11 && %storyon=0 screen_clear: return *extra_btn				;??????
if %bwait=111 && %storyon=1 screen_clear: return						;?????????
if %bwait= -1 && %storyon=1 screen_clear: return						;?????
if %bwait=-10 && %storyon=1 screen_clear: return						;ESC??
if %bwait=-11 && %storyon=1 screen_clear: return						;??????


goto *menu_zukan_page2



*menu_zukan_page3

mov %ng,0
btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",330,500:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",450,500:spbtn 113,113

lsp 201,":s/20,20,0;#FFFFFF#FF4444Minotauros",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Scorpion Girl",50,110:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Lamp Genie",50,140:spbtn 203,203
lsp 204,":s/20,20,0;#FFFFFF#FF4444Mummy Girl",50,170:spbtn 204,204
lsp 205,":s/20,20,0;#FFFFFF#FF4444Cobra Girl",50,200:spbtn 205,205
lsp 206,":s/20,20,0;#FFFFFF#FF4444Nefertiti Lamias",50,230:spbtn 206,206
lsp 207,":s/20,20,0;#FFFFFF#FF4444Sphinx",50,260:spbtn 207,207
lsp 208,":s/20,20,0;#FFFFFF#FF4444Sara",50,290:spbtn 208,208
lsp 209,":s/20,20,0;#FFFFFF#FF4444Suck Vore",50,320:spbtn 209,209
lsp 210,":s/20,20,0;#FFFFFF#FF4444Worm Villager",50,350:spbtn 210,210
lsp 211,":s/20,20,0;#FFFFFF#FF4444Iron Maiden",50,380:spbtn 211,211
lsp 212,":s/20,20,0;#FFFFFF#FF4444Lily",50,410:spbtn 212,212
lsp 213,":s/20,20,0;#FFFFFF#FF4444Antlion Girl",50,440:spbtn 213,213

lsp 214,":s/20,20,0;#FFFFFF#FF4444Sandworm",400,80:spbtn 214,214
lsp 215,":s/20,20,0;#FFFFFF#FF4444Gnome",400,110:spbtn 215,215
lsp 216,":s/20,20,0;#FFFFFF#FF4444Goddess Ilias",400,140:spbtn 216,216
lsp 217,":s/20,20,0;#FFFFFF#FF4444Alice (2)",400,170:spbtn 217,217
lsp 218,":s/20,20,0;#FFFFFF#FF4444Centaur Girl",400,200:spbtn 218,218
lsp 219,":s/20,20,0;#FFFFFF#FF4444Frog Girls",400,230:spbtn 219,219
lsp 220,":s/20,20,0;#FFFFFF#FF4444Alraune",400,260:spbtn 220,220
lsp 221,":s/20,20,0;#FFFFFF#FF4444Dullahan",400,290:spbtn 221,221
lsp 222,":s/20,20,0;#FFFFFF#FF4444Cerberus",400,320:spbtn 222,222
lsp 223,":s/20,20,0;#FFFFFF#FF4444Alma Elma (2)",400,350:spbtn 223,223
lsp 224,":s/20,20,0;#FFFFFF#FF4444Yuki-onna",400,380:spbtn 224,224
lsp 225,":s/20,20,0;#FFFFFF#FF4444Nekomata",400,410:spbtn 225,225
lsp 226,":s/20,20,0;#FFFFFF#FF4444Samurai Elf",400,440:spbtn 226,226

btnwait %bwait

if %bwait=112 mov %zukan_page,%zukan_page-1:cspl 301,303:goto *menu_zukan3
if %bwait=113 mov %zukan_page,%zukan_page+1:cspl 301,303:goto *menu_zukan3

if %bwait>200 dwave 1,"2Q\se\pageturn.ogg"
if %bwait=201 goto *zukan_mino
if %bwait=202 goto *zukan_sasori
if %bwait=203 goto *zukan_lamp
if %bwait=204 goto *zukan_mummy
if %bwait=205 goto *zukan_kobura
if %bwait=206 goto *zukan_lamias
if %bwait=207 goto *zukan_sphinx
if %bwait=208 goto *zukan_sara
if %bwait=209 goto *zukan_suckvore
if %bwait=210 goto *zukan_wormv
if %bwait=211 goto *zukan_ironmaiden
if %bwait=212 goto *zukan_lily
if %bwait=213 goto *zukan_arizigoku
if %bwait=214 goto *zukan_sandw
if %bwait=215 goto *zukan_gnome
if %bwait=216 goto *zukan_irias1
if %bwait=217 goto *zukan_alice2
if %bwait=218 goto *zukan_centa
if %bwait=219 goto *zukan_kaeru
if %bwait=220 goto *zukan_alraune
if %bwait=221 goto *zukan_durahan
if %bwait=222 goto *zukan_kerberos
if %bwait=223 goto *zukan_arumaeruma2
if %bwait=224 goto *zukan_yukionna
if %bwait=225 goto *zukan_nekomata
if %bwait=226 goto *zukan_samuraielf
if %bwait=111 && %storyon=0 screen_clear: return *extra_btn				;?????????
if %bwait= -1 && %storyon=0 screen_clear: return *extra_btn				;?????
if %bwait=-10 && %storyon=0 screen_clear: return *extra_btn				;ESC??
if %bwait=-11 && %storyon=0 screen_clear: return *extra_btn				;??????
if %bwait=111 && %storyon=1 screen_clear: return						;?????????
if %bwait= -1 && %storyon=1 screen_clear: return						;?????
if %bwait=-10 && %storyon=1 screen_clear: return						;ESC??
if %bwait=-11 && %storyon=1 screen_clear: return						;??????


goto *menu_zukan_page3



*menu_zukan_page4

mov %ng,0
btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",330,500:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",450,500:spbtn 113,113

lsp 201,":s/20,20,0;#FFFFFF#FF4444Kunoichi Elf",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Yamata no Orochi",50,110:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Moth Girl",50,140:spbtn 203,203
lsp 204,":s/20,20,0;#FFFFFF#FF4444Mosquito Girl",50,170:spbtn 204,204
lsp 205,":s/20,20,0;#FFFFFF#FF4444Caterpillar Girl",50,200:spbtn 205,205
lsp 206,":s/20,20,0;#FFFFFF#FF4444Centipede Girl",50,230:spbtn 206,206
lsp 207,":s/20,20,0;#FFFFFF#FF4444Silkworm Girl",50,260:spbtn 207,207
lsp 208,":s/20,20,0;#FFFFFF#FF4444Hornet Girl",50,290:spbtn 208,208
lsp 209,":s/20,20,0;#FFFFFF#FF4444Queen Bee",50,320:spbtn 209,209
lsp 210,":s/20,20,0;#FFFFFF#FF4444Alra Arum",50,350:spbtn 210,210
lsp 211,":s/20,20,0;#FFFFFF#FF4444Alra Rooty",50,380:spbtn 211,211
 lsp 212,":s/20,20,0;#FFFFFF#FF4444Alra Vore",50,410:spbtn 212,212
lsp 213,":s/20,20,0;#FFFFFF#FF4444Alra Parasol",50,440:spbtn 213,213

lsp 214,":s/20,20,0;#FFFFFF#FF4444Alra Prison",400,80:spbtn 214,214
lsp 215,":s/20,20,0;#FFFFFF#FF4444Alra Priestess",400,110:spbtn 215,215
lsp 216,":s/20,20,0;#FFFFFF#FF4444Dorothy",400,140:spbtn 216,216
lsp 217,":s/20,20,0;#FFFFFF#FF4444Raffia",400,170:spbtn 217,217
lsp 218,":s/20,20,0;#FFFFFF#FF4444Deana",400,200:spbtn 218,218
lsp 219,":s/20,20,0;#FFFFFF#FF4444Jelly Girl",400,230:spbtn 219,219
lsp 220,":s/20,20,0;#FFFFFF#FF4444Blob Girl",400,260:spbtn 220,220
lsp 221,":s/20,20,0;#FFFFFF#FF4444Green Slime",400,290:spbtn 221,221
lsp 222,":s/20,20,0;#FFFFFF#FF4444Blue Slime",400,320:spbtn 222,222
lsp 223,":s/20,20,0;#FFFFFF#FF4444Red Slime",400,350:spbtn 223,223
lsp 224,":s/20,20,0;#FFFFFF#FF4444Purple Slime",400,380:spbtn 224,224
lsp 225,":s/20,20,0;#FFFFFF#FF4444Erubetie (1)",400,410:spbtn 225,225
lsp 226,":s/20,20,0;#FFFFFF#FF4444Undine",400,440:spbtn 226,226

btnwait %bwait

if %bwait=112 mov %zukan_page,%zukan_page-1:cspl 301,303:goto *menu_zukan3
if %bwait=113 mov %zukan_page,%zukan_page+1:cspl 301,303:goto *menu_zukan3

if %bwait>200 dwave 1,"2Q\se\pageturn.ogg"
if %bwait=201 goto *zukan_kunoitielf
if %bwait=202 goto *zukan_yamatanooroti
if %bwait=203 goto *zukan_moss
if %bwait=204 goto *zukan_mosquito
if %bwait=205 goto *zukan_imomusi
if %bwait=206 goto *zukan_mukade
if %bwait=207 goto *zukan_kaiko
if %bwait=208 goto *zukan_suzumebati
if %bwait=209 goto *zukan_queenbee
if %bwait=210 goto *zukan_a_alm
if %bwait=211 goto *zukan_a_looty
if %bwait=212 goto *zukan_a_vore
if %bwait=213 goto *zukan_a_parasol
if %bwait=214 goto *zukan_a_prison
if %bwait=215 goto *zukan_a_emp
if %bwait=216 goto *zukan_dorothy
if %bwait=217 goto *zukan_rafi
if %bwait=218 goto *zukan_dina
if %bwait=219 goto *zukan_jelly
if %bwait=220 goto *zukan_blob
if %bwait=221 goto *zukan_slime_green
if %bwait=222 goto *zukan_slime_blue
if %bwait=223 goto *zukan_slime_red
if %bwait=224 goto *zukan_slime_purple
if %bwait=225 goto *zukan_erbetie1
if %bwait=226 goto *zukan_undine
if %bwait=111 && %storyon=0 screen_clear: return *extra_btn				;?????????
if %bwait= -1 && %storyon=0 screen_clear: return *extra_btn				;?????
if %bwait=-10 && %storyon=0 screen_clear: return *extra_btn				;ESC??
if %bwait=-11 && %storyon=0 screen_clear: return *extra_btn				;??????
if %bwait=111 && %storyon=1 screen_clear: return						;?????????
if %bwait= -1 && %storyon=1 screen_clear: return						;?????
if %bwait=-10 && %storyon=1 screen_clear: return						;ESC??
if %bwait=-11 && %storyon=1 screen_clear: return						;??????


goto *menu_zukan_page4



*menu_zukan_page5

mov %ng,0
btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",330,500:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",450,500:spbtn 113,113

lsp 201,":s/20,20,0;#FFFFFF#FF4444Mantis Girl",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Scylla",50,110:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Medusa",50,140:spbtn 203,203
lsp 204,":s/20,20,0;#FFFFFF#FF4444Golem Girl",50,170:spbtn 204,204
lsp 205,":s/20,20,0;#FFFFFF#FF4444Mud Golem Girl",50,200:spbtn 205,205
lsp 206,":s/20,20,0;#FFFFFF#FF4444Automata Girl",50,230:spbtn 206,206
lsp 207,":s/20,20,0;#FFFFFF#FF4444Ant Girl",50,260:spbtn 207,207
lsp 208,":s/20,20,0;#FFFFFF#FF4444Queen Ant",50,290:spbtn 208,208
lsp 209,":s/20,20,0;#FFFFFF#FF4444Maccubus",50,320:spbtn 209,209
lsp 210,":s/20,20,0;#FFFFFF#FF4444Mincubus",50,350:spbtn 210,210
lsp 211,":s/20,20,0;#FFFFFF#FF4444Lencubus",50,380:spbtn 211,211
lsp 212,":s/20,20,0;#FFFFFF#FF4444Succubus",50,410:spbtn 212,212
lsp 213,":s/20,20,0;#FFFFFF#FF4444Succubus Witch",50,440:spbtn 213,213

lsp 214,":s/20,20,0;#FFFFFF#FF4444Lilith & Lilim",400,80:spbtn 214,214

lsp 215,":s/20,20,0;#FFFFFF#FF4444Madame Insect",400,110:spbtn 215,215

lsp 216,":s/20,20,0;#FFFFFF#FF4444Madame Umbrella",400,140:spbtn 216,216
lsp 217,":s/20,20,0;#FFFFFF#FF4444Scylla Maid",400,170:spbtn 217,217
lsp 218,":s/20,20,0;#FFFFFF#FF4444Emily",400,200:spbtn 218,218
lsp 219,":s/20,20,0;#FFFFFF#FF4444Cassandra",400,230:spbtn 219,219
lsp 220,":s/20,20,0;#FFFFFF#FF4444Lava Girl",400,260:spbtn 220,220
lsp 221,":s/20,20,0;#FFFFFF#FF4444Basilisk",400,290:spbtn 221,221
lsp 222,":s/20,20,0;#FFFFFF#FF4444Dragon Girl",400,320:spbtn 222,222
lsp 223,":s/20,20,0;#FFFFFF#FF4444Salamander",400,350:spbtn 223,223
lsp 224,":s/20,20,0;#FFFFFF#FF4444Granberia (3)",400,380:spbtn 224,224
lsp 225,":s/20,20,0;#FFFFFF#FF4444Crab Girl (2)",400,410:spbtn 225,225
lsp 226,":s/20,20,0;#FFFFFF#FF4444Dagon",400,440:spbtn 226,226

btnwait %bwait

if %bwait=112 mov %zukan_page,%zukan_page-1:cspl 301,303:goto *menu_zukan3
if %bwait=113 mov %zukan_page,%zukan_page+1:cspl 301,303:goto *menu_zukan3

if %bwait>200 dwave 1,"2Q\se\pageturn.ogg"
if %bwait=201 goto *zukan_kamakiri
if %bwait=202 goto *zukan_scylla
if %bwait=203 goto *zukan_medusa
if %bwait=204 goto *zukan_golem
if %bwait=205 goto *zukan_madgolem
if %bwait=206 goto *zukan_artm
if %bwait=207 goto *zukan_ant
if %bwait=208 goto *zukan_queenant
if %bwait=209 goto *zukan_maccubus
if %bwait=210 goto *zukan_minccubus
if %bwait=211 goto *zukan_renccubus
if %bwait=212 goto *zukan_succubus
if %bwait=213 goto *zukan_witchs
if %bwait=214 goto *zukan_lilith
if %bwait=215 goto *zukan_madaminsect
if %bwait=216 goto *zukan_madamumbrella
if %bwait=217 goto *zukan_maidscyulla
if %bwait=218 goto *zukan_emily
if %bwait=219 goto *zukan_cassandra
if %bwait=220 goto *zukan_yougan
if %bwait=221 goto *zukan_basilisk
if %bwait=222 goto *zukan_dragon
if %bwait=223 goto *zukan_salamander
if %bwait=224 goto *zukan_granberia3
if %bwait=225 goto *zukan_kani2
if %bwait=226 goto *zukan_dagon
if %bwait=111 && %storyon=0 screen_clear: return *extra_btn				;?????????
if %bwait= -1 && %storyon=0 screen_clear: return *extra_btn				;?????
if %bwait=-10 && %storyon=0 screen_clear: return *extra_btn				;ESC??
if %bwait=-11 && %storyon=0 screen_clear: return *extra_btn				;??????
if %bwait=111 && %storyon=1 screen_clear: return						;?????????
if %bwait= -1 && %storyon=1 screen_clear: return						;?????
if %bwait=-10 && %storyon=1 screen_clear: return						;ESC??
if %bwait=-11 && %storyon=1 screen_clear: return						;??????


goto *menu_zukan_page5



*menu_zukan_page6

mov %ng,0
btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",330,500:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",450,500:spbtn 113,113

lsp 201,":s/20,20,0;#FFFFFF#FF4444Poseidoness",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Siren",50,110:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Starfish Girl",50,140:spbtn 203,203
lsp 204,":s/20,20,0;#FFFFFF#FF4444Beelzebubs",50,170:spbtn 204,204
lsp 205,":s/20,20,0;#FFFFFF#FF4444Trick Fairy",50,200:spbtn 205,205
lsp 206,":s/20,20,0;#FFFFFF#FF4444Queen Fairy",50,230:spbtn 206,206
lsp 207,":s/20,20,0;#FFFFFF#FF4444Queen Elf",50,260:spbtn 207,207
lsp 208,":s/20,20,0;#FFFFFF#FF4444Sara (Succubization)",50,290:spbtn 208,208
lsp 209,":s/20,20,0;#FFFFFF#FF4444Wyvern",50,320:spbtn 209,209
lsp 210,":s/20,20,0;#FFFFFF#FF4444Kyoryuu",50,350:spbtn 210,210
lsp 211,":s/20,20,0;#FFFFFF#FF4444Chimera Beast",50,380:spbtn 211,211
lsp 212,":s/20,20,0;#FFFFFF#FF4444Chimera Dryad Vore",50,410:spbtn 212,212
lsp 213,":s/20,20,0;#FFFFFF#FF4444Vampire",50,440:spbtn 213,213

lsp 214,":s/20,20,0;#FFFFFF#FF4444Behemoth",400,80:spbtn 214,214
lsp 215,":s/20,20,0;#FFFFFF#FF4444Elder Succubus",400,110:spbtn 215,215
lsp 216,":s/20,20,0;#FFFFFF#FF4444Yao",400,140:spbtn 216,216
lsp 217,":s/20,20,0;#FFFFFF#FF4444Imp",400,170:spbtn 217,217
lsp 218,":s/20,20,0;#FFFFFF#FF4444Giganto Weapon",400,200:spbtn 218,218
lsp 219,":s/20,20,0;#FFFFFF#FF4444Alma Elma (3)",400,230:spbtn 219,219
lsp 220,":s/20,20,0;#FFFFFF#FF4444Tamamo (2)",400,260:spbtn 220,220
lsp 221,":s/20,20,0;#FFFFFF#FF4444Erubetie (2)",400,290:spbtn 221,221
lsp 222,":s/20,20,0;#FFFFFF#FF4444Granberia (4)",400,320:spbtn 222,222
lsp 223,":s/20,20,0;#FFFFFF#FF4444Alice (3)",400,350:spbtn 223,223
lsp 224,":s/20,20,0;#FFFFFF#FF4444Goddess Ilias (2)",400,380:spbtn 224,224
lsp 225,":s/20,20,0;#FFFFFF#FF4444Cupid",400,410:spbtn 225,225
lsp 226,":s/20,20,0;#FFFFFF#FF4444Valkyrie",400,440:spbtn 226,226


btnwait %bwait

if %bwait=112 mov %zukan_page,%zukan_page-1:cspl 301,303:goto *menu_zukan3
if %bwait=113 mov %zukan_page,%zukan_page+1:cspl 301,303:goto *menu_zukan3

if %bwait>200 dwave 1,"2Q\se\pageturn.ogg"
if %bwait=201 goto *zukan_poseidones
if %bwait=202 goto *zukan_seiren
if %bwait=203 goto *zukan_hitode
if %bwait=204 goto *zukan_beelzebub
if %bwait=205 goto *zukan_trickfairy
if %bwait=206 goto *zukan_queenfairy
if %bwait=207 goto *zukan_queenelf
if %bwait=208 goto *zukan_saraevil
if %bwait=209 goto *zukan_wyvern
if %bwait=210 goto *zukan_kyoryuu
if %bwait=211 goto *zukan_c_beast
if %bwait=212 goto *zukan_c_dryad_vore
if %bwait=213 goto *zukan_vampire
if %bwait=214 goto *zukan_behemoth
if %bwait=215 goto *zukan_esuccubus
if %bwait=216 goto *zukan_hatibi
if %bwait=217 goto *zukan_inp
if %bwait=218 goto *zukan_gigantweapon
if %bwait=219 goto *zukan_arumaeruma3
if %bwait=220 goto *zukan_tamamo2
if %bwait=221 goto *zukan_erbetie2
if %bwait=222 goto *zukan_granberia4
if %bwait=223 goto *zukan_alice3
if %bwait=224 goto *zukan_irias2
if %bwait=225 goto *zukan_cupid
if %bwait=226 goto *zukan_valkyrie
if %bwait=111 && %storyon=0 screen_clear: return *extra_btn				;?????????
if %bwait= -1 && %storyon=0 screen_clear: return *extra_btn				;?????
if %bwait=-10 && %storyon=0 screen_clear: return *extra_btn				;ESC??
if %bwait=-11 && %storyon=0 screen_clear: return *extra_btn				;??????
if %bwait=111 && %storyon=1 screen_clear: return						;?????????
if %bwait= -1 && %storyon=1 screen_clear: return						;?????
if %bwait=-10 && %storyon=1 screen_clear: return						;ESC??
if %bwait=-11 && %storyon=1 screen_clear: return						;??????


goto *menu_zukan_page6



*menu_zukan_page7

mov %ng,0
btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",330,500:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",450,500:spbtn 113,113

lsp 201,":s/20,20,0;#FFFFFF#FF4444Archangel Ariel",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Experimental Organism S-2",50,110:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Experimental Organism A-3",50,140:spbtn 203,203
lsp 204,":s/20,20,0;#FFFFFF#FF4444Promestein",50,170:spbtn 204,204
lsp 205,":s/20,20,0;#FFFFFF#FF4444Archangel Ranael",50,200:spbtn 205,205
lsp 206,":s/20,20,0;#FFFFFF#FF4444Chimera Tongue",50,230:spbtn 206,206
lsp 207,":s/20,20,0;#FFFFFF#FF4444Angel Soldiers",50,260:spbtn 207,207
lsp 208,":s/20,20,0;#FFFFFF#FF4444Principality Nagael",50,290:spbtn 208,208
lsp 209,":s/20,20,0;#FFFFFF#FF4444Chimera Slug",50,320:spbtn 209,209
lsp 210,":s/20,20,0;#FFFFFF#FF4444Chimera Tentacle",50,350:spbtn 210,210
lsp 211,":s/20,20,0;#FFFFFF#FF4444Archangel Mariel",50,380:spbtn 211,211
lsp 212,":s/20,20,0;#FFFFFF#FF4444Chimera Prison",50,410:spbtn 212,212
lsp 213,":s/20,20,0;#FFFFFF#FF4444Chimera Medullahan",50,440:spbtn 213,213

lsp 214,":s/20,20,0;#FFFFFF#FF4444Trinity",400,80:spbtn 214,214
lsp 215,":s/20,20,0;#FFFFFF#FF4444Chimera Bug",400,110:spbtn 215,215
lsp 216,":s/20,20,0;#FFFFFF#FF4444Sister Lamia",400,140:spbtn 216,216
lsp 217,":s/20,20,0;#FFFFFF#FF4444Catoblepas Girl",400,170:spbtn 217,217
lsp 218,":s/20,20,0;#FFFFFF#FF4444Power Muzukiel",400,200:spbtn 218,218
lsp 219,":s/20,20,0;#FFFFFF#FF4444Mermaid",400,230:spbtn 219,219
lsp 220,":s/20,20,0;#FFFFFF#FF4444Mermaid General",400,260:spbtn 220,220
lsp 221,":s/20,20,0;#FFFFFF#FF4444El",400,290:spbtn 221,221
lsp 222,":s/20,20,0;#FFFFFF#FF4444Queen Mermaid",400,320:spbtn 222,222
lsp 223,":s/20,20,0;#FFFFFF#FF4444Experimental Organism X-6",400,350:spbtn 223,223
lsp 224,":s/20,20,0;#FFFFFF#FF4444Shadow Girl",400,380:spbtn 224,224
lsp 225,":s/20,20,0;#FFFFFF#FF4444Paintgeist",400,410:spbtn 225,225
lsp 226,":s/20,20,0;#FFFFFF#FF4444Chrome (2)",400,440:spbtn 226,226

btnwait %bwait

if %bwait=112 mov %zukan_page,%zukan_page-1:cspl 301,303:goto *menu_zukan3
if %bwait=113 mov %zukan_page,%zukan_page+1:cspl 301,303:goto *menu_zukan3

if %bwait>200 dwave 1,"2Q\se\pageturn.ogg"
if %bwait=201 goto *zukan_ariel
if %bwait=202 goto *zukan_c_s2
if %bwait=203 goto *zukan_c_a3
if %bwait=204 goto *zukan_stein1
if %bwait=205 goto *zukan_ranael
if %bwait=206 goto *zukan_c_tangh
if %bwait=207 goto *zukan_angels
if %bwait=208 goto *zukan_nagael
if %bwait=209 goto *zukan_c_slag
if %bwait=210 goto *zukan_c_tentacle
if %bwait=211 goto *zukan_mariel
if %bwait=212 goto *zukan_c_prison
if %bwait=213 goto *zukan_c_medulahan
if %bwait=214 goto *zukan_trinity
if %bwait=215 goto *zukan_c_bug
if %bwait=216 goto *zukan_sisterlamia
if %bwait=217 goto *zukan_catoblepas
if %bwait=218 goto *zukan_muzukiel
if %bwait=219 goto *zukan_Mermaid
if %bwait=220 goto *zukan_g_Mermaid
if %bwait=221 goto *zukan_ningyohime
if %bwait=222 goto *zukan_queenMermaid
if %bwait=223 goto *zukan_XX7
if %bwait=224 goto *zukan_shadow
if %bwait=225 goto *zukan_gaistvine
if %bwait=226 goto *zukan_chrom2
if %bwait=111 && %storyon=0 screen_clear: return *extra_btn				;?????????
if %bwait= -1 && %storyon=0 screen_clear: return *extra_btn				;?????
if %bwait=-10 && %storyon=0 screen_clear: return *extra_btn				;ESC??
if %bwait=-11 && %storyon=0 screen_clear: return *extra_btn				;??????
if %bwait=111 && %storyon=1 screen_clear: return						;?????????
if %bwait= -1 && %storyon=1 screen_clear: return						;?????
if %bwait=-10 && %storyon=1 screen_clear: return						;ESC??
if %bwait=-11 && %storyon=1 screen_clear: return						;??????


goto *menu_zukan_page7



*menu_zukan_page8

mov %ng,0
btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",330,500:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",450,500:spbtn 113,113

lsp 201,":s/20,20,0;#FFFFFF#FF4444Power Berryelle",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Virtue Revel",50,110:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Gnome (2)",50,140:spbtn 203,203
lsp 204,":s/20,20,0;#FFFFFF#FF4444Chimera Chariot",50,170:spbtn 204,204
lsp 205,":s/20,20,0;#FFFFFF#FF4444Carmilla",50,200:spbtn 205,205
lsp 206,":s/20,20,0;#FFFFFF#FF4444Elizabeth",50,230:spbtn 206,206
lsp 207,":s/20,20,0;#FFFFFF#FF4444Queen Vampire",50,260:spbtn 207,207
lsp 208,":s/20,20,0;#FFFFFF#FF4444Chimera Homunculus",50,290:spbtn 208,208
lsp 209,":s/20,20,0;#FFFFFF#FF4444Iron Maiden v2",50,320:spbtn 209,209
lsp 210,":s/20,20,0;#FFFFFF#FF4444Lucia",50,350:spbtn 210,210
lsp 211,":s/20,20,0;#FFFFFF#FF4444Virtue Silkiel",50,380:spbtn 211,211
lsp 212,":s/20,20,0;#FFFFFF#FF4444Dominion Endiel",50,410:spbtn 212,212
lsp 213,":s/20,20,0;#FFFFFF#FF4444Sylph (2)",50,440:spbtn 213,213

lsp 214,":s/20,20,0;#FFFFFF#FF4444Typhon Girl ",400,80:spbtn 214,214
lsp 215,":s/20,20,0;#FFFFFF#FF4444Lamiaroid ",400,110:spbtn 215,215
lsp 216,":s/20,20,0;#FFFFFF#FF4444Knightroid ",400,140:spbtn 216,216
lsp 217,":s/20,20,0;#FFFFFF#FF4444Akaname ",400,170:spbtn 217,217
lsp 218,":s/20,20,0;#FFFFFF#FF4444Miko Lamia ",400,200:spbtn 218,218
lsp 219,":s/20,20,0;#FFFFFF#FF4444Kejourou ",400,230:spbtn 219,219
lsp 220,":s/20,20,0;#FFFFFF#FF4444Shirohebi ",400,260:spbtn 220,220
lsp 221,":s/20,20,0;#FFFFFF#FF4444Walraune ",400,290:spbtn 221,221
lsp 222,":s/20,20,0;#FFFFFF#FF4444Dryad ",400,320:spbtn 222,222
lsp 223,":s/20,20,0;#FFFFFF#FF4444Queen Alraune ",400,350:spbtn 223,223
lsp 224,":s/20,20,0;#FFFFFF#FF4444Slime Bess ",400,380:spbtn 224,224
lsp 225,":s/20,20,0;#FFFFFF#FF4444Throne Eggiel ",400,410:spbtn 225,225
lsp 226,":s/20,20,0;#FFFFFF#FF4444Salamander (2) ",400,440:spbtn 226,226

btnwait %bwait

if %bwait=112 mov %zukan_page,%zukan_page-1:cspl 301,303:goto *menu_zukan3
if %bwait=113 mov %zukan_page,%zukan_page+1:cspl 301,303:goto *menu_zukan3

if %bwait>200 dwave 1,"2Q\se\pageturn.ogg"
if %bwait=201 goto *zukan_berryel
if %bwait=202 goto *zukan_revel
if %bwait=203 goto *zukan_gnome2
if %bwait=204 goto *zukan_c_chariot
if %bwait=205 goto *zukan_carmilla
if %bwait=206 goto *zukan_elisabeth
if %bwait=207 goto *zukan_queenvanpire
if %bwait=208 goto *zukan_c_homunculus
if %bwait=209 goto *zukan_ironmaiden_k
if %bwait=210 goto *zukan_lusia
if %bwait=211 goto *zukan_silkiel
if %bwait=212 goto *zukan_endiel
if %bwait=213 goto *zukan_sylph2
if %bwait=214 goto *zukan_typhon
if %bwait=215 goto *zukan_lamianloid
if %bwait=216 goto *zukan_knightloid
if %bwait=217 goto *zukan_akaname
if %bwait=218 goto *zukan_mikolamia
if %bwait=219 goto *zukan_kezyorou
if %bwait=220 goto *zukan_sirohebisama
if %bwait=221 goto *zukan_walraune
if %bwait=222 goto *zukan_dryad
if %bwait=223 goto *zukan_queenalraune
if %bwait=224 goto *zukan_slimelord
if %bwait=225 goto *zukan_eggel
if %bwait=226 goto *zukan_salamander2
if %bwait=111 && %storyon=0 screen_clear: return *extra_btn				;?????????
if %bwait= -1 && %storyon=0 screen_clear: return *extra_btn				;?????
if %bwait=-10 && %storyon=0 screen_clear: return *extra_btn				;ESC??
if %bwait=-11 && %storyon=0 screen_clear: return *extra_btn				;??????
if %bwait=111 && %storyon=1 screen_clear: return						;?????????
if %bwait= -1 && %storyon=1 screen_clear: return						;?????
if %bwait=-10 && %storyon=1 screen_clear: return						;ESC??
if %bwait=-11 && %storyon=1 screen_clear: return						;??????


goto *menu_zukan_page8



*menu_zukan_page9

mov %ng,0
btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",330,500:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",450,500:spbtn 113,113

lsp 201,":s/20,20,0;#FFFFFF#FF4444Tsuchigumo ",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Arachne Lord ",50,110:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Spider Princess ",50,140:spbtn 203,203
lsp 204,":s/20,20,0;#FFFFFF#FF4444Naccubus ",50,170:spbtn 204,204
lsp 205,":s/20,20,0;#FFFFFF#FF4444Imp (2) ",50,200:spbtn 205,205
lsp 206,":s/20,20,0;#FFFFFF#FF4444Eva ",50,230:spbtn 206,206
lsp 207,":s/20,20,0;#FFFFFF#FF4444Trooperoid ",50,260:spbtn 207,207
lsp 208,":s/20,20,0;#FFFFFF#FF4444Assassinroid ",50,290:spbtn 208,208
lsp 209,":s/20,20,0;#FFFFFF#FF4444Yomotsu-Shikome ",50,320:spbtn 209,209
lsp 210,":s/20,20,0;#FFFFFF#FF4444Cherub Wormiel ",50,350:spbtn 210,210
lsp 211,":s/20,20,0;#FFFFFF#FF4444Undine (2) ",50,380:spbtn 211,211
lsp 212,":s/20,20,0;#FFFFFF#FF4444Alice (4) ",50,410:spbtn 212,212
lsp 213,":s/20,20,0;#FFFFFF#FF4444Drain Plant ",50,440:spbtn 213,213

lsp 214,":s/20,20,0;#FFFFFF#FF4444Drainroid ",400,80:spbtn 214,214
lsp 215,":s/20,20,0;#FFFFFF#FF4444Replicant ",400,110:spbtn 215,215
lsp 216,":s/20,20,0;#FFFFFF#FF4444Laplace ",400,140:spbtn 216,216
lsp 217,":s/20,20,0;#FFFFFF#FF4444Experimental Organism AD-5 ",400,170:spbtn 217,217
lsp 218,":s/20,20,0;#FFFFFF#FF4444Ferme Sara ",400,200:spbtn 218,218
lsp 219,":s/20,20,0;#FFFFFF#FF4444Angel Ghoul ",400,230:spbtn 219,219
lsp 220,":s/20,20,0;#FFFFFF#FF4444Dragon Zombie Girl ",400,260:spbtn 220,220
lsp 221,":s/20,20,0;#FFFFFF#FF4444Cirque Du Croix (1) ",400,290:spbtn 221,221
lsp 222,":s/20,20,0;#FFFFFF#FF4444Cirque Du Croix (2) ",400,320:spbtn 222,222
lsp 223,":s/20,20,0;#FFFFFF#FF4444Cirque Du Croix (3) ",400,350:spbtn 223,223
lsp 224,":s/20,20,0;#FFFFFF#FF4444Alipheese the Fifteenth ",400,380:spbtn 224,224
lsp 225,":s/20,20,0;#FFFFFF#FF4444La Croix ",400,410:spbtn 225,225
lsp 226,":s/20,20,0;#FFFFFF#FF4444Black Alice ",400,440:spbtn 226,226

btnwait %bwait

if %bwait=112 mov %zukan_page,%zukan_page-1:cspl 301,303:goto *menu_zukan3
if %bwait=113 mov %zukan_page,%zukan_page+1:cspl 301,303:goto *menu_zukan3

if %bwait>200 dwave 1,"2Q\se\pageturn.ogg"
if %bwait=201 goto *zukan_tutigumo
if %bwait=202 goto *zukan_alakneload
if %bwait=203 goto *zukan_kumonomiko
if %bwait=204 goto *zukan_narcubus
if %bwait=205 goto *zukan_inps
if %bwait=206 goto *zukan_eva
if %bwait=207 goto *zukan_trooperloid
if %bwait=208 goto *zukan_assassinloid
if %bwait=209 goto *zukan_yomotu
if %bwait=210 goto *zukan_wormiel
if %bwait=211 goto *zukan_undine2
if %bwait=212 goto *zukan_alice4
if %bwait=213 goto *zukan_drainplant
if %bwait=214 goto *zukan_drainloid
if %bwait=215 goto *zukan_replicant
if %bwait=216 goto *zukan_laplace
if %bwait=217 goto *zukan_AD5
if %bwait=218 goto *zukan_fermesara
if %bwait=219 goto *zukan_angelghoul
if %bwait=220 goto *zukan_dragonzonbe
if %bwait=221 goto *zukan_cirque1
if %bwait=222 goto *zukan_cirque2
if %bwait=223 goto *zukan_cirque3
if %bwait=224 goto *zukan_alice15th
if %bwait=225 goto *zukan_shirom
if %bwait=226 goto *zukan_alice8th1
if %bwait=111 && %storyon=0 screen_clear: return *extra_btn				;?????????
if %bwait= -1 && %storyon=0 screen_clear: return *extra_btn				;?????
if %bwait=-10 && %storyon=0 screen_clear: return *extra_btn				;ESC??
if %bwait=-11 && %storyon=0 screen_clear: return *extra_btn				;??????
if %bwait=111 && %storyon=1 screen_clear: return						;?????????
if %bwait= -1 && %storyon=1 screen_clear: return						;?????
if %bwait=-10 && %storyon=1 screen_clear: return						;ESC??
if %bwait=-11 && %storyon=1 screen_clear: return						;??????


goto *menu_zukan_page9



*menu_zukan_page10

mov %ng,0
btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",330,500:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",450,500:spbtn 113,113

lsp 201,":s/20,20,0;#FFFFFF#FF4444Themis Trap ",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Gargoyle Girl ",50,110:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Doppel Girl ",50,140:spbtn 203,203
lsp 204,":s/20,20,0;#FFFFFF#FF4444Hainuwele ",50,170:spbtn 204,204
lsp 205,":s/20,20,0;#FFFFFF#FF4444Amphisbaena ",50,200:spbtn 205,205
lsp 206,":s/20,20,0;#FFFFFF#FF4444Tsukuyomi ",50,230:spbtn 206,206
lsp 207,":s/20,20,0;#FFFFFF#FF4444Arc-En-Ciel ",50,260:spbtn 207,207
lsp 208,":s/20,20,0;#FFFFFF#FF4444Rapunzel ",50,290:spbtn 208,208
lsp 209,":s/20,20,0;#FFFFFF#FF4444Heaven's Gate ",50,320:spbtn 209,209
lsp 210,":s/20,20,0;#FFFFFF#FF4444Seraph Eden ",50,350:spbtn 210,210
lsp 211,":s/20,20,0;#FFFFFF#FF4444Promestein (Final Form) ",50,380:spbtn 211,211
lsp 212,":s/20,20,0;#FFFFFF#FF4444Black Alice (Second Form) ",50,410:spbtn 212,212
lsp 213,":s/20,20,0;#FFFFFF#FF4444Black Alice (Third Form) ",50,440:spbtn 213,213

lsp 214,":s/20,20,0;#FFFFFF#FF4444Black Alice (Final Form) ",400,80:spbtn 214,214
lsp 215,":s/20,20,0;#FFFFFF#FF4444Goddess Ilias (3) ",400,110:spbtn 215,215
lsp 216,":s/20,20,0;#FFFFFF#FF4444Goddess Ilias (Final Form) ",400,140:spbtn 216,216
lsp 217,":s/20,20,0;#FFFFFF#FF4444Other Endings ",400,170:spbtn 217,217
lsp 218,":s/20,20,0;#FFFFFF#FF4444Granberia (END) ",400,200:spbtn 218,218
lsp 219,":s/20,20,0;#FFFFFF#FF4444Alma Elma (END) ",400,230:spbtn 219,219
lsp 220,":s/20,20,0;#FFFFFF#FF4444Tamamo (END) ",400,260:spbtn 220,220
lsp 221,":s/20,20,0;#FFFFFF#FF4444Erubetie (END) ",400,290:spbtn 221,221
lsp 222,":s/20,20,0;#FFFFFF#FF4444Alice (END) ",400,320:spbtn 222,222

btnwait %bwait

if %bwait=112 mov %zukan_page,%zukan_page-1:cspl 301,303:goto *menu_zukan3
if %bwait=113 mov %zukan_page,%zukan_page+1:cspl 301,303:goto *menu_zukan3

if %bwait>200 dwave 1,"2Q\se\pageturn.ogg"
if %bwait=201 goto *zukan_traptemis
if %bwait=202 goto *zukan_gargoyle
if %bwait=203 goto *zukan_doppele
if %bwait=204 goto *zukan_hainu
if %bwait=205 goto *zukan_amphis
if %bwait=206 goto *zukan_tukuyomi
if %bwait=207 goto *zukan_arcen
if %bwait=208 goto *zukan_rapun
if %bwait=209 goto *zukan_heavensgate
if %bwait=210 goto *zukan_eden
if %bwait=211 goto *zukan_stein2
if %bwait=212 goto *zukan_alice8th2
if %bwait=213 goto *zukan_alice8th3
if %bwait=214 goto *zukan_alice8th4
if %bwait=215 goto *zukan_irias3
if %bwait=216 goto *zukan_irias4
if %bwait=217 goto *zukan_end
if %bwait=218 goto *zukan_granberia5
if %bwait=219 goto *zukan_arumaeruma4
if %bwait=220 goto *zukan_tamamo3
if %bwait=221 goto *zukan_erbetie3
if %bwait=222 goto *zukan_alice5
if %bwait=111 && %storyon=0 screen_clear: return *extra_btn				;?????????
if %bwait= -1 && %storyon=0 screen_clear: return *extra_btn				;?????
if %bwait=-10 && %storyon=0 screen_clear: return *extra_btn				;ESC??
if %bwait=-11 && %storyon=0 screen_clear: return *extra_btn				;??????
if %bwait=111 && %storyon=1 screen_clear: return						;?????????
if %bwait= -1 && %storyon=1 screen_clear: return						;?????
if %bwait=-10 && %storyon=1 screen_clear: return						;ESC??
if %bwait=-11 && %storyon=1 screen_clear: return						;??????


goto *menu_zukan_page10

*menu_zukan_page11

mov %ng,1
btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",330,500:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",450,500:spbtn 113,113

skip 60
mov %7050,1
mov %7051,1
mov %7052,1
mov %7053,1
mov %7054,1
mov %7055,1
mov %7056,1
mov %7059,1
mov %7062,1
mov %7065,1
mov %7068,1
mov %7014,1
mov %7001,2
mov %hsean_alice_ng,1
mov %hsean_alice_ng2,1
mov %7002,2
mov %7003,2
mov %hsean_queenhapy_ng,1
mov %7004,2
mov %hsean_tamamo_ng,1
mov %hsean_tamamo_ng2,1
mov %7005,2
mov %7006,2
mov %hsean_salamander_ng,1
mov %7007,2
mov %hsean_sylph_ng,1
mov %7008,2
mov %hsean_gnome_ng,1
mov %7009,2
mov %hsean_erubetie_ng,1
mov %7010,1
mov %7011,2
mov %hsean_undine_ng,1
mov %7012,2
mov %7013,2
mov %7014,2
mov %7015,2
mov %7016,2
mov %7017,2
mov %7018,2
mov %7019,2
mov %7020,2
mov %7021,2
mov %7022,2
mov %7023,2
mov %7024,2
mov %7025,2
mov %7026,2
mov %7027,2
mov %7028,2
mov %7029,2
mov %7030,2
mov %7031,2
mov %7032,2
mov %7033,2
mov %7034,2
mov %7035,2
mov %7036,4
mov %7037,2
mov %7038,2
mov %7039,1 ; Erubetie scene 2


if %7001<1 lsp 201,":s/20,20,0;#bbbbbb???",50,80
if %7001>0 || %hsean_alice_ng>0 lsp 201,":s/20,20,0;#FFFFFF#FF4444Alice (NG+)",50,80:spbtn 201,201
if %7002<1 lsp 202,":s/20,20,0;#bbbbbb???",50,110
if %7002>0 lsp 202,":s/20,20,0;#FFFFFF#FF4444Granberia (NG+)",50,110:spbtn 202,202
if %7003<1 lsp 203,":s/20,20,0;#bbbbbb???",50,140
if %7003>0 || %hsean_queenharpy_ng>0 lsp 203,":s/20,20,0;#FFFFFF#FF4444Queen Harpy (NG+)",50,140:spbtn 203,203
if %7004<1 lsp 204,":s/20,20,0;#bbbbbb???",50,170
if %7004>0 || %hsean_tamamo_ng>0 lsp 204,":s/20,20,0;#FFFFFF#FF4444Tamamo (NG+)",50,170:spbtn 204,204
if %7005<1 lsp 205,":s/20,20,0;#bbbbbb???",50,200
if %7005>0 lsp 205,":s/20,20,0;#FFFFFF#FF4444Alma Elma (NG+)",50,200:spbtn 205,205
if %7006<1 lsp 206,":s/20,20,0;#bbbbbb???",50,230
if %7006>0 lsp 206,":s/20,20,0;#FFFFFF#FF4444Salamander (NG+)",50,230:spbtn 206,206
if %7011<1 lsp 211,":s/20,20,0;#bbbbbb???",50,260
if %7011>0 lsp 211,":s/20,20,0;#FFFFFF#FF4444Undine (NG+)",50,260:spbtn 211,211
if %7007<1 lsp 207,":s/20,20,0;#bbbbbb???",50,290
if %7007>0 lsp 207,":s/20,20,0;#FFFFFF#FF4444Sylph (NG+)",50,290:spbtn 207,207
if %7008<1 lsp 208,":s/20,20,0;#bbbbbb???",50,320
if %7008>0 lsp 208,":s/20,20,0;#FFFFFF#FF4444Gnome (NG+)",50,320:spbtn 208,208
if %7009<1 lsp 209,":s/20,20,0;#bbbbbb???",50,350
if %7009>0 || %7039>0 lsp 209,":s/20,20,0;#FFFFFF#FF4444Erubetie (NG+)",50,350:spbtn 209,209
if %7010<1 lsp 210,":s/20,20,0;#bbbbbb???",50,380
if %7010>0 lsp 210,":s/20,20,0;#FFFFFF#FF4444Fallen Angel Micaela",50,380:spbtn 210,210
if %7012<1 lsp 212,":s/20,20,0;#bbbbbb???",50,410
if %7012>0 lsp 212,":s/20,20,0;#FFFFFF#FF4444Ririmu",50,410:spbtn 212,212
if %7013<1 lsp 213,":s/20,20,0;#bbbbbb???",50,440
if %7013>0 lsp 213,":s/20,20,0;#FFFFFF#FF4444Koakuma",50,440:spbtn 213,213
if %7015<1 lsp 214,":s/20,20,0;#bbbbbb???",400,80
if %7015>0 lsp 214,":s/20,20,0;#FFFFFF#FF4444Succubus (NG+)",400,80:spbtn 214,214
if %7016<1 lsp 215,":s/20,20,0;#bbbbbb???",400,110
if %7016>0 lsp 215,":s/20,20,0;#FFFFFF#FF4444Succubus Witch (NG+)",400,110:spbtn 215,215
if %7034<1 lsp 216,":s/20,20,0;#bbbbbb???",400,140
if %7034>0 || %7040>0 lsp 216,":s/20,20,0;#FFFFFF#FF4444Maccubus (NG+)",400,140:spbtn 216,216
if %7035<1 || %7041>0 lsp 217,":s/20,20,0;#bbbbbb???",400,170
if %7035>0 lsp 217,":s/20,20,0;#FFFFFF#FF4444Mincubus (NG+)",400,170:spbtn 217,217
if %7026<1 lsp 226,":s/20,20,0;#bbbbbb???",400,200
if %7026>0 lsp 226,":s/20,20,0;#FFFFFF#FF4444Lencubus (NG+)",400,200:spbtn 226,226
if %7014<1 lsp 218,":s/20,20,0;#bbbbbb???",400,230
if %7014>0 lsp 218,":s/20,20,0;#FFFFFF#FF4444Lilith & Lilim (NG+)",400,230:spbtn 218,218
if %7017<1 && %7059<1 lsp 219,":s/20,20,0;#bbbbbb???",400,260
if %7017>0 || %7059>0 lsp 219,":s/20,20,0;#FFFFFF#FF4444Crab Girl (NG+)",400,260:spbtn 219,219
if %7018<1 && %7022<1 && %7042<1 lsp 220,":s/20,20,0;#bbbbbb???",400,290
if %7018>0 || %7022>0 || %7042>0 lsp 220,":s/20,20,0;#FFFFFF#FF4444Kraken (NG+)",400,290:spbtn 220,220
if %7019<1 lsp 221,":s/20,20,0;#bbbbbb???",400,320
if %7019>0 lsp 221,":s/20,20,0;#FFFFFF#FF4444Queen Mermaid (NG+)",400,320:spbtn 221,221
if %7020<1 lsp 222,":s/20,20,0;#bbbbbb???",400,350
if %7020>0 lsp 222,":s/20,20,0;#FFFFFF#FF4444Meia (NG+)",400,350:spbtn 222,222
if %7037<1 lsp 223,":s/20,20,0;#bbbbbb???",400,380
if %7037>0 lsp 223,":s/20,20,0;#FFFFFF#FF4444Sphinx (NG+)",400,380:spbtn 223,223
if %7036<1 && %hsean_sara_ng<1 lsp 224,":s/20,20,0;#bbbbbb???",400,410
if %7036>0 || %hsean_sara_ng>0 lsp 224,":s/20,20,0;#FFFFFF#FF4444Sara (NG+)",400,410:spbtn 224,224
if %7038<1 lsp 225,":s/20,20,0;#bbbbbb???",400,440
if %7038>0 lsp 225,":s/20,20,0;#FFFFFF#FF4444Slime Bess (NG+)",400,440:spbtn 225,225


;if %7032<1 lsp 223,":s/20,20,0;#bbbbbb???",400,350
;if %7032>0 lsp 223,":s/20,20,0;#FFFFFF#FF4444Mummy Girl (NG+)",400,350:spbtn 223,223
;if %7033<1 lsp 224,":s/20,20,0;#bbbbbb???",400,380
;if %7033>0 lsp 224,":s/20,20,0;#FFFFFF#FF4444Cobra Girl (NG+)",400,380:spbtn 224,224
;if %7037<1 lsp 225,":s/20,20,0;#bbbbbb???",400,410
;if %7037>0 lsp 225,":s/20,20,0;#FFFFFF#FF4444Sphinx (NG+)",400,410:spbtn 225,225
;if %7036<1 lsp 226,":s/20,20,0;#bbbbbb???",400,440
;if %7036>0 lsp 226,":s/20,20,0;#FFFFFF#FF4444Sara (NG+)",400,440:spbtn 226,226

btnwait %bwait

if %bwait=112 mov %zukan_page,%zukan_page-1:cspl 301,303:goto *menu_zukan3
if %bwait=113 mov %zukan_page,%zukan_page+1:cspl 301,303:goto *menu_zukan3
if %bwait>200 dwave 1,"2Q\se\pageturn.ogg"
if %bwait=201 goto *zukan_alice_ng
if %bwait=202 goto *zukan_granberia_ng
if %bwait=203 goto *zukan_queenharpy_ng
if %bwait=204 goto *zukan_tamamo_ng
if %bwait=205 goto *zukan_alma_ng
if %bwait=206 goto *zukan_salamander_ng
if %bwait=211 goto *zukan_undine_ng
if %bwait=207 goto *zukan_sylph_ng
if %bwait=208 goto *zukan_gnome_ng
if %bwait=209 goto *zukan_erubetie_ng
if %bwait=210 goto *zukan_micaela_ng

if %bwait=212 goto *zukan_ririmu_ng
if %bwait=213 goto *zukan_koakuma_ng
if %bwait=214 goto *zukan_succubus_ng
if %bwait=215 goto *zukan_witchs_ng
if %bwait=216 goto *zukan_maccubus_ng
if %bwait=217 goto *zukan_mincubus_ng
if %bwait=218 goto *zukan_lilith_ng
if %bwait=219 goto *zukan_kani_ng
if %bwait=220 goto *zukan_kraken_ng
if %bwait=221 goto *zukan_queenmermaid_ng
if %bwait=222 goto *zukan_meia_ng
if %bwait=223 goto *zukan_sphinx_ng
if %bwait=224 goto *zukan_saraevil_ng
if %bwait=225 goto *zukan_bess_ng
if %bwait=226 goto *zukan_lencubus_ng

if %bwait=111 && %storyon=0 screen_clear: return *extra_btn			;?????????
if %bwait= -1 && %storyon=0 screen_clear: return *extra_btn			;?????
if %bwait=-10 && %storyon=0 screen_clear: return *extra_btn		;ESC??
if %bwait=-11 && %storyon=0 screen_clear: return *extra_btn		;??????
if %bwait=111 && %storyon=1 screen_clear: return						;?????????
if %bwait= -1 && %storyon=1 screen_clear: return						;?????
if %bwait=-10 && %storyon=1 screen_clear: return						;ESC??
if %bwait=-11 && %storyon=1 screen_clear: return						;??????


goto *menu_zukan_page11


*menu_zukan_page12

mov %ng,1
btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",330,500:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",450,500:spbtn 113,113


if %7026<1 lsp 201,":s/20,20,0;#bbbbbb???",50,80
if %7026>0 lsp 201,":s/20,20,0;#FFFFFF#FF4444Red Slime (NG+)",50,80:spbtn 201,201
if %7027<1 lsp 202,":s/20,20,0;#bbbbbb???",50,110
if %7027>0 lsp 202,":s/20,20,0;#FFFFFF#FF4444Purple Slime (NG+)",50,110:spbtn 202,202
if %7028<1 lsp 203,":s/20,20,0;#bbbbbb???",50,140
if %7028>0 lsp 203,":s/20,20,0;#FFFFFF#FF4444Morrigan",50,140:spbtn 203,203
if %7029<1 lsp 204,":s/20,20,0;#bbbbbb???",50,170
if %7029>0 lsp 204,":s/20,20,0;#FFFFFF#FF4444Astaroth",50,170:spbtn 204,204
if %7030<1 lsp 205,":s/20,20,0;#bbbbbb???",50,200
if %7030>0 lsp 205,":s/20,20,0;#FFFFFF#FF4444Beelzebubs (NG+)",50,200:spbtn 205,205
if %7050<1 lsp 206,":s/20,20,0;#bbbbbb???",50,230
if %7050>0 lsp 206,":s/20,20,0;#FFFFFF#FF4444Chrome (NG+)",50,230:spbtn 206,206
if %7044<1 lsp 207,":s/20,20,0;#bbbbbb???",50,260
if %7044>0 lsp 207,":s/20,20,0;#FFFFFF#FF4444Koakuma (2)",50,260:spbtn 207,207
if %7045<1 lsp 208,":s/20,20,0;#bbbbbb???",50,290
if %7045>0 lsp 208,":s/20,20,0;#FFFFFF#FF4444Granberia (NG+2)",50,290:spbtn 208,208
if %7046<1 lsp 209,":s/20,20,0;#bbbbbb???",50,320
if %7046>0 lsp 209,":s/20,20,0;#FFFFFF#FF4444Alma Elma (NG+2)",50,320:spbtn 209,209
if %7047<1 lsp 210,":s/20,20,0;#bbbbbb???",50,350
if %7047>0 lsp 210,":s/20,20,0;#FFFFFF#FF4444Valkyrie (NG+)",50,350:spbtn 210,210
if %7048<1 lsp 211,":s/20,20,0;#bbbbbb???",50,380
if %7048>0 lsp 211,":s/20,20,0;#FFFFFF#FF4444Queen of Grand Noah",50,380:spbtn 211,211
if %7056<1 lsp 212,":s/20,20,0;#bbbbbb???",50,410
if %7056>0 lsp 212,":s/20,20,0;#FFFFFF#FF4444Poseidoness (NG+)",50,410:spbtn 212,212
if %7059<1 lsp 213,":s/20,20,0;#bbbbbb???",50,440
if %7059>0 lsp 213,":s/20,20,0;#FFFFFF#FF4444Tiny Lamia (NG+)",50,440:spbtn 213,213
if %7062<1 lsp 214,":s/20,20,0;#bbbbbb???",400,80
if %7062>0 lsp 214,":s/20,20,0;#FFFFFF#FF4444Vampire Girl (NG+)",400,80:spbtn 214,214
if %7065<1 lsp 215,":s/20,20,0;#bbbbbb???",400,110
if %7065>0 lsp 215,":s/20,20,0;#FFFFFF#FF4444Dragon Pup (NG+)",400,110:spbtn 215,215
if %7068<1 lsp 216,":s/20,20,0;#bbbbbb???",400,140
if %7068>0 lsp 216,":s/20,20,0;#FFFFFF#FF4444Goblin Girl (NG+)",400,140:spbtn 216,216

;if %7024<1 lsp 202,":s/20,20,0;#bbbbbb???",50,110
;if %7024>0 lsp 202,":s/20,20,0;#FFFFFF#FF4444Green Slime (NG+)",400,440:spbtn 202,202
;if %7025<1 lsp 225,":s/20,20,0;#bbbbbb???",400,260
;if %7025>0 lsp 225":s/20,20,0;#FFFFFF#FF4444Blue Slime (NG+)",400,260:spbtn 220,220
;if %7028<1 lsp 202,":s/20,20,0;#bbbbbb???",50,110
;if %7028>0 lsp 202,":s/20,20,0;#FFFFFF#FF4444Slime Girl (NG+)",50,110:spbtn 202,202
;if %7029<1 lsp 203,":s/20,20,0;#bbbbbb???",50,140
;if %7029>0 lsp 203,":s/20,20,0;#FFFFFF#FF4444Beru (NG+)",50,140:spbtn 203,203
;if %7030<1 lsp 204,":s/20,20,0;#bbbbbb???",50,170
;if %7030>0 lsp 204,":s/20,20,0;#FFFFFF#FF4444Blob Girl (NG+)",50,170:spbtn 204,204
;if %7031<1 lsp 205,":s/20,20,0;#bbbbbb???",50,200
;if %7031>0 lsp 205,":s/20,20,0;#FFFFFF#FF4444Jelly Girl (NG+)",50,200:spbtn 205,205


btnwait %bwait

if %bwait=112 mov %zukan_page,%zukan_page-1:cspl 301,303:goto *menu_zukan3
if %bwait=113 mov %zukan_page,%zukan_page+1:cspl 301,303:goto *menu_zukan3

if %bwait>200 dwave 1,"2Q\se\pageturn.ogg"
if %bwait=201 goto *zukan_redslime_ng
if %bwait=202 goto *zukan_purpleslime_ng
if %bwait=203 goto *zukan_morrigan_ng
if %bwait=204 goto *zukan_astaroth_ng
if %bwait=205 goto *zukan_beelzebub_ng
if %bwait=206 goto *zukan_chrome_ng
if %bwait=207 goto *zukan_koakuma_ng2
if %bwait=208 goto *zukan_granberia_ng2
if %bwait=209 goto *zukan_alma_ng2
if %bwait=210 goto *zukan_valkyrie_ng
if %bwait=211 goto *zukan_gnqueen
if %bwait=212 goto *zukan_poseidoness_ng
if %bwait=213 goto *zukan_pramia_ng
if %bwait=214 goto *zukan_vgirl_ng
if %bwait=215 goto *zukan_dragonp_ng
if %bwait=216 goto *zukan_goblin_ng

if %bwait=111 && %storyon=0 screen_clear: return *extra_btn			;?????????
if %bwait= -1 && %storyon=0 screen_clear: return *extra_btn			;?????
if %bwait=-10 && %storyon=0 screen_clear: return *extra_btn		;ESC??
if %bwait=-11 && %storyon=0 screen_clear: return *extra_btn		;??????
if %bwait=111 && %storyon=1 screen_clear: return						;?????????
if %bwait= -1 && %storyon=1 screen_clear: return						;?????
if %bwait=-10 && %storyon=1 screen_clear: return						;ESC??
if %bwait=-11 && %storyon=1 screen_clear: return						;??????


goto *menu_zukan_page12




*menu_zukan_pagex

btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",320,500:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",480,500:spbtn 113,113

lsp 201,":s/20,20,0;#bbbbbbPart 1 Monster",50,80
lsp 202,":s/20,20,0;#bbbbbbPart 1 Monster",50,110
lsp 203,":s/20,20,0;#bbbbbbPart 1 Monster",50,140
lsp 204,":s/20,20,0;#bbbbbbPart 1 Monster",50,170
lsp 205,":s/20,20,0;#bbbbbbPart 1 Monster",50,200
lsp 206,":s/20,20,0;#bbbbbbPart 1 Monster",50,230
lsp 207,":s/20,20,0;#bbbbbbPart 1 Monster",50,260
lsp 208,":s/20,20,0;#bbbbbbPart 1 Monster",50,290
lsp 209,":s/20,20,0;#bbbbbbPart 1 Monster",50,320
lsp 210,":s/20,20,0;#bbbbbbPart 1 Monster",50,350
lsp 211,":s/20,20,0;#bbbbbbPart 1 Monster",50,380
lsp 212,":s/20,20,0;#bbbbbbPart 1 Monster",50,410
lsp 213,":s/20,20,0;#bbbbbbPart 1 Monster",50,440

lsp 214,":s/20,20,0;#bbbbbbPart 1 Monster",400,80
lsp 215,":s/20,20,0;#bbbbbbPart 1 Monster",400,110
lsp 216,":s/20,20,0;#bbbbbbPart 1 Monster",400,140
lsp 217,":s/20,20,0;#bbbbbbPart 1 Monster",400,170
lsp 218,":s/20,20,0;#bbbbbbPart 1 Monster",400,200
lsp 219,":s/20,20,0;#bbbbbbPart 1 Monster",400,230
lsp 220,":s/20,20,0;#bbbbbbPart 1 Monster",400,260
lsp 221,":s/20,20,0;#bbbbbbPart 1 Monster",400,290
lsp 222,":s/20,20,0;#bbbbbbPart 1 Monster",400,320
lsp 223,":s/20,20,0;#bbbbbbPart 1 Monster",400,350
lsp 224,":s/20,20,0;#bbbbbbPart 1 Monster",400,380
lsp 225,":s/20,20,0;#bbbbbbPart 1 Monster",400,410
lsp 226,":s/20,20,0;#bbbbbbPart 1 Monster",400,440

btnwait %bwait

if %bwait=112 mov %zukan_page,%zukan_page-1:cspl 301,303:goto *menu_zukan3
if %bwait=113 mov %zukan_page,%zukan_page+1:cspl 301,303:goto *menu_zukan3
if %bwait=111 && %storyon=0 screen_clear: return *extra_btn				;?????????
if %bwait= -1 && %storyon=0 screen_clear: return *extra_btn				;?????
if %bwait=-10 && %storyon=0 screen_clear: return *extra_btn				;ESC??
if %bwait=-11 && %storyon=0 screen_clear: return *extra_btn				;??????
if %bwait=111 && %storyon=1 screen_clear: return						;?????????
if %bwait= -1 && %storyon=1 screen_clear: return						;?????
if %bwait=-10 && %storyon=1 screen_clear: return						;ESC??
if %bwait=-11 && %storyon=1 screen_clear: return						;??????


goto *menu_zukan_pagex



*menu_zukan_pagey

btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",320,500:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",480,500:spbtn 113,113

lsp 201,":s/20,20,0;#bbbbbbPart 1 Monster",50,80
lsp 202,":s/20,20,0;#bbbbbbPart 1 Monster",50,110
lsp 203,":s/20,20,0;#bbbbbbPart 1 Monster",50,140
lsp 204,":s/20,20,0;#bbbbbbPart 1 Monster",50,170
lsp 205,":s/20,20,0;#bbbbbbPart 1 Monster",50,200
lsp 206,":s/20,20,0;#bbbbbbPart 1 Monster",50,230
lsp 207,":s/20,20,0;#bbbbbbPart 1 Monster",50,260
lsp 208,":s/20,20,0;#bbbbbbPart 1 Monster",50,290
lsp 209,":s/20,20,0;#bbbbbbPart 1 Monster",50,320
lsp 210,":s/20,20,0;#bbbbbbPart 1 Monster",50,350
lsp 211,":s/20,20,0;#bbbbbbPart 1 Monster",50,380
lsp 212,":s/20,20,0;#bbbbbbPart 1 Monster",50,410
lsp 213,":s/20,20,0;#bbbbbbPart 1 Monster",50,440

lsp 214,":s/20,20,0;#bbbbbbPart 1 Monster",400,80
lsp 215,":s/20,20,0;#bbbbbbPart 1 Monster",400,110
lsp 216,":s/20,20,0;#bbbbbbPart 1 Monster",400,140
lsp 217,":s/20,20,0;#bbbbbbPart 2 Monster",400,170
lsp 218,":s/20,20,0;#bbbbbbPart 2 Monster",400,200
lsp 219,":s/20,20,0;#bbbbbbPart 2 Monster",400,230
lsp 220,":s/20,20,0;#bbbbbbPart 2 Monster",400,260
lsp 221,":s/20,20,0;#bbbbbbPart 2 Monster",400,290
lsp 222,":s/20,20,0;#bbbbbbPart 2 Monster",400,320
lsp 223,":s/20,20,0;#bbbbbbPart 2 Monster",400,350
lsp 224,":s/20,20,0;#bbbbbbPart 2 Monster",400,380
lsp 225,":s/20,20,0;#bbbbbbPart 2 Monster",400,410
lsp 226,":s/20,20,0;#bbbbbbPart 2 Monster",400,440

btnwait %bwait

if %bwait=112 mov %zukan_page,%zukan_page-1:cspl 301,303:goto *menu_zukan3
if %bwait=113 mov %zukan_page,%zukan_page+1:cspl 301,303:goto *menu_zukan3
if %bwait=111 && %storyon=0 screen_clear: return *extra_btn				;?????????
if %bwait= -1 && %storyon=0 screen_clear: return *extra_btn				;?????
if %bwait=-10 && %storyon=0 screen_clear: return *extra_btn				;ESC??
if %bwait=-11 && %storyon=0 screen_clear: return *extra_btn				;??????
if %bwait=111 && %storyon=1 screen_clear: return						;?????????
if %bwait= -1 && %storyon=1 screen_clear: return						;?????
if %bwait=-10 && %storyon=1 screen_clear: return						;ESC??
if %bwait=-11 && %storyon=1 screen_clear: return						;??????


goto *menu_zukan_pagey



*menu_zukan_pagez

btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",320,500:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",480,500:spbtn 113,113

lsp 201,":s/20,20,0;#bbbbbbPart 2 Monster",50,80
lsp 202,":s/20,20,0;#bbbbbbPart 2 Monster",50,110
lsp 203,":s/20,20,0;#bbbbbbPart 2 Monster",50,140
lsp 204,":s/20,20,0;#bbbbbbPart 2 Monster",50,170
lsp 205,":s/20,20,0;#bbbbbbPart 2 Monster",50,200
lsp 206,":s/20,20,0;#bbbbbbPart 2 Monster",50,230
lsp 207,":s/20,20,0;#bbbbbbPart 2 Monster",50,260
lsp 208,":s/20,20,0;#bbbbbbPart 2 Monster",50,290
lsp 209,":s/20,20,0;#bbbbbbPart 2 Monster",50,320
lsp 210,":s/20,20,0;#bbbbbbPart 2 Monster",50,350
lsp 211,":s/20,20,0;#bbbbbbPart 2 Monster",50,380
lsp 212,":s/20,20,0;#bbbbbbPart 2 Monster",50,410
lsp 213,":s/20,20,0;#bbbbbbPart 2 Monster",50,440

lsp 214,":s/20,20,0;#bbbbbbPart 2 Monster",400,80
lsp 215,":s/20,20,0;#bbbbbbPart 2 Monster",400,110
lsp 216,":s/20,20,0;#bbbbbbPart 2 Monster",400,140
lsp 217,":s/20,20,0;#bbbbbbPart 2 Monster",400,170
lsp 218,":s/20,20,0;#bbbbbbPart 2 Monster",400,200
lsp 219,":s/20,20,0;#bbbbbbPart 2 Monster",400,230
lsp 220,":s/20,20,0;#bbbbbbPart 2 Monster",400,260
lsp 221,":s/20,20,0;#bbbbbbPart 2 Monster",400,290
lsp 222,":s/20,20,0;#bbbbbbPart 2 Monster",400,320
lsp 223,":s/20,20,0;#bbbbbbPart 2 Monster",400,350
lsp 224,":s/20,20,0;#bbbbbbPart 2 Monster",400,380
lsp 225,":s/20,20,0;#bbbbbbPart 2 Monster",400,410
lsp 226,":s/20,20,0;#bbbbbbPart 2 Monster",400,440

btnwait %bwait

if %bwait=112 mov %zukan_page,%zukan_page-1:cspl 301,303:goto *menu_zukan3
if %bwait=113 mov %zukan_page,%zukan_page+1:cspl 301,303:goto *menu_zukan3
if %bwait=111 && %storyon=0 screen_clear: return *extra_btn				;?????????
if %bwait= -1 && %storyon=0 screen_clear: return *extra_btn				;?????
if %bwait=-10 && %storyon=0 screen_clear: return *extra_btn				;ESC??
if %bwait=-11 && %storyon=0 screen_clear: return *extra_btn				;??????
if %bwait=111 && %storyon=1 screen_clear: return						;?????????
if %bwait= -1 && %storyon=1 screen_clear: return						;?????
if %bwait=-10 && %storyon=1 screen_clear: return						;ESC??
if %bwait=-11 && %storyon=1 screen_clear: return						;??????


goto *menu_zukan_pagez



*menu_zukan_pagew

btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",320,500:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",480,500:spbtn 113,113

lsp 201,":s/20,20,0;#bbbbbbPart 2 Monster",50,80
lsp 202,":s/20,20,0;#bbbbbbPart 2 Monster",50,110
lsp 203,":s/20,20,0;#bbbbbbPart 2 Monster",50,140
lsp 204,":s/20,20,0;#bbbbbbPart 2 Monster",50,170
lsp 205,":s/20,20,0;#bbbbbbPart 2 Monster",50,200
lsp 206,":s/20,20,0;#bbbbbbPart 2 Monster",50,230
lsp 207,":s/20,20,0;#bbbbbbPart 2 Monster",50,260
lsp 208,":s/20,20,0;#bbbbbbPart 2 Monster",50,290
lsp 209,":s/20,20,0;#bbbbbbPart 2 Monster",50,320
lsp 210,":s/20,20,0;#bbbbbbPart 2 Monster",50,350
lsp 211,":s/20,20,0;#bbbbbbPart 2 Monster",50,380
lsp 212,":s/20,20,0;#bbbbbbPart 2 Monster",50,410
lsp 213,":s/20,20,0;#bbbbbbPart 2 Monster",50,440

lsp 214,":s/20,20,0;#bbbbbbPart 2 Monster",400,80
lsp 215,":s/20,20,0;#bbbbbbPart 2 Monster",400,110
lsp 216,":s/20,20,0;#bbbbbbPart 2 Monster",400,140
lsp 217,":s/20,20,0;#bbbbbbPart 2 Monster",400,170
lsp 218,":s/20,20,0;#bbbbbbPart 2 Monster",400,200
lsp 219,":s/20,20,0;#bbbbbbPart 2 Monster",400,230
lsp 220,":s/20,20,0;#bbbbbbPart 2 Monster",400,260
lsp 221,":s/20,20,0;#bbbbbbPart 2 Monster",400,290
lsp 222,":s/20,20,0;#bbbbbbPart 2 Monster",400,320
lsp 223,":s/20,20,0;#bbbbbbPart 2 Monster",400,350
lsp 224,":s/20,20,0;#bbbbbbPart 2 Monster",400,380
if %2350=1 lsp 225,":s/20,20,0;#FFFFFF#FF4444??????",400,410:spbtn 225,225
if %2350=0 lsp 225,":s/20,20,0;#bbbbbb???",400,410
if %2351=1 lsp 226,":s/20,20,0;#FFFFFF#FF4444??????",400,440:spbtn 226,226
if %2351=0 lsp 226,":s/20,20,0;#bbbbbb???",400,440

btnwait %bwait

if %bwait=112 mov %zukan_page,%zukan_page-1:cspl 301,303:goto *menu_zukan3
if %bwait=113 mov %zukan_page,%zukan_page+1:cspl 301,303:goto *menu_zukan3
if %bwait=225 goto *zukan_cupid
if %bwait=226 goto *zukan_valkyrie
if %bwait=111 && %storyon=0 screen_clear: return *extra_btn				;?????????
if %bwait= -1 && %storyon=0 screen_clear: return *extra_btn				;?????
if %bwait=-10 && %storyon=0 screen_clear: return *extra_btn				;ESC??
if %bwait=-11 && %storyon=0 screen_clear: return *extra_btn				;??????
if %bwait=111 && %storyon=1 screen_clear: return						;?????????
if %bwait= -1 && %storyon=1 screen_clear: return						;?????
if %bwait=-10 && %storyon=1 screen_clear: return						;ESC??
if %bwait=-11 && %storyon=1 screen_clear: return						;??????


goto *menu_zukan_pagew


*zukan_kihonbtn

lsp 207,":c/2,0,3;2Q\system\menu_random.png",585,20:spbtn 207,207
lsp 200,":c/2,0,3;system\menu_prev.jpg",420,20:spbtn 200,200
lsp 201,":c/2,0,3;system\menu_next.jpg",750,20:spbtn 201,201
notif %zukan_koumoku=1 lsp 202,":s/20,20,0;#000000#FF4444Info",420,570:spbtn 202,202
if %zukan_koumoku=1 lsp 202,":s/20,20,0;#bbbbbbInfo",420,570
notif %zukan_koumoku=2 lsp 203,":s/20,20,0;#000000#FF4444Data",490,570:spbtn 203,203
if %zukan_koumoku=2 lsp 203,":s/20,20,0;#bbbbbbData",490,570
lsp 204,":s/20,20,0;#000000#FF4444Pose",560,570:spbtn 204,204
if %zukancg=1 lsp 205,":s/20,20,0;#000000#FF4444CG",630,570:spbtn 205,205
if %zukancg=0 lsp 205,":s/20,20,0;#bbbbbbCG",630,570
if %ng=0 lsp 205,":s/20,20,0;#000000#FF4444CG",630,570:spbtn 205,205
notif %zukan_koumoku=3 lsp 206,":s/20,20,0;#000000#FF4444Recall",680,570:spbtn 206,206
if %zukan_koumoku=3 lsp 206,":s/20,20,0;#bbbbbbRecall",680,570:spbtn 206,206

btnwait %bwait

if %bwait=210 mov %zukanon,1:goto "*zukan_"+$zlavel+"_kaisou"
if %bwait=211 mov %zukanon,1:goto "*zukan_"+$zlavel+"_kaisou"
if %bwait=212 mov %zukanon,1:goto "*zukan_"+$zlavel+"_kaisou"
if %bwait=213 mov %zukanon,2:goto "*zukan_"+$zlavel+"_kaisou"
if %bwait=214 mov %zukanon,2:goto "*zukan_"+$zlavel+"_kaisou"
if %bwait=215 mov %zukanon,2:goto "*zukan_"+$zlavel+"_kaisou"
if %bwait=216 mov %zukanon,2:goto "*zukan_"+$zlavel+"_kaisou"
if %bwait=217 mov %zukanon,2:goto "*zukan_"+$zlavel+"_kaisou"

if %bwait=207 goto "*zukan_random"
if %bwait=200 goto "*zukan_prev"
if %bwait=201 goto "*zukan_next"
if %bwait=202 goto "*zukan_"+$zlavel
if %bwait=203 goto *zukan_commondata
if %bwait=204 goto *zukan_commontatie
if %bwait=205 vspl 200,450,0:gosub "*zukan_"+$zlavel+"_cg":cspl 420,430:csp 500:vspl 200,450,1
if %bwait=206 goto *zukan_commonkaisou

if %bwait=304 mov %skill_num,%zukan_skillc1:goto *zukan_wazacount
if %bwait=305 mov %skill_num,%zukan_skillc2:goto *zukan_wazacount
if %bwait=306 mov %skill_num,%zukan_skillc3:goto *zukan_wazacount
if %bwait=307 mov %skill_num,%zukan_skillc4:goto *zukan_wazacount
if %bwait=308 mov %skill_num,%zukan_skillc5:goto *zukan_wazacount
if %bwait=309 mov %skill_num,%zukan_skillc6:goto *zukan_wazacount
if %bwait=310 mov %skill_num,%zukan_skillc7:goto *zukan_wazacount
if %bwait=311 mov %skill_num,%zukan_skillc8:goto *zukan_wazacount
if %bwait=312 mov %skill_num,%zukan_skillc9:goto *zukan_wazacount
if %bwait=313 mov %skill_num,%zukan_skillc10:goto *zukan_wazacount
if %bwait=314 mov %skill_num,%zukan_skillc11:goto *zukan_wazacount
if %bwait=315 mov %skill_num,%zukan_skillc12:goto *zukan_wazacount

if %bwait= -1 screen_clear :goto *menu_zukan2				;?????
if %bwait=-10 screen_clear :goto *menu_zukan2				;ESC??
if %bwait=-11 screen_clear :goto *menu_zukan2				;??????

goto *zukan_kihonbtn



*zukan_commondata

data_clear
btndef clear
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,2
mov %zukan_x0,%zukan_x1
gosub "*zukan_"+$zlavel+"_p"
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":s/20,20,0;#000000Level: "+$zukan_lv,420,100
lsp 302,":s/20,20,0;#000000HP: "+$zukan_hp,420,130
lsp 316,":s/20,20,0;#000000Times Defeated: "+$zukan_ko+"",420,160
if $zukan_ko="??" lsp 316,":s/20,20,0;#000000Defeated: "+$zukan_ko,420,160
lsp 303,":s/20,20,0;#000000Skill:",420,190
if %zukan_skillc1=0 lsp 304,":s/20,20,0;#000000None Requestable",480,190:goto *zukan_kihonbtn
if %%zukan_skillc1>0 lsp 304,":s/20,20,0;#000000#FF4444"+$zukan_skill1,480,190:spbtn 304,304
if %%zukan_skillc1=0 lsp 304,":s/20,20,0;#bbbbbb"+$zukan_skill1,480,190
if %zukan_skillc2=0 goto *zukan_kihonbtn
if %%zukan_skillc2>0 lsp 305,":s/20,20,0;#000000#FF4444"+$zukan_skill2,480,220:spbtn 305,305
if %%zukan_skillc2=0 lsp 305,":s/20,20,0;#bbbbbb"+$zukan_skill2,480,220
if %zukan_skillc3=0 goto *zukan_kihonbtn
if %%zukan_skillc3>0 lsp 306,":s/20,20,0;#000000#FF4444"+$zukan_skill3,480,250:spbtn 306,306
if %%zukan_skillc3=0 lsp 306,":s/20,20,0;#bbbbbb"+$zukan_skill3,480,250
if %zukan_skillc4=0 goto *zukan_kihonbtn
if %%zukan_skillc4>0 lsp 307,":s/20,20,0;#000000#FF4444"+$zukan_skill4,480,280:spbtn 307,307
if %%zukan_skillc4=0 lsp 307,":s/20,20,0;#bbbbbb"+$zukan_skill4,480,280
if %zukan_skillc5=0 goto *zukan_kihonbtn
if %%zukan_skillc5>0 lsp 308,":s/20,20,0;#000000#FF4444"+$zukan_skill5,480,310:spbtn 308,308
if %%zukan_skillc5=0 lsp 308,":s/20,20,0;#bbbbbb"+$zukan_skill5,480,310
if %zukan_skillc6=0 goto *zukan_kihonbtn
if %%zukan_skillc6>0 lsp 309,":s/20,20,0;#000000#FF4444"+$zukan_skill6,480,340:spbtn 309,309
if %%zukan_skillc6=0 lsp 309,":s/20,20,0;#bbbbbb"+$zukan_skill6,480,340
if %zukan_skillc7=0 goto *zukan_kihonbtn
if %%zukan_skillc7>0 lsp 310,":s/20,20,0;#000000#FF4444"+$zukan_skill7,480,370:spbtn 310,310
if %%zukan_skillc7=0 lsp 310,":s/20,20,0;#bbbbbb"+$zukan_skill7,480,370
if %zukan_skillc8=0 goto *zukan_kihonbtn
if %%zukan_skillc8>0 lsp 311,":s/20,20,0;#000000#FF4444"+$zukan_skill8,480,400:spbtn 311,311
if %%zukan_skillc8=0 lsp 311,":s/20,20,0;#bbbbbb"+$zukan_skill8,480,400
if %zukan_skillc9=0 goto *zukan_kihonbtn
if %%zukan_skillc9>0 lsp 312,":s/20,20,0;#000000#FF4444"+$zukan_skill9,480,430:spbtn 312,312
if %%zukan_skillc9=0 lsp 312,":s/20,20,0;#bbbbbb"+$zukan_skill9,480,430
if %zukan_skillc10=0 goto *zukan_kihonbtn
if %%zukan_skillc10>0 lsp 313,":s/20,20,0;#000000#FF4444"+$zukan_skill10,480,460:spbtn 313,313
if %%zukan_skillc10=0 lsp 313,":s/20,20,0;#bbbbbb"+$zukan_skill10,480,460
if %zukan_skillc11=0 goto *zukan_kihonbtn
if %%zukan_skillc11>0 lsp 314,":s/20,20,0;#000000#FF4444"+$zukan_skill11,480,490:spbtn 314,314
if %%zukan_skillc11=0 lsp 314,":s/20,20,0;#bbbbbb"+$zukan_skill11,480,490
if %zukan_skillc12=0 goto *zukan_kihonbtn
if %%zukan_skillc12>0 lsp 315,":s/20,20,0;#000000#FF4444"+$zukan_skill12,480,520:spbtn 315,315
if %%zukan_skillc12=0 lsp 315,":s/20,20,0;#bbbbbb"+$zukan_skill12,480,520
goto *zukan_kihonbtn



*zukan_commontatie

pose_clear
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 410,":a;system\windowz.bmp",640,0
mov %zukan_x0,%zukan_x2
gosub "*zukan_"+$zlavel+"_p"
shadedistance 1,2
if %zukan_facenum=1 lsp 301,":s/20,20,0;#bbbbbbFace",670,100
if %zukan_facenum>1 lsp 301,":s/20,20,0;#FFFFFF#FF4444Face",670,100:spbtn 301,301
if %zukan_posenum=1 lsp 302,":s/20,20,0;#bbbbbbPose",670,130
if %zukan_posenum>1 lsp 302,":s/20,20,0;#FFFFFF#FF4444Pose",670,130:spbtn 302,302

if %zukan_cumnum>0 lsp 303,":s/20,20,0;#FFFFFF#FF4444Bukkake 1",670,160:spbtn 303,303
if %zukan_cumnum>1 lsp 304,":s/20,20,0;#FFFFFF#FF4444Bukkake 2",670,190:spbtn 304,304
if %zukan_cumnum>2 lsp 305,":s/20,20,0;#FFFFFF#FF4444Bukkake 3",670,220:spbtn 305,305
if %zukan_cumnum>3 lsp 306,":s/20,20,0;#FFFFFF#FF4444Bukkake 4",670,250:spbtn 306,306
if %zukan_cumnum>4 lsp 307,":s/20,20,0;#FFFFFF#FF4444Bukkake 5",670,280:spbtn 307,307
if %zukan_cumnum>5 lsp 308,":s/20,20,0;#FFFFFF#FF4444Bukkake 6",670,310:spbtn 308,308
if %zukan_cumnum>6 lsp 309,":s/20,20,0;#FFFFFF#FF4444Bukkake 7",670,340:spbtn 309,309
if %zukan_cumnum>7 lsp 310,":s/20,20,0;#FFFFFF#FF4444Bukkake 8",670,370:spbtn 310,310

lsp 311,":s/20,20,0;#FFFFFF#FF4444Sidebar",670,500:spbtn 311,311
lsp 312,":s/20,20,0;#FFFFFF#FF4444Return",670,530:spbtn 312,312
shadedistance 0,0

btnwait %bwait
if %bwait=301 mov %zukan_face,%zukan_face+1:gosub "*zukan_"+$zlavel+"_p"
if %bwait=302 mov %zukan_pose,%zukan_pose+1:mov %zukan_face,1:gosub "*zukan_"+$zlavel+"_p"

if %zukan_cumnum<1 skip 17
if %bwait=303 && %zukan_cum1=0 mov %zukan_cum1,1:gosub "*zukan_"+$zlavel+"_p":goto *zukan_commontatie
if %bwait=303 && %zukan_cum1=1 mov %zukan_cum1,0:gosub "*zukan_"+$zlavel+"_p":goto *zukan_commontatie
if %bwait=304 && %zukan_cum2=0 mov %zukan_cum2,1:gosub "*zukan_"+$zlavel+"_p":goto *zukan_commontatie
if %bwait=304 && %zukan_cum2=1 mov %zukan_cum2,0:gosub "*zukan_"+$zlavel+"_p":goto *zukan_commontatie
if %bwait=305 && %zukan_cum3=0 mov %zukan_cum3,1:gosub "*zukan_"+$zlavel+"_p":goto *zukan_commontatie
if %bwait=305 && %zukan_cum3=1 mov %zukan_cum3,0:gosub "*zukan_"+$zlavel+"_p":goto *zukan_commontatie
if %bwait=306 && %zukan_cum4=0 mov %zukan_cum4,1:gosub "*zukan_"+$zlavel+"_p":goto *zukan_commontatie
if %bwait=306 && %zukan_cum4=1 mov %zukan_cum4,0:gosub "*zukan_"+$zlavel+"_p":goto *zukan_commontatie
if %bwait=307 && %zukan_cum5=0 mov %zukan_cum5,1:gosub "*zukan_"+$zlavel+"_p":goto *zukan_commontatie
if %bwait=307 && %zukan_cum5=1 mov %zukan_cum5,0:gosub "*zukan_"+$zlavel+"_p":goto *zukan_commontatie
if %bwait=308 && %zukan_cum6=0 mov %zukan_cum6,1:gosub "*zukan_"+$zlavel+"_p":goto *zukan_commontatie
if %bwait=308 && %zukan_cum6=1 mov %zukan_cum6,0:gosub "*zukan_"+$zlavel+"_p":goto *zukan_commontatie
if %bwait=309 && %zukan_cum7=0 mov %zukan_cum7,1:gosub "*zukan_"+$zlavel+"_p":goto *zukan_commontatie
if %bwait=309 && %zukan_cum7=1 mov %zukan_cum7,0:gosub "*zukan_"+$zlavel+"_p":goto *zukan_commontatie
if %bwait=310 && %zukan_cum8=0 mov %zukan_cum8,1:gosub "*zukan_"+$zlavel+"_p":goto *zukan_commontatie
if %bwait=310 && %zukan_cum8=1 mov %zukan_cum8,0:gosub "*zukan_"+$zlavel+"_p":goto *zukan_commontatie

if %bwait=311 goto *zukan_commontatie2
if %bwait=312 goto "*zukan_"+$zlavel
if %bwait= -1 screen_clear :goto "*zukan_"+$zlavel				;?????
if %bwait=-10 screen_clear :goto "*zukan_"+$zlavel				;ESC??
if %bwait=-11 screen_clear :goto "*zukan_"+$zlavel				;??????

goto *zukan_commontatie



*zukan_commontatie2

vspl 200,410,0
print 1
lrclick
vspl 200,410,1
goto *zukan_commontatie



*zukan_commonkaisou0

saveoff
csp -1
bg black,1
bgm"2Q\bgm\zukan.ogg"
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %skill_serenegale,0
goto "*zukan_"+$zlavel


*zukan_commonkaisou

shadedistance 0,0
recall_clear
btndef clear
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,3
mov %zukan_x0,%zukan_x1
gosub "*zukan_"+$zlavel+"_p"
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
if %storyon=1 goto *zukan_commonkaisou2
if $zlavel="alice1" goto *zukan_commonkaisou_alice1
mov $name,$zname
if %ng>0 skip 4
mov %hscene1,1
mov %hscene2,1
mov %hscene3,1
if %zukan_battlenum=0 lsp 210,":s/20,20,0;#bbbbbbCombat(Normal)",420,100
if %zukan_battlenum=1 lsp 210,":s/20,20,0;#000000#FF4444Combat(Normal)",420,100:spbtn 210,210
if %zukan_battlenum=2 lsp 210,":s/20,20,0;#000000#FF4444Combat(Normal)",420,100:spbtn 210,210
if %zukan_battlenum=0 lsp 211,":s/20,20,0;#bbbbbbCombat(Hard)",420,130
if %zukan_battlenum=1 lsp 211,":s/20,20,0;#000000#FF4444Combat(Hard)",420,130:spbtn 211,211
if %zukan_battlenum=2 lsp 211,":s/20,20,0;#bbbbbbCombat(Hard)",420,130
if %zukan_battlenum=0 lsp 212,":s/20,20,0;#bbbbbbCombat(Hard)",420,160
if %zukan_battlenum=1 lsp 212,":s/20,20,0;#000000#FF4444Combat(Hell)",420,160:spbtn 212,212
if %zukan_battlenum=2 lsp 212,":s/20,20,0;#bbbbbbCombat(Hell)",420,160
if %zukan_hscenenum=0 lsp 213,":s/20,20,0;#bbbbbbRape Scene",420,190:spbtn 213,213
if %zukan_hscenenum=1 && %hscene1=1 lsp 213,":s/20,20,0;#000000#FF4444Rape Scene",420,190:spbtn 213,213
if %zukan_hscenenum=1 && %hscene1=0 lsp 213,":s/20,20,0;#bbbbbbRape Scene",420,190
if %zukan_hscenenum>1 && %hscene1=1 lsp 213,":s/20,20,0;#000000#FF4444Rape Scene 1",420,190:spbtn 213,213
if %zukan_hscenenum>1 && %hscene1=0 lsp 213,":s/20,20,0;#bbbbbbRape Scene 1",420,190
if %zukan_hscenenum>1 && %hscene2=1 lsp 214,":s/20,20,0;#000000#FF4444Rape Scene 2",420,220:spbtn 214,214
if %zukan_hscenenum>1 && %hscene2=0 lsp 214,":s/20,20,0;#bbbbbbRape Scene 2",420,220
if %zukan_hscenenum>2 && %hscene3=1 lsp 215,":s/20,20,0;#000000#FF4444Rape Scene 3",420,250:spbtn 215,215
if %zukan_hscenenum>2 && %hscene3=0 lsp 215,":s/20,20,0;#bbbbbbRape Scene 3",420,250
if %zukan_hscenenum>3 && %hscene4=1 lsp 216,":s/20,20,0;#000000#FF4444Rape Scene 4",420,280:spbtn 216,216
if %zukan_hscenenum>3 && %hscene4=0 lsp 216,":s/20,20,0;#bbbbbbRape Scene 4",420,280
if %zukan_hscenenum>4 && %hscene5=1 lsp 217,":s/20,20,0;#000000#FF4444Rape Scene 5",420,310:spbtn 217,217
if %zukan_hscenenum>4 && %hscene5=0 lsp 217,":s/20,20,0;#bbbbbbRape Scene 5",420,310
if %zukan_hscenenum>5 && %hscene6=1 lsp 218,":s/20,20,0;#000000#FF4444Rape Scene 6",420,340:spbtn 218,218
if %zukan_hscenenum>5 && %hscene6=0 lsp 218,":s/20,20,0;#bbbbbbRape Scene 6",420,340
goto *zukan_kihonbtn

*zukan_commonkaisou_alice1

if %2550=0 lsp 210,":s/20,20,0;#bbbbbbCombat(Normal)",420,100
if %2550>0 lsp 210,":s/20,20,0;#000000#FF4444Combat(Normal)",420,100:spbtn 210,210
lsp 211,":s/20,20,0;#bbbbbbCombat(Hard)",420,130
lsp 212,":s/20,20,0;#bbbbbbCombat(Hell)",420,160
if %2550=0 lsp 213,":s/20,20,0;#bbbbbbRape Scene",420,190
if %2550>0 lsp 213,":s/20,20,0;#000000#FF4444Rape Scene",420,190:spbtn 213,213
if %hsean_alice2=1 lsp 214,":s/20,20,0;#000000#FF4444Rape Scene 1",420,220:spbtn 214,214
if %hsean_alice3=0 && %hsean_alice4=1 lsp 215,":s/20,20,0;#bbbbbb Rape Scene 2",420,250
if %hsean_alice3=1 lsp 215,":s/20,20,0;#000000#FF4444Rape Scene 2",420,250:spbtn 215,215
if %hsean_alice4=1 lsp 216,":s/20,20,0;#000000#FF4444Rape Scene 3",420,280:spbtn 216,216
if %hsean_alice5=1 lsp 217,":s/20,20,0;#000000#FF4444Rape Scene 4",420,310:spbtn 217,217
goto *zukan_kihonbtn




*zukan_commonkaisou2

lsp 210,":s/20,20,0;#FF4444 You cannot use the recollection",420,150
lsp 211,":s/20,20,0;#FF4444 while playing through the story.",420,180
goto *zukan_kihonbtn



*zukan_wazacount

lsp 50,":a;system\window7.bmp",260,245
itoa2 $menu_list1,%%skill_num
mov %hanyo1,%skill_num+2000
itoa2 $menu_list2,%%hanyo1
lsp 40,":s/20,20,0;#FFFFFFTaken: "+$menu_list1+"",280,275
lsp 41,":s/20,20,0;#FFFFFFOrgasms: "+$menu_list2+"",280,305
print 1
lrclick
cspl 40,50
print 1
goto *zukan_commondata




;-----?????-----



*zukan_slime

mov $zname,"Slime Girl"
mov $zlavel,"slime"
itoa2 $zukan_ko,%2501
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2501=0 mov %hscene1,0
if %2501>0 mov %hscene1,1
if %2501=0 mov %zukancg,0
if %2501>0 mov %zukancg,1
mov %zukan_x1,50
mov %zukan_x2,244
mov $zukan_lv,"1"
mov $zukan_hp,"20"
mov $zukan_skill1,"Slime Tentacle"
mov %zukan_skillc1,3001
mov $zukan_skill2,"Slime Handjob"
mov %zukan_skillc2,3002
mov $zukan_skill3,"Slime Heaven"
mov %zukan_skillc3,3003
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_slime_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\slime.jpg",400,100
goto *zukan_kihonbtn



*zukan_slime_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\slime_st01.bmp",%zukan_x0,80
if %zukan_face=2 lsp 450,":a;chara\slime_st02.bmp",%zukan_x0,80
if %zukan_face=3 lsp 450,":a;chara\slime_st03.bmp",%zukan_x0,80
if %zukan_cum1=1 lsp 441,":a;chara\slime_bk01.bmp",%zukan_x0,80
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\slime_bk02.bmp",%zukan_x0,80
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\slime_bk03.bmp",%zukan_x0,80
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\slime_bk04.bmp",%zukan_x0,80
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\slime_bk05.bmp",%zukan_x0,80
if %zukan_cum5=0 csp 445
return



*zukan_slime_cg

lsp 500,":c;bg\bg004.bmp",0,0
lsp 430,":a;chara\slime_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\slime_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\slime_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\slime_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_slime_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,1
mov %skill01,0
mov %item01,1
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *slime_start
if %bwait=211 mov %nanido,2:goto *slime_start
if %bwait=212 mov %nanido,3:goto *slime_start
lsp 700,":a;chara\slime_st02.bmp",244,80
bg "bg\bg004.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *slime_h



;-----???????-----



*zukan_alice1

mov $zname,"Alice"
mov $zlavel,"alice1"
itoa2 $zukan_ko,%2550
mov %zukan_facenum,9
mov %zukan_posenum,8
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,0
mov %zukancg,1
mov %zukan_x1,-20
mov %zukan_x2,150
mov $zukan_lv,"145"
mov $zukan_hp,"32000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_alice1_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\alice.jpg",400,100
goto *zukan_kihonbtn



*zukan_alice1_p

if %game_clear=0 && %zukan_pose=3 mov %zukan_pose,1
if %game_clear=0 && %zukan_pose=0 mov %zukan_pose,2
if %game_clear>0 && %zukan_pose=9 mov %zukan_pose,1
if %game_clear>0 && %zukan_pose=0 mov %zukan_pose,8

if %game_clear=0 && %zukan_pose<3 && %zukan_face=5 mov %zukan_face,1
if %game_clear=0 && %zukan_pose<3 && %zukan_face=0 mov %zukan_face,4
if %game_clear>1 && %zukan_pose<3 && %zukan_face=10 mov %zukan_face,1
if %game_clear>1 && %zukan_pose<3 && %zukan_face=0 mov %zukan_face,9

if %zukan_pose=3 && %zukan_face=6 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,5
if %zukan_pose=4 && %zukan_face=6 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=0 mov %zukan_face,5
if %zukan_pose=5 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=5 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=6 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=6 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=7 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=7 && %zukan_face=0 mov %zukan_face,2

if %zukan_pose=8 mov %zukan_face,1

if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\alice_st01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\alice_st01b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\alice_st02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\alice_st02b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\alice_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\alice_st03b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\alice_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\alice_st04b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\alice_st05.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=5 lsp 450,":a;chara\alice_st05b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\alice_st06.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=6 lsp 450,":a;chara\alice_st06b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=7 lsp 450,":a;chara\alice_st07.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=7 lsp 450,":a;chara\alice_st07b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=8 lsp 450,":a;chara\alice_st08.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=8 lsp 450,":a;chara\alice_st08b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=9 lsp 450,":a;chara\alice_st09.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=9 lsp 450,":a;chara\alice_st09b.bmp",%zukan_x0-80,0

if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\alice_st11.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\alice_st11b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\alice_st12.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\alice_st12b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\alice_st13.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\alice_st13b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;chara\alice_st14.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=4 lsp 450,":a;chara\alice_st14b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=5 lsp 450,":a;chara\alice_st15.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=5 lsp 450,":a;chara\alice_st15b.png",%zukan_x0-80,0

if %zukan_pose=5 && %zukan_face=1 lsp 450,":a;chara\alice_st21.bmp",%zukan_x0,0
if %zukan_pose=6 && %zukan_face=1 lsp 450,":a;chara\alice_st21b.bmp",%zukan_x0-80,0
if %zukan_pose=5 && %zukan_face=2 lsp 450,":a;chara\alice_st22.bmp",%zukan_x0,0
if %zukan_pose=6 && %zukan_face=2 lsp 450,":a;chara\alice_st22b.bmp",%zukan_x0-80,0

if %zukan_pose=7 && %zukan_face=1 lsp 450,":a;chara\alice_st23.bmp",%zukan_x0,0
if %zukan_pose=7 && %zukan_face=2 lsp 450,":a;chara\alice_st24.bmp",%zukan_x0,0

if %zukan_pose=8 && %zukan_face=1 lsp 450,":a;chara\alice_st31.bmp",%zukan_x0+80,125

return



*zukan_alice1_cg

if %2550=0 skip 10
lsp 500,":c;bg\bg006.bmp",0,0
lsp 430,":a;chara\alice_h01_1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h01_2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h01_3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h01_4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel

if %hsean_alice2=0 skip 12
lsp 500,":c;bg\bg015.bmp",0,0
lsp 430,":a;chara\alice_h02_1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h02_2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h02_3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h02_4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h02_5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel

if %hsean_alice3=0 skip 4
lsp 500,":c;bg\bg035.bmp",0,0
lsp 430,":a;chara\alice_h03_1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel

if %hsean_alice4=0 skip 10
lsp 500,":c;bg\bg038.bmp",0,0
lsp 430,":a;chara\alice_h04_1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h04_2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h04_3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h04_4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel

if %hsean_alice5=0 skip 10
lsp 500,":c;bg\bg067.bmp",0,0
lsp 430,":a;chara\alice_h05_1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h05_2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h05_3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h05_4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel

lsp 430,":c;chara\alice_iv01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\alice_iv02.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_alice1_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,2
mov %skill01,0
mov %item01,1
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *alice1_start
if %bwait=213 && %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg":mov $name,"Monster Girl":mov %mylv,2:lsp 700,":a;chara\alice_st02b.bmp",67,0:bg "bg\bg006.bmp",10,1500:goto *alice1_h
if %bwait=213 && %con_hbgm=1 bgmstop:mov $name,"Monster Girl":mov %mylv,2:lsp 700,":a;chara\alice_st02b.bmp",67,0:bg "bg\bg006.bmp",10,1500:goto *alice1_h
if %bwait=214 bgm"bgm\city1.ogg":mov $name,"???":mov %mylv,3:lsp 700,":a;chara\alice_st02b.bmp",67,0:bg "bg\bg015.bmp",10,1500:goto *sean0050
if %bwait=215 bgm"2Q\bgmfix\sinpi1.ogg":mov $name,"???":mov %mylv,13:lsp 700,":a;chara\alice_st02.bmp",172,0:bg "bg\bg035.bmp",10,1500:goto *sean0088x
if %bwait=216 bgm"2Q\bgmfix\hutuu1.ogg":mov $name,"???":mov %mylv,14:lsp 700,":a;chara\alice_st01b.bmp",67,0:bg "bg\bg038.bmp",10,1500:goto *sean0091
if %bwait=217 bgm"2Q\bgmfix\hutuu1.ogg":mov $name,"???":mov %mylv,21:lsp 700,":a;chara\alice_st04b.bmp",67,0:bg "bg\bg067.bmp",10,1500:goto *sean0135



;-----?????-----



*zukan_name

mov $zname,"Slug Girl"
mov $zlavel,"name"
itoa2 $zukan_ko,%2502
mov %zukan_facenum,2
mov %zukan_posenum,2
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2502=0 mov %hscene1,0
if %2502>0 mov %hscene1,1
if %2502=0 mov %zukancg,0
if %2502>0 mov %zukancg,1
mov %zukan_x1,0
mov %zukan_x2,170
mov $zukan_lv,"2"
mov $zukan_hp,"30"
mov $zukan_skill1,"Sticky Mucus"
mov %zukan_skillc1,3004
mov $zukan_skill2,"Sticky Caress"
mov %zukan_skillc2,3005
mov $zukan_skill3,"Slug Rape"
mov %zukan_skillc3,3006
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_name_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\slug.jpg",400,100
goto *zukan_kihonbtn



*zukan_name_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=1 && %zukan_pose=1 lsp 450,":a;chara\name_st01.bmp",%zukan_x0,0
if %zukan_face=2 && %zukan_pose=1 lsp 450,":a;chara\name_st02.bmp",%zukan_x0,0
if %zukan_face=1 && %zukan_pose=2 lsp 450,":a;chara\name_st11.bmp",%zukan_x0,0
if %zukan_face=2 && %zukan_pose=2 lsp 450,":a;chara\name_st12.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\name_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\name_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\name_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose=2 cspl 441,443
return



*zukan_name_cg

lsp 430,":c;chara\name_h01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\name_h02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\name_h03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\name_h04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_name_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,2
mov %skill01,0
mov %item01,1
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *name_start
if %bwait=211 mov %nanido,2:goto *name_start
if %bwait=212 mov %nanido,3:goto *name_start
lsp 700,":a;chara\name_st02.bmp",183,0
bg "bg\bg008.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *name_h



;-----???????-----



*zukan_mdg

mov $zname,"Mandragora"
mov $zlavel,"mdg"
itoa2 $zukan_ko,%2503
mov %zukan_facenum,4
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2801=0 mov %hscene1,0
if %2801>0 mov %hscene1,1
if %2802=0 mov %hscene2,0
if %2802>0 mov %hscene2,1
if %2503=0 mov %zukancg,0
if %2503>0 mov %zukancg,1
mov %zukan_x1,-230
mov %zukan_x2,0
mov $zukan_lv,"3"
mov $zukan_hp,"40"
mov $zukan_skill1,"Fellatio"
mov %zukan_skillc1,3181
mov $zukan_skill2,"Tit Fuck"
mov %zukan_skillc2,3182
mov $zukan_skill3,"Monster Hair"
mov %zukan_skillc3,3195
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_mdg_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\mandra.jpg",400,100 goto *zukan_kihonbtn



*zukan_mdg_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\mdg_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\mdg_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\mdg_st03.bmp",%zukan_x0,0
if %zukan_face=4 lsp 450,":a;chara\mdg_st04.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\mdg_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\mdg_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\mdg_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\mdg_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\mdg_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_mdg_cg

lsp 500,":c;bg\bg011.bmp",0,0
if %2801=0 skip 16
lsp 420,":a;chara\mdg_ct11.bmp",0,0
lsp 430,":a;chara\mdg_st01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 422,":a;chara\mdg_bk02.bmp",0,0
lsp 420,":a;chara\mdg_ct12.bmp",0,0
lsp 430,":a;chara\mdg_st01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 422,":a;chara\mdg_bk02.bmp",0,0
lsp 420,":a;chara\mdg_ct13.bmp",0,0
lsp 430,":a;chara\mdg_st02.bmp",0,0
print 10,500:lrclick
if %2802=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 422
lsp 420,":a;chara\mdg_ct21.bmp",0,0
lsp 430,":a;chara\mdg_st01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 423,":a;chara\mdg_bk03.bmp",0,0
lsp 420,":a;chara\mdg_ct22.bmp",0,0
lsp 430,":a;chara\mdg_st01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 423,":a;chara\mdg_bk03.bmp",0,0
lsp 420,":a;chara\mdg_ct23.bmp",0,0
lsp 430,":a;chara\mdg_st02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 423
lsp 420,":a;chara\mdg_ct31.bmp",0,0
lsp 430,":a;chara\mdg_st02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mdg_ct32.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mdg_ct33.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mdg_ct34.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_mdg_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,3
mov %skill01,1
mov %item01,1
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *mdg_start
if %bwait=211 mov %nanido,2:goto *mdg_start
if %bwait=212 mov %nanido,3:goto *mdg_start
lsp 700,":a;chara\mdg_st01.bmp",0,0
if %bwait=213 lsp 690,":a;chara\mdg_ct12.bmp",0,0
if %bwait=213 lsp 692,":a;chara\mdg_bk02.bmp",0,0
if %bwait=214 lsp 693,":a;chara\mdg_bk03.bmp",0,0
bg "bg\bg011.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *mdg_ha
if %bwait=214 goto *mdg_hb



;-----??????(1)-----



*zukan_granberia1

mov $zname,"Granberia"
mov $zlavel,"granberia1"
itoa2 $zukan_ko,%2504
mov %zukan_facenum,5
mov %zukan_posenum,3
mov %zukan_cumnum,3
mov %zukan_battlenum,2
mov %zukan_hscenenum,1
if %2504=0 mov %hscene1,0
if %2504>0 mov %hscene1,1
if %2504=0 mov %zukancg,0
if %2504>0 mov %zukancg,1
mov %zukan_x1,-185
mov %zukan_x2,0
mov $zukan_lv,"126"
mov $zukan_hp,"24000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_granberia1_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\grand1.jpg",400,100
goto *zukan_kihonbtn



*zukan_granberia1_p

if %zukan_pose=1 && %zukan_face=7 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,6
if %zukan_pose=2 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=3 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=4 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,3
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\granberia_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\granberia_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\granberia_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\granberia_st04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\granberia_st05.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\granberia_st06.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\granberia_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\granberia_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\granberia_st13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\granberia_st41.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\granberia_st42.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\granberia_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\granberia_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\granberia_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose>1 cspl 441,443
return



*zukan_granberia1_cg

lsp 500,":c;bg\bg013.bmp",0,0
lsp 430,":a;chara\granberia_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\granberia_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\granberia_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\granberia_ha4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_granberia1_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,3
mov %skill01,2
mov %item01,1
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *granberia1_start
lsp 700,":a;chara\granberia_ha2.bmp",0,0
bg "bg\bg013.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov $name,"Granberia"
if %bwait=213 goto *granberia1_h



;-----????-----



*zukan_mimizu

mov $zname,"Earthworm Girl"
mov $zlavel,"mimizu"
itoa2 $zukan_ko,%2505
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2505=0 mov %hscene1,0
if %2505>0 mov %hscene1,1
if %2505=0 mov %zukancg,0
if %2505>0 mov %zukancg,1
mov %zukan_x1,-185
mov %zukan_x2,0
mov $zukan_lv,"3"
mov $zukan_hp,"50"
mov $zukan_skill1,"Sticky Mucus"
mov %zukan_skillc1,3007
mov $zukan_skill2,"Tighten"
mov %zukan_skillc2,3008
mov $zukan_skill3,"Sweet Worm"
mov %zukan_skillc3,3009
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_mimizu_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\earth.jpg",400,100
goto *zukan_kihonbtn



*zukan_mimizu_cg

lsp 500,":c;bg\bg019.bmp",0,0
lsp 430,":a;chara\mimizu_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mimizu_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mimizu_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mimizu_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mimizu_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mimizu_h6.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_mimizu_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\mimizu_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\mimizu_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\mimizu_st03.bmp",%zukan_x0,0
if %zukan_pose=2 lsp 450,":a;chara\mimizu_st11.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\mimizu_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\mimizu_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\mimizu_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\mimizu_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\mimizu_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\mimizu_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
return



*zukan_mimizu_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,3
mov %skill01,2
mov %item01,5
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *mimizu_start
if %bwait=211 mov %nanido,2:goto *mimizu_start
if %bwait=212 mov %nanido,3:goto *mimizu_start
lsp 700,":a;chara\mimizu_st02.bmp",0,0
bg "bg\bg019.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *mimizu_h



;-----?????-----



*zukan_gob

mov $zname,"Goblin Girl"
mov $zlavel,"gob"
itoa2 $zukan_ko,%2506
mov %zukan_facenum,5
mov %zukan_posenum,2
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2506=0 mov %hscene1,0
if %2506>0 mov %hscene1,1
if %2506=0 mov %zukancg,0
if %2506>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"4"
mov $zukan_hp,"75"
mov $zukan_skill1,"Forceful Handjob"
mov %zukan_skillc1,3185
mov $zukan_skill2,"Forceful Fellatio"
mov %zukan_skillc2,3186
mov $zukan_skill3,"Forceful Intercrural"
mov %zukan_skillc3,3187
mov $zukan_skill4,"Goblin Insertion"
mov %zukan_skillc4,3183
mov $zukan_skill5,"Super  Tightening"
mov %zukan_skillc5,3184
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_gob_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\goblin.jpg",400,100
goto *zukan_kihonbtn



*zukan_gob_p

if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\gob_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\gob_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\gob_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\gob_st04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\gob_st05.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\gob_st21.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\gob_st22.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\gob_st23.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\gob_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\gob_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\gob_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\gob_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=2 cspl 441,444
return



*zukan_gob_cg

lsp 500,":c;bg\bg020.bmp",0,0
lsp 430,":a;chara\gob_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gob_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gob_h3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel




*zukan_gob_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,4
mov %skill01,2
mov %item01,5
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *gob_start
if %bwait=211 mov %nanido,2:goto *gob_start
if %bwait=212 mov %nanido,3:goto *gob_start
lsp 700,":a;chara\gob_st03.bmp",0,0
bg "bg\bg020.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *gob_h



;-----?????-----



*zukan_pramia

mov $zname,"Tiny Lamia"
mov $zlavel,"pramia"
itoa2 $zukan_ko,%2507
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2507=0 mov %hscene1,0
if %2507>0 mov %hscene1,1
if %2507=0 mov %zukancg,0
if %2507>0 mov %zukancg,1
mov %zukan_x1,-190
mov %zukan_x2,0
mov $zukan_lv,"4"
mov $zukan_hp,"80"
mov $zukan_skill1,"Tiny Lick"
mov %zukan_skillc1,3188
mov $zukan_skill2,"Tiny Tit Fuck"
mov %zukan_skillc2,3189
mov $zukan_skill3,"Tiny Tightening"
mov %zukan_skillc3,3190
mov $zukan_skill4,"Tiny Tailjob"
mov %zukan_skillc4,3191
mov $zukan_skill5,"Death by Tightening"
mov %zukan_skillc5,3010
mov $zukan_skill6,"Death by Pumping"
mov %zukan_skillc6,3011
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_pramia_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\tlamia.jpg",400,100
goto *zukan_kihonbtn



*zukan_pramia_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\pramia_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\pramia_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\pramia_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\pramia_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\pramia_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\pramia_st13.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\pramia_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\pramia_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\pramia_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\pramia_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\pramia_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_pose=2 cspl 441,445
return



*zukan_pramia_cg

lsp 500,":c;bg\bg022.bmp",0,0
lsp 420,":a;chara\pramia_ct01.bmp",0,0
lsp 430,":a;chara\pramia_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\pramia_ct02.bmp",0,0
lsp 430,":a;chara\pramia_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\pramia_ct03.bmp",0,0
lsp 430,":a;chara\pramia_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\pramia_ct04.bmp",0,0
lsp 430,":a;chara\pramia_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\pramia_ct05.bmp",0,0
lsp 430,":a;chara\pramia_h5.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_pramia_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,4
mov %skill01,2
mov %item01,5
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *pramia_start
if %bwait=211 mov %nanido,2:goto *pramia_start
if %bwait=212 mov %nanido,3:goto *pramia_start
lsp 700,":a;chara\pramia_st02.bmp",0,0
bg "bg\bg022.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *pramia_h



;-----?????????-----



*zukan_vgirl

mov $zname,"Vampire Girl"
mov $zlavel,"vgirl"
itoa2 $zukan_ko,%2508
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2803=0 mov %hscene1,0
if %2803>0 mov %hscene1,1
if %2804=0 mov %hscene2,0
if %2804>0 mov %hscene2,1
if %2508=0 mov %zukancg,0
if %2508>0 mov %zukancg,1
mov %zukan_x1,-180
mov %zukan_x2,0
mov $zukan_lv,"5"
mov $zukan_hp,"85"
mov $zukan_skill1,"Mantle Rub"
mov %zukan_skillc1,3192
mov $zukan_skill2,"Panty Rub"
mov %zukan_skillc2,3193
mov $zukan_skill3,"Energy Steal"
mov %zukan_skillc3,3012
mov $zukan_skill4,"Eyes of Obedience"
mov %zukan_skillc4,3013
mov $zukan_skill5,"Face Ride"
mov %zukan_skillc5,3014
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_vgirl_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\vamp.jpg",400,100
goto *zukan_kihonbtn



*zukan_vgirl_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\vgirl_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\vgirl_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\vgirl_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\vgirl_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\vgirl_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\vgirl_st13.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\vgirl_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\vgirl_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\vgirl_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\vgirl_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=2 cspl 441,444
return



*zukan_vgirl_cg

lsp 500,":c;bg\bg022.bmp",0,0
if %2803=0 skip 21
lsp 430,":a;chara\vgirl_st02.bmp",0,0
lsp 420,":a;chara\vgirl_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\vgirl_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\vgirl_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\vgirl_ct04.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\vgirl_ct05.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\vgirl_ct06.bmp",0,0
print 10,500:lrclick
if %2804=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\vgirl_h1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\vgirl_h2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\vgirl_h3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\vgirl_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_vgirl_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,5
mov %skill01,2
mov %item01,5
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *vgirl_start
if %bwait=211 mov %nanido,2:goto *vgirl_start
if %bwait=212 mov %nanido,3:goto *vgirl_start
lsp 700,":a;chara\vgirl_st02.bmp",0,0
if %bwait=213 lsp 690,":a;chara\vgirl_ct03.bmp",0,0
bg "bg\bg022.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *vgirl_ha
if %bwait=214 goto *vgirl_hb



;-----???????-----



*zukan_dragonp

mov $zname,"Dragon Pup"
mov $zlavel,"dragonp"
itoa2 $zukan_ko,%2509
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,4
mov %zukan_battlenum,2
mov %zukan_hscenenum,1
if %2509=0 mov %hscene1,0
if %2509>0 mov %hscene1,1
if %2509=0 mov %zukancg,0
if %2509>0 mov %zukancg,1
mov %zukan_x1,-180
mov %zukan_x2,0
mov $zukan_lv,"5"
mov $zukan_hp,"90"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_dragonp_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\dragon.jpg",400,100
goto *zukan_kihonbtn



*zukan_dragonp_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\dragonp_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\dragonp_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\dragonp_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\dragonp_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\dragonp_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\dragonp_st13.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\dragonp_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\dragonp_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\dragonp_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\dragonp_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=2 cspl 441,444
return



*zukan_dragonp_cg

lsp 500,":c;bg\bg022.bmp",0,0
lsp 430,":a;chara\dragonp_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dragonp_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dragonp_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dragonp_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_dragonp_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,5
mov %skill01,2
mov %item01,5
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *dragonp_start
lsp 700,":a;chara\dragonp_st01.bmp",0,0
bg "bg\bg022.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *dragonp_h



;-----?????-----



*zukan_mitubati

mov $zname,"Bee Girl"
mov $zlavel,"mitubati"
itoa2 $zukan_ko,%2510
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2805=0 mov %hscene1,0
if %2805>0 mov %hscene1,1
if %2806=0 mov %hscene2,0
if %2806>0 mov %hscene2,1
if %2510=0 mov %zukancg,0
if %2510>0 mov %zukancg,1
mov %zukan_x1,-150
mov %zukan_x2,0
mov $zukan_lv,"6"
mov $zukan_hp,"150"
mov $zukan_skill1,"Lick"
mov %zukan_skillc1,3015
mov $zukan_skill2,"Binding Lick"
mov %zukan_skillc2,3016
mov $zukan_skill3,"Nipple Lick"
mov %zukan_skillc3,3221
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_mitubati_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\bee.jpg",400,100
goto *zukan_kihonbtn



*zukan_mitubati_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\mitubati_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\mitubati_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\mitubati_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\mitubati_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\mitubati_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\mitubati_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\mitubati_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\mitubati_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_mitubati_cg

lsp 500,":c;bg\bg011.bmp",0,0
if %2805=0 skip 20
lsp 430,":a;chara\mitubati_h1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mitubati_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mitubati_ct02.bmp",0,0
lsp 430,":a;chara\mitubati_h2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mitubati_ct03.bmp",0,0
lsp 430,":a;chara\mitubati_h3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mitubati_ct04.bmp",0,0
lsp 430,":a;chara\mitubati_h4.bmp",0,0
print 10,500:lrclick
if %2806=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mitubati_h1.bmp",0,0
lsp 420,":a;chara\mitubati_ctb01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mitubati_h2.bmp",0,0
lsp 420,":a;chara\mitubati_ctb02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mitubati_h3.bmp",0,0
lsp 420,":a;chara\mitubati_ctb03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mitubati_h4.bmp",0,0
lsp 420,":a;chara\mitubati_ctb04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_mitubati_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,6
mov %skill01,2
mov %item01,5
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *mitubati_start
if %bwait=211 mov %nanido,2:goto *mitubati_start
if %bwait=212 mov %nanido,3:goto *mitubati_start
if %bwait=213 lsp 700,":a;chara\mitubati_st02.bmp",0,0
if %bwait=214 lsp 700,":a;chara\mitubati_h2.bmp",0,0
bg "bg\bg011.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *mitubati_ha
if %bwait=214 goto *mitubati_hb



;-----????-----



*zukan_hapy_a

mov $zname,"Harpy"
mov $zlavel,"hapy_a"
itoa2 $zukan_ko,%2511
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2511=0 mov %hscene1,0
if %2511>0 mov %hscene1,1
if %2511=0 mov %zukancg,0
if %2511>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"6"
mov $zukan_hp,"150"
mov $zukan_skill1,"Harpy Footjob"
mov %zukan_skillc1,3017
mov $zukan_skill2,"Wing Massage"
mov %zukan_skillc2,3018
mov $zukan_skill3,"Harpy Rape"
mov %zukan_skillc3,3019
mov $zukan_skill4,"Harpy Waist Shake"
mov %zukan_skillc4,3020
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_hapy_a_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\harpy.jpg",400,100
goto *zukan_kihonbtn



*zukan_hapy_a_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\hapy_a_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\hapy_a_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\hapy_a_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\hapy_a_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\hapy_a_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\hapy_a_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_hapy_a_cg

lsp 500,":c;bg\bg024.bmp",0,0
lsp 430,":a;chara\hapy_a_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hapy_a_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hapy_a_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hapy_a_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hapy_a_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hapy_a_h6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hapy_a_h7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hapy_a_h8.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_hapy_a_kaisou

bgmstop

csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,6
mov %skill01,2
mov %item01,5
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *hapy_a_start
if %bwait=211 mov %nanido,2:goto *hapy_a_start
if %bwait=212 mov %nanido,3:goto *hapy_a_start
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *hapy_a_h



;-----????????-----



*zukan_hapy_bc

mov $zname,"Harpy Twins"
mov $zlavel,"hapy_bc"
itoa2 $zukan_ko,%2512
mov %zukan_facenum,4
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2512=0 mov %hscene1,0
if %2512>0 mov %hscene1,1
if %2512=0 mov %zukancg,0
if %2512>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"6"
mov $zukan_hp,"120"
mov $zukan_skill1,"Harpy Footjob"
mov %zukan_skillc1,3021
mov $zukan_skill2,"Feather Massage"
mov %zukan_skillc2,3022
mov $zukan_skill3,"Wing Wrap Caress"
mov %zukan_skillc3,3023
mov $zukan_skill4,"Harpy Blowjob"
mov %zukan_skillc4,3024
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_hapy_bc_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\htwins.jpg",400,100
goto *zukan_kihonbtn



*zukan_hapy_bc_p

if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=3 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=1 && %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\hapy_bc_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\hapy_bc_st01a.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\hapy_bc_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\hapy_bc_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\hapy_bc_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\hapy_bc_st12.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\hapy_bc_st21.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\hapy_bc_st31.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\hapy_bc_st32.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\hapy_bc_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\hapy_bc_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\hapy_bc_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose>1 cspl 441,443
return



*zukan_hapy_bc_cg

lsp 500,":c;bg\bg027.bmp",0,0
lsp 430,":a;chara\hapy_bc_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hapy_bc_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hapy_bc_ha3.bmp",0,0
print 10,500:lrclick: etret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hapy_bc_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hapy_bc_hc1.bmp",0,0
lsp 420,":a;chara\hapy_bc_ct01.bmp",503,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hapy_bc_hc2.bmp",0,0
lsp 420,":a;chara\hapy_bc_ct02.bmp",503,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\hapy_bc_ct03.bmp",503,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\hapy_bc_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hapy_bc_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hapy_bc_hb3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_hapy_bc_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,6
mov %skill01,2
mov %item01,5
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *hapy_bc_start
if %bwait=211 mov %nanido,2:goto *hapy_bc_start
if %bwait=212 mov %nanido,3:goto *hapy_bc_start
lsp 700,":a;chara\hapy_bc_st02.bmp",0,0
bg "bg\bg027.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *hapy_bc_h



;-----????????-----



*zukan_queenhapy

mov $zname,"Queen Harpy"
mov $zlavel,"queenhapy"
itoa2 $zukan_ko,%2513
mov %zukan_facenum,4
mov %zukan_posenum,2
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2513=0 mov %hscene1,0
if %2513>0 mov %hscene1,1
if %2513=0 mov %zukancg,0
if %2513>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"50"
mov $zukan_hp,"300"
mov $zukan_skill1,"Harpy Footjob"
mov %zukan_skillc1,3025
mov $zukan_skill2,"Harpy Blowjob"
mov %zukan_skillc2,3026
mov $zukan_skill3,"Feather Massage"
mov %zukan_skillc3,3027
mov $zukan_skill4,"Royal Tit Fuck"
mov %zukan_skillc4,3028
mov $zukan_skill5,"Royal Pussy"
mov %zukan_skillc5,3029
mov $zukan_skill6,"Royal Pumping"
mov %zukan_skillc6,3030
mov $zukan_skill7,"Happiness Rondo"
mov %zukan_skillc7,3031
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_queenhapy_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\hqueen.jpg",400,100
goto *zukan_kihonbtn



*zukan_queenhapy_p

if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=1 && %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\queenhapy_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\queenhapy_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\queenhapy_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\queenhapy_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\queenhapy_st01_2.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\queenhapy_st02_2.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\queenhapy_st03_2.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\queenhapy_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\queenhapy_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\queenhapy_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\queenhapy_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\queenhapy_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_queenhapy_cg

lsp 500,":c;bg\bg027.bmp",0,0
lsp 430,":a;chara\queenhapy_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenhapy_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenhapy_h2.bmp",0,0
lsp 420,":a;chara\queenhapy_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenhapy_h3.bmp",0,0
lsp 420,":a;chara\queenhapy_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenhapy_h4.bmp",0,0
lsp 420,":a;chara\queenhapy_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_queenhapy_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,7
mov %skill01,2
mov %item01,5
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *queenhapy_start
if %bwait=211 mov %nanido,2:goto *queenhapy_start
if %bwait=212 mov %nanido,3:goto *queenhapy_start
lsp 700,":a;chara\queenhapy_st02.bmp",0,0
bg "bg\bg027.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *queenhapy_h



;-----??????(??)-----



*zukan_delh_a

mov $zname,"Dark Elf Fencer"
mov $zlavel,"delh_a"
itoa2 $zukan_ko,%2514
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2514=0 mov %hscene1,0
if %2514>0 mov %hscene1,1
if %2514=0 mov %zukancg,0
if %2514>0 mov %zukancg,1
mov %zukan_x1,-100
mov %zukan_x2,100
mov $zukan_lv,"8"
mov $zukan_hp,"180"
mov $zukan_skill1,"Elf Blowjob"
mov %zukan_skillc1,3032
mov $zukan_skill2,"Elf Handjob"
mov %zukan_skillc2,3033
mov $zukan_skill3,"Elf Tit Fuck"
mov %zukan_skillc3,3034
mov $zukan_skill4,"Kiss of Ecstasy"
mov %zukan_skillc4,3035
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_delh_a_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\fencer.jpg",400,100
goto *zukan_kihonbtn



*zukan_delh_a_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\delh_a_st01.bmp",%zukan_x0,-100
if %zukan_face=2 lsp 450,":a;chara\delh_a_st02.bmp",%zukan_x0,-100
if %zukan_face=3 lsp 450,":a;chara\delh_a_st03.bmp",%zukan_x0,-100
if %zukan_cum1=1 lsp 441,":a;chara\elf_bk01.bmp",%zukan_x0,-100
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\elf_bk02.bmp",%zukan_x0,-100
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\elf_bk03.bmp",%zukan_x0,-100
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\delh_a_bk01.bmp",%zukan_x0,-100
if %zukan_cum4=0 csp 444
return



*zukan_delh_a_cg

lsp 500,":c;bg\bg004.bmp",0,0
lsp 430,":a;chara\delh_a_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\delh_a_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\delh_a_h3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_delh_a_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,8
mov %skill01,2
mov %item01,5
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *delh_a_start
if %bwait=211 mov %nanido,2:goto *delh_a_start
if %bwait=212 mov %nanido,3:goto *delh_a_start
lsp 700,":a;chara\delh_a_st02.bmp",100,-100
bg "bg\bg004.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov $name,"??????"
if %bwait=213 goto *delh_a_h



;-----??????(??)-----



*zukan_delh_b

mov $zname,"Dark Elf(M)"
mov $zlavel,"delh_b"
itoa2 $zukan_ko,%2515
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2515=0 mov %hscene1,0
if %2515>0 mov %hscene1,1
if %2515=0 mov %zukancg,0
if %2515>0 mov %zukancg,1
mov %zukan_x1,-90
mov %zukan_x2,150
mov $zukan_lv,"8"
mov $zukan_hp,"185"
mov $zukan_skill1,"Tentacle Caress"
mov %zukan_skillc1,3036
mov $zukan_skill2,"Bound Tentacle Caress"
mov %zukan_skillc2,3037
mov $zukan_skill3,"Tentacle Drain"
mov %zukan_skillc3,3038
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_delh_b_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\mage.jpg",400,100
goto *zukan_kihonbtn



*zukan_delh_b_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\delh_b_st01.bmp",%zukan_x0,30
if %zukan_face=2 lsp 450,":a;chara\delh_b_st02.bmp",%zukan_x0,30
if %zukan_face=3 lsp 450,":a;chara\delh_b_st03.bmp",%zukan_x0,30
if %zukan_cum1=1 lsp 441,":a;chara\delh_b_bk01.bmp",%zukan_x0,30
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\delh_b_bk02.bmp",%zukan_x0,30
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\delh_b_bk03.bmp",%zukan_x0,30
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\delh_b_bk04.bmp",%zukan_x0,30
if %zukan_cum4=0 csp 444
return



*zukan_delh_b_cg

lsp 500,":c;bg\bg004.bmp",0,0
lsp 430,":a;chara\delh_b_h1a.bmp",150,30
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\delh_b_h2a.bmp",150,30
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\delh_b_h3a.bmp",150,30
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\delh_b_h4a.bmp",150,30
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\delh_b_h1.bmp",150,30
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\delh_b_h2.bmp",150,30
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\delh_b_h3.bmp",150,30
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\delh_b_h4.bmp",150,30
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\delh_b_h5.bmp",150,30
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_delh_b_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,8
mov %skill01,2
mov %item01,5
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *delh_b_start
if %bwait=211 mov %nanido,2:goto *delh_b_start
if %bwait=212 mov %nanido,3:goto *delh_b_start
lsp 700,":a;chara\delh_b_st02.bmp",150,30
bg "bg\bg004.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov $name,"??????"
if %bwait=213 goto *delh_b_h



;-----???-----



*zukan_hiru

mov $zname,"Leech Girl"
mov $zlavel,"hiru"
itoa2 $zukan_ko,%2516
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2516=0 mov %hscene1,0
if %2516>0 mov %hscene1,1
if %2516=0 mov %zukancg,0
if %2516>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"9"
mov $zukan_hp,"210"
mov $zukan_skill1,"Leech Tail"
mov %zukan_skillc1,3039
mov $zukan_skill2,"Leech Fellatio"
mov %zukan_skillc2,3085
mov $zukan_skill3,"Tentacle Hell"
mov %zukan_skillc3,3040
mov $zukan_skill4,"Fluid Suck"
mov %zukan_skillc4,3041
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_hiru_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\leech.jpg",400,100
goto *zukan_kihonbtn



*zukan_hiru_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\hiru_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\hiru_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\hiru_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\hiru_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\hiru_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\hiru_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\hiru_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\hiru_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_hiru_cg

lsp 500,":c;bg\bg019.bmp",0,0
lsp 430,":a;chara\hiru_st11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\hiru_ct01.bmp",0,0
lsp 430,":a;chara\hiru_st11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\hiru_ct02.bmp",0,0
lsp 430,":a;chara\hiru_st12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\hiru_ct03.bmp",0,0
lsp 430,":a;chara\hiru_st13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\hiru_ct04.bmp",0,0
lsp 430,":a;chara\hiru_st14.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_hiru_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,9
mov %skill01,2
mov %item01,5
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *hiru_start
if %bwait=211 mov %nanido,2:goto *hiru_start
if %bwait=212 mov %nanido,3:goto *hiru_start
lsp 700,":a;chara\hiru_st02.bmp",0,0
bg "bg\bg019.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop

if %bwait=213 goto *hiru_h



;-----??????-----



*zukan_rahure

mov $zname,"Rafflesia Girl"
mov $zlavel,"rahure"
itoa2 $zukan_ko,%2517
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2517=0 mov %hscene1,0
if %2517>0 mov %hscene1,1
if %2517=0 mov %zukancg,0
if %2517>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"9"
mov $zukan_hp,"250"
mov $zukan_skill1,"Tentacle Caress"
mov %zukan_skillc1,3042
mov $zukan_skill2,"Petal Massage"
mov %zukan_skillc2,3043
mov $zukan_skill3,"Forced Pollination"
mov %zukan_skillc3,3044
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_rahure_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\raff.jpg",400,100
goto *zukan_kihonbtn



*zukan_rahure_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=1 lsp 450,":a;chara\rahure_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\rahure_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\rahure_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\rahure_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\rahure_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\rahure_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\rahure_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\rahure_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\rahure_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\rahure_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
return



*zukan_rahure_cg

lsp 500,":c;bg\bg030.bmp",0,0
lsp 420,":a;chara\rahure_ct01.bmp",0,0
lsp 430,":a;chara\rahure_st11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\rahure_ct02.bmp",0,0
lsp 430,":a;chara\rahure_st12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\rahure_ct03.bmp",0,0
lsp 430,":a;chara\rahure_st13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\rahure_ct04.bmp",0,0
lsp 430,":a;chara\rahure_st14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\rahure_ct11.bmp",0,0
lsp 430,":a;chara\rahure_st11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\rahure_ct12.bmp",0,0
lsp 430,":a;chara\rahure_st12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\rahure_ct13.bmp",0,0
lsp 430,":a;chara\rahure_st13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\rahure_ct14.bmp",0,0
lsp 430,":a;chara\rahure_st14.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_rahure_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,9
mov %skill01,3
mov %item01,5
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *rahure_start
if %bwait=211 mov %nanido,2:goto *rahure_start
if %bwait=212 mov %nanido,3:goto *rahure_start
lsp 700,":a;chara\rahure_st02.bmp",0,0
bg "bg\bg030.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop

if %bwait=213 goto *rahure_h



;-----?????-----



*zukan_ropa

mov $zname,"Roper Girl"
mov $zlavel,"ropa"
itoa2 $zukan_ko,%2518
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2518=0 mov %hscene1,0
if %2518>0 mov %hscene1,1
if %2518=0 mov %zukancg,0
if %2518>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"10"
mov $zukan_hp,"270"
mov $zukan_skill1,"Tentacle Caress"
mov %zukan_skillc1,3045
mov $zukan_skill2,"Bound Tentacle Caress"
mov %zukan_skillc2,3046
mov $zukan_skill3,"Bound Tentacle Tightening"
mov %zukan_skillc3,3047
mov $zukan_skill4,"Predation"
mov %zukan_skillc4,3048
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_ropa_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\roper.jpg",400,100
goto *zukan_kihonbtn



*zukan_ropa_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\ropa_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\ropa_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\ropa_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\ropa_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\ropa_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\ropa_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\ropa_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\ropa_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_ropa_cg

lsp 500,":c;bg\bg030.bmp",0,0
lsp 430,":a;chara\ropa_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\ropa_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ropa_h2.bmp",0,0
lsp 420,":a;chara\ropa_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ropa_h3.bmp",0,0
lsp 420,":a;chara\ropa_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ropa_h4.bmp",0,0
lsp 420,":a;chara\ropa_ct04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ropa_h5.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_ropa_kaisou

bgmstop

csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,10
mov %skill01,3
mov %item01,5
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *ropa_start
if %bwait=211 mov %nanido,2:goto *ropa_start
if %bwait=212 mov %nanido,3:goto *ropa_start
lsp 700,":a;chara\ropa_st02.bmp",0,0
bg "bg\bg030.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop

if %bwait=213 goto *ropa_h



;-----??-----



*zukan_youko

mov $zname,"Kitsune"
mov $zlavel,"youko"
itoa2 $zukan_ko,%2519
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2519=0 mov %hscene1,0
if %2519>0 mov %hscene1,1
if %2519=0 mov %zukancg,0
if %2519>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"12"
mov $zukan_hp,"350"
mov $zukan_skill1,"Fluffy Tail"
mov %zukan_skillc1,3049
mov $zukan_skill2,"Lick Lick"
mov %zukan_skillc2,3050
mov $zukan_skill3,"Rub Rub"
mov %zukan_skillc3,3051
mov $zukan_skill4,"Double Tail"
mov %zukan_skillc4,3052
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_youko_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\kit.jpg",400,100
goto *zukan_kihonbtn



*zukan_youko_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\youko_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\youko_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\youko_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\youko_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\youko_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\youko_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\youko_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\youko_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_youko_cg

lsp 500,":c;bg\bg032.bmp",0,0
lsp 430,":a;chara\youko_st01.bmp",0,0
lsp 420,":a;chara\youko_ct01.bmp",460,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\youko_ct02.bmp",460,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\youko_ct03.bmp",460,0
lsp 424,":a;chara\youko_bk04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\youko_ct04.bmp",460,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
cspl 420,429
lsp 430,":a;chara\youko_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\youko_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\youko_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\youko_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_youko_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,10
mov %skill01,4
mov %item01,5
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *youko_start
if %bwait=211 mov %nanido,2:goto *youko_start
if %bwait=212 mov %nanido,3:goto *youko_start
lsp 700,":a;chara\youko_st02.bmp",0,0
bg "bg\bg032.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *youko_h



;-----????-----



*zukan_meda

mov $zname,"Meda"
mov $zlavel,"meda"
itoa2 $zukan_ko,%2520
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2520=0 mov %hscene1,0
if %2520>0 mov %hscene1,1
if %2520=0 mov %zukancg,0
if %2520>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"10"
mov $zukan_hp,"280"
mov $zukan_skill1,"Tentacle"
mov %zukan_skillc1,3053
mov $zukan_skill2,"Bound Tentacle"
mov %zukan_skillc2,3054
mov $zukan_skill3,"Thousand Worms"
mov %zukan_skillc3,3055
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_meda_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\medusa.jpg",400,100
goto *zukan_kihonbtn



*zukan_meda_p

if %zukan_face=1 lsp 450,":a;chara\meda_st01.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\meda_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\meda_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\meda_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\meda_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_meda_cg

lsp 500,":c;bg\bg032.bmp",0,0
lsp 430,":a;chara\meda_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\meda_ct01.bmp",0,0
lsp 430,":a;chara\meda_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\meda_ct02.bmp",0,0
lsp 430,":a;chara\meda_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\meda_ct03.bmp",0,0
lsp 430,":a;chara\meda_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\meda_ct04.bmp",0,0
lsp 430,":a;chara\meda_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_meda_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,10
mov %skill01,4
mov %item01,5
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *meda_start
if %bwait=211 mov %nanido,2:goto *meda_start
if %bwait=212 mov %nanido,3:goto *meda_start
lsp 700,":a;chara\meda_st01.bmp",0,0
bg "bg\bg032.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *meda_h




;-----???-----



*zukan_kumo

mov $zname,"Spider Girl"
mov $zlavel,"kumo"
itoa2 $zukan_ko,%2521
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2807=0 mov %hscene1,0
if %2807>0 mov %hscene1,1
if %2808=0 mov %hscene2,0
if %2808>0 mov %hscene2,1
if %2521=0 mov %zukancg,0
if %2521>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"11"
mov $zukan_hp,"300"
mov $zukan_skill1,"Eight-Legged Massage"
mov %zukan_skillc1,3056
mov $zukan_skill2,"Penis Cocoon"
mov %zukan_skillc2,3057
mov $zukan_skill3,"Body Wrap"
mov %zukan_skillc3,3058
mov $zukan_skill4,"Forced Violation"
mov %zukan_skillc4,3059
mov $zukan_skill5,"Predation"
mov %zukan_skillc5,3060
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_kumo_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\spider.jpg",400,100
goto *zukan_kihonbtn



*zukan_kumo_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\kumo_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\kumo_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\kumo_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\kumo_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\kumo_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\kumo_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\kumo_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\kumo_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_kumo_cg

lsp 500,":c;bg\bg032.bmp",0,0
lsp 430,":a;chara\kumo_st02.bmp",0,0
lsp 420,":a;chara\kumo_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kumo_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kumo_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kumo_ct04.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
if %2807=0 skip 20
lsp 428,":c;chara\kumo_ha1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 428,":c;chara\kumo_ha2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 428,":c;chara\kumo_ha3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 428,":c;chara\kumo_ha4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 428,":c;chara\kumo_ha5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 428,":c;chara\kumo_ha6.bmp",0,0
print 10,500:lrclick
if %2808=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 428,":c;chara\kumo_hb1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 428,":c;chara\kumo_hb2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 428,":c;chara\kumo_hb3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 428,":c;chara\kumo_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_kumo_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,11
mov %skill01,4
mov %item01,5
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *kumo_start
if %bwait=211 mov %nanido,2:goto *kumo_start
if %bwait=212 mov %nanido,3:goto *kumo_start
lsp 700,":a;chara\kumo_st02.bmp",0,0
bg "bg\bg032.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov %kousoku,4
if %bwait=213 goto *kumo_ha
if %bwait=214 goto *kumo_hb



;-----?????-----



*zukan_mimic

mov $zname,"Mimic"
mov $zlavel,"mimic"
itoa2 $zukan_ko,%2522
mov %zukan_facenum,2
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2809=0 mov %hscene1,0
if %2809>0 mov %hscene1,1
if %2810=0 mov %hscene2,0
if %2810>0 mov %hscene2,1
if %2522=0 mov %zukancg,0
if %2522>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"15"
mov $zukan_hp,"500"
mov $zukan_skill1,"Slow Swallow"
mov %zukan_skillc1,3061
mov $zukan_skill2,"Swallow"
mov %zukan_skillc2,3062
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_mimic_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\mimic.jpg",400,100
goto *zukan_kihonbtn



*zukan_mimic_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\mimic_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\mimic_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\mimic_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\mimic_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\mimic_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\mimic_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_mimic_cg

lsp 500,":c;bg\bg033.bmp",0,0
lsp 430,":a;chara\mimic_st21.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
if %2809=0 skip 12
lsp 420,":a;chara\mimic_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mimic_ct02.bmp",0,0
lsp 430,":a;chara\mimic_st22.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mimic_ct03.bmp",0,0
print 10,500:lrclick
if %2810=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mimic_ct11.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mimic_ct12.bmp",0,0
lsp 430,":a;chara\mimic_st22.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mimic_ct13.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mimic_ct14.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_mimic_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,11
mov %skill01,4
mov %item01,5
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *mimic_start
if %bwait=211 mov %nanido,2:goto *mimic_start
if %bwait=212 mov %nanido,3:goto *mimic_start
lsp 700,":a;chara\mimic_st22.bmp",0,0
bg "bg\bg033.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *mimic_ha
if %bwait=214 goto *mimic_hb



;-----??-----



*zukan_nanabi

mov $zname,"Nanabi"
mov $zlavel,"nanabi"
itoa2 $zukan_ko,%2523
mov %zukan_facenum,4
mov %zukan_posenum,3
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2811=0 mov %hscene1,0
if %2811>0 mov %hscene1,1
if %2812=0 mov %hscene2,0
if %2812>0 mov %hscene2,1
if %2523=0 mov %zukancg,0
if %2523>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"45"
mov $zukan_hp,"2900"
mov $zukan_skill1,"Fox Blowjob"
mov %zukan_skillc1,3063
mov $zukan_skill2,"Fox Tit Fuck"
mov %zukan_skillc2,3064
mov $zukan_skill3,"Tail Massage"
mov %zukan_skillc3,3065
mov $zukan_skill4,"Bound Tail Massage"
mov %zukan_skillc4,3066
mov $zukan_skill5,"Two Moons"
mov %zukan_skillc5,3067
mov $zukan_skill6,"Seven Moons"
mov %zukan_skillc6,3068
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_nanabi_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\nanabi.jpg",400,100
goto *zukan_kihonbtn



*zukan_nanabi_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=1 && %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\nanabi_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\nanabi_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\nanabi_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\nanabi_st04.bmp",%zukan_x0,0
if %zukan_pose=2 lsp 450,":a;chara\nanabi_st11.bmp",%zukan_x0,0
if %zukan_pose=3 lsp 450,":a;chara\nanabi_st21.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\nanabi_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\nanabi_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\nanabi_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\nanabi_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\nanabi_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\nanabi_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\nanabi_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
if %zukan_pose=3 cspl 445,447
return



*zukan_nanabi_cg

lsp 500,":c;bg\bg034.bmp",0,0
lsp 430,":a;chara\nanabi_st01.bmp",0,0
lsp 420,":a;chara\nanabi_cta01.bmp",450,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\nanabi_cta02.bmp",450,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 425,":a;chara\nanabi_bk05.bmp",0,0
lsp 420,":a;chara\nanabi_cta03.bmp",450,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\nanabi_cta04.bmp",450,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 425
lsp 420,":a;chara\nanabi_ctb01.bmp",450,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\nanabi_ctb02.bmp",450,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 425,":a;chara\nanabi_bk05.bmp",0,0
lsp 426,":a;chara\nanabi_bk06.bmp",0,0
lsp 427,":a;chara\nanabi_bk07.bmp",0,0
lsp 420,":a;chara\nanabi_ctb03.bmp",450,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\nanabi_ctb04.bmp",450,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
cspl 420,429
if %2811=0 skip 14
lsp 430,":a;chara\nanabi_h1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\nanabi_h2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\nanabi_h3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\nanabi_h4.bmp",0,0
print 10,500:lrclick
if %2812=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\nanabi_h5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\nanabi_h6.bmp",0,0
lsp 420,":a;chara\nanabi_ctc01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\nanabi_h7.bmp",0,0
lsp 420,":a;chara\nanabi_ctc02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\nanabi_h8.bmp",0,0
lsp 420,":a;chara\nanabi_ctc03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\nanabi_h9.bmp",0,0
lsp 420,":a;chara\nanabi_ctc04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_nanabi_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,12
mov %skill01,4
mov %item01,5
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *nanabi_start
if %bwait=211 mov %nanido,2:goto *nanabi_start
if %bwait=212 mov %nanido,3:goto *nanabi_start
lsp 700,":a;chara\nanabi_st02.bmp",0,0
bg "bg\bg034.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *nanabi_ha
if %bwait=214 goto *nanabi_hb



;-----???(1)-----



*zukan_tamamo1

mov $zname,"Tamamo"
mov $zlavel,"tamamo1"
itoa2 $zukan_ko,%2524
mov %zukan_facenum,4
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,2
mov %zukan_hscenenum,1
if %2524=0 mov %hscene1,0
if %2524>0 mov %hscene1,1
if %2524=0 mov %zukancg,0
if %2524>0 mov %zukancg,1
mov %zukan_x1,-180
mov %zukan_x2,0
mov $zukan_lv,"128"
mov $zukan_hp,"22000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_tamamo1_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\tamamo.jpg",400,100
goto *zukan_kihonbtn



*zukan_tamamo1_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\tamamo_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\tamamo_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\tamamo_st03.bmp",%zukan_x0,0
if %zukan_face=4 lsp 450,":a;chara\tamamo_st04.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\tamamo_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\tamamo_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\tamamo_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\tamamo_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_tamamo1_cg

lsp 500,":c;bg\bg035.bmp",0,0
lsp 430,":a;chara\tamamo_st01.bmp",0,0
lsp 420,":a;chara\tamamo_cta01.bmp",490,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tamamo_cta02.bmp",490,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 424,":a;chara\tamamo_bk04.bmp",0,0
lsp 420,":a;chara\tamamo_cta03.bmp",490,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tamamo_cta04.bmp",490,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
cspl 420,429
lsp 430,":a;chara\tamamo_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_h6.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_tamamo1_kaisou

bgmstop

csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,13
mov %skill01,4
mov %item01,6
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *tamamo1_start
lsp 700,":a;chara\tamamo_st02.bmp",0,0
bg "bg\bg035.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov $name,"Tamamo"
if %bwait=213 goto *tamamo1_h



;-----??????(1)-----



*zukan_arumaeruma1

mov $zname,"Alma Elma"
mov $zlavel,"arumaeruma1"
itoa2 $zukan_ko,%2525
mov %zukan_facenum,3
mov %zukan_posenum,4
mov %zukan_cumnum,1
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2525=0 mov %hscene1,0
if %2525>0 mov %hscene1,1
if %2525=0 mov %zukancg,0
if %2525>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"125"
mov $zukan_hp,"15000"
mov $zukan_skill1,"Tail Massage"
mov %zukan_skillc1,3069
mov $zukan_skill2,"Tail Mucus"
mov %zukan_skillc2,3070
mov $zukan_skill3,"Bound Tail Massage"
mov %zukan_skillc3,3071
mov $zukan_skill4,"Tail Suck"
mov %zukan_skillc4,3072
mov $zukan_skill5,"Tail Drain"
mov %zukan_skillc5,3173
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_arumaeruma1_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\aruma.jpg",400,100
goto *zukan_kihonbtn



*zukan_arumaeruma1_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose<4 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose<4 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=4 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=0 mov %zukan_face,2

if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\arumaeruma_st41.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\arumaeruma_st42.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\arumaeruma_st43.bmp",%zukan_x0,0

if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;2Q\chara\arumaeruma_st11.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;2Q\chara\arumaeruma_st11.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;2Q\chara\arumaeruma_st13.png",%zukan_x0,0

if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\arumaeruma_st31.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\arumaeruma_st32.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\arumaeruma_st33.bmp",%zukan_x0,0

if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\arumaeruma_st21.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\arumaeruma_st22.bmp",%zukan_x0,0

if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\arumaeruma_bk01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum1=0 csp 441
if %zukan_pose=3 && %zukan_cum1=1 && %zukan_face=1 lsp 450,":a;chara\arumaeruma_st31b.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum1=1 && %zukan_face=2 lsp 450,":a;chara\arumaeruma_st32b.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum1=1 && %zukan_face=3 lsp 450,":a;chara\arumaeruma_st33b.bmp",%zukan_x0,0
return



*zukan_arumaeruma1_cg

lsp 500,":c;bg\bg036.bmp",0,0
lsp 430,":a;chara\arumaeruma_st32.bmp",0,0
lsp 420,":a;chara\arumaeruma_ct01.bmp",500,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\arumaeruma_ct02.bmp",500,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\arumaeruma_ct03.bmp",500,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\arumaeruma_ct04.bmp",500,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_st32b.bmp",0,0
lsp 420,":a;chara\arumaeruma_ct05.bmp",500,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\arumaeruma_ct06.bmp",500,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\arumaeruma_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\arumaeruma_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_ha2.bmp",0,0
lsp 420,":a;chara\arumaeruma_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_ha3.bmp",0,0
lsp 420,":a;chara\arumaeruma_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_ha4.bmp",0,0
lsp 420,":a;chara\arumaeruma_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_ha4.bmp",0,0
lsp 420,":a;chara\arumaeruma_hb5.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_arumaeruma1_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,13
mov %skill01,5
mov %item01,6
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *arumaeruma1_start
if %bwait=211 mov %nanido,2:goto *arumaeruma1_start
if %bwait=212 mov %nanido,3:goto *arumaeruma1_start
lsp 700,":a;chara\arumaeruma_st32.bmp",0,0
bg "bg\bg036.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov $name,"Alma Elma"
if %bwait=213 goto *arumaeruma1_h



;-----????-----



*zukan_namako

mov $zname,"Sea Cucumber Girl"
mov $zlavel,"namako"
itoa2 $zukan_ko,%2526
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2526=0 mov %hscene1,0
if %2526>0 mov %hscene1,1
if %2526=0 mov %zukancg,0
if %2526>0 mov %zukancg,1
mov %zukan_x1,-100
mov %zukan_x2,0
mov $zukan_lv,"14"
mov $zukan_hp,"400"
mov $zukan_skill1,"Semen Squeeze"
mov %zukan_skillc1,3073
mov $zukan_skill2,"Ecstasy Rub"
mov %zukan_skillc2,3074
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_namako_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\sea.jpg",400,100
goto *zukan_kihonbtn



*zukan_namako_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\namako_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\namako_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\namako_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\namako_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\namako_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\namako_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_namako_cg

lsp 500,":c;bg\bg039.bmp",0,0
lsp 430,":a;chara\namako_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\namako_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\namako_h2.bmp",0,0
lsp 420,":a;chara\namako_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\namako_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\namako_ct04.bmp",0,0
lsp 430,":a;chara\namako_h3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_namako_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,14
mov %skill01,5
mov %item01,7
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *namako_start
if %bwait=211 mov %nanido,2:goto *namako_start
if %bwait=212 mov %nanido,3:goto *namako_start
lsp 700,":a;chara\namako_h1.bmp",0,0
bg "bg\bg039.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *namako_h



;-----??-----



*zukan_kai

mov $zname,"Shellfish Girl"
mov $zlavel,"kai"
itoa2 $zukan_ko,%2527
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2527=0 mov %hscene1,0
if %2527>0 mov %hscene1,1
if %2527=0 mov %zukancg,0
if %2527>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"14"
mov $zukan_hp,"380"
mov $zukan_skill1,"Tentacle Suction"
mov %zukan_skillc1,3075
mov $zukan_skill2,"Love Jail Hand"
mov %zukan_skillc2,3076
mov $zukan_skill3,"Love Jail Fellatio"
mov %zukan_skillc3,3077
mov $zukan_skill4,"Love Jail Anal"
mov %zukan_skillc4,3078
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_kai_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\shell.jpg",400,100
goto *zukan_kihonbtn



*zukan_kai_p

if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\kai_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\kai_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\kai_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\kai_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\kai_st12.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\kai_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\kai_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\kai_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\kai_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\kai_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_pose=2 cspl 441,445
return



*zukan_kai_cg

lsp 500,":c;bg\bg039.bmp",0,0
lsp 430,":a;chara\kai_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kai_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kai_h2.bmp",0,0
lsp 420,":a;chara\kai_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kai_h3.bmp",0,0
lsp 420,":a;chara\kai_ct01.bmp",0,0
lsp 421,":a;chara\kai_ct12.bmp",-520,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kai_ct02.bmp",0,0
lsp 421,":a;chara\kai_ct13.bmp",-520,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kai_ct03.bmp",0,0
lsp 421,":a;chara\kai_ct14.bmp",-520,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_kai_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,14
mov %skill01,5
mov %item01,7
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *kai_start
if %bwait=211 mov %nanido,2:goto *kai_start
if %bwait=212 mov %nanido,3:goto *kai_start
lsp 700,":a;chara\kai_st02.bmp",0,0
bg "bg\bg039.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *kai_h



;-----???-----



*zukan_lamia

mov $zname,"Lamia"
mov $zlavel,"lamia"
itoa2 $zukan_ko,%2528
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,3
if %2813=0 mov %hscene1,0
if %2813>0 mov %hscene1,1
if %2814=0 mov %hscene2,0
if %2814>0 mov %hscene2,1
if %2815=0 mov %hscene3,0
if %2815>0 mov %hscene3,1
if %2528=0 mov %zukancg,0
if %2528>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"14"
mov $zukan_hp,"580"
mov $zukan_skill1,"Tail Massage"
mov %zukan_skillc1,3079
mov $zukan_skill2,"Constrict"
mov %zukan_skillc2,3080
mov $zukan_skill3,"Coiled Handjob"
mov %zukan_skillc3,3081
mov $zukan_skill4,"Coiled Fellatio"
mov %zukan_skillc4,3082
mov $zukan_skill5,"Coiled Tit Fuck"
mov %zukan_skillc5,3083
mov $zukan_skill6,"Swallow Whole"
mov %zukan_skillc6,3084
mov $zukan_skill7,"Lamia Vagina"
mov %zukan_skillc7,3088
mov $zukan_skill8,"Sure-Death Tightening"
mov %zukan_skillc8,3089
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_lamia_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\lamia.jpg",400,100
goto *zukan_kihonbtn



*zukan_lamia_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\lamia_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\lamia_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\lamia_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\lamia_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\lamia_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\lamia_st13.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\lamia_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 && %zukan_pose=1 lsp 442,":a;chara\lamia_bk02a.bmp",%zukan_x0,0
if %zukan_cum2=1 && %zukan_pose=2 lsp 442,":a;chara\lamia_bk02b.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 && %zukan_pose=1 lsp 443,":a;chara\lamia_bk03a.bmp",%zukan_x0,0
if %zukan_cum3=1 && %zukan_pose=2 lsp 443,":a;chara\lamia_bk03b.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 && %zukan_pose=1 csp 444
if %zukan_cum4=1 && %zukan_pose=2 lsp 444,":a;chara\lamia_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\lamia_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\lamia_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446

return



*zukan_lamia_cg

lsp 500,":c;bg\bg041.bmp",0,0
if %2813=0 skip 24
lsp 430,":a;chara\lamia_ha1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lamia_ha2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lamia_ha3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lamia_ha4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lamia_ha5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lamia_ha6.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lamia_ha7.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lamia_ha8.bmp",0,0
print 10,500:lrclick
if %2814=0 skip 19
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lamia_ct01.bmp",400,0
lsp 430,":a;chara\lamia_st02.bmp",-160,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lamia_ct02.bmp",400,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lamia_ct03.bmp",400,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lamia_ct04.bmp",400,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lamia_ct05.bmp",400,0
print 10,500:lrclick
if %2815=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\lamia_hb1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lamia_ctb01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lamia_hb2.bmp",0,0
lsp 420,":a;chara\lamia_ctb02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lamia_hb3.bmp",0,0
lsp 420,":a;chara\lamia_ctb03.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_lamia_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,14
mov %skill01,5
mov %item01,7
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *lamia_start
if %bwait=211 mov %nanido,2:goto *lamia_start
if %bwait=212 mov %nanido,3:goto *lamia_start
lsp 700,":a;chara\lamia_st02.bmp",0,0
if %bwait=215 lsp 700,":a;chara\lamia_hb1.bmp",0,0
bg "bg\bg041.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *lamia_ha
if %bwait=214 goto *lamia_hb
if %bwait=215 goto *lamiab_h



;-----??????(2)-----



*zukan_granberia2

mov $zname,"Granberia"
mov $zlavel,"granberia2"
itoa2 $zukan_ko,%2529
mov %zukan_facenum,5
mov %zukan_posenum,3
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2529=0 mov %hscene1,0
if %2529>0 mov %hscene1,1
if %2529=0 mov %zukancg,0
if %2529>0 mov %zukancg,1
mov %zukan_x1,-185
mov %zukan_x2,0
mov $zukan_lv,"126"
mov $zukan_hp,"24000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_granberia2_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\grand2.jpg",400,100
goto *zukan_kihonbtn




*zukan_granberia2_p

if %zukan_pose=1 && %zukan_face=7 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,6
if %zukan_pose=2 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=3 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=4 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,3
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\granberia_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\granberia_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\granberia_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\granberia_st04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\granberia_st05.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\granberia_st06.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\granberia_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\granberia_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\granberia_st13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\granberia_st41.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\granberia_st42.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\granberia_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\granberia_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\granberia_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose>1 cspl 441,443
return



*zukan_granberia2_cg

lsp 500,":c;bg\bg044.bmp",0,0
lsp 430,":a;chara\granberia_st03.bmp",11,0
lsp 420,":a;chara\granberia_ct01.bmp",247,-122
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\granberia_ct02.bmp",247,-122
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\granberia_ct03.bmp",247,-122
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\granberia_ct04.bmp",247,-122
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_granberia2_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,14
mov %skill01,5
mov %item01,7
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *granberia2_start
if %bwait=211 mov %nanido,2:goto *granberia2_start
if %bwait=212 mov %nanido,3:goto *granberia2_start
mov $name,"Granberia"
lsp 700,":a;chara\granberia_st03.bmp",11,0
bg "bg\bg044.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *granberia2_h



;-----17???-----



*zukan_page17

mov $zname,"Page 17"
mov $zlavel,"page17"
itoa2 $zukan_ko,%2530
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2530=0 mov %hscene1,0
if %2530>0 mov %hscene1,1
if %2530=0 mov %zukancg,0
if %2530>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"15"
mov $zukan_hp,"160"
mov $zukan_skill1,"Sweet Pacifier"
mov %zukan_skillc1,3090
mov $zukan_skill2,"Sweet Tit Fuck"
mov %zukan_skillc2,3091
mov $zukan_skill3,"Pacifier Paralysis"
mov %zukan_skillc3,3092
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_page17_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\p17.jpg",400,100
goto *zukan_kihonbtn



*zukan_page17_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\page17_st01.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\page17_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\page17_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\page17_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_page17_cg

lsp 500,":c;bg\bg046.bmp",0,0
lsp 420,":a;chara\page17_ct01.bmp",0,0
lsp 430,":a;chara\page17_st01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 423,":a;chara\page17_bk03.bmp",0,0
lsp 420,":a;chara\page17_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\page17_ct03.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_page17_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,15
mov %skill01,5
mov %item01,7
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *page17_start
if %bwait=211 mov %nanido,2:goto *page17_start
if %bwait=212 mov %nanido,3:goto *page17_start
lsp 700,":a;chara\page17_st01.bmp",0,0
bg "bg\bg046.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *page17_h



;-----257???-----



*zukan_page257

mov $zname,"Page 257"
mov $zlavel,"page257"
itoa2 $zukan_ko,%2531
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,2
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2531=0 mov %hscene1,0
if %2531>0 mov %hscene1,1
if %2531=0 mov %zukancg,0
if %2531>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"15"
mov $zukan_hp,"500"
mov $zukan_skill1,"Poke"
mov %zukan_skillc1,3093
mov $zukan_skill2,"Stroke"
mov %zukan_skillc2,3094
mov $zukan_skill3,"Massage"
mov %zukan_skillc3,3095
mov $zukan_skill4,"Fiddle"
mov %zukan_skillc4,3096
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_page257_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\p257.jpg",400,100
goto *zukan_kihonbtn



*zukan_page257_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\page257_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\page257_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\page257_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\page257_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\page257_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
return



*zukan_page257_cg

lsp 500,":c;bg\bg046.bmp",0,0
lsp 430,":a;chara\page257_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\page257_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\page257_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\page257_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\page257_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_page257_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,15
mov %skill01,5
mov %item01,7
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *page257_start
if %bwait=211 mov %nanido,2:goto *page257_start
if %bwait=212 mov %nanido,3:goto *page257_start
lsp 700,":a;chara\page257_h1.bmp",0,0
lsp 690,":a;chara\page257_ct02.bmp",0,0
bg "bg\bg046.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *page257_h



;-----65537???-----



*zukan_page65537

mov $zname,"Page 65537"
mov $zlavel,"page65537"
itoa2 $zukan_ko,%2532
mov %zukan_facenum,3
mov %zukan_posenum,3
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2532=0 mov %hscene1,0
if %2532>0 mov %hscene1,1
if %2532=0 mov %zukancg,0
if %2532>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"24"
mov $zukan_hp,"2100"
mov $zukan_skill1,"Tentacle Massage"
mov %zukan_skillc1,3097
mov $zukan_skill2,"Tentacle Hell"
mov %zukan_skillc2,3098
mov $zukan_skill3,"Forced Semen Squeeze"
mov %zukan_skillc3,3099
mov $zukan_skill4,"Eye of Paralysis"
mov %zukan_skillc4,3100
mov $zukan_skill5,"Eye of Submission"
mov %zukan_skillc5,3101
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_page65537_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\p65537.jpg",400,100
goto *zukan_kihonbtn



*zukan_page65537_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose<3 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose<3 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=3 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\page65537_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\page65537_st02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\page65537_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\page65537_st12.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\page65537_st21.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\page65537_st22.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\page65537_st23.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\page65537_bk01a.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum1=1 lsp 441,":a;chara\page65537_bk01b.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum1=1 lsp 441,":a;chara\page65537_bk01c.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\page65537_bk02a.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum2=1 lsp 442,":a;chara\page65537_bk02b.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum2=1 lsp 442,":a;chara\page65537_bk02c.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\page65537_bk03a.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum3=1 lsp 443,":a;chara\page65537_bk03b.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum3=1 lsp 443,":a;chara\page65537_bk03c.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\page65537_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\page65537_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_page65537_cg

lsp 500,":c;bg\bg046.bmp",0,0
lsp 430,":a;chara\page65537_h1a.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\page65537_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\page65537_h2a.bmp",0,0
lsp 420,":a;chara\page65537_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\page65537_h3a.bmp",0,0
lsp 420,":a;chara\page65537_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\page65537_h1b.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\page65537_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\page65537_h2b.bmp",0,0
lsp 420,":a;chara\page65537_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\page65537_h3b.bmp",0,0
lsp 420,":a;chara\page65537_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\page65537_h1c.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\page65537_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\page65537_h2c.bmp",0,0
lsp 420,":a;chara\page65537_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\page65537_h3c.bmp",0,0
lsp 420,":a;chara\page65537_ct03.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_page65537_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,15
mov %skill01,5
mov %item01,7
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *page65537_start
if %bwait=211 mov %nanido,2:goto *page65537_start
if %bwait=212 mov %nanido,3:goto *page65537_start
mov %sinkou,6
lsp 700,":a;chara\page65537_st22.bmp",0,0
bg "bg\bg046.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *page65537_h



;-----???-----



*zukan_kani

mov $zname,"Crab Girl"
mov $zlavel,"kani"
itoa2 $zukan_ko,%2533
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2533=0 mov %hscene1,0
if %2533>0 mov %hscene1,1
if %2533=0 mov %zukancg,0
if %2533>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"16"
mov $zukan_hp,"450"
mov $zukan_skill1,"Washwash"
mov %zukan_skillc1,3102
mov $zukan_skill2,"Bubble Wash"
mov %zukan_skillc2,3103
mov $zukan_skill3,"Bubble Scrub"
mov %zukan_skillc3,3104
mov $zukan_skill4,"Bubble Handjob"
mov %zukan_skillc4,3105
mov $zukan_skill5,"Full-Body Bubble Massage"
mov %zukan_skillc5,3106
mov $zukan_skill6,"Melty Wash"
mov %zukan_skillc6,3107
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_kani_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\crab.jpg",400,100
goto *zukan_kihonbtn



*zukan_kani_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\kani_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\kani_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\kani_st03.bmp",%zukan_x0,0
if %zukan_pose=2 lsp 450,":a;chara\kani_st00.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\kani_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\kani_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\kani_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\kani_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=2 csp 444
return



*zukan_kani_cg

lsp 500,":c;bg\bg039.bmp",0,0
lsp 430,":a;chara\kani_st11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kani_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kani_ct02.bmp",0,0
lsp 430,":a;chara\kani_st12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kani_ct03.bmp",0,0
lsp 430,":a;chara\kani_st13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kani_ct11.bmp",0,0
lsp 430,":a;chara\kani_st11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kani_ct12.bmp",0,0
lsp 430,":a;chara\kani_st12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kani_ct13.bmp",0,0
lsp 430,":a;chara\kani_st13.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_kani_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,16
mov %skill01,5
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *kani_start
if %bwait=211 mov %nanido,2:goto *kani_start
if %bwait=212 mov %nanido,3:goto *kani_start
lsp 700,":a;chara\kani_st02.bmp",0,0
bg "bg\bg039.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *kani_h



;-----????-----



*zukan_kurage

mov $zname,"Jellyfish Girl"
mov $zlavel,"kurage"
itoa2 $zukan_ko,%2534
mov %zukan_facenum,2
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2534=0 mov %hscene1,0
if %2534>0 mov %hscene1,1
if %2534=0 mov %zukancg,0
if %2534>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"16"
mov $zukan_hp,"550"
mov $zukan_skill1,"Tentacle Caress"
mov %zukan_skillc1,3108
mov $zukan_skill2,"Paralytic Tentacle"
mov %zukan_skillc2,3109
mov $zukan_skill3,"Tentacle Penis Torture"
mov %zukan_skillc3,3110
mov $zukan_skill4,"Jelly Prison"
mov %zukan_skillc4,3111
mov $zukan_skill5,"Predation"
mov %zukan_skillc5,3112
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_kurage_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\jelly.jpg",400,100
goto *zukan_kihonbtn



*zukan_kurage_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\kurage_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\kurage_st02.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\kurage_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\kurage_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\kurage_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\kurage_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_kurage_cg

lsp 500,":c;bg\bg050.bmp",0,0
lsp 430,":a;chara\kurage_st02.bmp",0,0
lsp 420,":a;chara\kurage_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kurage_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kurage_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kurage_ctb01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kurage_ctb02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kurage_ctb03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kurage_ctb04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_kurage_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,16
mov %skill01,5
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *kurage_start
if %bwait=211 mov %nanido,2:goto *kurage_start
if %bwait=212 mov %nanido,3:goto *kurage_start
lsp 700,":a;chara\kurage_st02.bmp",0,0
bg "bg\bg050.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *kurage_h



;-----????????-----



*zukan_iso

mov $zname,"Sea Anemone Girl"
mov $zlavel,"iso"
itoa2 $zukan_ko,%2535
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2535=0 mov %hscene1,0
if %2535>0 mov %hscene1,1
if %2535=0 mov %zukancg,0
if %2535>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"16"
mov $zukan_hp,"160"
mov $zukan_skill1,"Tentacle Penis Caress"
mov %zukan_skillc1,3113
mov $zukan_skill2,"Full-Body Tentacle Caress"
mov %zukan_skillc2,3114
mov $zukan_skill3,"Tentacle Trance"
mov %zukan_skillc3,3115
mov $zukan_skill4,"Semen Squeeze Movement"
mov %zukan_skillc4,3116
mov $zukan_skill5,"Predation"
mov %zukan_skillc5,3117
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_iso_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\anemone.jpg",400,100
goto *zukan_kihonbtn



*zukan_iso_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\iso_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\iso_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\iso_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\iso_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\iso_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\iso_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\iso_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\iso_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_iso_cg

lsp 500,":c;bg\bg051.bmp",0,0
lsp 430,":a;chara\iso_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\iso_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\iso_h2.bmp",0,0
lsp 420,":a;chara\iso_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\iso_h3.bmp",0,0
csp 420
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\iso_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\iso_h4.bmp",0,0
lsp 420,":a;chara\iso_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\iso_h5.bmp",0,0
lsp 420,":a;chara\iso_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\iso_ct04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\iso_h6.bmp",0,0
csp 420
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\iso_ctb01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\iso_ctb02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\iso_ctb03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\iso_ctb04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_iso_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,16
mov %skill01,5
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *iso_start
if %bwait=211 mov %nanido,2:goto *iso_start
if %bwait=212 mov %nanido,3:goto *iso_start
lsp 700,":a;chara\iso_st02.bmp",0,0
bg "bg\bg051.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *iso_h



;-----?????-----



*zukan_ankou

mov $zname,"Anglerfish Girl"
mov $zlavel,"ankou"
itoa2 $zukan_ko,%2536
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2536=0 mov %hscene1,0
if %2536>0 mov %hscene1,1
if %2536=0 mov %zukancg,0
if %2536>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"16"
mov $zukan_hp,"270"
mov $zukan_skill1,"Absorb"
mov %zukan_skillc1,3118
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_ankou_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\angler.jpg",400,100
goto *zukan_kihonbtn



*zukan_ankou_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\ankou_st01.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\ankou_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\ankou_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\ankou_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_ankou_cg

lsp 500,":c;bg\bg052.bmp",0,0
lsp 430,":a;chara\ankou_st01.bmp",0,0
lsp 420,":a;chara\ankou_cta01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\ankou_cta02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\ankou_cta03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\ankou_ctb01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\ankou_ctb02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\ankou_ctb03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\ankou_ctb04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_ankou_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,16
mov %skill01,5
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *ankou_start
if %bwait=211 mov %nanido,2:goto *ankou_start
if %bwait=212 mov %nanido,3:goto *ankou_start
lsp 700,":a;chara\ankou_st01.bmp",0,0
bg "bg\bg052.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *ankou_h



;-----??????-----



*zukan_kraken

mov $zname,"Kraken"
mov $zlavel,"kraken"
itoa2 $zukan_ko,%2537
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2537=0 mov %hscene1,0
if %2537>0 mov %hscene1,1
if %2537=0 mov %zukancg,0
if %2537>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"60"
mov $zukan_hp,"4700"
mov $zukan_skill1,"Tentacle Caress"
mov %zukan_skillc1,3119
mov $zukan_skill2,"Tentacle Raid"
mov %zukan_skillc2,3120
mov $zukan_skill3,"Bound Tentacle Caress"
mov %zukan_skillc3,3121
mov $zukan_skill4,"Bound Tentacle Raid"
mov %zukan_skillc4,3122
mov $zukan_skill5,"Tentacle Smash"
mov %zukan_skillc5,3123
mov $zukan_skill6,"Tentacle Heaven"
mov %zukan_skillc6,3124
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_kraken_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\kraken.jpg",400,100
goto *zukan_kihonbtn



*zukan_kraken_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\kraken_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\kraken_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\kraken_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\kraken_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\kraken_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\kraken_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\kraken_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_kraken_cg

lsp 500,":c;bg\bg053.bmp",0,0
lsp 430,":a;chara\kraken_st11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kraken_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kraken_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kraken_h2a.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kraken_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kraken_h3a.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kraken_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kraken_h5.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_kraken_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,17
mov %skill01,5
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *kraken_start
if %bwait=211 mov %nanido,2:goto *kraken_start
if %bwait=212 mov %nanido,3:goto *kraken_start
lsp 700,":a;chara\kraken_st02.bmp",0,0
bg "bg\bg053.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *kraken_h



;-----???-----



*zukan_meia

mov $zname,"Meia"
mov $zlavel,"meia"
mov $zukan_ko,"0"
mov %zukan_facenum,4
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-150
mov %zukan_x2,0
mov $zukan_lv,"17"
mov $zukan_hp,"500"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_meia_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\meia.jpg",400,100
goto *zukan_kihonbtn



*zukan_meia_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\meia_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\meia_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\meia_st03.bmp",%zukan_x0,0
if %zukan_face=4 lsp 450,":a;chara\meia_st04.bmp",%zukan_x0,0
return



*zukan_meia_cg

lsp 500,":c;bg\bg049.bmp",0,0
lsp 430,":a;chara\meia_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\meia_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\meia_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\meia_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_meia_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,17
mov %skill01,5
mov %item01,8
gosub *setwindow_01
lsp 700,":a;chara\meia_st02.bmp",0,0
bg "bg\bg049.bmp",10,1500
bgm"bgm\city1.ogg"
if %bwait=213 goto *sean0107a



;-----????-----



*zukan_ghost

mov $zname,"Ghost Girl"
mov $zlavel,"ghost"
itoa2 $zukan_ko,%2538
mov %zukan_facenum,2
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2538=0 mov %hscene1,0
if %2538>0 mov %hscene1,1
if %2538=0 mov %zukancg,0
if %2538>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"17"
mov $zukan_hp,"480"
mov $zukan_skill1,"Ghost Blowjob"
mov %zukan_skillc1,3125
mov $zukan_skill2,"Ghost Tit Fuck"
mov %zukan_skillc2,3126
mov $zukan_skill3,"Ghost Handjob"
mov %zukan_skillc3,3127
mov $zukan_skill4,"Ghost Rape"
mov %zukan_skillc4,3128
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_ghost_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\ghost.jpg",400,100
goto *zukan_kihonbtn



*zukan_ghost_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\ghost_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\ghost_st02.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\ghost_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\ghost_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\ghost_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\ghost_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_ghost_cg

lsp 500,":c;bg\bg055.bmp",0,0
lsp 430,":a;chara\ghost_st11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\ghost_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\ghost_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\ghost_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\ghost_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_ghost_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,17
mov %skill01,5
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *ghost_start
if %bwait=211 mov %nanido,2:goto *ghost_start
if %bwait=212 mov %nanido,3:goto *ghost_start
lsp 700,":a;chara\ghost_st02.bmp",0,0
bg "bg\bg055.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *ghost_h



;-----??????-----



*zukan_doll

mov $zname,"Cursed Doll"
mov $zlavel,"doll"
itoa2 $zukan_ko,%2539
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2816=0 mov %hscene1,0
if %2816>0 mov %hscene1,1
if %2817=0 mov %hscene2,0
if %2817>0 mov %hscene2,1
if %2539=0 mov %zukancg,0
if %2539>0 mov %zukancg,1
mov %zukan_x1,-20
mov %zukan_x2,180
mov $zukan_lv,"17"
mov $zukan_hp,"680"
mov $zukan_skill1,"Playful Handjob"
mov %zukan_skillc1,3129
mov $zukan_skill2,"Playful Hug"
mov %zukan_skillc2,3130
mov $zukan_skill3,"Playful Hair"
mov %zukan_skillc3,3131
mov $zukan_skill4,"Soul Sucking Hair"
mov %zukan_skillc4,3132
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_doll_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\doll.jpg",400,100
goto *zukan_kihonbtn



*zukan_doll_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\doll_st01.bmp",%zukan_x0,50
if %zukan_face=2 lsp 450,":a;chara\doll_st02.bmp",%zukan_x0,50
if %zukan_face=3 lsp 450,":a;chara\doll_st03.bmp",%zukan_x0,50
if %zukan_cum1=1 lsp 441,":a;chara\doll_bk01.bmp",%zukan_x0,50
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\doll_bk02.bmp",%zukan_x0,50
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\doll_bk03.bmp",%zukan_x0,50
if %zukan_cum3=0 csp 443
return



*zukan_doll_cg

if %2816=0 skip 11
lsp 430,":c;chara\doll_ha1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\doll_ha2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\doll_ha3.bmp",0,0
print 10,500:lrclick
if %2817=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\doll_hb1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\doll_hb2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\doll_hb3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_doll_kaisou

bgmstop

csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,17
mov %skill01,5
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *doll_start
if %bwait=211 mov %nanido,2:goto *doll_start
if %bwait=212 mov %nanido,3:goto *doll_start
lsp 700,":a;chara\doll_st02.bmp",180,50
bg "bg\bg056.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *doll_ha
if %bwait=214 goto *doll_hb



;-----????-----



*zukan_zonbe

mov $zname,"Zombie Girl"
mov $zlavel,"zonbe"
itoa2 $zukan_ko,%2540
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2540=0 mov %hscene1,0
if %2540>0 mov %hscene1,1
if %2540=0 mov %zukancg,0
if %2540>0 mov %zukancg,1
mov %zukan_x1,45
mov %zukan_x2,245
mov $zukan_lv,"18"
mov $zukan_hp,"1400"
mov $zukan_skill1,"Corrupted Kiss"
mov %zukan_skillc1,3086
mov $zukan_skill2,"Thirsting Mouth"
mov %zukan_skillc2,3087
mov $zukan_skill3,"Pointless Mating"
mov %zukan_skillc3,3133
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_zonbe_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\zombie.jpg",400,100
goto *zukan_kihonbtn



*zukan_zonbe_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\zonbe_st11.bmp",%zukan_x0,82
if %zukan_cum1=1 lsp 441,":a;chara\zonbe_bk11.bmp",%zukan_x0,82
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\zonbe_bk12.bmp",%zukan_x0,82
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\zonbe_bk13.bmp",%zukan_x0,82
if %zukan_cum3=0 csp 443
return



*zukan_zonbe_cg

lsp 430,":c;chara\zonbe_h0.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\zonbe_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\zonbe_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\zonbe_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\zonbe_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_zonbe_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,18
mov %skill01,5
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *zonbe_start
if %bwait=211 mov %nanido,2:goto *zonbe_start
if %bwait=212 mov %nanido,3:goto *zonbe_start
lsp 700,":a;chara\zonbe_st11.bmp",245,82
lsp 691,":a;chara\zonbe_bk11.bmp",245,82
bg "bg\bg057.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *zonbe_h



;-----??????-----



*zukan_zonbes

mov $zname,"Zombie Girl Group"
mov $zlavel,"zonbes"
itoa2 $zukan_ko,%2541
mov %zukan_facenum,2
mov %zukan_posenum,3
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2541=0 mov %hscene1,0
if %2541>0 mov %hscene1,1
if %2541=0 mov %zukancg,0
if %2541>0 mov %zukancg,1
mov %zukan_x1,80
mov %zukan_x2,280
mov $zukan_lv,"18"
mov $zukan_hp,"2400"
mov $zukan_skill1,"Corrupted Nipple Lick"
mov %zukan_skillc1,3134
mov $zukan_skill2,"Corrupted Bite"
mov %zukan_skillc2,3135
mov $zukan_skill3,"Corrupted Tit Fuck"
mov %zukan_skillc3,3136
mov $zukan_skill4,"Pointless Mating"
mov %zukan_skillc4,3137
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_zonbes_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\group.jpg",400,100
goto *zukan_kihonbtn



*zukan_zonbes_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\zonbe_st21.bmp",%zukan_x0,96
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\zonbe_st22.bmp",%zukan_x0,96
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\zonbe_st31.bmp",%zukan_x0-35,31
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\zonbe_st32.bmp",%zukan_x0-35,31
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\zonbe_st41.bmp",%zukan_x0-61,12
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\zonbe_st42.bmp",%zukan_x0-61,12
if %zukan_cum1=1 && %zukan_pose=1 lsp 441,":a;chara\zonbe_bk21.bmp",%zukan_x0,96
if %zukan_cum1=1 && %zukan_pose=2 lsp 441,":a;chara\zonbe_bk31.bmp",%zukan_x0-35,31
if %zukan_cum1=1 && %zukan_pose=3 lsp 441,":a;chara\zonbe_bk41.bmp",%zukan_x0-61,12
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 && %zukan_pose=1 lsp 442,":a;chara\zonbe_bk22.bmp",%zukan_x0,96
if %zukan_cum2=1 && %zukan_pose=2 lsp 442,":a;chara\zonbe_bk32.bmp",%zukan_x0-35,31
if %zukan_cum2=1 && %zukan_pose=3 lsp 442,":a;chara\zonbe_bk42.bmp",%zukan_x0-61,12
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 && %zukan_pose=1 lsp 443,":a;chara\zonbe_bk23.bmp",%zukan_x0,96
if %zukan_cum3=1 && %zukan_pose=2 lsp 443,":a;chara\zonbe_bk33.bmp",%zukan_x0-35,31
if %zukan_cum3=1 && %zukan_pose=3 lsp 443,":a;chara\zonbe_bk43.bmp",%zukan_x0-61,12
if %zukan_cum3=0 csp 443
return



*zukan_zonbes_cg

lsp 430,":c;chara\zonbes_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\zonbes_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\zonbes_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\zonbes_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\zonbes_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\zonbes_h6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\zonbes_h7.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_zonbes_kaisou

bgmstop

csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,18
mov %skill01,5
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *zonbes_start
if %bwait=211 mov %nanido,2:goto *zonbes_start
if %bwait=212 mov %nanido,3:goto *zonbes_start
lsp 700,":a;chara\zonbe_st41.bmp",420,12
lsp 701,":a;chara\zonbe_st31.bmp",0,31
lsp 702,":a;chara\zonbe_st21.bmp",270,96
bg "bg\bg057.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *zonbes_h



;-----?????-----



*zukan_frederika

mov $zname,"Frederika"
mov $zlavel,"frederika"
itoa2 $zukan_ko,%2542
mov %zukan_facenum,3
mov %zukan_posenum,3
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2542=0 mov %hscene1,0
if %2542>0 mov %hscene1,1
if %2542=0 mov %zukancg,0
if %2542>0 mov %zukancg,1
mov %zukan_x1,-72
mov %zukan_x2,88
mov $zukan_lv,"27"
mov $zukan_hp,"2100"
mov $zukan_skill1,"Corrupted Intercrural"
mov %zukan_skillc1,3138
mov $zukan_skill2,"Corrupted Blowjob"
mov %zukan_skillc2,3139
mov $zukan_skill3,"Corrupted Tit Fuck"
mov %zukan_skillc3,3140
mov $zukan_skill4,"Immoral Trio"
mov %zukan_skillc4,3141
mov $zukan_skill5,"Corrupted Footjob"
mov %zukan_skillc5,3142
mov $zukan_skill6,"Pointless Mating"
mov %zukan_skillc6,3143
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_frederika_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\fred.jpg",400,100
goto *zukan_kihonbtn



*zukan_frederika_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\frederika_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\frederika_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\frederika_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\frederika_st11.bmp",%zukan_x0+150,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\frederika_st12.bmp",%zukan_x0+150,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\frederika_st13.bmp",%zukan_x0+150,0
if %zukan_pose=3 lsp 450,":a;chara\frederika_st21.bmp",%zukan_x0+102,0
if %zukan_cum1=1 lsp 441,":a;chara\frederika_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\frederika_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\frederika_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\frederika_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\frederika_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\frederika_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\frederika_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
notif %zukan_pose=1 cspl 441,447
return



*zukan_frederika_cg

lsp 430,":c;chara\frederika_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\frederika_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\frederika_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\frederika_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\frederika_tuika.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chrom_tuika.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_frederika_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,18
mov %skill01,5
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *frederika_start
if %bwait=211 mov %nanido,2:goto *frederika_start
if %bwait=212 mov %nanido,3:goto *frederika_start
lsp 700,":a;chara\frederika_st02.bmp",88,0
bg "bg\bg055.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *frederika_h



;-----???-----



*zukan_chrom

mov $zname,"Chrome"
mov $zlavel,"chrom"
itoa2 $zukan_ko,%2543
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2543=0 mov %hscene1,0
if %2543>0 mov %hscene1,1
if %2543=0 mov %zukancg,0
if %2543>0 mov %zukancg,1
mov %zukan_x1,-25
mov %zukan_x2,175
mov $zukan_lv,"21"
mov $zukan_hp,"1200"
mov $zukan_skill1,"Thirsting Arms"
mov %zukan_skillc1,3144
mov $zukan_skill2,"Thirsting Mouth"
mov %zukan_skillc2,3145
mov $zukan_skill3,"I'll Give An Injection!"
mov %zukan_skillc3,3146
mov $zukan_skill4,"I'll Give A Handjob!"
mov %zukan_skillc4,3147
mov $zukan_skill5,"I'll Give A Blowjob!"
mov %zukan_skillc5,3148
mov $zukan_skill6,"I'll Rape You!"
mov %zukan_skillc6,3149
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_chrom_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\chrome.jpg",400,100
goto *zukan_kihonbtn



*zukan_chrom_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\chrom_st11.bmp",%zukan_x0,60
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\chrom_st12.bmp",%zukan_x0,60
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\chrom_st13.bmp",%zukan_x0,60
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\chrom_st01.bmp",%zukan_x0+77,150
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\chrom_st02.bmp",%zukan_x0+77,150
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\chrom_st03.bmp",%zukan_x0+77,150
if %zukan_cum1=1 lsp 441,":a;chara\chrom_bk01.bmp",%zukan_x0,60
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\chrom_bk02.bmp",%zukan_x0,60
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\chrom_bk03.bmp",%zukan_x0,60
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\chrom_bk04.bmp",%zukan_x0,60
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\chrom_bk05.bmp",%zukan_x0,60
if %zukan_cum5=0 csp 445
if %zukan_pose=2 cspl 441,445
return



*zukan_chrom_cg

lsp 430,":c;chara\chrom_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chrom_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chrom_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chrom_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chrom_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chrom_hb3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_chrom_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,18
mov %skill01,5
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *chrom_start
if %bwait=211 mov %nanido,2:goto *chrom_start
if %bwait=212 mov %nanido,3:goto *chrom_start
lsp 700,":a;chara\chrom_st12.bmp",175,60
bg "bg\bg058.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *chrom_h



;-----?????-----



*zukan_fairy

mov $zname,"Fairy"
mov $zlavel,"fairy"
itoa2 $zukan_ko,%2544
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2544=0 mov %hscene1,0
if %2544>0 mov %hscene1,1
if %2544=0 mov %zukancg,0
if %2544>0 mov %zukancg,1
mov %zukan_x1,70
mov %zukan_x2,270
mov $zukan_lv,"17"
mov $zukan_hp,"600"
mov $zukan_skill1,"Succubus Flower"
mov %zukan_skillc1,3150
mov $zukan_skill2,"Wing Tickle"
mov %zukan_skillc2,3151
mov $zukan_skill3,"Fairy Pranks"
mov %zukan_skillc3,3152
mov $zukan_skill4,"Fairy Hug"
mov %zukan_skillc4,3153
mov $zukan_skill5,"Fairy Dance"
mov %zukan_skillc5,3154
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_fairy_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\fairy.jpg",400,100
goto *zukan_kihonbtn



*zukan_fairy_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\fairy_st01.bmp",%zukan_x0,130
if %zukan_face=2 lsp 450,":a;chara\fairy_st02.bmp",%zukan_x0,130
if %zukan_face=3 lsp 450,":a;chara\fairy_st03.bmp",%zukan_x0,130
if %zukan_cum1=1 lsp 441,":a;chara\fairy_bk01.bmp",%zukan_x0,130
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\fairy_bk02.bmp",%zukan_x0,130
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\fairy_bk03.bmp",%zukan_x0,130
if %zukan_cum3=0 csp 443
return



*zukan_fairy_cg

lsp 500,":c;bg\bg061.bmp",0,0
lsp 420,":a;chara\fairy_ct01.bmp",0,0
lsp 430,":a;chara\fairy_st02.bmp",270,130
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 423,":a;chara\fairy_bk03.bmp",270,130
lsp 420,":a;chara\fairy_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 423
lsp 420,":a;chara\fairy_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\fairy_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 421,":a;chara\fairy_bk01.bmp",270,130
lsp 420,":a;chara\fairy_ct13.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_fairy_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,18
mov %skill01,6
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *fairy_start
if %bwait=211 mov %nanido,2:goto *fairy_start
if %bwait=212 mov %nanido,3:goto *fairy_start
lsp 700,":a;chara\fairy_st02.bmp",270,130
bg "bg\bg061.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *fairy_h



;-----???-----



*zukan_elf

mov $zname,"Elf"
mov $zlavel,"elf"
itoa2 $zukan_ko,%2545
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2545=0 mov %hscene1,0
if %2545>0 mov %hscene1,1
if %2545=0 mov %zukancg,0
if %2545>0 mov %zukancg,1
mov %zukan_x1,-100
mov %zukan_x2,100
mov $zukan_lv,"18"
mov $zukan_hp,"700"
mov $zukan_skill1,"Elf Handjob"
mov %zukan_skillc1,3155
mov $zukan_skill2,"Elf Blowjob"
mov %zukan_skillc2,3156
mov $zukan_skill3,"Elf Tit Fuck"
mov %zukan_skillc3,3157
mov $zukan_skill4,"Elf Waist Shake"
mov %zukan_skillc4,3158
mov $zukan_skill5,"Elf Tightening"
mov %zukan_skillc5,3159
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_elf_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\elf.jpg",400,100
goto *zukan_kihonbtn



*zukan_elf_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\elf_st01.bmp",%zukan_x0,-100
if %zukan_face=2 lsp 450,":a;chara\elf_st02.bmp",%zukan_x0,-100
if %zukan_face=3 lsp 450,":a;chara\elf_st03.bmp",%zukan_x0,-100
if %zukan_cum1=1 lsp 441,":a;chara\elf_bk01.bmp",%zukan_x0,-100
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\elf_bk02.bmp",%zukan_x0,-100
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\elf_bk03.bmp",%zukan_x0,-100
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\elf_bk04.bmp",%zukan_x0,-100
if %zukan_cum4=0 csp 444
return



*zukan_elf_cg

lsp 500,":c;bg\bg061.bmp",0,0
lsp 430,":a;chara\elf_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\elf_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\elf_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\elf_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\elf_h5.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_elf_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,18
mov %skill01,6
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *elf_start
if %bwait=211 mov %nanido,2:goto *elf_start
if %bwait=212 mov %nanido,3:goto *elf_start
lsp 700,":a;chara\elf_st02.bmp",100,-100
bg "bg\bg061.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *elf_h



;-----?????????-----



*zukan_tfairy

mov $zname,"Twin Fairies"
mov $zlavel,"tfairy"
itoa2 $zukan_ko,%2546
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2546=0 mov %hscene1,0
if %2546>0 mov %hscene1,1
if %2546=0 mov %zukancg,0
if %2546>0 mov %zukancg,1
mov %zukan_x1,20
mov %zukan_x2,220
mov $zukan_lv,"19"
mov $zukan_hp,"700"
mov $zukan_skill1,"Succubus Flower"
mov %zukan_skillc1,3160
mov $zukan_skill2,"Twin Wing Tickle"
mov %zukan_skillc2,3161
mov $zukan_skill3,"Twin Fairy Pranks"
mov %zukan_skillc3,3162
mov $zukan_skill4,"Twin Fairy Hug"
mov %zukan_skillc4,3163
mov $zukan_skill5,"Twin Fairy Dance"
mov %zukan_skillc5,3164
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_tfairy_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\ftwins.jpg",400,100
goto *zukan_kihonbtn



*zukan_tfairy_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\tfairy_st01.bmp",%zukan_x0,130
if %zukan_face=2 lsp 450,":a;chara\tfairy_st02.bmp",%zukan_x0,130
if %zukan_face=3 lsp 450,":a;chara\tfairy_st03.bmp",%zukan_x0,130
if %zukan_cum1=1 lsp 441,":a;chara\tfairy_bk01.bmp",%zukan_x0,130
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\tfairy_bk02.bmp",%zukan_x0,130
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\tfairy_bk03.bmp",%zukan_x0,130
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\tfairy_bk04.bmp",%zukan_x0,130
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\tfairy_bk05.bmp",%zukan_x0,130
if %zukan_cum5=0 csp 445
return



*zukan_tfairy_cg

lsp 500,":c;bg\bg061.bmp",0,0
lsp 420,":a;chara\tfairy_ct01.bmp",0,0
lsp 430,":a;chara\tfairy_st02.bmp",220,130
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tfairy_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 424,":a;chara\tfairy_bk04.bmp",220,130
lsp 420,":a;chara\tfairy_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 424
lsp 420,":a;chara\tfairy_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tfairy_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 425,":a;chara\tfairy_bk05.bmp",220,130
lsp 420,":a;chara\tfairy_ct13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 425
lsp 420,":a;chara\tfairy_ct21.bmp",480,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tfairy_ct22.bmp",480,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 421,":a;chara\tfairy_bk01.bmp",220,130
lsp 422,":a;chara\tfairy_bk02.bmp",220,130
lsp 420,":a;chara\tfairy_ct23.bmp",480,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_tfairy_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,19
mov %skill01,6
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *tfairy_start
if %bwait=211 mov %nanido,2:goto *tfairy_start
if %bwait=212 mov %nanido,3:goto *tfairy_start
lsp 700,":a;chara\tfairy_st02.bmp",220,130
bg "bg\bg061.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *tfairy_h



;-----??????-----



*zukan_fairys

mov $zname,"Fairies"
mov $zlavel,"fairys"
itoa2 $zukan_ko,%2547
mov %zukan_facenum,3
mov %zukan_posenum,3
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2547=0 mov %hscene1,0
if %2547>0 mov %hscene1,1
if %2547=0 mov %zukancg,0
if %2547>0 mov %zukancg,1
mov %zukan_x1,20
mov %zukan_x2,220
mov $zukan_lv,"22"
mov $zukan_hp,"925"
mov $zukan_skill1,"Group Tickle"
mov %zukan_skillc1,3165
mov $zukan_skill2,"Group Penis Tickle"
mov %zukan_skillc2,3166
mov $zukan_skill3,"Group Pranks"
mov %zukan_skillc3,3167
mov $zukan_skill4,"Group Dance"
mov %zukan_skillc4,3168
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_fairys_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\fairies.jpg",400,100
goto *zukan_kihonbtn



*zukan_fairys_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=1 && %zukan_pose=1 lsp 450,":a;chara\fairys_st01.bmp",%zukan_x0,100
if %zukan_face=2 && %zukan_pose=1 lsp 450,":a;chara\fairys_st02.bmp",%zukan_x0,100
if %zukan_face=3 && %zukan_pose=1 lsp 450,":a;chara\fairys_st03.bmp",%zukan_x0,100
if %zukan_face=1 && %zukan_pose=2 lsp 450,":a;chara\fairys_st11.bmp",%zukan_x0+10,100
if %zukan_face=2 && %zukan_pose=2 lsp 450,":a;chara\fairys_st12.bmp",%zukan_x0+10,100
if %zukan_face=3 && %zukan_pose=2 lsp 450,":a;chara\fairys_st13.bmp",%zukan_x0+10,100
if %zukan_face=1 && %zukan_pose=3 lsp 450,":a;chara\fairys_st21.bmp",%zukan_x0-20,100
if %zukan_face=2 && %zukan_pose=3 lsp 450,":a;chara\fairys_st22.bmp",%zukan_x0-20,100
if %zukan_face=3 && %zukan_pose=3 lsp 450,":a;chara\fairys_st23.bmp",%zukan_x0-20,100
if %zukan_cum1=1 && %zukan_pose=1 lsp 441,":a;chara\fairys_bk01.bmp",%zukan_x0,100
if %zukan_cum1=1 && %zukan_pose=2 lsp 441,":a;chara\fairys_bk11.bmp",%zukan_x0+10,100
if %zukan_cum1=1 && %zukan_pose=3 lsp 441,":a;chara\fairys_bk21.bmp",%zukan_x0-20,100
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 && %zukan_pose=1 lsp 442,":a;chara\fairys_bk02.bmp",%zukan_x0,100
if %zukan_cum2=1 && %zukan_pose=2 lsp 442,":a;chara\fairys_bk12.bmp",%zukan_x0+10,100
if %zukan_cum2=1 && %zukan_pose=3 lsp 442,":a;chara\fairys_bk22.bmp",%zukan_x0-20,100
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 && %zukan_pose=1 lsp 443,":a;chara\fairys_bk03.bmp",%zukan_x0,100
if %zukan_cum3=1 && %zukan_pose=2 lsp 443,":a;chara\fairys_bk13.bmp",%zukan_x0+10,100
if %zukan_cum3=1 && %zukan_pose=3 lsp 443,":a;chara\fairys_bk23.bmp",%zukan_x0-20,100
if %zukan_cum3=0 csp 443
return



*zukan_fairys_cg

lsp 430,":c;chara\fairys_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\fairys_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\fairys_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\fairys_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\fairys_h5.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_fairys_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,19
mov %skill01,6
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *fairys_start
if %bwait=211 mov %nanido,2:goto *fairys_start
if %bwait=212 mov %nanido,3:goto *fairys_start
lsp 700,":a;chara\fairys_st02.bmp",220,100
lsp 701,":a;chara\fairys_st12.bmp",0,50
lsp 702,":a;chara\fairys_st22.bmp",440,50
bg "bg\bg061.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *fairys_h



;-----???-----



*zukan_sylph

mov $zname,"Sylph"
mov $zlavel,"sylph"
itoa2 $zukan_ko,%2548
mov %zukan_facenum,7
mov %zukan_posenum,3
mov %zukan_cumnum,3
mov %zukan_battlenum,2
mov %zukan_hscenenum,1
if %2548=0 mov %hscene1,0
if %2548>0 mov %hscene1,1
if %2548=0 mov %zukancg,0
if %2548>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"50"
mov $zukan_hp,"4000"
mov $zukan_skill1,"Tickling Wind"
mov %zukan_skillc1,3169
mov $zukan_skill2,"Wind of Pleasure"
mov %zukan_skillc2,3170
mov $zukan_skill3,"Wind of Ecstasy"
mov %zukan_skillc3,3171
mov $zukan_skill4,"Wind Serenade"
mov %zukan_skillc4,3172
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_sylph_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\sylph.jpg",400,100
goto *zukan_kihonbtn



*zukan_sylph_p

if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum

if %zukan_pose=2 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,2

if %zukan_pose=3 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,2

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum

if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\sylph_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\sylph_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\sylph_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\sylph_st04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\sylph_st05.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\sylph_st06.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=7 lsp 450,":a;chara\sylph_st07.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\sylph_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\sylph_st12.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\sylph_st21.bmp",%zukan_x0,100
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\sylph_st22.bmp",%zukan_x0+155,100
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\sylph_bk01.bmp",%zukan_x0,0
if %zukan_pose>1 && %zukan_cum1=1 csp 441
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\sylph_bk02.bmp",%zukan_x0,0
if %zukan_pose>1 && %zukan_cum2=1 csp 442
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\sylph_bk03.bmp",%zukan_x0,0
if %zukan_pose>1 && %zukan_cum3=1 csp 443
if %zukan_cum3=0 csp 443
return



*zukan_sylph_cg

lsp 500,":c;bg\bg061.bmp",0,0
lsp 430,":c;chara\sylph_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\sylph_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\sylph_h3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_sylph_kaisou

bgmstop

csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,19
mov %skill01,6
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *sylph_start
if %bwait=211 mov %nanido,2:goto *sylph_start
if %bwait=212 mov %nanido,3:goto *sylph_start
lsp 700,":a;chara\sylph_st02.bmp",0,0
bg "bg\bg061.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *sylph_h



;-----????????-----



*zukan_c_dryad

shadedistance 0,0
mov $zname,"Chimera Dryad"
itoa2 $zukan_ko,%2549
mov $zlavel,"c_dryad"
mov %zukan_facenum,2
mov %zukan_posenum,2
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2818=0 mov %hscene1,0
if %2818>0 mov %hscene1,1
if %2818=0 mov %zukancg,0
if %2818>0 mov %zukancg,1
mov %zukan_x1,-60
mov %zukan_x2,140
mov $zukan_lv,"65"
mov $zukan_hp,"9500"
mov $zukan_skill1,"Ivy Stroking"
mov %zukan_skillc1,3174
mov $zukan_skill2,"Semen Slurping Lily"
mov %zukan_skillc2,3175
mov $zukan_skill3,"Maneating Sunflower"
mov %zukan_skillc3,3194
mov $zukan_skill4,"Rose of Strangulation"
mov %zukan_skillc4,3177
mov $zukan_skill5,"Intoxicating Incense"
mov %zukan_skillc5,3178
mov $zukan_skill6,"Flower Energy Suck"
mov %zukan_skillc6,3179
mov $zukan_skill7,"Floral Funeral"
mov %zukan_skillc7,3180
ency_clear
btndef clear
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_c_dryad_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\dryad.jpg",400,100
goto *zukan_kihonbtn



*zukan_c_dryad_cg

lsp 500,":c;bg\bg061.bmp",0,0
lsp 430,":a;chara\c_dryad_st11.bmp",140,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_dryad_st12.bmp",140,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_dryad_st13.bmp",140,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_dryad_st14.bmp",140,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_dryad_st15.bmp",140,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_c_dryad_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 lsp 450,":a;chara\c_dryad_st01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\c_dryad_st21.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\c_dryad_st22.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\c_dryad_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\c_dryad_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\c_dryad_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\c_dryad_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\c_dryad_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\c_dryad_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_pose=1 cspl 445,446
return



*zukan_c_dryad_kaisou

bgmstop

csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,20
mov %skill01,6
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *c_dryad_start
if %bwait=211 mov %nanido,2:goto *c_dryad_start
if %bwait=212 mov %nanido,3:goto *c_dryad_start
lsp 700,":a;chara\c_dryad_st01.bmp",140,0
bg "bg\bg061.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *c_dryad_ha



;-----???????-----



*zukan_taran

mov $zname,"Tarantula Girl"
mov $zlavel,"taran"
itoa2 $zukan_ko,%2551
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2551=0 mov %hscene1,0
if %2551>0 mov %hscene1,1
if %2551=0 mov %zukancg,0
if %2551>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"20"
mov $zukan_hp,"900"
mov $zukan_skill1,"Tarantula Caress"
mov %zukan_skillc1,3196
mov $zukan_skill2,"Tarantula Blowjob"
mov %zukan_skillc2,3197
mov $zukan_skill3,"Breast Pressure Hell"
mov %zukan_skillc3,3176
mov $zukan_skill4,"Restrained Tarantula Caress"
mov %zukan_skillc4,3198
mov $zukan_skill5,"Tarantula Torture"
mov %zukan_skillc5,3199
mov $zukan_skill6,"Tarantula Rape"
mov %zukan_skillc6,3200
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_taran_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\taran.jpg",400,100
goto *zukan_kihonbtn



*zukan_taran_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\taran_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\taran_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\taran_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\taran_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\taran_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\taran_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\taran_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\taran_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_taran_cg

lsp 500,":c;bg\bg030.bmp",0,0
lsp 430,":a;chara\taran_st02.bmp",0,0
lsp 420,":a;chara\kumo_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kumo_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kumo_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kumo_ct04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\taran_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\taran_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\taran_h2.bmp",0,0
lsp 420,":a;chara\taran_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\taran_h3.bmp",0,0
lsp 420,":a;chara\taran_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\taran_h4.bmp",0,0
lsp 420,":a;chara\taran_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\taran_h5.bmp",0,0
lsp 420,":a;chara\taran_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_taran_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,20
mov %skill01,7
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *taran_start
if %bwait=211 mov %nanido,2:goto *taran_start
if %bwait=212 mov %nanido,3:goto *taran_start
lsp 700,":a;chara\taran_st02.bmp",0,0
bg "bg\bg030.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *taran_h



;-----???????-----



*zukan_mino

mov $zname,"Minotauros"
mov $zlavel,"mino"
itoa2 $zukan_ko,%2552
mov %zukan_facenum,4
mov %zukan_posenum,2
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2552=0 mov %hscene1,0
if %2552>0 mov %hscene1,1
if %2552=0 mov %zukancg,0
if %2552>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"20"
mov $zukan_hp,"1200"
mov $zukan_skill1,"Strong Handjob"
mov %zukan_skillc1,3201
mov $zukan_skill2,"Furious Intercrural"
mov %zukan_skillc2,3202
mov $zukan_skill3,"Busty Tit Fuck"
mov %zukan_skillc3,3203
mov $zukan_skill4,"Ferocious Blowjob"
mov %zukan_skillc4,3204
mov $zukan_skill5,"Minotauros Rape"
mov %zukan_skillc5,3205
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_mino_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\mino.jpg",400,100
goto *zukan_kihonbtn



*zukan_mino_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=1 && %zukan_pose=1 lsp 450,":a;chara\mino_st01.bmp",%zukan_x0,0
if %zukan_face=2 && %zukan_pose=1 lsp 450,":a;chara\mino_st02.bmp",%zukan_x0,0
if %zukan_face=3 && %zukan_pose=1 lsp 450,":a;chara\mino_st03.bmp",%zukan_x0,0
if %zukan_face=4 && %zukan_pose=1 lsp 450,":a;chara\mino_st04.bmp",%zukan_x0,0
if %zukan_pose=2 lsp 450,":a;chara\mino_st11.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\mino_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\mino_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\mino_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\mino_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=1 csp 444
return



*zukan_mino_cg

lsp 500,":c;bg\bg019.bmp",0,0
lsp 430,":a;chara\mino_st02.bmp",0,0
lsp 420,":a;chara\mino_ct11.bmp",503,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mino_ct12.bmp",503,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mino_ct13.bmp",503,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\mino_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mino_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mino_h2.bmp",0,0
lsp 420,":a;chara\mino_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mino_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mino_h3.bmp",0,0
lsp 420,":a;chara\mino_ct04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mino_ct05.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_mino_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,20
mov %skill01,7
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *mino_start
if %bwait=211 mov %nanido,2:goto *mino_start
if %bwait=212 mov %nanido,3:goto *mino_start
lsp 700,":a;chara\mino_st02.bmp",0,0
bg "bg\bg019.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *mino_h



;-----????-----



*zukan_sasori

mov $zname,"Scorpion Girl"
mov $zlavel,"sasori"
itoa2 $zukan_ko,%2553
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2553=0 mov %hscene1,0
if %2553>0 mov %hscene1,1
if %2553=0 mov %zukancg,0
if %2553>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"21"
mov $zukan_hp,"1100"
mov $zukan_skill1,"Scorpion Blowjob"
mov %zukan_skillc1,3206
mov $zukan_skill2,"Scorpion Tit Fuck"
mov %zukan_skillc2,3207
mov $zukan_skill3,"Venom Tail"
mov %zukan_skillc3,3208
mov $zukan_skill4,"Petra Scorpio"
mov %zukan_skillc4,3209
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_sasori_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\scorp.jpg",400,100
goto *zukan_kihonbtn



*zukan_sasori_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\sasori_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\sasori_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\sasori_st03.bmp",%zukan_x0,0
if %zukan_pose=2 lsp 450,":a;chara\sasori_st11.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\sasori_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\sasori_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\sasori_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\sasori_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=2 && %zukan_cum5=1 lsp 445,":a;chara\sasori_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_sasori_cg

lsp 500,":c;bg\bg062.bmp",0,0
lsp 430,":a;chara\sasori_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\sasori_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sasori_h2.bmp",0,0
lsp 420,":a;chara\sasori_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sasori_h3.bmp",0,0
lsp 420,":a;chara\sasori_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sasori_h4.bmp",0,0
lsp 420,":a;chara\sasori_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_sasori_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,21
mov %skill01,7
mov %item01,8
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *sasori_start
if %bwait=211 mov %nanido,2:goto *sasori_start
if %bwait=212 mov %nanido,3:goto *sasori_start
lsp 700,":a;chara\sasori_st02.bmp",0,0
bg "bg\bg062.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *sasori_h



;-----??????-----



*zukan_lamp

mov $zname,"Lamp Genie"
mov $zlavel,"lamp"
itoa2 $zukan_ko,%2554
mov %zukan_facenum,3
mov %zukan_posenum,4
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2554=0 mov %hscene1,0
if %2554>0 mov %hscene1,1
if %2554=0 mov %zukancg,0
if %2554>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"24"
mov $zukan_hp,"1600"
mov $zukan_skill1,"Hand of Pleasure"
mov %zukan_skillc1,3210
mov $zukan_skill2,"Mouth of Joy"
mov %zukan_skillc2,3211
mov $zukan_skill3,"Chest of Delight"
mov %zukan_skillc3,3212
mov $zukan_skill4,"Intercrural Enjoyment"
mov %zukan_skillc4,3213
mov $zukan_skill5,"Fingers of Ecstasy"
mov %zukan_skillc5,3214
mov $zukan_skill6,"Heavenly Kamasutra"
mov %zukan_skillc6,3215
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_lamp_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\genie.jpg",400,100
goto *zukan_kihonbtn



*zukan_lamp_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\lamp_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\lamp_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\lamp_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\lamp_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\lamp_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\lamp_st13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\lamp_st21.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\lamp_st22.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\lamp_st23.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\lamp_st31.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\lamp_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\lamp_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\lamp_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\lamp_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\lamp_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_pose=2 cspl 444,445
if %zukan_pose=3 cspl 444,445
if %zukan_pose=4 cspl 441,445
return



*zukan_lamp_cg

lsp 500,":c;bg\bg062.bmp",0,0
lsp 430,":a;chara\lamp_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lamp_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lamp_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lamp_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lamp_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lamp_h6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lamp_h7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lamp_ct01.bmp",400,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lamp_ct02.bmp",400,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lamp_ct03.bmp",400,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lamp_ct04.bmp",400,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_lamp_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,21
mov %skill01,7
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *lamp_start
if %bwait=211 mov %nanido,2:goto *lamp_start
if %bwait=212 mov %nanido,3:goto *lamp_start
lsp 700,":a;chara\lamp_st02.bmp",0,0
bg "bg\bg062.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *lamp_h



;-----????-----



*zukan_mummy

mov $zname,"Mummy Girl"
mov $zlavel,"mummy"
itoa2 $zukan_ko,%2555
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2555=0 mov %hscene1,0
if %2555>0 mov %hscene1,1
if %2555=0 mov %zukancg,0
if %2555>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"21"
mov $zukan_hp,"1300"
mov $zukan_skill1,"Mummy Handjob"
mov %zukan_skillc1,3216
mov $zukan_skill2,"Mummy Bandage"
mov %zukan_skillc2,3217
mov $zukan_skill3,"Holding Bandage"
mov %zukan_skillc3,3218
mov $zukan_skill4,"Holding Nightmare"
mov %zukan_skillc4,3219
mov $zukan_skill5,"Mummy Package"
mov %zukan_skillc5,3220
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_mummy_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\mummy.jpg",400,100
goto *zukan_kihonbtn



*zukan_mummy_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\mummy_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\mummy_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\mummy_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\mummy_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\mummy_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\mummy_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\mummy_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\mummy_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_mummy_cg

lsp 500,":c;bg\bg068.bmp",0,0
lsp 430,":a;chara\mummy_st11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mummy_st12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mummy_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mummy_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mummy_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mummy_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_mummy_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,21
mov %skill01,7
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *mummy_start
if %bwait=211 mov %nanido,2:goto *mummy_start
if %bwait=212 mov %nanido,3:goto *mummy_start
lsp 700,":a;chara\mummy_st01.bmp",0,0
bg "bg\bg068.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *mummy_h



;-----????-----



*zukan_kobura

mov $zname,"Cobra Girl"
mov $zlavel,"kobura"
itoa2 $zukan_ko,%2556
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2556=0 mov %hscene1,0
if %2556>0 mov %hscene1,1
if %2556=0 mov %zukancg,0
if %2556>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"21"
mov $zukan_hp,"1400"
mov $zukan_skill1,"Cobra Blowjob"
mov %zukan_skillc1,3222
mov $zukan_skill2,"Cobra Tit Fuck"
mov %zukan_skillc2,3223
mov $zukan_skill3,"Cobra Bite"
mov %zukan_skillc3,3224
mov $zukan_skill4,"Nightmare Tightening"
mov %zukan_skillc4,3225
mov $zukan_skill5,"Mellow Tail"
mov %zukan_skillc5,3226
mov $zukan_skill6,"Cobra Anal"
mov %zukan_skillc6,3227
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_kobura_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\cobra.jpg",400,100
goto *zukan_kihonbtn



*zukan_kobura_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\kobura_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\kobura_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\kobura_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\kobura_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\kobura_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\kobura_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_kobura_cg

lsp 500,":c;bg\bg068.bmp",0,0
lsp 430,":a;chara\kobura_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kobura_h2.bmp",0,0
lsp 420,":a;chara\kobura_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kobura_h3.bmp",0,0
lsp 420,":a;chara\kobura_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kobura_h4.bmp",0,0
lsp 420,":a;chara\kobura_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kobura_h5.bmp",0,0
lsp 420,":a;chara\kobura_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_kobura_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,21
mov %skill01,7
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *kobura_start
if %bwait=211 mov %nanido,2:goto *kobura_start
if %bwait=212 mov %nanido,3:goto *kobura_start
lsp 700,":a;chara\kobura_h1.bmp",0,0
bg "bg\bg068.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *kobura_h



;-----????????-----



*zukan_lamias

mov $zname,"Nefertiti Lamias"
mov $zlavel,"lamias"
itoa2 $zukan_ko,%2557
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2557=0 mov %hscene1,0
if %2557>0 mov %hscene1,1
if %2557=0 mov %zukancg,0
if %2557>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"22"
mov $zukan_hp,"1700"
mov $zukan_skill1,"Group Handjob"
mov %zukan_skillc1,3228
mov $zukan_skill2,"Group Licking"
mov %zukan_skillc2,3229
mov $zukan_skill3,"Group Tailjob"
mov %zukan_skillc3,3230
mov $zukan_skill4,"Group Tightening"
mov %zukan_skillc4,3231
mov $zukan_skill5,"Group Blowjob"
mov %zukan_skillc5,3232
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_lamias_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\lamias.jpg",400,100
goto *zukan_kihonbtn



*zukan_lamias_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\lamias_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\lamias_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\lamias_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\lamias_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\lamias_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\lamias_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\lamias_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\lamias_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_lamias_cg

lsp 500,":c;bg\bg068.bmp",0,0
lsp 430,":c;chara\lamias_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamias_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamias_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamias_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamias_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamias_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamias_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamias_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamias_hb5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamias_hc1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamias_hc2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamias_hc3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamias_hd1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamias_hd2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamias_hd3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_lamias_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,22
mov %skill01,7
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *lamias_start
if %bwait=211 mov %nanido,2:goto *lamias_start
if %bwait=212 mov %nanido,3:goto *lamias_start
lsp 700,":a;chara\lamias_st02.bmp",0,0
bg "bg\bg068.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *lamias_h



;-----???????-----



*zukan_sphinx

mov $zname,"Sphinx"
mov $zlavel,"sphinx"
itoa2 $zukan_ko,%2558
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2819=0 mov %hscene1,0
if %2819>0 mov %hscene1,1
if %2819=0 mov %zukancg,0
if %2819>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"35"
mov $zukan_hp,"2600"
mov $zukan_skill1,"Finger Offering"
mov %zukan_skillc1,3233
mov $zukan_skill2,"Mouth Offering"
mov %zukan_skillc2,3234
mov $zukan_skill3,"Isis's Lovemaking"
mov %zukan_skillc3,3235
mov $zukan_skill4,"Kiss of Death"
mov %zukan_skillc4,3236
mov $zukan_skill5,"Ancient Law of Ecstasy"
mov %zukan_skillc5,3237
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_sphinx_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\sphinx.jpg",400,100
goto *zukan_kihonbtn



*zukan_sphinx_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\sphinx_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\sphinx_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\sphinx_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\sphinx_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\sphinx_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\sphinx_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\sphinx_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_sphinx_cg

lsp 500,":c;bg\bg069.bmp",0,0
lsp 430,":a;chara\sphinx_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\sphinx_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sphinx_h2.bmp",0,0
lsp 420,":a;chara\sphinx_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sphinx_h3.bmp",0,0
lsp 420,":a;chara\sphinx_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\sphinx_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sphinx_h4.bmp",-160,0
lsp 420,":a;chara\sphinx_cta01.bmp",400,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\sphinx_cta02.bmp",400,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\sphinx_cta03.bmp",400,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\sphinx_cta04.bmp",400,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\sphinx_cta05.bmp",400,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_sphinx_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,22
mov %skill01,7
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *sphinx_start
if %bwait=211 mov %nanido,2:goto *sphinx_start
if %bwait=212 mov %nanido,3:goto *sphinx_start
lsp 700,":a;chara\sphinx_st02.bmp",0,0
bg "bg\bg069.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *sphinx_h



;-----??-----



*zukan_sara

mov $zname,"Sara"
mov $zlavel,"sara"
mov $zukan_ko,"0"
mov %zukan_facenum,4
mov %zukan_posenum,3
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"10"
mov $zukan_hp,"85"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_sara_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\sara.jpg",400,100
goto *zukan_kihonbtn



*zukan_sara_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\sara_st01r.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\sara_st02r.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\sara_st03r.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\sara_st04r.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\sara_st11r.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\sara_st12r.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\sara_st13r.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\sara_st14r.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\sara_st21.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\sara_st22.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\sara_st23.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;chara\sara_st24.bmp",%zukan_x0,0
return



*zukan_sara_cg

lsp 500,":c;bg\bg067.bmp",0,0
lsp 420,":a;chara\sara_ha1r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\sara_ha2r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\sara_ha3r.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_sara_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,22
mov %skill01,7
mov %item01,9
gosub *setwindow_01
lsp 700,":a;chara\sara_st14r.bmp",0,0
bg "bg\bg067.bmp",10,1500
bgm"bgm\hutuu3.ogg"
if %bwait=213 goto *sean0146a



;-----?????-----



*zukan_suckvore

mov $zname,"Suck Vore"
mov $zlavel,"suckvore"
itoa2 $zukan_ko,%2559
mov %zukan_facenum,2
mov %zukan_posenum,2
mov %zukan_cumnum,2
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2559=0 mov %hscene1,0
if %2559>0 mov %hscene1,1
if %2559=0 mov %zukancg,0
if %2559>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"22"
mov $zukan_hp,"1200"
mov $zukan_skill1,"Full Body Tentacle Rub"
mov %zukan_skillc1,3238
mov $zukan_skill2,"Groin Tentacle Rub"
mov %zukan_skillc2,3239
mov $zukan_skill3,"Full Body Tentacle Suck"
mov %zukan_skillc3,3240
mov $zukan_skill4,"Genital Energy Suck"
mov %zukan_skillc4,3241
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_suckvore_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\suck.jpg",400,100
goto *zukan_kihonbtn



*zukan_suckvore_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\suckvore_st01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\suckvore_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\suckvore_st12.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\suckvore_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\suckvore_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=2 cspl 441,442
return



*zukan_suckvore_cg

lsp 500,":c;bg\bg071.bmp",0,0
lsp 430,":a;chara\suckvore_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\suckvore_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\suckvore_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\suckvore_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\suckvore_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\suckvore_h6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\suckvore_h7.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_suckvore_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,22
mov %skill01,7
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *suckvore_start
if %bwait=211 mov %nanido,2:goto *suckvore_start
if %bwait=212 mov %nanido,3:goto *suckvore_start
lsp 700,":a;chara\suckvore_st01.bmp",0,0
bg "bg\bg071.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *suckvore_h



;-----????????-----



*zukan_wormv

mov $zname,"Worm Villager"
mov $zlavel,"wormv"
itoa2 $zukan_ko,%2560
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,2
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2560=0 mov %hscene1,0
if %2560>0 mov %hscene1,1
if %2560=0 mov %zukancg,0
if %2560>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"22"
mov $zukan_hp,"1400"
mov $zukan_skill1,"Worm Touch"
mov %zukan_skillc1,3242
mov $zukan_skill2,"Worm Caress"
mov %zukan_skillc2,3243
mov $zukan_skill3,"Worm Drain"
mov %zukan_skillc3,3244
mov $zukan_skill4,"Worm Spread"
mov %zukan_skillc4,3245
mov $zukan_skill5,"Anal Stroke"
mov %zukan_skillc5,3246
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_wormv_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\wormv.jpg",400,100
goto *zukan_kihonbtn



*zukan_wormv_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=2 && %zukan_face=5 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,4
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\wormv_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\wormv_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\wormv_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\wormv_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\wormv_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\wormv_st13.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\wormv_st14.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\wormv_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\wormv_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=2 cspl 441,442
return



*zukan_wormv_cg

lsp 500,":c;bg\bg071.bmp",0,0
lsp 430,":a;chara\wormv_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\wormv_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\wormv_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\wormv_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\wormv_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\wormv_h6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\wormv_h7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\wormv_h8.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\wormv_h9.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_wormv_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,22
mov %skill01,7
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *wormv_start
if %bwait=211 mov %nanido,2:goto *wormv_start
if %bwait=212 mov %nanido,3:goto *wormv_start
lsp 700,":a;chara\wormv_st02.bmp",0,0
bg "bg\bg071.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *wormv_h



;-----????????-----



*zukan_ironmaiden

mov $zname,"Iron Maiden"
mov $zlavel,"ironmaiden"
itoa2 $zukan_ko,%2561
mov %zukan_facenum,1
mov %zukan_posenum,3
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2561=0 mov %hscene1,0
if %2561>0 mov %hscene1,1
if %2561=0 mov %zukancg,0
if %2561>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"23"
mov $zukan_hp,"2000"
mov $zukan_skill1,"Nightmare Embrace"
mov %zukan_skillc1,3247
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_ironmaiden_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\maiden.jpg",400,100
goto *zukan_kihonbtn



*zukan_ironmaiden_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 lsp 450,":a;chara\ironmaiden_st01.bmp",%zukan_x0,0
if %zukan_pose=2 lsp 450,":a;chara\ironmaiden_st11.bmp",%zukan_x0,0
if %zukan_pose=3 lsp 450,":a;chara\ironmaiden_st21.bmp",%zukan_x0,0
return



*zukan_ironmaiden_cg

lsp 500,":c;bg\bg071.bmp",0,0
lsp 430,":a;chara\ironmaiden_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ironmaiden_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ironmaiden_h3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_ironmaiden_kaisou

bgmstop

csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,23
mov %skill01,7
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *ironmaiden_start
if %bwait=211 mov %nanido,2:goto *ironmaiden_start
if %bwait=212 mov %nanido,3:goto *ironmaiden_start
lsp 700,":a;chara\ironmaiden_st01.bmp",0,0
bg "bg\bg071.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *ironmaiden_h



;-----???-----



*zukan_lily

mov $zname,"Lily"
mov $zlavel,"lily"
itoa2 $zukan_ko,%2562
mov %zukan_facenum,4
mov %zukan_posenum,2
mov %zukan_cumnum,2
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2562=0 mov %hscene1,0
if %2562>0 mov %hscene1,1
if %2562=0 mov %zukancg,0
if %2562>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"30"
mov $zukan_hp,"2000"
mov $zukan_skill1,"Worm Touch"
mov %zukan_skillc1,3248
mov $zukan_skill2,"Worm Drain"
mov %zukan_skillc2,3249
mov $zukan_skill3,"Worm Ecstasy"
mov %zukan_skillc3,3250
mov $zukan_skill4,"Anal Drain"
mov %zukan_skillc4,3251
mov $zukan_skill5,"Worm Spread"
mov %zukan_skillc5,3252
mov $zukan_skill6,"Drain Heaven"
mov %zukan_skillc6,3253
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_lily_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\lily.jpg",400,100
goto *zukan_kihonbtn



*zukan_lily_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\lily_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\lily_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\lily_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\lily_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\lily_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\lily_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\lily_st13.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\lily_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\lily_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=2 cspl 441,442
return



*zukan_lily_cg

lsp 500,":c;bg\bg075.bmp",0,0
lsp 430,":a;chara\lily_h01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lily_h02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lily_h03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lily_h04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lily_h05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lily_h06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lily_h07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lily_h08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lily_h09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lily_h10.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lily_h11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lily_h12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lily_h13.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_lily_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,23
mov %skill01,7
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *lily_start
if %bwait=211 mov %nanido,2:goto *lily_start
if %bwait=212 mov %nanido,3:goto *lily_start
lsp 700,":a;chara\lily_st02.bmp",0,0
bg "bg\bg075.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *lily_h



;-----??????-----



*zukan_arizigoku

mov $zname,"Antlion Girl"
mov $zlavel,"arizigoku"
itoa2 $zukan_ko,%2563
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,1
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2563=0 mov %hscene1,0
if %2563>0 mov %hscene1,1
if %2563=0 mov %zukancg,0
if %2563>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"24"
mov $zukan_hp,"500"
mov $zukan_skill1,"Fluid Squeezing"
mov %zukan_skillc1,3254
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_arizigoku_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\ant.jpg",400,100
goto *zukan_kihonbtn



*zukan_arizigoku_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\arizigoku_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\arizigoku_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\arizigoku_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\arizigoku_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
return



*zukan_arizigoku_cg

lsp 430,":a;chara\arizigoku_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arizigoku_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arizigoku_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arizigoku_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_arizigoku_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,24
mov %skill01,7
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *arizigoku_start
if %bwait=211 mov %nanido,2:goto *arizigoku_start
if %bwait=212 mov %nanido,3:goto *arizigoku_start
lsp 700,":a;chara\arizigoku_h1.bmp",0,0
bg "bg\bg076.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *arizigoku_h



;-----???????-----



*zukan_sandw

mov $zname,"Sandworm"
mov $zlavel,"sandw"
itoa2 $zukan_ko,%2564
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,1
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2564=0 mov %hscene1,0
if %2564>0 mov %hscene1,1
if %2564=0 mov %zukancg,0
if %2564>0 mov %zukancg,1
mov %zukan_x1,-120
mov %zukan_x2,0
mov $zukan_lv,"24"
mov $zukan_hp,"2500"
mov $zukan_skill1,"Lick"
mov %zukan_skillc1,3255
mov $zukan_skill2,"Suck"
mov %zukan_skillc2,3256
mov $zukan_skill3,"Kiss"
mov %zukan_skillc3,3257
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_sandw_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\worm.jpg",400,100
goto *zukan_kihonbtn



*zukan_sandw_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\sandw_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\sandw_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\sandw_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\sandw_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
return



*zukan_sandw_cg

lsp 500,":c;bg\bg076.bmp",0,0
lsp 430,":a;chara\sandw_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sandw_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sandw_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\sandw_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sandw_h4.bmp",0,0
lsp 420,":a;chara\sandw_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sandw_h5.bmp",0,0
lsp 420,":a;chara\sandw_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\sandw_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_sandw_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,24
mov %skill01,7
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *sandw_start
if %bwait=211 mov %nanido,2:goto *sandw_start
if %bwait=212 mov %nanido,3:goto *sandw_start
lsp 700,":a;chara\sandw_h1.bmp",0,0
bg "bg\bg076.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *sandw_h



;-----???-----



*zukan_gnome

mov $zname,"Gnome"
mov $zlavel,"gnome"
itoa2 $zukan_ko,%2565
mov %zukan_facenum,4
mov %zukan_posenum,4
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2565=0 mov %hscene1,0
if %2565>0 mov %hscene1,1
if %2565=0 mov %zukancg,0
if %2565>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"50"
mov $zukan_hp,"4000"
mov $zukan_skill1,"Mud Doll Caress"
mov %zukan_skillc1,3258
mov $zukan_skill2,"Mud Doll Groin Fondle"
mov %zukan_skillc2,3259
mov $zukan_skill3,"Gnome's Hand Games"
mov %zukan_skillc3,3260
mov $zukan_skill4,"Gnome's Mouth Play"
mov %zukan_skillc4,3261
mov $zukan_skill5,"Gnome's Mud Vagina"
mov %zukan_skillc5,3262
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_gnome_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\gnome.jpg",400,100
goto *zukan_kihonbtn



*zukan_gnome_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose<3 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose<3 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=3 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;2Q\chara\gnome_st11.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;2Q\chara\gnome_st12.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;2Q\chara\gnome_st01.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;2Q\chara\gnome_st02.png",%zukan_x0,0
if %zukan_pose=3 lsp 450,":a;2Q\chara\gnome_st21.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\gnome_st31.bmp",%zukan_x0-40,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\gnome_st32.bmp",%zukan_x0-40,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\gnome_st33.bmp",%zukan_x0-40,0
if %zukan_pose=4 && %zukan_face=4 lsp 450,":a;chara\gnome_st34.bmp",%zukan_x0-40,0
if %zukan_cum1=1 lsp 441,":a;chara\gnome_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\gnome_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\gnome_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose=2 cspl 442,443
if %zukan_pose=3 cspl 441,443
if %zukan_pose=4 cspl 441,443
return



*zukan_gnome_cg

lsp 500,":c;bg\bg076.bmp",0,0
lsp 430,":a;chara\gnome_h0.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gnome_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gnome_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gnome_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gnome_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_gnome_kaisou

bgmstop

csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,24
mov %skill01,7
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *gnome_start
if %bwait=211 mov %nanido,2:goto *gnome_start
if %bwait=212 mov %nanido,3:goto *gnome_start
lsp 700,":a;2Q\chara\gnome_st01.png",0,0
lsp 701,":a;chara\doro_st01.bmp",230,0
lsp 702,":a;chara\doro_st02.bmp",-120,0
lsp 703,":a;chara\doro_st03.bmp",-180,0
lsp 704,":a;chara\doro_st03.bmp",240,0
bg "bg\bg076.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *gnome_h



;-----????-----



*zukan_irias1

mov $zname,"Goddess Ilias"
mov $zlavel,"irias1"
mov $zukan_ko,"0"
mov %zukan_facenum,6
mov %zukan_posenum,2
mov %zukan_cumnum,1
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"????"
mov $zukan_hp,"????"
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_irias1_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\iilias.jpg",400,100
goto *zukan_kihonbtn



*zukan_irias1_p

if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 mov %zukan_face,1
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\iriasu_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\iriasu_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\iriasu_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\iriasu_st04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\iriasu_st05.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\iriasu_st06.bmp",%zukan_x0,0
if %zukan_pose=2 lsp 450,":a;chara\iriasu_st14.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\iriasu_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose=2 csp 441
return



*zukan_irias1_cg

lsp 500,":c;bg\bg001.bmp",0,0
lsp 420,":a;chara\iriasu_ct01.bmp",478,0
lsp 430,":a;chara\iriasu_st02.bmp",-100,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\iriasu_ct02.bmp",478,0
lsp 421,":a;chara\iriasu_bk01.bmp",-100,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_irias1_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,24
mov %skill01,7
mov %item01,9
gosub *setwindow_01
lsp 700,":a;chara\iriasu_st04.bmp",0,0
bg "bg\bg001.bmp",10,1500
bgm"BGM\irias.ogg"
if %bwait=213 goto *hansei_h

;-----???????2-----



*zukan_alice2

mov $zname,"Alice (2)"
mov $zlavel,"alice2"
mov $zukan_ko,"None"
mov %zukan_facenum,10
mov %zukan_posenum,5
mov %zukan_cumnum,0
mov %zukan_battlenum,0
if %hsean_alice6=0 mov %zukan_hscenenum,0
if %hsean_alice6=1 mov %zukan_hscenenum,1:mov %hscene1,1
if %hsean_alice7=1 mov %zukan_hscenenum,2:mov %hscene1,1:mov %hscene2,1
if %hsean_alice8=1 mov %zukan_hscenenum,3:mov %hscene1,1:mov %hscene2,1:mov %hscene3,1
if %hsean_alice6=0 mov %zukancg,0
if %hsean_alice6>0 mov %zukancg,1
mov %zukan_x1,-20
mov %zukan_x2,150
mov $zukan_lv,"145"
mov $zukan_hp,"32000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_alice2_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\alice2.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_alice2_p

if %zukan_pose=6 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,5
if %zukan_pose<5 && %zukan_face=11 mov %zukan_face,1
if %zukan_pose<5 && %zukan_face=0 mov %zukan_face,10
if %zukan_pose=5 mov %zukan_face,1

if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\alice_st01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\alice_st01b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\alice_st11.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\alice_st11b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\alice_st02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\alice_st02b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\alice_st12.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\alice_st12b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\alice_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\alice_st03b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\alice_st13.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\alice_st13b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\alice_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\alice_st04b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;chara\alice_st14.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=4 lsp 450,":a;chara\alice_st14b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\alice_st05.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=5 lsp 450,":a;chara\alice_st05b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=5 lsp 450,":a;chara\alice_st15.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=5 lsp 450,":a;chara\alice_st15b.png",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\alice_st06.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=6 lsp 450,":a;chara\alice_st06b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=6 lsp 450,":a;chara\alice_st16.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=6 lsp 450,":a;chara\alice_st16bre.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=7 lsp 450,":a;chara\alice_st07.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=7 lsp 450,":a;chara\alice_st07b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=7 lsp 450,":a;chara\alice_st17.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=7 lsp 450,":a;chara\alice_st17bre.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=8 lsp 450,":a;chara\alice_st08.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=8 lsp 450,":a;chara\alice_st08b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=8 lsp 450,":a;chara\alice_st18.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=8 lsp 450,":a;chara\alice_st18bre.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=9 lsp 450,":a;chara\alice_st09.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=9 lsp 450,":a;chara\alice_st09b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=9 lsp 450,":a;chara\alice_st19.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=9 lsp 450,":a;chara\alice_st19bre.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=10 lsp 450,":a;chara\alice_st51.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=10 lsp 450,":a;chara\alice_st51b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=10 lsp 450,":a;chara\alice_st61.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=10 lsp 450,":a;chara\alice_st61b.bmp",%zukan_x0-80,0

if %zukan_pose=5 && %zukan_face=1 lsp 450,":a;chara\alice_st31.bmp",%zukan_x0+80,125

return



*zukan_alice2_cg

lsp 430,":a;chara\alice_h06_1r.bmp",0,0
lsp 500,":c;bg\bg083.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h06_2r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h06_3r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h06_4r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h06_5r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h06_6r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h06_7r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel

if %hsean_alice7=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h07_1r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h07_2r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h07_3r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h07_4r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h07_5r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel

if %hsean_alice8=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h08_1r.bmp",0,0
lsp 500,":c;bg\bg164.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h08_2r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h08_3r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h08_4r.bmp",0,0
print 10,500:lrclick

return "*zukan_"+$zlavel



*zukan_alice2_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,25
mov %skill01,0
mov %item01,1
mov $name,"Alice"
gosub *setwindow_01
if %bwait=213 bgm"2Q\bgmfix\hutuu1.ogg":mov %mylv,26:lsp 699,":a;chara\alice_st91b.bmp",67,0:lsp 700,":a;chara\alice_st02b.bmp",67,0:bg "bg\bg083.bmp",10,1500:goto *sean0163a
if %bwait=214 mov %mylv,38:lsp 699,":a;chara\alice_st91b.bmp",67,0:lsp 700,":a;chara\alice_st01b.bmp",67,0:bg "bg\bg083.bmp",10,1500:goto *sean0203a
if %bwait=215 mov %mylv,52:lsp 699,":a;chara\alice_st91b.bmp",67,0:lsp 700,":a;chara\alice_st01b.bmp",67,0:bg "bg\bg164.bmp",10,1500:goto *sean0279a



;-----???????-----



*zukan_centa

mov $zname,"Centaur Girl"
mov $zlavel,"centa"
itoa2 $zukan_ko,%2566
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2566=0 mov %hscene1,0
if %2566>0 mov %hscene1,1
if %2566=0 mov %zukancg,0
if %2566>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"25"
mov $zukan_hp,"1500"
mov $zukan_skill1,"Centaur Kiss"
mov %zukan_skillc1,3263
mov $zukan_skill2,"Centaur Handjob"
mov %zukan_skillc2,3264
mov $zukan_skill3,"Centaur Blowjob"
mov %zukan_skillc3,3265
mov $zukan_skill4,"Centaur Rape"
mov %zukan_skillc4,3266
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_centa_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\centa.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_centa_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\centa_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\centa_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\centa_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\centa_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\centa_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\centa_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\centa_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\centa_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_centa_cg

lsp 500,":c;bg\bg077.bmp",0,0
lsp 430,":a;chara\centa_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\centa_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\centa_ct02.bmp",0,0
lsp 430,":a;chara\centa_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\centa_ct03.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_centa_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,25
mov %skill01,7
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *centa_start
if %bwait=211 mov %nanido,2:goto *centa_start
if %bwait=212 mov %nanido,3:goto *centa_start
lsp 700,":a;chara\centa_st02.bmp",0,0
bg "bg\bg077.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *centa_h



;-----????-----



*zukan_kaeru

mov $zname,"Frog Girls"
mov $zlavel,"kaeru"
itoa2 $zukan_ko,%2567
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2820=0 mov %hscene1,0
if %2820>0 mov %hscene1,1
if %2821=0 mov %hscene2,0
if %2821>0 mov %hscene2,1
if %2567=0 mov %zukancg,0
if %2567>0 mov %zukancg,1
mov %zukan_x1,-42
mov %zukan_x2,158
mov $zukan_lv,"26"
mov $zukan_hp,"1600"
mov $zukan_skill1,"Frog Handjob"
mov %zukan_skillc1,3267
mov $zukan_skill2,"Frog Footjob"
mov %zukan_skillc2,3268
mov $zukan_skill3,"Frog Tit Fuck"
mov %zukan_skillc3,3269
mov $zukan_skill4,"Full-Body Licking Attack"
mov %zukan_skillc4,3270
mov $zukan_skill5,"Groin Licking Attack"
mov %zukan_skillc5,3271
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_kaeru_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\frog.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_kaeru_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\kaerua_st01.bmp",%zukan_x0,50
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\kaerua_st02.bmp",%zukan_x0,50
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\kaerua_st03.bmp",%zukan_x0,50
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\kaerub_st01.bmp",%zukan_x0-4,50
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\kaerub_st02.bmp",%zukan_x0-4,50
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\kaerub_st03.bmp",%zukan_x0-4,50
if %zukan_cum1=1 && %zukan_pose=1 lsp 441,":a;chara\kaerua_bk01.bmp",%zukan_x0,50
if %zukan_cum1=1 && %zukan_pose=2 lsp 441,":a;chara\kaerub_bk01.bmp",%zukan_x0-4,50
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 && %zukan_pose=1 lsp 442,":a;chara\kaerua_bk02.bmp",%zukan_x0,50
if %zukan_cum2=1 && %zukan_pose=2 lsp 442,":a;chara\kaerub_bk02.bmp",%zukan_x0-4,50
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 && %zukan_pose=1 lsp 443,":a;chara\kaerua_bk03.bmp",%zukan_x0,50
if %zukan_cum3=1 && %zukan_pose=2 lsp 443,":a;chara\kaerub_bk03.bmp",%zukan_x0-4,50
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 && %zukan_pose=1 lsp 444,":a;chara\kaerua_bk04.bmp",%zukan_x0,50
if %zukan_cum4=1 && %zukan_pose=2 lsp 444,":a;chara\kaerub_bk04.bmp",%zukan_x0-4,50
if %zukan_cum4=0 csp 444
return



*zukan_kaeru_cg

lsp 500,":c;bg\bg079.bmp",0,0
if %2820=0 skip 17
lsp 430,":c;chara\kaeru_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\kaeru_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\kaeru_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\kaeru_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\kaeru_ha5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\kaeru_ha6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\kaeru_ha7.bmp",0,0
print 10,500:lrclick
if %2821=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\kaeru_hb0.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\kaeru_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\kaeru_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\kaeru_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\kaeru_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_kaeru_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,26
mov %skill01,8
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *kaeru_start
if %bwait=211 mov %nanido,2:goto *kaeru_start
if %bwait=212 mov %nanido,3:goto *kaeru_start
if %bwait=213 lsp 700,":c;chara\kaeru_ha1.bmp",0,0:print 10,500
if %bwait=214 lsp 700,":a;chara\kaerua_st02.bmp",0,50
if %bwait=214 lsp 702,":a;chara\kaerub_st02.bmp",360,50
bg "bg\bg079.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *kaeru_ha
if %bwait=214 goto *kaeru_hb



;-----?????-----



*zukan_alraune

mov $zname,"Alraune"
mov $zlavel,"alraune"
itoa2 $zukan_ko,%2568
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2568=0 mov %hscene1,0
if %2568>0 mov %hscene1,1
if %2568=0 mov %zukancg,0
if %2568>0 mov %zukancg,1
mov %zukan_x1,-53
mov %zukan_x2,147
mov $zukan_lv,"26"
mov $zukan_hp,"1700"
mov $zukan_skill1,"Alraune's Blowjob"
mov %zukan_skillc1,3272
mov $zukan_skill2,"Alraune's Tit Fuck"
mov %zukan_skillc2,3273
mov $zukan_skill3,"Alraune's Fragrance"
mov %zukan_skillc3,3274
mov $zukan_skill4,"Succubus Flower"
mov %zukan_skillc4,3275
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_alraune_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\alraune.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_alraune_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\alraune_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\alraune_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\alraune_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\alraune_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\alraune_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\alraune_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_alraune_cg

lsp 500,":c;bg\bg078.bmp",0,0
lsp 430,":a;chara\alraune_st02.bmp",147,0
lsp 420,":a;chara\alraune_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alraune_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alraune_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\alraune_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alraune_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alraune_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alraune_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alraune_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alraune_h6.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_alraune_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,26
mov %skill01,8
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *alraune_start
if %bwait=211 mov %nanido,2:goto *alraune_start
if %bwait=212 mov %nanido,3:goto *alraune_start
lsp 700,":a;chara\alraune_st02.bmp",147,0
bg "bg\bg078.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *alraune_h



;-----?????-----



*zukan_durahan

mov $zname,"Dullahan"
mov $zlavel,"durahan"
itoa2 $zukan_ko,%2569
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2569=0 mov %hscene1,0
if %2569>0 mov %hscene1,1
if %2569=0 mov %zukancg,0
if %2569>0 mov %zukancg,1
mov %zukan_x1,28
mov %zukan_x2,228
mov $zukan_lv,"27"
mov $zukan_hp,"2000"
mov $zukan_skill1,"Degeneration: Hand"
mov %zukan_skillc1,3276
mov $zukan_skill2,"Degeneration: Breast"
mov %zukan_skillc2,3277
mov $zukan_skill3,"Degeneration: Hair"
mov %zukan_skillc3,3278
mov $zukan_skill4,"Degeneration: Mouth"
mov %zukan_skillc4,3279
mov $zukan_skill5,"Restraint: Hand"
mov %zukan_skillc5,3280
mov $zukan_skill6,"Restraint: Breast"
mov %zukan_skillc6,3281
mov $zukan_skill7,"Restraint: Hair"
mov %zukan_skillc7,3282
mov $zukan_skill8,"Restraint: Mouth"
mov %zukan_skillc8,3283
mov $zukan_skill9,"Kiss of Ecstasy"
mov %zukan_skillc9,3284
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_durahan_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\dulla.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_durahan_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\durahan_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\durahan_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\durahan_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\durahan_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\durahan_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\durahan_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\durahan_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\durahan_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_durahan_cg

lsp 500,":c;bg\bg084.bmp",0,0
lsp 430,":a;chara\durahan_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\durahan_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\durahan_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\durahan_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\durahan_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\durahan_h6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\durahan_h7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\durahan_h8.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_durahan_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,26
mov %skill01,8
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *durahan_start
if %bwait=211 mov %nanido,2:goto *durahan_start
if %bwait=212 mov %nanido,3:goto *durahan_start
lsp 700,":a;chara\durahan_st02.bmp",228,0
bg "bg\bg084.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *durahan_h



;-----?????-----



*zukan_kerberos

mov $zname,"Cerberus"
mov $zlavel,"kerberos"
itoa2 $zukan_ko,%2570
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2822=0 mov %hscene1,0
if %2822>0 mov %hscene1,1
if %2823=0 mov %hscene2,0
if %2823>0 mov %hscene2,1
if %2570=0 mov %zukancg,0
if %2570>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"27"
mov $zukan_hp,"2000"
mov $zukan_skill1,"Shake Job"
mov %zukan_skillc1,3285
mov $zukan_skill2,"Triple Tit Fuck"
mov %zukan_skillc2,3286
mov $zukan_skill3,"Triple Blowjob"
mov %zukan_skillc3,3287
mov $zukan_skill4,"Evil Dog's Adultery"
mov %zukan_skillc4,3288
mov $zukan_skill5,"Wild Shake"
mov %zukan_skillc5,3289
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_kerberos_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\cerb.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_kerberos_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\kerberos_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\kerberos_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\kerberos_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\kerberos_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\kerberos_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\kerberos_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\kerberos_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_kerberos_cg

lsp 500,":c;bg\bg084.bmp",0,0
lsp 430,":a;chara\kerberos_st02.bmp",0,0
lsp 420,":a;chara\kerberos_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kerberos_ct02.bmp",0,0
lsp 421,":a;chara\kerberos_bk04.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kerberos_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kerberos_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_kerberos_kaisou

bgmstop

csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,27
mov %skill01,8
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *kerberos_start
if %bwait=211 mov %nanido,2:goto *kerberos_start
if %bwait=212 mov %nanido,3:goto *kerberos_start
lsp 700,":a;chara\kerberos_st02.bmp",0,0
bg "bg\bg084.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *kerberos_ha
if %bwait=214 goto *kerberos_hb



;-----??????(2)-----



*zukan_arumaeruma2

mov $zname,"Alma Elma (2)"
mov $zlavel,"arumaeruma2"
itoa2 $zukan_ko,%2571
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2824=0 mov %hscene1,0
if %2824>0 mov %hscene1,1
if %2825=0 mov %hscene2,0
if %2825>0 mov %hscene2,1
if %2571=0 mov %zukancg,0
if %2571>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"125"
mov $zukan_hp,"15000"
mov $zukan_skill1,"Melty Hand"
mov %zukan_skillc1,3290
mov $zukan_skill2,"Sweet Blow"
mov %zukan_skillc2,3291
mov $zukan_skill3,"Succubatic Footwork"
mov %zukan_skillc3,3292
mov $zukan_skill4,"Succubus Arts"
mov %zukan_skillc4,3602
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_arumaeruma2_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\alma2.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_arumaeruma2_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\arumaeruma_st21.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\arumaeruma_st22.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\arumaeruma_st23.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;2Q\chara\arumaeruma_st11.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;2Q\chara\arumaeruma_st11.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;2Q\chara\arumaeruma_st13.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\arumaeruma_bk01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\arumaeruma_bk02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\arumaeruma_bk03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum4=1 lsp 444,":a;chara\arumaeruma_bk04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum5=1 lsp 445,":a;chara\arumaeruma_bk13.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum6=1 lsp 446,":a;chara\arumaeruma_bk16.bmp",%zukan_x0,0
return



*zukan_arumaeruma2_cg

lsp 500,":c;bg\bg084.bmp",0,0
if %2824=0 skip 11
lsp 430,":a;chara\arumaeruma_he1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_he2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_he3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_he4.bmp",0,0
print 10,500:lrclick
if %2825=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_hf1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\arumaeruma_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\arumaeruma_ct12.bmp",0,0
lsp 430,":a;chara\arumaeruma_hf2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\arumaeruma_ct13.bmp",0,0
lsp 430,":a;chara\arumaeruma_hf3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_arumaeruma2_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,28
mov %skill01,8
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *arumaeruma2_start
if %bwait=211 mov %nanido,2:goto *arumaeruma2_start
if %bwait=212 mov %nanido,3:goto *arumaeruma2_start
lsp 700,":a;chara\arumaeruma_st22.bmp",0,0
bg "bg\bg084.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov $name,"Alma Elma"
if %bwait=213 goto *arumaeruma2_ha
if %bwait=214 goto *arumaeruma2_hb



;-----??-----



*zukan_yukionna

mov $zname,"Yuki-onna"
mov $zlavel,"yukionna"
itoa2 $zukan_ko,%2572
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2826=0 mov %hscene1,0
if %2826>0 mov %hscene1,1
if %2827=0 mov %hscene2,0
if %2827>0 mov %hscene2,1
if %2572=0 mov %zukancg,0
if %2572>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"28"
mov $zukan_hp,"1800"
mov $zukan_skill1,"Icicle Hair"
mov %zukan_skillc1,3293
mov $zukan_skill2,"Ice Handjob"
mov %zukan_skillc2,3294
mov $zukan_skill3,"Freezing Mouth"
mov %zukan_skillc3,3295
mov $zukan_skill4,"Frozen Kiss"
mov %zukan_skillc4,3296
mov $zukan_skill5,"Chilling Embrace"
mov %zukan_skillc5,3297
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_yukionna_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\yuki.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_yukionna_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\yukionna_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\yukionna_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\yukionna_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\yukionna_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\yukionna_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\yukionna_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\yukionna_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\yukionna_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_yukionna_cg

lsp 500,":c;bg\bg085.bmp",0,0
if %2826=0 skip 20
lsp 430,":a;chara\yukionna_h1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yukionna_h2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yukionna_h3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yukionna_h4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yukionna_h5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yukionna_h6.bmp",0,0
print 10,500:lrclick
if %2827=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yukionna_st11.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\yukionna_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\yukionna_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\yukionna_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\yukionna_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_yukionna_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,28
mov %skill01,8
mov %skill02,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *yukionna_start
if %bwait=211 mov %nanido,2:goto *yukionna_start
if %bwait=212 mov %nanido,3:goto *yukionna_start
if %bwait=213 lsp 700,":a;chara\yukionna_st02.bmp",0,0
if %bwait=214 lsp 700,":a;chara\yukionna_st11.bmp",0,0
bg "bg\bg085.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *yukionna_ha
if %bwait=214 goto *yukionna_hb


;-----????-----



*zukan_nekomata

mov $zname,"Nekomata"
mov $zlavel,"nekomata"
itoa2 $zukan_ko,%2573
mov %zukan_facenum,7
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2573=0 mov %hscene1,0
if %2573>0 mov %hscene1,1
if %2573=0 mov %zukancg,0
if %2573>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"28"
mov $zukan_hp,"1800"
mov $zukan_skill1,"Bushy Tailjob"
mov %zukan_skillc1,3298
mov $zukan_skill2,"Squishy Pawjob"
mov %zukan_skillc2,3299
mov $zukan_skill3,"Hairy Tit Fuck"
mov %zukan_skillc3,3300
mov $zukan_skill4,"Rough Tongue Blowjob"
mov %zukan_skillc4,3301
mov $zukan_skill5,"Cat in Heat"
mov %zukan_skillc5,3302
mov $zukan_skill6,"Perverted Cat"
mov %zukan_skillc6,3303
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_nekomata_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\neko.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_nekomata_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\nekomata_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\nekomata_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\nekomata_st03.bmp",%zukan_x0,0
if %zukan_face=4 lsp 450,":a;chara\nekomata_st04.bmp",%zukan_x0,0
if %zukan_face=5 lsp 450,":a;chara\nekomata_st05.bmp",%zukan_x0,0
if %zukan_face=6 lsp 450,":a;chara\nekomata_st06.bmp",%zukan_x0,0
if %zukan_face=7 lsp 450,":a;chara\nekomata_st07.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\nekomata_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\nekomata_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\nekomata_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\nekomata_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\nekomata_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_nekomata_cg

lsp 500,":c;bg\bg086.bmp",0,0
lsp 430,":a;chara\nekomata_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\nekomata_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\nekomata_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\nekomata_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\nekomata_h5.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_nekomata_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,28
mov %skill01,8
mov %skill02,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *nekomata_start
if %bwait=211 mov %nanido,2:goto *nekomata_start
if %bwait=212 mov %nanido,3:goto *nekomata_start
lsp 700,":a;chara\nekomata_st02.bmp",0,0
bg "bg\bg086.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *nekomata_h



;-----???????-----



*zukan_samuraielf

mov $zname,"Samurai Elf"
mov $zlavel,"samuraielf"
itoa2 $zukan_ko,%2574
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2574=0 mov %hscene1,0
if %2574>0 mov %hscene1,1
if %2574=0 mov %zukancg,0
if %2574>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"29"
mov $zukan_hp,"1200"
mov $zukan_skill1,"Double Handjob"
mov %zukan_skillc1,3304
mov $zukan_skill2,"Double Breast Pressure"
mov %zukan_skillc2,3305
mov $zukan_skill3,"Double Mouth Attack"
mov %zukan_skillc3,3306
mov $zukan_skill4,"Choking Breast Pin"
mov %zukan_skillc4,3307
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_samuraielf_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\samu.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_samuraielf_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\samuraielf_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\samuraielf_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\samuraielf_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\samuraielf_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\samuraielf_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\samuraielf_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\samuraielf_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\samuraielf_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_samuraielf_cg

lsp 500,":c;bg\bg086.bmp",0,0
lsp 430,":a;chara\samuraielf_st02.bmp",0,0
lsp 420,":a;chara\samuraielf_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\samuraielf_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\samuraielf_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\samuraielf_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_samuraielf_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,29
mov %skill01,8
mov %skill02,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *waelf_start
if %bwait=211 mov %nanido,2:goto *waelf_start
if %bwait=212 mov %nanido,3:goto *waelf_start
lsp 700,":a;chara\samuraielf_st02.bmp",-170,0
lsp 702,":a;chara\kunoitielf_st02.bmp",170,0
bg "bg\bg086.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *waelf_ha



;-----???????-----



*zukan_kunoitielf

mov $zname,"Kunoichi Elf"
mov $zlavel,"kunoitielf"
itoa2 $zukan_ko,%2643
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2643=0 mov %hscene1,0
if %2643>0 mov %hscene1,1
if %2643=0 mov %zukancg,0
if %2643>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"29"
mov $zukan_hp,"1400"
mov $zukan_skill1,"Leg Skill: Trample"
mov %zukan_skillc1,3664
mov $zukan_skill2,"Hand Skill: Spider"
mov %zukan_skillc2,3308
mov $zukan_skill3,"Breast Skill: Pressure"
mov %zukan_skillc3,3309
mov $zukan_skill4,"Mouth Skill: Devour"
mov %zukan_skillc4,3310
mov $zukan_skill5,"Ultm. Skill: Pussy Exhaustion"
mov %zukan_skillc5,3311
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_kunoitielf_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\kuno.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_kunoitielf_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\kunoitielf_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\kunoitielf_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\kunoitielf_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\kunoitielf_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\kunoitielf_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\kunoitielf_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\kunoitielf_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\kunoitielf_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\kunoitielf_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
return



*zukan_kunoitielf_cg

lsp 500,":c;bg\bg086.bmp",0,0
lsp 430,":a;chara\kunoitielf_st02.bmp",0,0
lsp 420,":a;chara\kunoitielf_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kunoitielf_ct02.bmp",0,0
lsp 421,":a;chara\kunoitielf_bk05.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kunoitielf_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kunoitielf_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_kunoitielf_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,29
mov %skill01,8
mov %skill02,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *waelf_start
if %bwait=211 mov %nanido,2:goto *waelf_start
if %bwait=212 mov %nanido,3:goto *waelf_start
lsp 700,":a;chara\kunoitielf_st02.bmp",0,0
bg "bg\bg086.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *waelf_hb



;-----???????-----



*zukan_yamatanooroti

mov $zname,"Yamata no Orochi"
mov $zlavel,"yamatanooroti"
itoa2 $zukan_ko,%2575
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,2
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2575=0 mov %hscene1,0
if %2575>0 mov %hscene1,1
if %2575=0 mov %zukancg,0
if %2575>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"65"
mov $zukan_hp,"9500"
mov $zukan_skill1,"Sacrifice Tasting"
mov %zukan_skillc1,3312
mov $zukan_skill2,"Eight Head Assault"
mov %zukan_skillc2,3313
mov $zukan_skill3,"Unending Licking"
mov %zukan_skillc3,3314
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_yamatanooroti_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\yamata.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_yamatanooroti_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\yamatanooroti_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\yamatanooroti_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\yamatanooroti_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\yamatanooroti_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\yamatanooroti_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
return



*zukan_yamatanooroti_cg

lsp 500,":c;bg\bg092.bmp",0,0
lsp 430,":a;chara\yamatanooroti_h01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yamatanooroti_h02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yamatanooroti_h03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yamatanooroti_h04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yamatanooroti_h05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yamatanooroti_h06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yamatanooroti_h07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yamatanooroti_h08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yamatanooroti_h09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yamatanooroti_h10.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yamatanooroti_h11.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_yamatanooroti_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,29
mov %skill01,8
mov %skill02,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *yamatanooroti_start
if %bwait=211 mov %nanido,2:goto *yamatanooroti_start
if %bwait=212 mov %nanido,3:goto *yamatanooroti_start
lsp 700,":a;chara\yamatanooroti_st02.bmp",0,0
bg "bg\bg092.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *yamatanooroti_h



;-----???-----



*zukan_moss

mov $zname,"Moth Girl"
mov $zlavel,"moss"
itoa2 $zukan_ko,%2576
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2576=0 mov %hscene1,0
if %2576>0 mov %hscene1,1
if %2576=0 mov %zukancg,0
if %2576>0 mov %zukancg,1
mov %zukan_x1,30
mov %zukan_x2,230
mov $zukan_lv,"30"
mov $zukan_hp,"1200"
mov $zukan_skill1,"Six-Legged Caress"
mov %zukan_skillc1,3316
mov $zukan_skill2,"Double Bug Tit Fuck"
mov %zukan_skillc2,3318
mov $zukan_skill3,"Double Bug Blowjob"
mov %zukan_skillc3,3319
mov $zukan_skill4,"Pheromone Scales"
mov %zukan_skillc4,3315
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_moss_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\moth.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_moss_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\moss_st01.bmp",%zukan_x0,60
if %zukan_face=2 lsp 450,":a;chara\moss_st02.bmp",%zukan_x0,60
if %zukan_face=3 lsp 450,":a;chara\moss_st03.bmp",%zukan_x0,60
if %zukan_cum1=1 lsp 441,":a;chara\moss_bk01.bmp",%zukan_x0,60
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\moss_bk02.bmp",%zukan_x0,60
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\moss_bk03.bmp",%zukan_x0,60
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\moss_bk04.bmp",%zukan_x0,60
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\moss_bk05.bmp",%zukan_x0,60
if %zukan_cum5=0 csp 445
return



*zukan_moss_cg

lsp 500,":c;bg\bg093.bmp",0,0
lsp 430,":a;chara\moss_h1.bmp",0,0
lsp 420,":a;chara\moss_ct01.bmp",440,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\moss_h2.bmp",0,0
lsp 420,":a;chara\moss_ct02.bmp",440,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\moss_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\moss_h4.bmp",0,0
lsp 420,":a;chara\moss_ct03.bmp",440,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_moss_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,30
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *insects_start
if %bwait=211 mov %nanido,2:goto *insects_start
if %bwait=212 mov %nanido,3:goto *insects_start
lsp 700,":a;chara\moss_st02.bmp",-50,50
lsp 702,":a;chara\mosquito_st02.bmp",450,50
lsp 704,":a;chara\imomusi_st02.bmp",210,160
bg "bg\bg093.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *insects_ha



;-----??????-----



*zukan_mosquito

mov $zname,"Mosquito Girl"
mov $zlavel,"mosquito"
itoa2 $zukan_ko,%2644
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2644=0 mov %hscene1,0
if %2644>0 mov %hscene1,1
if %2644=0 mov %zukancg,0
if %2644>0 mov %zukancg,1
mov %zukan_x1,30
mov %zukan_x2,180
mov $zukan_lv,"30"
mov $zukan_hp,"1200"
mov $zukan_skill1,"Mosquito Handjob"
mov %zukan_skillc1,3317
mov $zukan_skill2,"Double Bug Tit Fuck"
mov %zukan_skillc2,3318
mov $zukan_skill3,"Double Bug Blowjob"
mov %zukan_skillc3,3319
mov $zukan_skill4,"Mosquito Tit Fuck"
mov %zukan_skillc4,3320
mov $zukan_skill5,"Double Insect Blowjob"
mov %zukan_skillc5,3321
mov $zukan_skill6,"Mosquito Drain"
mov %zukan_skillc6,3585
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_mosquito_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\mosq.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_mosquito_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\mosquito_st01.bmp",%zukan_x0,50
if %zukan_face=2 lsp 450,":a;chara\mosquito_st02.bmp",%zukan_x0,50
if %zukan_face=3 lsp 450,":a;chara\mosquito_st03.bmp",%zukan_x0,50
if %zukan_cum1=1 && %zukan_face=1 lsp 441,":a;chara\mosquito_bk01a.bmp",%zukan_x0,50
if %zukan_cum1=1 && %zukan_face=2 lsp 441,":a;chara\mosquito_bk01b.bmp",%zukan_x0,50
if %zukan_cum1=1 && %zukan_face=3 lsp 441,":a;chara\mosquito_bk01c.bmp",%zukan_x0,50
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\mosquito_bk02.bmp",%zukan_x0,50
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\mosquito_bk03.bmp",%zukan_x0,50
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\mosquito_bk04.bmp",%zukan_x0,50
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\mosquito_bk05.bmp",%zukan_x0,50
if %zukan_cum5=0 csp 445
return



*zukan_mosquito_cg

lsp 500,":c;bg\bg093.bmp",0,0
lsp 430,":a;chara\mosquito_h1.bmp",0,0
lsp 420,":a;chara\mosquito_ct01.bmp",440,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mosquito_h2.bmp",0,0
lsp 420,":a;chara\mosquito_ct02.bmp",440,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mosquito_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mosquito_h4.bmp",0,0
lsp 420,":a;chara\mosquito_ct03.bmp",440,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_mosquito_kaisou

bgmstop

csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,30
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *insects_start
if %bwait=211 mov %nanido,2:goto *insects_start
if %bwait=212 mov %nanido,3:goto *insects_start
lsp 700,":a;chara\mosquito_st02.bmp",380,50
lsp 702,":a;chara\imomusi_st02.bmp",0,160
bg "bg\bg093.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *insects_hb



;-----?????-----



*zukan_imomusi

mov $zname,"Caterpillar Girl"
mov $zlavel,"imomusi"
itoa2 $zukan_ko,%2645
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,2
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2645=0 mov %hscene1,0
if %2645>0 mov %hscene1,1
if %2645=0 mov %zukancg,0
if %2645>0 mov %zukancg,1
mov %zukan_x1,-20
mov %zukan_x2,180
mov $zukan_lv,"22"
mov $zukan_hp,"800"
mov $zukan_skill1,"Double Insect Blowjob"
mov %zukan_skillc1,3321
mov $zukan_skill2,"Sticky Silk"
mov %zukan_skillc2,3322
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_imomusi_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\cater.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_imomusi_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\imomusi_st01.bmp",%zukan_x0,140
if %zukan_face=2 lsp 450,":a;chara\imomusi_st02.bmp",%zukan_x0,140
if %zukan_face=3 lsp 450,":a;chara\imomusi_st03.bmp",%zukan_x0,140
if %zukan_cum1=1 lsp 441,":a;chara\imomusi_bk01.bmp",%zukan_x0,140
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\imomusi_bk02.bmp",%zukan_x0,140
if %zukan_cum2=0 csp 442
return



*zukan_imomusi_cg

lsp 500,":c;bg\bg093.bmp",0,0
lsp 430,":a;chara\imomusi_h1a.bmp",180,160
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\imomusi_h2a.bmp",180,160
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\imomusi_h1.bmp",180,160
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\imomusi_h2.bmp",180,160
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\imomusi_h3.bmp",180,160
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\imomusi_h4.bmp",180,160
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_imomusi_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,30
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *insects_start
if %bwait=211 mov %nanido,2:goto *insects_start
if %bwait=212 mov %nanido,3:goto *insects_start
lsp 700,":a;chara\mosquito_st02.bmp",380,50
lsp 702,":a;chara\imomusi_st02.bmp",0,160
bg "bg\bg093.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *insects_hc



;-----????-----



*zukan_mukade

mov $zname,"Centipede Girl"
mov $zlavel,"mukade"
itoa2 $zukan_ko,%2577
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2577=0 mov %hscene1,0
if %2577>0 mov %hscene1,1
if %2577=0 mov %zukancg,0
if %2577>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"30"
mov $zukan_hp,"1800"
mov $zukan_skill1,"Sweet Mouth"
mov %zukan_skillc1,3323
mov $zukan_skill2,"Centipede Attack"
mov %zukan_skillc2,3324
mov $zukan_skill3,"Centipede Trample"
mov %zukan_skillc3,3325
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_mukade_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\centi.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_mukade_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\mukade_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\mukade_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\mukade_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\mukade_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\mukade_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\mukade_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_mukade_cg

lsp 500,":c;bg\bg094.bmp",0,0
lsp 430,":a;chara\mukade_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mukade_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mukade_h2.bmp",0,0
lsp 420,":a;chara\mukade_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\mukade_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mukade_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mukade_h4.bmp",0,0
lsp 420,":a;chara\mukade_ct04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mukade_h5.bmp",0,0
lsp 420,":a;chara\mukade_ct05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\mukade_ct06.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_mukade_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,30
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *mukade_start
if %bwait=211 mov %nanido,2:goto *mukade_start
if %bwait=212 mov %nanido,3:goto *mukade_start
lsp 700,":a;chara\mukade_st02.bmp",0,0
bg "bg\bg094.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *mukade_h



;-----????-----



*zukan_kaiko

mov $zname,"Silkworm Girl"
mov $zlavel,"kaiko"
itoa2 $zukan_ko,%2578
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2578=0 mov %hscene1,0
if %2578>0 mov %hscene1,1
if %2578=0 mov %zukancg,0
if %2578>0 mov %zukancg,1
mov %zukan_x1,-230
mov %zukan_x2,0
mov $zukan_lv,"31"
mov $zukan_hp,"2000"
mov $zukan_skill1,"Silky Blowjob"
mov %zukan_skillc1,3326
mov $zukan_skill2,"Silky Tit Fuck"
mov %zukan_skillc2,3327
mov $zukan_skill3,"Silky Pleasure"
mov %zukan_skillc3,3328
mov $zukan_skill4,"Intoxicating Cocoon"
mov %zukan_skillc4,3329
mov $zukan_skill5,"Semen Sucking Cocoon"
mov %zukan_skillc5,3330
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_kaiko_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\silk.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_kaiko_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\kaiko_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\kaiko_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\kaiko_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\kaiko_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\kaiko_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\kaiko_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_kaiko_cg

lsp 500,":c;bg\bg094.bmp",0,0
lsp 430,":a;chara\kaiko_st01.bmp",0,0
lsp 420,":a;chara\kumo_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kumo_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kumo_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kumo_ct04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\kaiko_h01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kaiko_h11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kaiko_h12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kaiko_h13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kaiko_h14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kaiko_h15.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kaiko_h21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kaiko_h22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kaiko_h23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kaiko_h24.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kaiko_h25.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_kaiko_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,31
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *kaiko_start
if %bwait=211 mov %nanido,2:goto *kaiko_start
if %bwait=212 mov %nanido,3:goto *kaiko_start
lsp 700,":a;chara\kaiko_st02.bmp",0,0
bg "bg\bg094.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *kaiko_h



;-----??????-----



*zukan_suzumebati

mov $zname,"Hornet Girl"
mov $zlavel,"suzumebati"
itoa2 $zukan_ko,%2579
mov %zukan_facenum,2
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2579=0 mov %hscene1,0
if %2579>0 mov %hscene1,1
if %2579=0 mov %zukancg,0
if %2579>0 mov %zukancg,1
mov %zukan_x1,-180
mov %zukan_x2,0
mov $zukan_lv,"31"
mov $zukan_hp,"2000"
mov $zukan_skill1,"Multiple Handjob"
mov %zukan_skillc1,3331
mov $zukan_skill2,"Honey Blowjob"
mov %zukan_skillc2,3332
mov $zukan_skill3,"Honey Rich Tit Fuck"
mov %zukan_skillc3,3333
mov $zukan_skill4,"Bee Dance"
mov %zukan_skillc4,3334
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_suzumebati_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\hornet.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_suzumebati_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\suzumebati_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\suzumebati_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\suzumebati_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\suzumebati_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\suzumebati_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\suzumebati_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_suzumebati_cg

lsp 500,":c;bg\bg022.bmp",0,0
lsp 430,":a;chara\suzumebati_st01.bmp",0,0
lsp 420,":a;chara\suzumebati_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\suzumebati_ct02.bmp",0,0
lsp 421,":a;chara\suzumebati_bk03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\suzumebati_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\suzumebati_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_suzumebati_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,31
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *suzumebati_start
if %bwait=211 mov %nanido,2:goto *suzumebati_start
if %bwait=212 mov %nanido,3:goto *suzumebati_start
lsp 700,":a;chara\suzumebati_st01.bmp",0,0
bg "bg\bg022.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *suzumebati_h



;-----????...??-----



*zukan_queenbee

mov $zname,"Queen Bee"
mov $zlavel,"queenbee"
itoa2 $zukan_ko,%2580
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2580=0 mov %hscene1,0
if %2580>0 mov %hscene1,1
if %2580=0 mov %zukancg,0
if %2580>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"45"
mov $zukan_hp,"3200"
mov $zukan_skill1,"Queen's Hand"
mov %zukan_skillc1,3335
mov $zukan_skill2,"Queen's Bust"
mov %zukan_skillc2,3336
mov $zukan_skill3,"Queen's Mouth"
mov %zukan_skillc3,3337
mov $zukan_skill4,"Pheromone Kiss"
mov %zukan_skillc4,3338
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_queenbee_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\queen.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_queenbee_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=1 lsp 450,":a;chara\queenbee_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\queenbee_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\queenbee_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\queenbee_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\queenbee_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\queenbee_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\queenbee_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\queenbee_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_queenbee_cg

lsp 500,":c;bg\bg022.bmp",0,0
lsp 430,":a;chara\queenbee_st02.bmp",0,0
lsp 420,":a;chara\queenbee_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenbee_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenbee_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenbee_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_queenbee_kaisou

bgmstop

csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,31
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *queenbee_start
if %bwait=211 mov %nanido,2:goto *queenbee_start
if %bwait=212 mov %nanido,3:goto *queenbee_start
lsp 700,":a;chara\queenbee_st02.bmp",0,0
bg "bg\bg022.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *queenbee_h



;-----???...???-----



*zukan_a_alm

mov $zname,"Alra Arum"
mov $zlavel,"a_alm"
itoa2 $zukan_ko,%2581
mov %zukan_facenum,2
mov %zukan_posenum,1
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2581=0 mov %hscene1,0
if %2581>0 mov %hscene1,1
if %2581=0 mov %zukancg,0
if %2581>0 mov %zukancg,1
mov %zukan_x1,0
mov %zukan_x2,200
mov $zukan_lv,"32"
mov $zukan_hp,"1600"
mov $zukan_skill1,"Arum Tit Fuck"
mov %zukan_skillc1,3343
mov $zukan_skill2,"Arum Blowjob"
mov %zukan_skillc2,3344
mov $zukan_skill3,"Lewd Flowers"
mov %zukan_skillc3,3345
mov $zukan_skill4,"Monster Flower Suck"
mov %zukan_skillc4,3346
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_a_alm_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\arma.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_a_alm_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\a_alm_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\a_alm_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\a_alm_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\a_alm_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\a_alm_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\a_alm_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\a_alm_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\a_alm_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
return



*zukan_a_alm_cg

lsp 500,":c;bg\bg022.bmp",0,0
lsp 430,":a;chara\a_alm_h1a.bmp",200,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_alm_ct01.bmp",480,0
lsp 430,":a;chara\a_alm_h2a.bmp",200,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_alm_ct02.bmp",480,0
lsp 430,":a;chara\a_alm_h3a.bmp",200,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_alm_ct03.bmp",480,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\a_alm_h1.bmp",200,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_alm_ct01.bmp",480,0
lsp 430,":a;chara\a_alm_h2.bmp",200,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_alm_ct02.bmp",480,0
lsp 430,":a;chara\a_alm_h3.bmp",200,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_alm_ct03.bmp",480,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_a_alm_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,32
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *plants1_start
if %bwait=211 mov %nanido,2:goto *plants1_start
if %bwait=212 mov %nanido,3:goto *plants1_start
lsp 700,":a;chara\a_alm_st01.bmp",200,0
bg "bg\bg022.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *plants1_hb



;-----???...?????-----



*zukan_a_looty

mov $zname,"Alra Rooty"
mov $zlavel,"a_looty"
itoa2 $zukan_ko,%2646
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2646=0 mov %hscene1,0
if %2646>0 mov %hscene1,1
if %2646=0 mov %zukancg,0
if %2646>0 mov %zukancg,1
mov %zukan_x1,20
mov %zukan_x2,220
mov $zukan_lv,"32"
mov $zukan_hp,"1400"
mov $zukan_skill1,"Double Tit Fuck"
mov %zukan_skillc1,3339
mov $zukan_skill2,"Double Blowjob"
mov %zukan_skillc2,3340
mov $zukan_skill3,"Rooty Caress"
mov %zukan_skillc3,3341
mov $zukan_skill4,"Rooty Draw"
mov %zukan_skillc4,3342
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_a_looty_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\rooty.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_a_looty_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\a_looty_st01.bmp",%zukan_x0,130
if %zukan_face=2 lsp 450,":a;chara\a_looty_st02.bmp",%zukan_x0,130
if %zukan_face=3 lsp 450,":a;chara\a_looty_st03.bmp",%zukan_x0,130
if %zukan_cum1=1 lsp 441,":a;chara\a_looty_bk01.bmp",%zukan_x0,130
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\a_looty_bk02.bmp",%zukan_x0,130
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\a_looty_bk03.bmp",%zukan_x0,130
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\a_looty_bk04.bmp",%zukan_x0,130
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\a_looty_bk05.bmp",%zukan_x0,130
if %zukan_cum5=0 csp 445
return



*zukan_a_looty_cg

lsp 500,":c;bg\bg022.bmp",0,0
lsp 430,":a;chara\a_looty_h1a.bmp",220,130
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_looty_h2a.bmp",220,130
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_looty_h3a.bmp",220,130
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_looty_h1.bmp",220,130
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_looty_h2.bmp",220,130
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_looty_h3.bmp",220,130
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_looty_h4.bmp",220,130
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_a_looty_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,32
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *plants1_start
if %bwait=211 mov %nanido,2:goto *plants1_start
if %bwait=212 mov %nanido,3:goto *plants1_start
lsp 700,":a;chara\a_looty_st02.bmp",220,130
bg "bg\bg022.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *plants1_ha



;-----???...??-----



*zukan_a_vore

mov $zname,"Alra Vore"
mov $zlavel,"a_vore"
itoa2 $zukan_ko,%2582
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2582=0 mov %hscene1,0
if %2582>0 mov %hscene1,1
if %2582=0 mov %zukancg,0
if %2582>0 mov %zukancg,1
mov %zukan_x1,-30
mov %zukan_x2,170
mov $zukan_lv,"32"
mov $zukan_hp,"1300"
mov $zukan_skill1,"Plant Suck"
mov %zukan_skillc1,3347
mov $zukan_skill2,"Plant Vore"
mov %zukan_skillc2,3348
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_a_vore_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\avore.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_a_vore_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\a_vore_st01.bmp",%zukan_x0,90
if %zukan_face=2 lsp 450,":a;chara\a_vore_st02.bmp",%zukan_x0,90
if %zukan_face=3 lsp 450,":a;chara\a_vore_st03.bmp",%zukan_x0,90
if %zukan_cum1=1 lsp 441,":a;chara\a_vore_bk01.bmp",%zukan_x0,90
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\a_vore_bk02.bmp",%zukan_x0,90
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\a_vore_bk03.bmp",%zukan_x0,90
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\a_vore_bk04.bmp",%zukan_x0,90
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\a_vore_bk05.bmp",%zukan_x0,90
if %zukan_cum5=0 csp 445
return



*zukan_a_vore_cg

lsp 500,":c;bg\bg094.bmp",0,0
lsp 430,":a;chara\a_vore_h1a.bmp",170,90
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_vore_h2a.bmp",170,90
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_vore_ct01.bmp",440,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_vore_ct02.bmp",440,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_vore_ct03.bmp",440,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_vore_ct04.bmp",440,0
lsp 430,":a;chara\a_vore_h3a.bmp",170,90
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\a_vore_h1.bmp",170,90
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_vore_h2.bmp",170,90
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_vore_ct01.bmp",440,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_vore_ct02.bmp",440,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_vore_ct03.bmp",440,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_vore_ct04.bmp",440,0
lsp 430,":a;chara\a_vore_h3.bmp",170,90
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_vore_ct05.bmp",440,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\a_vore_h4.bmp",170,90
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_vore_h4.bmp",80,90
lsp 420,":a;chara\a_vore_ct11.bmp",400,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_vore_ct12.bmp",400,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_vore_ct13.bmp",400,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_vore_ct14.bmp",400,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_vore_ct15.bmp",400,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_a_vore_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,32
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *plants2_start
if %bwait=211 mov %nanido,2:goto *plants2_start
if %bwait=212 mov %nanido,3:goto *plants2_start
lsp 700,":a;chara\a_vore_st02.bmp",170,130
bg "bg\bg094.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *plants2_ha



;-----???...????-----



*zukan_a_parasol

mov $zname,"Alra Parasol"
mov $zlavel,"a_parasol"
itoa2 $zukan_ko,%2647
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2647=0 mov %hscene1,0
if %2647>0 mov %hscene1,1
if %2647=0 mov %zukancg,0
if %2647>0 mov %zukancg,1
mov %zukan_x1,50
mov %zukan_x2,250
mov $zukan_lv,"32"
mov $zukan_hp,"1000"
mov $zukan_skill1,"Double Blowjob"
mov %zukan_skillc1,3349
mov $zukan_skill2,"Double Tit Fuck"
mov %zukan_skillc2,3350
mov $zukan_skill3,"Sweet Hand"
mov %zukan_skillc3,3351
mov $zukan_skill4,"Fungal Skirt"
mov %zukan_skillc4,3352
mov $zukan_skill5,"Seedbed Embrace"
mov %zukan_skillc5,3353
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_a_parasol_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\parasol.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_a_parasol_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\a_parasol_st01.bmp",%zukan_x0,40
if %zukan_face=2 lsp 450,":a;chara\a_parasol_st02.bmp",%zukan_x0,40
if %zukan_face=3 lsp 450,":a;chara\a_parasol_st03.bmp",%zukan_x0,40
if %zukan_cum1=1 lsp 441,":a;chara\a_parasol_bk01.bmp",%zukan_x0,40
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\a_parasol_bk02.bmp",%zukan_x0,40
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\a_parasol_bk03.bmp",%zukan_x0,40
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\a_parasol_bk04.bmp",%zukan_x0,40
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\a_parasol_bk05.bmp",%zukan_x0,40
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\a_parasol_bk06.bmp",%zukan_x0,40
if %zukan_cum6=0 csp 446
return



*zukan_a_parasol_cg

lsp 500,":c;bg\bg094.bmp",0,0
lsp 430,":a;chara\a_parasol_h1a.bmp",250,40
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_parasol_h2a.bmp",250,40
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_parasol_h1.bmp",250,40
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_parasol_h2.bmp",250,40
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_parasol_h3.bmp",250,40
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_parasol_h4.bmp",250,40
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_a_parasol_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,32
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *plants2_start
if %bwait=211 mov %nanido,2:goto *plants2_start
if %bwait=212 mov %nanido,3:goto *plants2_start
lsp 700,":a;chara\a_parasol_st02.bmp",250,30
bg "bg\bg094.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *plants2_hb



;-----???...????-----



*zukan_a_prison

mov $zname,"Alra Prison"
mov $zlavel,"a_prison"
itoa2 $zukan_ko,%2648
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2648=0 mov %hscene1,0
if %2648>0 mov %hscene1,1
if %2648=0 mov %zukancg,0
if %2648>0 mov %zukancg,1
mov %zukan_x1,-40
mov %zukan_x2,160
mov $zukan_lv,"32"
mov $zukan_hp,"1000"
mov $zukan_skill1,"Flower Footjob"
mov %zukan_skillc1,3354
mov $zukan_skill2,"Flower Intercrural"
mov %zukan_skillc2,3355
mov $zukan_skill3,"Flower Prison"
mov %zukan_skillc3,3356
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_a_prison_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\prison.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_a_prison_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\a_prison_st01.bmp",%zukan_x0,70
if %zukan_face=2 lsp 450,":a;chara\a_prison_st02.bmp",%zukan_x0,70
if %zukan_face=3 lsp 450,":a;chara\a_prison_st03.bmp",%zukan_x0,70
if %zukan_cum1=1 lsp 441,":a;chara\a_prison_bk01.bmp",%zukan_x0,70
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\a_prison_bk02.bmp",%zukan_x0,70
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\a_prison_bk03.bmp",%zukan_x0,70
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\a_prison_bk04.bmp",%zukan_x0,70
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\a_prison_bk05.bmp",%zukan_x0,70
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\a_prison_bk06.bmp",%zukan_x0,70
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\a_prison_bk07.bmp",%zukan_x0,70
if %zukan_cum7=0 csp 447
return



*zukan_a_prison_cg

lsp 500,":c;bg\bg094.bmp",0,0
lsp 430,":a;chara\a_prison_h1.bmp",160,70
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_prison_ct01.bmp",480,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_prison_ct02.bmp",480,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_prison_ct03.bmp",480,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_prison_ct04.bmp",480,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\a_prison_ct05.bmp",480,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_a_prison_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,32
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *plants2_start
if %bwait=211 mov %nanido,2:goto *plants2_start
if %bwait=212 mov %nanido,3:goto *plants2_start
lsp 700,":a;chara\a_prison_st02.bmp",160,70
bg "bg\bg094.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *plants2_hc



;-----???...??????-----



*zukan_a_emp

mov $zname,"Alra Priestess"
mov $zlavel,"a_emp"
itoa2 $zukan_ko,%2583
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,8
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2583=0 mov %hscene1,0
if %2583>0 mov %hscene1,1
if %2583=0 mov %zukancg,0
if %2583>0 mov %zukancg,1
mov %zukan_x1,-50
mov %zukan_x2,150
mov $zukan_lv,"35"
mov $zukan_hp,"2600"
mov $zukan_skill1,"Priestess Hair"
mov %zukan_skillc1,3357
mov $zukan_skill2,"Priestess Foot"
mov %zukan_skillc2,3358
mov $zukan_skill3,"Priestess Bust"
mov %zukan_skillc3,3359
mov $zukan_skill4,"Priestess Mouth"
mov %zukan_skillc4,3360
mov $zukan_skill5,"Queen's Foot Hell"
mov %zukan_skillc5,3361
mov $zukan_skill6,"Queen's Semen Sucking"
mov %zukan_skillc6,3362
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_a_emp_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\prince.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_a_emp_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\a_emp_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\a_emp_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\a_emp_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\a_emp_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\a_emp_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\a_emp_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\a_emp_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\a_emp_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\a_emp_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\a_emp_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
if %zukan_cum8=1 lsp 448,":a;chara\a_emp_bk08.bmp",%zukan_x0,0
if %zukan_cum8=0 csp 448
return



*zukan_a_emp_cg

lsp 500,":c;bg\bg095.bmp",0,0
lsp 430,":a;chara\a_emp_ha1a.bmp",130,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_emp_ha2a.bmp",130,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_emp_ha3a.bmp",130,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_emp_ha1.bmp",130,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_emp_ha2.bmp",130,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_emp_ha3.bmp",130,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_emp_ha4.bmp",130,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_emp_hb1a.bmp",130,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_emp_hb2a.bmp",130,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_emp_hb3a.bmp",130,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_emp_hb4a.bmp",130,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_emp_hb1.bmp",130,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_emp_hb2.bmp",130,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_emp_hb3.bmp",130,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\a_emp_hb4.bmp",130,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_a_emp_kaisou

bgmstop

csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,33
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *a_emp_start
if %bwait=211 mov %nanido,2:goto *a_emp_start
if %bwait=212 mov %nanido,3:goto *a_emp_start
lsp 700,":a;chara\a_emp_st02.bmp",150,0
bg "bg\bg095.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *a_emp_h



;-----?????...???-----



*zukan_dorothy

mov $zname,"Dorothy"
mov $zlavel,"dorothy"
itoa2 $zukan_ko,%2584
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2584=0 mov %hscene1,0
if %2584>0 mov %hscene1,1
if %2584=0 mov %zukancg,0
if %2584>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"38"
mov $zukan_hp,"3300"
mov $zukan_skill1,"Sticky Hairs"
mov %zukan_skillc1,3363
mov $zukan_skill2,"Trichome Penis Torture"
mov %zukan_skillc2,3364
mov $zukan_skill3,"Venus Trap"
mov %zukan_skillc3,3365
mov $zukan_skill4,"Philia Melt"
mov %zukan_skillc4,3366
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_dorothy_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\dorothy.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_dorothy_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\dorothy_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\dorothy_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\dorothy_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\dorothy_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\dorothy_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\dorothy_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\dorothy_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_dorothy_cg

lsp 500,":c;bg\bg095.bmp",0,0
lsp 430,":a;chara\dorothy_h1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\dorothy_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dorothy_h2.bmp",0,0
lsp 420,":a;chara\dorothy_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dorothy_h3.bmp",0,0
csp 420
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\dorothy_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dorothy_h4.bmp",0,0
lsp 420,":a;chara\dorothy_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dorothy_h5.bmp",0,0
lsp 420,":a;chara\dorothy_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dorothy_h6.bmp",0,0
lsp 420,":a;chara\dorothy_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_dorothy_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,33
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *dorothy_start
if %bwait=211 mov %nanido,2:goto *dorothy_start
if %bwait=212 mov %nanido,3:goto *dorothy_start
lsp 700,":a;chara\dorothy_st02.bmp",0,0
bg "bg\bg095.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *dorothy_h



;-----???...???-----



*zukan_rafi

mov $zname,"Raffia"
mov $zlavel,"rafi"
itoa2 $zukan_ko,%2585
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2585=0 mov %hscene1,0
if %2585>0 mov %hscene1,1
if %2585=0 mov %zukancg,0
if %2585>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"39"
mov $zukan_hp,"3400"
mov $zukan_skill1,"Ivy Caress"
mov %zukan_skillc1,3367
mov $zukan_skill2,"Mini Pitcher"
mov %zukan_skillc2,3368
mov $zukan_skill3,"Intoxicating Pitcher"
mov %zukan_skillc3,3369
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_rafi_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\rafi.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_rafi_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\rafi_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\rafi_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\rafi_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\rafi_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\rafi_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\rafi_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\rafi_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\rafi_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_rafi_cg

lsp 500,":c;bg\bg095.bmp",0,0
lsp 430,":a;chara\rafi_h1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\rafi_h2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\rafi_h3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\rafi_h4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\rafi_h5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\rafi_h6.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\rafi_h3.bmp",0,0
lsp 420,":a;chara\rafi_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\rafi_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\rafi_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\rafi_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_rafi_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,33
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *rafi_start
if %bwait=211 mov %nanido,2:goto *rafi_start
if %bwait=212 mov %nanido,3:goto *rafi_start
lsp 700,":a;chara\rafi_st02.bmp",0,0
bg "bg\bg095.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *rafi_h



;-----????...???-----



*zukan_dina

mov $zname,"Deana"
mov $zlavel,"dina"
itoa2 $zukan_ko,%2586
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2586=0 mov %hscene1,0
if %2586>0 mov %hscene1,1
if %2586=0 mov %zukancg,0
if %2586>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"40"
mov $zukan_hp,"3500"
mov $zukan_skill1,"Venus Bend"
mov %zukan_skillc1,3665
mov $zukan_skill2,"Venus Trap"
mov %zukan_skillc2,3666
mov $zukan_skill3,"Philia Melt"
mov %zukan_skillc3,3370
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_dina_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\deana.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_dina_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\dina_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\dina_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\dina_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\dina_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\dina_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\dina_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_dina_cg

lsp 500,":c;bg\bg095.bmp",0,0
lsp 430,":a;chara\dina_h1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dina_h2.bmp",0,0
lsp 420,":a;chara\dina_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dina_h3.bmp",0,0
lsp 420,":a;chara\dina_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dina_h4.bmp",0,0
lsp 420,":a;chara\dina_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dina_h5.bmp",0,0
lsp 420,":a;chara\dina_ct04.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dina_h6.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_dina_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,33
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *dina_start
if %bwait=211 mov %nanido,2:goto *dina_start
if %bwait=212 mov %nanido,3:goto *dina_start
lsp 700,":a;chara\dina_st02.bmp",0,0
bg "bg\bg095.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *dina_h



;-----?????-----



*zukan_jelly

mov $zname,"Jelly Girl"
mov $zlavel,"jelly"
itoa2 $zukan_ko,%2587
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2587=0 mov %hscene1,0
if %2587>0 mov %hscene1,1
if %2587=0 mov %zukancg,0
if %2587>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"34"
mov $zukan_hp,"2500"
mov $zukan_skill1,"Jelly Press"
mov %zukan_skillc1,3371
mov $zukan_skill2,"Jelly Draw"
mov %zukan_skillc2,3372
mov $zukan_skill3,"Jelly Heaven"
mov %zukan_skillc3,3373
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_jelly_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\jellyg.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_jelly_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\jelly_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\jelly_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\jelly_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\jelly_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\jelly_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\jelly_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_jelly_cg

lsp 500,":c;bg\bg097.bmp",0,0
lsp 430,":a;chara\jelly_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\jelly_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\jelly_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\jelly_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\jelly_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\jelly_h6.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_jelly_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,34
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *jelly_start
if %bwait=211 mov %nanido,2:goto *jelly_start
if %bwait=212 mov %nanido,3:goto *jelly_start
lsp 700,":a;chara\jelly_st02.bmp",0,0
bg "bg\bg097.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *jelly_h



;-----????-----



*zukan_blob

mov $zname,"Blob Girl"
mov $zlavel,"blob"
itoa2 $zukan_ko,%2588
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2588=0 mov %hscene1,0
if %2588>0 mov %hscene1,1
if %2588=0 mov %zukancg,0
if %2588>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"34"
mov $zukan_hp,"2700"
mov $zukan_skill1,"Blob Spread"
mov %zukan_skillc1,3374
mov $zukan_skill2,"Blob Draw"
mov %zukan_skillc2,3375
mov $zukan_skill3,"Blob Heaven"
mov %zukan_skillc3,3376
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_blob_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\blob.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_blob_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\blob_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\blob_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\blob_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\blob_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\blob_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\blob_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_blob_cg

lsp 500,":c;bg\bg097.bmp",0,0
lsp 430,":a;chara\blob_h1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\blob_h2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\blob_h3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\blob_h4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\blob_h5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\blob_h6.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\blob_h7.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\blob_h8.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\blob_h9.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_blob_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,34
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *blob_start
if %bwait=211 mov %nanido,2:goto *blob_start
if %bwait=212 mov %nanido,3:goto *blob_start
lsp 700,":a;chara\blob_st02.bmp",0,0
bg "bg\bg097.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *blob_h



;-----????????-----



*zukan_slime_green

mov $zname,"Green Slime"
mov $zlavel,"slime_green"
itoa2 $zukan_ko,%2589
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2589=0 mov %hscene1,0
if %2589>0 mov %hscene1,1
if %2589=0 mov %zukancg,0
if %2589>0 mov %zukancg,1
mov %zukan_x1,45
mov %zukan_x2,245
mov $zukan_lv,"34"
mov $zukan_hp,"1200"
mov $zukan_skill1,"Green Spread"
mov %zukan_skillc1,3377
mov $zukan_skill2,"Green Draw"
mov %zukan_skillc2,3378
mov $zukan_skill3,"Green Ecstasy"
mov %zukan_skillc3,3379
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_slime_green_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\gslime.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_slime_green_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\slime_green_st01.bmp",%zukan_x0,100
if %zukan_face=2 lsp 450,":a;chara\slime_green_st02.bmp",%zukan_x0,100
if %zukan_face=3 lsp 450,":a;chara\slime_green_st03.bmp",%zukan_x0,100
if %zukan_cum1=1 lsp 441,":a;chara\slime_green_bk01.bmp",%zukan_x0,100
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\slime_green_bk02.bmp",%zukan_x0,100
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\slime_green_bk03.bmp",%zukan_x0,100
if %zukan_cum3=0 csp 443
return



*zukan_slime_green_cg

lsp 500,":c;bg\bg097.bmp",0,0
lsp 430,":c;chara\slime_green_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\slime_green_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\slime_green_h3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_slime_green_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,34
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *slime_green_start
if %bwait=211 mov %nanido,2:goto *slime_green_start
if %bwait=212 mov %nanido,3:goto *slime_green_start
lsp 700,":a;chara\slime_green_st02.bmp",245,100
bg "bg\bg097.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *slime_green_h



;-----???????-----



*zukan_slime_blue

mov $zname,"Blue Slime"
mov $zlavel,"slime_blue"
itoa2 $zukan_ko,%2649
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2649=0 mov %hscene1,0
if %2649>0 mov %hscene1,1
if %2649=0 mov %zukancg,0
if %2649>0 mov %zukancg,1
mov %zukan_x1,15
mov %zukan_x2,218
mov $zukan_lv,"34"
mov $zukan_hp,"1300"
mov $zukan_skill1,"Blue Flow"
mov %zukan_skillc1,3381
mov $zukan_skill2,"Double Draw"
mov %zukan_skillc2,3384
mov $zukan_skill3,"Triple Draw"
mov %zukan_skillc3,3385
mov $zukan_skill4,"Special Draw"
mov %zukan_skillc4,3386
mov $zukan_skill5,"Double Spread"
mov %zukan_skillc5,3387
mov $zukan_skill6,"Triple Spread"
mov %zukan_skillc6,3388
mov $zukan_skill7,"Special Spread"
mov %zukan_skillc7,3389
mov $zukan_skill8,"Special Heaven"
mov %zukan_skillc8,3390
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_slime_blue_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\bslime.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_slime_blue_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\slime_blue_st01.bmp",%zukan_x0,20
if %zukan_face=2 lsp 450,":a;chara\slime_blue_st02.bmp",%zukan_x0,20
if %zukan_face=3 lsp 450,":a;chara\slime_blue_st03.bmp",%zukan_x0,20
if %zukan_cum1=1 lsp 441,":a;chara\slime_blue_bk01.bmp",%zukan_x0,20
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\slime_blue_bk02.bmp",%zukan_x0,20
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\slime_blue_bk03.bmp",%zukan_x0,20
if %zukan_cum3=0 csp 443
return



*zukan_slime_blue_cg

lsp 500,":c;bg\bg097.bmp",0,0
lsp 430,":c;chara\slimes_hc1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\slimes_hc2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\slimes_hc3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_slime_blue_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,34
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:bgm"bgm\battle.ogg":goto *slimes_start
if %bwait=211 mov %nanido,2:bgm"bgm\battle.ogg":goto *slimes_start
if %bwait=212 mov %nanido,3:bgm"bgm\battle.ogg":goto *slimes_start
lsp 700,":a;chara\slime_purple_st02.bmp",70,120
lsp 702,":a;chara\slime_green_st02.bmp",525,155
lsp 704,":a;chara\slime_blue_st02.bmp",-70,20
lsp 706,":a;chara\slime_red_st02.bmp",345,10
bg "bg\bg097.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *slimes_h



;-----???????-----



*zukan_slime_red

mov $zname,"Red Slime"
mov $zlavel,"slime_red"
itoa2 $zukan_ko,%2589
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2589=0 mov %hscene1,0
if %2589>0 mov %hscene1,1
if %2589=0 mov %zukancg,0
if %2589>0 mov %zukancg,1
mov %zukan_x1,27
mov %zukan_x2,227
mov $zukan_lv,"34"
mov $zukan_hp,"1300"
mov $zukan_skill1,"Red Gale"
mov %zukan_skillc1,3382
mov $zukan_skill2,"Double Draw"
mov %zukan_skillc2,3384
mov $zukan_skill3,"Triple Draw"
mov %zukan_skillc3,3385
mov $zukan_skill4,"Special Draw"
mov %zukan_skillc4,3386
mov $zukan_skill5,"Double Spread"
mov %zukan_skillc5,3387
mov $zukan_skill6,"Triple Spread"
mov %zukan_skillc6,3388
mov $zukan_skill7,"Special Spread"
mov %zukan_skillc7,3389
mov $zukan_skill8,"Special Heaven"
mov %zukan_skillc8,3390
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_slime_red_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\rslime.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_slime_red_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\slime_red_st01.bmp",%zukan_x0,11
if %zukan_face=2 lsp 450,":a;chara\slime_red_st02.bmp",%zukan_x0,11
if %zukan_face=3 lsp 450,":a;chara\slime_red_st03.bmp",%zukan_x0,11
if %zukan_cum1=1 lsp 441,":a;chara\slime_red_bk01.bmp",%zukan_x0,11
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\slime_red_bk02.bmp",%zukan_x0,11
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\slime_red_bk03.bmp",%zukan_x0,11
if %zukan_cum3=0 csp 443
return



*zukan_slime_red_cg

lsp 500,":c;bg\bg097.bmp",0,0
lsp 430,":c;chara\slimes_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\slimes_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\slimes_hb3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_slime_red_kaisou

bgmstop

csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,34
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:bgm"bgm\battle.ogg":goto *slimes_start
if %bwait=211 mov %nanido,2:bgm"bgm\battle.ogg":goto *slimes_start
if %bwait=212 mov %nanido,3:bgm"bgm\battle.ogg":goto *slimes_start
lsp 700,":a;chara\slime_purple_st02.bmp",70,120
lsp 702,":a;chara\slime_green_st02.bmp",525,155
lsp 704,":a;chara\slime_blue_st02.bmp",-70,20
lsp 706,":a;chara\slime_red_st02.bmp",345,10
bg "bg\bg097.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *slimes_h



;-----????????-----



*zukan_slime_purple

mov $zname,"Purple Slime"
mov $zlavel,"slime_purple"
itoa2 $zukan_ko,%2589
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2589=0 mov %hscene1,0
if %2589>0 mov %hscene1,1
if %2589=0 mov %zukancg,0
if %2589>0 mov %zukancg,1
mov %zukan_x1,13
mov %zukan_x2,213
mov $zukan_lv,"35"
mov $zukan_hp,"1500"
mov $zukan_skill1,"Purple Kiss"
mov %zukan_skillc1,3380
mov $zukan_skill2,"Double Draw"
mov %zukan_skillc2,3384
mov $zukan_skill3,"Triple Draw"
mov %zukan_skillc3,3385
mov $zukan_skill4,"Special Draw"
mov %zukan_skillc4,3386
mov $zukan_skill5,"Double Spread"
mov %zukan_skillc5,3387
mov $zukan_skill6,"Triple Spread"
mov %zukan_skillc6,3388
mov $zukan_skill7,"Special Spread"
mov %zukan_skillc7,3389
mov $zukan_skill8,"Special Heaven"
mov %zukan_skillc8,3390
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_slime_purple_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\pslime.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_slime_purple_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\slime_purple_st01.bmp",%zukan_x0,40
if %zukan_face=2 lsp 450,":a;chara\slime_purple_st02.bmp",%zukan_x0,40
if %zukan_face=3 lsp 450,":a;chara\slime_purple_st03.bmp",%zukan_x0,40
if %zukan_cum1=1 lsp 441,":a;chara\slime_purple_bk01.bmp",%zukan_x0,40
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\slime_purple_bk02.bmp",%zukan_x0,40
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\slime_purple_bk03.bmp",%zukan_x0,40
if %zukan_cum3=0 csp 443
return



*zukan_slime_purple_cg

lsp 500,":c;bg\bg097.bmp",0,0
lsp 430,":c;chara\slimes_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\slimes_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\slimes_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\slimes_hd1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\slimes_hd2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\slimes_hd3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_slime_purple_kaisou

bgmstop

csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,34
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:bgm"bgm\battle.ogg":goto *slimes_start
if %bwait=211 mov %nanido,2:bgm"bgm\battle.ogg":goto *slimes_start
if %bwait=212 mov %nanido,3:bgm"bgm\battle.ogg":goto *slimes_start
lsp 700,":a;chara\slime_purple_st02.bmp",70,120
lsp 702,":a;chara\slime_green_st02.bmp",525,155
lsp 704,":a;chara\slime_blue_st02.bmp",-70,20
lsp 706,":a;chara\slime_red_st02.bmp",345,10
bg "bg\bg097.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *slimes_h



;-----??????(1)-----



*zukan_erbetie1

mov $zname,"Erubetie (1)"
mov $zlavel,"erbetie1"
itoa2 $zukan_ko,%2590
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,1
mov %zukan_battlenum,2
mov %zukan_hscenenum,1
if %2590=0 mov %hscene1,0
if %2590>0 mov %hscene1,1
if %2590=0 mov %zukancg,0
if %2590>0 mov %zukancg,1
mov %zukan_x1,25
mov %zukan_x2,225
mov $zukan_lv,"125"
mov $zukan_hp,"22000"
mov $zukan_skill1,"Melt Storm"
mov %zukan_skillc1,3391
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_erbetie1_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\eru1.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_erbetie1_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\erbetie_st01.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\erbetie_bk07.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
return



*zukan_erbetie1_cg

lsp 500,":c;bg\bg097.bmp",0,0
lsp 430,":a;chara\erbetie_ha1r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\erbetie_ha2r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\erbetie_ha3r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\erbetie_ha4r.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_erbetie1_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,35
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *erbetie1_start
if %bwait=211 mov %nanido,2:goto *erbetie1_start
if %bwait=212 mov %nanido,3:goto *erbetie1_start
lsp 700,":a;chara\erbetie_st01.bmp",225,0
bg "bg\bg097.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov $name,"Erubetie"
if %bwait=213 goto *erbetie1_h



;-----??????-----



*zukan_undine

mov $zname,"Undine"
mov $zlavel,"undine"
itoa2 $zukan_ko,%2591
mov %zukan_facenum,3
mov %zukan_posenum,3
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2591=0 mov %hscene1,0
if %2591>0 mov %hscene1,1
if %2591=0 mov %zukancg,0
if %2591>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"65"
mov $zukan_hp,"12000"
mov $zukan_skill1,"Aqua Shake"
mov %zukan_skillc1,3392
mov $zukan_skill2,"Aqua Stroke"
mov %zukan_skillc2,3393
mov $zukan_skill3,"Aqua Melty"
mov %zukan_skillc3,3394
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_undine_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\undine.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_undine_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\undine_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\undine_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\undine_st03.bmp",%zukan_x0,0
if %zukan_pose=2 lsp 450,":a;chara\undine_st11.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\undine_st21.bmp",%zukan_x0+226,144
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\undine_st22.bmp",%zukan_x0+226,144
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\undine_st23.bmp",%zukan_x0+226,144
if %zukan_cum1=1 lsp 441,":a;chara\undine_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\undine_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\undine_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\undine_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose>1 cspl 441,449
return



*zukan_undine_cg

lsp 500,":c;bg\bg097.bmp",0,0
lsp 430,":a;chara\undine_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\undine_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\undine_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\undine_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\undine_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\undine_ha3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_undine_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,35
mov %skill01,8
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *undine_start
if %bwait=211 mov %nanido,2:goto *undine_start
if %bwait=212 mov %nanido,3:goto *undine_start
lsp 700,":a;chara\undine_st02.bmp",0,0
bg "bg\bg097.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *undine_h



;-----?????-----



*zukan_kamakiri

mov $zname,"Mantis Girl"
mov $zlavel,"kamakiri"
itoa2 $zukan_ko,%2592
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2592=0 mov %hscene1,0
if %2592>0 mov %hscene1,1
if %2592=0 mov %zukancg,0
if %2592>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"36"
mov $zukan_hp,"2800"
mov $zukan_skill1,"Mantis Blowjob"
mov %zukan_skillc1,3395
mov $zukan_skill2,"Mantis Tit Fuck"
mov %zukan_skillc2,3396
mov $zukan_skill3,"Mantis Rape"
mov %zukan_skillc3,3397
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_kamakiri_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\kamakiri.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_kamakiri_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\kamakiri_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\kamakiri_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\kamakiri_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\kamakiri_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\kamakiri_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\kamakiri_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_kamakiri_cg

lsp 500,":c;bg\bg061.bmp",0,0
lsp 430,":a;chara\kamakiri_ha1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kamakiri_ha2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kamakiri_ha3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kamakiri_ha4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kamakiri_ha5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kamakiri_hb1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kamakiri_hb2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kamakiri_hb3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kamakiri_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_kamakiri_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,36
mov %skill01,9
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *kamakiri_start
if %bwait=211 mov %nanido,2:goto *kamakiri_start
if %bwait=212 mov %nanido,3:goto *kamakiri_start
lsp 700,":a;chara\kamakiri_st02.bmp",0,0
bg "bg\bg061.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *kamakiri_h



;-----????-----



*zukan_scylla

mov $zname,"Scylla"
mov $zlavel,"scylla"
itoa2 $zukan_ko,%2593
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2593=0 mov %hscene1,0
if %2593>0 mov %hscene1,1
if %2593=0 mov %zukancg,0
if %2593>0 mov %zukancg,1
mov %zukan_x1,-60
mov %zukan_x2,140
mov $zukan_lv,"37"
mov $zukan_hp,"3000"
mov $zukan_skill1,"Tentacle Body Torture"
mov %zukan_skillc1,3398
mov $zukan_skill2,"Tentacle Nipple Torture"
mov %zukan_skillc2,3399
mov $zukan_skill3,"Tentacle Groin Torture"
mov %zukan_skillc3,3400
mov $zukan_skill4,"Tentacle Anal Torture"
mov %zukan_skillc4,3401
mov $zukan_skill5,"Tentacle Tighten"
mov %zukan_skillc5,3402
mov $zukan_skill6,"Elysion - De - Scylla"
mov %zukan_skillc6,3403
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_scylla_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\scylla.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_scylla_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\scylla_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\scylla_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\scylla_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\scylla_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\scylla_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\scylla_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_scylla_cg

lsp 500,":c;bg\bg099.bmp",0,0
lsp 430,":a;chara\scylla_h0.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\scylla_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\scylla_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\scylla_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\scylla_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\scylla_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\scylla_h6.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_scylla_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,37
mov %skill01,10
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *scylla_start
if %bwait=211 mov %nanido,2:goto *scylla_start
if %bwait=212 mov %nanido,3:goto *scylla_start
lsp 700,":a;chara\scylla_st02.bmp",140,0
bg "bg\bg099.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *scylla_h



;-----?????-----



*zukan_medusa

mov $zname,"Medusa"
mov $zlavel,"medusa"
itoa2 $zukan_ko,%2594
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2594=0 mov %hscene1,0
if %2594>0 mov %hscene1,1
if %2594=0 mov %zukancg,0
if %2594>0 mov %zukancg,1
mov %zukan_x1,28
mov %zukan_x2,218
mov $zukan_lv,"37"
mov $zukan_hp,"3200"
mov $zukan_skill1,"Medusa's Hand"
mov %zukan_skillc1,3404
mov $zukan_skill2,"Medusa's Mouth"
mov %zukan_skillc2,3405
mov $zukan_skill3,"Medusa's Thighs"
mov %zukan_skillc3,3406
mov $zukan_skill4,"Lewd Snake's Hair"
mov %zukan_skillc4,3407
mov $zukan_skill5,"Lewd Snake's Vagina"
mov %zukan_skillc5,3408
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_medusa_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\medusag.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_medusa_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\medusa_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\medusa_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\medusa_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\medusa_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\medusa_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\medusa_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\medusa_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\medusa_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\medusa_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
return



*zukan_medusa_cg

lsp 500,":c;bg\bg041.bmp",0,0
lsp 430,":a;chara\medusa_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\medusa_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\medusa_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\medusa_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\medusa_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\medusa_h6.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_medusa_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,37
mov %skill01,11
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *medusa_start
if %bwait=211 mov %nanido,2:goto *medusa_start
if %bwait=212 mov %nanido,3:goto *medusa_start
lsp 700,":a;chara\medusa_st02.bmp",218,0
bg "bg\bg041.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *medusa_h



;-----?????-----



*zukan_golem

mov $zname,"Golem Girl"
mov $zlavel,"golem"
itoa2 $zukan_ko,%2595
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,2
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2595=0 mov %hscene1,0
if %2595>0 mov %hscene1,1
if %2595=0 mov %zukancg,0
if %2595>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"44"
mov $zukan_hp,"6000"
mov $zukan_skill1,"Play"
mov %zukan_skillc1,3409
mov $zukan_skill2,"Power Supply"
mov %zukan_skillc2,3410
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_golem_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\golem.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_golem_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\golem_st01.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\golem_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\golem_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
return



*zukan_golem_cg

lsp 500,":c;bg\bg161.bmp",0,0
lsp 430,":a;chara\golem_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\golem_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\golem_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\golem_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\golem_h5.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_golem_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,38
mov %skill01,11
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *golem_start
if %bwait=211 mov %nanido,2:goto *golem_start
if %bwait=212 mov %nanido,3:goto *golem_start
lsp 700,":a;chara\golem_st01.bmp",0,0
bg "bg\bg098.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *golem_h



;-----????????-----



*zukan_madgolem

mov $zname,"Mud Golem Girl"
mov $zlavel,"madgolem"
itoa2 $zukan_ko,%2596
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,1
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2596=0 mov %hscene1,0
if %2596>0 mov %hscene1,1
if %2596=0 mov %zukancg,0
if %2596>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"38"
mov $zukan_hp,"3200"
mov $zukan_skill1,"Mud Spread"
mov %zukan_skillc1,3411
mov $zukan_skill2,"Mud Draw"
mov %zukan_skillc2,3412
mov $zukan_skill3,"Mud Shake"
mov %zukan_skillc3,3413
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_madgolem_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\mudgolem.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_madgolem_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\madgolem_st01.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\madgolem_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
return



*zukan_madgolem_cg

lsp 500,":c;bg\bg100.bmp",0,0
lsp 430,":a;chara\madgolem_st01.bmp",0,0
lsp 420,":a;chara\madgolem_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\madgolem_ct02.bmp",0,0
lsp 421,":a;chara\madgolem_bk01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\madgolem_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\madgolem_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_madgolem_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,38
mov %skill01,11
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *madgolem_start
if %bwait=211 mov %nanido,2:goto *madgolem_start
if %bwait=212 mov %nanido,3:goto *madgolem_start
lsp 700,":a;chara\madgolem_st01.bmp",0,0
bg "bg\bg100.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *madgolem_h



;-----???????-----



*zukan_artm

mov $zname,"Automata Girl"
mov $zlavel,"artm"
itoa2 $zukan_ko,%2597
mov %zukan_facenum,2
mov %zukan_posenum,1
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2597=0 mov %hscene1,0
if %2597>0 mov %hscene1,1
if %2597=0 mov %zukancg,0
if %2597>0 mov %zukancg,1
mov %zukan_x1,-33
mov %zukan_x2,167
mov $zukan_lv,"39"
mov $zukan_hp,"3000"
mov $zukan_skill1,"Mechanical Handjob"
mov %zukan_skillc1,3414
mov $zukan_skill2,"Mechanical Blowjob"
mov %zukan_skillc2,3415
mov $zukan_skill3,"Mechanical Breast Service"
mov %zukan_skillc3,3416
mov $zukan_skill4,"Bubble Service Trance"
mov %zukan_skillc4,3417
mov $zukan_skill5,"Thigh Service"
mov %zukan_skillc5,3418
mov $zukan_skill6,"Anal Service"
mov %zukan_skillc6,3419
mov $zukan_skill7,"Mechanical Electro-Footjob"
mov %zukan_skillc7,3420
mov $zukan_skill8,"Service Program 666"
mov %zukan_skillc8,3421
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_artm_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\automata.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_artm_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\artm_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\artm_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\artm_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\artm_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\artm_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\artm_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\artm_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\artm_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
return



*zukan_artm_cg

lsp 500,":c;bg\bg100.bmp",0,0
lsp 430,":a;chara\artm_st01.bmp",167,0
lsp 420,":a;chara\artm_ct01.bmp",172,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\artm_ct02.bmp",172,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\artm_ct11.bmp",172,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\artm_ct12.bmp",172,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\artm_ct13.bmp",172,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\artm_ct14.bmp",172,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":c;chara\artm_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\artm_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\artm_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\artm_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\artm_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\artm_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
return "*zukan_"+$zlavel



*zukan_artm_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,38
mov %skill01,11
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *artm_start
if %bwait=211 mov %nanido,2:goto *artm_start
if %bwait=212 mov %nanido,3:goto *artm_start
lsp 700,":a;chara\artm_st01.bmp",167,0
bg "bg\bg100.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *artm_h



;-----???-----



*zukan_ant

mov $zname,"Ant Girl"
mov $zlavel,"ant"
itoa2 $zukan_ko,%2598
mov %zukan_facenum,2
mov %zukan_posenum,2
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2598=0 mov %hscene1,0
if %2598>0 mov %hscene1,1
if %2598=0 mov %zukancg,0
if %2598>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"39"
mov $zukan_hp,"3900"
mov $zukan_skill1,"Ant Kiss"
mov %zukan_skillc1,3422
mov $zukan_skill2,"Double Multi-Arm Handjob"
mov %zukan_skillc2,3423
mov $zukan_skill3,"Triple Multi-Arm Handjob"
mov %zukan_skillc3,3424
mov $zukan_skill4,"Double Ant Tit Fuck"
mov %zukan_skillc4,3425
mov $zukan_skill5,"Triple Ant Tit Fuck"
mov %zukan_skillc5,3426
mov $zukan_skill6,"Double Ant Blowjob"
mov %zukan_skillc6,3427
mov $zukan_skill7,"Triple Ant Blowjob"
mov %zukan_skillc7,3428
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_ant_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\antg.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_ant_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 && %zukan_pose=1 lsp 450,":a;chara\ant_st11.bmp",%zukan_x0,0
if %zukan_face=2 && %zukan_pose=1 lsp 450,":a;chara\ant_st13.bmp",%zukan_x0,0
if %zukan_face=1 && %zukan_pose=2 lsp 450,":a;chara\ant_st01.bmp",%zukan_x0,0
if %zukan_face=2 && %zukan_pose=2 lsp 450,":a;chara\ant_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\ant_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\ant_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\ant_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\ant_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\ant_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\ant_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\ant_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
if %zukan_pose=2 cspl 445,447
return



*zukan_ant_cg

lsp 500,":c;bg\bg101.bmp",0,0
lsp 430,":a;chara\ant_st11.bmp",0,0
lsp 420,":a;chara\ant_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\ant_ct02.bmp",0,0
lsp 421,":a;chara\ant_bk04.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\ant_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\ant_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_ant_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,39
mov %skill01,11
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *ant_start
if %bwait=211 mov %nanido,2:goto *ant_start
if %bwait=212 mov %nanido,3:goto *ant_start
lsp 700,":a;chara\ant_st11.bmp",0,0
bg "bg\bg101.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *ant_h



;-----???????-----



*zukan_queenant

mov $zname,"Queen Ant"
mov $zlavel,"queenant"
itoa2 $zukan_ko,%2599
mov %zukan_facenum,2
mov %zukan_posenum,1
mov %zukan_cumnum,2
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2599=0 mov %hscene1,0
if %2599>0 mov %hscene1,1
if %2599=0 mov %zukancg,0
if %2599>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"50"
mov $zukan_hp,"5000"
mov $zukan_skill1,"Queen's Comfortable Mouth"
mov %zukan_skillc1,3429
mov $zukan_skill2,"Queen's Soft Breasts"
mov %zukan_skillc2,3430
mov $zukan_skill3,"Queen's Unmatched Skill"
mov %zukan_skillc3,3431
mov $zukan_skill4,"Eyes of Seduction"
mov %zukan_skillc4,3432
mov $zukan_skill5,"Queen's Stud"
mov %zukan_skillc5,3433
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_queenant_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\queenant.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_queenant_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\queenant_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\queenant_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\queenant_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\queenant_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
return



*zukan_queenant_cg

lsp 500,":c;bg\bg102.bmp",0,0
lsp 430,":a;chara\queenant_st01.bmp",0,0
lsp 420,":a;chara\queenant_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenant_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenant_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenant_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_queenant_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,40
mov %skill01,11
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *queenant_start
if %bwait=211 mov %nanido,2:goto *queenant_start
if %bwait=212 mov %nanido,3:goto *queenant_start
lsp 700,":a;chara\queenant_st01.bmp",0,0
bg "bg\bg102.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *queenant_h



;-----?????-----



*zukan_maccubus

mov $zname,"Maccubus"
mov $zlavel,"maccubus"
itoa2 $zukan_ko,%2600
mov %zukan_facenum,3
mov %zukan_posenum,3
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2600=0 mov %hscene1,0
if %2600>0 mov %hscene1,1
if %2600=0 mov %zukancg,0
if %2600>0 mov %zukancg,1
mov %zukan_x1,-25
mov %zukan_x2,175
mov $zukan_lv,"40"
mov $zukan_hp,"3500"
mov $zukan_skill1,"Succubus Handjob"
mov %zukan_skillc1,3434
mov $zukan_skill2,"Succubus Blowjob"
mov %zukan_skillc2,3435
mov $zukan_skill3,"Succubus Tit Fuck"
mov %zukan_skillc3,3436
mov $zukan_skill4,"Succubus Pussy"
mov %zukan_skillc4,3437
mov $zukan_skill5,"Succubus Grind"
mov %zukan_skillc5,3438
mov $zukan_skill6,"Heavenly Piston"
mov %zukan_skillc6,3439
mov $zukan_skill7,"Energy Drain"
mov %zukan_skillc7,3440
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_maccubus_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\maccubus.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_maccubus_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose<3 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose<3 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=3 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\maccubus_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\maccubus_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\maccubus_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\maccubus_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\maccubus_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\maccubus_st13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\maccubus_st21.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\maccubus_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\maccubus_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\maccubus_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\maccubus_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\maccubus_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\maccubus_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_pose=3 cspl 441,446
return



*zukan_maccubus_cg

lsp 500,":c;bg\bg107.bmp",0,0
lsp 430,":a;chara\maccubus_st01.bmp",400,0
lsp 420,":a;chara\maccubus_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_st02.bmp",400,0
lsp 420,":a;chara\maccubus_ct02.bmp",0,0
lsp 421,":a;chara\maccubus_bk02.bmp",400,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 421
lsp 430,":a;chara\maccubus_st01.bmp",0,0
lsp 420,":a;chara\maccubus_ct21.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_st02.bmp",0,0
lsp 420,":a;chara\maccubus_ct22.bmp",0,0
lsp 421,":a;chara\maccubus_bk01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
csp 421
lsp 430,":a;chara\maccubus_h21.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_h22.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_h00.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_h01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_h02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_h03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_h04.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_h05.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_h06.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_h07.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_maccubus_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,40
mov %skill01,11
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:bgm"bgm\kiki2.ogg":goto *maccubus_start
if %bwait=211 mov %nanido,2:bgm"bgm\kiki2.ogg":goto *maccubus_start
if %bwait=212 mov %nanido,3:bgm"bgm\kiki2.ogg":goto *maccubus_start
lsp 700,":a;chara\maccubus_st02.bmp",175,0
bg "bg\bg107.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *maccubus_h



;-----??????-----



*zukan_minccubus

mov $zname,"Mincubus"
mov $zlavel,"minccubus"
itoa2 $zukan_ko,%2601
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2601=0 mov %hscene1,0
if %2601>0 mov %hscene1,1
if %2601=0 mov %zukancg,0
if %2601>0 mov %zukancg,1
mov %zukan_x1,-25
mov %zukan_x2,175
mov $zukan_lv,"38"
mov $zukan_hp,"2600"
mov $zukan_skill1,"Soft Handjob"
mov %zukan_skillc1,3441
mov $zukan_skill2,"Wet Blowjob"
mov %zukan_skillc2,3442
mov $zukan_skill3,"Silky Hairjob"
mov %zukan_skillc3,3443
mov $zukan_skill4,"Face Riding"
mov %zukan_skillc4,3444
mov $zukan_skill5,"Panty Stroke"
mov %zukan_skillc5,3445
mov $zukan_skill6,"Sock Stroke"
mov %zukan_skillc6,3446
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_minccubus_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\minccubus.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_minccubus_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\minccubus_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\minccubus_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\minccubus_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\minccubus_st11.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\minccubus_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\minccubus_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\minccubus_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\minccubus_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\minccubus_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\minccubus_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\minccubus_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
if %zukan_pose=2 cspl 441,447
return



*zukan_minccubus_cg

lsp 500,":c;bg\bg163.bmp",0,0
lsp 430,":a;chara\minccubus_st01.bmp",0,0
lsp 420,":a;chara\minccubus_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_st02.bmp",0,0
lsp 420,":a;chara\minccubus_ct02.bmp",0,0
lsp 421,":a;chara\minccubus_bk01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 421
lsp 430,":a;chara\minccubus_st01.bmp",0,0
lsp 420,":a;chara\minccubus_ct11.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_st02.bmp",0,0
lsp 420,":a;chara\minccubus_ct12.bmp",0,0
lsp 421,":a;chara\minccubus_bk01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 421
lsp 430,":a;chara\minccubus_st01.bmp",0,0
lsp 420,":a;chara\minccubus_ct21.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_st02.bmp",0,0
lsp 420,":a;chara\minccubus_ct22.bmp",0,0
lsp 421,":a;chara\minccubus_bk02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
csp 421
lsp 430,":a;chara\minccubus_ha1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_ha2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_ha3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_ha4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hc1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hc2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hc3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hc4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hc5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb04.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb05.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb06.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb07.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb08.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb09.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb10.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb11.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb12.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_minccubus_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,40
mov %skill01,11
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:bgm"bgm\kiki2.ogg":goto *minccubus_start
if %bwait=211 mov %nanido,2:bgm"bgm\kiki2.ogg":goto *minccubus_start
if %bwait=212 mov %nanido,3:bgm"bgm\kiki2.ogg":goto *minccubus_start
lsp 700,":a;chara\minccubus_st02.bmp",175,0
bg "bg\bg163.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *minccubus_h



;-----??????-----



*zukan_renccubus

mov $zname,"Lencubus"
mov $zlavel,"renccubus"
itoa2 $zukan_ko,%2602
mov %zukan_facenum,4
mov %zukan_posenum,2
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2602=0 mov %hscene1,0
if %2602>0 mov %hscene1,1
if %2602=0 mov %zukancg,0
if %2602>0 mov %zukancg,1
mov %zukan_x1,-25
mov %zukan_x2,175
mov $zukan_lv,"22"
mov $zukan_hp,"1200"
mov $zukan_skill1,"Lust Powered Handjob"
mov %zukan_skillc1,3447
mov $zukan_skill2,"Lust Powered Blowjob"
mov %zukan_skillc2,3448
mov $zukan_skill3,"Lust Powered Tit Fuck"
mov %zukan_skillc3,3449
mov $zukan_skill4,"Level Drain"
mov %zukan_skillc4,3450
mov $zukan_skill5,"Energy Drain"
mov %zukan_skillc5,3451
mov $zukan_skill6,"Life Killing Vagina"
mov %zukan_skillc6,3452
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_renccubus_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\lencubus.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_renccubus_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\renccubus_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\renccubus_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\renccubus_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\renccubus_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\renccubus_st11.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\renccubus_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\renccubus_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\renccubus_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\renccubus_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\renccubus_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_pose=2 cspl 441,445
return



*zukan_renccubus_cg

lsp 500,":c;bg\bg104.bmp",0,0
lsp 430,":a;chara\renccubus_st02.bmp",175,0
lsp 420,":a;chara\renccubus_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\renccubus_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\renccubus_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\renccubus_ct11.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\renccubus_ct12.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\renccubus_ct13.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\renccubus_ct21.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\renccubus_ct22.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\renccubus_ct23.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\renccubus_h1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\renccubus_h2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\renccubus_h3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\renccubus_h4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\renccubus_h5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\renccubus_h6.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\renccubus_h7.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_renccubus_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,41
mov %skill01,11
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *renccubus_start
if %bwait=211 mov %nanido,2:goto *renccubus_start
if %bwait=212 mov %nanido,3:goto *renccubus_start
lsp 700,":a;chara\renccubus_st02.bmp",175,0
bg "bg\bg104.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *renccubus_h



;-----?????-----



*zukan_succubus

mov $zname,"Succubus"
mov $zlavel,"succubus"
itoa2 $zukan_ko,%2603
mov %zukan_facenum,4
mov %zukan_posenum,2
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2603=0 mov %hscene1,0
if %2603>0 mov %hscene1,1
if %2603=0 mov %zukancg,0
if %2603>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"43"
mov $zukan_hp,"4500"
mov $zukan_skill1,"Delightful Handjob"
mov %zukan_skillc1,3453
mov $zukan_skill2,"Hecto-Deep Blowjob"
mov %zukan_skillc2,3454
mov $zukan_skill3,"Breast Squeeze"
mov %zukan_skillc3,3455
mov $zukan_skill4,"Tail Drain"
mov %zukan_skillc4,3456
mov $zukan_skill5,"Melting Kiss"
mov %zukan_skillc5,3457
mov $zukan_skill6,"Energy Drain"
mov %zukan_skillc6,3458
mov $zukan_skill7,"Infinite Pussy"
mov %zukan_skillc7,3459
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_succubus_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\succubus.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_succubus_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=1 && %zukan_pose=1 lsp 450,":a;chara\succubus_st01.bmp",%zukan_x0,0
if %zukan_face=2 && %zukan_pose=1 lsp 450,":a;chara\succubus_st02.bmp",%zukan_x0,0
if %zukan_face=3 && %zukan_pose=1 lsp 450,":a;chara\succubus_st03.bmp",%zukan_x0,0
if %zukan_face=4 && %zukan_pose=1 lsp 450,":a;chara\succubus_st04.bmp",%zukan_x0,0
if %zukan_face=1 && %zukan_pose=2 lsp 450,":a;chara\succubus_st11.bmp",%zukan_x0,0
if %zukan_face=2 && %zukan_pose=2 lsp 450,":a;chara\succubus_st12.bmp",%zukan_x0,0
if %zukan_face=3 && %zukan_pose=2 lsp 450,":a;chara\succubus_st13.bmp",%zukan_x0,0
if %zukan_face=4 && %zukan_pose=2 lsp 450,":a;chara\succubus_st14.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\succubus_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\succubus_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\succubus_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\succubus_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\succubus_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\succubus_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\succubus_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
if %zukan_pose=2 cspl 441,447
return



*zukan_succubus_cg

lsp 500,":c;bg\bg106.bmp",0,0
lsp 430,":a;chara\succubus_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_ha5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_ha6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hb5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hb6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hc1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hc2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hc3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hc4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hc5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hc6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hc7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hc8.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hc9.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hd1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hd2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hd3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hd4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_succubus_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,41
mov %skill01,11
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *succubus_start
if %bwait=211 mov %nanido,2:goto *succubus_start
if %bwait=212 mov %nanido,3:goto *succubus_start
lsp 700,":a;chara\succubus_st02.bmp",0,0
bg "bg\bg106.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *succubus_h



;-----?????????-----



*zukan_witchs

mov $zname,"Succubus Witch"
mov $zlavel,"witchs"
itoa2 $zukan_ko,%2604
mov %zukan_facenum,4
mov %zukan_posenum,3
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2828=0 mov %hscene1,0
if %2828>0 mov %hscene1,1
if %2829=0 mov %hscene2,0
if %2829>0 mov %hscene2,1
if %2604=0 mov %zukancg,0
if %2604>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"41"
mov $zukan_hp,"4200"
mov $zukan_skill1,"Milking Gloves"
mov %zukan_skillc1,3460
mov $zukan_skill2,"Hat of Pleasure"
mov %zukan_skillc2,3461
mov $zukan_skill3,"Breast Milking"
mov %zukan_skillc3,3462
mov $zukan_skill4,"HP Tail Drain"
mov %zukan_skillc4,3463
mov $zukan_skill5,"Lvl Tail Drain"
mov %zukan_skillc5,3464
mov $zukan_skill6,"Melting Kiss"
mov %zukan_skillc6,3465
mov $zukan_skill7,"Eyes of Seduction"
mov %zukan_skillc7,3466
mov $zukan_skill8,"Energy Drain"
mov %zukan_skillc8,3467
mov $zukan_skill9,"Minimum Phantasm: Heaven"
mov %zukan_skillc9,3598
mov $zukan_skill10,"Minimum Phantasm: Hell"
mov %zukan_skillc10,3599
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_witchs_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\witch.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_witchs_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\witchs_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\witchs_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\witchs_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\witchs_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\witchs_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\witchs_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\witchs_st13.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\witchs_st14.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\witchs_st21.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\witchs_st22.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\witchs_st23.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;chara\witchs_st24.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\witchs_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\witchs_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\witchs_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\witchs_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\witchs_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\witchs_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_pose>1 cspl 441,446
return



*zukan_witchs_cg

lsp 500,":c;bg\bg110.bmp",0,0
lsp 430,":a;chara\witchs_hc1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\witchs_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hc2.bmp",0,0
lsp 420,":a;chara\witchs_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hc3.bmp",0,0
lsp 420,":a;chara\witchs_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hc4.bmp",0,0
lsp 420,":a;chara\witchs_ct04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\witchs_hd1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hd2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hd3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hd4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hd5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hd6.bmp",0,0
print 10,500:lrclick
lsp 430,":a;chara\witchs_hi1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hi2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hi3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hi4.bmp",0,0
print 10,500:lrclick
lsp 430,":a;chara\witchs_hh1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hh2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hh3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hh4.bmp",0,0
print 10,500:lrclick
lsp 430,":a;chara\witchs_hg1.bmp",0,0
lsp 420,":a;chara\witchs_ct21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hg2.bmp",0,0
lsp 429,":a;chara\witchs_hgc1.bmp",0,0
lsp 420,":a;chara\witchs_ct22.bmp",0,0
lsp 419,":a;chara\witchs_ctc01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hg3.bmp",0,0
lsp 429,":a;chara\witchs_hgc2.bmp",0,0
lsp 420,":a;chara\witchs_ct23.bmp",0,0
lsp 419,":a;chara\witchs_ctc02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 419,":a;chara\witchs_ctc03.bmp",0,0
print 10,500:lrclick
cspl 419,429
lsp 430,":a;chara\witchs_hj1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hj2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hj3.bmp",0,0
print 10,500:lrclick
lsp 430,":a;chara\witchs_hk1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hk2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hk3.bmp",0,0
print 10,500:lrclick
if %2828=0 skip 23
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha10.bmp",0,0
print 10,500:lrclick
if %2829=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hb5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hf1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hf2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hf3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_st01.bmp",0,0
lsp 420,":a;chara\witchs_ct11.bmp",-200,-100
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\witchs_he1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_he2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_he3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_he4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_he5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\witchs_ct12.bmp",-200,-100
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_witchs_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,41
mov %skill01,11
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *witchs_start
if %bwait=211 mov %nanido,2:goto *witchs_start
if %bwait=212 mov %nanido,3:goto *witchs_start
lsp 700,":a;chara\witchs_st02.bmp",0,0
bg "bg\bg110.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *witchs_ha
if %bwait=214 goto *witchs_hb



;-----???&???-----



*zukan_lilith

mov $zname,"Lilith & Lilim"
mov $zlavel,"lilith"
itoa2 $zukan_ko,%2605
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2605=0 mov %hscene1,0
if %2605>0 mov %hscene1,1
if %2605=0 mov %zukancg,0
if %2605>0 mov %zukancg,1
mov %zukan_x1,-62
mov %zukan_x2,138
mov $zukan_lv,"55"
mov $zukan_hp,"6000"
mov $zukan_skill1,"Laughing Gend"
mov %zukan_skillc1,3468
mov $zukan_skill2,"Tin Cyrus"
mov %zukan_skillc2,3469
mov $zukan_skill3,"Melo Sophia"
mov %zukan_skillc3,3470
mov $zukan_skill4,"Ritis Ani"
mov %zukan_skillc4,3471
mov $zukan_skill5,"Twin Tail Drain"
mov %zukan_skillc5,3472
mov $zukan_skill6,"Twin Energy Drain"
mov %zukan_skillc6,3473
mov $zukan_skill7,"Chaos Pleasure"
mov %zukan_skillc7,3474
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_lilith_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\lilith.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_lilith_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\lilith_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\lilith_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\lilith_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\lilith_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\lilith_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\lilith_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\lilith_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\lilith_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_lilith_cg

lsp 500,":c;bg\bg110.bmp",0,0
lsp 430,":a;chara\lilith_st02.bmp",138,0
lsp 420,":a;chara\lilith_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lilith_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\lilith_ha0.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lilith_ha1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lilith_ha2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lilith_ha3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lilith_ha4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lilith_hb1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lilith_hb2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lilith_hb3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lilith_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_lilith_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,42
mov %skill01,11
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *lilith_start
if %bwait=211 mov %nanido,2:goto *lilith_start
if %bwait=212 mov %nanido,3:goto *lilith_start
lsp 700,":a;chara\lilith_st02.bmp",138,0
bg "bg\bg110.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *lilith_h



;-----????????-----



*zukan_madaminsect

mov $zname,"Madame Insect"
mov $zlavel,"madaminsect"
itoa2 $zukan_ko,%2606
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2606=0 mov %hscene1,0
if %2606>0 mov %hscene1,1
if %2606=0 mov %zukancg,0
if %2606>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"42"
mov $zukan_hp,"3200"
mov $zukan_skill1,"Lady's Masturbation"
mov %zukan_skillc1,3475
mov $zukan_skill2,"Lady's Blowjob"
mov %zukan_skillc2,3476
mov $zukan_skill3,"Lady's Tit Fuck"
mov %zukan_skillc3,3477
mov $zukan_skill4,"Fluid Sucking"
mov %zukan_skillc4,3478
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_madaminsect_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\minsect.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_madaminsect_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 mov %zukan_face,1
if %zukan_face=1 && %zukan_pose=1 lsp 450,":a;chara\madaminsect_st01.bmp",%zukan_x0,0
if %zukan_face=2 && %zukan_pose=1 lsp 450,":a;chara\madaminsect_st02.bmp",%zukan_x0,0
if %zukan_face=3 && %zukan_pose=1 lsp 450,":a;chara\madaminsect_st03.bmp",%zukan_x0,0
if %zukan_pose=2 lsp 450,":a;chara\madaminsect_st11.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\madaminsect_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\madaminsect_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\madaminsect_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\madaminsect_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=2 cspl 441,444
return



*zukan_madaminsect_cg

lsp 500,":c;bg\bg111.bmp",0,0
lsp 430,":a;chara\madaminsect_h1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\madaminsect_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\madaminsect_h2.bmp",0,0
lsp 420,":a;chara\madaminsect_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\madaminsect_h3.bmp",0,0
lsp 420,":a;chara\madaminsect_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\madaminsect_h4.bmp",0,0
lsp 420,":a;chara\madaminsect_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_madaminsect_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,42
mov %skill01,11
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *madaminsect_start
if %bwait=211 mov %nanido,2:goto *madaminsect_start
if %bwait=212 mov %nanido,3:goto *madaminsect_start
lsp 700,":a;chara\madaminsect_st02.bmp",0,0
bg "bg\bg111.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *madaminsect_h



;-----????????-----



*zukan_madamumbrella

mov $zname,"Madame Umbrella"
mov $zlavel,"madamumbrella"
itoa2 $zukan_ko,%2607
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2607=0 mov %hscene1,0
if %2607>0 mov %hscene1,1
if %2607=0 mov %zukancg,0
if %2607>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"43"
mov $zukan_hp,"3400"
mov $zukan_skill1,"Tentacle Play"
mov %zukan_skillc1,3479
mov $zukan_skill2,"Sucker Play"
mov %zukan_skillc2,3480
mov $zukan_skill3,"Sensual Anal Spin"
mov %zukan_skillc3,3481
mov $zukan_skill4,"Lady's Amusement"
mov %zukan_skillc4,3482
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_madamumbrella_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\mumbrella.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_madamumbrella_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=2 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 && %zukan_pose=1 lsp 450,":a;chara\madamumbrella_st01.bmp",%zukan_x0,0
if %zukan_face=2 && %zukan_pose=1 lsp 450,":a;chara\madamumbrella_st02.bmp",%zukan_x0,0
if %zukan_face=3 && %zukan_pose=1 lsp 450,":a;chara\madamumbrella_st03.bmp",%zukan_x0,0
if %zukan_face=1 && %zukan_pose=2 lsp 450,":a;chara\madamumbrella_st11.bmp",%zukan_x0,0
if %zukan_face=2 && %zukan_pose=2 lsp 450,":a;chara\madamumbrella_st12.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\madamumbrella_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\madamumbrella_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\madamumbrella_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose=2 cspl 441,443
return



*zukan_madamumbrella_cg

lsp 500,":c;bg\bg111.bmp",0,0
lsp 430,":a;chara\madamumbrella_h01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\madamumbrella_h02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\madamumbrella_h03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\madamumbrella_h04.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\madamumbrella_h05.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\madamumbrella_h06.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\madamumbrella_h07.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\madamumbrella_h08.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\madamumbrella_h09.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\madamumbrella_h10.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\madamumbrella_h11.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_madamumbrella_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,43
mov %skill01,11
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *madamumbrella_start
if %bwait=211 mov %nanido,2:goto *madamumbrella_start
if %bwait=212 mov %nanido,3:goto *madamumbrella_start
lsp 700,":a;chara\madamumbrella_st02.bmp",0,0
bg "bg\bg111.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *madamumbrella_h



;-----???????-----



*zukan_maidscyulla

mov $zname,"Scylla Maid"
mov $zlavel,"maidscyulla"
itoa2 $zukan_ko,%2608
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2608=0 mov %hscene1,0
if %2608>0 mov %hscene1,1
if %2608=0 mov %zukancg,0
if %2608>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"43"
mov $zukan_hp,"4000"
mov $zukan_skill1,"Service: Hand"
mov %zukan_skillc1,3483
mov $zukan_skill2,"Service: Mouth"
mov %zukan_skillc2,3484
mov $zukan_skill3,"Service: Tentacle"
mov %zukan_skillc3,3485
mov $zukan_skill4,"Service: Holding"
mov %zukan_skillc4,3486
mov $zukan_skill5,"Service: Sucking"
mov %zukan_skillc5,3487
mov $zukan_skill6,"Service: Feeding"
mov %zukan_skillc6,3488
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_maidscyulla_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\mscylla.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_maidscyulla_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 mov %zukan_face,1
if %zukan_face=1 && %zukan_pose=1 lsp 450,":a;chara\maidscyulla_st01.bmp",%zukan_x0,0
if %zukan_face=2 && %zukan_pose=1 lsp 450,":a;chara\maidscyulla_st02.bmp",%zukan_x0,0
if %zukan_face=3 && %zukan_pose=1 lsp 450,":a;chara\maidscyulla_st03.bmp",%zukan_x0,0
if %zukan_face=1 && %zukan_pose=2 lsp 450,":a;chara\maidscyulla_st11.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\maidscyulla_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\maidscyulla_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\maidscyulla_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\maidscyulla_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\maidscyulla_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\maidscyulla_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_pose=2 cspl 441,446
return



*zukan_maidscyulla_cg

lsp 500,":c;bg\bg112.bmp",0,0
lsp 430,":a;chara\maidscyulla_h01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maidscyulla_h02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maidscyulla_h03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maidscyulla_h04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\maidscyulla_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maidscyulla_h05.bmp",0,0
lsp 420,":a;chara\maidscyulla_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\maidscyulla_h06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maidscyulla_h07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maidscyulla_h08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maidscyulla_h09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\maidscyulla_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\maidscyulla_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\maidscyulla_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maidscyulla_h10.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_maidscyulla_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,43
mov %skill01,11
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *maidscyulla_start
if %bwait=211 mov %nanido,2:goto *maidscyulla_start
if %bwait=212 mov %nanido,3:goto *maidscyulla_start
lsp 700,":a;chara\maidscyulla_st02.bmp",0,0
bg "bg\bg112.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *maidscyulla_h



;-----???-----



*zukan_emily

mov $zname,"Emily"
mov $zlavel,"emily"
itoa2 $zukan_ko,%2609
mov %zukan_facenum,4
mov %zukan_posenum,4
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2609=0 mov %hscene1,0
if %2609>0 mov %hscene1,1
if %2609=0 mov %zukancg,0
if %2609>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"52"
mov $zukan_hp,"5000"
mov $zukan_skill1,"Emily's Handjob"
mov %zukan_skillc1,3489
mov $zukan_skill2,"Emily's Blowjob"
mov %zukan_skillc2,3490
mov $zukan_skill3,"Emily's Toy"
mov %zukan_skillc3,3491
mov $zukan_skill4,"Twin Tail Rondo"
mov %zukan_skillc4,3492
mov $zukan_skill5,"Tentacle Waltz"
mov %zukan_skillc5,3493
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_emily_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\emily.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_emily_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=3 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\emily_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\emily_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\emily_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\emily_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\emily_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\emily_st12.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\emily_st21.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\emily_st22.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\emily_st23.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;chara\emily_st24.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\emily_st31.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\emily_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\emily_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\emily_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\emily_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=1 csp 444
if %zukan_pose=2 cspl 442,443
if %zukan_pose>2 cspl 441,444
return



*zukan_emily_cg

lsp 500,":c;bg\bg113.bmp",0,0
lsp 430,":a;chara\emily_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\emily_h6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\emily_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\emily_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\emily_h2.bmp",0,0
lsp 420,":a;chara\emily_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\emily_h3.bmp",0,0
lsp 420,":a;chara\emily_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\emily_ct04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\emily_h4.bmp",0,0
lsp 420,":a;chara\emily_ct05.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_emily_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,43
mov %skill01,11
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *emily_start
if %bwait=211 mov %nanido,2:goto *emily_start
if %bwait=212 mov %nanido,3:goto *emily_start
lsp 700,":a;chara\emily_st02.bmp",0,0
bg "bg\bg113.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *emily_h



;-----?????-----



*zukan_cassandra

mov $zname,"Cassandra"
mov $zlavel,"cassandra"
itoa2 $zukan_ko,%2610
mov %zukan_facenum,5
mov %zukan_posenum,2
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2830=0 mov %hscene1,0
if %2830>0 mov %hscene1,1
if %2831=0 mov %hscene2,0
if %2831>0 mov %hscene2,1
if %2610=0 mov %zukancg,0
if %2610>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"110"
mov $zukan_hp,"18500"
mov $zukan_skill1,"Corrosive Prelude"
mov %zukan_skillc1,3494
mov $zukan_skill2,"Flesh Waltz"
mov %zukan_skillc2,3495
mov $zukan_skill3,"Melting Rondo"
mov %zukan_skillc3,3496
mov $zukan_skill4,"Digestive Tango"
mov %zukan_skillc4,3497
mov $zukan_skill5,"Sticky Symphony"
mov %zukan_skillc5,3498
mov $zukan_skill6,"Black and White Concerto ""
mov %zukan_skillc6,3499
mov $zukan_skill7,"Dissolving Sonata ""
mov %zukan_skillc7,3500
mov $zukan_skill8,"Prey's Requiem"
mov %zukan_skillc8,3501
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_cassandra_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\cassandra.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_cassandra_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\cassandra_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\cassandra_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\cassandra_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\cassandra_st04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\cassandra_st05.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\cassandra_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\cassandra_st12.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\cassandra_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\cassandra_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\cassandra_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\cassandra_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=2 cspl 441,444
return



*zukan_cassandra_cg

lsp 500,":c;bg\bg160.bmp",0,0
lsp 430,":a;chara\cassandra_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cassandra_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cassandra_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cassandra_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cassandra_ha5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cassandra_ha6.bmp",0,0
print 10,500:lrclick
if %2830=0 skip 16
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cassandra_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cassandra_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cassandra_hb3.bmp",0,0
lsp 420,":a;chara\cassandra_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cassandra_hb4.bmp",0,0
lsp 420,":a;chara\cassandra_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cassandra_hb5.bmp",0,0
lsp 420,":a;chara\cassandra_ct03.bmp",0,0
print 10,500:lrclick
if %2831=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\cassandra_hc1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cassandra_hc2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cassandra_hc3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cassandra_hc4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cassandra_hc5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cassandra_hc6.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_cassandra_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,44
mov %skill01,11
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *cassandra_start
if %bwait=211 mov %nanido,2:goto *cassandra_start
if %bwait=212 mov %nanido,3:goto *cassandra_start
if %bwait=213 lsp 700,":a;chara\cassandra_st01.bmp",0,0
if %bwait=214 lsp 700,":a;chara\cassandra_hc1.bmp",0,0
bg "bg\bg160.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *cassandra_ha
if %bwait=214 goto *cassandra_hb



;-----???-----



*zukan_yougan

mov $zname,"Lava Girl"
mov $zlavel,"yougan"
itoa2 $zukan_ko,%2611
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2611=0 mov %hscene1,0
if %2611>0 mov %hscene1,1
if %2611=0 mov %zukancg,0
if %2611>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"44"
mov $zukan_hp,"4800"
mov $zukan_skill1,"Magma Shaft"
mov %zukan_skillc1,3502
mov $zukan_skill2,"Magma Draw"
mov %zukan_skillc2,3503
mov $zukan_skill3,"Magma Bath"
mov %zukan_skillc3,3504
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_yougan_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\lavag.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_yougan_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\yougan_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\yougan_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\yougan_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\yougan_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\yougan_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\yougan_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_yougan_cg

lsp 500,":c;bg\bg115.bmp",0,0
lsp 430,":a;chara\yougan_h1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yougan_h2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yougan_h3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yougan_h4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yougan_h5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yougan_h6.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_yougan_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,44
mov %skill01,12
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *yougan_start
if %bwait=211 mov %nanido,2:goto *yougan_start
if %bwait=212 mov %nanido,3:goto *yougan_start
lsp 700,":a;chara\yougan_st02.bmp",0,0
bg "bg\bg115.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *yougan_h



;-----??????-----



*zukan_basilisk

mov $zname,"Basilisk"
mov $zlavel,"basilisk"
itoa2 $zukan_ko,%2612
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2612=0 mov %hscene1,0
if %2612>0 mov %hscene1,1
if %2612=0 mov %zukancg,0
if %2612>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"45"
mov $zukan_hp,"5200"
mov $zukan_skill1,"Bird Handjob"
mov %zukan_skillc1,3505
mov $zukan_skill2,"Ample Tit Fuck"
mov %zukan_skillc2,3506
mov $zukan_skill3,"Petrifying Sucking"
mov %zukan_skillc3,3507
mov $zukan_skill4,"Stone Rape"
mov %zukan_skillc4,3508
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_basilisk_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\basilisk.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_basilisk_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\basilisk_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\basilisk_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\basilisk_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\basilisk_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\basilisk_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\basilisk_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\basilisk_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\basilisk_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_basilisk_cg

lsp 500,":c;bg\bg115.bmp",0,0
lsp 430,":a;chara\basilisk_st02.bmp",0,0
lsp 420,":a;chara\basilisk_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\basilisk_ct02.bmp",0,0
lsp 421,":a;chara\basilisk_bk05.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\basilisk_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\basilisk_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_basilisk_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,45
mov %skill01,12
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *basilisk_start
if %bwait=211 mov %nanido,2:goto *basilisk_start
if %bwait=212 mov %nanido,3:goto *basilisk_start
lsp 700,":a;chara\basilisk_st02.bmp",0,0
bg "bg\bg115.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *basilisk_h



;-----?????-----



*zukan_dragon

mov $zname,"Dragon Girl"
mov $zlavel,"dragon"
itoa2 $zukan_ko,%2613
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2613=0 mov %hscene1,0
if %2613>0 mov %hscene1,1
if %2613=0 mov %zukancg,0
if %2613>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"50"
mov $zukan_hp,"6000"
mov $zukan_skill1,"Dragon Hand"
mov %zukan_skillc1,3509
mov $zukan_skill2,"Dragon Mouth"
mov %zukan_skillc2,3510
mov $zukan_skill3,"Dragon Breasts"
mov %zukan_skillc3,3511
mov $zukan_skill4,"Dragon Tongue"
mov %zukan_skillc4,3512
mov $zukan_skill5,"Oral Fixation"
mov %zukan_skillc5,3513
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_dragon_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\dragong.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_dragon_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\dragon_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\dragon_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\dragon_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\dragon_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\dragon_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\dragon_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\dragon_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_dragon_cg

lsp 500,":c;bg\bg115.bmp",0,0
lsp 430,":a;chara\dragon_h1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dragon_h2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dragon_h3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dragon_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_dragon_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,45
mov %skill01,12
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *dragon_start
if %bwait=211 mov %nanido,2:goto *dragon_start
if %bwait=212 mov %nanido,3:goto *dragon_start
lsp 700,":a;chara\dragon_st02.bmp",0,0
bg "bg\bg115.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *dragon_h



;-----??????-----



*zukan_salamander

mov $zname,"Salamander"
mov $zlavel,"salamander"
itoa2 $zukan_ko,%2614
mov %zukan_facenum,3
mov %zukan_posenum,3
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2614=0 mov %hscene1,0
if %2614>0 mov %hscene1,1
if %2614=0 mov %zukancg,0
if %2614>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"85"
mov $zukan_hp,"16000"
mov $zukan_skill1,"Anti Fire Fist"
mov %zukan_skillc1,3514
mov $zukan_skill2,"Fire Spirit's Foot"
mov %zukan_skillc2,3515
mov $zukan_skill3,"Fire Spirit's Embrace"
mov %zukan_skillc3,3516
mov $zukan_skill4,"Flame Steiner"
mov %zukan_skillc4,3517
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_salamander_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\salamander.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_salamander_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=3 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;2Q\chara\salamander_st01.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;2Q\chara\salamander_st02.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;2Q\chara\salamander_st03.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;2Q\chara\salamander_st11.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;2Q\chara\salamander_st12.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;2Q\chara\salamander_st21.png",%zukan_x0+235,85
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;2Q\chara\salamander_st22.png",%zukan_x0+235,85
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;2Q\chara\salamander_st23.png",%zukan_x0+235,85
if %zukan_cum1=1 lsp 441,":a;2Q\chara\salamander_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;2Q\chara\salamander_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;2Q\chara\salamander_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;2Q\chara\salamander_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose>1 cspl 441,444
return



*zukan_salamander_cg

lsp 500,":c;bg\bg115.bmp",0,0
lsp 430,":a;2Q\chara\salamander_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\salamander_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\salamander_ha3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_salamander_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,45
mov %skill01,12
mov %skill02,2
mov %skill03,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *salamander_start
if %bwait=211 mov %nanido,2:goto *salamander_start
if %bwait=212 mov %nanido,3:goto *salamander_start
lsp 700,":a;2Q\chara\salamander_st02.png",0,0
bg "bg\bg115.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *salamander_h



;-----??????(3)-----



*zukan_granberia3

mov $zname,"Granberia (3)"
mov $zlavel,"granberia3"
itoa2 $zukan_ko,%2615
mov %zukan_facenum,5
mov %zukan_posenum,3
mov %zukan_cumnum,3
mov %zukan_battlenum,2
mov %zukan_hscenenum,1
if %2615=0 mov %hscene1,0
if %2615>0 mov %hscene1,1
if %2615=0 mov %zukancg,0
if %2615>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"126"
mov $zukan_hp,"24000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_granberia3_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\granberia3.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_granberia3_p

if %zukan_pose=1 && %zukan_face=7 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,6
if %zukan_pose=2 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=3 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=4 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,3
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\granberia_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\granberia_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\granberia_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\granberia_st04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\granberia_st05.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\granberia_st06.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\granberia_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\granberia_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\granberia_st13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\granberia_st41.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\granberia_st42.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\granberia_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\granberia_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\granberia_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose>1 cspl 441,443
return



*zukan_granberia3_cg

lsp 500,":c;bg\bg115.bmp",0,0
lsp 430,":a;chara\granberia_hc1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\granberia_hc2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\granberia_hc3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\granberia_hc4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_granberia3_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,46
mov %skill01,12
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *granberia3_start
if %bwait=211 mov %nanido,2:goto *granberia3_start
if %bwait=212 mov %nanido,3:goto *granberia3_start
lsp 700,":a;chara\granberia_st41.bmp",0,0
bg "bg\bg115.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov $name,"Granberia"
if %bwait=213 goto *granberia3_h



;-----???(2)-----



*zukan_kani2

mov $zname,"Crab Girl (2)"
mov $zlavel,"kani2"
itoa2 $zukan_ko,%2616
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2616=0 mov %hscene1,0
if %2616>0 mov %hscene1,1
if %2616=0 mov %zukancg,0
if %2616>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"46"
mov $zukan_hp,"2200"
mov $zukan_skill1,"Bubble Bubble"
mov %zukan_skillc1,3518
mov $zukan_skill2,"Bubble Wash Heaven"
mov %zukan_skillc2,3519
mov $zukan_skill3,"Bubble Shake Hell"
mov %zukan_skillc3,3520
mov $zukan_skill4,"Special Bubble Handjob"
mov %zukan_skillc4,3521
mov $zukan_skill5,"Full Body Bubble Hell"
mov %zukan_skillc5,3522
mov $zukan_skill6,"Hellish Penis Washing"
mov %zukan_skillc6,3523
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_kani2_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\crab2.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_kani2_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\kani_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\kani_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\kani_st03.bmp",%zukan_x0,0
if %zukan_pose=2 lsp 450,":a;chara\kani_st00.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\kani_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\kani_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\kani_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\kani_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=2 csp 444
return



*zukan_kani2_cg

lsp 500,":c;bg\bg039.bmp",0,0
lsp 430,":a;chara\kani_st11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kani_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kani_ct02.bmp",0,0
lsp 430,":a;chara\kani_st12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kani_ct03.bmp",0,0
lsp 430,":a;chara\kani_st13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kani_ct11.bmp",0,0
lsp 430,":a;chara\kani_st11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kani_ct12.bmp",0,0
lsp 430,":a;chara\kani_st12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kani_ct13.bmp",0,0
lsp 430,":a;chara\kani_st13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\kani_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kani_ct21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kani_h2.bmp",0,0
lsp 420,":a;chara\kani_ct22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kani_ct23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kani_ct24.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\kani_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kani_ct21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kani_h4.bmp",0,0
lsp 420,":a;chara\kani_ct22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kani_ct23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kani_ct24.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_kani2_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,46
mov %skill01,14
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *kani2_start
if %bwait=211 mov %nanido,2:goto *kani2_start
if %bwait=212 mov %nanido,3:goto *kani2_start
lsp 700,":a;chara\kani_st02.bmp",0,0
bg "bg\bg039.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov $name,"Crab Girl"
if %bwait=213 goto *kani2_h



;-----????-----



*zukan_dagon

mov $zname,"Dagon"
mov $zlavel,"dagon"
itoa2 $zukan_ko,%2618
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,2
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2618=0 mov %hscene1,0
if %2618>0 mov %hscene1,1
if %2618=0 mov %zukancg,0
if %2618>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"46"
mov $zukan_hp,"4600"
mov $zukan_skill1,"Squirm Squirm"
mov %zukan_skillc1,3528
mov $zukan_skill2,"Suck Suck"
mov %zukan_skillc2,3529
mov $zukan_skill3,"Squish Squish"
mov %zukan_skillc3,3530
mov $zukan_skill4,"Forcible Semen Squeeze"
mov %zukan_skillc4,3531
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_dagon_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\dagon.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_dagon_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\dagon_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\dagon_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\dagon_st03.bmp",%zukan_x0,0
if %zukan_pose=2 lsp 450,":a;chara\dagon_st11.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\dagon_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\dagon_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=2 cspl 441,442
return



*zukan_dagon_cg

lsp 500,":c;bg\bg050.bmp",0,0
lsp 430,":a;chara\dagon_h1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\dagon_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\dagon_ct01a.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\dagon_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dagon_h2.bmp",0,0
lsp 420,":a;chara\dagon_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\dagon_h3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\dagon_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\dagon_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\dagon_ct03.bmp",0,0
lsp 430,":a;chara\dagon_h4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\dagon_ct04.bmp",0,0
lsp 430,":a;chara\dagon_h5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\dagon_ct05.bmp",0,0
lsp 430,":a;chara\dagon_h6.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_dagon_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,46
mov %skill01,14
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *dagon_start
if %bwait=211 mov %nanido,2:goto *dagon_start
if %bwait=212 mov %nanido,3:goto *dagon_start
lsp 700,":a;chara\dagon_st02.bmp",0,0
bg "bg\bg050.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *dagon_h




;-----??????-----



*zukan_poseidones

mov $zname,"Poseidoness"
mov $zlavel,"poseidones"
itoa2 $zukan_ko,%2620
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2620=0 mov %hscene1,0
if %2620>0 mov %hscene1,1
if %2620=0 mov %zukancg,0
if %2620>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"65"
mov $zukan_hp,"7500"
mov $zukan_skill1,"Tentacle Caress"
mov %zukan_skillc1,3535
mov $zukan_skill2,"Tentacle Raid"
mov %zukan_skillc2,3536
mov $zukan_skill3,"Tentacle Smash"
mov %zukan_skillc3,3537
mov $zukan_skill4,"Bound Caress"
mov %zukan_skillc4,3538
mov $zukan_skill5,"Bound Raid"
mov %zukan_skillc5,3539
mov $zukan_skill6,"Abyss Drain"
mov %zukan_skillc6,3540
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_poseidones_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\posei.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_poseidones_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\poseidones_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\poseidones_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\poseidones_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\poseidones_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\poseidones_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\poseidones_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\poseidones_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_poseidones_cg

lsp 500,":c;bg\bg053.bmp",0,0
lsp 430,":a;chara\poseidones_ha1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\poseidones_ha2.bmp",0,0
lsp 420,":a;chara\poseidones_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\poseidones_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\poseidones_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\poseidones_ct04.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\poseidones_hb1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\poseidones_hb2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\poseidones_hb3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\poseidones_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_poseidones_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,47
mov %skill01,14
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *poseidones_start
if %bwait=211 mov %nanido,2:goto *poseidones_start
if %bwait=212 mov %nanido,3:goto *poseidones_start
lsp 700,":a;chara\poseidones_st02.bmp",0,0
bg "bg\bg053.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *poseidones_h



;-----?????-----



*zukan_seiren

mov $zname,"Siren"
mov $zlavel,"seiren"
itoa2 $zukan_ko,%2621
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2621=0 mov %hscene1,0
if %2621>0 mov %hscene1,1
if %2621=0 mov %zukancg,0
if %2621>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"48"
mov $zukan_hp,"5200"
mov $zukan_skill1,"Feather Caress"
mov %zukan_skillc1,3541
mov $zukan_skill2,"Feather Wingjob"
mov %zukan_skillc2,3542
mov $zukan_skill3,"Chest of Pleasure"
mov %zukan_skillc3,3543
mov $zukan_skill4,"Mouth of Fascination"
mov %zukan_skillc4,3544
mov $zukan_skill5,"Armpit Squeeze"
mov %zukan_skillc5,3545
mov $zukan_skill6,"Thirsting Vagina"
mov %zukan_skillc6,3546
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_seiren_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\siren.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_seiren_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\seiren_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\seiren_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\seiren_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\seiren_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\seiren_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\seiren_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\seiren_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\seiren_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\seiren_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\seiren_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
return



*zukan_seiren_cg

lsp 500,":c;bg\bg125.bmp",0,0
lsp 430,":a;chara\seiren_st02.bmp",0,0
lsp 420,":a;chara\seiren_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\seiren_ct02.bmp",0,0
lsp 421,":a;chara\seiren_bk07.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\seiren_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\seiren_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_seiren_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,48
mov %skill01,14
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *seiren_start
if %bwait=211 mov %nanido,2:goto *seiren_start
if %bwait=212 mov %nanido,3:goto *seiren_start
lsp 700,":a;chara\seiren_st02.bmp",0,0
bg "bg\bg125.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *seiren_h




;-----????-----



*zukan_hitode

mov $zname,"Starfish Girl"
mov $zlavel,"hitode"
itoa2 $zukan_ko,%2617
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2617=0 mov %hscene1,0
if %2617>0 mov %hscene1,1
if %2617=0 mov %zukancg,0
if %2617>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"48"
mov $zukan_hp,"4800"
mov $zukan_skill1,"Star Blowjob"
mov %zukan_skillc1,3524
mov $zukan_skill2,"Star Caress"
mov %zukan_skillc2,3525
mov $zukan_skill3,"Full-Body Foot Caress"
mov %zukan_skillc3,3526
mov $zukan_skill4,"Penis Foot Caress"
mov %zukan_skillc4,3527
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_hitode_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\starf.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_hitode_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\hitode_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\hitode_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\hitode_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\hitode_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\hitode_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\hitode_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_hitode_cg

lsp 500,":c;bg\bg130.bmp",0,0
lsp 430,":a;chara\hitode_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\hitode_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hitode_ha2.bmp",0,0
lsp 420,":a;chara\hitode_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hitode_ha3.bmp",0,0
csp 420
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\hitode_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hitode_ha4.bmp",0,0
lsp 420,":a;chara\hitode_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hitode_ha5.bmp",0,0
lsp 420,":a;chara\hitode_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hitode_ha6.bmp",0,0
lsp 420,":a;chara\hitode_ct04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\hitode_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hitode_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hitode_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hitode_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_hitode_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,48
mov %skill01,14
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *hitode_start
if %bwait=211 mov %nanido,2:goto *hitode_start
if %bwait=212 mov %nanido,3:goto *hitode_start
lsp 700,":a;chara\hitode_st02.bmp",0,0
bg "bg\bg130.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *hitode_h



;-----?????-----



*zukan_beelzebub

mov $zname,"Beelzebub"
mov $zlavel,"beelzebub"
itoa2 $zukan_ko,%2624
mov %zukan_facenum,3
mov %zukan_posenum,3
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2624=0 mov %hscene1,0
if %2624>0 mov %hscene1,1
if %2624=0 mov %zukancg,0
if %2624>0 mov %zukancg,1
mov %zukan_x1,-100
mov %zukan_x2,100
mov $zukan_lv,"65"
mov $zukan_hp,"8000"
mov $zukan_skill1,"Flies of Purgatory"
mov %zukan_skillc1,3554
mov $zukan_skill2,"Triple Breast Crush"
mov %zukan_skillc2,3555
mov $zukan_skill3,"Monster Fly Suck"
mov %zukan_skillc3,3556
mov $zukan_skill4,"Black Sabbath"
mov %zukan_skillc4,3557
mov $zukan_skill5,"Monster Fly Handjob"
mov %zukan_skillc5,3603
mov $zukan_skill6,"Monster Fly Breast Squeeze"
mov %zukan_skillc6,3661
mov $zukan_skill7,"Monster Fly Blowjob"
mov %zukan_skillc7,3662
mov $zukan_skill8,"Breast Jail"
mov %zukan_skillc8,3558
mov $zukan_skill9,"Breast Prison"
mov %zukan_skillc9,3587
mov $zukan_skill10,"Breast Confinement"
mov %zukan_skillc10,3588
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_beelzebub_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\beelz.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_beelzebub_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\beelzebub_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\beelzebub_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\beelzebub_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\beelzebub_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\beelzebub_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\beelzebub_st13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\beelzebub_st21.bmp",%zukan_x0-200,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\beelzebub_st22.bmp",%zukan_x0-200,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\beelzebub_st23.bmp",%zukan_x0-200,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\beelzebub_bk01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum1=1 lsp 441,":a;chara\beelzebub_bk11.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum1=1 lsp 441,":a;chara\beelzebub_bk21.bmp",%zukan_x0-200,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\beelzebub_bk02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum2=1 lsp 442,":a;chara\beelzebub_bk12.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum2=1 lsp 442,":a;chara\beelzebub_bk22.bmp",%zukan_x0-200,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\beelzebub_bk03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum3=1 lsp 443,":a;chara\beelzebub_bk13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum3=1 lsp 443,":a;chara\beelzebub_bk23.bmp",%zukan_x0-200,0
if %zukan_cum3=0 csp 443
if %zukan_pose=1 && %zukan_cum4=1 lsp 444,":a;chara\beelzebub_bk04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum4=1 lsp 444,":a;chara\beelzebub_bk14.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum4=1 lsp 444,":a;chara\beelzebub_bk24.bmp",%zukan_x0-200,0
if %zukan_cum4=0 csp 444
return



*zukan_beelzebub_cg

lsp 500,":c;bg\bg132.bmp",0,0
lsp 430,":a;chara\beelzebub_h01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\beelzebub_h02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\beelzebub_h11.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\beelzebub_h12.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\beelzebub_h21.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\beelzebub_h22.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\beelzebub_h31.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\beelzebub_h32.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\beelzebub_h33.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\beelzebub_h34.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_beelzebub_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,48
mov %skill01,14
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *beelzebub_start
if %bwait=211 mov %nanido,2:goto *beelzebub_start
if %bwait=212 mov %nanido,3:goto *beelzebub_start
lsp 700,":a;chara\beelzebub_st02.bmp",100,50
lsp 702,":a;chara\beelzebub_st12.bmp",-150,-50
lsp 704,":a;chara\beelzebub_st22.bmp",150,-50
bg "bg\bg132.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *beelzebub_h



;-----?????????-----



*zukan_trickfairy

mov $zname,"Trick Fairy"
mov $zlavel,"trickfairy"
itoa2 $zukan_ko,%2625
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2625=0 mov %hscene1,0
if %2625>0 mov %hscene1,1
if %2625=0 mov %zukancg,0
if %2625>0 mov %zukancg,1
mov %zukan_x1,-58
mov %zukan_x2,142
mov $zukan_lv,"49"
mov $zukan_hp,"5400"
mov $zukan_skill1,"Trick Hand"
mov %zukan_skillc1,3559
mov $zukan_skill2,"Trick Chest"
mov %zukan_skillc2,3560
mov $zukan_skill3,"Trick Mouth"
mov %zukan_skillc3,3561
mov $zukan_skill4,"Soft Butt"
mov %zukan_skillc4,3562
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_trickfairy_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\tfairy.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_trickfairy_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\trickfairy_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\trickfairy_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\trickfairy_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\trickfairy_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\trickfairy_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\trickfairy_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\trickfairy_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\trickfairy_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_trickfairy_cg

lsp 500,":c;bg\bg135.bmp",0,0
lsp 430,":a;chara\trickfairy_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\trickfairy_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\trickfairy_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\trickfairy_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_trickfairy_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,49
mov %skill01,14
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *trickfairy_start
if %bwait=211 mov %nanido,2:goto *trickfairy_start
if %bwait=212 mov %nanido,3:goto *trickfairy_start
lsp 700,":a;chara\trickfairy_st02.bmp",142,0
bg "bg\bg135.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *trickfairy_h



;-----?????????-----



*zukan_queenfairy

mov $zname,"Queen Fairy"
mov $zlavel,"queenfairy"
itoa2 $zukan_ko,%2626
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,2
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2626=0 mov %hscene1,0
if %2626>0 mov %hscene1,1
if %2626=0 mov %zukancg,0
if %2626>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"60"
mov $zukan_hp,"9500"
mov $zukan_skill1,"Ivy Wand"
mov %zukan_skillc1,3570
mov $zukan_skill2,"Ivy Draw"
mov %zukan_skillc2,3571
mov $zukan_skill3,"Sucking Ivy"
mov %zukan_skillc3,3572
mov $zukan_skill4,"Fanatic Dahlia"
mov %zukan_skillc4,3573
mov $zukan_skill5,"Heaven's Dance"
mov %zukan_skillc5,3574
mov $zukan_skill6,"Ecstasy Incense"
mov %zukan_skillc6,3575
mov $zukan_skill7,"Ivy Tighten"
mov %zukan_skillc7,3563
mov $zukan_skill8,"Ivy Caress"
mov %zukan_skillc8,3564
mov $zukan_skill9,"Mellow Rafflesia"
mov %zukan_skillc9,3576
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_queenfairy_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\qfairy.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_queenfairy_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\queenfairy_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\queenfairy_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\queenfairy_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\queenfairy_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\queenfairy_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
return



*zukan_queenfairy_cg

lsp 500,":c;bg\bg136.bmp",0,0
lsp 430,":a;chara\queenfairy_st02.bmp",0,0
lsp 420,":a;chara\queenfairy_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenfairy_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenfairy_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenfairy_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenfairy_ct21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenfairy_ct22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenfairy_ct31.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenfairy_ct32.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_queenfairy_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,50
mov %skill01,14
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *queenfairy_start
if %bwait=211 mov %nanido,2:goto *queenfairy_start
if %bwait=212 mov %nanido,3:goto *queenfairy_start
lsp 700,":a;chara\queenfairy_st02.bmp",0,0
bg "bg\bg136.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *queenfairy_h



;-----???????-----



*zukan_queenelf

mov $zname,"Queen Elf"
mov $zlavel,"queenelf"
itoa2 $zukan_ko,%2627
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2627=0 mov %hscene1,0
if %2627>0 mov %hscene1,1
if %2627=0 mov %zukancg,0
if %2627>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"60"
mov $zukan_hp,"10000"
mov $zukan_skill1,"Elven Hand Squeeze"
mov %zukan_skillc1,3577
mov $zukan_skill2,"Elven Mouth Melt"
mov %zukan_skillc2,3578
mov $zukan_skill3,"Elven Breast Drowning"
mov %zukan_skillc3,3579
mov $zukan_skill4,"Kiss of Ecstasy"
mov %zukan_skillc4,3581
mov $zukan_skill5,"Elven Queen's Vagina"
mov %zukan_skillc5,3582
mov $zukan_skill6,"Heavenly Thrusting"
mov %zukan_skillc6,3580
mov $zukan_skill7,"Hellishly Tight Vagina"
mov %zukan_skillc7,3600
mov $zukan_skill8,"Infinite Sucking"
mov %zukan_skillc8,3601
mov $zukan_skill9,"Energy Drain"
mov %zukan_skillc9,3663
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_queenelf_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\qelf.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_queenelf_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\queenelf_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\queenelf_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\queenelf_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\queenelf_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\queenelf_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\queenelf_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\queenelf_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\queenelf_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_queenelf_cg

lsp 500,":c;bg\bg136.bmp",0,0
lsp 430,":a;chara\queenelf_st02.bmp",0,0
lsp 420,":a;chara\queenelf_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenelf_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenelf_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenelf_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_queenelf_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,51
mov %skill01,14
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *queenelf_start
if %bwait=211 mov %nanido,2:goto *queenelf_start
if %bwait=212 mov %nanido,3:goto *queenelf_start
lsp 700,":a;chara\queenelf_st02.bmp",0,0
bg "bg\bg136.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *queenelf_h



;-----??(???)-----



*zukan_saraevil

mov $zname,"Sara (Succubization)"
mov $zlavel,"saraevil"
itoa2 $zukan_ko,%2628
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,8
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2628=0 mov %hscene1,0
if %2628>0 mov %hscene1,1
if %2628=0 mov %zukancg,0
if %2628>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"70"
mov $zukan_hp,"12000"
mov $zukan_skill1,"Earth Mother's Handjob"
mov %zukan_skillc1,3565
mov $zukan_skill2,"Isis's Lovemaking"
mov %zukan_skillc2,3566
mov $zukan_skill3,"Hellish Blowjob"
mov %zukan_skillc3,3567
mov $zukan_skill4,"Ecstasy Press"
mov %zukan_skillc4,3568
mov $zukan_skill5,"Tail Drain"
mov %zukan_skillc5,3569
mov $zukan_skill6,"Penis Choking Vagina"
mov %zukan_skillc6,3583
mov $zukan_skill7,"Overwhelming Grind"
mov %zukan_skillc7,3584
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_saraevil_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\esara.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_saraevil_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\saraevil_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\saraevil_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\saraevil_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\saraevil_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\saraevil_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\saraevil_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\saraevil_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\saraevil_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\saraevil_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\saraevil_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
if %zukan_cum8=1 lsp 448,":a;chara\saraevil_bk08.bmp",%zukan_x0,0
if %zukan_cum8=0 csp 448
return



*zukan_saraevil_cg

lsp 500,":c;bg\bg136.bmp",0,0
lsp 430,":a;chara\saraevil_st02.bmp",0,0
lsp 420,":a;chara\saraevil_cta01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\saraevil_cta02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\saraevil_cta03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\saraevil_cta04.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\saraevil_ctb01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\saraevil_ctb02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\saraevil_ctb03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\saraevil_ctb04.bmp",0,0
print 10,500:lrclick
csp 420
lsp 430,":a;chara\saraevil_ha1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\saraevil_hb1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\saraevil_hb2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\saraevil_hb3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\saraevil_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_saraevil_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,52
mov %skill01,14
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *saraevil_start
if %bwait=211 mov %nanido,2:goto *saraevil_start
if %bwait=212 mov %nanido,3:goto *saraevil_start
lsp 700,":a;chara\saraevil_st02.bmp",0,0
bg "bg\bg136.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov $name,"Sara"
if %bwait=213 goto *saraevil_h



;-----?????-----



*zukan_wyvern

mov $zname,"Wyvern"
mov $zlavel,"wyvern"
itoa2 $zukan_ko,%2629
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2629=0 mov %hscene1,0
if %2629>0 mov %hscene1,1
if %2629=0 mov %zukancg,0
if %2629>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"55"
mov $zukan_hp,"5500"
mov $zukan_skill1,"Aerial Blowjob"
mov %zukan_skillc1,3589
mov $zukan_skill2,"Violent Breast Rape"
mov %zukan_skillc2,3590
mov $zukan_skill3,"Air Rape"
mov %zukan_skillc3,3591
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_wyvern_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\wyvren.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_wyvern_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\wyvern_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\wyvern_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\wyvern_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\wyvern_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\wyvern_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\wyvern_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\wyvern_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_wyvern_cg

lsp 500,":c;bg\bg140.bmp",0,0
lsp 430,":a;chara\wyvern_st02.bmp",0,0
lsp 420,":a;chara\wyvern_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\wyvern_ct02.bmp",0,0
lsp 421,":a;chara\wyvern_bk04.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\wyvern_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\wyvern_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_wyvern_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,52
mov %skill01,14
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *wyvern_start
if %bwait=211 mov %nanido,2:goto *wyvern_start
if %bwait=212 mov %nanido,3:goto *wyvern_start
lsp 700,":a;chara\wyvern_st02.bmp",0,0
bg "bg\bg140.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *wyvern_h



;-----???-----



*zukan_kyoryuu

mov $zname,"Kyoryuu"
mov $zlavel,"kyoryuu"
itoa2 $zukan_ko,%2630
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,1
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2630=0 mov %hscene1,0
if %2630>0 mov %hscene1,1
if %2630=0 mov %zukancg,0
if %2630>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"53"
mov $zukan_hp,"10000"
mov $zukan_skill1,"Sticky Saliva"
mov %zukan_skillc1,3667
mov $zukan_skill2,"Wet Lick"
mov %zukan_skillc2,3668
mov $zukan_skill3,"Full-Body Lick"
mov %zukan_skillc3,3592
mov $zukan_skill4,"Full-Body Suck"
mov %zukan_skillc4,3593
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_kyoryuu_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\kyor.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_kyoryuu_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\kyoryuu_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\kyoryuu_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\kyoryuu_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\kyoryuu_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
return



*zukan_kyoryuu_cg

lsp 500,":c;bg\bg142.bmp",0,0
lsp 420,":a;chara\kyoryuu_ct01.bmp",0,0
lsp 430,":a;chara\kyoryuu_st11.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kyoryuu_ct02.bmp",0,0
lsp 430,":a;chara\kyoryuu_st12.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kyoryuu_ct03.bmp",0,0
lsp 430,":a;chara\kyoryuu_st11.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kyoryuu_ct04.bmp",0,0
lsp 430,":a;chara\kyoryuu_st12.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kyoryuu_ct05.bmp",0,0
lsp 430,":a;chara\kyoryuu_st12.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kyoryuu_ct06.bmp",0,0
lsp 430,":a;chara\kyoryuu_st12.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_kyoryuu_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,53
mov %skill01,14
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %skill05,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *kyoryuu_start
if %bwait=211 mov %nanido,2:goto *kyoryuu_start
if %bwait=212 mov %nanido,3:goto *kyoryuu_start
lsp 700,":a;chara\kyoryuu_st02.bmp",0,0
bg "bg\bg142.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *kyoryuu_h



;-----???????-----



*zukan_c_beast

mov $zname,"Chimera Beast"
mov $zlavel,"c_beast"
itoa2 $zukan_ko,%2631
mov %zukan_facenum,2
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2631=0 mov %hscene1,0
if %2631>0 mov %hscene1,1
if %2631=0 mov %zukancg,0
if %2631>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"54"
mov $zukan_hp,"8500"
mov $zukan_skill1,"Double Breast Rape"
mov %zukan_skillc1,3594
mov $zukan_skill2,"Tongue Splash"
mov %zukan_skillc2,3595
mov $zukan_skill3,"Vacuum Tail"
mov %zukan_skillc3,3596
mov $zukan_skill4,"Piston Rush"
mov %zukan_skillc4,3597
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_c_beast_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\cbeast.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_c_beast_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\c_beast_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\c_beast_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\c_beast_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\c_beast_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\c_beast_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\c_beast_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_c_beast_cg

lsp 500,":c;bg\bg143.bmp",0,0
lsp 430,":a;chara\c_beast_st01.bmp",0,0
lsp 420,":a;chara\c_beast_ct11.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_beast_ct12.bmp",0,0
lsp 421,":a;chara\c_beast_bk04.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_beast_ct13.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_beast_ct14.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
cspl 420,421
lsp 430,":a;chara\c_beast_h1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_beast_h2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_beast_h3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_beast_h4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_beast_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_beast_h5.bmp",0,0
lsp 420,":a;chara\c_beast_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_beast_h6.bmp",0,0
lsp 420,":a;chara\c_beast_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_beast_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_c_beast_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,54
mov %skill01,14
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %skill05,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *c_beast_start
if %bwait=211 mov %nanido,2:goto *c_beast_start
if %bwait=212 mov %nanido,3:goto *c_beast_start
lsp 700,":a;chara\c_beast_st01.bmp",0,0
bg "bg\bg143.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *c_beast_h



;-----????????...??-----



*zukan_c_dryad_vore

mov $zname,"Chimera Dryad Vore"
mov $zlavel,"c_dryad_vore"
itoa2 $zukan_ko,%2633
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,3
if %2832=0 mov %hscene1,0
if %2832>0 mov %hscene1,1
if %2833=0 mov %hscene2,0
if %2833>0 mov %hscene2,1
if %2834=0 mov %hscene3,0
if %2834>0 mov %hscene3,1
if %2633=0 mov %zukancg,0
if %2633>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"80"
mov $zukan_hp,"16000"
mov $zukan_skill1,"Ivy Digestion"
mov %zukan_skillc1,3604
mov $zukan_skill2,"Penis Devouring Flytrap"
mov %zukan_skillc2,3605
mov $zukan_skill3,"Semen Slurping Pitcher"
mov %zukan_skillc3,3606
mov $zukan_skill4,"Intoxicating Aroma"
mov %zukan_skillc4,3607
mov $zukan_skill5,"Melty Ivy"
mov %zukan_skillc5,3608
mov $zukan_skill6,"Venus Trap of Pleasure"
mov %zukan_skillc6,3609
mov $zukan_skill7,"Digestive Pitcher"
mov %zukan_skillc7,3610
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_c_dryad_vore_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\cdvore.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_c_dryad_vore_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\c_dryad_vore_st01.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\c_dryad_vore_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\c_dryad_vore_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\c_dryad_vore_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_c_dryad_vore_cg

lsp 500,":c;bg\bg144.bmp",0,0
lsp 430,":a;chara\c_dryad_vore_st11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_dryad_vore_st11a.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_dryad_vore_st12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_dryad_vore_st13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_dryad_vore_st14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_dryad_vore_st21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_dryad_vore_st21a.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_dryad_vore_st22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_dryad_vore_st23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_dryad_vore_st24.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_dryad_vore_st25.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_dryad_vore_st31.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_dryad_vore_st32.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_dryad_vore_st33.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_c_dryad_vore_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,55
mov %skill01,14
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %skill05,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *c_dryad_vore_start
if %bwait=211 mov %nanido,2:goto *c_dryad_vore_start
if %bwait=212 mov %nanido,3:goto *c_dryad_vore_start
lsp 700,":a;chara\c_dryad_vore_st01.bmp",0,0
bg "bg\bg144.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *c_dryad_vore_ha
if %bwait=214 goto *c_dryad_vore_hb
if %bwait=215 goto *c_dryad_vore_hc



;-----??????-----



*zukan_vampire

mov $zname,"Vampire"
mov $zlavel,"vampire"
itoa2 $zukan_ko,%2635
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2635=0 mov %hscene1,0
if %2635>0 mov %hscene1,1
if %2635=0 mov %zukancg,0
if %2635>0 mov %zukancg,1
mov %zukan_x1,-25
mov %zukan_x2,175
mov $zukan_lv,"56"
mov $zukan_hp,"9000"
mov $zukan_skill1,"Vampire Bust"
mov %zukan_skillc1,3617
mov $zukan_skill2,"Semen Drain"
mov %zukan_skillc2,3618
mov $zukan_skill3,"Bloodsucking"
mov %zukan_skillc3,3619
mov $zukan_skill4,"Dress Drain"
mov %zukan_skillc4,3620
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_vampire_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\vampire.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_vampire_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\vampire_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\vampire_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\vampire_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\vampire_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\vampire_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\vampire_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_vampire_cg

lsp 500,":c;bg\bg142.bmp",0,0
lsp 430,":a;chara\vampire_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\vampire_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\vampire_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\vampire_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_vampire_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,56
mov %skill01,14
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %skill05,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *vampire_start
if %bwait=211 mov %nanido,2:goto *vampire_start
if %bwait=212 mov %nanido,3:goto *vampire_start
lsp 700,":a;chara\vampire_st02.bmp",175,0
bg "bg\bg142.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *vampire_h



;-----??????-----



*zukan_behemoth

mov $zname,"Behemoth"
mov $zlavel,"behemoth"
itoa2 $zukan_ko,%2634
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2634=0 mov %hscene1,0
if %2634>0 mov %hscene1,1
if %2634=0 mov %zukancg,0
if %2634>0 mov %zukancg,1
mov %zukan_x1,-230
mov %zukan_x2,-30
mov $zukan_lv,"56"
mov $zukan_hp,"10000"
mov $zukan_skill1,"Behemoth Shake"
mov %zukan_skillc1,3611
mov $zukan_skill2,"Behemoth Suck"
mov %zukan_skillc2,3612
mov $zukan_skill3,"Behemoth Breasts"
mov %zukan_skillc3,3613
mov $zukan_skill4,"Behemoth Torture"
mov %zukan_skillc4,3614
mov $zukan_skill5,"Behemoth Draw"
mov %zukan_skillc5,3615
mov $zukan_skill6,"Animal Rape"
mov %zukan_skillc6,3616
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_behemoth_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\behemoth.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_behemoth_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\behemoth_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\behemoth_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\behemoth_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\behemoth_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\behemoth_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\behemoth_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\behemoth_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\behemoth_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_behemoth_cg

lsp 500,":c;bg\bg142.bmp",0,0
lsp 430,":a;chara\behemoth_st02.bmp",0,0
lsp 420,":a;chara\behemoth_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\behemoth_ct02.bmp",0,0
lsp 421,":a;chara\behemoth_bk05.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\behemoth_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\behemoth_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_behemoth_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,56
mov %skill01,14
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %skill05,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *behemoth_start
if %bwait=211 mov %nanido,2:goto *behemoth_start
if %bwait=212 mov %nanido,3:goto *behemoth_start
lsp 700,":a;chara\behemoth_st02.bmp",-30,0
bg "bg\bg142.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *behemoth_h



;-----?????????-----



*zukan_esuccubus

mov $zname,"Elder Succubus"
mov $zlavel,"esuccubus"
itoa2 $zukan_ko,%2636
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2636=0 mov %hscene1,0
if %2636>0 mov %hscene1,1
if %2636=0 mov %zukancg,0
if %2636>0 mov %zukancg,1
mov %zukan_x1,-12
mov %zukan_x2,188
mov $zukan_lv,"57"
mov $zukan_hp,"9500"
mov $zukan_skill1,"Semen Squeezecraft"
mov %zukan_skillc1,3621
mov $zukan_skill2,"Male Dominating Footcraft"
mov %zukan_skillc2,3622
mov $zukan_skill3,"Draining Blowjob"
mov %zukan_skillc3,3623
mov $zukan_skill4,"Male Squeezing Titcraft"
mov %zukan_skillc4,3624
mov $zukan_skill5,"Kiss of Ecstasy"
mov %zukan_skillc5,3625
mov $zukan_skill6,"Energy Drain"
mov %zukan_skillc6,3626
mov $zukan_skill7,"Voracious Monster Bellybutton"
mov %zukan_skillc7,3627
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_esuccubus_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\esuccu.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_esuccubus_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\esuccubus_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\esuccubus_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\esuccubus_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\esuccubus_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\esuccubus_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\esuccubus_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\esuccubus_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\esuccubus_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\esuccubus_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\esuccubus_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
return



*zukan_esuccubus_cg

lsp 500,":c;bg\bg148.bmp",0,0
lsp 430,":a;chara\esuccubus_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\esuccubus_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\esuccubus_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\esuccubus_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_esuccubus_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,57
mov %skill01,15
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %skill05,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *esuccubus_start
if %bwait=211 mov %nanido,2:goto *esuccubus_start
if %bwait=212 mov %nanido,3:goto *esuccubus_start
lsp 700,":a;chara\esuccubus_st02.bmp",188,0
bg "bg\bg148.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *esuccubus_h



;-----??-----



*zukan_hatibi

mov $zname,"Yao"
mov $zlavel,"hatibi"
itoa2 $zukan_ko,%2619
mov %zukan_facenum,4
mov %zukan_posenum,1
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2835=0 mov %hscene1,0
if %2835>0 mov %hscene1,1
if %2836=0 mov %hscene2,0
if %2836>0 mov %hscene2,1
if %2619=0 mov %zukancg,0
if %2619>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"58"
mov $zukan_hp,"12000"
mov $zukan_skill1,"Tail Comfort"
mov %zukan_skillc1,3548
mov $zukan_skill2,"Playful Hand"
mov %zukan_skillc2,3549
mov $zukan_skill3,"Dancing Tongue"
mov %zukan_skillc3,3550
mov $zukan_skill4,"Breast Valley"
mov %zukan_skillc4,3551
mov $zukan_skill5,"Eight Moons"
mov %zukan_skillc5,3552
mov $zukan_skill6,"Gate of Defilement"
mov %zukan_skillc6,3553
mov $zukan_skill7,"Eyes of Temptation"
mov %zukan_skillc7,3586
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_hatibi_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\yao.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_hatibi_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\hatibi_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\hatibi_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\hatibi_st03.bmp",%zukan_x0,0
if %zukan_face=4 lsp 450,":a;chara\hatibi_st04.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\hatibi_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\hatibi_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\hatibi_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\hatibi_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\hatibi_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\hatibi_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
return



*zukan_hatibi_cg

lsp 500,":c;bg\bg148.bmp",0,0
lsp 430,":a;chara\hatibi_st01.bmp",0,0
lsp 420,":a;chara\hatibi_ct01.bmp",440,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\hatibi_ct02.bmp",440,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\hatibi_ct03.bmp",440,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\hatibi_ct04.bmp",440,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\hatibi_ct11.bmp",440,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\hatibi_ct12.bmp",440,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\hatibi_ct13.bmp",440,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\hatibi_ct14.bmp",440,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
if %2835=0 skip 24
csp 420
lsp 430,":a;chara\hatibi_ha1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hatibi_ha2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hatibi_ha3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hatibi_ha4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hatibi_ha5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hatibi_ha6.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hatibi_ha7.bmp",0,0
print 10,500:lrclick
if %2836=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hatibi_hb1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hatibi_hb2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hatibi_hb3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hatibi_hb4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hatibi_hb5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hatibi_hb6.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hatibi_hb7.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_hatibi_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,58
mov %skill01,15
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %skill05,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *hatibi_start
if %bwait=211 mov %nanido,2:goto *hatibi_start
if %bwait=212 mov %nanido,3:goto *hatibi_start
lsp 700,":a;chara\hatibi_st02.bmp",0,0
bg "bg\bg148.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *hatibi_ha
if %bwait=214 goto *hatibi_hb



;-----???-----



*zukan_inp

mov $zname,"Imp"
mov $zlavel,"inp"
itoa2 $zukan_ko,%2622
mov %zukan_facenum,4
mov %zukan_posenum,1
mov %zukan_cumnum,6
mov %zukan_battlenum,2
mov %zukan_hscenenum,2
if %2837=0 mov %hscene1,0
if %2837>0 mov %hscene1,1
if %2838=0 mov %hscene2,0
if %2838>0 mov %hscene2,1
if %2622=0 mov %zukancg,0
if %2622>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"3"
mov $zukan_hp,"50"
mov $zukan_skill1,"Imp Handjob"
mov %zukan_skillc1,3532
mov $zukan_skill2,"Imp Felllatio"
mov %zukan_skillc2,3533
mov $zukan_skill3,"Imp Tit Fuck"
mov %zukan_skillc3,3534
mov $zukan_skill4,"Imp Hip Shake"
mov %zukan_skillc4,3547
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_inp_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\imp.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_inp_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\inp_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\inp_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\inp_st03.bmp",%zukan_x0,0
if %zukan_face=4 lsp 450,":a;chara\inp_st04.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\inp_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\inp_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\inp_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\inp_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\inp_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\inp_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
return



*zukan_inp_cg

lsp 500,":c;bg\bg149.bmp",0,0
lsp 430,":a;chara\inp_hd1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_hd2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_hd3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_hd4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_hd5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_hd6.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_hd7.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_hd8.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_hc1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_hc2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_hc3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_hc4.bmp",0,0
print 10,500:lrclick
if %2837=0 skip 20
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_ha1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_ha2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_ha3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_ha4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_ha5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_ha6.bmp",0,0
print 10,500:lrclick
if %2838=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_hb1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_hb2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_hb3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_inp_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,59
mov %skill01,15
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %skill05,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *inp_start
if %bwait=211 mov %nanido,2:goto *inp_start
if %bwait=212 mov %nanido,3:goto *inp_start
lsp 700,":a;chara\inp_st02.bmp",0,0
bg "bg\bg149.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *inp_ha
if %bwait=214 goto *inp_hb



;-----????????-----



*zukan_gigantweapon

mov $zname,"Giganto Weapon"
mov $zlavel,"gigantweapon"
itoa2 $zukan_ko,%2637
mov %zukan_facenum,2
mov %zukan_posenum,3
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2637=0 mov %hscene1,0
if %2637>0 mov %hscene1,1
if %2637=0 mov %zukancg,0
if %2637>0 mov %zukancg,1
mov %zukan_x1,-100
mov %zukan_x2,0
mov $zukan_lv,"90"
mov $zukan_hp,"18000"
mov $zukan_skill1,"Tentacle Dance"
mov %zukan_skillc1,3628
mov $zukan_skill2,"Semen Squeezing Program"
mov %zukan_skillc2,3629
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_gigantweapon_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\giganto.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_gigantweapon_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose>1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\gigantweapon_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\gigantweapon_st02.bmp",%zukan_x0,0
if %zukan_pose=2 lsp 450,":a;chara\gigantweapon_st11.bmp",%zukan_x0,0
if %zukan_pose=3 lsp 450,":a;chara\gigantweapon_st21.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\gigantweapon_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\gigantweapon_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 && %zukan_pose=1 lsp 443,":a;chara\gigantweapon_bk05.bmp",%zukan_x0,0
if %zukan_cum3=1 && %zukan_pose=2 lsp 443,":a;chara\gigantweapon_bk04.bmp",%zukan_x0,0
if %zukan_cum3=1 && %zukan_pose=3 lsp 443,":a;chara\gigantweapon_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_gigantweapon_cg

lsp 500,":c;bg\bg149.bmp",0,0
lsp 430,":a;chara\gigantweapon_st01.bmp",0,0
lsp 420,":a;chara\lilith_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lilith_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\gigantweapon_h1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gigantweapon_h2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gigantweapon_h3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gigantweapon_h4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gigantweapon_h5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gigantweapon_h6.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_gigantweapon_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,58
mov %skill01,15
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %skill05,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *gigantweapon_start
if %bwait=211 mov %nanido,2:goto *gigantweapon_start
if %bwait=212 mov %nanido,3:goto *gigantweapon_start
lsp 700,":a;chara\gigantweapon_st01.bmp",0,0
bg "bg\bg149.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *gigantweapon_h



;-----??????(3)-----



*zukan_arumaeruma3

mov $zname,"Alma Elma (3)"
mov $zlavel,"arumaeruma3"
itoa2 $zukan_ko,%2638
mov %zukan_facenum,3
mov %zukan_posenum,3
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2638=0 mov %hscene1,0
if %2638>0 mov %hscene1,1
if %2638=0 mov %zukancg,0
if %2638>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"125"
mov $zukan_hp,"15000"
mov $zukan_skill1,"Melty Hand"
mov %zukan_skillc1,3630
mov $zukan_skill2,"Sweet Fellatio"
mov %zukan_skillc2,3631
mov $zukan_skill3,"Tail Caress"
mov %zukan_skillc3,3632
mov $zukan_skill4,"Ancient Succubus Way: Snake"
mov %zukan_skillc4,3633
mov $zukan_skill5,"Romanus Teri Spirit"
mov %zukan_skillc5,3634
mov $zukan_skill6,"Melo Sophie Tellus"
mov %zukan_skillc6,3635
mov $zukan_skill7,"Succubus Ceremony"
mov %zukan_skillc7,3636
mov $zukan_skill8,"Meltic Kiss"
mov %zukan_skillc8,3637
mov $zukan_skill9,"Tail Drain: Reterra"
mov %zukan_skillc9,3638
mov $zukan_skill10,"A Queen's Drain"
mov %zukan_skillc10,3639
mov $zukan_skill11,"Five Step Vaginal Hell"
mov %zukan_skillc11,3640
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_arumaeruma3_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\alma3.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_arumaeruma3_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\arumaeruma_st51.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\arumaeruma_st52.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\arumaeruma_st53.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\arumaeruma_st21.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\arumaeruma_st22.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\arumaeruma_st23.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;2Q\chara\arumaeruma_st11.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;2Q\chara\arumaeruma_st11.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;2Q\chara\arumaeruma_st13.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\arumaeruma_bk11.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\arumaeruma_bk12.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\arumaeruma_bk13.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum4=1 lsp 444,":a;chara\arumaeruma_bk14.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum5=1 lsp 445,":a;chara\arumaeruma_bk03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum6=1 lsp 446,":a;chara\arumaeruma_bk21.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum1=1 lsp 441,":a;chara\arumaeruma_bk01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum2=1 lsp 442,":a;chara\arumaeruma_bk02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum3=1 lsp 443,":a;chara\arumaeruma_bk03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum4=1 lsp 444,":a;chara\arumaeruma_bk04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum5=1 lsp 445,":a;chara\arumaeruma_bk13.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum6=1 lsp 446,":a;chara\arumaeruma_bk16.bmp",%zukan_x0,0
return



*zukan_arumaeruma3_cg

lsp 500,":c;bg\bg047.bmp",0,0
lsp 430,":a;chara\arumaeruma_st51.bmp",0,0
lsp 420,":a;chara\arumaeruma_ct01.bmp",500,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\arumaeruma_ct02.bmp",500,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\arumaeruma_ct03.bmp",500,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\arumaeruma_ct04.bmp",500,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\arumaeruma_ct05.bmp",500,0
lsp 421,":a;chara\arumaeruma_bk21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\arumaeruma_ct06.bmp",500,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
csp 421
lsp 430,":a;chara\arumaeruma_hc1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_hc2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_hc3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_hc4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_hd0.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_hd1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_hd2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_hd3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_hd4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_arumaeruma3_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,60
mov %skill01,16
mov %skill02,2
mov %skill03,2
mov %skill04,2
mov %skill05,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:bgm"bgm\yonseirei2.ogg":goto *arumaeruma3_start
if %bwait=211 mov %nanido,2:bgm"bgm\yonseirei2.ogg":goto *arumaeruma3_start
if %bwait=212 mov %nanido,3:bgm"bgm\yonseirei2.ogg":goto *arumaeruma3_start
lsp 700,":a;chara\arumaeruma_st52.bmp",0,0
bg "bg\bg047.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov $name,"Alma Elma"
if %bwait=213 goto *arumaeruma3_h



;-----???(2)-----



*zukan_tamamo2

mov $zname,"Tamamo (2)"
mov $zlavel,"tamamo2"
itoa2 $zukan_ko,%2639
mov %zukan_facenum,4
mov %zukan_posenum,5
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2639=0 mov %hscene1,0
if %2639>0 mov %hscene1,1
if %2639=0 mov %zukancg,0
if %2639>0 mov %zukancg,1
mov %zukan_x1,-180
mov %zukan_x2,0
mov $zukan_lv,"128"
mov $zukan_hp,"22000"
mov $zukan_skill1,"Kitsune Handling"
mov %zukan_skillc1,3641
mov $zukan_skill2,"Kitsune Mouth Handling"
mov %zukan_skillc2,3642
mov $zukan_skill3,"Flat Breast Rub"
mov %zukan_skillc3,3643
mov $zukan_skill4,"Moonwar Footpound"
mov %zukan_skillc4,3644
mov $zukan_skill5,"Emasculating Amusement"
mov %zukan_skillc5,3645
mov $zukan_skill6,"Moontail Entanglement"
mov %zukan_skillc6,3646
mov $zukan_skill7,"Nine Moons"
mov %zukan_skillc7,3647
mov $zukan_skill8,"Moonlight Rendezvous"
mov %zukan_skillc8,3648
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_tamamo2_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\tamamo2.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_tamamo2_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose>2 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\tamamo_st11.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\tamamo_st12.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\tamamo_st13.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\tamamo_st14.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\tamamo_st01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\tamamo_st02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\tamamo_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\tamamo_st04.bmp",%zukan_x0,0
if %zukan_pose=3 lsp 450,":a;chara\tamamo_st41.bmp",%zukan_x0,0
if %zukan_pose=4 lsp 450,":a;chara\tamamo_st21.bmp",%zukan_x0,0
if %zukan_pose=5 lsp 450,":a;chara\tamamo_st31.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\tamamo_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\tamamo_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\tamamo_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\tamamo_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\tamamo_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\tamamo_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\tamamo_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
if %zukan_pose>1 cspl 445,447
if %zukan_pose>2 cspl 441,447
return



*zukan_tamamo2_cg

lsp 500,":c;bg\bg047.bmp",0,0
lsp 430,":a;chara\tamamo_st11.bmp",0,0
lsp 420,":a;chara\tamamo_ctc01.bmp",490,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tamamo_ctc02.bmp",490,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 423,":a;chara\tamamo_bk03.bmp",0,0
lsp 420,":a;chara\tamamo_ctc03.bmp",490,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tamamo_ctc04.bmp",490,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 423
lsp 420,":a;chara\tamamo_cta01.bmp",490,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tamamo_cta02.bmp",490,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 424,":a;chara\tamamo_bk04.bmp",0,0
lsp 420,":a;chara\tamamo_cta03.bmp",490,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tamamo_cta04.bmp",490,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 424
lsp 420,":a;chara\tamamo_ctb01.bmp",440,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tamamo_ctb02.bmp",440,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 424,":a;chara\tamamo_bk04.bmp",0,0
lsp 420,":a;chara\tamamo_ctb03.bmp",440,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tamamo_ctb04.bmp",440,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
cspl 420,429
lsp 430,":a;chara\tamamo_hc1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hc2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hc3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hc4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hc5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hc6.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hc7.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_ha1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_ha2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_ha3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_ha4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_ha5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_ha6.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_ha7.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hb1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hb2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hb3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hb4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hb5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hb6.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hb7.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hb8.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_tamamo2_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,61
mov %skill01,16
mov %skill02,3
mov %skill03,2
mov %skill04,2
mov %skill05,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:bgm"2Q\bgmfix\tamamo.ogg":goto *tamamo2_start
if %bwait=211 mov %nanido,2:bgm"2Q\bgmfix\tamamo.ogg":goto *tamamo2_start
if %bwait=212 mov %nanido,3:bgm"2Q\bgmfix\tamamo.ogg":goto *tamamo2_start
lsp 700,":a;chara\tamamo_st12.bmp",0,0
bg "bg\bg047.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov $name,"Tamamo"
if %bwait=213 goto *tamamo2_h



;-----??????(2)-----



*zukan_erbetie2

mov $zname,"Erubetie (2)"
mov $zlavel,"erbetie2"
itoa2 $zukan_ko,%2640
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2640=0 mov %hscene1,0
if %2640>0 mov %hscene1,1
if %2640=0 mov %zukancg,0
if %2640>0 mov %zukancg,1
mov %zukan_x1,25
mov %zukan_x2,225
mov $zukan_lv,"125"
mov $zukan_hp,"22000"
mov $zukan_skill1,"Agartha Draw"
mov %zukan_skillc1,3649
mov $zukan_skill2,"Arcadia Spread"
mov %zukan_skillc2,3650
mov $zukan_skill3,"Xanadu Stroke"
mov %zukan_skillc3,3651
mov $zukan_skill4,"Shangri-La Screw"
mov %zukan_skillc4,3652
mov $zukan_skill5,"Melt Storm"
mov %zukan_skillc5,3653
mov $zukan_skill6,"Heaven's Prison"
mov %zukan_skillc6,3654
mov $zukan_skill7,"Neverland Frontier"
mov %zukan_skillc7,3655
mov $zukan_skill8,"Divine Destiny"
mov %zukan_skillc8,3656
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_erbetie2_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\eru2.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_erbetie2_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\erbetie_st01.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\erbetie_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\erbetie_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\erbetie_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\erbetie_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\erbetie_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\erbetie_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\erbetie_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
return



*zukan_erbetie2_cg

lsp 500,":c;bg\bg047.bmp",0,0
lsp 430,":a;chara\erbetie_hb1r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\erbetie_hb2r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\erbetie_hb3r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\erbetie_hb4r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\erbetie_hb5r.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_erbetie2_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,62
mov %skill01,16
mov %skill02,3
mov %skill03,3
mov %skill04,2
mov %skill05,2
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *erbetie2_start
if %bwait=211 mov %nanido,2:goto *erbetie2_start
if %bwait=212 mov %nanido,3:goto *erbetie2_start
lsp 700,":a;chara\erbetie_st01.bmp",225,0
bg "bg\bg047.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov $name,"Erubetie"
if %bwait=213 goto *erbetie2_h



;-----??????(4)-----



*zukan_granberia4

mov $zname,"Granberia (4)"
mov $zlavel,"granberia4"
itoa2 $zukan_ko,%2641
mov %zukan_facenum,5
mov %zukan_posenum,4
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2641=0 mov %hscene1,0
if %2641>0 mov %hscene1,1
if %2641=0 mov %zukancg,0
if %2641>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"126"
mov $zukan_hp,"24000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_granberia4_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\gran4.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_granberia4_p

if %zukan_pose=1 && %zukan_face=7 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,6
if %zukan_pose=2 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=3 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=4 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=5 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,4
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\granberia_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\granberia_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\granberia_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\granberia_st04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\granberia_st05.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\granberia_st06.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\granberia_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\granberia_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\granberia_st13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\granberia_st41.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\granberia_st42.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\granberia_st51.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\granberia_st52.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\granberia_st53.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\granberia_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\granberia_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\granberia_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose>1 cspl 441,443
return



*zukan_granberia4_cg

lsp 500,":c;bg\bg047.bmp",0,0
lsp 430,":a;chara\granberia_hd1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\granberia_hd2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\granberia_hd3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\granberia_hd4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_granberia4_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,63
mov %skill01,16
mov %skill02,3
mov %skill03,3
mov %skill04,2
mov %skill05,3
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *granberia4_start
if %bwait=211 mov %nanido,2:goto *granberia4_start
if %bwait=212 mov %nanido,3:goto *granberia4_start
bg "bg\bg047.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov $name,"Granberia"
if %bwait=213 goto *granberia4_h



;-----???????3-----



*zukan_alice3

mov $zname,"Alice (3)"
mov $zlavel,"alice3"
itoa2 $zukan_ko,%2642
mov %zukan_facenum,10
mov %zukan_posenum,7
mov %zukan_cumnum,8
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2642=0 mov %hscene1,0
if %2642>0 mov %hscene1,1
if %2642=0 mov %zukancg,0
if %2642>0 mov %zukancg,1
mov %zukan_x1,-20
mov %zukan_x2,150
mov $zukan_lv,"145"
mov $zukan_hp,"32000"
mov $zukan_skill1,"Satanic Pressure"
mov %zukan_skillc1,3657
mov $zukan_skill2,"Pleasure Drain"
mov %zukan_skillc2,3658
mov $zukan_skill3,"Eyes of Temptation"
mov %zukan_skillc3,3659
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_alice3_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\alice3.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_alice3_p

if %zukan_pose=8 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,7
if %zukan_pose<5 && %zukan_face=11 mov %zukan_face,1
if %zukan_pose<5 && %zukan_face=0 mov %zukan_face,10
if %zukan_pose>4 mov %zukan_face,1

if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\alice_st01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\alice_st01b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\alice_st11.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\alice_st11b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\alice_st02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\alice_st02b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\alice_st12.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\alice_st12b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\alice_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\alice_st03b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\alice_st13.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\alice_st13b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\alice_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\alice_st04b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;chara\alice_st14.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=4 lsp 450,":a;chara\alice_st14b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\alice_st05.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=5 lsp 450,":a;chara\alice_st05b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=5 lsp 450,":a;chara\alice_st15.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=5 lsp 450,":a;chara\alice_st15b.png",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\alice_st06.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=6 lsp 450,":a;chara\alice_st06b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=6 lsp 450,":a;chara\alice_st16.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=6 lsp 450,":a;chara\alice_st16bre.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=7 lsp 450,":a;chara\alice_st07.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=7 lsp 450,":a;chara\alice_st07b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=7 lsp 450,":a;chara\alice_st17.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=7 lsp 450,":a;chara\alice_st17bre.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=8 lsp 450,":a;chara\alice_st08.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=8 lsp 450,":a;chara\alice_st08b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=8 lsp 450,":a;chara\alice_st18.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=8 lsp 450,":a;chara\alice_st18bre.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=9 lsp 450,":a;chara\alice_st09.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=9 lsp 450,":a;chara\alice_st09b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=9 lsp 450,":a;chara\alice_st19.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=9 lsp 450,":a;chara\alice_st19bre.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=10 lsp 450,":a;chara\alice_st51.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=10 lsp 450,":a;chara\alice_st51b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=10 lsp 450,":a;chara\alice_st61.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=10 lsp 450,":a;chara\alice_st61b.bmp",%zukan_x0-80,0

if %zukan_pose=5 && %zukan_face=1 lsp 450,":a;chara\alice_st21.bmp",%zukan_x0,0
if %zukan_pose=6 && %zukan_face=1 lsp 450,":a;chara\alice_st23.bmp",%zukan_x0,0
if %zukan_pose=7 && %zukan_face=1 lsp 450,":a;chara\alice_st31.bmp",%zukan_x0+80,125

if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\alice_bk01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum1=1 lsp 441,":a;chara\alice_bk01b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_cum1=1 lsp 441,":a;chara\alice_bk01.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_cum1=1 lsp 441,":a;chara\alice_bk01b.bmp",%zukan_x0-80,0
if %zukan_pose=5 && %zukan_cum1=1 lsp 441,":a;chara\alice_bk11.bmp",%zukan_x0,0
if %zukan_pose=6 && %zukan_cum1=1 lsp 441,":a;chara\alice_bk12.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\alice_bk02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum2=1 lsp 442,":a;chara\alice_bk02b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_cum2=1 lsp 442,":a;chara\alice_bk02.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_cum2=1 lsp 442,":a;chara\alice_bk02b.bmp",%zukan_x0-80,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\alice_bk03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum3=1 lsp 443,":a;chara\alice_bk03b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_cum3=1 lsp 443,":a;chara\alice_bk03.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_cum3=1 lsp 443,":a;chara\alice_bk03b.bmp",%zukan_x0-80,0
if %zukan_cum3=0 csp 443
if %zukan_pose=1 && %zukan_cum4=1 lsp 444,":a;chara\alice_bk04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum4=1 lsp 444,":a;chara\alice_bk04b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_cum4=1 lsp 444,":a;chara\alice_bk04.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_cum4=1 lsp 444,":a;chara\alice_bk04b.bmp",%zukan_x0-80,0
if %zukan_cum4=0 csp 444
if %zukan_pose=1 && %zukan_cum5=1 lsp 445,":a;chara\alice_bk05.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum5=1 lsp 445,":a;chara\alice_bk05b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_cum5=1 lsp 445,":a;chara\alice_bk05.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_cum5=1 lsp 445,":a;chara\alice_bk05b.bmp",%zukan_x0-80,0
if %zukan_cum5=0 csp 445
if %zukan_pose=1 && %zukan_cum6=1 lsp 446,":a;chara\alice_bk06.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum6=1 lsp 446,":a;chara\alice_bk06b.bmp",%zukan_x0-80,0
if %zukan_cum6=0 csp 446
if %zukan_pose=1 && %zukan_cum7=1 lsp 447,":a;chara\alice_bk07.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum7=1 lsp 447,":a;chara\alice_bk07b.bmp",%zukan_x0-80,0
if %zukan_cum7=0 csp 447
if %zukan_pose=1 && %zukan_cum8=1 lsp 448,":a;chara\alice_bk08.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum8=1 lsp 448,":a;chara\alice_bk08b.bmp",%zukan_x0-80,0
if %zukan_cum8=0 csp 448
if %zukan_pose>2 cspl 446,448
if %zukan_pose>4 cspl 442,445
return



*zukan_alice3_cg

lsp 430,":a;chara\alice_h09_1r.bmp",0,0
lsp 500,":c;bg\bg141.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h09_2r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h09_3r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h09_4r.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_alice3_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,64
mov %skill01,16
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *alice2_start
if %bwait=211 mov %nanido,2:goto *alice2_start
if %bwait=212 mov %nanido,3:goto *alice2_start
lsp 700,":a;chara\alice_st02.bmp",172,0
bg "bg\bg141.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov $name,"Alipheese"
if %bwait=213 goto *alice2_h



;-----????-----



*zukan_irias2

mov $zname,"Goddess Ilias (2)"
mov $zlavel,"irias2"
mov $zukan_ko,"0"
mov %zukan_facenum,6
mov %zukan_posenum,3
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"????"
mov $zukan_hp,"????"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_irias2_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\ilias2.jpg",400,0			;????
goto *zukan_kihonbtn



*zukan_irias2_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose>1 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose>1 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\iriasu_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\iriasu_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\iriasu_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\iriasu_st04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\iriasu_st05.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\iriasu_st06.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\iriasu_st13.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\iriasu_st12.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\iriasu_st14.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\iriasu_st16.bmp",%zukan_x0,0
return



*zukan_irias2_cg

lsp 500,":c;bg\bg001.bmp",0,0
lsp 430,":a;chara\iriasu_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\iriasu_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\iriasu_h3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_irias2_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,64
mov %skill01,16
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %item01,9
gosub *setwindow_01
lsp 700,":a;chara\iriasu_st02.bmp",0,0
bg "bg\bg001.bmp",10,1500
bgm"BGM\irias.ogg"
if %bwait=213 goto *sean0301a




;-----??????-----




*zukan_cupid

mov $zname,"Cupid "
mov $zlavel,"cupid"
itoa2 $zukan_ko,%2650
mov %zukan_facenum,6
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2650=0 mov %hscene1,0
if %2650>0 mov %hscene1,1
if %2650=0 mov %zukancg,0
if %2650>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"80"
mov $zukan_hp,"13000"
mov $zukan_skill1,"Eros's Handjob "
mov %zukan_skillc1,3383
mov $zukan_skill2,"Cupid's Blowjob "
mov %zukan_skillc2,3600
mov $zukan_skill3,"Amores's Tit Fuck "
mov %zukan_skillc3,3669
mov $zukan_skill4,"Tit Fuck Temptation "
mov %zukan_skillc4,3670
mov $zukan_skill5,"Love Angel's Lust "
mov %zukan_skillc5,3671
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_cupid_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\cupid.jpg",400,0	
goto *zukan_kihonbtn



*zukan_cupid_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\cupid_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\cupid_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\cupid_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\cupid_st04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\cupid_st05.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\cupid_st06.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\cupid_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\cupid_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\cupid_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose=1 && %zukan_cum4=1 lsp 444,":a;chara\cupid_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_cupid_cg

lsp 500,":c;bg\bg047.bmp",0,0
lsp 430,":a;chara\cupid_hb1.bmp",133,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cupid_hb2.bmp",133,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cupid_hb3.bmp",133,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cupid_hb4.bmp",133,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cupid_hb5.bmp",133,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cupid_hb6.bmp",133,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cupid_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cupid_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cupid_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cupid_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cupid_ha5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cupid_ha6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\cupid_ha7.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_cupid_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,64
mov %skill01,16
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *cupid_start
if %bwait=211 mov %nanido,2:goto *cupid_start
if %bwait=212 mov %nanido,3:goto *cupid_start
lsp 700,":a;chara\cupid_st01.bmp",0,0
bg "bg\bg047.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *cupid_h




;-----??????-----



*zukan_valkyrie

mov $zname,"Valkyrie "
mov $zlavel,"valkyrie"
itoa2 $zukan_ko,%2651
mov %zukan_facenum,3
mov %zukan_posenum,4
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2651=0 mov %hscene1,0
if %2651>0 mov %hscene1,1
if %2651=0 mov %zukancg,0
if %2651>0 mov %zukancg,1
mov %zukan_x1,-300
mov %zukan_x2,-50
mov $zukan_lv,"88"
mov $zukan_hp,"18000"
mov $zukan_skill1,"War Angel's Handjob "
mov %zukan_skillc1,3672
mov $zukan_skill2,"War Angel's Heavenly Wings "
mov %zukan_skillc2,3673
mov $zukan_skill3,"War Angel's Blowjob  "
mov %zukan_skillc3,3674
mov $zukan_skill4,"War Angel's Breast Comfort "
mov %zukan_skillc4,3675
mov $zukan_skill5,"War Angel's Embrace "
mov %zukan_skillc5,3676
mov $zukan_skill6,"War Angel's Intercrural "
mov %zukan_skillc6,3677
mov $zukan_skill7,"War Angel's Vagina "
mov %zukan_skillc7,3678
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_valkyrie_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\valk.jpg",400,0	
goto *zukan_kihonbtn



*zukan_valkyrie_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\valkyrie_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\valkyrie_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\valkyrie_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\valkyrie_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\valkyrie_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\valkyrie_st13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\valkyrie_st21.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\valkyrie_st22.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\valkyrie_st23.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\valkyrie_st31.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\valkyrie_st32.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\valkyrie_st33.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\valkyrie_bk01.bmp",%zukan_x0,0
if %zukan_pose>1 && %zukan_cum1=1 lsp 441,":a;chara\valkyrie_bk11.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose<4 && %zukan_cum2=1 lsp 442,":a;chara\valkyrie_bk02.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_cum2=1 lsp 442,":a;chara\valkyrie_bk32.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose<4 && %zukan_cum3=1 lsp 443,":a;chara\valkyrie_bk03.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_cum3=1 lsp 443,":a;chara\valkyrie_bk33.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\valkyrie_bk34.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\valkyrie_bk35.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_valkyrie_cg

lsp 500,":c;bg\bg047.bmp",0,0
lsp 430,":a;chara\valkyrie_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\valkyrie_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\valkyrie_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\valkyrie_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\valkyrie_ha5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\valkyrie_ha6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\valkyrie_ha7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\valkyrie_ha8.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_valkyrie_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,64
mov %skill01,16
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *valkyrie_start
if %bwait=211 mov %nanido,2:goto *valkyrie_start
if %bwait=212 mov %nanido,3:goto *valkyrie_start
lsp 700,":a;chara\valkyrie_st32.bmp",-50,0
bg "bg\bg047.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *valkyrie_h



;-----???????-----



*zukan_ariel

mov $zname,"Archangel Ariel "
mov $zlavel,"ariel"
itoa2 $zukan_ko,%2652
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2652=0 mov %hscene1,0
if %2652>0 mov %hscene1,1
if %2652=0 mov %zukancg,0
if %2652>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"110"
mov $zukan_hp,"22000"
mov $zukan_skill1,"Archangel's Masturbation "
mov %zukan_skillc1,4136
mov $zukan_skill2,"Archangel's Fellatio "
mov %zukan_skillc2,3679
mov $zukan_skill3,"Archangel's Feathers "
mov %zukan_skillc3,3680
mov $zukan_skill4,"Archangel's Tit Fuck "
mov %zukan_skillc4,3681
mov $zukan_skill5,"Archangel's Embrace "
mov %zukan_skillc5,3682
mov $zukan_skill6,"Archangel's Rape "
mov %zukan_skillc6,3683
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_ariel_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\ariel.jpg",400,0	
goto *zukan_kihonbtn



*zukan_ariel_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\ariel_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\ariel_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\ariel_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\ariel_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\ariel_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\ariel_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\ariel_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\ariel_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\ariel_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
return



*zukan_ariel_cg

lsp 500,":c;bg\bg047.bmp",0,0
lsp 430,":a;chara\ariel_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ariel_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ariel_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ariel_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_ariel_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,64
mov %skill01,16
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %item01,10
mov $name,"Ariel "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *ariel_start
if %bwait=211 mov %nanido,2:goto *ariel_start
if %bwait=212 mov %nanido,3:goto *ariel_start
lsp 700,":a;chara\ariel_st02.bmp",0,0
bg "bg\bg047.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *ariel_h



;-----???S-2-----



*zukan_c_s2

mov $zname,"Experimental Organism S-2 "
mov $zlavel,"c_s2"
itoa2 $zukan_ko,%2653
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2653=0 mov %hscene1,0
if %2653>0 mov %hscene1,1
if %2653=0 mov %zukancg,0
if %2653>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"40"
mov $zukan_hp,"7500"
mov $zukan_skill1,"Semen Sucking Pacifier "
mov %zukan_skillc1,3684
mov $zukan_skill2,"Absorbing Tit Fuck "
mov %zukan_skillc2,3685
mov $zukan_skill3,"Semen Sucking Tentacle "
mov %zukan_skillc3,3686
mov $zukan_skill4,"Bubble Shake "
mov %zukan_skillc4,3687
mov $zukan_skill5,"Bubble Heaven "
mov %zukan_skillc5,3688
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_c_s2_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\s2.jpg",400,0	
goto *zukan_kihonbtn



*zukan_c_s2_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\c_s2_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\c_s2_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\c_s2_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\c_s2_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\c_s2_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\c_s2_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\c_s2_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\c_s2_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_c_s2_cg

lsp 500,":c;bg\bg184.bmp",0,0
lsp 430,":a;chara\c_s2_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_s2_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_s2_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_s2_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_s2_ha5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_s2_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_s2_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_s2_ct02.bmp",0,0
lsp 430,":a;chara\c_s2_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_s2_ct03.bmp",0,0
lsp 430,":a;chara\c_s2_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_s2_ct04.bmp",0,0
lsp 430,":a;chara\c_s2_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_c_s2_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,65
mov %skill01,17
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
mov $name,"S - 2 "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *c_s2_start
if %bwait=211 mov %nanido,2:goto *c_s2_start
if %bwait=212 mov %nanido,3:goto *c_s2_start
lsp 700,":a;chara\c_s2_st02.bmp",0,0
bg "bg\bg184.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *c_s2_h



;-----???A-3-----



*zukan_c_a3

mov $zname,"Experimental Organism A-3 "
mov $zlavel,"c_a3"
itoa2 $zukan_ko,%2654
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2654=0 mov %hscene1,0
if %2654>0 mov %hscene1,1
if %2654=0 mov %zukancg,0
if %2654>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"42"
mov $zukan_hp,"9000"
mov $zukan_skill1,"Tongue Stroke "
mov %zukan_skillc1,3689
mov $zukan_skill2,"Breast Press "
mov %zukan_skillc2,3690
mov $zukan_skill3,"Tentacle Rape "
mov %zukan_skillc3,3691
mov $zukan_skill4,"Immoral Raid "
mov %zukan_skillc4,3692
mov $zukan_skill5,"Immoral Feeling "
mov %zukan_skillc5,3693
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_c_a3_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\a3.jpg",400,0	
goto *zukan_kihonbtn



*zukan_c_a3_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\c_a3_st01.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\c_a3_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\c_a3_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\c_a3_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\c_a3_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_c_a3_cg

lsp 500,":c;bg\bg185.bmp",0,0
lsp 430,":a;chara\c_a3_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_a3_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_a3_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_a3_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_a3_ha5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_a3_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_a3_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_a3_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_a3_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_c_a3_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,65
mov %skill01,17
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
mov $name,"A - 3 "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *c_a3_start
if %bwait=211 mov %nanido,2:goto *c_a3_start
if %bwait=212 mov %nanido,3:goto *c_a3_start
lsp 700,":a;chara\c_a3_st01.bmp",0,0
bg "bg\bg185.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *c_a3_h



;-----???????-----



*zukan_stein1

mov $zname,"Promestein "
mov $zlavel,"stein1"
itoa2 $zukan_ko,%2655
mov %zukan_facenum,3
mov %zukan_posenum,3
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2655=0 mov %hscene1,0
if %2655>0 mov %hscene1,1
if %hsean_labo=0 mov %hscene2,0
if %hsean_labo>0 mov %hscene2,1
if %2655=0 mov %zukancg,0
if %2655>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"115"
mov $zukan_hp,"20000"
mov $zukan_skill1,"Warmth "
mov %zukan_skillc1,3694
mov $zukan_skill2,"Softness "
mov %zukan_skillc2,3695
mov $zukan_skill3,"Pressure "
mov %zukan_skillc3,3696
mov $zukan_skill4,"Suction "
mov %zukan_skillc4,3697
mov $zukan_skill5,"Tenderness "
mov %zukan_skillc5,3698
mov $zukan_skill6,"Temperance "
mov %zukan_skillc6,3699
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_stein1_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\prome1.jpg",400,0	
goto *zukan_kihonbtn



*zukan_stein1_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose<3 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose<3 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=3 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\stein_st21.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\stein_st22.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\stein_st23.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\stein_st01r.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\stein_st02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\stein_st03.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\stein_st11.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\stein_bk11.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\stein_bk12.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\stein_bk13.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose=1 && %zukan_cum4=1 lsp 444,":a;chara\stein_bk14.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_stein1_cg

lsp 500,":c;bg\bg186.bmp",0,0
if %2655=0 skip 33
lsp 430,":a;chara\stein_st21.bmp",0,0
lsp 420,":a;chara\stein_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\stein_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\stein_ct13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\stein_ct14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\stein_hb0.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\stein_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\stein_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\stein_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\stein_ct02.bmp",0,0
lsp 430,":a;chara\stein_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\stein_ct03.bmp",0,0
lsp 430,":a;chara\stein_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\stein_hb5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\stein_ct04.bmp",0,0
print 10,500:lrclick
if %hsean_labo=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":c;chara\stein_hc01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc10.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc15.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc16.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc17.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc18.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc19.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc20.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc24.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc25.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc26.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc27.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc28.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc29.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc30.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc31.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc32.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc33.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc34.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc35.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc36.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc37.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc38.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc39.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc40.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc41.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc42.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc43.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc44.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc45.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc46.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc47.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc48.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc49.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc50.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\stein_hc51.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_stein1_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,65
mov %skill01,17
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *stein1_start
if %bwait=211 mov %nanido,2:goto *stein1_start
if %bwait=212 mov %nanido,3:goto *stein1_start
if %bwait=213 lsp 700,":a;chara\stein_st22.bmp",0,0
if %bwait=213 bg "bg\bg186.bmp",10,1500
if %bwait=214 bg black,10,1500
if %bwait=213 && %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %bwait=213 && %con_hbgm=1 bgmstop
mov $name,"Promestein "
if %bwait=213 goto *stein1_h
if %bwait=214 goto *sean0307a



;-----???????-----



*zukan_ranael

mov $zname,"Archangel Ranael "
mov $zlavel,"ranael"
itoa2 $zukan_ko,%2657
mov %zukan_facenum,3
mov %zukan_posenum,4
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2657=0 mov %hscene1,0
if %2657>0 mov %hscene1,1
if %2657=0 mov %zukancg,0
if %2657>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"118"
mov $zukan_hp,"20000"
mov $zukan_skill1,"Drain Vine "
mov %zukan_skillc1,3700
mov $zukan_skill2,"Fine Melody "
mov %zukan_skillc2,3701
mov $zukan_skill3,"Medusa Hair "
mov %zukan_skillc3,3702
mov $zukan_skill4,"Menacing Caress "
mov %zukan_skillc4,3703
mov $zukan_skill5,"Ray Heine "
mov %zukan_skillc5,3704
mov $zukan_skill6,"Arna Principality "
mov %zukan_skillc6,3705
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_ranael_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\ran.jpg",400,0	
goto *zukan_kihonbtn



*zukan_ranael_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=4 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\ranael_st31.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\ranael_st32.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\ranael_st33.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\ranael_st01.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\ranael_st11.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\ranael_st12.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\ranael_st21.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\ranael_st22.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\ranael_st23.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\ranael_bk31.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 && %zukan_cum1=1 lsp 441,":a;chara\ranael_bk11.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 && %zukan_cum1=1 lsp 441,":a;chara\ranael_bk12.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 && %zukan_cum1=1 lsp 441,":a;chara\ranael_bk22.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 && %zukan_cum1=1 lsp 441,":a;chara\ranael_bk23.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\ranael_bk32.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\ranael_bk33.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose=1 && %zukan_cum4=1 lsp 444,":a;chara\ranael_bk34.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=1 && %zukan_cum5=1 lsp 445,":a;chara\ranael_bk35.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_ranael_cg

lsp 500,":c;bg\bg187.bmp",0,0
lsp 430,":a;chara\ranael_h0.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_hc1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_hc2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_hc3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_hc4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_hd1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_hd2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_hd3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_hd4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_he1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_he2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_he3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_he4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_he5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ranael_hf1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\ranael_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\ranael_ct02.bmp",0,0
lsp 430,":a;chara\ranael_hf2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\ranael_ct03.bmp",0,0
lsp 430,":a;chara\ranael_hf3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\ranael_ct04.bmp",0,0
lsp 430,":a;chara\ranael_hf4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_ranael_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,66
mov %skill01,18
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
mov $name,"Ranael "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *ranael_start
if %bwait=211 mov %nanido,2:goto *ranael_start
if %bwait=212 mov %nanido,3:goto *ranael_start
lsp 700,":a;chara\ranael_st32.bmp",0,0
bg "bg\bg187.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *ranael_h



;-----?????-----



*zukan_c_tangh

mov $zname,"Chimera Tongue "
mov $zlavel,"c_tangh"
itoa2 $zukan_ko,%2658
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2658=0 mov %hscene1,0
if %2658>0 mov %hscene1,1
if %2658=0 mov %zukancg,0
if %2658>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"57"
mov $zukan_hp,"15000"
mov $zukan_skill1,"Swarm Lick "
mov %zukan_skillc1,3706
mov $zukan_skill2,"Entangled Lick "
mov %zukan_skillc2,3707
mov $zukan_skill3,"Disorder Lick "
mov %zukan_skillc3,3708
mov $zukan_skill4,"Dissolving Lick "
mov %zukan_skillc4,3709
mov $zukan_skill5,"Winding Lick "
mov %zukan_skillc5,3710
mov $zukan_skill6,"Hellish Lick "
mov %zukan_skillc6,3711
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_c_tangh_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\chimtongue.jpg",400,0	
goto *zukan_kihonbtn



*zukan_c_tangh_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\c_tangh_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\c_tangh_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\c_tangh_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\c_tangh_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\c_tangh_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\c_tangh_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\c_tangh_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\c_tangh_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_c_tangh_cg

lsp 500,":c;bg\bg029.bmp",0,0
lsp 430,":a;chara\c_tangh_st11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_tangh_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_tangh_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_tangh_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_tangh_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_tangh_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_tangh_h6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mob_elf2_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mob_elf2_h2.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_c_tangh_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,66
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *c_tangh_start
if %bwait=211 mov %nanido,2:goto *c_tangh_start
if %bwait=212 mov %nanido,3:goto *c_tangh_start
lsp 700,":a;chara\c_tangh_st02.bmp",0,0
bg "bg\bg029.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *c_tangh_h



;-----???-----



*zukan_angels

mov $zname,"Angel Soldier "
mov $zlavel,"angels"
itoa2 $zukan_ko,%2661
mov %zukan_facenum,3
mov %zukan_posenum,5
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2661=0 mov %hscene1,0
if %2661>0 mov %hscene1,1
if %2661=0 mov %zukancg,0
if %2661>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"83"
mov $zukan_hp,"12000"
mov $zukan_skill1,"Angel Group Handjob "
mov %zukan_skillc1,3712
mov $zukan_skill2,"Angel Group Footjob "
mov %zukan_skillc2,3713
mov $zukan_skill3,"Angel Group Blowjob "
mov %zukan_skillc3,3714
mov $zukan_skill4,"Angel Group Tit Fuck "
mov %zukan_skillc4,3715
mov $zukan_skill5,"Angel Group Items "
mov %zukan_skillc5,3716
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_angels_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\angsoldier.jpg",400,0	
goto *zukan_kihonbtn



*zukan_angels_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\angels_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\angels_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\angels_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\angels_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\angels_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\angels_st13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\angels_st21.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\angels_st22.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\angels_st23.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\angels_st31.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\angels_st32.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\angels_st33.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=1 lsp 450,":a;chara\angels_st41.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=2 lsp 450,":a;chara\angels_st42.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=3 lsp 450,":a;chara\angels_st43.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\angels_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\angels_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\angels_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\angels_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\angels_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_pose=1 && %zukan_cum6=1 lsp 446,":a;chara\angels_bk06.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum6=1 lsp 446,":a;chara\angels_bk26.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_cum6=1 lsp 446,":a;chara\angels_bk36.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_pose=1 && %zukan_cum7=1 lsp 447,":a;chara\angels_bk07.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum7=1 lsp 447,":a;chara\angels_bk27.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_cum7=1 lsp 447,":a;chara\angels_bk37.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
return



*zukan_angels_cg

lsp 500,":c;bg\bg029.bmp",0,0
lsp 430,":a;chara\angels_h01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\angels_h02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\angels_h03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\angels_h04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\angels_h05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\angels_h06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\angels_h07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\angels_h08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\angels_h09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\angels_h10.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_angels_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,66
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *angels_start
if %bwait=211 mov %nanido,2:goto *angels_start
if %bwait=212 mov %nanido,3:goto *angels_start
lsp 700,":a;chara\angels_st02.bmp",-280,0
lsp 701,":a;chara\angels_st22.bmp",-90,0
lsp 702,":a;chara\angels_st32.bmp",90,0
lsp 703,":a;chara\angels_st12.bmp",280,0
bg "bg\bg029.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *angels_h



;-----???????-----



*zukan_nagael

mov $zname,"Principality Nagael "
mov $zlavel,"nagael"
itoa2 $zukan_ko,%2659
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2659=0 mov %hscene1,0
if %2659>0 mov %hscene1,1
if %2659=0 mov %zukancg,0
if %2659>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"115"
mov $zukan_hp,"17000"
mov $zukan_skill1,"Punishing Handjob "
mov %zukan_skillc1,3717
mov $zukan_skill2,"Punishing Blowjob "
mov %zukan_skillc2,3718
mov $zukan_skill3,"Punishing Tit Fuck "
mov %zukan_skillc3,3719
mov $zukan_skill4,"Foot of Divine Punishment "
mov %zukan_skillc4,3720
mov $zukan_skill5,"Judge Snake's Curse "
mov %zukan_skillc5,3721
mov $zukan_skill6,"Judge Snake's Punishment "
mov %zukan_skillc6,3722
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_nagael_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\nag.jpg",400,0	
goto *zukan_kihonbtn



*zukan_nagael_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\nagael_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\nagael_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\nagael_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\nagael_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\nagael_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\nagael_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\nagael_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\nagael_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\nagael_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\nagael_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
return



*zukan_nagael_cg

lsp 500,":c;bg\bg029.bmp",0,0
lsp 430,":a;chara\nagael_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\nagael_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\nagael_h2.bmp",0,0
lsp 420,":a;chara\nagael_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\nagael_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\nagael_h4.bmp",0,0
lsp 420,":a;chara\nagael_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\mob_elf1_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mob_elf1_h2.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_nagael_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,67
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
mov $name,"Nagael "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *nagael_start
if %bwait=211 mov %nanido,2:goto *nagael_start
if %bwait=212 mov %nanido,3:goto *nagael_start
lsp 700,":a;chara\nagael_st02.bmp",0,0
bg "bg\bg029.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *nagael_h



;-----???????-----



*zukan_c_slag

mov $zname,"Chimera Slug "
mov $zlavel,"c_slag"
mov $zukan_ko,"None "
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"42"
mov $zukan_hp,"10000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_c_slag_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\chimslug.jpg",400,0	
goto *zukan_kihonbtn



*zukan_c_slag_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\c_slag_st01.bmp",%zukan_x0,0
return



*zukan_c_slag_cg

lsp 500,":c;bg\bg018.bmp",0,0
lsp 430,":a;chara\c_slag_h01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_slag_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_slag_h02.bmp",0,0
lsp 420,":a;chara\c_slag_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_slag_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_slag_ct04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_slag_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_slag_h03.bmp",0,0
lsp 420,":a;chara\c_slag_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_slag_ct13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_slag_ct14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\c_slag_h04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_slag_h05.bmp",0,0
lsp 420,":a;chara\c_slag_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_slag_h06.bmp",0,0
lsp 420,":a;chara\c_slag_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_slag_h07.bmp",0,0
lsp 420,":a;chara\c_slag_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_slag_h08.bmp",0,0
lsp 420,":a;chara\c_slag_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_slag_h06.bmp",0,0
lsp 420,":a;chara\c_slag_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_slag_h09.bmp",0,0
lsp 420,":a;chara\c_slag_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_slag_h08.bmp",0,0
lsp 420,":a;chara\c_slag_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_slag_h10.bmp",0,0
lsp 420,":a;chara\c_slag_ct13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_slag_h09.bmp",0,0
lsp 420,":a;chara\c_slag_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_slag_h11.bmp",0,0
lsp 420,":a;chara\c_slag_ct04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_slag_h10.bmp",0,0
lsp 420,":a;chara\c_slag_ct13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_slag_h12.bmp",0,0
lsp 420,":a;chara\c_slag_ct14.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_c_slag_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,68
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
bg "bg\bg018.bmp",10,1500
bgm"bgm\kiki2.ogg"
if %bwait=213 goto *sean0316a



;-----????????-----



*zukan_c_tentacle

mov $zname,"Chimera Tentacle "
mov $zlavel,"c_tentacle"
itoa2 $zukan_ko,%2662
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,2
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2662=0 mov %hscene1,0
if %2662>0 mov %hscene1,1
if %2662=0 mov %zukancg,0
if %2662>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"59"
mov $zukan_hp,"16000"
mov $zukan_skill1,"Tentatrain "
mov %zukan_skillc1,3723
mov $zukan_skill2,"Tentacoil "
mov %zukan_skillc2,3724
mov $zukan_skill3,"Tentatempest "
mov %zukan_skillc3,3725
mov $zukan_skill4,"Tentabind "
mov %zukan_skillc4,3726
mov $zukan_skill5,"Tentafiesta "
mov %zukan_skillc5,3727
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_c_tentacle_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\chimtenta.jpg",400,0	
goto *zukan_kihonbtn



*zukan_c_tentacle_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\c_tentacle_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\c_tentacle_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\c_tentacle_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\c_tentacle_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\c_tentacle_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
return



*zukan_c_tentacle_cg

lsp 500,":c;bg\bg018.bmp",0,0
lsp 430,":a;chara\c_tentacle_st11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_tentacle_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_tentacle_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_tentacle_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_tentacle_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_c_tentacle_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,68
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *c_tentacle_start
if %bwait=211 mov %nanido,2:goto *c_tentacle_start
if %bwait=212 mov %nanido,3:goto *c_tentacle_start
lsp 700,":a;chara\c_tentacle_st02.bmp",0,0
bg "bg\bg018.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *c_tentacle_h



;-----???????-----



*zukan_mariel

mov $zname,"Archangel Mariel "
mov $zlavel,"mariel"
itoa2 $zukan_ko,%2660
mov %zukan_facenum,4
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2845=0 mov %hscene1,0
if %2845>0 mov %hscene1,1
if %2846=0 mov %hscene2,0
if %2846>0 mov %hscene2,1
if %2660=0 mov %zukancg,0
if %2660>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"109"
mov $zukan_hp,"18000"
mov $zukan_skill1,"Angel Hand "
mov %zukan_skillc1,3728
mov $zukan_skill2,"Angel Mouth "
mov %zukan_skillc2,3729
mov $zukan_skill3,"Angel Chest "
mov %zukan_skillc3,3730
mov $zukan_skill4,"Heaven's Foot "
mov %zukan_skillc4,3731
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_mariel_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\mariel.jpg",400,0	
goto *zukan_kihonbtn



*zukan_mariel_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\mariel_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\mariel_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\mariel_st03.bmp",%zukan_x0,0
if %zukan_face=4 lsp 450,":a;chara\mariel_st04.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\mariel_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\mariel_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\mariel_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\mariel_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\mariel_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_mariel_cg

lsp 500,":c;bg\bg017.bmp",0,0
if %2845=0 skip 23
lsp 430,":a;chara\mariel_ha01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_ha02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_ha03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_ha04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_ha05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_ha06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_ha07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_ha08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_ha09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_ha10.bmp",0,0
print 10,500:lrclick
if %2846=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_hb5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_hb6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_hb7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_hb8.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_hb9.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_hc1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_hc2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_hc3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_hc4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_hc5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_hc6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_hc7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_hc8.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mariel_hc9.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_mariel_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,68
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
mov $name,"Mariel "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *mariel_start
if %bwait=211 mov %nanido,2:goto *mariel_start
if %bwait=212 mov %nanido,3:goto *mariel_start
lsp 700,":a;chara\mariel_st02.bmp",0,0
bg "bg\bg017.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *mariel_ha
if %bwait=214 goto *mariel_hb



;-----???????-----



*zukan_c_prison

mov $zname,"Chimera Prison "
mov $zlavel,"c_prison"
mov $zukan_ko,"None "
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"57"
mov $zukan_hp,"14000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_c_prison_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\chimprison.jpg",400,0	
goto *zukan_kihonbtn



*zukan_c_prison_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\c_prison_st01.bmp",%zukan_x0,0
return



*zukan_c_prison_cg

lsp 500,":c;bg\bg220.bmp",0,0
lsp 430,":a;chara\c_prison_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_prison_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_prison_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_prison_h2.bmp",0,0
lsp 420,":a;chara\c_prison_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_prison_h3.bmp",0,0
lsp 420,":a;chara\c_prison_ct04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_prison_h4.bmp",0,0
lsp 420,":a;chara\c_prison_ct05.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_c_prison_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,68
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
bgm"bgm\kiki2.ogg"
if %bwait=213 goto *sean0319



;-----?????????-----



*zukan_c_medulahan

mov $zname,"Chimera Medullahan "
mov $zlavel,"c_medulahan"
itoa2 $zukan_ko,%2663
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2663=0 mov %hscene1,0
if %2663>0 mov %hscene1,1
if %2663=0 mov %zukancg,0
if %2663>0 mov %zukancg,1
mov %zukan_x1,-250
mov %zukan_x2,0
mov $zukan_lv,"61"
mov $zukan_hp,"18000"
mov $zukan_skill1,"Medullahan's Masturbation "
mov %zukan_skillc1,3732
mov $zukan_skill2,"Medullahan's Footjob "
mov %zukan_skillc2,3733
mov $zukan_skill3,"Medullahan's Tit Fuck  "
mov %zukan_skillc3,3734
mov $zukan_skill4,"Medusa's Blowjob "
mov %zukan_skillc4,3735
mov $zukan_skill5,"Medusa's Hair "
mov %zukan_skillc5,3736
mov $zukan_skill6,"Snake Violation "
mov %zukan_skillc6,3737
mov $zukan_skill7,"Serpent Rape "
mov %zukan_skillc7,3738
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_c_medulahan_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\chimmedulla.jpg",400,0	
goto *zukan_kihonbtn



*zukan_c_medulahan_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\c_medulahan_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\c_medulahan_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\c_medulahan_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\c_medulahan_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\c_medulahan_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\c_medulahan_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\c_medulahan_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\c_medulahan_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_c_medulahan_cg

lsp 500,":c;bg\bg220.bmp",0,0
lsp 430,":a;chara\c_medulahan_st11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_medulahan_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_medulahan_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_medulahan_ct02.bmp",0,0
lsp 430,":a;chara\c_medulahan_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_medulahan_ct03.bmp",0,0
lsp 430,":a;chara\c_medulahan_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_medulahan_ct04.bmp",0,0
lsp 430,":a;chara\c_medulahan_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\c_medulahan_hb0.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_medulahan_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_medulahan_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_medulahan_ct12.bmp",0,0
lsp 430,":a;chara\c_medulahan_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_medulahan_ct13.bmp",0,0
lsp 430,":a;chara\c_medulahan_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_medulahan_ct14.bmp",0,0
lsp 430,":a;chara\c_medulahan_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\c_medulahan_hb5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_medulahan_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_medulahan_ct12.bmp",0,0
lsp 430,":a;chara\c_medulahan_hb6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_medulahan_ct13.bmp",0,0
lsp 430,":a;chara\c_medulahan_hb7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_medulahan_ct14.bmp",0,0
lsp 430,":a;chara\c_medulahan_hb8.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_c_medulahan_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,68
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *c_medulahan_start
if %bwait=211 mov %nanido,2:goto *c_medulahan_start
if %bwait=212 mov %nanido,3:goto *c_medulahan_start
lsp 700,":a;chara\c_medulahan_st02.bmp",0,0
bg "bg\bg220.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *c_medulahan_h



;-----?????-----



*zukan_trinity

mov $zname,"Trinity "
mov $zlavel,"trinity"
itoa2 $zukan_ko,%2656
mov %zukan_facenum,4
mov %zukan_posenum,3
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2656=0 mov %hscene1,0
if %2656>0 mov %hscene1,1
if %2656=0 mov %zukancg,0
if %2656>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"94"
mov $zukan_hp,"17000"
mov $zukan_skill1,"Blissful Masturbation "
mov %zukan_skillc1,3763
mov $zukan_skill2,"Proselytising Blowjob "
mov %zukan_skillc2,3764
mov $zukan_skill3,"Pleasurable Intercrural "
mov %zukan_skillc3,3765
mov $zukan_skill4,"Ascending Tit Fuck "
mov %zukan_skillc4,3766
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_trinity_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\trinity.jpg",400,0	
goto *zukan_kihonbtn



*zukan_trinity_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\trinity_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\trinity_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\trinity_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\trinity_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\trinity_st11.bmp",%zukan_x0+265,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\trinity_st12.bmp",%zukan_x0+265,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\trinity_st13.bmp",%zukan_x0+265,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\trinity_st14.bmp",%zukan_x0+265,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\trinity_st21.bmp",%zukan_x0-260,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\trinity_st22.bmp",%zukan_x0-260,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\trinity_st23.bmp",%zukan_x0-260,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;chara\trinity_st24.bmp",%zukan_x0-260,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\trinity_bk01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum1=1 lsp 441,":a;chara\trinity_bk11.bmp",%zukan_x0+265,0
if %zukan_pose=3 && %zukan_cum1=1 lsp 441,":a;chara\trinity_bk21.bmp",%zukan_x0-260,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\trinity_bk02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum2=1 lsp 442,":a;chara\trinity_bk12.bmp",%zukan_x0+265,0
if %zukan_pose=3 && %zukan_cum2=1 lsp 442,":a;chara\trinity_bk22.bmp",%zukan_x0-260,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\trinity_bk03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum3=1 lsp 443,":a;chara\trinity_bk13.bmp",%zukan_x0+265,0
if %zukan_pose=3 && %zukan_cum3=1 lsp 443,":a;chara\trinity_bk23.bmp",%zukan_x0-260,0
if %zukan_cum3=0 csp 443
if %zukan_pose=1 && %zukan_cum4=1 lsp 444,":a;chara\trinity_bk04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum4=1 lsp 444,":a;chara\trinity_bk14.bmp",%zukan_x0+265,0
if %zukan_pose=3 && %zukan_cum4=1 lsp 444,":a;chara\trinity_bk24.bmp",%zukan_x0-260,0
if %zukan_cum4=0 csp 444
return



*zukan_trinity_cg

lsp 500,":c;bg\bg221.bmp",0,0
lsp 420,":a;chara\trinity_ct01.bmp",0,0
lsp 430,":a;chara\trinity_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\trinity_ct02.bmp",0,0
lsp 430,":a;chara\trinity_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\trinity_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\trinity_ct04.bmp",0,0
lsp 430,":a;chara\trinity_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\trinity_ct05.bmp",0,0
lsp 430,":a;chara\trinity_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\trinity_ct06.bmp",0,0
lsp 430,":a;chara\trinity_ha5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\trinity_ct07.bmp",0,0
lsp 430,":a;chara\trinity_ha6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\trinity_ct08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\trinity_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\trinity_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\trinity_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\trinity_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\trinity_hb5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\trinity_hb6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\trinity_hb7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\trinity_hb8.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\trinity_hb9.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_trinity_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,69
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *trinity_start
if %bwait=211 mov %nanido,2:goto *trinity_start
if %bwait=212 mov %nanido,3:goto *trinity_start
lsp 700,":a;chara\trinity_st02.bmp",0,0
lsp 701,":a;chara\trinity_st12.bmp",0,0
lsp 702,":a;chara\trinity_st22.bmp",0,0
bg "bg\bg221.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *trinity_h



;-----?????-----



*zukan_c_bug

mov $zname,"Chimera Bug "
mov $zlavel,"c_bug"
itoa2 $zukan_ko,%2665
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2665=0 mov %hscene1,0
if %2665>0 mov %hscene1,1
if %2665=0 mov %zukancg,0
if %2665>0 mov %zukancg,1
mov %zukan_x1,-150
mov %zukan_x2,0
mov $zukan_lv,"54"
mov $zukan_hp,"18000"
mov $zukan_skill1,"Slimy Handjob "
mov %zukan_skillc1,3767
mov $zukan_skill2,"Wet Blowjob "
mov %zukan_skillc2,3768
mov $zukan_skill3,"Sticky Tit Fuck "
mov %zukan_skillc3,3769
mov $zukan_skill4,"Human Stomach Rub "
mov %zukan_skillc4,3770
mov $zukan_skill5,"Insect Stomach Rub "
mov %zukan_skillc5,3771
mov $zukan_skill6,"Forced Oviduct Mating "
mov %zukan_skillc6,3772
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_c_bug_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\chimbug.jpg",400,0	
goto *zukan_kihonbtn



*zukan_c_bug_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\c_bug_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\c_bug_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\c_bug_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\c_bug_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\c_bug_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\c_bug_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\c_bug_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\c_bug_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\c_bug_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
return



*zukan_c_bug_cg

lsp 500,":c;bg\bg048.bmp",0,0
lsp 430,":a;chara\c_bug_st02.bmp",0,0
lsp 420,":a;chara\c_bug_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_bug_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_bug_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_bug_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_bug_ct21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_bug_ct22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\c_bug_ct23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":c;chara\c_bug_hb01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\c_bug_hb02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\c_bug_hb03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\c_bug_hb04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\c_bug_hb05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\c_bug_hb06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\c_bug_hb07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\c_bug_hb08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\c_bug_hb09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\c_bug_hb10.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\c_bug_hb11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\c_bug_hb12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\c_bug_hb13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\c_bug_hb14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\c_bug_hb15.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\c_bug_hb16.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\c_bug_hb17.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\c_bug_hb18.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\c_bug_hb19.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\c_bug_hb20.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_c_bug_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,69
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *c_bug_start
if %bwait=211 mov %nanido,2:goto *c_bug_start
if %bwait=212 mov %nanido,3:goto *c_bug_start
lsp 700,":a;chara\c_bug_st02.bmp",0,0
bg "bg\bg048.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *c_bug_h



;-----???????-----



*zukan_sisterlamia

mov $zname,"Sister Lamia "
mov $zlavel,"sisterlamia"
itoa2 $zukan_ko,%2664
mov %zukan_facenum,5
mov %zukan_posenum,3
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2664=0 mov %hscene1,0
if %2664>0 mov %hscene1,1
if %2664=0 mov %zukancg,0
if %2664>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"55"
mov $zukan_hp,"18000"
mov $zukan_skill1,"Graceful Blowjob "
mov %zukan_skillc1,3773
mov $zukan_skill2,"Love-Filled Breast Squeeze " 
mov %zukan_skillc2,3774
mov $zukan_skill3,"Delightful Masturbation "
mov %zukan_skillc3,3775
mov $zukan_skill4,"Snake Body of Bliss "
mov %zukan_skillc4,3776
mov $zukan_skill5,"Ecstasy Snake Wrap "
mov %zukan_skillc5,3777
mov $zukan_skill6,"Love-Filled Breasts "
mov %zukan_skillc6,3778
mov $zukan_skill7,"Holy Snake's Embrace "
mov %zukan_skillc7,3779
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_sisterlamia_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\sislamia.jpg",400,0	
goto *zukan_kihonbtn



*zukan_sisterlamia_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\sisterlamia_st01r.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\sisterlamia_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\sisterlamia_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\sisterlamia_st04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\sisterlamia_st05.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\sisterlamia_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\sisterlamia_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\sisterlamia_st13.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\sisterlamia_st14.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=5 lsp 450,":a;chara\sisterlamia_st15.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\sisterlamia_st21.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\sisterlamia_st22.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\sisterlamia_st23.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;chara\sisterlamia_st24.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=5 lsp 450,":a;chara\sisterlamia_st25.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\sisterlamia_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 csp 442
if %zukan_pose=2 && %zukan_cum2=1 lsp 442,":a;chara\sisterlamia_bk12.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum2=1 lsp 442,":a;chara\sisterlamia_bk22.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 csp 443
if %zukan_pose=2 && %zukan_cum3=1 lsp 443,":a;chara\sisterlamia_bk13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum3=1 lsp 443,":a;chara\sisterlamia_bk13.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose=1 && %zukan_cum4=1 csp 444
if %zukan_pose=2 && %zukan_cum4=1 lsp 444,":a;chara\sisterlamia_bk14.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum4=1 lsp 444,":a;chara\sisterlamia_bk14.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\sisterlamia_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\sisterlamia_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\sisterlamia_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
return



*zukan_sisterlamia_cg

lsp 500,":c;bg\bg048.bmp",0,0
lsp 430,":a;chara\sisterlamia_h1.bmp",0,0
lsp 420,":c;chara\sisterlamia_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sisterlamia_h2.bmp",0,0
lsp 420,":c;chara\sisterlamia_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sisterlamia_h3.bmp",0,0
lsp 420,":c;chara\sisterlamia_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\sisterlamia_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sisterlamia_hb2.bmp",0,0
lsp 420,":a;chara\sisterlamia_bk08.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_sisterlamia_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,69
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *sisterlamia_start
if %bwait=211 mov %nanido,2:goto *sisterlamia_start
if %bwait=212 mov %nanido,3:goto *sisterlamia_start
lsp 700,":a;chara\sisterlamia_st02.bmp",0,0
bg "bg\bg048.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *sisterlamia_h



;-----???????-----



*zukan_catoblepas

mov $zname,"Catoblepas Girl "
mov $zlavel,"catoblepas"
mov $zukan_ko,"None "
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-250
mov %zukan_x2,0
mov $zukan_lv,"60"
mov $zukan_hp,"16000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_catoblepas_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\catobl.jpg",400,0	
goto *zukan_kihonbtn



*zukan_catoblepas_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\catoblepas_st01.bmp",%zukan_x0,0
return



*zukan_catoblepas_cg

lsp 500,":c;bg\bg044.bmp",0,0
lsp 430,":a;chara\catoblepas_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\catoblepas_h2.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_catoblepas_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,70
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
lsp 700,":a;chara\mob_heisi1.bmp",-200,0
lsp 701,":a;chara\catoblepas_st01.bmp",160,0
bg "bg\bg044.bmp",10,1500
bgm"bgm\boss0.ogg"
if %bwait=213 goto *sean0324a



;-----????????-----



*zukan_muzukiel

mov $zname,"Power Muzukiel "
mov $zlavel,"muzukiel"
itoa2 $zukan_ko,%2666
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2666=0 mov %hscene1,0
if %2666>0 mov %hscene1,1
if %2666=0 mov %zukancg,0
if %2666>0 mov %zukancg,1
mov %zukan_x1,-130
mov %zukan_x2,0
mov $zukan_lv,"122"
mov $zukan_hp,"18000"
mov $zukan_skill1,"Punishing Handjob "
mov %zukan_skillc1,3780
mov $zukan_skill2,"Punishing Blowjob "
mov %zukan_skillc2,3781
mov $zukan_skill3,"Punishing Tit Fuck "
mov %zukan_skillc3,3782
mov $zukan_skill4,"Punishing Centipede "
mov %zukan_skillc4,3783
mov $zukan_skill5,"Punishing Leech "
mov %zukan_skillc5,3784
mov $zukan_skill6,"Punishing Flesh Hole "
mov %zukan_skillc6,3785
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_muzukiel_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\muzukiel.jpg",400,0	
goto *zukan_kihonbtn



*zukan_muzukiel_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\muzukiel_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\muzukiel_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\muzukiel_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\muzukiel_st11.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\muzukiel_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\muzukiel_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\muzukiel_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose=2 && %zukan_cum4=1 lsp 444,":a;chara\muzukiel_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\muzukiel_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_muzukiel_cg

lsp 500,":c;bg\bg157.bmp",0,0
lsp 430,":a;chara\muzukiel_st21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\muzukiel_st22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\muzukiel_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\muzukiel_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\muzukiel_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\muzukiel_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\muzukiel_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\muzukiel_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\muzukiel_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\muzukiel_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_muzukiel_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,70
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
mov $name,"Muzukiel "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *muzukiel_start
if %bwait=211 mov %nanido,2:goto *muzukiel_start
if %bwait=212 mov %nanido,3:goto *muzukiel_start
lsp 700,":a;chara\muzukiel_st02.bmp",0,0
bg "bg\bg157.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *muzukiel_h



;-----?????-----



*zukan_Mermaid

mov $zname,"Mermaid "
mov $zlavel,"Mermaid"
itoa2 $zukan_ko,%2667
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2667=0 mov %hscene1,0
if %2667>0 mov %hscene1,1
if %2667=0 mov %zukancg,0
if %2667>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"53"
mov $zukan_hp,"16000"
mov $zukan_skill1,"Mermaid Blowjob "
mov %zukan_skillc1,3786
mov $zukan_skill2,"Mermaid Tit Fuck "
mov %zukan_skillc2,3787
mov $zukan_skill3,"Mermaid Hair "
mov %zukan_skillc3,3788
mov $zukan_skill4,"Mermaid Tail "
mov %zukan_skillc4,3789
mov $zukan_skill5,"Gel Blow "
mov %zukan_skillc5,3790
mov $zukan_skill6,"Song of the Mermaid "
mov %zukan_skillc6,3791
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_Mermaid_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\mermaid.jpg",400,0	
goto *zukan_kihonbtn



*zukan_Mermaid_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\Mermaid_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\Mermaid_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\Mermaid_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\Mermaid_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\Mermaid_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\Mermaid_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\Mermaid_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\Mermaid_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\Mermaid_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\Mermaid_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
return



*zukan_Mermaid_cg

lsp 500,":c;bg\bg037.bmp",0,0
lsp 430,":a;chara\Mermaid_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\Mermaid_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\Mermaid_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\Mermaid_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_Mermaid_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,70
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *Mermaid_start
if %bwait=211 mov %nanido,2:goto *Mermaid_start
if %bwait=212 mov %nanido,3:goto *Mermaid_start
lsp 700,":a;chara\Mermaid_st02.bmp",0,0
bg "bg\bg037.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *Mermaid_h



;-----??????????-----



*zukan_g_Mermaid

mov $zname,"Mermaid General "
mov $zlavel,"g_Mermaid"
itoa2 $zukan_ko,%2668
mov %zukan_facenum,4
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2853=0 mov %hscene1,0
if %2853>0 mov %hscene1,1
if %2854=0 mov %hscene2,0
if %2854>0 mov %hscene2,1
if %2668=0 mov %zukancg,0
if %2668>0 mov %zukancg,1
mov %zukan_x1,-250
mov %zukan_x2,0
mov $zukan_lv,"60"
mov $zukan_hp,"18000"
mov $zukan_skill1,"General's Blowjob "
mov %zukan_skillc1,3792
mov $zukan_skill2,"General's Tit Fuck "
mov %zukan_skillc2,3793
mov $zukan_skill3,"General's Hair "
mov %zukan_skillc3,3794
mov $zukan_skill4,"General's Tail "
mov %zukan_skillc4,3795
mov $zukan_skill5,"General's Rape "
mov %zukan_skillc5,3796
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_g_Mermaid_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\mermaidgen.jpg",400,0	
goto *zukan_kihonbtn



*zukan_g_Mermaid_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\g_Mermaid_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\g_Mermaid_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\g_Mermaid_st03.bmp",%zukan_x0,0
if %zukan_face=4 lsp 450,":a;chara\g_Mermaid_st04.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\g_Mermaid_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\g_Mermaid_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\g_Mermaid_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\g_Mermaid_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\g_Mermaid_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_g_Mermaid_cg

lsp 500,":c;bg\bg125.bmp",0,0
if %2853=0 skip 9
lsp 430,":a;chara\g_Mermaid_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\g_Mermaid_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\g_Mermaid_ha3.bmp",0,0
print 10,500:lrclick
if %2854=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\g_Mermaid_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\g_Mermaid_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\g_Mermaid_ct02.bmp",0,0
lsp 430,":a;chara\g_Mermaid_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\g_Mermaid_ct03.bmp",0,0
lsp 430,":a;chara\g_Mermaid_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\g_Mermaid_ct04.bmp",0,0
lsp 430,":a;chara\g_Mermaid_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_g_Mermaid_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,70
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *g_Mermaid_start
if %bwait=211 mov %nanido,2:goto *g_Mermaid_start
if %bwait=212 mov %nanido,3:goto *g_Mermaid_start
lsp 700,":a;chara\g_Mermaid_st02.bmp",0,0
bg "bg\bg125.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *g_Mermaid_ha
if %bwait=214 goto *g_Mermaid_hb



;-----??-----



*zukan_ningyohime

mov $zname,"El "
mov $zlavel,"ningyohime"
itoa2 $zukan_ko,%2669
mov %zukan_facenum,9
mov %zukan_posenum,3
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2669=0 mov %hscene1,0
if %2669>0 mov %hscene1,1
if %2669=0 mov %zukancg,0
if %2669>0 mov %zukancg,1
mov %zukan_x1,-190
mov %zukan_x2,0
mov $zukan_lv,"55"
mov $zukan_hp,"15000"
mov $zukan_skill1,"Princess's Blowjob "
mov %zukan_skillc1,3797
mov $zukan_skill2,"Princess's Tit Fuck "
mov %zukan_skillc2,3798
mov $zukan_skill3,"Princess's Stomach Rub "
mov %zukan_skillc3,3799
mov $zukan_skill4,"Princess's Tail Rub "
mov %zukan_skillc4,3800
mov $zukan_skill5,"Princess's Perversion "
mov %zukan_skillc5,3801
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_ningyohime_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\el.jpg",400,0	
goto *zukan_kihonbtn



*zukan_ningyohime_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\ningyohime_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\ningyohime_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\ningyohime_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\ningyohime_st04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\ningyohime_st05.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\ningyohime_st06.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=7 lsp 450,":a;chara\ningyohime_st07.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=8 lsp 450,":a;chara\ningyohime_st08.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=9 lsp 450,":a;chara\ningyohime_st09.bmp",%zukan_x0,0

if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\ningyohime_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\ningyohime_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\ningyohime_st13.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\ningyohime_st14.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=5 lsp 450,":a;chara\ningyohime_st15.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=6 lsp 450,":a;chara\ningyohime_st16.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=7 lsp 450,":a;chara\ningyohime_st17.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=8 lsp 450,":a;chara\ningyohime_st18.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=9 lsp 450,":a;chara\ningyohime_st19.bmp",%zukan_x0,0

if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\ningyohime_st21.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\ningyohime_st22.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\ningyohime_st23.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;chara\ningyohime_st24.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=5 lsp 450,":a;chara\ningyohime_st25.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=6 lsp 450,":a;chara\ningyohime_st26.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=7 lsp 450,":a;chara\ningyohime_st27.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=8 lsp 450,":a;chara\ningyohime_st28.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=9 lsp 450,":a;chara\ningyohime_st29.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\ningyohime_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\ningyohime_bk02.bmp",%zukan_x0,0
if %zukan_pose>1 && %zukan_cum2=1 lsp 442,":a;chara\ningyohime_bk12.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\ningyohime_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\ningyohime_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\ningyohime_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_ningyohime_cg

lsp 500,":c;bg\bg050.bmp",0,0
lsp 430,":a;chara\ningyohime_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ningyohime_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ningyohime_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ningyohime_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ningyohime_h5.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_ningyohime_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,70
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *ningyohime_start
if %bwait=211 mov %nanido,2:goto *ningyohime_start
if %bwait=212 mov %nanido,3:goto *ningyohime_start
lsp 700,":a;chara\ningyohime_st12.bmp",0,0
bg "bg\bg189.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *ningyohime_h



;-----?????????-----



*zukan_queenMermaid

mov $zname,"Queen Mermaid "
mov $zlavel,"queenMermaid"
itoa2 $zukan_ko,%2670
mov %zukan_facenum,2
mov %zukan_posenum,2
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2857=0 mov %hscene1,0
if %2857>0 mov %hscene1,1
if %2858=0 mov %hscene2,0
if %2858>0 mov %hscene2,1
if %2670=0 mov %zukancg,0
if %2670>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"72"
mov $zukan_hp,"21000"
mov $zukan_skill1,"Mermaid's Sucking Mouth "
mov %zukan_skillc1,3802
mov $zukan_skill2,"Mermaid's Squeezing Breasts "
mov %zukan_skillc2,3803
mov $zukan_skill3,"Mermaid's Slimy Stomach "
mov %zukan_skillc3,3804
mov $zukan_skill4,"Mermaid's Chaotic Tail "
mov %zukan_skillc4,3805
mov $zukan_skill5,"Mermaid's Cleaning Hand "
mov %zukan_skillc5,3806
mov $zukan_skill6,"Mermaid's Tight Pussy "
mov %zukan_skillc6,3807
mov $zukan_skill7,"Mermaid's Vibrating Pussy "
mov %zukan_skillc7,3808
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_queenMermaid_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\mermq.jpg",400,0	
goto *zukan_kihonbtn



*zukan_queenMermaid_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\queenMermaid_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\queenMermaid_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\queenMermaid_st11.bmp",%zukan_x0+60,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\queenMermaid_st13.bmp",%zukan_x0+60,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\queenMermaid_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\queenMermaid_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\queenMermaid_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose=1 && %zukan_cum4=1 lsp 444,":a;chara\queenMermaid_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=1 && %zukan_cum5=1 lsp 445,":a;chara\queenMermaid_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_pose=1 && %zukan_cum6=1 lsp 446,":a;chara\queenMermaid_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
return



*zukan_queenMermaid_cg

lsp 500,":c;bg\bg050.bmp",0,0
lsp 430,":a;chara\queenMermaid_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenMermaid_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenMermaid_ct02.bmp",0,0
lsp 430,":a;chara\queenMermaid_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenMermaid_ct03.bmp",0,0
lsp 430,":a;chara\queenMermaid_ha3.bmp",0,0
print 10,500:lrclick
if %2857=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 500,":c;bg\bg039.bmp",0,0
lsp 430,":a;chara\queenMermaid_hb1.bmp",0,0
lsp 420,":a;chara\queenMermaid_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenMermaid_ct12.bmp",0,0
lsp 430,":a;chara\queenMermaid_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenMermaid_ct13.bmp",0,0
lsp 430,":a;chara\queenMermaid_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\queenMermaid_ct14.bmp",0,0
lsp 430,":a;chara\queenMermaid_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_queenMermaid_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,71
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *queenMermaid_start
if %bwait=211 mov %nanido,2:goto *queenMermaid_start
if %bwait=212 mov %nanido,3:goto *queenMermaid_start
lsp 700,":a;chara\queenMermaid_st01.bmp",0,0
bg "bg\bg189.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *queenMermaid_ha
if %bwait=214 goto *queenMermaid_hb



;-----???XX-7-----



*zukan_XX7

mov $zname,"Experimental Organism XX-7 "
mov $zlavel,"XX7"
mov $zukan_ko,"None "
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-150
mov %zukan_x2,0
mov $zukan_lv,"45"
mov $zukan_hp,"11000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_XX7_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\x7.jpg",400,0	
goto *zukan_kihonbtn



*zukan_XX7_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\XX-7_st01.bmp",%zukan_x0,0
return



*zukan_XX7_cg

lsp 500,":c;bg\bg055.bmp",0,0
lsp 430,":a;chara\XX-7_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\XX-7_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\XX-7_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\XX-7_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\XX-7_ct04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\XX-7_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\XX-7_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\XX-7_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_XX7_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,71
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
mov $name,"XX-7"
gosub *setwindow_01
if %bwait=213 goto *sean0333



;-----?????-----



*zukan_shadow

mov $zname,"Shadow Girl "
mov $zlavel,"shadow"
itoa2 $zukan_ko,%2672
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2672=0 mov %hscene1,0
if %2672>0 mov %hscene1,1
if %2672=0 mov %zukancg,0
if %2672>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"52"
mov $zukan_hp,"14000"
mov $zukan_skill1,"Mouth of Shadow "
mov %zukan_skillc1,3809
mov $zukan_skill2,"Breasts of Shadow "
mov %zukan_skillc2,3810
mov $zukan_skill3,"Hair of Shadow "
mov %zukan_skillc3,3811
mov $zukan_skill4,"Cross of Shadow "
mov %zukan_skillc4,3812
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_shadow_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\shadowg.jpg",400,0	
goto *zukan_kihonbtn



*zukan_shadow_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\shadow_st01.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\shadow_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\shadow_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\shadow_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\shadow_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_shadow_cg

lsp 500,":c;bg\bg056.bmp",0,0
lsp 430,":a;chara\shadow_st11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\shadow_st12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\shadow_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\shadow_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\shadow_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\shadow_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\shadow_h5.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_shadow_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,71
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *shadow_start
if %bwait=211 mov %nanido,2:goto *shadow_start
if %bwait=212 mov %nanido,3:goto *shadow_start
lsp 700,":a;chara\shadow_st01.bmp",0,0
bg "bg\bg056.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *shadow_h



;-----???????-----



*zukan_gaistvine

mov $zname,"Paintgeist "
mov $zlavel,"gaistvine"
itoa2 $zukan_ko,%2673
mov %zukan_facenum,8
mov %zukan_posenum,2
mov %zukan_cumnum,1
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2673=0 mov %hscene1,0
if %2673>0 mov %hscene1,1
if %2673=0 mov %zukancg,0
if %2673>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"55"
mov $zukan_hp,"16000"
mov $zukan_skill1,"Kiss of Desire "
mov %zukan_skillc1,3813
mov $zukan_skill2,"Sensual Handjob "
mov %zukan_skillc2,3814
mov $zukan_skill3,"Mouth of Desire "
mov %zukan_skillc3,3815
mov $zukan_skill4,"Ass of Desire "
mov %zukan_skillc4,3816
mov $zukan_skill5,"Eye of Obedience "
mov %zukan_skillc5,3817
mov $zukan_skill6,"Baroque Orgasm "
mov %zukan_skillc6,3818
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_gaistvine_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\paint.jpg",400,0	
goto *zukan_kihonbtn



*zukan_gaistvine_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=2 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\gaistvine_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\gaistvine_st02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\gaistvine_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\gaistvine_bk11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\gaistvine_bk12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\gaistvine_bk13.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=5 lsp 450,":a;chara\gaistvine_bk14.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=6 lsp 450,":a;chara\gaistvine_bk15.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=7 lsp 450,":a;chara\gaistvine_bk16.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=8 lsp 450,":a;chara\gaistvine_bk17.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\gaistvine_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
return



*zukan_gaistvine_cg

lsp 500,":c;bg\bg057.bmp",0,0
lsp 430,":a;chara\gaistvine_st21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gaistvine_st22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gaistvine_st23.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_gaistvine_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,71
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *gaistvine_start
if %bwait=211 mov %nanido,2:goto *gaistvine_start
if %bwait=212 mov %nanido,3:goto *gaistvine_start
lsp 700,":a;chara\gaistvine_st01.bmp",0,0
bg "bg\bg057.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *gaistvine_h



;-----???(2)-----



*zukan_chrom2

mov $zname,"Chrome (2) "
mov $zlavel,"chrom2"
itoa2 $zukan_ko,%2674
mov %zukan_facenum,7
mov %zukan_posenum,8
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2674=0 mov %hscene1,0
if %2674>0 mov %hscene1,1
if %2674=0 mov %zukancg,0
if %2674>0 mov %zukancg,1
mov %zukan_x1,-210
mov %zukan_x2,-20
mov $zukan_lv,"58"
mov $zukan_hp,"18000"
mov $zukan_skill1,"Ghost Handjob "
mov %zukan_skillc1,3819
mov $zukan_skill2,"Ghost Blowjob "
mov %zukan_skillc2,3820
mov $zukan_skill3,"Ghost Tit Fuck "
mov %zukan_skillc3,3821
mov $zukan_skill4,"I'll Give A Handjob! "
mov %zukan_skillc4,3822
mov $zukan_skill5,"I'll Give A Blowjob! "
mov %zukan_skillc5,3823
mov $zukan_skill6,"Phantasmagoria "
mov %zukan_skillc6,3824
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_chrom2_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\chrome2.jpg",400,0	
goto *zukan_kihonbtn



*zukan_chrom2_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=2 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=3 && %zukan_face=10 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,9
if %zukan_pose=4 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=5 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=5 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=6 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=6 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=7 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=7 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=8 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=8 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\chrom_st41.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\chrom_st42.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\chrom_st43.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\chrom_st31.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\chrom_st32.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\chrom_st21.bmp",%zukan_x0+20,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\chrom_st22.bmp",%zukan_x0+20,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\chrom_st23.bmp",%zukan_x0+20,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;chara\chrom_st24.bmp",%zukan_x0+20,0
if %zukan_pose=3 && %zukan_face=5 lsp 450,":a;chara\chrom_st25.bmp",%zukan_x0+20,0
if %zukan_pose=3 && %zukan_face=6 lsp 450,":a;chara\chrom_st26.bmp",%zukan_x0+20,0
if %zukan_pose=3 && %zukan_face=7 lsp 450,":a;chara\chrom_st27.bmp",%zukan_x0+20,0
if %zukan_pose=3 && %zukan_face=8 lsp 450,":a;chara\chrom_st28.bmp",%zukan_x0+20,0
if %zukan_pose=3 && %zukan_face=9 lsp 450,":a;chara\chrom_st29.bmp",%zukan_x0+20,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\chrom_st51.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\chrom_st52.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\chrom_st53.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=4 lsp 450,":a;chara\chrom_st54.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=1 lsp 450,":a;chara\chrom_st61.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=2 lsp 450,":a;chara\chrom_st62.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=3 lsp 450,":a;chara\chrom_st63.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=4 lsp 450,":a;chara\chrom_st64.bmp",%zukan_x0,0
if %zukan_pose=6 && %zukan_face=1 lsp 450,":a;chara\chrom_st71.bmp",%zukan_x0,0
if %zukan_pose=6 && %zukan_face=2 lsp 450,":a;chara\chrom_st72.bmp",%zukan_x0,0
if %zukan_pose=6 && %zukan_face=3 lsp 450,":a;chara\chrom_st73.bmp",%zukan_x0,0
if %zukan_pose=6 && %zukan_face=4 lsp 450,":a;chara\chrom_st74.bmp",%zukan_x0,0
if %zukan_pose=7 && %zukan_face=1 lsp 450,":a;chara\chromg_st01.bmp",%zukan_x0+10,0
if %zukan_pose=7 && %zukan_face=2 lsp 450,":a;chara\chromg_st02.bmp",%zukan_x0+10,0
if %zukan_pose=7 && %zukan_face=3 lsp 450,":a;chara\chromg_st03.bmp",%zukan_x0+10,0
if %zukan_pose=8 && %zukan_face=1 lsp 450,":a;chara\chromg_st11.bmp",%zukan_x0+10,0
if %zukan_pose=8 && %zukan_face=2 lsp 450,":a;chara\chromg_st12.bmp",%zukan_x0+10,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\chrom_bk41.bmp",%zukan_x0,0
if %zukan_pose=7 && %zukan_cum1=1 lsp 441,":a;chara\chromg_bk01.bmp",%zukan_x0+10,0
if %zukan_pose=8 && %zukan_cum1=1 lsp 441,":a;chara\chromg_bk11.bmp",%zukan_x0+10,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\chrom_bk42.bmp",%zukan_x0,0
if %zukan_pose=7 && %zukan_cum2=1 lsp 442,":a;chara\chromg_bk02.bmp",%zukan_x0+10,0
if %zukan_pose=8 && %zukan_cum2=1 lsp 442,":a;chara\chromg_bk12.bmp",%zukan_x0+10,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\chrom_bk43.bmp",%zukan_x0,0
if %zukan_pose=7 && %zukan_cum3=1 lsp 443,":a;chara\chromg_bk03.bmp",%zukan_x0+10,0
if %zukan_pose=8 && %zukan_cum3=1 lsp 443,":a;chara\chromg_bk13.bmp",%zukan_x0+10,0
if %zukan_cum3=0 csp 443
return



*zukan_chrom2_cg

lsp 500,":c;bg\bg058.bmp",0,0
lsp 430,":c;chara\chrom_hc01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chrom_hc02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chrom_hc03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chrom_hc04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chrom_hc05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chrom_hc06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chrom_hc07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chrom_hc08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chrom_hc09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chrom_hc10.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chrom_hc11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chrom_hc12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chromg_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chromg_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chromg_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chromg_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chromg_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chromg_h6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chromg_h7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chromg_h8.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\chromg_h9.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_chrom2_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,71
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
mov $name,"Chrome "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *chrom2_start
if %bwait=211 mov %nanido,2:goto *chrom2_start
if %bwait=212 mov %nanido,3:goto *chrom2_start
lsp 700,":a;chara\chrom_st42.bmp",-50,0
lsp 699,":a;chara\chromg_st02.bmp",-250,0
lsp 698,":a;chara\chromg_st11.bmp",230,40
bg "bg\bg058.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *chrom2_h



;-----???????-----



*zukan_berryel

mov $zname,"Power Berryelle "
mov $zlavel,"berryel"
itoa2 $zukan_ko,%2675
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2675=0 mov %hscene1,0
if %2675>0 mov %hscene1,1
if %2675=0 mov %zukancg,0
if %2675>0 mov %zukancg,1
mov %zukan_x1,-140
mov %zukan_x2,60
mov $zukan_lv,"123"
mov $zukan_hp,"17000"
mov $zukan_skill1,"Semen Sipping Mouth "
mov %zukan_skillc1,3825
mov $zukan_skill2,"Man Melting Breasts "
mov %zukan_skillc2,3826
mov $zukan_skill3,"Semen Milking Hands "
mov %zukan_skillc3,3827
mov $zukan_skill4,"Man Devouring Pomegranate "
mov %zukan_skillc4,3828
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_berryel_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\berry.jpg",400,0	
goto *zukan_kihonbtn



*zukan_berryel_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\berryel_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\berryel_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\berryel_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\berryel_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\berryel_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\berryel_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\berryel_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_berryel_cg

lsp 500,":c;bg\bg061.bmp",0,0
lsp 430,":a;chara\berryel_st11.bmp",60,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\berryel_st12.bmp",60,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\berryel_st13.bmp",60,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\berryel_st14.bmp",60,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\berryel_st15.bmp",60,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\berryel_st21.bmp",60,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\berryel_st22.bmp",60,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\berryel_st23.bmp",60,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\berryel_st31.bmp",60,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\berryel_st32.bmp",60,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\berryel_st33.bmp",60,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\berryel_st34.bmp",60,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_berryel_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,72
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
mov $name,"Berryelle "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *berryel_start
if %bwait=211 mov %nanido,2:goto *berryel_start
if %bwait=212 mov %nanido,3:goto *berryel_start
lsp 700,":a;chara\berryel_st02.bmp",60,0
bg "bg\bg061.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *berryel_h



;-----????????-----



*zukan_revel

mov $zname,"Virtue Revel "
mov $zlavel,"revel"
itoa2 $zukan_ko,%2676
mov %zukan_facenum,1
mov %zukan_posenum,2
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2676=0 mov %hscene1,0
if %2676>0 mov %hscene1,1
if %2676=0 mov %zukancg,0
if %2676>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"129"
mov $zukan_hp,"18000"
mov $zukan_skill1,"Holy Umbilical Bond "
mov %zukan_skillc1,3829
mov $zukan_skill2,"Holy Return "
mov %zukan_skillc2,3830
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_revel_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\revel.jpg",400,0	
goto *zukan_kihonbtn



*zukan_revel_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\revel_st01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\revel_st11.bmp",%zukan_x0,0
return



*zukan_revel_cg

lsp 500,":c;bg\bg061.bmp",0,0
lsp 420,":a;chara\revel_ct11.bmp",0,0
lsp 430,":a;chara\revel_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\revel_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\revel_ct13.bmp",0,0
lsp 430,":a;chara\revel_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\revel_ct14.bmp",0,0
lsp 430,":a;chara\revel_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\revel_ct15.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\revel_ct16.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\revel_ct17.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\revel_st12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\revel_st13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\revel_ct01.bmp",540,0
lsp 430,":a;chara\revel_st01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\revel_ct02.bmp",540,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\revel_ct03.bmp",540,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\revel_st14.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_revel_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,72
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
mov $name,"Revel "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *revel_start
if %bwait=211 mov %nanido,2:goto *revel_start
if %bwait=212 mov %nanido,3:goto *revel_start
lsp 700,":a;chara\revel_st01.bmp",0,0
bg "bg\bg061.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *revel_h



;-----???2-----



*zukan_gnome2

mov $zname,"Gnome (2) "
mov $zlavel,"gnome2"
mov $zukan_ko,"None "
mov %zukan_facenum,9
mov %zukan_posenum,4
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"50"
mov $zukan_hp,"4000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_gnome2_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\gnome2.jpg",400,0	
goto *zukan_kihonbtn



*zukan_gnome2_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose<3 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose<3 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=3 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;2Q\chara\gnome_st11.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;2Q\chara\gnome_st12.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;2Q\chara\gnome_st01.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;2Q\chara\gnome_st02.png",%zukan_x0,0
if %zukan_pose=3 lsp 450,":a;2Q\chara\gnome_st21.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\gnome_st31.bmp",%zukan_x0-40,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\gnome_st32.bmp",%zukan_x0-40,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\gnome_st33.bmp",%zukan_x0-40,0
if %zukan_pose=4 && %zukan_face=4 lsp 450,":a;chara\gnome_st34.bmp",%zukan_x0-40,0
if %zukan_pose=4 && %zukan_face=5 lsp 450,":a;chara\gnome_st35.bmp",%zukan_x0+256,95
if %zukan_pose=4 && %zukan_face=6 lsp 450,":a;chara\gnome_st36.bmp",%zukan_x0-40,0
if %zukan_pose=4 && %zukan_face=7 lsp 450,":a;chara\gnome_st37.bmp",%zukan_x0-40,0
if %zukan_pose=4 && %zukan_face=8 lsp 450,":a;chara\gnome_st38.bmp",%zukan_x0+256,18
if %zukan_pose=4 && %zukan_face=9 lsp 450,":a;chara\gnome_st39.bmp",%zukan_x0+296,155
return



*zukan_gnome2_cg

lsp 500,":c;bg\bg061.bmp",0,0
lsp 430,":a;chara\gnome_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gnome_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gnome_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gnome_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_gnome2_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,72
mov %skill01,19
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,10
mov $name,"Gnome "
gosub *setwindow_01
lsp 700,":a;2Q\chara\gnome_st11.png",0,0
bg "bg\bg061.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *sean0340



;-----?????????-----



*zukan_c_chariot

mov $zname,"Chimera Chariot "
mov $zlavel,"c_chariot"
mov $zukan_ko,"None "
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"60"
mov $zukan_hp,"19000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_c_chariot_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\chimchar.jpg",400,0	
goto *zukan_kihonbtn



*zukan_c_chariot_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\c_chariot_st01.bmp",%zukan_x0,0
return



*zukan_c_chariot_cg

lsp 500,":c;bg\bg062.bmp",0,0
lsp 430,":a;chara\c_chariot_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_chariot_h2.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_c_chariot_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,72
mov %skill01,19
mov %skill02,0
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=213 goto *sean0340a


*sean0340

name "Gnome "
>........... \
name ""
name "Luka "
>Waah! @ >S...Stop! \
name ""
>Gnome's mud dolls jump on my hands and feet, stopping me from resisting. @
>Stripping off her own clothes, Gnome slowly approaches me. \
name "Gnome "
>........... \
name ""
lsp 700,":a;chara\gnome_hb1.bmp",0,0:print 10,500
>Gnome silently climbs on top of me. @
>Grabbing hold of my penis with her small hand, she guides it to her vagina. \
mov %hseanwave,2:hseanwave
>With a quick pull, she brings me into her small opening. \
name "Gnome "
>........... \
name ""
name "Luka "
>Ah... Ah! \
name ""
>As soon as I'm in her, I let out a small cry. @
>It feels like Gnome's vagina is filled with some sort of odd slime-like       substance. \
>The sticky fluid feels like it's clinging to my penis inside her half mud     vagina. \
>Furthermore, the inside of her vagina is moving around in waves, almost as if it was alive. \
name "Luka "
>Ahh... A...Amazing... @
>It's moving inside... \
name ""
name "Gnome "
>........... \
name ""
>Gnome stares at my moaning face as she violates me. @
>She's just observing my shameful state... \
>This small spirit, looking like a young girl herself, is staring at me as I   writhe in pleasure. @
>Waves of immorality and humiliation wash over me. \
name "Luka "
>Ahhh... Stop staring at me... \
name ""
name "Gnome "
>........... \
name ""
>Ignoring me, Gnome just keeps staring at me as my face goes slack in ecstasy. \
>At the same time, the waving motions of the sticky fluid inside her vagina    continue, driving more and more pleasure into my writhing body. \
name "Luka "
>Ahh... Stop that... \
name ""
name "Gnome "
>........... \
name ""
>Egged on by my reactions, Gnome starts to move her vaginal walls even more. \
>The sticky touch inside of her vagina swirls and wraps around my penis, as    the waving motion of her vagina mixes it all around me. \
>As my mouth opens in a moan, my face going loose in ecstasy, I feel myself    nearing a big climax. \
>A weak ache fills my lower body as my waist jerks up into her. @
>If I feel any more of this, I really will explode! \
name "Luka "
>Ahh... Take it out... @
>I'm going to come inside... \
name ""
name "Gnome "
>........... \
name ""
>Keeping her same expression, Gnome just nods at me, as if saying "go ahead". @
>At the same time, the waving motions inside her vagina get even more intense. \
name "Luka "
>No... I'm coming! \
name ""
name "Gnome "
>........... \
name ""
>Gnome impatiently stares at me as she waits for my ejaculation. @
>Controlling her vagina, she does everything she can to make me come in her. \
>My endurance finally reaching my utmost limit, the desire to release in her   fills every inch of my body. @
>Relaxing my waist, I let the sensation run through my body. \
name "Luka "
>Ahhh... \
name ""
gosub *syasei1
lsp 700,":a;chara\gnome_hb2.bmp",0,0
gosub *syasei2
>My penis twitches inside her, as my semen shoots straight into Gnome's        vagina. @
>At the same time, the normal weakness expected when a monster makes a man     orgasm blows through me. \
>With just this single orgasm, an intense amount of energy was sucked from me. \
name "Gnome "
>........... \
name ""
>Despite her deadpan expression, Gnome's eyes look satisfied. @
>Staring right at me for a moment, she suddenly starts the waving motions      inside her vagina again. \
name "Gnome "
>........... \
name ""
name "Luka "
>Ahh... Don't squeeze...! \
name ""
>As the strange wave motions continue inside her, the sticky liquid inside     Gnome's vagina suddenly presses down, clinging to my penis. \
>The sticky liquid presses on my sensitive glans as it moves around, bringing  new pleasure to my weak body. \
name "Luka "
>Ah... Haa... \
name ""
name "Gnome "
>........... \
name ""
>Checking my reactions to everything she does, Gnome continues toying around   with my penis inside her. \
>And it's like she is learning new things as she goes... @ >Unlike the first      time, she's focusing heavily on my glans, as if she just discovered a man's   weak point. \
>At her mercy, I'm already driven to the verge of another climax inside her    vagina. \
name "Luka "
>Ahh... I'm going to come again... \
name ""
name "Gnome "
>........... \
name ""
>Not stopping her movements for a moment, Gnome easily guides me to another    forced climax inside her. \
name "Luka "
>Ahhhh!! \
name ""
gosub *syasei1
lsp 700,":a;chara\gnome_hb4.bmp",0,0
gosub *syasei2
>At the same time as my ejaculation, Gnome's vagina suddenly squeezes down,    using her own vagina to greedily milk out my semen. \
name "Luka "
>Ahh... \
name ""
>The intense pleasure spreads through my body along with the weakness, as my   energy itself is absorbed by Gnome. \
mov %hseanwave,0:hseanwave
name "Gnome "
>........... \
name ""
>On the other hand, Gnome looks happy after absorbing my energy. @
>It looks like she got enough nourishment, and is satisfied. \
name "Luka "
>Ah... \
name ""
>It was only two orgasms, but I feel completely drained of strength. @
>I don't even think I can stand for a while... \
gosub *anten
>........... \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0


*sean0340a

bgmstop
sean_change "bg062"
bgm"bgm\kiki3.ogg"
lsp 700,":a;chara\mob_heisi1.bmp",-170,0
lsp 701,":a;chara\c_chariot_st01.bmp",170,0:print 10,500
name "Chimera Chariot "
>Haha... Humans are so frail. \
name ""
name "Soldier "
>Uwaaaa! \
name ""
dwave 1,"se\karaburi.ogg"
>A large, strange looking monster is mowing down groups of soldiers. @
>At the same time, giant tentacles are reaching out, breaking up their         formation. \
name "Soldier "
>Damn it! \
name ""
dwave 1,"se\tuki.ogg"
>A soldier rushes in wielding a huge spear, trying to maintain the line. @
dwave 2,"se\ero_makituki2.ogg"
>But it isn't enough... He gets coiled up in her tentacles. \
name "Soldier "
>Gah... Let me go! \
name ""
name "Chimera Chariot "
>Oh, so there are some soldiers with a backbone after all... @
>Well then... @ >Time to feast. \
name ""
name "Soldier "
>Ahhhh!! \
name ""
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov %hseanwave,12:hseanwave
csp 701
lsp 700,":a;chara\c_chariot_h1.bmp",0,0:print 10,500
>Wrapped in tentacles, the soldier can't do anything as he's brought inside    the Chimera's giant mouth, covering his lower body in her saliva. \
>Digestive juices are mixed in with her saliva, quickly melting away the       soldier's armor and clothes. \
>With his lower body now exposed, he feels her warm mouth directly on his      skin... \
name "Chimera Chariot "
>Strong humans sure do taste delicious... @
>I'll lick you until you melt away. \
name ""
name "Soldier "
>S...Stop... Ahh! \
name ""
>Her thick tongue coils around his legs, rubbing her warm saliva directly into his body. @
>The tip of her tongue flicks and licks his penis, already erect from the      feeling of being sucked on. \
>Focusing on it, the Chimera starts licking it with even more intensity. \
name "Soldier "
>Ah...! @ >Urhg! \
name ""
name "Chimera Chariot "
>I'll suck on you like candy... @
>Hehe, it feels good for you too, doesn't it? \
name ""
>The giant mouth sucks on his body, just like he was a piece of candy to be    savored. @
>Her relentless tongue continues licking and prodding his erect penis at the   same time, sending him twitching in pleasure. \
name "Soldier "
>S...Stop... Haaa... \
name ""
gosub *syasei1:gosub *syasei2
>Covered in saliva and being sucked on, the soldier reaches a miserable        ejaculation. \
name "Chimera Chariot "
>Oh dear, you came while being eaten... @
>But now you don't have any regrets, right? \
>Then allow me to swallow you... \
name ""
name "Soldier "
>Stop... Stoooop! \
name ""
>The Chimera's sucking gets far more intense, slowly drawing the struggling    soldier deeper inside her mouth... \
name "Soldier "
>Ahhhh! \
name ""
lsp 700,":a;chara\c_chariot_h2.bmp",0,0:print 10,500
>With a final scream, the soldier is sucked into the Chimera's stomach... \
name "Soldier "
>Ah...ah... \
name ""
>Submerged in the powerful gastric juices, he is digested away as food for the giant Chimera in moments... \
mov %hseanwave,0:hseanwave
name "Chimera Chariot "
>Hehe, thanks for the meal... @
>Now the next morsel is... \
name ""
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0
mov %hsean_etc4,1
bgm"bgm\kiki3.ogg"
lsp 700,":a;chara\mob_heisi1.bmp",-170,0
lsp 701,":a;chara\mob_sensi2.bmp",170,0:print 10,500
name "Grandmaster Knight "
>Guh...! @ >Terumi Cavalry Corps, go around to her side! @
>Cooperate with the Owen Corps for a pincer attack! \
name ""
lsp 700,":a;chara\mob_sensi2.bmp",-170,0
lsp 701,":a;chara\c_chariot_st01.bmp",170,0:print 10,500
name "Chimera Chariot "
>That human looks delicious, too... \
name ""
>The monster's eyes lock on the Grandmaster Knight commanding the troops next. @
>With unimaginable speed, she rushes toward him... \
name "Chimera Chariot "
>Hehe, time to feed... \
name ""
name "Grandmaster Knight "
>Urhg! \
name ""
>The moment the tentacles are about to coil around him... \
name "Luka "
>Earth Rumbling Decapitation! \
name ""
dwave 1,"se\karaburi.ogg"
lsp 2,":c;effect\earth.png",0,0:print 1
wait 300
csp 2:print 18,500,"system\mask01.jpg"
dwave 1,"se\bom2.ogg"
quake 10,1000
name "Chimera Chariot "
>W...Who!? \
name ""
dwave 1,"se\damage2.ogg"
vsp 701,0:print 10,15
vsp 701,1:print 10,15
vsp 701,0:print 10,15
vsp 701,1:print 10,15
vsp 701,0:print 10,15
vsp 701,1:print 10,15
dwave 2,"se\syometu.ogg"
csp 701:print 99,4500,"breakup.dll/urb"
>The Chimera Chariot is sealed in the form of a tiny lion! \
lsp 700,":a;chara\mob_sensi2.bmp",0,0:print 10,500
name "Luka "
>Are you alright!? @
>Ah... You're the one always next to the King! \
name ""
name "Grandmaster Knight "
>You're... The Hero Luka! @
>Did you come to rescue us!? \
name ""
name "Luka "
>Well... @ >I was on my way to the castle when I saw you under attack. \
name ""
>While flying toward Sabasa Castle, we saw this group of soldiers locked in    combat in the desert. \
>The Chimeric Beasts looked like they were about to break the line, and I      jumped right into the middle of the fray before I could think about it. \
name "Luka "
>By the way, is the King safe!? \
name ""
name "Grandmaster Knight "
>Actually... \
name ""
bgm"bgm\kiki2.ogg"
>With a clouded look on his face, the Knight explains about what happened. @
>The Castle was attacked by surprise, and the vampires were locked with the    King inside the Castle. \
>At almost the same time, swarms of Chimeric Beasts attacked. @
>Even without the King, the army has managed to hold off the swarms so far. \
name "Grandmaster Knight "
>It has been a few hours since then, and I haven't seen any movement in the    castle since... @
>I sent my fastest messengers to our allied countries with requests for aid,   but I have not heard anything back. \
name ""
lsp 700,":a;chara\alice_st71.bmp",-170,50
lsp 701,":a;chara\mob_sensi2.bmp",160,0:print 10,500
name "Alice "
>It's the same as here all over the world... @ >Everyone is under attack. @
>I don't think there will be reinforcements. \
name ""
name "Grandmaster Knight "
>Oh, what a disaster! @
>Without reinforcements, we won't be able to send a force in to rescue the     King! \
name ""
name "Luka "
>Then Alice and I will go! @
>Leave the rescue of the King to us! \
name ""
lsp 700,":a;chara\alice_st74.bmp",-170,50:print 10,500
name "Alice "
>If he's still alive... That is. \
name ""
>Alice spoke what I didn't dare to. @
>I don't even want to consider that he isn't still alive... \
lsp 700,":a;chara\alice_st71.bmp",-170,50:print 10,500
name "Alice "
>Anyway, we can't leave the Castle occupied. @
>If the seal is broken, they would escape and attack you from the rear. \
>Under that sort of pincer attack, you will lose any chance of victory. \
name ""
name "Grandmaster Knight "
>You are exactly correct. @
>But with only two of you... \
name ""
name "Alice "
>Inside the tight confines of a Castle, numerical superiority doesn't mean     that much. @
>It would be best to dispatch a small elite force to minimize losses. \
name ""
name "Luka "
>According to your story, there shouldn't be too many in there anyway. @
>We'll leave this area to you! \
name ""
name "Grandmaster Knight "
>I swear on the pride of the Sabasa Army that the enemies before us will not   break through! @
>Luka, your assistance has already greatly bolstered the army's morale! \
name ""
name "Luka "
>Alright, let's go Alice! \
name ""
lsp 700,":a;chara\alice_st73.bmp",-170,50:print 10,500
name "Alice "
>Yes! \
name ""
cspl 700,701:print 10,500
>Leaving the area to the Sabasa Army, we continue on to the Castle. @
>Arriving, we enter with just the two of us. \
dwave 1,"se\asioto3.ogg"
sean_change "bg223"
bgm"bgm\sabasa2.ogg"
name "Luka "
>The inside of the Castle seems the same as always... \
name ""
>There doesn't seem to be any sign of a struggle, but all of the lights are    off. \
lsp 700,":a;chara\alice_st71.bmp",0,50:print 10,500
name "Alice "
>But still... For multiple vampires to have attacked at once, the Queen        Vampire must be here as well. \
name ""
name "Luka "
>The Queen Vampire... @ >What kind of monster is she? \
name ""
name "Alice "
>She is very prideful, ambitious, and arrogant. @
>She derives the most joy from ruling over others. \
name ""
name "Luka "
>She sounds rather nasty... \
name ""
name "Alice "
>...But she is also very proud of being considered an aristocrat. @
>She is merciless against those who resist her, but is said to be very         generous to her followers. \
name ""
name "Luka "
>In other words, she isn't a total villain? \
name ""
name "Alice "
>I wouldn't call her a villain... @ >More like an adherent of old Feudalism. @
>Though she dominates with violence, she cares for the soldiers and the poor   who are her duty to protect. \
>It's irritating because you can't just paint her in terms of good and bad. @
>Though I'm sure the people of Sabasa don't desire her to be their new         ruler... \
name ""
name "Luka "
>That's true. @
>But this place... \
name ""
>I still don't see any signs of a serious battle. @
>And we are already near the throne room... \
name "Luka "
>I can sense monsters here, but none of them are attacking us... @
>Were there traps left for us instead? \
name ""
name "Alice "
>Probably for the same reason as us. @
>Why didn't we bring along soldiers of Sabasa with us? \
name ""
name "Luka "
>In order to avoid a waste of life... @
>Ah, I see. \
name ""
>The enemy isn't stupid. @
>They already know our abilities... \
name "Alice "
>There are only around three here capable of challenging us... @
>The Queen, and two others. \
name ""
name "???"
>Yes... @ >That is exactly it. @
>Our gentle Queen has no desire to sacrifice her subordinates on you two... \
name ""
name "Luka "
>Come out, Vampire! \
name ""
>A Vampire steps out in the corridor to the throne room... \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0


;-----????-----



*zukan_carmilla

mov $zname,"Carmilla "
mov $zlavel,"carmilla"
itoa2 $zukan_ko,%2695
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2695=0 mov %hscene1,0
if %2695>0 mov %hscene1,1
if %2695=0 mov %zukancg,0
if %2695>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"56"
mov $zukan_hp,"19000"
mov $zukan_skill1,"Carmilla's Fingering "
mov %zukan_skillc1,3831
mov $zukan_skill2,"Carmilla's Mouthing "
mov %zukan_skillc2,3832
mov $zukan_skill3,"Carmilla's Milking "
mov %zukan_skillc3,3833
mov $zukan_skill4,"Carmilla's Night Clothing "
mov %zukan_skillc4,3834
mov $zukan_skill5,"Carmilla's Blood Sucking "
mov %zukan_skillc5,3835
mov $zukan_skill6,"Graveyard of Lilys "
mov %zukan_skillc6,3836
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_carmilla_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\carmilla.jpg",400,0	
goto *zukan_kihonbtn



*zukan_carmilla_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\carmilla_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\carmilla_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\carmilla_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\carmilla_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\carmilla_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\carmilla_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\carmilla_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\carmilla_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\carmilla_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
return



*zukan_carmilla_cg

lsp 500,":c;bg\bg223.bmp",0,0
lsp 430,":a;chara\carmilla_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\carmilla_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\carmilla_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\carmilla_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\carmilla_ha5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\carmilla_ha6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\carmilla_ha7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\carmilla_ha8.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\carmilla_ha9.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\carmilla_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\carmilla_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\carmilla_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\carmilla_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\carmilla_hb5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\carmilla_hb6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\carmilla_hb7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\carmilla_hb8.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\carmilla_hb9.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_carmilla_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,72
mov %skill01,19
mov %skill02,0
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10


gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *carmilla_start
if %bwait=211 mov %nanido,2:goto *carmilla_start
if %bwait=212 mov %nanido,3:goto *carmilla_start
lsp 700,":a;chara\carmilla_st02.bmp",0,0
bg "bg\bg223.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *carmilla_h



;-----??????-----



*zukan_elisabeth

mov $zname,"Elizabeth "
mov $zlavel,"elisabeth"
itoa2 $zukan_ko,%2696
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2696=0 mov %hscene1,0
if %2696>0 mov %hscene1,1
if %2696=0 mov %zukancg,0
if %2696>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"58"
mov $zukan_hp,"17000"
mov $zukan_skill1,"Elizabeth's Captivating Hand "
mov %zukan_skillc1,3837
mov $zukan_skill2,"Elizabeth's Attending Mouth "
mov %zukan_skillc2,3838
mov $zukan_skill3,"Elizabeth's Admiring Breasts "
mov %zukan_skillc3,3839
mov $zukan_skill4,"Elizabeth's Bloodsucking "
mov %zukan_skillc4,3840
mov $zukan_skill5,"Bathory's Cradle "
mov %zukan_skillc5,3841
mov $zukan_skill6,"Transylvania Midnight "
mov %zukan_skillc6,3842
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_elisabeth_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\elizabeth.jpg",400,0	
goto *zukan_kihonbtn



*zukan_elisabeth_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\elisabeth_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\elisabeth_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\elisabeth_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\elisabeth_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\elisabeth_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\elisabeth_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\elisabeth_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\elisabeth_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\elisabeth_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\elisabeth_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
return



*zukan_elisabeth_cg

lsp 500,":c;bg\bg223.bmp",0,0
lsp 430,":a;chara\elisabeth_st02.bmp",0,0
lsp 420,":a;chara\elisabeth_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\elisabeth_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\elisabeth_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\elisabeth_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\elisabeth_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\elisabeth_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\elisabeth_ha5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\elisabeth_ha6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\elisabeth_ha7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\elisabeth_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\elisabeth_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\elisabeth_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\elisabeth_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\elisabeth_hb5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\elisabeth_hb6.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_elisabeth_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,72
mov %skill01,19
mov %skill02,0
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *elisabeth_start
if %bwait=211 mov %nanido,2:goto *elisabeth_start
if %bwait=212 mov %nanido,3:goto *elisabeth_start
lsp 700,":a;chara\elisabeth_st02.bmp",0,0
bg "bg\bg223.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *elisabeth_h



;-----??????????-----



*zukan_queenvanpire

mov $zname,"Queen Vampire "
mov $zlavel,"queenvanpire"
itoa2 $zukan_ko,%2697
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2697=0 mov %hscene1,0
if %2697>0 mov %hscene1,1
if %2697=0 mov %zukancg,0
if %2697>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"75"
mov $zukan_hp,"21000"
mov $zukan_skill1,"Erotic Fingers "
mov %zukan_skillc1,3843
mov $zukan_skill2,"Lascivious Tongue "
mov %zukan_skillc2,3844
mov $zukan_skill3,"Dream Milking "
mov %zukan_skillc3,3845
mov $zukan_skill4,"Nocturnal Bloodsucker "
mov %zukan_skillc4,3846
mov $zukan_skill5,"Devilish Membrane "
mov %zukan_skillc5,3847
mov $zukan_skill6,"Moonlight Nocturne "
mov %zukan_skillc6,3848
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_queenvanpire_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\vampq.jpg",400,0	
goto *zukan_kihonbtn



*zukan_queenvanpire_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\queenvanpire_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\queenvanpire_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\queenvanpire_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\queenvanpire_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\queenvanpire_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\queenvanpire_st13.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\queenvanpire_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\queenvanpire_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\queenvanpire_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\queenvanpire_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=2 && %zukan_cum5=1 lsp 445,":a;chara\queenvanpire_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_queenvanpire_cg

lsp 500,":c;bg\bg224.bmp",0,0
lsp 430,":a;chara\queenvanpire_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenvanpire_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenvanpire_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenvanpire_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenvanpire_ha5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenvanpire_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenvanpire_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenvanpire_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenvanpire_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenvanpire_hb5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenvanpire_hb6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenvanpire_hb7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenvanpire_hc1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenvanpire_hc2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenvanpire_hc3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenvanpire_hc4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenvanpire_hc5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenvanpire_hc6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenvanpire_hc7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenvanpire_hc8.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_queenvanpire_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,73
mov %skill01,19
mov %skill02,0
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *queenvanpire_start
if %bwait=211 mov %nanido,2:goto *queenvanpire_start
if %bwait=212 mov %nanido,3:goto *queenvanpire_start
lsp 700,":a;chara\queenvanpire_st02.bmp",0,0
bg "bg\bg224.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *queenvanpire_h



;-----?????????-----



*zukan_c_homunculus

mov $zname,"Chimera Homunculus "
mov $zlavel,"c_homunculus"
itoa2 $zukan_ko,%2680
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2680=0 mov %hscene1,0
if %2680>0 mov %hscene1,1
if %2680=0 mov %zukancg,0
if %2680>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"55"
mov $zukan_hp,"17000"
mov $zukan_skill1,"EX Tentacle "
mov %zukan_skillc1,3849
mov $zukan_skill2,"EX Bust "
mov %zukan_skillc2,3850
mov $zukan_skill3,"EX Drain Blowjob "
mov %zukan_skillc3,3851
mov $zukan_skill4,"Alchemist Tentacle "
mov %zukan_skillc4,3852
mov $zukan_skill5,"Alchemist Euria "
mov %zukan_skillc5,3853
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_c_homunculus_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\chimhomu.jpg",400,0	
goto *zukan_kihonbtn



*zukan_c_homunculus_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\c_homunculus_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\c_homunculus_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\c_homunculus_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\c_homunculus_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\c_homunculus_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\c_homunculus_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_c_homunculus_cg

lsp 500,":c;bg\bg072.bmp",0,0
lsp 430,":a;chara\c_homunculus_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_homunculus_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_homunculus_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_homunculus_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_homunculus_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\c_homunculus_h6.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_c_homunculus_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,73
mov %skill01,19
mov %skill02,0
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *c_homunculus_start
if %bwait=211 mov %nanido,2:goto *c_homunculus_start
if %bwait=212 mov %nanido,3:goto *c_homunculus_start
lsp 700,":a;chara\c_homunculus_st02.bmp",0,0
bg "bg\bg072.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *c_homunculus_h



;-----?????????-----



*zukan_ironmaiden_k

mov $zname,"Iron Maiden v2 "
mov $zlavel,"ironmaiden_k"
itoa2 $zukan_ko,%2681
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2681=0 mov %hscene1,0
if %2681>0 mov %hscene1,1
if %2681=0 mov %zukancg,0
if %2681>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"57"
mov $zukan_hp,"18000"
mov $zukan_skill1,"Dream Spider "
mov %zukan_skillc1,3854
mov $zukan_skill2,"Sweet Pinchers "
mov %zukan_skillc2,3855
mov $zukan_skill3,"Cave of Roses "
mov %zukan_skillc3,3856
mov $zukan_skill4,"Sadistic Iron Maiden "
mov %zukan_skillc4,3857
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_ironmaiden_k_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\ironmaiden2.jpg",400,0	
goto *zukan_kihonbtn



*zukan_ironmaiden_k_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\ironmaiden_k_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\ironmaiden_k_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\ironmaiden_k_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\ironmaiden_k_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\ironmaiden_k_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\ironmaiden_k_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_ironmaiden_k_cg

lsp 500,":c;bg\bg072.bmp",0,0
lsp 430,":a;chara\ironmaiden_k_st11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ironmaiden_k_st12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ironmaiden_k_st13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ironmaiden_k_st14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ironmaiden_k_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ironmaiden_k_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ironmaiden_k_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ironmaiden_k_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ironmaiden_k_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\ironmaiden_k_h6.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_ironmaiden_k_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,73
mov %skill01,19
mov %skill02,0
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *ironmaiden_k_start
if %bwait=211 mov %nanido,2:goto *ironmaiden_k_start
if %bwait=212 mov %nanido,3:goto *ironmaiden_k_start
lsp 700,":a;chara\ironmaiden_k_st02.bmp",0,0
bg "bg\bg072.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *ironmaiden_k_h



;-----???-----



*zukan_lusia

mov $zname,"Lucia "
mov $zlavel,"lusia"
itoa2 $zukan_ko,%2682
mov %zukan_facenum,4
mov %zukan_posenum,1
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2682=0 mov %hscene1,0
if %2682>0 mov %hscene1,1
if %2682=0 mov %zukancg,0
if %2682>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"88"
mov $zukan_hp,"20000"
mov $zukan_skill1,"Tentacle Worm "
mov %zukan_skillc1,3858
mov $zukan_skill2,"Drain Worm "
mov %zukan_skillc2,3859
mov $zukan_skill3,"Anal Drain "
mov %zukan_skillc3,3860
mov $zukan_skill4,"Ecstasy Worm "
mov %zukan_skillc4,3861
mov $zukan_skill5,"Paralyzing Worm "
mov %zukan_skillc5,3862
mov $zukan_skill6,"Boa Worm "
mov %zukan_skillc6,3863
mov $zukan_skill7,"Meltick Drain "
mov %zukan_skillc7,3864
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_lusia_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\lucia.jpg",400,0	
goto *zukan_kihonbtn



*zukan_lusia_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\lusia_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\lusia_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\lusia_st03.bmp",%zukan_x0,0
if %zukan_face=4 lsp 450,":a;chara\lusia_st04.bmp",%zukan_x0,0
if %zukan_face<>4 && %zukan_cum1=1 lsp 441,":a;chara\lusia_bk01.bmp",%zukan_x0,0
if %zukan_face=4 && %zukan_cum1=1 lsp 441,":a;chara\lusia_bk01b.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\lusia_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\lusia_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\lusia_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\lusia_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\lusia_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\lusia_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
return



*zukan_lusia_cg

lsp 500,":c;bg\bg075.bmp",0,0
lsp 430,":a;chara\lusia_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lusia_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lusia_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lusia_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lusia_ha5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lusia_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lusia_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lusia_ct02.bmp",0,0
lsp 430,":a;chara\lusia_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lusia_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lusia_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lusia_ct04.bmp",0,0
lsp 430,":a;chara\lusia_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_lusia_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,73
mov %skill01,19
mov %skill02,0
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *lusia_start
if %bwait=211 mov %nanido,2:goto *lusia_start
if %bwait=212 mov %nanido,3:goto *lusia_start
lsp 700,":a;chara\lusia_st02.bmp",0,0
bg "bg\bg075.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *lusia_h



;-----????????-----



*zukan_silkiel

mov $zname,"Virtue Silkiel "
mov $zlavel,"silkiel"
itoa2 $zukan_ko,%2683
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2683=0 mov %hscene1,0
if %2683>0 mov %hscene1,1
if %2683=0 mov %zukancg,0
if %2683>0 mov %zukancg,1
mov %zukan_x1,-110
mov %zukan_x2,90
mov $zukan_lv,"128"
mov $zukan_hp,"20000"
mov $zukan_skill1,"Flowing Blowjob "
mov %zukan_skillc1,3865
mov $zukan_skill2,"Flowing Tit Fuck "
mov %zukan_skillc2,3866
mov $zukan_skill3,"Feather Feel "
mov %zukan_skillc3,3867
mov $zukan_skill4,"Silk-Spinning Intercourse "
mov %zukan_skillc4,3868
mov $zukan_skill5,"Silky Tide "
mov %zukan_skillc5,3869
mov $zukan_skill6,"Silky Rose Heaven "
mov %zukan_skillc6,3870
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_silkiel_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\silkiel.jpg",400,0	
goto *zukan_kihonbtn



*zukan_silkiel_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\silkiel_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\silkiel_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\silkiel_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\silkiel_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\silkiel_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\silkiel_st13.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\silkiel_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\silkiel_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\silkiel_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\silkiel_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_silkiel_cg

lsp 500,":c;bg\bg076.bmp",0,0
lsp 430,":a;chara\silkiel_st21.bmp",90,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\silkiel_st22.bmp",90,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\silkiel_st23.bmp",90,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\silkiel_st24.bmp",90,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\silkiel_st25.bmp",90,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\silkiel_st26.bmp",90,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\silkiel_st27.bmp",90,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\silkiel_st31.bmp",90,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\silkiel_st32.bmp",90,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\silkiel_st33.bmp",90,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\silkiel_st34.bmp",90,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\silkiel_st35.bmp",90,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\silkiel_st36.bmp",90,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_silkiel_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,73
mov %skill01,19
mov %skill02,0
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
mov $name,"Silkiel "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *silkiel_start
if %bwait=211 mov %nanido,2:goto *silkiel_start
if %bwait=212 mov %nanido,3:goto *silkiel_start
lsp 700,":a;chara\silkiel_st02.bmp",90,0
bg "bg\bg076.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *silkiel_h



;-----?????????-----



*zukan_endiel

mov $zname,"Dominion Endiel "
mov $zlavel,"endiel"
itoa2 $zukan_ko,%2684
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2684=0 mov %hscene1,0
if %2684>0 mov %hscene1,1
if %2684=0 mov %zukancg,0
if %2684>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"132"
mov $zukan_hp,"21000"
mov $zukan_skill1,"Mystic Whore's Foot "
mov %zukan_skillc1,3871
mov $zukan_skill2,"Mystic Whore's Tit Fuck "
mov %zukan_skillc2,3872
mov $zukan_skill3,"Mystic Whore's Ass "
mov %zukan_skillc3,3873
mov $zukan_skill4,"Mystic Whore's Blowjob "
mov %zukan_skillc4,3874
mov $zukan_skill5,"Mystic Whore's Vagina "
mov %zukan_skillc5,3875
mov $zukan_skill6,"Hold of Sexual Pleasures "
mov %zukan_skillc6,3876
mov $zukan_skill7,"Dance of the Membrane "
mov %zukan_skillc7,3877
mov $zukan_skill8,"Membrane's Requiem "
mov %zukan_skillc8,3878
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_endiel_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\endiel.jpg",400,0	
goto *zukan_kihonbtn



*zukan_endiel_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\endiel_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\endiel_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\endiel_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\endiel_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\endiel_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\endiel_st13.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\endiel_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\endiel_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\endiel_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose=1 && %zukan_cum4=1 lsp 444,":a;chara\endiel_bk04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum4=1 lsp 444,":a;chara\endiel_bk14.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=2 && %zukan_cum5=1 lsp 445,":a;chara\endiel_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_endiel_cg

lsp 500,":c;bg\bg076.bmp",0,0
lsp 430,":a;chara\endiel_st11.bmp",0,0
lsp 420,":a;chara\endiel_ct01.bmp",400,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\endiel_ct02.bmp",400,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\endiel_ct03.bmp",400,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\endiel_ct04.bmp",400,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\endiel_st20.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\endiel_st21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\endiel_st22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\endiel_st23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\endiel_st24.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\endiel_st25.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\endiel_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\endiel_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\endiel_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\endiel_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\endiel_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\endiel_h6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\endiel_h7.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_endiel_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,74
mov %skill01,19
mov %skill02,0
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
mov $name,"Endiel "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *endiel_start
if %bwait=211 mov %nanido,2:goto *endiel_start
if %bwait=212 mov %nanido,3:goto *endiel_start
lsp 700,":a;chara\endiel_st02.bmp",0,0
bg "bg\bg076.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *endiel_h



;-----???2-----



*zukan_sylph2

mov $zname,"Sylph (2) "
mov $zlavel,"sylph2"
mov $zukan_ko,"None "
mov %zukan_facenum,7
mov %zukan_posenum,4
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-300
mov %zukan_x2,0
mov $zukan_lv,"50"
mov $zukan_hp,"4000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_sylph2_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\sylph2.jpg",400,0	
goto *zukan_kihonbtn



*zukan_sylph2_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=5 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,4
if %zukan_pose=2 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=3 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=4 && %zukan_face=12 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=0 mov %zukan_face,11
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\sylph_st41.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\sylph_st42.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\sylph_st43.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\sylph_st44.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\sylph_st01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\sylph_st02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\sylph_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\sylph_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=5 lsp 450,":a;chara\sylph_st05.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=6 lsp 450,":a;chara\sylph_st06.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=7 lsp 450,":a;chara\sylph_st07.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\sylph_st11.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\sylph_st12.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\sylph_st23.bmp",%zukan_x0+155,100
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\sylph_st24.bmp",%zukan_x0+155,100
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\sylph_st25.bmp",%zukan_x0+155,100
if %zukan_pose=4 && %zukan_face=4 lsp 450,":a;chara\sylph_st26.bmp",%zukan_x0+321,241
if %zukan_pose=4 && %zukan_face=5 lsp 450,":a;chara\sylph_st27.bmp",%zukan_x0+321,241
if %zukan_pose=4 && %zukan_face=6 lsp 450,":a;chara\sylph_st31.bmp",%zukan_x0,100
if %zukan_pose=4 && %zukan_face=7 lsp 450,":a;chara\sylph_st32.bmp",%zukan_x0,100
if %zukan_pose=4 && %zukan_face=8 lsp 450,":a;chara\sylph_st33.bmp",%zukan_x0+310,200
if %zukan_pose=4 && %zukan_face=9 lsp 450,":a;chara\sylph_st34.bmp",%zukan_x0+323,245
if %zukan_pose=4 && %zukan_face=10 lsp 450,":a;chara\sylph_st35.bmp",%zukan_x0+323,200
if %zukan_pose=4 && %zukan_face=11 lsp 450,":a;chara\sylph_st36.bmp",%zukan_x0+323,88
return



*zukan_sylph2_cg

lsp 500,":c;bg\bg076.bmp",0,0
lsp 430,":a;chara\sylph_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sylph_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sylph_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sylph_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_sylph2_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,74
mov %skill01,19
mov %skill02,0
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
mov $name,"Sylph "
gosub *setwindow_01
lsp 700,":a;chara\sylph_st41.bmp",0,0
bg "bg\bg076.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *sean0352


*sean0352

name "Sylph "
>Now to get some tasty energy from Luka. ? \
name ""
name "Luka "
>S...Stop! @ >Uwa! \
name ""
lsp 700,":a;chara\sylph_hb1.bmp",0,0:print 10,500
>Sylph quickly pushes me down, and jumps on top of me while I'm still          surprised. @
>Her oddly large body is far heavier than I imagined, and I can't immediately  push her off me. \
>Without being able to resist Sylph, she easily pinned me under her. \
name "Luka "
>Wait a second! @ >What about another method...? \
name ""
name "Sylph "
>With this adult body, I'll be able to do it easily, though. @
>And it will feel good for you too, Luka! \
name ""
>Completely ignoring me, Sylph drops her waist down. @
mov %hseanwave,1:hseanwave
lsp 700,":a;chara\sylph_hb2.bmp",0,0:print 10,500
>My penis sinks deep into her warm vagina in a single thrust. \
name "Luka "
>Ah...! \
name ""
>The feeling inside of her is incredible. @
>Her wet flesh easily accepts me, and warmly envelopes my penis inside her. \
>The close touch of her flesh brings forth a gasp of pleasure before I can     restrain myself. \
name "Sylph "
>Hahaha... It went in! ? @
>Well? It's warm inside me, isn't it? \
name ""
name "Luka "
>Ahh... You're warm. @
>It feels good inside you... \
name ""
>The soft touch of her vagina fills my senses. @
>Even though I've just inserted inside her, it feels amazing. \
>I'm already left powerless, with Sylph just sitting astride me. @
>I could come inside her just from being in her warm vagina. \
name "Luka "
>Haaa... \
name ""
>Looking down at me, Sylph giggles to herself. \
name "Sylph "
>Hehehe... You look like you're feeling good. @
>Let me squeeze it! ? \
name ""
>Sylph starts to put strength into her lower body. @
>The soft flesh of her vagina starts to slowly contract, squeezing down on my  penis from every direction. \
name "Luka "
>Ahh... So tight... \
name ""
>Her insides get smaller and smaller as she squeezes down, even compressing my glans deep inside her. @
>The pressure slowly builds up, from my tip all the way down my shaft to the   base. \
>My body starts to tremble as the pressure becomes too much. @
>The desire to release in her builds up too fast, and I can't suppress it any  longer. \
name "Luka "
>Ahh... Coming...! \
name ""
gosub *syasei1
lsp 700,":a;chara\sylph_hb3.bmp",0,0
gosub *syasei2
>Almost like an accidental orgasm, I come inside her grown up body. @
>Her tightness was too much... I couldn't stop myself from exploding inside    Sylph. \
name "Luka "
>Ahh... I came... \
name ""
name "Sylph "
>Ehh? @ >You just came already? @
lsp 700,":a;chara\sylph_hb4.bmp",0,0:print 10,500
>Oh my gosh... That was so fast! ? \
name ""
>Ecstatic at making me ejaculate so fast, Sylph can't stop from giggling. @
>A slight feeling of shame builds up in me as I can't help but think her smile is somewhat condescending... \
name "Sylph "
>I just needed to tighten a little bit? That was it? @
>I can't believe you couldn't endure more than that! ? \
>I guess I'll go a little easier on you this time. ? \
name ""
>With a dubious laugh, Sylph starts using her muscles again... @
>Sometimes tightening, sometimes loosening, she varies up the tightness inside her. \
>She's freely controlling the muscles in her vagina... @
>Unable to do anything under her, I just writhe around in pleasure. \
name "Luka "
>Ahh...! @
>Stop, don't tighten anymore! \
name ""
name "Sylph "
>Ehehe, I'm super skilled, aren't I? @
>I wonder how long you will last this time? \
name ""
>Looking down at me with glee in her eyes, Sylph continues attacking me with   her sexual skills. \
>Squeezing my penis from the root to the tip in varying amounts, it's almost   as if she is using a hand to stroke me inside her own vagina... \
name "Luka "
>Ahh... @
>No... I'm going to come again... \
name ""
>As I taste the tightness of her vagina, I feel another climax quickly coming  on. @
>The electrifying feeling spreads from my waist to the rest of my body. \
name "Sylph "
>Ehehe, you can't take it anymore? @
>Then it's time for the finishing blow! \
name ""
>Focusing on finishing me off, Sylph's tightening movements drastically        increase in speed and intensity. @
>My head goes pure white as the desire to ejaculate inside her takes me over.  \
name ""
name "Luka "
>Ahhhh! \
name ""
gosub *syasei1:gosub *syasei2
>Immersed in the sweet feeling of release, my semen shoots out into her tight, warm vagina. \
>At the same time, a sense of shame takes me over... @
>Sylph overwhelmed me with her sexual skills, and brought me to two quick      orgasms. \
mov %hseanwave,0:hseanwave
name "Sylph "
>Ahaha... I squeezed out a lot. ? @
>Now I can be together with Luka again! ? \
name ""
>Looking down at my exhausted self, Sylph laughs with satisfaction. \
gosub *anten
>............ \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0


;-----??????-----



*zukan_typhon

mov $zname,"Typhon Girl "
mov $zlavel,"typhon"
mov $zukan_ko,"None "
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"57"
mov $zukan_hp,"18000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_typhon_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\typhon.jpg",400,0	
goto *zukan_kihonbtn



*zukan_typhon_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\typhon_st01.bmp",%zukan_x0,0
return



*zukan_typhon_cg

lsp 500,":c;bg\bg065.bmp",0,0
lsp 430,":a;chara\typhon_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\typhon_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\typhon_h3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_typhon_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,74
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
bg "bg\bg065.bmp",10,1500
if %bwait=213 goto *sean0352a



;-----???????-----



*zukan_lamianloid

mov $zname,"Lamiaroid "
mov $zlavel,"lamianloid"
itoa2 $zukan_ko,%2701
mov %zukan_facenum,4
mov %zukan_posenum,2
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2855=0 mov %hscene1,0
if %2855>0 mov %hscene1,1
if %2856=0 mov %hscene2,0
if %2856>0 mov %hscene2,1
if %2701=0 mov %zukancg,0
if %2701>0 mov %zukancg,1
mov %zukan_x1,-210
mov %zukan_x2,0
mov $zukan_lv,"75"
mov $zukan_hp,"18000"
mov $zukan_skill1,"Lamiatail "
mov %zukan_skillc1,3879
mov $zukan_skill2,"Super Bust "
mov %zukan_skillc2,3880
mov $zukan_skill3,"Snake Tongue "
mov %zukan_skillc3,3881
mov $zukan_skill4,"Pleasure Foot "
mov %zukan_skillc4,4132
mov $zukan_skill5,"Rube Arm "
mov %zukan_skillc5,3882
mov $zukan_skill6,"Plant Arm "
mov %zukan_skillc6,3883
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_lamianloid_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\lamiaroid.jpg",400,0	
goto *zukan_kihonbtn



*zukan_lamianloid_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\lamianloid_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\lamianloid_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\lamianloid_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\lamianloid_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\lamianloid_st11.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\lamianloid_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\lamianloid_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\lamianloid_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose=1 && %zukan_cum4=1 lsp 444,":a;chara\lamianloid_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=1 && %zukan_cum5=1 lsp 445,":a;chara\lamianloid_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_pose=1 && %zukan_cum6=1 lsp 446,":a;chara\lamianloid_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
return



*zukan_lamianloid_cg

lsp 500,":c;bg\bg190.bmp",0,0
lsp 430,":a;chara\lamianloid_st02.bmp",0,0
lsp 420,":a;chara\lamianloid_ct41.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lamianloid_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lamianloid_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lamianloid_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lamianloid_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lamianloid_ct21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lamianloid_ct22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lamianloid_ct31.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\lamianloid_ct32.bmp",0,0
print 10,500:lrclick
if %2855=0 skip 83
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":c;chara\lamianloid_ha01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha10.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha15.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha16.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha17.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha18.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha19.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha20.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha24.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha25.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha26.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha27.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha28.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha29.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha30.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha31.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha32.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha33.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha34.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha35.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha36.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha37.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha38.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_ha39.bmp",0,0
print 10,500:lrclick
if %2856=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb10.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb15.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb16.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb17.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb18.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb19.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb20.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb24.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb25.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb26.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb27.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb28.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb29.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb30.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb31.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb32.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb33.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb34.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\lamianloid_hb35.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_lamianloid_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,74
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *lamianloid_start
if %bwait=211 mov %nanido,2:goto *lamianloid_start
if %bwait=212 mov %nanido,3:goto *lamianloid_start
lsp 700,":a;chara\lamianloid_st02.bmp",0,0
bg "bg\bg190.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *lamianloid_ha
if %bwait=214 goto *lamianloid_hb



;-----??????-----



*zukan_knightloid

mov $zname,"Knightroid "
mov $zlavel,"knightloid"
itoa2 $zukan_ko,%2686
mov %zukan_facenum,5
mov %zukan_posenum,4
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2686=0 mov %hscene1,0
if %2686>0 mov %hscene1,1
if %2686=0 mov %zukancg,0
if %2686>0 mov %zukancg,1
mov %zukan_x1,-250
mov %zukan_x2,-50
mov $zukan_lv,"89"
mov $zukan_hp,"30000"
mov $zukan_skill1,"Oral Drills "
mov %zukan_skillc1,3884
mov $zukan_skill2,"Chivalric Spear Rub "
mov %zukan_skillc2,3885
mov $zukan_skill3,"Chivalric Spear Handling "
mov %zukan_skillc3,3886
mov $zukan_skill4,"Chivalric Whip "
mov %zukan_skillc4,3887
mov $zukan_skill5,"Knightly Breast Force "
mov %zukan_skillc5,3888
mov $zukan_skill6,"Knightly Breast Milking "
mov %zukan_skillc6,3889
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_knightloid_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\knightroid.jpg",400,0	
goto *zukan_kihonbtn



*zukan_knightloid_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\knightloid_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\knightloid_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\knightloid_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\knightloid_st04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\knightloid_st05.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\knightloid_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\knightloid_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\knightloid_st13.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\knightloid_st14.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=5 lsp 450,":a;chara\knightloid_st15.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\knightloid_st21.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\knightloid_st22.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\knightloid_st23.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;chara\knightloid_st24.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=5 lsp 450,":a;chara\knightloid_st25.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\knightloid_st31.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\knightloid_st32.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\knightloid_st33.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=4 lsp 450,":a;chara\knightloid_st34.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=5 lsp 450,":a;chara\knightloid_st35.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\knightloid_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose=2 && %zukan_cum2=1 lsp 442,":a;chara\knightloid_bk02.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_cum2=1 lsp 442,":a;chara\knightloid_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\knightloid_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\knightloid_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\knightloid_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_knightloid_cg

lsp 500,":c;bg\bg225.bmp",0,0
lsp 430,":a;chara\knightloid_st01.bmp",0,0
lsp 420,":a;chara\knightloid_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\knightloid_ct31.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\knightloid_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\knightloid_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\knightloid_ct13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\knightloid_ct21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\knightloid_ct22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\knightloid_ct23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":c;chara\knightloid_ha01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_ha04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_ha19.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_ha21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_ha22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb10.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb15.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb16.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb17.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb18.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb19.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb20.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb24.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb25.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb26.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb27.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\knightloid_hb28.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_knightloid_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,74
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *knightloid_start
if %bwait=211 mov %nanido,2:goto *knightloid_start
if %bwait=212 mov %nanido,3:goto *knightloid_start
lsp 700,":a;chara\knightloid_st02.bmp",-50,0
bg "bg\bg084.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *knightloid_h



;-----????-----



*zukan_akaname

mov $zname,"Akaname "
mov $zlavel,"akaname"
itoa2 $zukan_ko,%2687
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,1
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2687=0 mov %hscene1,0
if %2687>0 mov %hscene1,1
if %2687=0 mov %zukancg,0
if %2687>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"53"
mov $zukan_hp,"15000"
mov $zukan_skill1,"Akaname Entangling "
mov %zukan_skillc1,3890
mov $zukan_skill2,"Akaname Squeeze "
mov %zukan_skillc2,3891
mov $zukan_skill3,"Akaname Sucking "
mov %zukan_skillc3,3892
mov $zukan_skill4,"Akaname Nipple Crawl "
mov %zukan_skillc4,3893
mov $zukan_skill5,"Akaname Ball Lick  "
mov %zukan_skillc5,3894
mov $zukan_skill6,"Akaname Anal Lick  "
mov %zukan_skillc6,3895
mov $zukan_skill7,"Akaname Triple Entanglement  "
mov %zukan_skillc7,3896
mov $zukan_skill8,"Akaname Licking Kiss  "
mov %zukan_skillc8,3897
mov $zukan_skill9,"Akaname Tongue Garden  "
mov %zukan_skillc9,3898
mov $zukan_skill10,"Akaname Tongue Hell "
mov %zukan_skillc10,3899
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_akaname_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\akaname.jpg",400,0	
goto *zukan_kihonbtn



*zukan_akaname_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\akaname_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\akaname_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\akaname_st03.bmp",%zukan_x0,0
if %zukan_face=2 && %zukan_cum1=1 lsp 441,":a;chara\akaname_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
return



*zukan_akaname_cg

lsp 500,":c;bg\bg088.bmp",0,0
lsp 430,":a;chara\akaname_st02.bmp",100,0
lsp 420,":a;chara\akaname_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\akaname_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\akaname_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\akaname_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\akaname_ct21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\akaname_ct22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\akaname_ct31.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\akaname_ct32.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\akaname_ct41.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\akaname_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\akaname_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\akaname_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\akaname_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\akaname_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\akaname_h6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\akaname_h7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\akaname_h8.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\akaname_h9.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_akaname_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,74
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *akaname_start
if %bwait=211 mov %nanido,2:goto *akaname_start
if %bwait=212 mov %nanido,3:goto *akaname_start
lsp 700,":a;chara\akaname_st02.bmp",0,0
bg "bg\bg088.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *akaname_h



;-----?????-----



*zukan_mikolamia

mov $zname,"Miko Lamia "
mov $zlavel,"mikolamia"
itoa2 $zukan_ko,%2688
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2688=0 mov %hscene1,0
if %2688>0 mov %hscene1,1
if %2688=0 mov %zukancg,0
if %2688>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"55"
mov $zukan_hp,"16000"
mov $zukan_skill1,"Ten Finger Masturbation "
mov %zukan_skillc1,3900
mov $zukan_skill2,"Snake Tongue "
mov %zukan_skillc2,3901
mov $zukan_skill3,"Abundant Breasts "
mov %zukan_skillc3,3902
mov $zukan_skill4,"Divining Tail "
mov %zukan_skillc4,3903
mov $zukan_skill5,"Ninety Inch Tongue Wrap "
mov %zukan_skillc5,3904
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_mikolamia_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\mikolamia.jpg",400,0	
goto *zukan_kihonbtn



*zukan_mikolamia_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\mikolamia_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\mikolamia_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\mikolamia_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\mikolamia_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\mikolamia_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\mikolamia_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\mikolamia_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\mikolamia_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\mikolamia_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\mikolamia_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
return



*zukan_mikolamia_cg

lsp 500,":c;bg\bg191.bmp",0,0
lsp 430,":a;chara\mikolamia_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mikolamia_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mikolamia_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mikolamia_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mikolamia_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mikolamia_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mikolamia_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\mikolamia_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_mikolamia_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,74
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *mikolamia_start
if %bwait=211 mov %nanido,2:goto *mikolamia_start
if %bwait=212 mov %nanido,3:goto *mikolamia_start
lsp 700,":a;chara\mikolamia_st02.bmp",0,0
bg "bg\bg191.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *mikolamia_h



;-----???-----



*zukan_kezyorou

mov $zname,"Kejourou "
mov $zlavel,"kezyorou"
itoa2 $zukan_ko,%2729
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2729=0 mov %hscene1,0
if %2729>0 mov %hscene1,1
if %2729=0 mov %zukancg,0
if %2729>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"58"
mov $zukan_hp,"18000"
mov $zukan_skill1,"Geisha's Masturbation "
mov %zukan_skillc1,3905
mov $zukan_skill2,"Flutist's Playing "
mov %zukan_skillc2,3906
mov $zukan_skill3,"Flower Girl's Breasts "
mov %zukan_skillc3,3907
mov $zukan_skill4,"Indecent Hair "
mov %zukan_skillc4,3908
mov $zukan_skill5,"Ultimate Hair Charm "
mov %zukan_skillc5,3909
mov $zukan_skill6,"Courtesan's Pride "
mov %zukan_skillc6,3910
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_kezyorou_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\kejourou.jpg",400,0	
goto *zukan_kihonbtn



*zukan_kezyorou_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\kezyorou_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\kezyorou_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\kezyorou_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\kezyorou_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\kezyorou_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\kezyorou_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\kezyorou_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_kezyorou_cg

lsp 500,":c;bg\bg159.bmp",0,0
lsp 430,":a;chara\kezyorou_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kezyorou_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kezyorou_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kezyorou_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kezyorou_ha5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kezyorou_ha6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kezyorou_ha7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kezyorou_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kezyorou_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kezyorou_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kezyorou_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kezyorou_hb5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kezyorou_hb6.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_kezyorou_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,74
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *kezyorou_start
if %bwait=211 mov %nanido,2:goto *kezyorou_start
if %bwait=212 mov %nanido,3:goto *kezyorou_start
lsp 700,":a;chara\kezyorou_st02.bmp",0,0
bg "bg\bg159.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *kezyorou_h



;-----???-----



*zukan_sirohebisama

mov $zname,"Shirohebi "
mov $zlavel,"sirohebisama"
itoa2 $zukan_ko,%2689
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2689=0 mov %hscene1,0
if %2689>0 mov %hscene1,1
if %2689=0 mov %zukancg,0
if %2689>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"70"
mov $zukan_hp,"21000"
mov $zukan_skill1,"Boy Squeezing "
mov %zukan_skillc1,3911
mov $zukan_skill2,"Ascending Suck "
mov %zukan_skillc2,3912
mov $zukan_skill3,"Breast Pressure "
mov %zukan_skillc3,3913
mov $zukan_skill4,"Snake Squeeze "
mov %zukan_skillc4,3914
mov $zukan_skill5,"Shirohebi's Comforting "
mov %zukan_skillc5,3915
mov $zukan_skill6,"Snake Mating "
mov %zukan_skillc6,3916
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_sirohebisama_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\shirohebi.jpg",400,0	
goto *zukan_kihonbtn



*zukan_sirohebisama_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\sirohebisama_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\sirohebisama_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\sirohebisama_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\sirohebisama_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\sirohebisama_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\sirohebisama_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\sirohebisama_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\sirohebisama_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\sirohebisama_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
return



*zukan_sirohebisama_cg

lsp 500,":c;bg\bg090.bmp",0,0
lsp 430,":a;chara\sirohebisama_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sirohebisama_ha1s.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sirohebisama_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sirohebisama_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sirohebisama_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sirohebisama_ha5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sirohebisama_ha6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sirohebisama_ha7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sirohebisama_ha8.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sirohebisama_ha9.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\sirohebisama_ct01.bmp",0,0
lsp 430,":a;chara\sirohebisama_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\sirohebisama_ct02.bmp",0,0
lsp 430,":a;chara\sirohebisama_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\sirohebisama_ct03.bmp",0,0
lsp 430,":a;chara\sirohebisama_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\sirohebisama_ct04.bmp",0,0
lsp 430,":a;chara\sirohebisama_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\sirohebisama_ct05.bmp",0,0
lsp 430,":a;chara\sirohebisama_hb5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\sirohebisama_ct06.bmp",0,0
lsp 430,":a;chara\sirohebisama_hb6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\sirohebisama_ct07.bmp",0,0
lsp 430,":a;chara\sirohebisama_hb7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\sirohebisama_ct08.bmp",0,0
lsp 430,":a;chara\sirohebisama_hb8.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\sirohebisama_ct09.bmp",0,0
lsp 430,":a;chara\sirohebisama_hb9.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_sirohebisama_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,74
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *sirohebisama_start
if %bwait=211 mov %nanido,2:goto *sirohebisama_start
if %bwait=212 mov %nanido,3:goto *sirohebisama_start
lsp 700,":a;chara\sirohebisama_st02.bmp",0,0
bg "bg\bg090.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *sirohebisama_h



;-----?????-----



*zukan_walraune

mov $zname,"Walraune "
mov $zlavel,"walraune"
itoa2 $zukan_ko,%2690
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2690=0 mov %hscene1,0
if %2690>0 mov %hscene1,1
if %2690=0 mov %zukancg,0
if %2690>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"55"
mov $zukan_hp,"17000"
mov $zukan_skill1,"Confusing Pollen Handjob "
mov %zukan_skillc1,3924
mov $zukan_skill2,"Paralyzing Sap Blowjob "
mov %zukan_skillc2,3925
mov $zukan_skill3,"Ecstasy Sap Tit Fuck "
mov %zukan_skillc3,3926
mov $zukan_skill4,"Seduction Pollen Hair "
mov %zukan_skillc4,3927
mov $zukan_skill5,"Hell Tentacle "
mov %zukan_skillc5,3928
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_walraune_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\walraune.jpg",400,0	
goto *zukan_kihonbtn



*zukan_walraune_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\walraune_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\walraune_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\walraune_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\walraune_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\walraune_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\walraune_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\walraune_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\walraune_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\walraune_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
return



*zukan_walraune_cg

lsp 500,":c;bg\bg093.bmp",0,0
lsp 430,":a;chara\walraune_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\walraune_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\walraune_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\walraune_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_walraune_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,75
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *walraune_start
if %bwait=211 mov %nanido,2:goto *walraune_start
if %bwait=212 mov %nanido,3:goto *walraune_start
lsp 700,":a;chara\walraune_st02.bmp",0,0
bg "bg\bg093.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *walraune_h



;-----?????-----



*zukan_dryad

mov $zname,"Dryad "
mov $zlavel,"dryad"
itoa2 $zukan_ko,%2691
mov %zukan_facenum,4
mov %zukan_posenum,2
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2839=0 mov %hscene1,0
if %2839>0 mov %hscene1,1
if %2840=0 mov %hscene2,0
if %2840>0 mov %hscene2,1
if %2691=0 mov %zukancg,0
if %2691>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"57"
mov $zukan_hp,"22000"
mov $zukan_skill1,"Arc Foot "
mov %zukan_skillc1,3917
mov $zukan_skill2,"Arc Blowjob "
mov %zukan_skillc2,3918
mov $zukan_skill3,"Arc Bust "
mov %zukan_skillc3,3919
mov $zukan_skill4,"Arc Ivy "
mov %zukan_skillc4,3920
mov $zukan_skill5,"Arc Hip Heaven "
mov %zukan_skillc5,3921
mov $zukan_skill6,"Sap of Ecstasy "
mov %zukan_skillc6,3922
mov $zukan_skill7,"Bloom of the Tree "
mov %zukan_skillc7,3923
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_dryad_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\dryad2.jpg",400,0	
goto *zukan_kihonbtn



*zukan_dryad_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\dryad_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\dryad_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\dryad_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\dryad_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\dryad_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\dryad_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\dryad_st13.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\dryad_st14.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\dryad_bk01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum1=1 lsp 441,":a;chara\dryad_bk11.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\dryad_bk02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum2=1 lsp 442,":a;chara\dryad_bk12.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\dryad_bk03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum3=1 lsp 443,":a;chara\dryad_bk13.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose=1 && %zukan_cum4=1 lsp 444,":a;chara\dryad_bk04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum4=1 lsp 444,":a;chara\dryad_bk14.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_dryad_cg

lsp 500,":c;bg\bg094.bmp",0,0
if %2839=0 skip 15
lsp 430,":a;chara\dryad_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_ha5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_ha6.bmp",0,0
print 10,500:lrclick
if %2840=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_hb5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_hb6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_hb7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_hb8.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_hc1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_hc2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_hc3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_hc4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_hc5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_hc6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dryad_hc7.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_dryad_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,75
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *dryad_start
if %bwait=211 mov %nanido,2:goto *dryad_start
if %bwait=212 mov %nanido,3:goto *dryad_start
if %bwait=213 lsp 700,":a;chara\dryad_st02.bmp",0,0
if %bwait=214 lsp 700,":a;chara\dryad_st12.bmp",0,0
bg "bg\bg094.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *dryad_ha
if %bwait=214 goto *dryad_hb



;-----?????????-----



*zukan_queenalraune

mov $zname,"Queen Alraune "
mov $zlavel,"queenalraune"
itoa2 $zukan_ko,%2692
mov %zukan_facenum,3
mov %zukan_posenum,3
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2692=0 mov %hscene1,0
if %2692>0 mov %hscene1,1
if %2692=0 mov %zukancg,0
if %2692>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"72"
mov $zukan_hp,"25000"
mov $zukan_skill1,"Cardinal Hands "
mov %zukan_skillc1,3929
mov $zukan_skill2,"Laurean Press "
mov %zukan_skillc2,3930
mov $zukan_skill3,"Queen Flower Squeeze "
mov %zukan_skillc3,3931
mov $zukan_skill4,"Squeezing Ivy Dance "
mov %zukan_skillc4,3932
mov $zukan_skill5,"Nectar of Ecstasy "
mov %zukan_skillc5,3933
mov $zukan_skill6,"Playful Vines "
mov %zukan_skillc6,3934
mov $zukan_skill7,"Milk of Ecstasy "
mov %zukan_skillc7,3935
mov $zukan_skill8,"Ecstasy Caress "
mov %zukan_skillc8,3936
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_queenalraune_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\queenalraune.jpg",400,0	
goto *zukan_kihonbtn



*zukan_queenalraune_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\queenalraune_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\queenalraune_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\queenalraune_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\queenalraune_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\queenalraune_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\queenalraune_st13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\queenalraune_st21.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\queenalraune_st22.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\queenalraune_st23.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\queenalraune_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\queenalraune_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\queenalraune_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\queenalraune_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=2 && %zukan_cum5=1 lsp 445,":a;chara\queenalraune_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_pose=3 cspl 441,445
return



*zukan_queenalraune_cg

lsp 500,":c;bg\bg095.bmp",0,0
lsp 430,":c;chara\queenalraune_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\queenalraune_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\queenalraune_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\queenalraune_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\queenalraune_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\queenalraune_h6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\queenalraune_h7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\queenalraune_h8.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_queenalraune_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,75
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *queenalraune_start
if %bwait=211 mov %nanido,2:goto *queenalraune_start
if %bwait=212 mov %nanido,3:goto *queenalraune_start
lsp 700,":a;chara\queenalraune_st02.bmp",0,0
bg "bg\bg095.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *queenalraune_h



;-----???????-----



*zukan_slimelord

mov $zname,"Slime Bess "
mov $zlavel,"slimelord"
itoa2 $zukan_ko,%2693
mov %zukan_facenum,5
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2693=0 mov %hscene1,0
if %2693>0 mov %hscene1,1
if %2693=0 mov %zukancg,0
if %2693>0 mov %zukancg,1
mov %zukan_x1,-130
mov %zukan_x2,0
mov $zukan_lv,"58"
mov $zukan_hp,"21000"
mov $zukan_skill1,"Jelly Hands "
mov %zukan_skillc1,3937
mov $zukan_skill2,"Melty Bust "
mov %zukan_skillc2,3938
mov $zukan_skill3,"Slimy Hips "
mov %zukan_skillc3,3939
mov $zukan_skill4,"Slime Girl's Slimy Blowjob "
mov %zukan_skillc4,3940
mov $zukan_skill5,"Amoeba Haze "
mov %zukan_skillc5,3941
mov $zukan_skill6,"Amoeba Drain "
mov %zukan_skillc6,3942
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_slimelord_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\slimelord.jpg",400,0	
goto *zukan_kihonbtn



*zukan_slimelord_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\slimelord_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\slimelord_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\slimelord_st03.bmp",%zukan_x0,0
if %zukan_face=4 lsp 450,":a;chara\slimelord_st04.bmp",%zukan_x0,0
if %zukan_face=5 lsp 450,":a;chara\slimelord_st05.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\slimelord_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\slimelord_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\slimelord_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\slimelord_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_slimelord_cg

lsp 500,":c;bg\bg097.bmp",0,0
lsp 430,":a;chara\slimelord_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\slimelord_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\slimelord_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\slimelord_hb4.bmp",0,0
lsp 420,":a;chara\slimelord_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\slimelord_hb5.bmp",0,0
lsp 420,":a;chara\slimelord_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\slimelord_hb6.bmp",0,0
lsp 420,":a;chara\slimelord_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\slimelord_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\slimelord_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\slimelord_ha3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_slimelord_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,75
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *slimelord_start
if %bwait=211 mov %nanido,2:goto *slimelord_start
if %bwait=212 mov %nanido,3:goto *slimelord_start
lsp 700,":a;chara\slimelord_st02.bmp",0,0
bg "bg\bg097.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *slimelord_h



;-----???????-----



*zukan_eggel

mov $zname,"Throne Eggiel "
mov $zlavel,"eggel"
itoa2 $zukan_ko,%2694
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2694=0 mov %hscene1,0
if %2694>0 mov %hscene1,1
if %2694=0 mov %zukancg,0
if %2694>0 mov %zukancg,1
mov %zukan_x1,-150
mov %zukan_x2,50
mov $zukan_lv,"135"
mov $zukan_hp,"20000"
mov $zukan_skill1,"Angel Hair "
mov %zukan_skillc1,3943
mov $zukan_skill2,"Angel Feathers "
mov %zukan_skillc2,3944
mov $zukan_skill3,"Angel Mouth "
mov %zukan_skillc3,3945
mov $zukan_skill4,"Meltick Bubble "
mov %zukan_skillc4,3946
mov $zukan_skill5,"Felty Bubble "
mov %zukan_skillc5,3947
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_eggel_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\eggel.jpg",400,0	
goto *zukan_kihonbtn



*zukan_eggel_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\eggel_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\eggel_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\eggel_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\eggel_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\eggel_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\eggel_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_eggel_cg

lsp 500,":c;bg\bg097.bmp",0,0
lsp 430,":a;chara\eggel_ha1.bmp",50,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eggel_ha2.bmp",50,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eggel_ha3.bmp",50,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eggel_ha4.bmp",50,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eggel_ha5.bmp",50,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eggel_hb1.bmp",50,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eggel_hb2.bmp",50,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eggel_hb3.bmp",50,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eggel_hb4.bmp",50,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eggel_hb5.bmp",50,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eggel_hb6.bmp",50,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_eggel_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,75
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
mov $name,"Eggiel "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *eggel_start
if %bwait=211 mov %nanido,2:goto *eggel_start
if %bwait=212 mov %nanido,3:goto *eggel_start
lsp 700,":a;chara\eggel_st02.bmp",50,0
bg "bg\bg097.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *eggel_h



;-----??????2-----



*zukan_salamander2

mov $zname,"Salamander (2) "
mov $zlavel,"salamander2"
mov $zukan_ko,"None "
mov %zukan_facenum,4
mov %zukan_posenum,3
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"85"
mov $zukan_hp,"16000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_salamander2_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\salamander2.jpg",400,0	
goto *zukan_kihonbtn



*zukan_salamander2_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=2 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=3 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;2Q\chara\salamander_st01.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;2Q\chara\salamander_st02.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;2Q\chara\salamander_st03.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;2Q\chara\salamander_st11.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;2Q\chara\salamander_st12.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;2Q\chara\salamander_st21.png",%zukan_x0+235,85
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;2Q\chara\salamander_st22.png",%zukan_x0+235,85
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;2Q\chara\salamander_st23.png",%zukan_x0+235,85
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;2Q\chara\salamander_st24.png",%zukan_x0+240,85
return



*zukan_salamander2_cg

lsp 500,":c;bg\bg097.bmp",0,0
lsp 430,":a;chara\salamander_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\salamander_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\salamander_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\salamander_hb4.bmp",0,0

print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_salamander2_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,75
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,0
mov %item01,10
mov $name,"Salamander "
gosub *setwindow_01
lsp 700,":a;2Q\chara\salamander_st01.png",0,0
bg "bg\bg097.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *sean0367


*sean0367

>Salamander easily hops up on top of my weak body. \
name "Salamander "
>Now it's time for some fun. @
>I'll absorb some of that strength of yours... \
name ""
cspl 690,699
lsp 700,":a;chara\salamander_hb1.bmp",0,0:print 10,500
>Salamander grabs hold of my penis, and moves it toward her own entrance. @
mov %hseanwave,3:hseanwave
>And with one push, she brings me all the way inside her! \
name "Luka "
>Ahhh!! \
name ""
>Her insides are surprisingly hot, the temperature making it feel like I could melt away inside her. \
>It's almost like my penis is inside a hot oven... @
>As her warmth floods through me, it's paired with a strange sense of calming  ecstasy. \
name "Salamander "
>Hehe, do you like how I feel? @
>I want you to get a good taste of it... \
name ""
name "Luka "
>S...So warm... @
>Ahhh... \
name ""
>The intense heat fills my head with pleasure, causing me to relax and sigh. @
>But no matter how hot it gets, it doesn't hurt. \
>My penis feels like it could melt away inside her hot, soft vagina. @
>Her gentle squeezing along with the heat feels so good... \
name "Luka "
>Ahhh... @
>It feels so warm... So good... \
name ""
>I want to come with everything I have inside this pleasurable warmth. @
>Surrender myself to her warmth, and let loose all of my sexual desire. \
>Detecting my feelings, Salamander looks over me with a triumphant smile. \
name "Salamander "
>You want to release inside my hot vagina? @
>I can already see through you... Hehehe. \
>You don't need to hold back... @
>Give in and release inside me. \
name ""
>The moment Salamander says that, I surrender mentally. @
>Focusing everything on the sensations from her hot vagina, I relax as the     climax rolls through me. \
name "Luka "
>Haaa... It feels so good... \
name ""
>As I give in to her heat, I feel the ejaculation well up in my lower body. \
gosub *syasei1
lsp 700,":a;chara\salamander_hb2.bmp",0,0
gosub *syasei2
name "Luka "
>Haaa... \
name ""
>Following my male instinct, I spurt inside her hot vagina. @
>Rather than a blast of pleasure, it feels more like I leaked out inside of    her. \
>My penis pulses, spitting out jet after jet of semen into her. @
>Until it's over, the incredible sense of release fills my body. \
name "Salamander "
>Hehe, you came inside. @
>And with such high quality semen... \
name ""
name "Luka "
>Ahhh... \
name ""
>Feeling incredible, all of the strength fades from me underneath Salamander's body. @
>Having sex with her feels amazing, but it's taking a toll on my body and      mind. \
name "Salamander "
>Oh? @ >What, are you getting tired already? @
>I still need you to give me much more, though... \
name ""
name "Luka "
>Ah...Ahhh! \
name ""
mov %hseanwave,6:hseanwave
>With a wet sound, her vagina suddenly shrinks as she squeezes. \
>Her hot, wet vaginal wells press against my penis, almost making it feel like I'm sinking into her. \
>The tight grip of her vagina makes it feel like I'm being squeezed by a       hand... @
>The sudden tightness forces a moan from me before I can stop. \
name "Luka "
>Ahhh!! @
>T...Too tight! \
name ""
name "Salamander "
>Hehe... What? @
>I didn't think you would cry surrender if it was just a little tighter... \
>Let me try making it a little bit tighter! \
name ""
>Squeeze... Squeeze... Squeeze... She tenses her vagina up, squeezing me even  harder. \
>That hot sensation of her soft flesh against my penis attacks me even         stronger. \
>My whole body twitches as the powerful pleasure slams into me. @
>After only moments, I already feel like exploding inside her again. \
name "Luka "
>Ah...! @ >Ahhh! \
name ""
name "Salamander "
>Hehe... It looks like your second orgasm is already here. @
>Would you like me to finish you off all at once? \
name ""
>Squeeze... Squeeze... Her hot vagina rubs my penis as she squeezes me, almost like my penis was a napkin she was crumpling up inside of her. \
name "Luka "
>N...No... Ah... \
name ""
>The last of my endurance is blown away, as I give in to my rising climax. \
name "Salamander "
>You seem to have given up holding back... @
>Well then, now for the coup de grace. \
name ""
>With rhythmic squeezes just on my tip, I let out a moan as I reach orgasm. \
name "Luka "
>Ah... Haaa... \
name ""
gosub *syasei1
lsp 700,":a;chara\salamander_hb3.bmp",0,0
gosub *syasei2
>I explode inside of her, squirting my semen deep into Salamander's hot        vagina. @
>Laying back and moaning, I just give myself over to the ecstasy, embracing    it. \
name "Luka "
>Ahhh... \
name ""
name "Salamander "
>Hehe, I'm getting hotter and hotter myself... @
>Let's have some more fun! \
name ""
>Almost delirious with pleasure from her returning power, Salamander starts to bounce up and down, and side to side as her temperature increases. \
name "Salamander "
>Hahaha! \
name ""
name "Luka "
>Ahhh!! \
name ""
>My penis is helplessly tossed side to side as she rides me, her intense       piston movements only getting faster and faster. \
>Her merciless riding brings me to another climax in almost no time. \
name "Luka "
>No... Ahhh! \
name ""
gosub *syasei1
lsp 700,":a;chara\salamander_hb4.bmp",0,0
gosub *syasei2
name "Salamander "
>Nnn... Even though that was the third time, you came so fast... @
>You really don't have much endurance, do you? \
name ""
>Salamander's vagina sucks on my penis, as if drawing my semen deep inside     her. @
>Greedily devouring my semen, it doesn't look like she has had enough... \
name "Salamander "
>This isn't enough yet... @
>I want to squeeze your semen to the limit! \
name ""
name "Luka "
>S...Stop... @
>Ahhh! \
name ""
>Salamander continues her intense movements, already eager for my next orgasm. @
>Too weak to stop her now, I have no choice but to let her continue... \
mov %hseanwave,0:hseanwave
gosub *anten
>............ \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0



;-----??????-----



*zukan_tutigumo

mov $zname,"Tsuchigumo "
mov $zlavel,"tutigumo"
itoa2 $zukan_ko,%2678
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2678=0 mov %hscene1,0
if %2678>0 mov %hscene1,1
if %2678=0 mov %zukancg,0
if %2678>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"55"
mov $zukan_hp,"19000"
mov $zukan_skill1,"Eight Foot Stroke "
mov %zukan_skillc1,3948
mov $zukan_skill2,"Pinching Monster Breasts "
mov %zukan_skillc2,3949
mov $zukan_skill3,"Silky Blowjob "
mov %zukan_skillc3,3950
mov $zukan_skill4,"Breast Milk of Passion "
mov %zukan_skillc4,3951
mov $zukan_skill5,"Male Binding Silk "
mov %zukan_skillc5,3952
mov $zukan_skill6,"Male Slurping Vagina "
mov %zukan_skillc6,3953
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_tutigumo_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\tsuchigumo.jpg",400,0	
goto *zukan_kihonbtn



*zukan_tutigumo_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\tutigumo_st11.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\tutigumo_st12.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\tutigumo_st13.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\tutigumo_st01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\tutigumo_st02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\tutigumo_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\tutigumo_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\tutigumo_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\tutigumo_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\tutigumo_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_tutigumo_cg

lsp 500,":c;bg\bg092.bmp",0,0
lsp 430,":a;chara\tutigumo_st02.bmp",0,0
lsp 420,":a;chara\tutigumo_ct01.bmp",300,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tutigumo_ct02.bmp",300,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tutigumo_ct03.bmp",300,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tutigumo_ct04.bmp",300,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tutigumo_ct11.bmp",300,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tutigumo_ct12.bmp",300,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tutigumo_ct13.bmp",300,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tutigumo_ct21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tutigumo_ct22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tutigumo_ct23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tutigumo_ct24.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\tutigumo_ct25.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":c;chara\tutigumo_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\tutigumo_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\tutigumo_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\tutigumo_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\tutigumo_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\tutigumo_h6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\tutigumo_h7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\tutigumo_h8.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\tutigumo_h9.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_tutigumo_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,75
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *tutigumo_start
if %bwait=211 mov %nanido,2:goto *tutigumo_start
if %bwait=212 mov %nanido,3:goto *tutigumo_start
lsp 700,":a;chara\tutigumo_st02.bmp",-20,0
bg "bg\bg092.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *tutigumo_h



;-----???????-----



*zukan_alakneload

mov $zname,"Arachne Lord "
mov $zlavel,"alakneload"
itoa2 $zukan_ko,%2677
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2849=0 mov %hscene1,0
if %2849>0 mov %hscene1,1
if %2850=0 mov %hscene2,0
if %2850>0 mov %hscene2,1
if %2677=0 mov %zukancg,0
if %2677>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"59"
mov $zukan_hp,"20000"
mov $zukan_skill1,"Arachne Fellatio "
mov %zukan_skillc1,3954
mov $zukan_skill2,"Arachne Bust "
mov %zukan_skillc2,3955
mov $zukan_skill3,"Arachne Spinneret "
mov %zukan_skillc3,3956
mov $zukan_skill4,"Arachne Dibble "
mov %zukan_skillc4,3957
mov $zukan_skill5,"Arachne Ruin "
mov %zukan_skillc5,3958
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_alakneload_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\arachnelord.jpg",400,0	
goto *zukan_kihonbtn



*zukan_alakneload_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\alakneload_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\alakneload_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\alakneload_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\alakneload_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\alakneload_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\alakneload_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\alakneload_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_alakneload_cg

lsp 500,":c;bg\bg092.bmp",0,0
lsp 430,":a;chara\alakneload_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alakneload_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alakneload_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alakneload_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alakneload_ha5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alakneload_ha6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alakneload_ha7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alakneload_ha8.bmp",0,0
print 10,500:lrclick
if %2849=0 skip 17
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alakneload_hc1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alakneload_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alakneload_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alakneload_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alakneload_ct04.bmp",0,0
lsp 430,":a;chara\alakneload_hc2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alakneload_hc3.bmp",0,0
print 10,500:lrclick
if %2850=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\alakneload_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alakneload_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alakneload_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alakneload_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alakneload_hb5.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_alakneload_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,75
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *alakneload_start
if %bwait=211 mov %nanido,2:goto *alakneload_start
if %bwait=212 mov %nanido,3:goto *alakneload_start
if %bwait=213 lsp 700,":a;chara\alakneload_st02.bmp",0,0
if %bwait=214 lsp 700,":a;chara\alakneload_ha8.bmp",0,0
bg "bg\bg092.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *alakneload_ha
if %bwait=214 goto *alakneload_hb



;-----?????-----



*zukan_kumonomiko

mov $zname,"Spider Princess "
mov $zlavel,"kumonomiko"
itoa2 $zukan_ko,%2679
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2679=0 mov %hscene1,0
if %2679>0 mov %hscene1,1
if %2679=0 mov %zukancg,0
if %2679>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"75"
mov $zukan_hp,"23000"
mov $zukan_skill1,"Arachne Thread "
mov %zukan_skillc1,3959
mov $zukan_skill2,"Ecstasy Blow "
mov %zukan_skillc2,3960
mov $zukan_skill3,"Poison Breasts "
mov %zukan_skillc3,3961
mov $zukan_skill4,"Rust Thread "
mov %zukan_skillc4,3962
mov $zukan_skill5,"Arachne Repro "
mov %zukan_skillc5,3963
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_kumonomiko_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\kumomiko.jpg",400,0	
goto *zukan_kihonbtn



*zukan_kumonomiko_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\kumonomiko_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\kumonomiko_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\kumonomiko_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\kumonomiko_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\kumonomiko_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\kumonomiko_st13.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\kumonomiko_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\kumonomiko_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\kumonomiko_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\kumonomiko_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\kumonomiko_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_kumonomiko_cg

lsp 500,":c;bg\bg092.bmp",0,0
lsp 430,":a;chara\kumonomiko_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kumonomiko_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kumonomiko_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kumonomiko_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kumonomiko_ha5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kumonomiko_ha6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kumonomiko_ha7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kumonomiko_ha8.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kumonomiko_hb01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kumonomiko_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kumonomiko_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kumonomiko_ct03.bmp",0,0
lsp 430,":a;chara\kumonomiko_hb02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kumonomiko_ct04.bmp",0,0
lsp 430,":a;chara\kumonomiko_hb03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kumonomiko_ct05.bmp",0,0
lsp 430,":a;chara\kumonomiko_hb04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kumonomiko_ct06.bmp",0,0
lsp 430,":a;chara\kumonomiko_hb05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kumonomiko_ct07.bmp",0,0
lsp 430,":a;chara\kumonomiko_hb06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\kumonomiko_ct08.bmp",0,0
lsp 430,":a;chara\kumonomiko_hb07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\kumonomiko_hb08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kumonomiko_hb09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kumonomiko_hb10.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_kumonomiko_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,75
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *kumonomiko_start
if %bwait=211 mov %nanido,2:goto *kumonomiko_start
if %bwait=212 mov %nanido,3:goto *kumonomiko_start
lsp 700,":a;chara\kumonomiko_st02.bmp",0,0
bg "bg\bg092.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *kumonomiko_h



;-----??????-----



*zukan_narcubus

mov $zname,"Naccubus "
mov $zlavel,"narcubus"
itoa2 $zukan_ko,%2699
mov %zukan_facenum,4
mov %zukan_posenum,2
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2699=0 mov %hscene1,0
if %2699>0 mov %hscene1,1
if %2699=0 mov %zukancg,0
if %2699>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"53"
mov $zukan_hp,"19000"
mov $zukan_skill1,"Erection Check "
mov %zukan_skillc1,3964
mov $zukan_skill2,"Oral Penis Examination "
mov %zukan_skillc2,3965
mov $zukan_skill3,"Stepping Reaction Check "
mov %zukan_skillc3,3966
mov $zukan_skill4,"Tail Extraction Method "
mov %zukan_skillc4,3967
mov $zukan_skill5,"Syringe Extraction Method "
mov %zukan_skillc5,3968
mov $zukan_skill6,"Vaginal Male Examination Method A "
mov %zukan_skillc6,3969
mov $zukan_skill7,"Vaginal Male Examination Method B "
mov %zukan_skillc7,3970
mov $zukan_skill8,"Tail Semen Ejection Test "
mov %zukan_skillc8,4135
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_narcubus_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\naccubus.jpg",400,0	
goto *zukan_kihonbtn



*zukan_narcubus_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\narcubus_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\narcubus_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\narcubus_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\narcubus_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\narcubus_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\narcubus_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\narcubus_st13.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\narcubus_st14.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\narcubus_bk01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum1=1 lsp 441,":a;chara\narcubus_bk11.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\narcubus_bk02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum2=1 lsp 442,":a;chara\narcubus_bk12.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\narcubus_bk03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum3=1 lsp 443,":a;chara\narcubus_bk13.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\narcubus_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\narcubus_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\narcubus_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
return



*zukan_narcubus_cg

lsp 500,":c;bg\bg103.bmp",0,0
lsp 430,":a;chara\narcubus_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\narcubus_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\narcubus_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\narcubus_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\narcubus_hc1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\narcubus_hc2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\narcubus_hc3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\narcubus_hc4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\narcubus_hc5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\narcubus_hc6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\narcubus_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\narcubus_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\narcubus_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\narcubus_hd1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\narcubus_hd2.bmp",0,0
lsp 420,":a;chara\narcubus_bk07.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_narcubus_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,76
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *narcubus_start
if %bwait=211 mov %nanido,2:goto *narcubus_start
if %bwait=212 mov %nanido,3:goto *narcubus_start
lsp 700,":a;chara\narcubus_st02.bmp",0,0
bg "bg\bg103.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *narcubus_h



;-----???(2)-----



*zukan_inps

mov $zname,"Imp (2) "
mov $zlavel,"inps"
itoa2 $zukan_ko,%2698
mov %zukan_facenum,4
mov %zukan_posenum,3
mov %zukan_cumnum,6
mov %zukan_battlenum,2
mov %zukan_hscenenum,2
if %2841=0 mov %hscene1,0
if %2841>0 mov %hscene1,1
if %2842=0 mov %hscene2,0
if %2842>0 mov %hscene2,1
if %2698=0 mov %zukancg,0
if %2698>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"4"
mov $zukan_hp,"50"
mov $zukan_skill1,"Imp Handjob "
mov %zukan_skillc1,4129
mov $zukan_skill2,"Imp Blowjob "
mov %zukan_skillc2,4130
mov $zukan_skill3,"Imp Paizuri "
mov %zukan_skillc3,4131
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_inps_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\imp2.jpg",400,0	
goto *zukan_kihonbtn



*zukan_inps_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose>1 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose>1 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\inp_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\inp_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\inp_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\inp_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\inp_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\inp_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\inp_st13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\inp_st21.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\inp_st22.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\inp_st23.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\inp_bk01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum1=1 lsp 441,":a;chara\inp_bk11.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum1=1 lsp 441,":a;chara\inp_bk21.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\inp_bk02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum2=1 lsp 442,":a;chara\inp_bk12.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum2=1 lsp 442,":a;chara\inp_bk22.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\inp_bk03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum3=1 lsp 443,":a;chara\inp_bk13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum3=1 lsp 443,":a;chara\inp_bk23.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose=1 && %zukan_cum4=1 lsp 444,":a;chara\inp_bk04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum4=1 lsp 444,":a;chara\inp_bk14.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum4=1 lsp 444,":a;chara\inp_bk24.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=1 && %zukan_cum5=1 lsp 445,":a;chara\inp_bk05.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum5=1 lsp 445,":a;chara\inp_bk15.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum5=1 lsp 445,":a;chara\inp_bk25.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_pose=1 && %zukan_cum6=1 lsp 446,":a;chara\inp_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
return



*zukan_inps_cg

lsp 500,":c;bg\bg103.bmp",0,0
lsp 430,":a;chara\inp_st02.bmp",0,0
lsp 431,":a;chara\inp_st12.bmp",-250,0
lsp 432,":a;chara\inp_st22.bmp",280,0
lsp 420,":a;chara\inp_ct21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\inp_ct22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 432
lsp 420,":a;chara\inp_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\inp_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 431
lsp 420,":a;chara\inp_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\inp_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
if %2841=0 skip 13
lsp 430,":a;chara\inp_he1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_he2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_he3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_he4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_he5.bmp",0,0
print 10,500:lrclick
if %2842=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_hf1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_hf2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_hf3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\inp_hf4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_inps_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,76
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,4
mov %item01,10
mov $name,"Imp "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *inps_start
if %bwait=211 mov %nanido,2:goto *inps_start
if %bwait=212 mov %nanido,3:goto *inps_start
if %bwait=213 lsp 700,":a;chara\inp_st01.bmp",0,0
if %bwait=214 lsp 698,":a;chara\inp_st01.bmp",0,0
if %bwait=214 lsp 699,":a;chara\inp_st11.bmp",-250,0
if %bwait=214 lsp 700,":a;chara\inp_st21.bmp",280,0
bg "bg\bg103.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *inps_ha
if %bwait=214 goto *inps_hb



;-----???-----



*zukan_eva

mov $zname,"Eva "
mov $zlavel,"eva"
itoa2 $zukan_ko,%2700
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,9
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2700=0 mov %hscene1,0
if %2700>0 mov %hscene1,1
if %2700=0 mov %zukancg,0
if %2700>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"68"
mov $zukan_hp,"20000"
mov $zukan_skill1,"Succubus Handjob "
mov %zukan_skillc1,3971
mov $zukan_skill2,"Succubus Tit Fuck "
mov %zukan_skillc2,3972
mov $zukan_skill3,"Succubus Blowjob "
mov %zukan_skillc3,3973
mov $zukan_skill4,"Succubus Footjob "
mov %zukan_skillc4,3974
mov $zukan_skill5,"Succubus Armpit "
mov %zukan_skillc5,3975
mov $zukan_skill6,"Succubus Intercrural "
mov %zukan_skillc6,3976
mov $zukan_skill7,"Succubus Hip Swing "
mov %zukan_skillc7,3977
mov $zukan_skill8,"Energy Drain "
mov %zukan_skillc8,3978
mov $zukan_skill9,"Succubus Ass Press "
mov %zukan_skillc9,3979
mov $zukan_skill10,"Tail Drain "
mov %zukan_skillc10,3980
mov $zukan_skill11,"Succubus Facesitting Milking "
mov %zukan_skillc11,3981
mov $zukan_skill12,"Succubus Facesitting Sucking "
mov %zukan_skillc12,3982
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_eva_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\eva.jpg",400,0	
goto *zukan_kihonbtn



*zukan_eva_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\eva_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\eva_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\eva_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\eva_st11.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\eva_bk01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum1=1 lsp 441,":a;chara\eva_bk11.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\eva_bk02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum2=1 lsp 442,":a;chara\eva_bk12.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\eva_bk03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum3=1 lsp 443,":a;chara\eva_bk13.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose=1 && %zukan_cum4=1 lsp 444,":a;chara\eva_bk04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum4=1 lsp 444,":a;chara\eva_bk14.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=1 && %zukan_cum5=1 lsp 445,":a;chara\eva_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_pose=1 && %zukan_cum6=1 lsp 446,":a;chara\eva_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_pose=1 && %zukan_cum7=1 lsp 447,":a;chara\eva_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
if %zukan_pose=1 && %zukan_cum8=1 lsp 448,":a;chara\eva_bk08.bmp",%zukan_x0,0
if %zukan_cum8=0 csp 448
if %zukan_pose=1 && %zukan_cum9=1 lsp 449,":a;chara\eva_bk09.bmp",%zukan_x0,0
if %zukan_cum9=0 csp 449
return



*zukan_eva_cg

lsp 500,":c;bg\bg106.bmp",0,0
lsp 430,":a;chara\eva_st02.bmp",0,0
lsp 420,":a;chara\eva_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\eva_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\eva_ct03.bmp",0,0

print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\eva_ct04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\eva_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\eva_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\eva_ct13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\eva_ct14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\eva_ct21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\eva_ct22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\eva_ct23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\eva_ct24.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\eva_ct31.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\eva_ct32.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\eva_ct33.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\eva_ct34.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\eva_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eva_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eva_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eva_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eva_ha5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eva_ha6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eva_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eva_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eva_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eva_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eva_hb5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eva_hb6.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_eva_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,76
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *eva_start
if %bwait=211 mov %nanido,2:goto *eva_start
if %bwait=212 mov %nanido,3:goto *eva_start
lsp 700,":a;chara\eva_st02.bmp",0,0
bg "bg\bg106.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *eva_h



;-----????????-----



*zukan_trooperloid

mov $zname,"Trooperoid "
mov $zlavel,"trooperloid"
itoa2 $zukan_ko,%2685
mov %zukan_facenum,5
mov %zukan_posenum,2
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2685=0 mov %hscene1,0
if %2685>0 mov %hscene1,1
if %2685=0 mov %zukancg,0
if %2685>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"80"
mov $zukan_hp,"20000"
mov $zukan_skill1,"Exploitative Fellatio "
mov %zukan_skillc1,3985
mov $zukan_skill2,"Soft Breast Units "
mov %zukan_skillc2,3986
mov $zukan_skill3,"Vacuum Unit "
mov %zukan_skillc3,3987
mov $zukan_skill4,"Trooper Rape "
mov %zukan_skillc4,3988
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_trooperloid_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\trooperroid.jpg",400,0	
goto *zukan_kihonbtn



*zukan_trooperloid_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 && %zukan_face=5 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,4
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\trooperloid_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\trooperloid_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\trooperloid_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\trooperloid_st04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\trooperloid_st05.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\trooperloid_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\trooperloid_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\trooperloid_st13.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\trooperloid_st14.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\trooperloid_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\trooperloid_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\trooperloid_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\trooperloid_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\trooperloid_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\trooperloid_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\trooperloid_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
if %zukan_cum8=1 lsp 448,":a;chara\trooperloid_bk08.bmp",%zukan_x0,0
if %zukan_cum8=0 csp 448
return



*zukan_trooperloid_cg

lsp 500,":c;bg\bg122.bmp",0,0
lsp 430,":a;chara\trooperloid_st01.bmp",0,0
lsp 420,":a;chara\trooperloid_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\trooperloid_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel

lsp 420,":a;chara\trooperloid_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\trooperloid_ct21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\trooperloid_ct22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\trooperloid_ct23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\trooperloid_ct24.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\trooperloid_ct25.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\trooperloid_ct26.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":c;chara\trooperloid_ha01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha10.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha15.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha16.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha17.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha18.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha19.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha20.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha24.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha25.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha26.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha27.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha28.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha29.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha30.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha31.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha32.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha33.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha34.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha35.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha36.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha37.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha38.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_ha39.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_hb01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_hb02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\trooperloid_hb05.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_trooperloid_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,76
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *trooperloid_start
if %bwait=211 mov %nanido,2:goto *trooperloid_start
if %bwait=212 mov %nanido,3:goto *trooperloid_start
lsp 700,":a;chara\trooperloid_st02.bmp",0,0
bg "bg\bg122.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *trooperloid_h



;-----???????-----



*zukan_assassinloid

mov $zname,"Assassinroid "
mov $zlavel,"assassinloid"
itoa2 $zukan_ko,%2702
mov %zukan_facenum,3
mov %zukan_posenum,3
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2702=0 mov %hscene1,0
if %2702>0 mov %hscene1,1
if %2702=0 mov %zukancg,0
if %2702>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"88"
mov $zukan_hp,"25000"
mov $zukan_skill1,"Assassin's Hand "
mov %zukan_skillc1,4134
mov $zukan_skill2,"Assassin's Blowjob "
mov %zukan_skillc2,3989
mov $zukan_skill3,"Assassin's Bust "
mov %zukan_skillc3,3990
mov $zukan_skill4,"Assassin's Ass "
mov %zukan_skillc4,3991
mov $zukan_skill5,"Assassin's Foot "
mov %zukan_skillc5,3992
mov $zukan_skill6,"Second Genital Suck "
mov %zukan_skillc6,3993
mov $zukan_skill7,"First Genital Mating "
mov %zukan_skillc7,3994
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_assassinloid_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\assassinroid.jpg",400,0	
goto *zukan_kihonbtn



*zukan_assassinloid_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose<3 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose<3 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=3 && %zukan_face=5 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,6
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\assassinloid_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\assassinloid_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\assassinloid_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\assassinloid_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\assassinloid_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\assassinloid_st13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\assassinloid_st21.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\assassinloid_st22.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\assassinloid_st23.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;chara\assassinloid_st24.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=5 lsp 450,":a;chara\assassinloid_st25.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\assassinloid_bk01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum1=1 lsp 441,":a;chara\assassinloid_bk11.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\assassinloid_bk02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum2=1 lsp 442,":a;chara\assassinloid_bk12.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\assassinloid_bk03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum3=1 lsp 443,":a;chara\assassinloid_bk13.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose=1 && %zukan_cum4=1 lsp 444,":a;chara\assassinloid_bk04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum4=1 lsp 444,":a;chara\assassinloid_bk14.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=1 && %zukan_cum5=1 lsp 445,":a;chara\assassinloid_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_pose=1 && %zukan_cum6=1 lsp 446,":a;chara\assassinloid_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
return



*zukan_assassinloid_cg

lsp 500,":c;bg\bg122.bmp",0,0
lsp 430,":a;chara\assassinloid_st02.bmp",0,0
lsp 420,":a;chara\assassinloid_ct21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\assassinloid_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\assassinloid_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\assassinloid_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\assassinloid_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\assassinloid_ct13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\assassinloid_ct14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\assassinloid_st24.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\assassinloid_st25.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_st31.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_st32.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb10.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb15.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb16.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb17.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb18.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb19.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb20.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb24.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb25.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb26.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb27.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb28.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb29.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb30.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb31.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb32.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb33.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb34.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb35.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hb36.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hc21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hc22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\assassinloid_hc27.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_assassinloid_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,76
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *assassinloid_start
if %bwait=211 mov %nanido,2:goto *assassinloid_start
if %bwait=212 mov %nanido,3:goto *assassinloid_start
lsp 700,":a;chara\assassinloid_st02.bmp",0,0
bg "bg\bg122.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *assassinloid_h



;-----??????-----



*zukan_yomotu

mov $zname,"Yomotsu-Shikome "
mov $zlavel,"yomotu"
itoa2 $zukan_ko,%2703
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2703=0 mov %hscene1,0
if %2703>0 mov %hscene1,1
if %2703=0 mov %zukancg,0
if %2703>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"65"
mov $zukan_hp,"19000"
mov $zukan_skill1,"Lewd Hair Tighten "
mov %zukan_skillc1,3995
mov $zukan_skill2,"Lewd Hair Stroke "
mov %zukan_skillc2,3996
mov $zukan_skill3,"Lewd Hair Draining "
mov %zukan_skillc3,3997
mov $zukan_skill4,"3,000 Lewd Strands  "
mov %zukan_skillc4,3998
mov $zukan_skill5,"Lewd Hair Hell "
mov %zukan_skillc5,4128
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_yomotu_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\yomotsu.jpg",400,0	
goto *zukan_kihonbtn



*zukan_yomotu_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\yomotu_st01.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\yomotu_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\yomotu_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\yomotu_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\yomotu_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_yomotu_cg

lsp 500,":c;bg\bg115.bmp",0,0
lsp 430,":a;chara\yomotu_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yomotu_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\yomotu_h3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_yomotu_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,76
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *yomotu_start
if %bwait=211 mov %nanido,2:goto *yomotu_start
if %bwait=212 mov %nanido,3:goto *yomotu_start
lsp 700,":a;chara\yomotu_st01.bmp",0,0
bg "bg\bg115.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *yomotu_h



;-----???????-----



*zukan_wormiel

mov $zname,"Cherub Wormiel "
mov $zlavel,"wormiel"
itoa2 $zukan_ko,%2704
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2704=0 mov %hscene1,0
if %2704>0 mov %hscene1,1
if %2704=0 mov %zukancg,0
if %2704>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"140"
mov $zukan_hp,"23000"
mov $zukan_skill1,"Worm Surface "
mov %zukan_skillc1,4000
mov $zukan_skill2,"Worm Ceres "
mov %zukan_skillc2,4001
mov $zukan_skill3,"Prey Play "
mov %zukan_skillc3,4002
mov $zukan_skill4,"Lewd Tentacle Hell "
mov %zukan_skillc4,4003
mov $zukan_skill5,"Breast Wrapping "
mov %zukan_skillc5,4133
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_wormiel_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\wormiel.jpg",400,0	
goto *zukan_kihonbtn



*zukan_wormiel_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\wormiel_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\wormiel_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\wormiel_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\wormiel_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\wormiel_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\wormiel_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
return



*zukan_wormiel_cg

lsp 500,":c;bg\bg115.bmp",0,0
lsp 430,":a;chara\wormiel_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\wormiel_ct01.bmp",0,0
lsp 430,":a;chara\wormiel_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\wormiel_ct02.bmp",0,0
lsp 430,":a;chara\wormiel_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\wormiel_ct03.bmp",0,0
lsp 430,":a;chara\wormiel_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\wormiel_ct04.bmp",0,0
lsp 430,":a;chara\wormiel_hb5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\wormiel_hb6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\wormiel_ct05.bmp",0,0
lsp 430,":a;chara\wormiel_hb7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\wormiel_ct06.bmp",0,0
lsp 430,":a;chara\wormiel_hb8.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\wormiel_ha01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\wormiel_ha02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\wormiel_ha03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\wormiel_ha04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\wormiel_ha05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\wormiel_ha06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\wormiel_ha07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\wormiel_ha08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\wormiel_ha09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\wormiel_ha10.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_wormiel_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,76
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,4
mov %item01,10
mov $name,"Wormiel "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *wormiel_start
if %bwait=211 mov %nanido,2:goto *wormiel_start
if %bwait=212 mov %nanido,3:goto *wormiel_start
lsp 700,":a;chara\wormiel_st02.bmp",0,0
bg "bg\bg115.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *wormiel_h



;-----??????2-----



*zukan_undine2

mov $zname,"Undine (2) "
mov $zlavel,"undine2"
mov $zukan_ko,"None "
mov %zukan_facenum,4
mov %zukan_posenum,3
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"65"
mov $zukan_hp,"12000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_undine2_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\undine2.jpg",400,0	
goto *zukan_kihonbtn



*zukan_undine2_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=2 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\undine_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\undine_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\undine_st03.bmp",%zukan_x0,0
if %zukan_pose=2 lsp 450,":a;chara\undine_st11.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\undine_st21.bmp",%zukan_x0+226,144
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\undine_st22.bmp",%zukan_x0+226,144
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\undine_st23.bmp",%zukan_x0+226,144
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;chara\undine_st24.bmp",%zukan_x0+227,145
return



*zukan_undine2_cg

lsp 500,":c;bg\bg115.bmp",0,0
lsp 430,":a;chara\undine_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\undine_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\undine_ct12.bmp",0,0
lsp 430,":a;chara\undine_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\undine_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\undine_ct13.bmp",0,0
lsp 430,":a;chara\undine_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_undine2_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,76
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,0
mov %skill05,4
mov %item01,10
mov $name,"Undine "
gosub *setwindow_01
lsp 700,":a;chara\undine_st02.bmp",0,0
bg "bg\bg115.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *sean0382



*sean0382

name "Undine "
>First, I'll gently embrace you... @
>I'll make it feel good, so please give me a lot. \
name ""
name "Luka "
>W...Wait... Ah! \
name ""
mov %hseanwave,18:hseanwave
lsp 700,":a;chara\undine_hb1.bmp",0,0
lsp 690,":a;chara\undine_ct11.bmp",0,0:print 10,500
>Undine gently hugs me close to her, pressing my waist against her slime-like  body. @
>My already erect penis presses against the middle of her waist. \
>And with a sound like something dropping into a pool of water, my penis       starts to sink into her body. @
>My sensitive tip enters her, and is quickly surrounded by her thick, liquid   like body. \
name "Luka "
>Ah...Ahh... \
name ""
>The unique sensation brings out a quick moan from me. \
>It's like her vagina itself is made of slime. @
>A small hole opened up in her body, that reforms perfectly around my penis. \
>Just the tip of my penis is inside her, but I'm already enraptured by her     slime-like vagina. \
name "Undine "
>Does it feel like you're having sex with me? @
>I don't mind if you think of it as sex... \
>Think of it as thanks for giving me your semen. @
>I'll show you some love inside of me... \
name ""
>The thick liquid starts to flow around my tip. @
>Clinging to the neck and tip of my penis, it pulls at me as it swirls around. \
>I slip further inside her, as the thick liquid squeezes me from every side. @
>The incredible, ever changing sensations inside Undine seem to focus          especially hard on my tip. \
name "Luka "
>Ah... Uh... @
>Just the tip...! \
name ""
>Feeling too good to stop myself, I cry out. @
>With only just the tip inside her, it already feels so good... \
>Sometimes her thick body squeezes my tip, and at other times it loosens and   rubs against my back muscle... \
name "Luka "
>Hya...! @ >Ah! \
name ""
name "Undine "
>Most of your erogenous zones are in the tip... @
>But I'm just playing with you a little bit at the moment. \
>But please try to endure it, Luka. @
>I don't want to think you would come from just a little teasing... \
name ""
name "Luka "
>But... It feels so good... \
name ""
>As her teasing gets slightly more intense, my body twitches. @
>Undine's slime-like body is wriggling around my sensitive tip, easily         provoking reactions from me. \
>Hitting every one of my weak points, she's easily forcing unbearable pleasure into me. @
>I want to keep feeling her body flow around my tip... \
>The sweet sensations quickly corner me. @
>As the tantalizing pleasure takes over, the desire to release inside her      grows. \
name "Luka "
>Ahh... I'm going to come... \
name ""
name "Undine "
>...You're a man, please endure it. @
>Don't leak so quickly... \
name ""
name "Luka "
>Ahh... I can't do it... @
>Ahhh! \
name ""
>I try to hold on, but can't... @ >Relaxing my body, I let the explosion run      through me as I let go. \
gosub *syasei1
lsp 700,":a;chara\undine_hb2.bmp",0,0:print 10,500
lsp 690,":a;chara\undine_ct12.bmp",0,0:print 10,500
gosub *syasei2
name "Luka "
>Haa... I came... \
name ""
>After trying so hard to hold on, it feels almost like an accidental orgasm. @
>As I sigh in pleasure, a large amount of semen squirts into Undine's thick    body. \
>With her slime-like body still tightly squeezing my penis, the feeling of     release is amplified to an incredible degree. @
>But the weakness I feel is also far higher than a normal ejaculation, too. \
name "Luka "
>Ah... Ah... \
name ""
name "Undine "
>But I told you to hold on... @
>You didn't even last three minutes, you naughty boy. \
>Bad children need punishment. @
>I'll give your naughty little penis a nice scolding... \
name ""
name "Luka "
>W...Wait... @
>Ahh! \
name ""
mov %hseanwave,19:hseanwave
lsp 700,":a;chara\undine_hb3.bmp",0,0:print 10,500
>Her thick body suddenly gives way, letting me sink deeper into her. @
>Before now it was just my tip, but now I'm inside her all the way to my       root... \
>And awaiting me inside of her was an explosion of ecstasy. \
name "Luka "
>Hya...! @ >Hya! \
name ""
>The thick liquid inside of her suddenly gets denser as it squeezes me from    all sides. @
>Squirming and wriggling around, the thick liquid massages my penis inside     her. \
>All the while, her slime-like body continues flowing around my tip. @
>The incredible mixture of pleasure blasts away my thoughts all at once. \
name "Undine "
>Well? It's intense, isn't it? @
>Since this is your punishment, please let me hear that gasping voice of       yours... \
name ""
name "Luka "
>Ahh... Hyaa! \
name ""
>While Undine violates me, I finally scream out loud. \
>The vortex of slime inside of her flows around my penis, attacking every weak point I have. @
>Swirling around my tip like a mixer, pressing against my back muscle, gently  pressing against my urethral hole... \
>My body violently writhes around in her embrace, helpless to do anything but  drown in the sensations. \
name "Undine "
>...It's about time to finish this... @
>I'll tease your penis with everything I've got, so please come inside me... \
name ""
name "Luka "
>Ahh... Haa! \
name ""
>Following her statement, Undine's slime suddenly squeezes down far harder on  my tip. @
>Her thick liquid body rubs and massages my penis from underneath the neck of  my penis to my urethral opening. \
>Like a whirlpool around my penis, Undine moves to finish me off inside her. @
>Giving in to her finishing blow, my mind goes blank as my vision flashes      white. \
name "Luka "
>Ahhhh!!! \
name ""
gosub *syasei1
lsp 700,":a;chara\undine_hb4.bmp",0,0:print 10,500
lsp 690,":a;chara\undine_ct13.bmp",0,0:print 10,500
gosub *syasei2
>My penis pulses as I explode inside Undine, the sensation of release filling  my body. \
>Even though I only came twice, I feel completely powerless in her embrace. \
name "Luka "
>Ahh... \
name ""
name "Undine "
>That's the end of the punishment. @
>...And since you came so much, we killed two birds with one stone. \
>I loved your innocent reactions, too... \
name ""
name "Luka "
>Ah... \
name ""
mov %hseanwave,0:hseanwave
>I slowly fall asleep, nestled in Undine's arms... \
gosub *anten
>............ \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0


;-----???????4-----



*zukan_alice4

mov $zname,"Alice (4) "
mov $zlavel,"alice4"
mov $zukan_ko,"None "
mov %zukan_facenum,10
mov %zukan_posenum,2
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"145"
mov $zukan_hp,"32000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_alice4_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\alice4.jpg",400,0	
goto *zukan_kihonbtn



*zukan_alice4_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\alice_st71.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\alice_st72.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\alice_st73.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\alice_st74.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\alice_st75.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\alice_st76.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=7 lsp 450,":a;chara\alice_st77.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=8 lsp 450,":a;chara\alice_st79.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=9 lsp 450,":a;chara\alice_st81.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=10 lsp 450,":a;chara\alice_st82.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\alice_st92.bmp",%zukan_x0+250,150
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\alice_st93.bmp",%zukan_x0+250,115
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\alice_st94.bmp",%zukan_x0+225,200
return



*zukan_alice4_cg

lsp 500,":c;bg\bg195.bmp",0,0
lsp 430,":a;chara\alice_H10_1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_H10_2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_H10_3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_H10_4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_H10_5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_H10_6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_H10_7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_H10_8.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_H10_9.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_alice4_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,77
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
mov $name,"???????"
gosub *setwindow_01
lsp 700,":a;chara\alice_st72.bmp",0,0
bg "bg\bg195.bmp",10,1500
bgm"2Q\bgmfix\hutuu1.ogg"
if %bwait=213 goto *sean0383


*sean0383

name "Alice "
>But a bigger problem is whether this body of mine can still excite you... \
name ""
name "Luka "
>W...Wait... \
name ""
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
lsp 700,":a;chara\alice_H10_1.bmp",0,0:print 10,500
>Alice's tail slowly coils around my body. @
>The tightness is a little less than normal, but... \
name "Luka "
>Ah... \
name ""
>But the comfortable feeling of being wound up by her is the same as usual. @
>I quickly relax in her coil. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice10_01.ogg"
>It seems as though I can still use magic to weaken men I coil around with     this body. 
>And... \
if %con_hvoice=0 && %sinkouonoff=2 delay 9000-%autotime
name ""
dwavestop 13
>Alice's gaze moves downward. @
>My penis is already slowly getting erect in her coil. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice10_02.ogg"
>Hehe... Your penis is already getting big, I see. 
>Even with this body of mine, it doesn't look like you can suppress your       lust... \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
name ""
dwavestop 13
>Laughing and grinning, Alice reaches toward her own vagina. @
>And using her fingers, spreads open a tiny hole. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice10_03.ogg"
>Hoora, what do you think about this tiny pussy? 
>It's surely small, and tight... \
if %con_hvoice=0 && %sinkouonoff=2 delay 11000-%autotime
name ""
dwavestop 13
name "Luka "
>T...That's... \
name ""
>Even though I'm acting hesitant, I can't take my eyes off her vagina. @
>It's bright pink, and so small... \
>Even if my thing isn't that huge, I'm still worried about being inside        something that tiny. \
name "Luka "
>Let's stop, Alice. @
>Not with that small body... \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice10_04.ogg"
>We won't know if we don't try. 
>It may be surprisingly good... \
if %con_hvoice=0 && %sinkouonoff=2 delay 7000-%autotime
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\alice10_05.ogg"
>Hehe... In truth, you're looking forward to it, right? @
>Just what would this tiny pussy feel like? \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
name ""
dwavestop 13
>Alice pushes her waist against mine with a fearless laugh. @
>The tip of my erect penis is barely touching the entrance to her tiny hole. \
>But she stops just a hair away from me actually going inside her. \
name "Luka "
>Ah... \
name ""
>Her hot, tiny vaginal opening... @
>The bright pink flesh is just barely brushing against my tip. \
>Just the slight touch of her wetness is enough to make me want more. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice10_06.ogg"
>Then, here we go... 
>I'll ravish you with this tiny pussy... \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
name ""
dwavestop 13
lsp 700,":a;chara\alice_H10_2.bmp",0,0:print 10,500
>With that, Alice presses against me, forcing my penis into her in one push. \
name "Luka "
>Ahhh! \
name ""
mov %hseanwave,2:hseanwave
>The tip of my penis pushes apart her small entrance, forcibly opening her as  I'm brought deep inside. \
>The intense tightness inside her makes it feel like her vagina is holding me  in a firm grip, intense pressure attacking my penis from every side. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice10_07.ogg"
>Hehe... Well? How does my tiny pussy feel? 
>Judging by your unsightly face, it's quite good... \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
name ""
dwavestop 13
name "Luka "
>Ahh... You're so tight... \
name ""
>I'm overwhelmed by how tight she is. \
>The pressure is far different than when I was in Alice before. @
>Her vaginal walls feel a little stiffer, the folds more rigid. \
>Those folds rub hard against my glans inside her, the unique tightness        something I've never felt before. \
name "Luka "
>Ahhh! @ 
>I'm going to come... \
name ""
>The numb feeling of a rising orgasm starts to bubble up from my lower body. \
>Feeling Alice's folds rub against my penis inside her tight vagina is getting to be too much to take. @
>The surprising stimulation inside her so quickly brought me to a climax... \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice10_08.ogg"
>Nnn...? Are you possibly already surrendering? \
if %con_hvoice=0 && %sinkouonoff=2 delay 6000-%autotime
name ""
dwavestop 13
name "Luka "
>Ahhh... \
name ""
gosub *syasei1
lsp 700,":a;chara\alice_H10_3.bmp",0,0
gosub *syasei2
>My penis pulses inside her tiny vagina, spurting out semen inside Alice. \
name "Luka "
>Ahhh... \
name ""
>My body goes limp as I come inside her tight insides, the weakness from it    washing over me in a blissful wave. \
lsp 700,":a;chara\alice_H10_4.bmp",0,0:print 10,500
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice10_09.ogg"
>Why... So even my tiny pussy will finish you off in an instant. 
>Such a shameful penis... Hehe. \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
name ""
dwavestop 13
>A wide smile of superiority crosses Alice's face as I come inside her. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice10_10.ogg"
>I'm not satisfied at all with that. 
lsp 700,":a;chara\alice_H10_5.bmp",0,0:print 10,500
>Hoora, I'm going to torment you some more! \
if %con_hvoice=0 && %sinkouonoff=2 delay 10000-%autotime
name ""
dwavestop 13
name "Luka "
>W...Wait...! @
>Ahh! \
name ""
mov %hseanwave,8:hseanwave
>Alice starts to slightly wiggle her waist, with my penis still firmly locked  inside her. @
>My penis rubs against her soft vaginal walls with each small movement she     makes. \
>As she moves, she slowly pulls her waist back, pulling me out of her. @
>Then pushing back forward, she brings me back into her tight insides. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice10_11.ogg"
>Horehore... How about this? \
if %con_hvoice=0 && %sinkouonoff=2 delay 4000-%autotime
name ""
dwavestop 13
>Alice shakes her waist quickly to the right and left, causing her firm folds  to rub against my glans. \
>Even though I just ejaculated, the desire to release again slowly builds. @
>After a while, my own waist is shaking back and forth as the orgasm nears. \
name "Luka "
>Ahh... I'm going to come again... \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice10_12.ogg"
>What, already complaining? 
>Well then, go ahead and come inside me! \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
name ""
dwavestop 13
>Clenching with all her strength, Alice squeezes down hard with her tiny       vagina! @
>In response, I cry out and instantly lose all resistance against the rising   climax. \
name "Luka "
>Ahhh! \
name ""
gosub *syasei1
lsp 700,":a;chara\alice_H10_6.bmp",0,0
gosub *syasei2
>I explode inside her, completely giving in to her finishing blow. @
>My penis pulses as I spurt shot after shot of semen into her tiny body. \
name "Luka "
>Ahhh... \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice10_13.ogg"
>Sheesh, already exhausted? 
if %con_hvoice=0 && %sinkouonoff=2 delay 4000-%autotime
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\alice10_14.ogg"
>To not even be a match for my tiny pussy... 
>You really are miserable. \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
name ""
dwavestop 13
lsp 700,":a;chara\alice_H10_7.bmp",0,0:print 10,500
>Alice looks me in the eyes as she teases me, and starts moving her waist      again. @
>Unlike her aggressive movements from before, the gentle movements are more    seductive. \
name "Luka "
>Ahh! \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice10_15.ogg"
>Hehehe... I've figured out the skill of tightening it. 
>Hoora... I'll use my tiny pussy to squeeze it out from your roots! \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
name ""
dwavestop 13
>Her soft flesh suddenly contracts even more than before, pressing down on my  penis to an extreme amount. \
>Unlike her piston movements from before, she's using this incredible          squeezing technique to just toy with me. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice10_16.ogg"
>Horehore, I'll sloooowly move my insides.
>If I do that, you won't stand a chance, will you? \
if %con_hvoice=0 && %sinkouonoff=2 delay 11000-%autotime
name ""
dwavestop 13
name "Luka "
>Hyaa! \
name ""
>Still squeezing me to the maximum, her vaginal walls suddenly start to move. @
>Squirming around like they had a life of their own, her soft flesh massages   my penis from root to tip. \
>Overcome by the pleasure, I stop trying any sort of resistance. @
>Relaxing my body, I entrust myself to the ecstasy flowing through me. \
name "Luka "
>Haa... That feels so good... \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice10_17.ogg"
>Hehehe... It looks like your penis can't beat my tiny pussy. \
if %con_hvoice=0 && %sinkouonoff=2 delay 7000-%autotime
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\alice10_18.ogg"
>Hoore, I'm going to finish you all at once. 
>Now offer up your semen to my pussy! \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
name ""
dwavestop 13
>Alice tenses her insides, squeezing down on just the tip of my penis. @
>The teasing stimulation sends me over the edge all at once. \
name "Luka "
>Ah... Ah...! \
name ""
gosub *syasei1
lsp 700,":a;chara\alice_H10_8.bmp",0,0
gosub *syasei2
>And in the next moment, I explode inside her again. @
>Alice is completely in control of my orgasms... \
lsp 700,":a;chara\alice_H10_9.bmp",0,0:print 10,500
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice10_19.ogg"
>Hehe... It seems like you enjoy the taste of my tiny pussy. 
>Are you that happy at being able to be squeezed in here? \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
name ""
dwavestop 13
>As Alice teases me with her words, she squeezes and loosens her vagina, as if playing with my penis. @
>Reacting to the stimulation, my waist shakes and twitches with each rhythmic  squeeze. \
name "Luka "
>Ahh... @
>That's... Enough... \
name ""
>Left incredibly weak after my repeated ejaculations, I beg Alice to stop. @
>But she isn't choosing to listen to me. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice10_20.ogg"
>Hoore, your favorite is when your tip is squeezed, isn't it? 
>Like this... Hehe. \
if %con_hvoice=0 && %sinkouonoff=2 delay 9000-%autotime
name ""
dwavestop 13
name "Luka "
>Ah... Ahh! \
name ""
>Deep inside of her tiny vagina, she squeezes down on just my tip... @
>And if she squeezes down on my sensitive tip like that, I can't stop          myself...! \
name "Luka "
>Ahhh! \
name ""
gosub *syasei1
lsp 700,":a;chara\alice_H10_8.bmp",0,0
gosub *syasei2
>Unable to stop it, I helplessly reach another orgasm. @
>My penis twitches inside her, squirting more semen into her narrow vagina. \
lsp 700,":a;chara\alice_H10_9.bmp",0,0:print 10,500
name "Luka "
>Ah... Uh... \
name ""
>Having been squeezed dry, I feel on the verge of passing out in her coil. \
mov %hseanwave,0:hseanwave
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice10_21.ogg"
>Sheesh... Going down here is pathetic. 
>Well, my belly did get a little filled... \
if %con_hvoice=0 && %sinkouonoff=2 delay 9000-%autotime
name ""
dwavestop 13
name "Luka "
>Ah...a... \
name ""
>Seeing Alice's satisfied look, I slowly drift into sleep in her coil. \
gosub *anten
>.............. \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0


;-----????????-----



*zukan_drainplant

mov $zname,"Drain Plant "
mov $zlavel,"drainplant"
itoa2 $zukan_ko,%2710
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,2
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2710=0 mov %hscene1,0
if %2710>0 mov %hscene1,1
if %2710=0 mov %zukancg,0
if %2710>0 mov %zukancg,1
mov %zukan_x1,0
mov %zukan_x2,200
mov $zukan_lv,"68"
mov $zukan_hp,"18000"
mov $zukan_skill1,"Plant Flirtation "
mov %zukan_skillc1,4004
mov $zukan_skill2,"Infinite Plant Fertilization "
mov %zukan_skillc2,4005
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_drainplant_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\drainplant.jpg",400,0	
goto *zukan_kihonbtn



*zukan_drainplant_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\drainplant_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\drainplant_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\drainplant_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\drainplant_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\drainplant_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
return



*zukan_drainplant_cg

lsp 500,":c;bg\bg197.bmp",0,0
lsp 430,":a;chara\drainplant_st11.bmp",200,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\drainplant_ct01.bmp",480,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\drainplant_ct02.bmp",480,0
lsp 430,":a;chara\drainplant_st12.bmp",200,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\drainplant_ct03.bmp",480,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\drainplant_ct04.bmp",480,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\drainplant_ct05.bmp",480,0
lsp 430,":a;chara\drainplant_st13.bmp",200,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_drainplant_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,77
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *drainplant_start
if %bwait=211 mov %nanido,2:goto *drainplant_start
if %bwait=212 mov %nanido,3:goto *drainplant_start
lsp 700,":a;chara\drainplant_st02.bmp",200,0
bg "bg\bg197.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *drainplant_h



;-----???????-----



*zukan_drainloid

mov $zname,"Drainroid "
mov $zlavel,"drainloid"
itoa2 $zukan_ko,%2711
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2711=0 mov %hscene1,0
if %2711>0 mov %hscene1,1
if %2711=0 mov %zukancg,0
if %2711>0 mov %zukancg,1
mov %zukan_x1,-150
mov %zukan_x2,0
mov $zukan_lv,"85"
mov $zukan_hp,"23000"
mov $zukan_skill1,"Handjob Arm "
mov %zukan_skillc1,4006
mov $zukan_skill2,"Semen Sucking Mouth Unit "
mov %zukan_skillc2,4007
mov $zukan_skill3,"Artificial Breast Units "
mov %zukan_skillc3,4008
mov $zukan_skill4,"Multiple Sucking Unit "
mov %zukan_skillc4,4009
mov $zukan_skill5,"Sex Simulation Unit "
mov %zukan_skillc5,4010
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_drainloid_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\drainroid.jpg",400,0	
goto *zukan_kihonbtn



*zukan_drainloid_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\drainloid_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\drainloid_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\drainloid_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\drainloid_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\drainloid_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\drainloid_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\drainloid_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\drainloid_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_drainloid_cg

lsp 500,":c;bg\bg199.bmp",0,0

lsp 430,":a;chara\drainloid_st02.bmp",0,0
lsp 420,":a;chara\drainloid_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\drainloid_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\drainloid_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\drainloid_st21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\drainloid_st22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\drainloid_st31.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\drainloid_st32.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\drainloid_st11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\drainloid_st23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\drainloid_st24.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\drainloid_st33.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\drainloid_st34.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha10.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha15.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha16.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha17.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha18.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha19.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha20.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha24.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha25.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha26.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha27.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha28.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha29.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha30.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha31.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha32.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha33.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha34.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha35.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha36.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha37.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha38.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha39.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\drainloid_ha40.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_drainloid_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,77
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *drainloid_start
if %bwait=211 mov %nanido,2:goto *drainloid_start
if %bwait=212 mov %nanido,3:goto *drainloid_start
bg black,10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *drainloid_h



;-----??????-----



*zukan_replicant

mov $zname,"Replicant "
mov $zlavel,"replicant"
itoa2 $zukan_ko,%2712
mov %zukan_facenum,2
mov %zukan_posenum,2
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2712=0 mov %hscene1,0
if %2712>0 mov %hscene1,1
if %2712=0 mov %zukancg,0
if %2712>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"88"
mov $zukan_hp,"20000"
mov $zukan_skill1,"Flats Chest "
mov %zukan_skillc1,4011
mov $zukan_skill2,"Enigma Tentacle "
mov %zukan_skillc2,4012
mov $zukan_skill3,"Tristram Hands "
mov %zukan_skillc3,4013
mov $zukan_skill4,"Predatory Mating "
mov %zukan_skillc4,4014
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_replicant_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\replicant.jpg",400,0	
goto *zukan_kihonbtn



*zukan_replicant_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\replicant_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\replicant_st02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\replicant_st11.bmp",%zukan_x0,0
if %zukan_face=1 && %zukan_cum1=1 lsp 441,":a;chara\replicant_bk01.bmp",%zukan_x0,0
if %zukan_face=2 && %zukan_cum1=1 lsp 441,":a;chara\replicant_bk11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum1=1 lsp 441,":a;chara\replicant_bk11.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\replicant_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\replicant_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\replicant_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return




*zukan_replicant_cg

lsp 500,":c;bg\bg199.bmp",0,0
lsp 430,":a;chara\replicant_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\replicant_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\replicant_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\replicant_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\replicant_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\replicant_h6.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_replicant_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,77
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *replicant_start
if %bwait=211 mov %nanido,2:goto *replicant_start
if %bwait=212 mov %nanido,3:goto *replicant_start
lsp 700,":a;chara\replicant_st02.bmp",0,0
bg "bg\bg199.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *replicant_h



;-----????-----



*zukan_laplace

mov $zname,"Laplace "
mov $zlavel,"laplace"
itoa2 $zukan_ko,%2713
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,8
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2713=0 mov %hscene1,0
if %2713>0 mov %hscene1,1
if %2713=0 mov %zukancg,0
if %2713>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"118"
mov $zukan_hp,"24000"
mov $zukan_skill1,"Laplace's Fingers "
mov %zukan_skillc1,4015
mov $zukan_skill2,"Three Lip Style "
mov %zukan_skillc2,4016
mov $zukan_skill3,"Ultrasmall Breast Units "
mov %zukan_skillc3,4017
mov $zukan_skill4,"S-Type Mellow Enema "
mov %zukan_skillc4,4018
mov $zukan_skill5,"L-Type Drain Hole "
mov %zukan_skillc5,4019
mov $zukan_skill6,"Artificial Pussy: LO-LI "
mov %zukan_skillc6,4020
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_laplace_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\laplace.jpg",400,0	
goto *zukan_kihonbtn



*zukan_laplace_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\laplace_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\laplace_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\laplace_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\laplace_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\laplace_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\laplace_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\laplace_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\laplace_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\laplace_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\laplace_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
if %zukan_cum8=1 lsp 448,":a;chara\laplace_bk08.bmp",%zukan_x0,0
if %zukan_cum8=0 csp 448
return



*zukan_laplace_cg

lsp 500,":c;bg\bg199.bmp",0,0
lsp 430,":a;chara\laplace_st02.bmp",0,0
lsp 420,":a;chara\laplace_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\laplace_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\laplace_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\laplace_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\laplace_ct21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\laplace_ct22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\laplace_ct31.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":c;chara\laplace_ha11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_ha12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_ha13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_ha14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb10.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb15.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb16.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb17.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb18.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb19.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb20.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb24.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb25.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb26.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\laplace_hb27.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_laplace_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,77
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *laplace_start
if %bwait=211 mov %nanido,2:goto *laplace_start
if %bwait=212 mov %nanido,3:goto *laplace_start
lsp 700,":a;chara\laplace_st02.bmp",0,0
bg "bg\bg199.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *laplace_h



;-----???AD-5-----



*zukan_AD5

mov $zname,"Experimental Organism AD-5 "
mov $zlavel,"AD5"
mov $zukan_ko,"None "
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"40"
mov $zukan_hp,"7000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_AD5_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\ad5.jpg",400,0	
goto *zukan_kihonbtn



*zukan_AD5_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\AD-5_st01.bmp",%zukan_x0,0
return



*zukan_AD5_cg

lsp 500,":c;bg\bg202.bmp",0,0
lsp 430,":a;chara\AD-5_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\AD-5_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\AD-5_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\AD-5_h4.bmp",0,0
lsp 420,":a;chara\AD-5_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\AD-5_h5.bmp",0,0
lsp 420,":a;chara\AD-5_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\AD-5_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\AD-5_ct04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_AD5_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,77
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
mov $name,"AD-5"
gosub *setwindow_01
bg "bg\bg201.bmp",10,1500
if %bwait=213 goto *sean0389a



;-----???????-----



*zukan_fermesara

mov $zname,"Ferme Sara "
mov $zlavel,"fermesara"
itoa2 $zukan_ko,%2705
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2705=0 mov %hscene1,0
if %2705>0 mov %hscene1,1
if %2705=0 mov %zukancg,0
if %2705>0 mov %zukancg,1
mov %zukan_x1,-180
mov %zukan_x2,0
mov $zukan_lv,"70"
mov $zukan_hp,"22000"
mov $zukan_skill1,"Gaia's Handjob "
mov %zukan_skillc1,4021
mov $zukan_skill2,"Judgement Fellatio "
mov %zukan_skillc2,4022
mov $zukan_skill3,"Isis's Lovemaking "
mov %zukan_skillc3,4023
mov $zukan_skill4,"Ancient Sexual Style: Burial "
mov %zukan_skillc4,4024
mov $zukan_skill5,"Ancient Sexual Style: Rape "
mov %zukan_skillc5,4025
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_fermesara_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\fermesara.jpg",400,0	
goto *zukan_kihonbtn



*zukan_fermesara_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\fermesara_st01.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\fermesara_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\fermesara_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\fermesara_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\fermesara_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_fermesara_cg

lsp 500,":c;bg\bg202.bmp",0,0
lsp 430,":a;chara\fermesara_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\fermesara_ct01.bmp",410,210
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\fermesara_ct02.bmp",410,210
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\fermesara_ct03.bmp",410,210
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\fermesara_ct11.bmp",0,210
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\fermesara_ct12.bmp",0,210
lsp 430,":a;chara\fermesara_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\fermesara_ct13.bmp",0,210
lsp 430,":a;chara\fermesara_h3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_fermesara_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,77
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *fermesara_start
if %bwait=211 mov %nanido,2:goto *fermesara_start
if %bwait=212 mov %nanido,3:goto *fermesara_start
lsp 700,":a;chara\fermesara_st01.bmp",0,0
bg "bg\bg202.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *fermesara_h



;-----????????-----



*zukan_angelghoul

mov $zname,"Angel Ghoul "
mov $zlavel,"angelghoul"
itoa2 $zukan_ko,%2706
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2706=0 mov %hscene1,0
if %2706>0 mov %hscene1,1
if %2706=0 mov %zukancg,0
if %2706>0 mov %zukancg,1
mov %zukan_x1,-180
mov %zukan_x2,0
mov $zukan_lv,"75"
mov $zukan_hp,"22000"
mov $zukan_skill1,"Fallen Hand "
mov %zukan_skillc1,4026
mov $zukan_skill2,"Hungry Mouth "
mov %zukan_skillc2,4027
mov $zukan_skill3,"Discarded Breasts "
mov %zukan_skillc3,4028
mov $zukan_skill4,"Roasting Hair "
mov %zukan_skillc4,4029
mov $zukan_skill5,"Concealing Ass "
mov %zukan_skillc5,4030
mov $zukan_skill6,"Immoral Necrophilia "
mov %zukan_skillc6,4031
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_angelghoul_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\angelghoul.jpg",400,0	
goto *zukan_kihonbtn



*zukan_angelghoul_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\angelghoul_st01.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\angelghoul_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\angelghoul_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\angelghoul_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\angelghoul_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\angelghoul_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\angelghoul_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
return



*zukan_angelghoul_cg

lsp 500,":c;bg\bg204.bmp",0,0
lsp 430,":a;chara\angelghoul_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\angelghoul_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\angelghoul_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\angelghoul_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\angelghoul_ct04.bmp",0,0
return "*zukan_"+$zlavel



*zukan_angelghoul_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,77
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *angelghoul_start
if %bwait=211 mov %nanido,2:goto *angelghoul_start
if %bwait=212 mov %nanido,3:goto *angelghoul_start
lsp 700,":a;chara\angelghoul_st01.bmp",0,0
bg "bg\bg204.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *angelghoul_h



;-----????????-----



*zukan_dragonzonbe

mov $zname,"Zombie Dragon Girl "
mov $zlavel,"dragonzonbe"
itoa2 $zukan_ko,%2707
mov %zukan_facenum,3
mov %zukan_posenum,3
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2707=0 mov %hscene1,0
if %2707>0 mov %hscene1,1
if %2707=0 mov %zukancg,0
if %2707>0 mov %zukancg,1
mov %zukan_x1,0
mov %zukan_x2,0
mov $zukan_lv,"87"
mov $zukan_hp,"24000"
mov $zukan_skill1,"Dead Dragon's Fellatio "
mov %zukan_skillc1,4032
mov $zukan_skill2,"Dead Dragon's Horny Chest "
mov %zukan_skillc2,4033
mov $zukan_skill3,"Dead Dragon's Sweet Bite "
mov %zukan_skillc3,4034
mov $zukan_skill4,"Male Lure: Hair "
mov %zukan_skillc4,4035
mov $zukan_skill5,"Male Lure: Chest "
mov %zukan_skillc5,4036
mov $zukan_skill6,"Male Lure: Double "
mov %zukan_skillc6,4037
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_dragonzonbe_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\dragonzombie.jpg",400,0	
goto *zukan_kihonbtn



*zukan_dragonzonbe_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\dragonzonbe_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\dragonzonbe_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\dragonzonbe_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\dragonzonbe_st11.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\dragonzonbe_st21.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\dragonzonbe_st22.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\dragonzonbe_st23.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\dragonzonbe_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\dragonzonbe_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose<3 && %zukan_cum3=1 lsp 443,":a;chara\dragonzonbe_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose=3 && %zukan_cum4=1 lsp 444,":a;chara\dragonzonbe_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=3 && %zukan_cum5=1 lsp 445,":a;chara\dragonzonbe_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_dragonzonbe_cg

lsp 500,":c;bg\bg205.bmp",0,0
lsp 430,":a;chara\dragonzonbe_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dragonzonbe_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\dragonzonbe_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\dragonzonbe_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\dragonzonbe_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\dragonzonbe_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\dragonzonbe_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_dragonzonbe_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,77
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *dragonzonbe_start
if %bwait=211 mov %nanido,2:goto *dragonzonbe_start
if %bwait=212 mov %nanido,3:goto *dragonzonbe_start
lsp 700,":a;chara\dragonzonbe_st02.bmp",0,0
bg "bg\bg205.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *dragonzonbe_h



;-----???...??...???1-----



*zukan_cirque1

mov $zname,"Cirque du Croix (1) "
mov $zlavel,"cirque1"
itoa2 $zukan_ko,%2730
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2730=0 mov %hscene1,0
if %2730>0 mov %hscene1,1
if %2730=0 mov %zukancg,0
if %2730>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"Average: 80 "
mov $zukan_hp,"Average: 25000 "
mov $zukan_skill1,"Elf Fellatio "
mov %zukan_skillc1,4038
mov $zukan_skill2,"Elf Paizuri "
mov %zukan_skillc2,4039
mov $zukan_skill3,"Elf Footjob "
mov %zukan_skillc3,4040
mov $zukan_skill4,"Ass Press "
mov %zukan_skillc4,4041
mov $zukan_skill5,"Harpy's Horny Mouth "
mov %zukan_skillc5,4042
mov $zukan_skill6,"Queen's Tit Fuck "
mov %zukan_skillc6,4043
mov $zukan_skill7,"Happiness Rondo "
mov %zukan_skillc7,4044
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_cirque1_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\cir1.jpg",400,0	
goto *zukan_kihonbtn



*zukan_cirque1_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=4 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,3
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\cirque_st41.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\cirque_st42.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\cirque_st43.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\cirque_st01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\cirque_st02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\cirque_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\cirque_bk41.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum1=1 lsp 441,":a;chara\cirque_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\cirque_bk42.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum2=1 lsp 442,":a;chara\cirque_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\cirque_bk43.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum3=1 lsp 443,":a;chara\cirque_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose=1 && %zukan_cum4=1 csp 444
if %zukan_pose=2 && %zukan_cum4=1 lsp 444,":a;chara\cirque_bk04.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 444
return



*zukan_cirque1_cg

lsp 500,":c;bg\bg206.bmp",0,0
lsp 420,":a;chara\cirque_ct41.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\cirque_ct42.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\cirque_ct43.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\cirque_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\cirque_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":c;chara\cirque_h01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h10.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h15.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h16.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h17.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h18.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_cirque1_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,77
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *cirque_start
if %bwait=211 mov %nanido,2:goto *cirque_start
if %bwait=212 mov %nanido,3:goto *cirque_start
lsp 700,":a;chara\cirque_st42.bmp",180,0
lsp 701,":a;chara\cirque_st02.bmp",-190,0
bg "bg\bg206.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *cirque_h



;-----???...??...???2-----



*zukan_cirque2

mov $zname,"Cirque du Croix (2) "
mov $zlavel,"cirque2"
itoa2 $zukan_ko,%2730
mov %zukan_facenum,4
mov %zukan_posenum,2
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2730=0 mov %hscene1,0
if %2730>0 mov %hscene1,1
if %2730=0 mov %zukancg,0
if %2730>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"Average: 80 "
mov $zukan_hp,"Average: 25000 "
mov $zukan_skill1,"Urethra Kiss "
mov %zukan_skillc1,4045
mov $zukan_skill2,"Fairy Hug "
mov %zukan_skillc2,4046
mov $zukan_skill3,"A Midsummer Night's Dream "
mov %zukan_skillc3,4047
mov $zukan_skill4,"Queen's Tentacle Caress "
mov %zukan_skillc4,4048
mov $zukan_skill5,"Queen's Tentacle Squeeze "
mov %zukan_skillc5,4049
mov $zukan_skill6,"Inferno de Scylla "
mov %zukan_skillc6,4050
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_cirque2_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\cir2.jpg",400,0	
goto *zukan_kihonbtn



*zukan_cirque2_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=2 && %zukan_face=5 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,4
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\cirque_st51.bmp",%zukan_x0-30,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\cirque_st52.bmp",%zukan_x0-30,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\cirque_st53.bmp",%zukan_x0-30,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\cirque_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\cirque_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\cirque_st13.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\cirque_st14.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\cirque_bk51.bmp",%zukan_x0-30,0
if %zukan_pose=2 && %zukan_cum1=1 lsp 441,":a;chara\cirque_bk11.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\cirque_bk52.bmp",%zukan_x0-30,0
if %zukan_pose=2 && %zukan_cum2=1 lsp 442,":a;chara\cirque_bk12.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\cirque_bk53.bmp",%zukan_x0-30,0
if %zukan_pose=2 && %zukan_cum3=1 lsp 443,":a;chara\cirque_bk13.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose=1 && %zukan_cum4=1 lsp 444,":a;chara\cirque_bk54.bmp",%zukan_x0-30,0
if %zukan_pose=2 && %zukan_cum4=1 csp 444
if %zukan_cum4=0 csp 444
return



*zukan_cirque2_cg

lsp 500,":c;bg\bg206.bmp",0,0
lsp 420,":a;chara\cirque_ct51.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\cirque_ct52.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\cirque_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\cirque_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":c;chara\cirque_h01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h10.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h15.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h16.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h17.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h18.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_cirque2_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,77
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *zukan_cirqueb2
if %bwait=211 mov %nanido,2:goto *zukan_cirqueb2
if %bwait=212 mov %nanido,3:goto *zukan_cirqueb2
lsp 700,":a;chara\cirque_st51.bmp",-160,0
lsp 701,":a;chara\cirque_st12.bmp",180,0
bg "bg\bg206.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *cirque_h



;-----???...??...???3-----



*zukan_cirque3

mov $zname,"Cirque du Croix (3) "
mov $zlavel,"cirque3"
itoa2 $zukan_ko,%2730
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2730=0 mov %hscene1,0
if %2730>0 mov %hscene1,1
if %2730=0 mov %zukancg,0
if %2730>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"Average: 80 "
mov $zukan_hp,"Average: 25000 "
mov $zukan_skill1,"Roza's Hands "
mov %zukan_skillc1,4051
mov $zukan_skill2,"Roza's Blowjob "
mov %zukan_skillc2,4052
mov $zukan_skill3,"Roza's Firetta "
mov %zukan_skillc3,4053
mov $zukan_skill4,"Roza's Breasts "
mov %zukan_skillc4,4054
mov $zukan_skill5,"Snake Hands "
mov %zukan_skillc5,4055
mov $zukan_skill6,"Snake Mouth "
mov %zukan_skillc6,4056
mov $zukan_skill7,"Snake Bust "
mov %zukan_skillc7,4057
mov $zukan_skill8,"Snake End "
mov %zukan_skillc8,4058
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_cirque3_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\cir3.jpg",400,0	
goto *zukan_kihonbtn



*zukan_cirque3_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=4 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,3
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\cirque_st31.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\cirque_st32.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\cirque_st33.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\cirque_st21.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\cirque_st22.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\cirque_st23.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\cirque_bk31.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum1=1 lsp 441,":a;chara\cirque_bk21.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\cirque_bk32.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum2=1 lsp 442,":a;chara\cirque_bk22.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\cirque_bk33.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum3=1 lsp 443,":a;chara\cirque_bk23.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose=1 && %zukan_cum4=1 lsp 444,":a;chara\cirque_bk34.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum4=1 csp 444
if %zukan_cum4=0 csp 444
return



*zukan_cirque3_cg

lsp 500,":c;bg\bg206.bmp",0,0
lsp 420,":a;chara\cirque_ct31.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\cirque_ct32.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\cirque_ct21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\cirque_ct22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":c;chara\cirque_h01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h10.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h15.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h16.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h17.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\cirque_h18.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_cirque3_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,77
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *zukan_cirqueb3
if %bwait=211 mov %nanido,2:goto *zukan_cirqueb3
if %bwait=212 mov %nanido,3:goto *zukan_cirqueb3
lsp 700,":a;chara\cirque_st32.bmp",180,0
lsp 699,":a;chara\cirque_st22.bmp",-220,0
bg "bg\bg206.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *cirque_h



;-----???????15?-----



*zukan_alice15th

mov $zname,"Alipheese the Fifteenth "
mov $zlavel,"alice15th"
itoa2 $zukan_ko,%2731
mov %zukan_facenum,3
mov %zukan_posenum,5
mov %zukan_cumnum,6
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2731=0 mov %hscene1,0
if %2731>0 mov %hscene1,1
if %2731=0 mov %zukancg,0
if %2731>0 mov %zukancg,1
mov %zukan_x1,-400
mov %zukan_x2,0
mov $zukan_lv,"150"
mov $zukan_hp,"40000"
mov $zukan_skill1,"Embracing Hand "
mov %zukan_skillc1,4059
mov $zukan_skill2,"Greedy Lips "
mov %zukan_skillc2,4060
mov $zukan_skill3,"Royal Breasts "
mov %zukan_skillc3,4061
mov $zukan_skill4,"Demento Nagi "
mov %zukan_skillc4,4062
mov $zukan_skill5,"Nephilim Magia "
mov %zukan_skillc5,4063
mov $zukan_skill6,"Nephilim End "
mov %zukan_skillc6,4064
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_alice15th_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\alice15.jpg",400,0	
goto *zukan_kihonbtn



*zukan_alice15th_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose<4 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose<4 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=4 mov %zukan_face,1
if %zukan_pose=5 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=5 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\alice15th_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\alice15th_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\alice15th_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\alice15th_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\alice15th_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\alice15th_st13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\alice15th_st21.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\alice15th_st22.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\alice15th_st23.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\alice15th_st31b.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=1 lsp 450,":a;chara\alice15th_st41.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=2 lsp 450,":a;chara\alice15th_st42.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=3 lsp 450,":a;chara\alice15th_st43.bmp",%zukan_x0,0
if %zukan_pose<4 && %zukan_cum1=1 lsp 441,":a;chara\alice15th_bk01.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_cum1=1 lsp 441,":a;chara\alice15th_bk31.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose<4 && %zukan_cum2=1 lsp 442,":a;chara\alice15th_bk02.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_cum2=1 lsp 442,":a;chara\alice15th_bk32.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose<4 && %zukan_cum3=1 lsp 443,":a;chara\alice15th_bk03.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_cum3=1 lsp 443,":a;chara\alice15th_bk33.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose<4 && %zukan_cum4=1 lsp 444,":a;chara\alice15th_bk04.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_cum4=1 lsp 444,":a;chara\alice15th_bk34.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose=3 && %zukan_cum5=1 lsp 445,":a;chara\alice15th_bk05.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_cum5=1 lsp 445,":a;chara\alice15th_bk35.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_pose<4 && %zukan_cum6=1 lsp 446,":a;chara\alice15th_bk06.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_cum6=1 lsp 446,":a;chara\alice15th_bk36.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
return



*zukan_alice15th_cg

lsp 500,":c;bg\bg206.bmp",0,0
lsp 430,":c;chara\alice15th_ha01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\alice15th_ha02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\alice15th_ha03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\alice15th_ha04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\alice15th_ha05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\alice15th_ha06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\alice15th_ha07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\alice15th_ha08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\alice15th_ha09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\alice15th_ha10.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\alice15th_hc0.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\alice15th_hc1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\alice15th_hc2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\alice15th_hc3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\alice15th_hc4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_alice15th_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,78
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *alice15th_start
if %bwait=211 mov %nanido,2:goto *alice15th_start
if %bwait=212 mov %nanido,3:goto *alice15th_start
lsp 700,":a;chara\alice15th_st01.bmp",0,0
bg "bg\bg206.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *alice15th_h



;-----???-----



*zukan_shirom

mov $zname,"La Croix "
mov $zlavel,"shirom"
itoa2 $zukan_ko,%2709
mov %zukan_facenum,4
mov %zukan_posenum,8
mov %zukan_cumnum,3
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2709=0 mov %hscene1,0
if %2709>0 mov %hscene1,1
if %2709=0 mov %zukancg,0
if %2709>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"122"
mov $zukan_hp,"24000"
mov $zukan_skill1,"Necrophase "
mov %zukan_skillc1,4065
mov $zukan_skill2,"Necroreim "
mov %zukan_skillc2,4066
mov $zukan_skill3,"Necrofaun "
mov %zukan_skillc3,4067
mov $zukan_skill4,"La Croix's Mod "
mov %zukan_skillc4,4068
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_shirom_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\lacroix.jpg",400,0	
goto *zukan_kihonbtn



*zukan_shirom_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=5 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,4
if %zukan_pose=2 && %zukan_face=5 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,4
if %zukan_pose=3 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=4 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=5 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=5 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=6 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=6 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=7 mov %zukan_face,1
if %zukan_pose=8 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=8 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\shirom_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\shirom_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\shirom_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\shirom_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\shirom_st05.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\shirom_st06.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\shirom_st07.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\shirom_st08.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\shirom_st11.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\shirom_st12.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\shirom_st21.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\shirom_st22.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=1 lsp 450,":a;chara\shirom_st31.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=2 lsp 450,":a;chara\shirom_st32.bmp",%zukan_x0,0
if %zukan_pose=6 && %zukan_face=1 lsp 450,":a;chara\shirom_st41.bmp",%zukan_x0,0
if %zukan_pose=6 && %zukan_face=2 lsp 450,":a;chara\shirom_st42.bmp",%zukan_x0,0
if %zukan_pose=7 && %zukan_face=1 lsp 450,":a;chara\shirom_st51.bmp",%zukan_x0,0
if %zukan_pose=8 && %zukan_face=1 lsp 450,":a;chara\shirom_st71.bmp",%zukan_x0,0
if %zukan_pose=8 && %zukan_face=2 lsp 450,":a;chara\shirom_st72.bmp",%zukan_x0,0
if %zukan_pose=8 && %zukan_face=3 lsp 450,":a;chara\shirom_st73.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\shirom_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\shirom_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\shirom_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose>2 && %zukan_pose<8 cspl 441,443 
return



*zukan_shirom_cg

lsp 500,":c;bg\bg206.bmp",0,0
lsp 430,":c;chara\shirom_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\shirom_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\shirom_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\shirom_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\shirom_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\shirom_h6.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_shirom_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,78
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *shirom_start
if %bwait=211 mov %nanido,2:goto *shirom_start
if %bwait=212 mov %nanido,3:goto *shirom_start
lsp 700,":a;chara\shirom_st02.bmp",0,0
bg "bg\bg206.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *shirom_h



;-----???????8?-----



*zukan_alice8th1

mov $zname,"Black Alice "
mov $zlavel,"alice8th1"
itoa2 $zukan_ko,%2714
mov %zukan_facenum,4
mov %zukan_posenum,1
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2851=0 mov %hscene1,0
if %2851>0 mov %hscene1,1
if %2852=0 mov %hscene2,0
if %2852>0 mov %hscene2,1
if %2714=0 mov %zukancg,0
if %2714>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"155"
mov $zukan_hp,"33000"
mov $zukan_skill1,"Tickling Finger Caress "
mov %zukan_skillc1,4069
mov $zukan_skill2,"Sucking Small Mouth "
mov %zukan_skillc2,4070
mov $zukan_skill3,"Young Girl's Modest Breasts "
mov %zukan_skillc3,4071
mov $zukan_skill4,"Devilish Draining Hair "
mov %zukan_skillc4,4072
mov $zukan_skill5,"Monster Lord's All-Night Vigil "
mov %zukan_skillc5,4073
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_alice8th1_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\balice1.jpg",400,0	
goto *zukan_kihonbtn



*zukan_alice8th1_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\alice8th_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\alice8th_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\alice8th_st03.bmp",%zukan_x0,0
if %zukan_face=4 lsp 450,":a;chara\alice8th_st04.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\alice8th_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\alice8th_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\alice8th_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\alice8th_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\alice8th_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
return



*zukan_alice8th1_cg

lsp 500,":c;bg\bg145.bmp",0,0
if %2851=0 skip 21
lsp 430,":a;chara\alice8th_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th_ha5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th_ha6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th_ha7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th_ha8.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th_ha9.bmp",0,0
print 10,500:lrclick
if %2852=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th_hb5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th_hb6.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_alice8th1_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,78
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
mov $name,"Black Alice "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *alice8th1_start
if %bwait=211 mov %nanido,2:goto *alice8th1_start
if %bwait=212 mov %nanido,3:goto *alice8th1_start
lsp 700,":a;chara\alice8th_st02.bmp",0,0
bg "bg\bg145.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *alice8th1_ha
if %bwait=214 goto *alice8th1_hb



;-----???????-----



*zukan_traptemis

mov $zname,"Themis Trap "
mov $zlavel,"traptemis"
itoa2 $zukan_ko,%2671
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,2
mov %zukan_hscenenum,1
if %2671=0 mov %hscene1,0
if %2671>0 mov %hscene1,1
if %2671=0 mov %zukancg,0
if %2671>0 mov %zukancg,1
mov %zukan_x1,-160
mov %zukan_x2,20
mov $zukan_lv,"45"
mov $zukan_hp,"10000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_traptemis_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\ttemis.jpg",400,0	
goto *zukan_kihonbtn



*zukan_traptemis_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\traptemis_st01.bmp",%zukan_x0,0
return



*zukan_traptemis_cg

lsp 500,":c;bg\bg207.bmp",0,0
lsp 430,":a;chara\traptemis_st02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\traptemis_st03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\traptemis_st04.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_traptemis_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,78
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *traptemis_start
if %bwait=211 mov %nanido,2:goto *traptemis_start
if %bwait=212 mov %nanido,3:goto *traptemis_start
lsp 700,":a;chara\traptemis_st01.bmp",20,0
bg "bg\bg207.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *traptemis_h



;-----??????-----



*zukan_gargoyle

mov $zname,"Gargoyle Girl "
mov $zlavel,"gargoyle"
itoa2 $zukan_ko,%2715
mov %zukan_facenum,3
mov %zukan_posenum,3
mov %zukan_cumnum,2
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2715=0 mov %hscene1,0
if %2715>0 mov %hscene1,1
if %2715=0 mov %zukancg,0
if %2715>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"80"
mov $zukan_hp,"25000"
mov $zukan_skill1,"Eye of Submission "
mov %zukan_skillc1,4074
mov $zukan_skill2,"Gargoyle Blowjob "
mov %zukan_skillc2,4075
mov $zukan_skill3,"Gargoyle Paizuri "
mov %zukan_skillc3,4076
mov $zukan_skill4,"Gargoyle Bosom "
mov %zukan_skillc4,4077
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_gargoyle_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\gargoyle.jpg",400,0	
goto *zukan_kihonbtn



*zukan_gargoyle_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose<3 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose<3 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=3 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\gargoyle_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\gargoyle_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\gargoyle_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\gargoyle_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\gargoyle_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\gargoyle_st13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\gargoyle_st21.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\gargoyle_st22.bmp",%zukan_x0,0
if %zukan_pose<3 && %zukan_cum1=1 lsp 441,":a;chara\gargoyle_bk01.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum1=1 lsp 441,":a;chara\gargoyle_bk21.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose<3 && %zukan_cum2=1 lsp 442,":a;chara\gargoyle_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
return



*zukan_gargoyle_cg

lsp 500,":c;bg\bg208.bmp",0,0
lsp 430,":a;chara\gargoyle_st31.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gargoyle_st32.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gargoyle_st33.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gargoyle_st34.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\gargoyle_st35.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\gargoyle_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gargoyle_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gargoyle_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\gargoyle_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_gargoyle_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,78
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *gargoyle_start
if %bwait=211 mov %nanido,2:goto *gargoyle_start
if %bwait=212 mov %nanido,3:goto *gargoyle_start
lsp 700,":a;chara\gargoyle_st02.bmp",0,0
bg "bg\bg208.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *gargoyle_h



;-----?????-----



*zukan_doppele

mov $zname,"Doppel Luka "
mov $zlavel,"doppele"
itoa2 $zukan_ko,%2708
mov %zukan_facenum,4
mov %zukan_posenum,6
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2708=0 mov %hscene1,0
if %2708>0 mov %hscene1,1
if %2708=0 mov %zukancg,0
if %2708>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"78"
mov $zukan_hp,"25000"
mov $zukan_skill1,"Doppel Handjob "
mov %zukan_skillc1,4078
mov $zukan_skill2,"Doppel Footjob "
mov %zukan_skillc2,4079
mov $zukan_skill3,"Doppel Blowjob "
mov %zukan_skillc3,4080
mov $zukan_skill4,"Doppel Tit Fuck "
mov %zukan_skillc4,4081
mov $zukan_skill5,"Doppel Intercrural "
mov %zukan_skillc5,4082
mov $zukan_skill6,"Doppel Assjob "
mov %zukan_skillc6,4083
mov $zukan_skill7,"Sword Semen Drain "
mov %zukan_skillc7,4084
mov $zukan_skill8,"Doppel Mount "
mov %zukan_skillc8,4085
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_doppele_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\doppelluka.jpg",400,0	
goto *zukan_kihonbtn



*zukan_doppele_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\doppele_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\doppele_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\doppele_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\doppele_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\doppele_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\doppele_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\doppele_st13.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\doppele_st14.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\doppele_st21.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\doppele_st22.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\doppele_st23.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;chara\doppele_st24.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\doppele_st31.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\doppele_st32.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\doppele_st33.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=4 lsp 450,":a;chara\doppele_st34.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=1 lsp 450,":a;chara\doppele_st41.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=2 lsp 450,":a;chara\doppele_st42.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=3 lsp 450,":a;chara\doppele_st43.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=4 lsp 450,":a;chara\doppele_st44.bmp",%zukan_x0,0
if %zukan_pose=6 && %zukan_face=1 lsp 450,":a;chara\doppele_st51.bmp",%zukan_x0,0
if %zukan_pose=6 && %zukan_face=2 lsp 450,":a;chara\doppele_st52.bmp",%zukan_x0,0
if %zukan_pose=6 && %zukan_face=3 lsp 450,":a;chara\doppele_st53.bmp",%zukan_x0,0
if %zukan_pose=6 && %zukan_face=4 lsp 450,":a;chara\doppele_st54.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\doppele_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose<3 && %zukan_cum2=1 lsp 442,":a;chara\doppele_bk02.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum2=1 lsp 442,":a;chara\doppele_bk32.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose<4 && %zukan_cum3=1 lsp 443,":a;chara\doppele_bk03.bmp",%zukan_x0,0
if %zukan_pose=6 && %zukan_face>2 && %zukan_cum3=1 lsp 443,":a;chara\doppele_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_pose<4 && %zukan_cum4=1 lsp 444,":a;chara\doppele_bk04.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_cum4=1 lsp 444,":a;chara\doppele_bk34.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_cum4=1 lsp 444,":a;chara\doppele_bk34.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\doppele_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\doppele_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_pose=1 && %zukan_cum7=1 lsp 447,":a;chara\doppele_bk07.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_cum7=1 lsp 447,":a;chara\doppele_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
return



*zukan_doppele_cg

lsp 500,":c;bg\bg208.bmp",0,0
lsp 430,":a;chara\doppele_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\doppele_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\doppele_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\doppele_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\doppele_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\doppele_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\doppele_hc1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\doppele_hc2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\doppele_hc3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\doppele_hd1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\doppele_hd2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\doppele_hd3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\doppele_he1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\doppele_he2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\doppele_he3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_doppele_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,78
mov %skill01,19
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *doppele_start
if %bwait=211 mov %nanido,2:goto *doppele_start
if %bwait=212 mov %nanido,3:goto *doppele_start
lsp 700,":a;chara\doppele_st02.bmp",0,0
bg "bg\bg208.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov %sinkou,2
if %bwait=213 goto *doppele_h




;-----??????-----



*zukan_hainu

mov $zname,"Hainuwele "

mov $zlavel,"hainu"
itoa2 $zukan_ko,%2716
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,0
mov %zukan_battlenum,2
mov %zukan_hscenenum,1
if %2716=0 mov %hscene1,0
if %2716>0 mov %hscene1,1
if %2716=0 mov %zukancg,0
if %2716>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"145"
mov $zukan_hp,"23000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_hainu_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\hainu.jpg",400,0	
goto *zukan_kihonbtn



*zukan_hainu_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\hainu_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\hainu_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\hainu_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\hainu_st11.bmp",%zukan_x0-320,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\hainu_st12.bmp",%zukan_x0-320,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\hainu_st13.bmp",%zukan_x0-320,0
return



*zukan_hainu_cg

lsp 500,":c;bg\bg208.bmp",0,0
lsp 430,":a;chara\hainu_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hainu_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hainu_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\hainu_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_hainu_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,78
mov %skill01,20
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *hainu_start
if %bwait=211 mov %nanido,2:goto *hainu_start
if %bwait=212 mov %nanido,3:goto *hainu_start
bg "bg\bg208.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *hainu_h



;-----????????-----



*zukan_amphis

mov $zname,"Amphisbaena "
mov $zlavel,"amphis"
itoa2 $zukan_ko,%2717
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,0
mov %zukan_battlenum,2
mov %zukan_hscenenum,1
if %2717=0 mov %hscene1,0
if %2717>0 mov %hscene1,1
if %2717=0 mov %zukancg,0
if %2717>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"146"
mov $zukan_hp,"30000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_amphis_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\amphis.jpg",400,0	
goto *zukan_kihonbtn



*zukan_amphis_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\amphis_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\amphis_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\amphis_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\amphis_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\amphis_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\amphis_st13.bmp",%zukan_x0,0
return



*zukan_amphis_cg

lsp 500,":c;bg\bg208.bmp",0,0
lsp 430,":a;chara\amphis_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\amphis_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\amphis_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\amphis_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_amphis_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,78
mov %skill01,20
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *amphis_start
if %bwait=211 mov %nanido,2:goto *amphis_start
if %bwait=212 mov %nanido,3:goto *amphis_start
bg "bg\bg208.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *amphis_h



;-----????-----



*zukan_tukuyomi

mov $zname,"Tsukuyomi "
mov $zlavel,"tukuyomi"
itoa2 $zukan_ko,%2718
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,0
mov %zukan_battlenum,2
mov %zukan_hscenenum,1
if %2718=0 mov %hscene1,0
if %2718>0 mov %hscene1,1
if %2718=0 mov %zukancg,0
if %2718>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"147"
mov $zukan_hp,"30000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_tukuyomi_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\tsuku.jpg",400,0	
goto *zukan_kihonbtn



*zukan_tukuyomi_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\tukuyomi_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\tukuyomi_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\tukuyomi_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\tukuyomi_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\tukuyomi_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\tukuyomi_st13.bmp",%zukan_x0,0
return



*zukan_tukuyomi_cg

lsp 500,":c;bg\bg208.bmp",0,0
lsp 430,":a;chara\tukuyomi_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tukuyomi_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tukuyomi_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tukuyomi_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_tukuyomi_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,78
mov %skill01,20
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *tukuyomi_start
if %bwait=211 mov %nanido,2:goto *tukuyomi_start
if %bwait=212 mov %nanido,3:goto *tukuyomi_start
bg "bg\bg208.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *tukuyomi_h



;-----???????-----



*zukan_arcen

mov $zname,"Arc-En-Ciel "
mov $zlavel,"arcen"
itoa2 $zukan_ko,%2719
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,0
mov %zukan_battlenum,2
mov %zukan_hscenenum,1
if %2719=0 mov %hscene1,0
if %2719>0 mov %hscene1,1
if %2719=0 mov %zukancg,0
if %2719>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"150"
mov $zukan_hp,"40000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_arcen_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\arcen.jpg",400,0	
goto *zukan_kihonbtn



*zukan_arcen_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\arcen_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\arcen_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\arcen_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\arcen_st11.bmp",%zukan_x0-320,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\arcen_st12.bmp",%zukan_x0-320,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\arcen_st13.bmp",%zukan_x0-320,0
return



*zukan_arcen_cg

lsp 500,":c;bg\bg208.bmp",0,0
lsp 430,":a;chara\arcen_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arcen_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arcen_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arcen_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_arcen_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,78
mov %skill01,20
mov %skill02,4
mov %skill03,4
mov %skill04,4
mov %skill05,4
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *arcen_start
if %bwait=211 mov %nanido,2:goto *arcen_start
if %bwait=212 mov %nanido,3:goto *arcen_start
bg "bg\bg208.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *arcen_h



;-----??????-----



*zukan_rapun

mov $zname,"Rapunzel "
mov $zlavel,"rapun"
itoa2 $zukan_ko,%2720
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2720=0 mov %hscene1,0
if %2720>0 mov %hscene1,1
if %2720=0 mov %zukancg,0
if %2720>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"146"
mov $zukan_hp,"32000"
mov $zukan_skill1,"Lewd Bug's Blowjob "
mov %zukan_skillc1,4086
mov $zukan_skill2,"Lewd Bug's Paizuri "
mov %zukan_skillc2,4087
mov $zukan_skill3,"Lewd Bug's Lewd Honey "
mov %zukan_skillc3,4088
mov $zukan_skill4,"Lewd Bug's Mating "
mov %zukan_skillc4,4089
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_rapun_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\rapun.jpg",400,0	
goto *zukan_kihonbtn



*zukan_rapun_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\rapun_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\rapun_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\rapun_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\rapun_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\rapun_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\rapun_st13.bmp",%zukan_x0,0
return



*zukan_rapun_cg

lsp 500,":c;bg\bg208.bmp",0,0
lsp 430,":a;chara\rapun_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\rapun_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\rapun_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\rapun_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_rapun_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,78
mov %skill01,21
mov %skill02,5
mov %skill03,5
mov %skill04,5
mov %skill05,5
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *rapun_start
if %bwait=211 mov %nanido,2:goto *rapun_start
if %bwait=212 mov %nanido,3:goto *rapun_start
lsp 700,":a;chara\rapun_st01.bmp",0,0
bg "bg\bg208.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *rapun_h



;-----???????-----



*zukan_heavensgate

mov $zname,"Heaven's Gate "
mov $zlavel,"heavensgate"
itoa2 $zukan_ko,%2721
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2721=0 mov %hscene1,0
if %2721>0 mov %hscene1,1
if %2721=0 mov %zukancg,0
if %2721>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"148"
mov $zukan_hp,"40000"
mov $zukan_skill1,"Seraphic Blowjob "
mov %zukan_skillc1,4090
mov $zukan_skill2,"Male Teasing Tentacles "
mov %zukan_skillc2,4091
mov $zukan_skill3,"Great Gate's Lusting Tongue "
mov %zukan_skillc3,4092
mov $zukan_skill4,"Gate of Judgement "
mov %zukan_skillc4,4093
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_heavensgate_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\heavengate.jpg",400,0	
goto *zukan_kihonbtn



*zukan_heavensgate_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\heavensgate_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\heavensgate_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\heavensgate_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\heavensgate_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\heavensgate_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\heavensgate_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\heavensgate_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_heavensgate_cg

lsp 500,":c;bg\bg208.bmp",0,0
lsp 430,":a;chara\heavensgate_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\heavensgate_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\heavensgate_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\heavensgate_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_heavensgate_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,79
mov %skill01,21
mov %skill02,5
mov %skill03,5
mov %skill04,5
mov %skill05,5
mov %item01,10
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *heavensgate_start
if %bwait=211 mov %nanido,2:goto *heavensgate_start
if %bwait=212 mov %nanido,3:goto *heavensgate_start
lsp 700,":a;chara\heavensgate_st02.bmp",0,0
bg "bg\bg208.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *heavensgate_h



;-----??????-----



*zukan_eden

mov $zname,"Seraph Eden "
mov $zlavel,"eden"
itoa2 $zukan_ko,%2722
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2847=0 mov %hscene1,0
if %2847>0 mov %hscene1,1
if %2848=0 mov %hscene2,0
if %2848>0 mov %hscene2,1
if %2722=0 mov %zukancg,0
if %2722>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"195"
mov $zukan_hp,"50000"
mov $zukan_skill1,"Eden's Serpent "
mov %zukan_skillc1,4094
mov $zukan_skill2,"Seraph's Wings "
mov %zukan_skillc2,4095
mov $zukan_skill3,"Paradise Lost "
mov %zukan_skillc3,4096
mov $zukan_skill4,"Garden of Eden "
mov %zukan_skillc4,4097
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_eden_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\eden.jpg",400,0	
goto *zukan_kihonbtn



*zukan_eden_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 lsp 450,":a;chara\eden_st01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\eden_st21.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\eden_st22.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\eden_st23.bmp",%zukan_x0,0
return



*zukan_eden_cg

lsp 500,":c;bg\bg210.bmp",0,0
if %2847=0 skip 11
lsp 430,":a;chara\eden_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eden_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eden_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eden_ha4.bmp",0,0
print 10,500:lrclick
if %2848=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eden_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eden_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eden_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\eden_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_eden_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,79
mov %skill01,21
mov %skill02,5
mov %skill03,5
mov %skill04,5
mov %skill05,5
mov %item01,10
mov $name,"Eden "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *eden_start
if %bwait=211 mov %nanido,2:goto *eden_start
if %bwait=212 mov %nanido,3:goto *eden_start
lsp 700,":a;chara\eden_st01.bmp",0,0
bg "bg\bg210.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *eden_ha
if %bwait=214 goto *eden_hb



;-----???????(????)-----



*zukan_stein2

mov $zname,"Promestein (Final Form) "
mov $zlavel,"stein2"
itoa2 $zukan_ko,%2723
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,2
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2723=0 mov %hscene1,0
if %2723>0 mov %hscene1,1
if %2723=0 mov %zukancg,0
if %2723>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"230"
mov $zukan_hp,"60000"
mov $zukan_skill1,"Swede Demosu "
mov %zukan_skillc1,4098
mov $zukan_skill2,"Stipe Suck "
mov %zukan_skillc2,4099
mov $zukan_skill3,"Swede Gigantea"
mov %zukan_skillc3,4100
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_stein2_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\stein2.jpg",400,0	
goto *zukan_kihonbtn



*zukan_stein2_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\stein2_st01.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\stein2_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\stein2_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
return



*zukan_stein2_cg

lsp 500,":c;bg\bg211.bmp",0,0
lsp 430,":a;chara\stein2_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\stein2_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\stein2_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\stein2_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\stein2_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\stein2_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\stein2_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\stein2_ct04.bmp",0,0
lsp 430,":a;chara\stein2_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\stein2_ct05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\stein2_h6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\stein2_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\stein2_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\stein2_ct13.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\stein2_ct14.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\stein2_ct15.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\stein2_ct16.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_stein2_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,79
mov %skill01,21
mov %skill02,5
mov %skill03,5
mov %skill04,5
mov %skill05,5
mov %item01,10
mov $name,"Promestein "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *stein2_start
if %bwait=211 mov %nanido,2:goto *stein2_start
if %bwait=212 mov %nanido,3:goto *stein2_start
lsp 700,":a;chara\stein2_st01.bmp",0,0
bg "bg\bg211.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *stein2_h



;-----???????8?(????)-----



*zukan_alice8th2

mov $zname,"Black Alice (Second Form) "
mov $zlavel,"alice8th2"
itoa2 $zukan_ko,%2724
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2724=0 mov %hscene1,0
if %2724>0 mov %hscene1,1
if %2724=0 mov %zukancg,0
if %2724>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"256"
mov $zukan_hp,"65000"
mov $zukan_skill1,"Sweet Demonic Palm "
mov %zukan_skillc1,4101
mov $zukan_skill2,"Sweet Demonic Lips "
mov %zukan_skillc2,4102
mov $zukan_skill3,"Sweet Demonic Breasts "
mov %zukan_skillc3,4103
mov $zukan_skill4,"Sweet Demonic Tentacles "
mov %zukan_skillc4,4104
mov $zukan_skill5,"Sweet Demonic Prison "
mov %zukan_skillc5,4105
mov $zukan_skill6,"Demonic Predation "
mov %zukan_skillc6,4106
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_alice8th2_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\balice2.jpg",400,0	
goto *zukan_kihonbtn



*zukan_alice8th2_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\alice8th2_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\alice8th2_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\alice8th2_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\alice8th2_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\alice8th2_st12.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\alice8th2_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\alice8th2_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\alice8th2_bk03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum3=1 lsp 443,":a;chara\alice8th2_bk13.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\alice8th2_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_alice8th2_cg

lsp 500,":c;bg\bg212.bmp",0,0
lsp 430,":a;chara\alice8th2_st21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice8th2_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th2_st22.bmp",0,0
lsp 420,":a;chara\alice8th2_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice8th2_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\alice8th2_st23.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th2_st24.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th2_st25.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th2_st26.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th2_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th2_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th2_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th2_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th2_h5.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_alice8th2_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,79
mov %skill01,21
mov %skill02,5
mov %skill03,5
mov %skill04,5
mov %skill05,5
mov %item01,10
mov $name,"Black Alice "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *alice8th2_start
if %bwait=211 mov %nanido,2:goto *alice8th2_start
if %bwait=212 mov %nanido,3:goto *alice8th2_start
lsp 700,":a;chara\alice8th2_st02.bmp",0,0
bg "bg\bg212.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *alice8th2_h



;-----???????8?(????)-----



*zukan_alice8th3

mov $zname,"Black Alice (Third Form) "
mov $zlavel,"alice8th3"
itoa2 $zukan_ko,%2725
mov %zukan_facenum,4
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2725=0 mov %hscene1,0
if %2725>0 mov %hscene1,1
if %2725=0 mov %zukancg,0
if %2725>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"256"
mov $zukan_hp,"65000"
mov $zukan_skill1,"Octopus Pat "
mov %zukan_skillc1,4107
mov $zukan_skill2,"Leech Suck "
mov %zukan_skillc2,4108
mov $zukan_skill3,"Trampling Shackles "
mov %zukan_skillc3,4109
mov $zukan_skill4,"Swallow Prey "
mov %zukan_skillc4,4110
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_alice8th3_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\balice3.jpg",400,0	
goto *zukan_kihonbtn



*zukan_alice8th3_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\alice8th3_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\alice8th3_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\alice8th3_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\alice8th3_st04.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\alice8th3_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\alice8th3_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\alice8th3_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\alice8th3_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_alice8th3_cg

lsp 500,":c;bg\bg212.bmp",0,0
lsp 430,":a;chara\alice8th3_st11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th3_st12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th3_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th3_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th3_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th3_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_alice8th3_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,79
mov %skill01,21
mov %skill02,5
mov %skill03,5
mov %skill04,5
mov %skill05,5
mov %item01,10
mov $name,"Black Alice "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *alice8th3_start
if %bwait=211 mov %nanido,2:goto *alice8th3_start
if %bwait=212 mov %nanido,3:goto *alice8th3_start
lsp 700,":a;chara\alice8th3_st02.bmp",0,0
bg "bg\bg212.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *alice8th3_h



;-----???????8?(????)-----



*zukan_alice8th4

mov $zname,"Black Alice (Final Form) "
mov $zlavel,"alice8th4"
itoa2 $zukan_ko,%2726
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2726=0 mov %hscene1,0
if %2726>0 mov %hscene1,1
if %2726=0 mov %zukancg,0
if %2726>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"256"
mov $zukan_hp,"65000"
mov $zukan_skill1,"Elimination: Squeeze "
mov %zukan_skillc1,4111
mov $zukan_skill2,"Elimination: Chew "
mov %zukan_skillc2,4112
mov $zukan_skill3,"Elimination: Suck "
mov %zukan_skillc3,4113
mov $zukan_skill4,"Elimination: Lick "
mov %zukan_skillc4,4114
mov $zukan_skill5,"Elimination: Milk "
mov %zukan_skillc5,4115
mov $zukan_skill6,"Elimination: Stroke "
mov %zukan_skillc6,4116
mov $zukan_skill7,"Elimination: Crush "
mov %zukan_skillc7,4117
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_alice8th4_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\balice4.jpg",400,0	
goto *zukan_kihonbtn



*zukan_alice8th4_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\alice8th4_st01.bmp",%zukan_x0,0
return



*zukan_alice8th4_cg

lsp 500,":c;bg\bg232.bmp",0,0
lsp 430,":a;chara\alice8th4_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice8th4_ct21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\alice8th4_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice8th4_ct22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice8th4_ct23.bmp",0,0
lsp 430,":a;chara\alice8th4_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice8th4_ct24.bmp",0,0
lsp 430,":a;chara\alice8th4_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice8th4_ct25.bmp",0,0
lsp 430,":a;chara\alice8th4_hb5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\alice8th4_hc1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice8th4_ct31.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\alice8th4_hc2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice8th4_ct32.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice8th4_ct33.bmp",0,0
lsp 430,":a;chara\alice8th4_hc3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice8th4_ct34.bmp",0,0
lsp 430,":a;chara\alice8th4_hc4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice8th4_ct35.bmp",0,0
lsp 430,":a;chara\alice8th4_hc5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\alice8th4_hd1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice8th4_ct41.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\alice8th4_hd2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_hd3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_hd4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_hd5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_hd6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_he1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_he2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice8th4_ct51.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice8th4_ct52.bmp",0,0
lsp 430,":a;chara\alice8th4_he3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice8th4_ct53.bmp",0,0
lsp 430,":a;chara\alice8th4_he4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice8th4_ct54.bmp",0,0
lsp 430,":a;chara\alice8th4_he5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\alice8th4_hf1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_hf2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_hf3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_hf4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_hg1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_hg2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_hg3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_hg4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_hh1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_hh2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_hh3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_hh4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice8th4_hh5.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_alice8th4_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,79
mov %skill01,21
mov %skill02,5
mov %skill03,5
mov %skill04,5
mov %skill05,5
mov %item01,10
mov $name,"Black Alice "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *alice8th4_start
if %bwait=211 mov %nanido,2:goto *alice8th4_start
if %bwait=212 mov %nanido,3:goto *alice8th4_start
lsp 700,":a;chara\alice8th4_st01.bmp",0,0
bg "bg\bg232.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *alice8th4_h



;-----?????????(3)-----



*zukan_irias3

mov $zname,"Goddess Ilias (3) "
mov $zlavel,"irias3"
itoa2 $zukan_ko,%2727
mov %zukan_facenum,6
mov %zukan_posenum,3
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %2727=0 mov %hscene1,0
if %2727>0 mov %hscene1,1
if %2727=0 mov %zukancg,0
if %2727>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"500"
mov $zukan_hp,"50000"
mov $zukan_skill1,"Goddess's Handjob "
mov %zukan_skillc1,4118
mov $zukan_skill2,"Goddess's Blowjob "
mov %zukan_skillc2,4119
mov $zukan_skill3,"Goddess's Breasts "
mov %zukan_skillc3,4120
mov $zukan_skill4,"Wings of Love and Tolerance "
mov %zukan_skillc4,4121
mov $zukan_skill5,"Goddess's Riding "
mov %zukan_skillc5,4122
mov $zukan_skill6,"Goddess's Tightening "
mov %zukan_skillc6,4123
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_irias3_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\ilias3.jpg",400,0	
goto *zukan_kihonbtn



*zukan_irias3_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose>1 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose>1 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\iriasu_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\iriasu_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\iriasu_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\iriasu_st04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\iriasu_st05.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\iriasu_st06.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\iriasu_st13.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\iriasu_st12.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\iriasu_st14.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\iriasu_st16.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\iriasu_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\iriasu_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\iriasu_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\iriasu_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\iriasu_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\iriasu_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\iriasu_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
if %zukan_pose>1 cspl 441,447
return



*zukan_irias3_cg

lsp 500,":c;bg\bg001.bmp",0,0
lsp 430,":a;chara\iriasu_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\iriasu_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\iriasu_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\iriasu_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_irias3_kaisou


bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,80
mov %skill01,21
mov %skill02,5
mov %skill03,5
mov %skill04,5
mov %skill05,5
mov %item01,10
mov $name,"Ilias "
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *irias1_start
if %bwait=211 mov %nanido,2:goto *irias1_start
if %bwait=212 mov %nanido,3:goto *irias1_start
lsp 700,":a;chara\iriasu_st02.bmp",0,0
bg "bg\bg001.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *irias1_h



;-----?????????(????)-----



*zukan_irias4

mov $zname,"Goddess Ilias (Final Form) "
mov $zlavel,"irias4"
itoa2 $zukan_ko,%2728
mov %zukan_facenum,1
mov %zukan_posenum,2
mov %zukan_cumnum,2
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %2843=0 mov %hscene1,0
if %2843>0 mov %hscene1,1
if %2844=0 mov %hscene2,0
if %2844>0 mov %hscene2,1
if %2728=0 mov %zukancg,0
if %2728>0 mov %zukancg,1
mov %zukan_x1,-150
mov %zukan_x2,0
mov $zukan_lv,"999"
mov $zukan_hp,"600000"
mov $zukan_skill1,"Holy Hair "
mov %zukan_skillc1,4124
mov $zukan_skill2,"Holy Feathers "
mov %zukan_skillc2,4125
mov $zukan_skill3,"Embrace of the Goddess "
mov %zukan_skillc3,4126
mov $zukan_skill4,"Dark Goddess's Semen Extraction "
mov %zukan_skillc4,4127
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_irias4_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\ilias4.jpg",400,0	
goto *zukan_kihonbtn



*zukan_irias4_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\iriasu2_st01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\iriasu2_st11.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\iriasu2_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\iriasu2_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
return



*zukan_irias4_cg

lsp 500,":c;bg\bg001.bmp",0,0
lsp 430,":a;chara\iriasu2_st21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\iriasu2_st22.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
if %2843=0 skip 11
lsp 430,":a;chara\iriasu2_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":c;chara\iriasu2_ct01.bmp",572,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\iriasu2_ha2.bmp",0,0
lsp 420,":c;chara\iriasu2_ct02.bmp",572,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\iriasu2_ha3.bmp",0,0
lsp 420,":c;chara\iriasu2_ct03.bmp",572,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\iriasu2_ha4.bmp",0,0
print 10,500:lrclick
if %2844=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\iriasu2_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\iriasu2_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\iriasu2_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\iriasu2_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_irias4_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,80
mov %skill01,21
mov %skill02,5
mov %skill03,5
mov %skill04,5
mov %skill05,5
mov %item01,10
mov %check06,1
mov %ivent01,2
mov %ivent02,2
mov %ivent03,1
mov %ivent04,2
mov %ivent05,3
mov %ivent06,2
mov %ivent08,2
mov %ivent09,2
mov %ivent10,2
mov %ivent11,2
mov %ivent12,2
mov %ivent14,3
mov %ivent17,2
mov %ivent18,2
mov $name,"Ilias "
if %bwait=210 mov %nanido,1:goto *zukan_iriasu
if %bwait=211 mov %nanido,2:goto *zukan_iriasu
if %bwait=212 mov %nanido,3:goto *zukan_iriasu
gosub *setwindow_01
lsp 700,":a;chara\iriasu2_st01.bmp",0,0
bg "bg\bg001.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *irias2_ha
if %bwait=214 goto *irias2_hb



;-----??END-----




*zukan_end

mov $zname,"Other Endings "
mov $zlavel,"end"
mov $zukan_ko,"None "
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,7
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-121
mov %zukan_x2,79
mov $zukan_lv,"None "
mov $zukan_hp,"None "
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_end_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\end.jpg",400,0	
goto *zukan_kihonbtn



*zukan_end_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
return



*zukan_end_cg

lsp 500,":c;bg\bg179.bmp",0,0
lsp 430,":a;chara\end1_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end1_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end1_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end1_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end1_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end1_h6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 500,":c;bg\bg180.bmp",0,0
lsp 430,":a;chara\end2_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end2_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end2_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end2_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end2_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 500,":c;bg\bg060.bmp",0,0
lsp 430,":a;chara\end3_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end3_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end3_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end3_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 500,":c;bg\bg049.bmp",0,0
lsp 430,":a;chara\end4_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end4_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end4_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end4_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 500,":c;bg\bg067.bmp",0,0
lsp 430,":a;chara\end5_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end5_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end5_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end5_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 500,":c;bg\bg181.bmp",0,0
lsp 430,":a;chara\end6_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end6_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end6_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end6_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end6_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 500,":c;bg\bg123.bmp",0,0
lsp 430,":a;chara\end7_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end7_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end7_h3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_end_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,80
mov %skill01,21
mov %skill02,5
mov %skill03,5
mov %skill04,5
mov %skill05,5
mov %item01,10
gosub *setwindow_01
if %bwait=214 lsp 700,":a;chara\queenhapy_st11.bmp",0,0
if %bwait=215 lsp 700,":a;chara\cupid_st13.bmp",-160,0
if %bwait=215 lsp 701,":a;chara\valkyrie_st01.bmp",80,0
if %bwait=216 lsp 700,":a;chara\meia_st03.bmp",50,50
if %bwait=217 lsp 700,":a;chara\sara_st12r.bmp",0,0
if %bwait=218 lsp 700,":a;chara\succubus_st02.bmp",0,50
if %bwait=219 lsp 700,":a;chara\serene_st11.bmp",0,0
if %bwait=213 bg "bg\bg178.bmp",10,1500
if %bwait=214 bg "bg\bg023.bmp",10,1500
if %bwait=215 bg "bg\bg060.bmp",10,1500
if %bwait=216 bg "bg\bg049.bmp",10,1500
if %bwait=217 bg "bg\bg067.bmp",10,1500
if %bwait=218 bg "bg\bg106.bmp",10,1500
if %bwait=219 bg "bg\bg123.bmp",10,1500
if %bwait=213 bgm"bgm\city1.ogg"
if %bwait=214 bgm"bgm\mura2.ogg"
if %bwait=215 bgm"bgm\castle1.ogg"
if %bwait=216 bgm"bgm\city1.ogg"
if %bwait=217 bgm"2Q\bgmfix\hutuu1.ogg"
if %bwait=218 bgm"bgm\mura2.ogg"
if %bwait=219 bgm"bgm\gordport.ogg"
if %bwait=213 goto *city52_14a
if %bwait=214 goto *city53_14a
if %bwait=215 goto *city56b_13a
if %bwait=216 goto *city55_14a
if %bwait=217 goto *city57b_11c
if %bwait=218 goto *city63_13a
if %bwait=219 goto *city64_17a


*city64_17a

name "Luka "
>F...Fine... @
>I want to help others, after all... \
name ""
lsp 700,":a;chara\serene_st12.bmp",0,0:print 10,500
name "Selene "
>Hehe... You're such a good child. @
>Let's get started right away... \
name ""
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
lsp 700,":a;chara\end7_h1.bmp",0,0:print 10,500
>Selene quickly sits down on me. @
mov %hseanwave,3:hseanwave
>My penis sinks deep into her warm vagina. \
name "Luka "
>Ahhh! \
name ""
>An intense feeling of pressure attacks me all at once. @
>It feels like my skin is all being pulled down toward the root of my penis. \
name "Luka "
>Ahh... W...What...? \
name ""
>Selene giggles as my eyes roll in confusion. \
name "Selene "
>My pussy gets tighter the deeper you get... @
>It pushes back all the skin, leaving your glans completely unguarded. \
name ""
name "Luka "
>Ahhh... \
name ""
>Her vagina itself peeled away my foreskin, completely revealing my weakest    point to direct stimulation. \
name "Luka "
>W...What the... My tip... Ahh! \
name ""
name "Selene "
>After pressing down all the skin, I can make my pussy extra tight... \
name ""
name "Luka "
>Haa... Ahhh! \
name ""
>Squeeze... Squeeze... She presses down hard on my defenseless glans, deep     inside of her. @
>The intense pleasure causes an ejaculation to bubble up in seconds. \
name "Luka "
>Ahh... N...No...! @
>Don't move that much! \
name ""
>I gasp in pleasure as the torturous ecstasy assaults me. @
>There's no way I could endure this! \
name "Selene "
>Sorry, Luka... @
>I'm not doing it on purpose. \
>I was born with my pussy like this, it's difficult for me at times, too. \
name ""
name "Luka "
>Ha... Ahhh! \
name ""
gosub *syasei1
lsp 700,":a;chara\end7_h2.bmp",0,0
gosub *syasei2
>After only around ten seconds after insertion, I explode inside of her        incredible vagina. \
name "Selene "
>...Well, that's what normally happens. @
>Don't be ashamed, most men come right away their first time. \
>It's good for breaking and training men, but... @
>Since men always come so fast, I've never been able to find a man that can    satisfy me. \
name ""
>While sitting on top of me, Selene sighs. @
>At the same time, her incredible vagina continues to squeeze and attack me... \
name "Luka "
>Ahhh! @
>I'm going to come again! \
name ""
name "Selene "
>Sorry, but can I have you come one more time? @
>There didn't seem to be enough last time... \
name ""
mov %hseanwave,7:hseanwave
>With that said, Selene starts to slowly move her waist. @
>Her soft vaginal flesh rubs against me as she moves, sending fresh sensations through my spine. \
name "Luka "
>Ahhh!!! \
name ""
>Even though she wasn't moving before, I came in no time... @ 
>Her vagina is like a weapon itself, able to force a man to submit. \
name "Luka "
>N...No... Ahh! \
name ""
name "Selene "
>Hehe, I'll finish you off quickly. @
>Please give me enough energy to move on to the next world... \
name ""
name "Luka "
>Haaa!!! \
name ""
>Selene's skilled movements bring me to the edge again in seconds. @
>The unmatched vagina she boasted about is no lie... \
>As she slowly moves, her vagina's shape itself causes each movement to press  and pull on my shaft and tip, as the sweet tightness erodes my patience. \
name "Luka "
>Ahhh!!! \
name ""
gosub *syasei1
lsp 700,":a;chara\end7_h3.bmp",0,0
gosub *syasei2
>I'm easily brought to another orgasm, my penis pulsing inside her with spurts of pure pleasure. \
name "Luka "
>Ahh... \
name ""
name "Selene "
>Now, I can rest in peace... @ >Or not? @
>Was that not enough? \
name ""
>Selene looks puzzled on top of me. \
name "Selene "
>If I was lacking energy, I thought I would have had enough after the first    orgasm. @
>I mean, your semen is packed full of energy... \
>But if it's still not working... @ >Then is there another reason? \
name ""
>Even as she thinks aloud, focused on other things, her vagina doesn't stop    squeezing on me. \
>While she's not even looking at me or trying to make me come, I'm led to      another height. \
name "Luka "
>Ah... Ahh! \
name ""
gosub *syasei1:gosub *syasei2
>As I come inside her again, she turns back toward me, a look of surprise on   her face. \
name "Selene "
>Ah... Sorry. @
>I was thinking about something else for a second. \
name ""
name "Luka "
>Haa... \
name ""
>My body relaxes in total weakness beneath her body. @
>Overwhelmed by pleasure, my soul itself has been captured... \
mov %hseanwave,0:hseanwave
gosub *anten
>Even after that, Selene couldn't move on. @
>Is it because she was so powerful in life? @ >Or due to fighting angels in       spirit form? \
>Selene's mansion became a legend among men. @
>Numerous men would come by every night, and have sex with Selene's spirit. \
>After tasting her body even once, a man becomes her slave. @
>I, of course, was no exception... \
mov %hseanwave,8:hseanwave
lsp 700,":a;chara\end7_h1.bmp",0,0
bg "bg\bg123.bmp",10,1500
name "Luka "
>Haa... Selene, it feels so good... \
name ""
name "Selene "
>Luka, you're completely a captive, aren't you? \
>Here, I'll squeeze it inside... @
>Tight around your tip, your favorite... \
name ""
name "Luka "
>Ah...! @ >I...I'm coming! \
name ""
gosub *syasei1
lsp 700,":a;chara\end7_h2.bmp",0,0
gosub *syasei2
>My body trembles in ecstasy as I explode as hard as I can inside her. @
>This vivid pleasure doesn't feel like it could come from a ghost at all... \
name "Luka "
>Haa... So good... \
name ""
name "Selene "
>You'll let me suck more energy? @
>Hehe... You're as energetic as always, Luka. \
name ""
name "Luka "
>Haa... \
name ""
>Thus, I continue having sex every night with the ghost of this female         pirate... @
>A slave to her body, I continue giving her my energy... \
mov %hseanwave,0:hseanwave
gosub *anten
>............ \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0


*city63_13a

name "Luka "
>Well if you went to the effort, I'll join in... \
name ""
name "Succubus "
>Then please come this way. @
>It's right behind this door... \
name ""
dwave 1,"se\door2.ogg"
bg "bg\bg181.bmp",10,1500
>I move past the door into a surprisingly spacious room. @
lsp 700,":a;chara\maccubus_st12.bmp",-80,0
lsp 701,":a;chara\renccubus_st04.bmp",170,0
lsp 702,":a;chara\minccubus_st02.bmp",420,0:print 10,500
>Inside, numerous Succubi are standing around. \
name "Luka "
>Eh...? @ >Where is the food for the feast? \
name ""
cspl 701,702
lsp 700,":a;chara\succubus_st02.bmp",0,50:print 10,500
name "Succubus "
>Hehe... The feast just arrived. @
>Everyone, get him! ? \
name ""
name "Luka "
>Eh...? @ >Uwaa! \
name ""
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
lsp 700,":a;chara\end6_h1.bmp",0,0:print 10,500
>Succubi rush at me from every direction. @
>Completely taken by surprise, I'm held down in a sitting position while I'm   still in shock. \
mov %hseanwave,2:hseanwave
name "Lencubus "
>Nnn... *Kiss* *Lick* \
name ""
>Lencubus takes advantage of my open mouth, and gives me a deep kiss. @
>As her tongue rubs against mine, a sweet feeling fills my head. \
name "Luka "
>Ahh... \
name ""
>A relaxing feeling of weakness flows through me, as the Succubus passionately kisses me. \
name "Lencubus "
>The Hero tastes so good... Mmmm... *Kiss* \
name ""
name "Luka "
>Haa... Wait... \
name ""
>Still reeling from the sudden kiss, I can't manage to summon the strength to  push off the Succubi, who should be weaker than me. \
>With a seductive smile on her face, Maccubus positions herself against my     waist. \
name "Maccubus "
>Hehe... I'll feast on your power. @
>I'll spend a nice, long time using Level Drain to suck you dry... \
name ""
name "Luka "
>Wh...Why are you doing this? \
name ""
name "Maccubus "
>The world is at peace, so you don't need your power anymore, right? @
>So here... @ >Let me suck it all out from here... \
name ""
>Maccubus uses her fingers to spread open her vagina, showing it off in front  of my face. \
>The wet, bright pink flesh seems to pulse with desire, as if wanting nothing  more than me inside it... \
name "Luka "
>S...Stop this! \
name ""
name "Maccubus "
>Hehe... I'm so happy... @
>I get to suck up the semen from the Hero who saved the world! \
name ""
>With a lewd smile, Maccubus drops down, bringing my penis deep inside in one  stroke! \
name "Luka "
>Ahhh!!! \
name ""
lsp 700,":a;chara\end6_h2.bmp",0,0:print 10,500
>My penis is wrapped up by her soft flesh, her winding insides rubbing against my penis as I pierce her. @
>The incredible feeling of ecstasy from being inside a succubus' vagina        causes me to go limp in shocked pleasure. \
name "Maccubus "
>Ahaha... I swallowed it. ? @
>Master Hero, how does a succubus' pussy feel? \
>I'll give you a feast of pleasure inside me, so let's make this last a long   time. \
name ""
>Her soft vaginal walls clench down on my penis, locking me inside. @
>At the same time, another hole deep inside her sucks in my tip, as if an      inner mouth was sucking on me. \
>Just from insertion, I'm already writhing in unbearable pleasure. \
name "Luka "
>Ahh... L...Let me go... \
name ""
>She'll absorb my power if I ejaculate inside her. @
>I try to struggle against the pleasure, but no strength is filling my limbs.  \
>Once a Succubi starts to prey on a man, they aren't able to fight back... \
name "Lencubus "
>*Lick*... Nnn... \
name ""
>Lencubus starts to alternate between licking my face, and giving me deep      kisses. @
>As one Succubus rapes me, and another covers my face with her warm saliva, I  feel like I'm trapped in a torturous hell of pleasure. \
name "Luka "
>Ah... Haa... \
name ""
name "Maccubus "
>Oh my, what's wrong? @
>Your face seems to be getting all loose... \
name ""
>Frustrated at being controlled so easily by the Succubi, the sudden climax    takes me by surprise. @
>Unable to even try to hold it back, my body relaxes as the explosion of       pleasure runs through me. \
gosub *syasei1
lsp 700,":a;chara\end6_h3.bmp",0,0
gosub *syasei2
name "Luka "
>Haaa... \
name ""
>I explode inside her vagina, which made me helpless so quickly. @
>The sudden storm of ecstasy that came over me out of nowhere almost feels     like an accidental orgasm. \
name "Maccubus "
>Aha, you already came? @
>You didn't even last a minute after insertion... @ >You're just like a little    virgin. \
>You're so silly, Master Hero... Hehe. \
name ""
name "Luka "
>Ahhh... \
name ""
>The humiliation at being toyed with so easily mixes with the deep male        satisfaction at my orgasm. \
>The various emotions swirl around my head, as the afterglow of the orgasm     fills my senses. \
name "Maccubus "
>Hehe, you seem to have enjoyed your orgasm. @
>I made you feel good first, so now it's my turn, right? \
>Now it's my turn to be satisfied... @
>I'll suck up all your power... \
name ""
name "Luka "
>S...Stop... \
name ""
>Maccubus's body starts to glow with a faint, white light. @
>At the same time, I feel her vagina start to increase in temperature... \
name "Maccubus "
>Level Drain... \
name ""
name "Luka "
>Ah! @ >Ahhh!!! \
name ""
mov %hseanwave,15:hseanwave
>Her vagina slowly starts to squeeze and release, creating a suction inside    her. @
>The intense stimulation really feels like a powerful mouth is sucking hard on my penis. \
>At the same time, her vaginal walls compress and rub against my sensitive     penis. @
>The combination of pleasure is too much to take, leaving me a writhing mess   underneath her. \
name "Maccubus "
>Now come inside me... @
>Forget everything, and just give me everything... \
name ""
name "Luka "
>Ahhh!!! \
name ""
gosub *syasei1
lsp 700,":a;chara\end6_h4.bmp",0,0
gosub *syasei2
>Just as Maccubus demands, I explode inside her. @
>Unable to do anything, I shoot more semen into the succubus' vagina. \
>At the same time, a strange feeling of weakness comes over me. @
>Along with my orgasm, a small fragment of power was sucked out of me. \
name "Maccubus "
>Hehe... I sucked up a little bit of your power. @
>But as expected of the Hero who saved the world, there's so much... \
>I'll squeeze you for a long, long time until you're empty... \
>Here, like this... @
>I'll squeeze, and suck on you with my pussy... \
name ""
name "Luka "
>Haaa... \
name ""
>Her vaginal walls squeeze tighter, the wavy flesh massaging my penis as if it had a will of its own. @
>The touch alone is enough to make me tremble in ecstasy under her. \
name "Maccubus "
>Slowly tighten and massage... @
>And wring out your power... \
name ""
name "Luka "
>No... I'm going to come again... \
name ""
>The soft flesh presses around my penis from every side, leaving me barely     able to gasp between my moans of pleasure. \
>Becoming prey to a Succubus, and having all my energy squeezed out... @ >Even if I know what's happening, I can't fight against the pleasure to stop it. \
name "Maccubus "
>Now for the finishing blow with Level Drain... \
name ""
>The suction starts inside her vagina again, sucking on my penis. @
>Surrendering to that incredible touch, I gasp as I reach another climax. \
name "Luka "
>Haaa! \
name ""
gosub *syasei1
lsp 700,":a;chara\end6_h5.bmp",0,0
gosub *syasei2
>I explode inside her again, my semen spurting into her Succubus vagina. @
>Another strange feeling of weakness comes over me, but it isn't much. \
>Very little of my power is sucked out, but if this continues for a long time, it will slowly take a toll... \
name "Maccubus "
>Hehehe... We'll take a good, long time sucking you dry. @
>Of course it won't just be me, every Succubus in this village will have a     turn. \
>Even once you're dry, there's no need to worry. @
>We'll take care of you in this village forever. \
>It's your reward for saving the world. Hehehe... \
name ""
name "Luka "
>Ahh... \
name ""
mov %hseanwave,0:hseanwave
>Thus, I'm subjected to a continual Level Drain... @
>After a long time, eventually every drop of my power is sucked up by the      Succubi of the village. \
>Even after losing all of my power, they keep me captive in the village. @
>Every day, they treat me to a feast of carnal pleasure as a guest of honor in the village. \
>A horrible fate for a Hero... \
gosub *anten
>................. \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0


*city57b_11c

name "Sara "
>Well, we'll work out the troublesome stuff later. @
>We should do it first. \
name ""
name "Luka "
>Eh...? @ >Do what? \
name ""
name "Sara "
>"What"? @ >It's our marriage night, Luka. @
>So, how do you want it? \
>Do you want to stick it in yourself and do it normally? @
>Or perhaps a little rape roleplay...? \
name ""
name "Luka "
>W...What... It's too soon for this! \
name ""
name "Sara "
>Too soon? @ >It's our wedding night. \
name ""
name "Luka "
>B...But this is too sudden... \
name ""
lsp 700,":a;chara\sara_st13r.bmp",0,0:print 10,500
name "Sara "
>Ahhh geez! @ >Do you want me to rape you that badly? \
name ""
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
>Sara pushes me down as I'm fretting in confusion, easily stripping me of my   clothes and getting on top. \
lsp 700,":a;chara\sara_st12r.bmp",0,0:print 10,500
name "Sara "
>Look at you, your penis is already so big... @
>So you did want to be forced a little. \
name ""
name "Luka "
>N...No... @ >You're wrong... \
name ""
name "Sara "
>What do you mean I'm wrong? @
>Are you ashamed at having your bridge take the initiative on your wedding     night? \
name ""
>Sara grabs hold of my erect penis, and pushes it against her entrance. @
mov %hseanwave,2:hseanwave
lsp 700,":a;chara\end5_h1.bmp",0,0:print 10,500
>And drops down on top of me all at once! \
name "Luka "
>Ah! \
name ""
>My head goes pure white as soon as Sara violates me. @
>The feel of her soft flesh around my penis fills my every sense. \
>The soft pressure, her wet hole... It feels incredible just being inside her. \
name "Sara "
>Hehehe... Well? \
name ""
name "Luka "
>Ahh... It feels good... \
name ""
>Trembling, I lose control of myself inside of her. \
gosub *syasei1
lsp 700,":a;chara\end5_h2.bmp",0,0
gosub *syasei2
>And in no time, I come inside of her, my semen spurting into that amazing     hole. \
>I didn't even last ten seconds inside of her. @
>No matter how I think of this, it's clearly not normal. \
name "Luka "
>Y...You didn't... @ >Your Succubus power? \
name ""
name "Sara "
>Ehe... You found out? @
>I transformed just my pussy with my Succubus powers. \
>Thanks to it, you felt really good, didn't you? @
>You came right from insertion. ? \
name ""
name "Luka "
>I...I knew it... @
>Ah... \
name ""
>She slowly squeezes down on my penis with her vagina... @ >Infused with Succubus powers, it's enough to leave me completely at her mercy. \
name "Sara "
>Hehe... It's incredible, isn't it? @
>Just think... You can use this amazing pussy whenever you want. \
name ""
name "Luka "
>Uwaaa! \
name ""
>Sara squeezes my penis with her Succubus vagina, leaving me writhing in       unbearable pleasure under her. \
name "Sara "
>Hey... It's our wedding night, it's not nice to make the bride do all the     work. @
>You need to give it your best too, Luka. \
name ""
name "Luka "
>N...No way... \
name ""
name "Sara "
>Come on, you aren't going to let your bride ride you like this, are you? @
>Shouldn't your pride as a man make you go on some sort of counterattack? \
name ""
name "Luka "
>Guh... \
name ""
>I try to push up into her from below... But if I move inside her, I know I'd  come right away. \
>After moving less than an inch, I stop with a gasp of pleasure. @
>Seeing that, Sara looks down with a look of triumph on her face. \
name "Sara "
>Ahaha, is that it? @
>That's so pathetic, Dear. \
>Then I guess I'll attack you from this side. ? \
name ""
name "Luka "
>Ahhh!!! \
name ""
>Squeezing me tight inside her, Sara starts to violently move her waist. \
>My sensitive penis slips easily in and out of her wet vagina, the folds and   creases inside rubbing and pulling against my tip with each completed cycle.  \
>Feeling far too good, the desire to ejaculate again overtakes me in only      seconds. \
name "Luka "
>Ahh... I'm going to come again! \
name ""
name "Sara "
>What, already giving up? @
>Come on, I just moved a little bit and you're already surrendering to me? ? \
>Then I'll finish you off inside... @
>Now come! ? \
name ""
name "Luka "
>Ahhh!!! \
name ""
>Pressing down and pulling me deep inside, Sara squeezes on my penis, forcing  the feel of her warm flesh into me. \
gosub *syasei1
lsp 700,":a;chara\end5_h3.bmp",0,0
gosub *syasei2
name "Luka "
>Ahhh... \
name ""
>Unable to take it, my body spasms in ecstasy as I explode inside her again. @
>Sara stares into my eyes as I come inside her, and giggles. \
name "Sara "
>Hey, how does it feel? @
>Right after saving the world, losing to a Princess's pussy? \
name ""
>Sara grin and laughs as she looks at me. @
>Even if she's teasing me like this, I'm in no state to resist her. \
name ""
name "Sara "
>If I beat you down with my pussy some more, you won't be able to resist me... \
name ""
mov %hseanwave,16:hseanwave
>Smiling in triumph, Sara suddenly changes the stimulation in her vagina... @
>Her vagina starts to contract and release, pulling on me penis like it was a  mouth sucking on me. \
>Pleasure runs like electricity through my body, along with an incredible      sense of weakness. @
>This couldn't be... \
name "Luka "
>Are you... @ >Sucking my energy...? \
name ""
name "Sara "
>You've been completely dominated by your wife on our wedding night, Dear. @
>Your punishment is to be Energy Drained. ? \
name ""
name "Luka "
>Ahh... Don't suck... @
>Don't suck on me... \
name ""
>Sara starts using a Succubus skill to drain my energy through her vagina... @
>The incredible contractions pull and suck on my penis. \
>As would be expected, the pleasure from it is incredible, too... @
>It feels like my soul itself could be sucked out into Sara's vagina. \
name "Sara "
>Aha... I wonder if this is the first time the husband's energy has been       sucked on the wedding night? \
>We'll need to be careful, I wouldn't want to accidentally suck you to death   when we're newlyweds... ? \
name ""
name "Luka "
>Stop... Wait... @
>Ahh...! \
name ""
gosub *syasei1
lsp 700,":a;chara\end5_h4.bmp",0,0
gosub *syasei2
>As she sucks on my energy, I reach a powerful orgasm. @
>Exploding inside her, I shoot both my energy and my semen into Sara. \
name "Luka "
>Ahhh!!! \
name ""
name "Sara "
>Ahaha, a swift orgasm. @
>Look at you screaming and squirming. ? \
name ""
name "Luka "
>But... It feels too good! \
name ""
>Sara's Succubus vagina continues to suck and pull on me... @
>If it's like this, it's just like I'm prey to a Succubus... \
name "Luka "
>N...No... Ahh! \
name ""
gosub *syasei1:gosub *syasei2
name "Sara "
>Ahaha, you came again. @
>But I can make you come a lot more than this... \
>How does it feel, Luka? @
>Being treated like this on your wedding night? ? \
name ""
name "Luka "
>Haa... Stop... @
>Ahh! \
name ""
gosub *syasei1:gosub *syasei2
name "Sara "
>Ah... Luka's semen is so delicious... \
>I'm such a horrible bride... @
>I'm just feeding on all of this semen that should be used for making a        child... \
name ""
name "Luka "
>Ah...ah... \
name ""
gosub *syasei1:gosub *syasei2
>Since then, she brought me to orgasm after orgasm... @
>Until I fainted, Sara sucked up my energy with her Succubus vagina. \
>Once I woke up, she started again... @ >It kept going until nothing more came    out. \
>Of course she didn't take my life, but I was left unable to even move a       finger. \
mov %hseanwave,0:hseanwave
name "Sara "
>Ah... It's already morning. @
>Please treat me well from now on, Dear. ? \
name ""
name "Luka "
>Ah...uh... \
name ""
>After being preyed on by my new Succubus wife our first night together, I'm   completely drained of energy... \
gosub *anten
>................ \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0


*city55_14a

if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
name "Meia "
>Hehe... Then please enjoy this married woman's pussy. \
name ""
>Meia hugs me, bringing my face next to her soft, warm breasts. \
name "Luka "
>Nnnn... M...Meia... This... \
name ""
name "Meia "
>Hehehe... My husband loves being held like this. ? \
name ""
>While saying that, Meia presses her waist against me. @
>The tip of my already erect penis presses against her wet opening. \
name "Meia "
>Mmm... ? \
name ""
mov %hseanwave,2:hseanwave
lsp 700,":a;chara\end4_h1.bmp",0,0:print 10,500
>Pressing her waist against mine, Meia brings me inside her vagina! \
>Her folds rub against me as I slip inside, her already wet flesh letting me   slip in easily. \
name "Luka "
>Ahh!!! \
name ""
>The incredible touch of her leaves me moaning in no time. @
>The wet folds inside her seem to lick me clean at the same time. \
name "Meia "
>Hehehe, already moaning? @
>Oh my, Hero, you're so sensitive. ? \
name ""
name "Luka "
>But... @
>Your vagina feels so good, Meia... \
name ""
name "Meia "
>Hehe, that makes me so happy... ? \
name ""
>Meia presses the back of my head harder against her soft breasts. @
>At the same time, her warm vagina squeezes my penis, deep inside her. \
>It feels too good... @
>The comfortable pleasure invites me to a climax in only moments. \
name "Luka "
>Ahh... I'm going to come... \
name ""
name "Meia "
>Ara? @ >Already satisfied? @
>But even my husband can endure more... \
name ""
>Meia strokes my head as she giggles. \
name "Meia "
>Alright, then I'll tighten my insides... @
>I'm sure you'll come right away. \
>Please come right inside a married woman's pussy. ? \
name ""
name "Luka "
>Ahh... I...I shouldn't... \
name ""
>The immoral nature of what I'm doing attacks me again... @
>I can't come inside someone who's married...! \
name "Luka "
>Ah... Meia... Wait... \
name ""
name "Meia "
>I'll tighten... Now. ? \
name ""
name "Luka "
>No, wait... Ah! \
name ""
>Meia's vagina squeezes down, pressing her soft flesh against my penis. @
>With my mind focused on the immorality of what we're doing, my body loosens   in pleasure. \
gosub *syasei1
lsp 700,":a;chara\end4_h2.bmp",0,0
gosub *syasei2
name "Luka "
>Ahh... \
name ""
>I explode inside her, my semen shooting into the married mermaid's vagina. \
>Going slack in her embrace, I let the sensations from my orgasm flow through  my loose body. \
name "Meia "
>Hehehe... The face the Hero makes when he comes is so cute... ? \
name ""
>Meia smiles and giggles as I come inside her. @
>I came inside a married woman... @ >What am I doing...? \
name "Luka "
>I'm so sorry Meia... @ >Let's stop... \
name ""
>After I finish coming inside her, I try to pull myself out... \
name ""
name "Luka "
>Eh...? @ >N...No... \
name ""
name "Meia "
>Do you want to taste the technique I haven't even shown my husband yet? \
name ""
name "Luka "
>Ahhh!!! \
name ""
mov %hseanwave,5:hseanwave
>Deep inside her, something pulls in my glans. @
>It's as if a mouth inside her is sucking on my tip... \
name "Luka "
>Haa... What... Is this...? \
name ""
name "Meia "
>I sucked in your tip with my womb... @
>It's too soon for my husband. @ >But for you... \
name ""
name "Luka "
>N...No... Ahhh! \
name ""
>My waist shakes in ecstasy as her womb sucks on my glans. @
>The intense pleasure blows away my reason all at once. \
>It's like she's sucking everything from me... @
>There's no way I can endure this! \
name "Meia "
>You'll come right inside a married woman's womb... @
>Should we see if you get me pregnant? Hehehe. ? \
name ""
name "Luka "
>N...No... Not that... @
>Ahh! \
name ""
>No matter how much I try to endure, I'm helpless in front of this mad         pleasure. @
>With my body going limp, I surrender to the immoral ecstasy... \
gosub *syasei1
lsp 700,":a;chara\end4_h4.bmp",0,0
gosub *syasei2
name "Luka "
>Ahh... \
name ""
>My penis pulses, shooting semen straight into Meia's womb... @
>The guilt of having possibly gotten a married woman pregnant flows through me along with the pleasure from my orgasm. \
>Meia's vagina squeezes me as I come, accepting everything I have to shoot     into her... \
name "Luka "
>Ahh... \
name ""
name "Meia "
>Hehe... Are you satisfied? \
name ""
mov %hseanwave,0:hseanwave
>Meia holds me as I bask in the afterglow of my orgasm. @
>With that, I start an illicit relationship with a married mermaid... \
gosub *anten
>I become a captive of a mermaid's pussy. @
>In search of pleasure, I keep coming to Meia's embrace. \
>This illicit relationship continues, my heart slowly coming to belong to      Meia. @
>A captive of Meia, my life as a Hero ends... \
gosub *anten
>............. \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0

*city56b_13a

name "Luka "
>Sure, I'll help you out. \
name ""
lsp 701,":a;chara\valkyrie_st02.bmp",80,0:print 10,500
name "Valkyrie "
>Then the grudges I've... @
>No, I mean the questions I've built up... @ >Please hear them. \
name ""
>Valkyrie locks the door to the room. @
>Just then, I notice it's a trap! \
sean_change "bg060"
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov %hseanwave,17:hseanwave
csp 701
lsp 700,":a;chara\end3_h1.bmp",0,0:print 10,500
name "Luka "
>Ahhh... \
name ""
>Valkyrie squeezes my penis between her soft breasts... @
>And from behind, Cupid is pressing an arrow against my ass. \
>Their magic is holding me down, leaving me unable to resist... \
name "Luka "
>W...Why are you doing this...? \
name ""
name "Valkyrie "
>Divine punishment... @ >No, you don't deserve that. @
>The era of Ilias is over. \
>But I'm still not satisfied with this. @
>I just want you to feel some justice from the Heavens... \
name ""
name "Cupid "
>Let me help you out. ? @
>Hehe, spin, spin! ? \
name ""
name "Luka "
>Ahhh! \
name ""
>With a laugh, Cupid presses her arrow around inside my ass. @
>Full of some sort of aphrodisiac magic, each movement of the arrow sends      waves of pleasure through my body. \
name "Luka "
>Haa... Ahh! \
name ""
>The unique pleasure causes my waist to push forward, rubbing against          Valkyrie's breasts. @
>Pressing her breasts together, it's like she's trying to control an unruly    pet... \
name "Valkyrie "
>Now, please come on my chest... @
>Let your body tremble in shame as you climax. \
name ""
name "Luka "
>Ahh... \
name ""
>Despite her cold gaze, Valkyrie's breasts feel so warm... @
>Her soft breasts press back against my penis, crushing me in pleasure from    every direction. \
name "Luka "
>No... I'm going to come... \
name ""
name "Cupid "
>Ahaha, you're already going to come? \
name ""
>While laughing, Cupid continues moving her arrow gently in and out of my ass. \
name "Luka "
>Haa! \
name ""
>Pressing it inside me, the tip pokes against my prostate. @
>As the wave of pleasure washes over me, my waist trembles. \
name "Cupid "
>Aha, I pushed the male ejaculation switch. ? \
name ""
gosub *syasei1
lsp 700,":a;chara\end3_h2.bmp",0,0
gosub *syasei2
name "Luka "
>Haa... \
name ""
>As soon as she pressed against me like that, I climaxed. @
>From the front, Valkyrie squeezes her breasts together on my pulsing penis,   catching my semen on her chest. \
>My body trembles as I come on Valkyrie, weak from the forced orgasm. \
name "Valkyrie "
>...You let out quite a lot. @
>But it won't end with just this much. \
name ""
name "Cupid "
>Ehehe... Let's give him a taste of orgasm hell! ? \
name ""
name "Luka "
>S...Sto... Ahhh! \
name ""
>Cupid starts to attack me with her arrow like a piston. @
>Pressing against my prostate with each thrust, it's like she's actually       raping me. \
>From the front, my twitching penis rubs against Valkyrie's smooth skin as my  body jumps. @
>The combined sensations cause me to moan in pleasure, unable to stop myself.  \
name "Luka "
>I...It feels too good... Ahh! \
name ""
name "Valkyrie "
>So pitiful... @ >Are men truly helpless when their penis is being teased a       little? @
>Such a pathetic weak point... \
name ""
>Valkyrie's cold eyes bore into me as she squeezes me between her breasts. @
>Her glare makes it look like she's looking at something disgusting... \
name "Luka "
>Ahh... \
name ""
name "Cupid "
>Aha, it looks like he's going to come again soon. @
>Why don't you try making him come with your breasts this time, Valkyrie? \
name ""
name "Valkyrie "
>Very well... Now, please come between my breasts. \
name ""
name "Luka "
>Haa... Ahh... \
name ""
>Using her hands, Valkyrie starts to rub her breasts up and down in unison. @
>Her soft, smooth breasts become a weapon of pure pleasure... \
>Overwhelmed by that sweet pleasure, I let loose with desire. \
name "Luka "
>Ahh... \
name ""
gosub *syasei1
lsp 700,":a;chara\end3_h3.bmp",0,0
gosub *syasei2
>I explode again, my semen spurting out between her breasts. @
>After two ejaculations, her breasts are covered in semen... \
name "Luka "
>Haa... Ahh... \
name ""
name "Cupid "
>Ahaha, you don't get a rest! ? \
name ""
name "Valkyrie "
>It isn't going to end with just that. @
>We'll make you come until you can no longer stand... \
name ""
>The two angels don't let up at all... @ >Raped from the front and the back, I'm  left screaming in ecstasy in only minutes. \
name "Luka "
>Hyaaa!!! \
name ""
name "Valkyrie "
>It's useless to cry out... @
>This is our place, nobody else will ever come here. \
name ""
name "Cupid "
>For the next five hours, you get to receive the wrath of heaven! ? @
>Now that you know, hurry up and come again! ? \
name ""
>Valkyrie continues rubbing me with her breasts, at times pressing down hard   to crush me between her softness. \
>At the same time, Cupid's arrow continues pressing against my prostate,       violating me from behind. \
name "Luka "
>Haa... Ahhh! \
name ""
>The assault of pleasure overwhelms me from both sides. @
>Helpless between them, I'm quickly led to shoot out another white flag of     surrender... \
name "Luka "
>Ahh... I'm going to come again... \
name ""
name "Cupid "
>Aha, that makes three. ? \
name ""
name "Valkyrie "
>Already at the end of your endurance? @
>Go ahead and waste more semen on my breasts... \
name ""
name "Luka "
>Ahhh!!! \
name ""
gosub *syasei1
lsp 700,":a;chara\end3_h4.bmp",0,0
gosub *syasei2
>I explode again with a moan, my semen shooting straight onto Valkyrie's face. @
>Watching me during my orgasm, Valkyrie scowls with disgust. \
mov %hseanwave,0:hseanwave
name "Valkyrie "
>Defiling an angel's face? @ >Do you know what you're doing? @
>Polluting the face of an angel demands further punishment... \
name ""
name "Cupid "
>Valkyrie, let's change places... @
>This time I get his penis, and you get his ass! ? \
name ""
name "Valkyrie "
>Alright, let's switch. \
name ""
name "Luka "
>Stop this.... Haaa... \
name ""
>Ever since then, the teasing from these two angels continues on... \
gosub *anten
>............. \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0


*city53_14a

name "Queen Harpy "
>Hehe... Then please come to my house. \
name ""
>With a seductive smile, Queen Harpy leads me to her house... \
dwave 1,"se\asioto2.ogg"
sean_change "bg180"
>Wondering what hospitality she's offering, I follow her inside. @
lsp 702,":a;chara\hapy_a_st24.bmp",-240,0
lsp 700,":a;chara\hapy_bc_st21.bmp",20,0
lsp 701,":a;chara\hapy_bc_st32.bmp",260,0:print 10,500
>Inside, all of the village's harpies are gathered. \
>But contrary to what I thought, there's no feast lain out. @
>What does she mean by special hospitality...? \
cspl 701,702
lsp 700,":a;chara\queenhapy_st11.bmp",0,0:print 10,500
name "Queen Harpy "
>Now for our hospitality... \
name ""
lsp 702,":a;chara\hapy_a_st24.bmp",-240,0
lsp 700,":a;chara\hapy_bc_st21.bmp",20,0
lsp 701,":a;chara\hapy_bc_st32.bmp",260,0:print 10,500
name "Harpy "
>Alright, get him! ? \
name ""
name "Luka "
>Eh...? @ >Uwa! \
name ""
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
lsp 700,":a;chara\end2_h1.bmp",0,0:print 10,500
>Following Queen Harpy's signal, all of the harpies rush forward, and press    their bodies against me from all sides. \
>Completely off guard, I'm quickly bound. \
>Jumping on top of me, the feel of Queen Harpy's feathers makes me go weak for a moment. \
name "Queen Harpy "
>As the representative of our race, I'll mate with you first. @
>Please give me a lot... \
name ""
>With a seductive smile, Queen Harpy drops her waist. @
>My penis slowly slips inside her warm vagina, pushing past her soft feathers. \
name "Luka "
>W...Wait...! @
>Ahh! \
name ""
mov %hseanwave,4:hseanwave
>I'm deep inside her in only moments. @
>I can't help but moan in surprised pleasure at her touch. \
>Her hot, soft vagina presses down on me from every side. @
>As my tip presses against her deepest part, tiny little bumps rub against my  sensitive glans. \
name "Luka "
>Ahhh! \
name ""
name "Harpy "
>Aha, doesn't it feel great to be violated by the Queen? @
>Just look at his face, it's all loose! ? \
name ""
>A Harpy giggles as she watches my face loosen in pleasure. @
>Others are closely studying my face with varying looks of curiosity and       amusement. \
>The Queen is raping me as they all watch... @
>The humiliating situation just deepens all of the feelings running through    me. \
>Even more, the Queen isn't even moving her waist yet... @
>Just from insertion, I'm already on the verge of orgasm. \
name "Queen Harpy "
>Hehe, are you already near your limit? @
>Everyone, get a good look at his face as he comes... \
name ""
name "Luka "
>Ahh! \
name ""
>Queen Harpy slowly starts to tighten her vagina, clearly trying to bring me   to ejaculation quickly... \
>At the same time, the tiny bumps inside her vagina rub and stroke against me, all promoting the desire to come inside her that's filling my body... \
name "Luka "
>I'm going to come... Ah... \
name ""
>Finally surrendering, I relax my body as I give myself over to the ecstasy. \
gosub *syasei1:gosub *syasei2
name "Luka "
>Haa... \
name ""
>My body shakes as my penis pulses inside her, shooting off spurt after spurt  of semen into her warm insides. \
>As weakness washes over me, pure pleasure replaces the strength I used to     feel. \
mov %hseanwave,0:hseanwave
name "Harpy "
>Wah! @ >He already leaked... ? \
name ""
>Another Harpy closely stares at my face during my orgasm. @
>They're all watching me with mixed looks of curiosity and excitement as I     come. \
>All of them are looking at me so closely as I orgasm, every embarrassing face and sound I make... \
name "Luka "
>Ahh... @
>This is too embarrassing... \
name ""
name "Queen Harpy "
>Oh my, you came so much... @
>Should we let everyone watch you come next time? \
name ""
mov %hseanwave,7:hseanwave
>Queen Harpy, who hasn't moved until now, starts to slowly move her waist. @
>Very slowly, she moves side to side, and up and down. \
>The gentle roll of pleasure slowly builds up as my penis is moved around      inside her, causing my head to go blank. \
name "Luka "
>Ah... \
name ""
>Her wet walls rub against my penis as she sways side to side, the little      bumps deep inside her massaging my glans as she moves. \
>I can't endure this for even a minute... @
>I feel pathetic, but I can't help but surrender to her. \
name "Luka "
>No... I'm going to come again... \
name ""
name "Queen Harpy "
>Hehe, you really are easy... @
>Alright then, let's show everyone your ejaculation... \
name ""
>Queen Harpy slowly rises up, pulling my penis out of her vagina. \
>Right before I'm all the way out of her, she clenches down on the neck of my  penis and pulls on my tip. @
>The final stimulation acts as the finishing blow, sending me over. \
name "Luka "
>Ahhh!!! \
name ""
gosub *syasei1
lsp 700,":a;chara\end2_h2.bmp",0,0
gosub *syasei2
>The same instant I'm completely out of her vagina, I reach a powerful orgasm. @
>With my whole body shaking in a powerful climax, I come right into the air. \
lsp 700,":a;chara\end2_h3.bmp",0,0:print 10,500
>It lands back down all over my body, causing me to pollute myself with my own semen. \
mov %hseanwave,0:hseanwave
name "Harpy "
>Waah! @ >Look at how much he shot! \
name ""
>The eyes of the Harpies surrounding me all go bright with amusement and       interest. @
>The ones who had semen land on their feathers all go to lick it up. \
name "Queen Harpy "
>Oh my, oh my... @ >I thought you might dribble a little bit onto your stomach. @
>But to shoot out so much all over the place... @ >Aren't you just a naughty      little boy? \
name ""
>Queen Harpy looks down at me and giggles, her eyes taking in all the semen I  spilled everywhere. \
name "Harpy "
>My Queen... @ >We want more semen... \
name ""
>One of the Harpies who was licking up the semen on her feathers calls out to  the Queen. \
name "Queen Harpy "
>I see... @ >Then we'll need to ask our honored guest for some more. \
name ""
mov %hseanwave,17:hseanwave
>The Queen spreads open her legs, and starts to rub her thighs against my      penis. @
>Moving her body up and down, her smooth skin rubs against my sensitive penis  in a rhythm. \
>Her ticklish feathers rub against my shaft from the sides, as the back of my  penis rubs against the wet entrance to her vagina. \
name "Luka "
>Ahhh!!! \
name ""
name "Queen Harpy "
>You won't be able to last that long with this, will you? @
>Everyone, make sure you can get a good view of his penis as he ejaculates. \
name ""
name "Luka "
>No... I'm going to come again... @
>Ahh! \
name ""
gosub *syasei1
lsp 700,":a;chara\end2_h4.bmp",0,0
gosub *syasei2
>As the Queen violates me with intercrural sex, I finally succumb to the       rising climax. @
lsp 700,":a;chara\end2_h5.bmp",0,0:print 10,500
>My semen shoots straight into the air, landing back down on all the closely   watching Harpies. \
mov %hseanwave,0:hseanwave
name "Harpy "
>Waah... So much semen! ? \
name ""
>The Harpies all happily start licking up my semen as the Queen stares at me,  satisfied. @
>Her gaze slowly drops as she meets my eyes with a smile. \
name "Queen Harpy "
>Hehe... You are a guest of honor in our village. \
>We'll keep entertaining you forever, so just give us a delicious feast of     semen in return... \
name ""
name "Luka "
>Ahh... \
name ""
>It doesn't seem like I'll be able to escape from this village. @
>This obscene feast will never end... \
gosub *anten
>.............. \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0


*city52_14a

lsp 700,":a;chara\vgirl_st02.bmp",0,0:print 10,500
name "Vampire Girl "
>Nnn... *Kiss* \
name ""
dwave 1,"se\ero_chupa2.ogg"
>Vampire Girl clings to my body, and kisses me softly on the lips. \
name "Luka "
>Nnn... \
name ""
>A sweet sensation runs through my body, as I go limp in her kiss. @
>Her soft lips press harder against me, her small tongue eagerly rubbing       against mine. \
name "Luka "
>Haa... Ahh... \
name ""
lsp 700,":a;chara\dragonp_st01.bmp",-180,0
lsp 701,":a;chara\pramia_st01.bmp",180,0:print 10,500
name "Dragon Pup "
>Uga! @ >It worked! \
name ""
name "Tiny Lamia "
>Alright, bring him inside! \
name ""
>The three of them lift me up and carry me off, my body momentarily too weak   to resist. \
sean_change "bg179"
>They bring me to a barn just outside of town. @
>Too weak to stop them, the three little monsters kidnapped me... \
>Then... \
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov %hseanwave,1:hseanwave
lsp 700,":a;chara\end1_h1.bmp",0,0:print 10,500
name "Luka "
>Ahh... \
name ""
>Since then, the little monster girls have been using me for their amusement. @
>Kept in the barn, they rape me on a daily basis. \
name "Vampire Girl "
>Hehe, how do you like my waist movements? @
>Take this, and this. ? \
name ""
>Sitting astride me, Vampire Girl's tight vagina is clenching down on my       penis. @
>At the same time, she's grinding her small body back and forth against me. \
name "Luka "
>Uwa! \
name ""
>My body jerks up in intense pleasure at the movements. @
>The other two girls hold me from both sides, keeping me still as she rides    me. \
name "Dragon Pup "
>*Lick* *Lick* \
name ""
name "Tiny Lamia "
>*Lick* \
name ""
>Their tongues reach out and play with my nipples, filling my upper body with  the ticklish pleasure. \
name "Luka "
>Stop... Ahhh! \
name ""
>The relentless tonguing on my nipples brings me to the very limit. @
>At the same time, my hard penis is stuck deep inside Vampire Girl's tiny      vagina. \
name "Vampire Girl "
>Hehehe... I'll try a new skill today. @
>I'll squeeze out your semen with Energy Drain! \
name ""
name "Luka "
>W...Wait... Ahh! \
name ""
>Vampire Girl's vagina swells up with magic power, causing her temperature to  sharply rise. @
>At the same time, her vaginal walls tense up and stick to my penis. \
>Infused with magic power, her soft flesh starts to pull on my penis, as if    she was sucking on me with her vagina. @
>My body slackens, as the suction feels like I'm already ejaculating before    even an orgasm. \
name "Luka "
>Haaa... Don't suck... @
>I'm going to come...! \
name ""
name "Vampire Girl "
>Hehe... It looks like the Hero is at his limit. @
>The Hero who saved the world is now our own personal toy... Hehe. \
name ""
>Far from weakening it, she starts to put even more effort into the suction. @
>Infusing even more magic into her vagina, Vampire Girl's face flushes as her  small vagina squeezes down harder on me. \
lsp 700,":a;chara\end1_h2.bmp",0,0:print 10,500
name "Vampire Girl "
>Nnn... This is the finish... @
>Be finished inside me! \
name ""
name "Luka "
>Haaa!!! \
name ""
>As the suction pulls at me with unnatural ecstasy, I stop trying to resist    her. @
>Giving myself over to the feelings, I let out a sigh as I reach a climax. \
gosub *syasei1
lsp 700,":a;chara\end1_h3.bmp",0,0
gosub *syasei2
>I explode inside the small Vampire's vagina. @
>As if my energy and soul itself is being sucked out, I feel myself becoming a captive to this pleasure... \
name "Luka "
>Ahhh... \
name ""
>As the flood of ecstasy fills my body, the sense of defeat is complete. @
>Even though these girls are so much weaker, I can't resist them. \
>I can only shiver in pleasure as Vampire Girl rides on top of me. \
lsp 700,":a;chara\end1_h4.bmp",0,0:print 10,500
name "Vampire Girl "
>Hehehe... You let out so much! @
>Does my Energy Drain feel that good? \
>Do you want me to draw out even more? @
>I'll give you some extra special service today... \
name ""
name "Luka "
>Ah! @ >Hya! \
name ""
>Right after my ejaculation, her vagina is already sucking on my penis again. @
>Without giving me a break, Vampire Girl already restarts her Energy Drain...  \
>More energy is drawn out of my sensitive penis... @
>I moan as the humiliation and ecstasy mix together inside my head. \
name "Tiny Lamia "
>*Lick* @ >...Hey, that's no fair! @ >You don't get two turns in a row! \
name ""
name "Dragon Pup "
>*Lick* @ 
>It was my turn next... \
name ""
>The other two girls mutter as they continue to lick my nipples. @
>Their wet touch makes the rest of my body extra sensitive... \
name "Vampire Girl "
>Hehehe... Sorry. @
>Luka's penis just wants me to suck on it so bad. ? \
name ""
name "Luka "
>Ahhh... \
name ""
>As my energy is sucked up into her vagina, the desire to release again slowly wells up. @
>If I come now, she'll just suck it up as more food for her... \
name "Luka "
>Ahh... Get off... @
>I'm going to come again... \
name ""
name "Vampire Girl "
>Hehehe... I won't let you go. @
>Give me more of your fresh semen! \
name ""
>Grinding against me, her tiny vagina squeezes down even harder on me as she   moves to finish me off. @
>As my head goes blank in pleasure, I relax my body and soak in the climax. \
gosub *syasei1
lsp 700,":a;chara\end1_h5.bmp",0,0
gosub *syasei2
name "Luka "
>Haa... \
name ""
>With a soft moan, I explode inside her small body again. @
>Unable to resist her at all, she easily brought me to another orgasm... \
name "Vampire Girl "
>Hehe, you leaked out again. @
>I'll suck it all up... \
name ""
>She shrinks and contracts her small vagina, creating a suction. @
>My semen is slowly pulled deeper inside her small body, as if she truly was   drinking it all up. \
>Those small contractions themselves stimulate me even further, brining forth  more spasms of pleasure. \
name "Luka "
>Ah... Ahh... \
name ""
>I sigh in pure ecstasy as I feel my semen being drawn up by her. @
>I've already been made completely helpless to these girls... \
name "Vampire Girl "
>He's a total slave to my vagina. @
>Hehehe... He's my prey today. \
name ""
name "Tiny Lamia "
>No fair, no fair! @
>I've been licking his nipple until it's all wrinkly! \
name ""
name "Dragon Pup "
>Uga... @ >Then I get to make him a slave tomorrow! \
name ""
>The two other monster girls continue licking my nipples as Vampire Girl's     rape continues. @
>Like this, they continue to force me to ejaculate all day... \
name "Luka "
>Haa... \
name ""
gosub *syasei1
lsp 700,":a;chara\end1_h6.bmp",0,0
gosub *syasei2
mov %hseanwave,0:hseanwave
>Every day, the girls come here and rape me until I pass out. @
>The rest of my days live out as a toy to these small girls. \
>A pitiful end for a Hero... \
gosub *anten
>............. \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0

;-----??????(END)-----




*zukan_granberia5

mov $zname,"Granberia (END) "
mov $zlavel,"granberia5"
mov $zukan_ko,"None "
mov %zukan_facenum,6
mov %zukan_posenum,2
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,2
if %hsean_shitenno5=0 mov %hscene1,0
if %hsean_shitenno5>0 mov %hscene1,1
if %hsean_shitenno1=0 mov %hscene2,0
if %hsean_shitenno1>0 mov %hscene2,1
mov %zukancg,1
mov %zukan_x1,-185
mov %zukan_x2,0
mov $zukan_lv,"126"
mov $zukan_hp,"24000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_granberia5_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\granend.jpg",400,0	
goto *zukan_kihonbtn



*zukan_granberia5_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\granberia_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\granberia_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\granberia_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\granberia_st04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\granberia_st05.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\granberia_st06.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\granberia_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\granberia_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\granberia_st13.bmp",%zukan_x0,0
return



*zukan_granberia5_cg

if %hsean_shitenno5=0 skip 10
lsp 500,":c;bg\bg218.bmp",0,0
lsp 430,":a;chara\granberia_he1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\granberia_he2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\granberia_he3.bmp",0,0
print 10,500:lrclick
if %hsean_shitenno1=0 return "*zukan_"+$zlavel
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 500,":c;bg\bg047.bmp",0,0
lsp 430,":a;chara\granberia_hf1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\granberia_ct11.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\granberia_hf2.bmp",0,0
lsp 420,":a;chara\granberia_ct12.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\granberia_hf3.bmp",0,0
lsp 420,":a;chara\granberia_ct13.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_granberia5_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,80
mov %skill01,21
mov %skill02,5
mov %skill03,5
mov %skill04,5
mov %skill05,5
mov %item01,10
gosub *setwindow_01
if %bwait=213 lsp 700,":a;chara\granberia_st07.bmp",-160,0
if %bwait=213 lsp 701,":a;chara\arumaeruma_st13.bmp",160,0
if %bwait=214 lsp 700,":a;chara\granberia_st03.bmp",0,0
if %bwait=213 bg "bg\bg218.bmp",10,1500
if %bwait=214 bg "bg\bg047.bmp",10,1500
if %bwait=213 bgm"bgm\kiki2.ogg"
if %bwait=214 bgm"bgm\Colosseum.ogg"
if %bwait=213 goto *city45_11j
if %bwait=214 goto *city62_15c


*city45_11j

name "Alma Elma "
>Caught you. ? \
name ""
>Alma Elma grabs hold of Granberia. @
>Her almost playful grapple is devoid of any bloodthirst, leaving a Serene     State useless. \
name "Granberia "
>Get off! \
name ""
>Granberia struggles intensely... @
>But suddenly her body jumps in surprise. \
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
name "Granberia "
>...! @ >Haa...! \
name ""
lsp 701,":a;chara\arumaeruma_st13.bmp",160,0:print 10,500
name "Alma Elma "
>And the match has been decided. ? \
name ""
>Alma Elma starts to caress Granberia's body, slipping her hands through her   armor's opening. \
>The sweet, seductive caresses continue as Granberia struggles and rages to    get Alma Elma off her. \
name "Granberia "
>I...I won't... To this much...! \
name ""
>Though she says that, her movements are slowing down. @
>It's taking all of her concentration just to resist what she's feeling. \
name "Alma Elma "
>Haha... Granberry, you're really weak to pleasure attacks, aren't you? ? \
name ""
name "Granberia "
>F...Fine... @ >I yield... \
name ""
>Something Granberia would never say in a normal fight. @
>But Alma Elma tramples on them in this situation. \
name "Alma Elma "
>Hehe... I don't accept. @
>I'll need to carve this defeat into your body... \
name ""
>Alma Elma strips Granberia of her armor. @
lsp 700,":a;chara\granberia_he1.bmp",0,0:print 10,500
>Deftly taking her own clothes off at the same time, she presses her large     breasts against Granberia's. \
>And like that, starts to rub her own breasts against hers. \
name "Granberia "
>S...Stop! @ >Get off me! \
name ""
name "Alma Elma "
>Hehe... Isn't this what you wanted when you challenged me? @
>To feel the joys of a woman, after so long? \
>I was the one who first taught you them, after all. ? \
name ""
name "Granberia "
>D...Don't fool around! @
>To this rape, I would never... \
name ""
>Granberia twists and squirms to escape, but is too firmly held against Alma   Elma's body to go anywhere. \
name "Alma Elma "
>Then I'll give you a piece of paradise here... @
>Hehe, it's going just as you hoped, isn't it? \
name ""
name "Granberia "
>Y...You're wrong! @ >Ah! \
name ""
lsp 700,":a;chara\granberia_he2.bmp",0,0:print 10,500
>Alma Elma reaches down to Granberia's vagina. @
>Her nimble finger slowly traces around her entrance. \
name "Granberia "
>Guh... \
name ""
>Granberia's body trembles as she holds back her own voice. @
>It's all she can do to endure the finger tracing around her vagina... \
name "Alma Elma "
>Look at how wet you're getting... @ >Such an obscene body you have. @
>See... You wanted to do this, didn't you? \
name ""
name "Granberia "
>Wh...Who would... Nnn! \
name ""
>When Granberia opens her mouth, her refusal is interrupted by a sweet moan. @
>She quickly clamps her mouth shut again, going back to trying to endure what  she's feeling. \
name "Alma Elma "
>Hehe... Do you want me to put my finger in? @
>This finger that took Granberry's virginity? \
name ""
name "Granberia "
>S...Stop... Don't do that! \
name ""
name "Alma Elma "
>It has been a while, so I'm going to make you come over and over. @
>Now, I'll rape you with my finger... ? \
name ""
mov %hseanwave,3:hseanwave
lsp 700,":a;chara\granberia_he3.bmp",0,0:print 10,500
>Alma Elma's finger slowly circles around her vagina, getting closer to her    entrance... @
>Arriving at her slit, she slowly pushes her finger inside. \
name "Granberia "
>...! \
name ""
>Granberia's body jumps as she holds her voice back. @
>Alma Elma continues slowly moving her finger, giggling. \
name "Alma Elma "
>Hehe... You're getting tighter and tighter Granberry. @
>This tightness would make a man come in seconds, you know? \
name ""
name "Granberia "
>Tch...! \
name ""
name "Alma Elma "
>Are you so ashamed of your own moans that much? @
>You always reach orgasm while biting it back, after all. ? \
>...Here, I'll make you come with my finger now. @
>By using this finger you love so much, right inside here... \
name ""
name "Granberia "
>~~~~~~~~~~!!! \
name ""
>Granberia's body suddenly spasms. \
>Her eyes go wide, but she still holds her voice back. @
>Alma Elma used her finger to force her to come in seconds... \
mov %hseanwave,0:hseanwave
name "Alma Elma "
>And off you go to paradise... @
>Did it feel good, Granberry? ? \
>Hehe... I win again. @
>This makes forty three wins in a row. ? \
name ""
>Alma Elma licks her finger, covered in Granberia's wetness. \
name "Granberia "
>............ \
name ""
>Granberia's eyes are unfocused, as her breathing gets rougher. @
>She seems to be immersed in the afterglow of her orgasm... \
name "Luka "
>Wow... \
name ""
>I just saw something incredible... \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0

*city62_15c

name "Granberia "
>...Though, a win is a win. @
>Now, I challenge you to a match in the bed! \
name ""
>With her brute strength, Granberia tears off my clothes. @
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
lsp 700,":a;chara\granberia_hf1.bmp",0,0:print 10,500
>And, stripping off her own clothes, jumps on me! \
name "Luka "
>W...What are you doing all of a sudden!? \
name ""
name "Granberia "
>...What are you complaining about? @
>You're clearly looking forward to this match! \
name ""
>Granberia presses her ass against my penis, slowly getting erect. @
>She angles it right toward her entrance... \
name "Granberia "
if %con_hvoice=0 dwave 13,"voice\granberia5_01.ogg"
>Now, I'll put it in. 
>I wonder how long you can resist? \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
\
name ""
dwavestop 13
name "Luka "
>W...Wai... @ >Hyaa! \
name ""
mov %hseanwave,4:hseanwave
lsp 690,":a;chara\granberia_ct11.bmp",0,0:print 10,500
>Granberia pushes her waist against me, and takes me deep inside! \
name "Granberia "
if %con_hvoice=0 dwave 13,"voice\granberia5_02.ogg"
>Hoora... I brought your thing into me. 
>What's wrong? You aren't going to fight? \
if %con_hvoice=0 && %sinkouonoff=2 delay 9000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ah...ah... \
name ""
>Her vagina is so hot, it feels like I could melt inside her... @
>And it's so tight inside of her... @ >Her vagina must be surrounded by powerful  muscles. \
>All the way from my root to tip, I can feel her soft, hot flesh squeezing me  like a hand. \
name "Granberia "
if %con_hvoice=0 dwave 13,"voice\granberia5_03.ogg"
>Well... How does it feel inside me? \
if %con_hvoice=0 && %sinkouonoff=2 delay 6000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ah... It feels so good... \
name ""
>A smirk of satisfaction crosses Granberia's face as she watches me. \
name "Granberia "
if %con_hvoice=0 dwave 13,"voice\granberia5_04.ogg"
>It's my complete advantage from the start... 
>...In that case, I'll go full on right away! \
if %con_hvoice=0 && %sinkouonoff=2 delay 7000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Eh...? @
>Ah...! \
name ""
>Suddenly, Granberia starts to bounce up and down, riding me like a piston! @
>Each time she moves, her tight vagina clamps down even harder around me. \
>Her quick movements cause her tight flesh to rub hard against me, leaving me  breathless. \
name "Granberia "
if %con_hvoice=0 dwave 13,"voice\granberia5_05.ogg"
>Hoora... How about this!? \
if %con_hvoice=0 && %sinkouonoff=2 delay 3000-%autotime
\
name ""
dwavestop 13
>Using her trained body as a spring to bounce up and down, her piston          movements only get faster as time goes on. \
>Subjected to this intense stimulation, no amount of resistance will let me    hold on. \
name "Granberia "
if %con_hvoice=0 dwave 13,"voice\granberia5_06.ogg"
>What's wrong? Just writhing in agony? 
>Don't tell me you lost the will to counterattack with just that!? \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahg... Urhg... \
name ""
>My waist pushes up into her... @ >But it's not for a counterattack. \
gosub *syasei1
lsp 700,":a;chara\granberia_hf2.bmp",0,0
lsp 690,":a;chara\granberia_ct12.bmp",0,0
gosub *syasei2
>Not even countering, I instead shoot out my flag of surrender. @
>I was forced to submit in only seconds... \
name "Luka "
>Ahhh... \
name ""
name "Granberia "
if %con_hvoice=0 dwave 13,"voice\granberia5_07.ogg"
>Surely... You didn't leak with just that? \
if %con_hvoice=0 && %sinkouonoff=2 delay 5000-%autotime
\
name ""
dwavestop 13
>Granberia looks both surprised and disappointed. @
>The mix of pleasure and humiliation in my own mind makes my face go bright    red. \
name "Granberia "
if %con_hvoice=0 dwave 13,"voice\granberia5_08.ogg"
>So it is this easy to force men to ejaculate... 
>An instant loss, just from moving my waist a little... A rather               anti-climactic finish. \
if %con_hvoice=0 && %sinkouonoff=2 delay 10000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\granberia5_09.ogg"
>Aren't you ashamed at coming so easily inside me? \
if %con_hvoice=0 && %sinkouonoff=2 delay 6000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Urhg... \
name ""
>Granberia's surprise makes the humiliation all the deeper. @
>At the same time, she starts to slowly continue moving. \
name "Granberia "
if %con_hvoice=0 dwave 13,"voice\granberia5_10.ogg"
>I can't feel happy from a win like that. 
>Well? Are you frustrated? Try counterattacking. \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\granberia5_11.ogg"
>You're a man, aren't you? 
>Don't you feel miserable from being overpowered by a woman on a bed like      this? \
if %con_hvoice=0 && %sinkouonoff=2 delay 7000-%autotime
\
name ""
dwavestop 13
>As she taunts me, I feel my fighting spirit start to rise somehow. @
>I don't want it to end like this...! \
>At the least, I'll get in one good blow! \
name "Luka "
>Uh... Rrhg! \
name ""
>I thrust up into her from below, my penis pushing deep into Granberia... \
name "Granberia "
if %con_hvoice=0 dwave 13,"voice\granberia5_12.ogg"
>...It's like child's play. 
>Were you trying to attack me? \
if %con_hvoice=0 && %sinkouonoff=2 delay 5000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ah... Hya! \
name ""
mov %hseanwave,7:hseanwave
>Granberia suddenly tightens her vagina around my tip, halting my              counterattack. @
>Without even moving, she completely overpowered me again... \
name "Luka "
>Ahh... So tight... \
name ""
>She continues to use her female weapons to mercilessly defeat me. @
>Able to do nothing but moan and climax, I'm left helpless underneath her as   Granberia toys around with me. \
>Granberia stares down at me as she toys with me... @
>Her face is slowly brightening as she starts to enjoy this feeling. \
name "Granberia "
if %con_hvoice=0 dwave 13,"voice\granberia5_13.ogg"
>You seem to understand that you can't do anything... 
>Apparently this seems to be my complete victory! \
if %con_hvoice=0 && %sinkouonoff=2 delay 9000-%autotime
\
name ""
dwavestop 13
>While violently moving up and down, Granberia continues to squeeze me with    her vagina. \
name "Luka "
>Ahhh! @ >Ah! \
name ""
>I'm at her complete mercy... \
>There's no fighting back, it's Granberia's total victory. \
name "Luka "
>Ah... \
name ""
>While riding me, Granberia squeezes down hard as I near another climax. @
>My penis starts to pulse inside of her, as I approach another surrender to    her. \
name "Granberia "
if %con_hvoice=0 dwave 13,"voice\granberia5_14.ogg"
>Hoora... I'll finish you off. 
>Now, shoot out the proof of your defeat into me! \
if %con_hvoice=0 && %sinkouonoff=2 delay 9000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahhh! \
name ""
>Granberia uses her powerful muscles to squeeze my tip inside of her... \
gosub *syasei1
lsp 700,":a;chara\granberia_hf3.bmp",0,0
lsp 690,":a;chara\granberia_ct13.bmp",0,0
gosub *syasei2
>And just as she wanted, I come inside of her. @
>All during my orgasm, Granberia stares into my eyes with a smile. \
mov %hseanwave,0:hseanwave
name "Luka "
>Ahh... \
name ""
name "Granberia "
if %con_hvoice=0 dwave 13,"voice\granberia5_15.ogg"
>...Miserable. 
>Getting such a loose face, after being defeated... \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
\
name ""
dwavestop 13
>Granberia looks down at me satisfied, a new look of sadism on her face. \
gosub *anten
>With this "Battle", our relationship is defined. \
>Every day, we train together in our swordplay, growing stronger. @
>But in bed, she makes me taste defeat as a man... \
>Thus, I give myself over to these nights of defeat. @
>I spend every night with Granberia, tasting the pleasure of defeat... \
>.............. \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0


;-----??????(END)-----




*zukan_arumaeruma4

mov $zname,"Alma Elma (END) "
mov $zlavel,"arumaeruma4"
mov $zukan_ko,"None "
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"125"
mov $zukan_hp,"15000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_arumaeruma4_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\almaend.jpg",400,0	
goto *zukan_kihonbtn



*zukan_arumaeruma4_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\arumaeruma_st11.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\arumaeruma_st12.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\arumaeruma_st13.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\arumaeruma_st21.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\arumaeruma_st22.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\arumaeruma_st23.bmp",%zukan_x0,0
return



*zukan_arumaeruma4_cg

lsp 500,":c;bg\bg084.bmp",0,0
lsp 430,":a;chara\arumaeruma_hg1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_hg2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_hg3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_arumaeruma4_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,80
mov %skill01,21
mov %skill02,5
mov %skill03,5
mov %skill04,5
mov %skill05,5
mov %item01,10
gosub *setwindow_01
lsp 700,":a;chara\arumaeruma_hg1.bmp",0,0
bg "bg\bg084.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *city59_17c


*city59_17c

if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
lsp 700,":a;chara\arumaeruma_hg1.bmp",0,0:print 10,500
name "Luka "
>Ahhg... \
name ""
>Alma's tail coils around me, and seals off my movements in no time. @
>Before I can blink, she has already stripped off my clothes. \
name "Luka "
>W...Why...? \
name ""
name "Alma Elma "
>Just like Granberry... @
>You honest, straightforward sword types are easy to read. \
>And most importantly... @ >You never show your true power when your opponent     isn't a bad person. ? \
name ""
name "Luka "
>Ahh...! \
name ""
name "Spectator A "
>No man has ever escaped from Kyuba's tail. @
>The fight's over...! \
name ""
name "Spectator B "
>I wonder how she's going to deal with that boy...? ? \
name ""
>Now that the match has been decided, the audience is starting to get excited. @
>All of the women are on the edge of their seats, all eager to see me get      raped... \
name "Alma Elma "
if %con_hvoice=0 dwave 13,"voice\arumaeruma5_01.ogg"
>You look like a mess, Luka... 
>Now, it's time for some fun. ? \
if %con_hvoice=0 && %sinkouonoff=2 delay 7000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\arumaeruma5_02.ogg"
>I'll use my breasts today to finish you o-f-f. ? \
if %con_hvoice=0 && %sinkouonoff=2 delay 6000-%autotime
\
name ""
dwavestop 13
>Before I can say anything, Alma presses her breasts against my groin! \
name "Luka "
>Ahh! \
name ""
mov %hseanwave,17:hseanwave
>My penis sinks into her huge chest, her right and left breasts pressing       against me. @
>So warm and soft... @ >Just the feeling of being between them makes me moan. \
name "Luka "
>Ahh... That feels good... \
name ""
name "Alma Elma "
if %con_hvoice=0 dwave 13,"voice\arumaeruma5_03.ogg"
>I'll take you to paradise now. 
>Hoora... Energy Drain... ? \
if %con_hvoice=0 && %sinkouonoff=2 delay 7000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Haa... Ah... \
name ""
>As Alma's body lightly glows light, my brain explodes in pure pleasure. @
>I feel my energy leaking out through my penis, with shocks of ecstasy filling my body in its place. \
>It's like she took away my sanity all at once. \
name "Luka "
>Ah...ah... \
name ""
name "Alma Elma "
if %con_hvoice=0 dwave 13,"voice\arumaeruma5_04.ogg"
>Ara, what's wrong? 
>Your face is looking really embarrassing, you know? \
if %con_hvoice=0 && %sinkouonoff=2 delay 6000-%autotime
\
name ""
dwavestop 13
>Alma giggles as she looks at my loose face. \
name "Spectator A "
>Woah... Incredible... @
>She can even use energy drain with her breasts...! \
name ""
name "Spectator B "
>Make him come! \
name ""
name "Spectator C "
>Why isn't that boy resisting? @
>He's just letting her do whatever she wants... @ >That's kind of sad. \
name ""
>Some of the audience is clapping, impressed at Alma's skills. @
>Others are laughing at me, and making comments to their friends... \
name "Alma Elma "
if %con_hvoice=0 dwave 13,"voice\arumaeruma5_05.ogg"
>Hehe, the customers seem pleased, too. 
>Now to tease your penis with my breasts... \
if %con_hvoice=0 && %sinkouonoff=2 delay 11000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\arumaeruma5_06.ogg"
>When you can't endure it any longer, just Pew Pew it out! ? \
if %con_hvoice=0 && %sinkouonoff=2 delay 5000-%autotime
\
name ""
dwavestop 13
>Putting her hands on her breasts, Alma starts to increase the pressure on my  penis. @
>While still draining my energy, her soft breasts slowly start to crush my     penis between them. \
name "Luka "
>Ahh...ah... \
name ""
name "Alma Elma "
if %con_hvoice=0 dwave 13,"voice\arumaeruma5_07.ogg"
>Arara... Did it feel so good, you lost the ability to speak? 
>Are you that happy at being the prey of a succubus' breasts? ? \
if %con_hvoice=0 && %sinkouonoff=2 delay 11000-%autotime
\
name ""
dwavestop 13
>Alma starts to slowly shake her breasts side to side. @
>Her soft skin rubs against my penis, sandwiched between them. \
>Crushed in her softness, I feel my patience quickly nearing its limit. @
>A tingling sensation rises up through my waist as Alma continues slowly       moving her breasts. \
name "Luka "
>Haa... I'm going to come... \
name ""
name "Alma Elma "
if %con_hvoice=0 dwave 13,"voice\arumaeruma5_08.ogg"
>Then... This is the finishing blow. 
>Hoora... Come all over my breasts. ? \
if %con_hvoice=0 && %sinkouonoff=2 delay 7000-%autotime
\
name ""
dwavestop 13
>Alma presses even harder on her breasts, squeezing me between them. @
>My head goes pure white as I lose all control. \
name "Luka "
>Ahhh... \
name ""
gosub *syasei1
lsp 700,":a;chara\arumaeruma_hg2.bmp",0,0
gosub *syasei2
>Tasting incredible pleasure, I explode on her breasts, covering them with     semen. @
>My mind melts in pure ecstasy as my orgasm combines with the energy drain,    leaving me completely weak. \
>The audience all starts to laugh and clap as my semen shoots onto her. \
name "Alma Elma "
if %con_hvoice=0 dwave 13,"voice\arumaeruma5_09.ogg"
>Aha... Luka's shameful juice got my breasts all dirty. 
>It felt great, didn't it? Hehe. ? \
if %con_hvoice=0 && %sinkouonoff=2 delay 9000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\arumaeruma5_10.ogg"
>What a shameful child... Leaking all over my breasts. 
>A child like that needs lots of punishment... ? \
if %con_hvoice=0 && %sinkouonoff=2 delay 10000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ah... \
name ""
>Alma starts to bounce her breasts up and down quickly, tossing my penis back  and forth between them. @
>With the energy drain still going, I'm left gasping and moaning helplessly    under her. \
name "Alma Elma "
if %con_hvoice=0 dwave 13,"voice\arumaeruma5_11.ogg"
>Horahorahora... 
>If I do it like this, the premature ejaculator Luka will come in no time,     won't he? \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Haa... Ah... \
name ""
>Alma starts to raise and lower her breasts in an alternating motion. \
>It's like she's kneading my penis between her huge breasts... @
>As my sensitive penis rubs against her soft skin, my body relaxes in pure     bliss. \
>Without resisting at all, I allow the sensations to flood my body. \
name "Luka "
>Ahh... I'm going to come again... \
name ""
name "Alma Elma "
if %con_hvoice=0 dwave 13,"voice\arumaeruma5_12.ogg"
>Hehe... Already can't take it? 
>Then... Come! ? \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
\
name ""
dwavestop 13
>Alma presses her breasts together hard around my penis. @
>At the same time, she drastically increases the power of the energy drain. \
>Assaulted by pure ecstasy, I quickly blow far over the edge. \
name "Luka "
>Ahhhh!!! \
name ""
gosub *syasei1
lsp 700,":a;chara\arumaeruma_hg3.bmp",0,0
gosub *syasei2
>I explode between her breasts, the powerful orgasm causing my semen to even   land on her face. @
>Due to the energy drain, the amount of semen is far higher than normal. \
>In addition, I feel far weaker than I should... \
mov %hseanwave,0:hseanwave
name "Luka "
>Ahh... \
name ""
>The sweet feeling of release fills my body, still wound by Alma's tail. @
>I feel myself about to faint as Alma looks at me and laughs. \
name "Alma Elma "
if %con_hvoice=0 dwave 13,"voice\arumaeruma5_13.ogg"
>Hahaha... Since there was an audience, I got a little carried away. 
>If I squeezed any more, Luka-boy would die. \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\arumaeruma5_14.ogg"
>We'll stop here for today, with my overwhelming victory. ? \
if %con_hvoice=0 && %sinkouonoff=2 delay 5000-%autotime
\
name ""
dwavestop 13
>Alma giggles, announcing my complete defeat to her. @
>All of the audience members who watched start to laugh and tease me, too. \
>Feeling completely humiliated, I slowly drift into unconsciousness... \
gosub *anten
>.............. \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0

;-----???(END)-----



*zukan_tamamo3


mov $zname,"Tamamo (END) "
mov $zlavel,"tamamo3"
mov $zukan_ko,"None "
mov %zukan_facenum,5
mov %zukan_posenum,2
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"128"
mov $zukan_hp,"22000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_tamamo3_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\tamamoend.jpg",400,0	
goto *zukan_kihonbtn



*zukan_tamamo3_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=2 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;2Q\chara\tamamo_st51.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;2Q\chara\tamamo_st52.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;2Q\chara\tamamo_st53.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\tamamo_st01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\tamamo_st02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\tamamo_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\tamamo_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=5 lsp 450,":a;chara\tamamo_st05.png",%zukan_x0+100,20
return



*zukan_tamamo3_cg

lsp 500,":c;bg\bg176.bmp",0,0
lsp 430,":a;chara\tamamo_hd01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hd02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hd03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hd04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hd05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hd06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hd07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hd08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hd09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hd10.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_tamamo3_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,80
mov %skill01,21
mov %skill02,5
mov %skill03,5
mov %skill04,5
mov %skill05,5
mov %item01,10
gosub *setwindow_01
lsp 700,":a;chara\tamamo_st02.bmp",0,0
bg "bg\bg159.bmp",10,1500
bgm"2Q\bgmfix\tamamo.ogg"
if %bwait=213 goto *city60_12a


*city60_12a

>I casually agree after only a second, without giving it serious thought. \
name "Tamamo "
>Hehe, I'm glad. @
>Now, let's return to the Monster Lord's Castle... \
name ""
>Thus, I'm invited back to Tamamo's room... \
dwave 1,"se\asioto2.ogg"
sean_change "bg176"
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
lsp 700,":a;2Q\chara\tamamo_st52.png",0,0:print 10,500
name "Tamamo no Mae "
>Hehe, I haven't had a meal in this body for a long time. @
>Now, please give me a lot... \
name ""
name "Luka "
>Wa...Wait a second! @
>This isn't what you... \
>Hyaa! \
name ""
>Tamamo looms over me, filled with an incredible power. @
>My body instinctively knows not to cross her... \
>The one in front of me is an existence of pure dark magic. @
>If I have sex with her, my soul might not survive... \
name "Tamamo no Mae "
if %con_hvoice=0 dwave 13,"voice\tamamo3_01.ogg"
>Hehe... Don't be afraid. 
>Being violated by me is a thing of pure joy. \
if %con_hvoice=0 && %sinkouonoff=2 delay 11000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\tamamo3_02.ogg"
>Sticking themselves into me, wanting to come out everything they have... 
>Many men have given up their souls for that. \
if %con_hvoice=0 && %sinkouonoff=2 delay 13000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahh... \
name ""
>A body that numerous men sold their souls just to taste... Right in front of  me... \
name "Tamamo no Mae "
if %con_hvoice=0 dwave 13,"voice\tamamo3_03.ogg"
>Hoore, leave everything to me. 
>I'll take great care in leading you to paradise... \
if %con_hvoice=0 && %sinkouonoff=2 delay 11000-%autotime
\
name ""
dwavestop 13
name "Luka "
>W...Wait... Ah! \
name ""
lsp 700,":a;chara\tamamo_hd01.bmp",0,0:print 10,500
>Her fluffy tails all reach out, and seal off my movements. @
>Like that, Tamamo bends forward, and presses her ass against me. \
>Sitting on top of me, Tamamo grabs hold of my penis, and guides it to her own entrance. \
name "Tamamo no Mae "
if %con_hvoice=0 dwave 13,"voice\tamamo3_04.ogg"
>Hoore... Your penis will be swallowed up by my vagina. 
>And your semen will all be drawn out... Hehehe. \
if %con_hvoice=0 && %sinkouonoff=2 delay 15000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\tamamo3_05.ogg"
>Are you ready? 
>Then here I go... \
if %con_hvoice=0 && %sinkouonoff=2 delay 6000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahhh!!! \
name ""
mov %hseanwave,5:hseanwave
lsp 700,":a;chara\tamamo_hd02.bmp",0,0:print 10,500
>With that, Tamamo drops her waist, bringing me inside her. @
>Just from insertion itself, a soul crushing ecstasy explodes inside me. \
>Her soft, wet flesh wraps around my penis, slowly tightening around me. \
>An entrance to a paradise of the flesh, that could blow away the sanity of    any man. \
name "Luka "
>Ah... Haaa... \
name ""
name "Tamamo no Mae "
if %con_hvoice=0 dwave 13,"voice\tamamo3_06.ogg"
>Hehe... In ecstasy at once? 
>You are tasting my body after all, so there's no helping it I suppose... \
if %con_hvoice=0 && %sinkouonoff=2 delay 10000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Haa... \
name ""
>My mind is taken over by her tight flesh, making it feel like I could melt    away inside her... @
>I'm already lost for words. \
name "Tamamo no Mae "
if %con_hvoice=0 dwave 13,"voice\tamamo3_07.ogg"
>At this rate, it will be over in no time... 
>But I want to play with you a little more... \
if %con_hvoice=0 && %sinkouonoff=2 delay 9000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\tamamo3_08.ogg"
>Hehe... Now then, I'll move some. 
>Go ahead and writhe under me a little... \
if %con_hvoice=0 && %sinkouonoff=2 delay 9000-%autotime
\
name ""
dwavestop 13
lsp 700,":a;chara\tamamo_hd03.bmp",0,0:print 10,500
>Tamamo starts to slowly move her body, back and forth. @
>The slow, controlled movements lead me to even higher heights of pleasure. \
>Her slow, up and down movements let me feel every inch of her small vagina,   the wet walls pulling and rubbing against me with each cycle. \
name "Luka "
>Ahh... Haa... \
name ""
name "Tamamo no Mae "
if %con_hvoice=0 dwave 13,"voice\tamamo3_09.ogg"
>Well... Is it good? 
>You can't take anymore, I see. \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\tamamo3_10.ogg"
>Hehe... You can go ahead and come inside me. 
>Hoore... I'll finish you with my waist movements... \
if %con_hvoice=0 && %sinkouonoff=2 delay 11000-%autotime
\
name ""
dwavestop 13
>Tamamo's movements get slightly faster as she leads me to a finish... @
>Responding to her, my body arches back as I reach a climax inside her. \
name "Luka "
>Ah... Ahhh! \
name ""
gosub *syasei1
lsp 700,":a;chara\tamamo_hd04.bmp",0,0
gosub *syasei2
>My body trembles as I come inside her, the ecstasy from release filling every inch of my body. \
lsp 700,":a;chara\tamamo_hd05.bmp",0,0:print 10,500
name "Tamamo no Mae "
if %con_hvoice=0 dwave 13,"voice\tamamo3_11.ogg"
>Hehe... The first shot was drawn out quite easily. 
>You're coming inside me, you know? \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahh... \
name ""
>The feeling of coming inside Tamamo... @
>It was as if my soul itself was drawn into her. \
>The overwhelming pleasure leaves me completely defenseless under her. @
>With a grin, Tamamo continues... \
lsp 700,":a;chara\tamamo_hd06.bmp",0,0:print 10,500
name "Tamamo no Mae "
if %con_hvoice=0 dwave 13,"voice\tamamo3_12.ogg"
>Horehore, you don't have time to rest. 
>Hoora... Release more... \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ah! @ >Ahhh! \
name ""
mov %hseanwave,9:hseanwave
>Tamamo starts to move much faster, completely dominating me with her intense  movements. \
>She stops at random times, only to squeeze me incredibly tight... @
>The intense riding leaves me in a corner in no time. \
name "Luka "
>Haa... Stop... I'm going to come...! \
name ""
>Even though I came only a few moments ago, I can already feel another climax  coming. @
>Tamamo's skilled movements don't allow her partner to have a rest... \
name "Tamamo no Mae "
if %con_hvoice=0 dwave 13,"voice\tamamo3_13.ogg"
>Hehe... Complaining, just when I put a little effort into it? 
>Hoora... I'll finish you off at once! \
if %con_hvoice=0 && %sinkouonoff=2 delay 10000-%autotime
\
name ""
dwavestop 13
>Tamamo presses down, bringing me deep inside her. @
>After I'm all the way in, she starts to turn side to side, sending me         crashing over the edge. \
name "Luka "
>Ahhh! \
name ""
gosub *syasei1
lsp 700,":a;chara\tamamo_hd07.bmp",0,0
gosub *syasei2
>With a moan, I explode inside her, my pulsing penis shooting spurts of semen  inside her tight vagina. \
name "Luka "
>Ahh... \
name ""
>A feeling of weakness floods through me. @
>Even though I only came twice, it felt like so much more... \
>She must be absorbing a huge amount of energy with each orgasm. \
lsp 700,":a;chara\tamamo_hd08.bmp",0,0:print 10,500
name "Tamamo no Mae "
if %con_hvoice=0 dwave 13,"voice\tamamo3_14.ogg"
>Hehe, not yet... 
>I'll squeeze out every drop of semen from your roots. \
if %con_hvoice=0 && %sinkouonoff=2 delay 9000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahh... I can't do any more... @
>Ahhh...! \
name ""
>Tamamo's movements get even faster, riding on top of me, and squeezing me     inside her tight insides. \
name "Tamamo no Mae "
if %con_hvoice=0 dwave 13,"voice\tamamo3_15.ogg"
>Hoore... I'll make it super tight... 
>Can you endure this? Hehe... You can't, can you? \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Hyaa... \
name ""
>My lower body tingles in ecstasy, as I let out a moan of pleasure. @
>I know it will be dangerous if I come more... \
>But there's no way to fight against my desire to come inside her. \
gosub *syasei1
lsp 700,":a;chara\tamamo_hd09.bmp",0,0
gosub *syasei2
name "Luka "
>Ahhh... \
name ""
>My semen shoots into Tamamo's body, my energy almost all taken by her         devilish vagina. \
name "Luka "
>Ah...ah... \
name ""
>I'm completely limp beneath her. @
>Even though I came three times, the lasting pleasure and weakness makes it    feel like thirty. \
mov %hseanwave,0:hseanwave
lsp 700,":a;chara\tamamo_hd10.bmp",0,0:print 10,500
name "Tamamo no Mae "
if %con_hvoice=0 dwave 13,"voice\tamamo3_16.ogg"
>Hehe... Even though I went easy on you, you're already finished. 
>Well, I sucked up enough to be satisfied. \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
\
name ""
dwavestop 13
>With a flushed face of satisfaction and joy, Tamamo looks down at me. \
name "Luka "
>Ah...uh... \
name ""
name "Tamamo no Mae "
if %con_hvoice=0 dwave 13,"voice\tamamo3_17.ogg"
>I'm going to show you a lot of love, every night. 
>You'll keep attending me through the night from now on... \
if %con_hvoice=0 && %sinkouonoff=2 delay 11000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ah... Uh... \
name ""
>With Tamamo still on top of me, I lose consciousness... \
gosub *anten
>........... \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0

;-----??????(END)-----




*zukan_erbetie3

mov $zname,"Erubetie (END) "
mov $zlavel,"erbetie3"
mov $zukan_ko,"None "
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,25
mov %zukan_x2,225
mov $zukan_lv,"125"
mov $zukan_hp,"22000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_erbetie3_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\eruend.jpg",400,0	
goto *zukan_kihonbtn



*zukan_erbetie3_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\erbetie_st01.bmp",%zukan_x0,0
return



*zukan_erbetie3_cg

lsp 500,":c;bg\bg177.bmp",0,0
lsp 430,":a;chara\erbetie_hc1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\erbetie_hc2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\erbetie_hc3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\erbetie_hc4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_erbetie3_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,80
mov %skill01,21
mov %skill02,5
mov %skill03,5
mov %skill04,5
mov %skill05,5
mov %item01,10
gosub *setwindow_01
lsp 700,":a;chara\erbetie_st01.bmp",225,0
bg "bg\bg095.bmp",10,1500
bgm"bgm\plansect.ogg"
if %bwait=213 goto *city61_17a


*city61_17a

name "Erubetie "
>Then let's return to the Monster Lord's Castle. @
>We'll talk about coexistence all over the place... \
name ""
name "Luka "
>Ah, yeah... \
name ""
csp 700:print 10,500
>Thus, I return to the Monster Lord's Castle with Erubetie... \
dwave 1,"se\asioto2.ogg"
sean_change "bg177"
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
mov %hseanwave,18:hseanwave
lsp 700,":a;chara\erbetie_hc1.bmp",0,0:print 10,500
name "Luka "
>Ahh... \
name ""
name "Erubetie A "
if %con_hvoice=0 dwave 13,"voice\erbetie3_01.ogg"
>Hora, you're happy, right? \
if %con_hvoice=0 && %sinkouonoff=2 delay 5000-%autotime
\
name ""
dwavestop 13
name "Erubetie B "
if %con_hvoice=0 dwave 13,"voice\erbetie3_02.ogg"
>Hehe, does it feel good? 
>Please melt away more... \
if %con_hvoice=0 && %sinkouonoff=2 delay 10000-%autotime
\
name ""
dwavestop 13
>Erubetie's split bodies are all around me, caressing me at the same time. @
>Their slimy bodies all stroke and rub against me at once, my body loose in    comfort. \
name "Luka "
>Ahh... T...This isn't... @
>Coexistence with the Slime race... \
name ""
name "Erubetie A "
if %con_hvoice=0 dwave 13,"voice\erbetie3_03.ogg"
>I'll share the fluids I squeeze from you with my brethren as nourishment. \
if %con_hvoice=0 && %sinkouonoff=2 delay 10000-%autotime
\
name ""
dwavestop 13
name "Erubetie B "
if %con_hvoice=0 dwave 13,"voice\erbetie3_04.ogg"
>This act is itself coexistence with us... 
>If you understand, then just obediently drown in the pleasure... \
if %con_hvoice=0 && %sinkouonoff=2 delay 14000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahhh... \
name ""
>Every part of my body is submerged inside Erubetie's own. @
>Laying on a bed of her body, her slime massages and strokes my defenseless    flesh. \
name "Erubetie A "
if %con_hvoice=0 dwave 13,"voice\erbetie3_05.ogg"
>Hoora... You love it when these are toyed with, don't you? \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
\
name ""
dwavestop 13
>The divided Erubetie's fingers start to gently rub and tickle my nipples. \
>Covered in her slimy touch, my back arches up at the sudden, powerful         stimulation. \
name "Erubetie B "
if %con_hvoice=0 dwave 13,"voice\erbetie3_06.ogg"
>You like this too, don't you? \
if %con_hvoice=0 && %sinkouonoff=2 delay 4000-%autotime
\
name ""
dwavestop 13
>Tongues of slime run up and down my middle and sides, the creepy sensation of her warm body causing my body to tingle. \
name "Luka "
>Ahh... \
name ""
>As one of her slime tongues circles around my bellybutton, I let out a sigh   of ecstasy. @
>As Erubetie caresses my entire body, it feels like I'm immersed in heaven...  \
name "Erubetie C "
if %con_hvoice=0 dwave 13,"voice\erbetie3_07.ogg"
>But what you like the most... \
if %con_hvoice=0 && %sinkouonoff=2 delay 4000-%autotime
\
name ""
dwavestop 13
name "Erubetie D "
if %con_hvoice=0 dwave 13,"voice\erbetie3_08.ogg"
>Is here, isn't it? \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
\
name ""
dwavestop 13
>Multiple Erubetie's reach out to my groin, their interlocking hands grabbing  hold of my penis. \
name "Erubetie C "
if %con_hvoice=0 dwave 13,"voice\erbetie3_09.ogg"
>You wanted me to play with your penis like this, didn't you? \
if %con_hvoice=0 && %sinkouonoff=2 delay 9000-%autotime
\
name ""
dwavestop 13
name "Erubetie D "
if %con_hvoice=0 dwave 13,"voice\erbetie3_10.ogg"
>I'll keep teasing it until you come a lot... \
if %con_hvoice=0 && %sinkouonoff=2 delay 9000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ah... Haa... \
name ""
>Almost like floating in a dream, I entrust myself to Erubetie's touch. \
>Her slimy fingers run up and down my shaft, as her formless hands stroke my   glans and neck... \
>Her hands sometimes form together, creating a mass of slime. @
>The incredible pleasure is enough to melt away my body and mind in ecstasy. \
name "Luka "
>Ahh... I'm going to come... \
name ""
name "Erubetie A "
if %con_hvoice=0 dwave 13,"voice\erbetie3_11.ogg"
>Fast, aren't you? Then please come... \
if %con_hvoice=0 && %sinkouonoff=2 delay 5000-%autotime
\
name ""
dwavestop 13
name "Erubetie B "
if %con_hvoice=0 dwave 13,"voice\erbetie3_12.ogg"
>Please let loose inside my slime... \
if %con_hvoice=0 && %sinkouonoff=2 delay 7000-%autotime
\
name ""
dwavestop 13
>The pressure of her slime suddenly increases, feeling like she's completely   surrounding me. @
>As her slime moves up and down, I reach a powerful climax. \
name "Luka "
>Ahhh!!! \
name ""
gosub *syasei1
lsp 700,":a;chara\erbetie_hc2.bmp",0,0
gosub *syasei2
>Immersed in ecstasy, I explode inside her hands, my semen mixing with her     warm slime. \
name "Luka "
>Haa... \
name ""
name "Erubetie A "
if %con_hvoice=0 dwave 13,"voice\erbetie3_13.ogg"
>You leaked out so much... 
>But it's too early to be satisfied. \
if %con_hvoice=0 && %sinkouonoff=2 delay 10000-%autotime
\
name ""
dwavestop 13
name "Erubetie B "
if %con_hvoice=0 dwave 13,"voice\erbetie3_14.ogg"
>Hoora... Have a taste of Heaven... 
>I'll squeeze your semen until you're empty. \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
\
name ""
dwavestop 13
mov %hseanwave,19:hseanwave
>Her slime hands continue to gently stroke me, right after my orgasm. @
>My mind goes blank in ecstasy, as the intense stimulation on my sensitive     penis is too much to take. \
name "Luka "
>Haaa... That feels good... \
name ""
name "Erubetie C "
if %con_hvoice=0 dwave 13,"voice\erbetie3_15.ogg"
>...What a bad child, letting out a voice like that... \
if %con_hvoice=0 && %sinkouonoff=2 delay 5000-%autotime
\
name ""
dwavestop 13
name "Erubetie D "
if %con_hvoice=0 dwave 13,"voice\erbetie3_16.ogg"
>Just become my captive... 
>Continue to live in our embrace forever... \
if %con_hvoice=0 && %sinkouonoff=2 delay 13000-%autotime
\
name ""
dwavestop 13
>Her warm, sticky slime continues to caress my body and penis. @
>My body and soul are both wearing away in the pleasure... \
>I want to do nothing more than give myself over to this paradise. \
name "Luka "
>Ahh... Haa... \
name ""
name "Erubetie A "
if %con_hvoice=0 dwave 13,"voice\erbetie3_17.ogg"
>Hehe... How easy... 
>You're already loose in the head... \
if %con_hvoice=0 && %sinkouonoff=2 delay 9000-%autotime
\
name ""
dwavestop 13
name "Erubetie B "
if %con_hvoice=0 dwave 13,"voice\erbetie3_18.ogg"
>Alright then, I'll lead you to paradise again... 
>Leak out more of that proof that you belong to us... \
if %con_hvoice=0 && %sinkouonoff=2 delay 14000-%autotime
\
name ""
dwavestop 13
>Her slime compresses right underneath the neck of my penis, rubbing against   an extra sensitive part. \
>A shock of pleasure races up my spine, as my every sense is focused on that   stimulation... \
name "Luka "
>Ahh... \
name ""
gosub *syasei1
lsp 700,":a;chara\erbetie_hc3.bmp",0,0
gosub *syasei2
>And just like Erubetie wanted, I come into her slime hands. \
name "Luka "
>Ahh... \
name ""
>Laying down on the ground, I'm squeezed one time after another by the         countless copies of Erubetie. \
>I can't imagine there being anything that feels better than this... @
>But before being completely drowned, a final moment of clarity hits me. \
>...Is this really alright? @
>Can I really drown in Erubetie's body here...? \
name "Erubetie A "
if %con_hvoice=0 dwave 13,"voice\erbetie3_19.ogg"
>Hoora... Let's bind our friendship together even more. 
>You're happy... My brethren and I are happy... It's beneficial for everyone.  \
if %con_hvoice=0 && %sinkouonoff=2 delay 18000-%autotime
\
name ""
dwavestop 13
name "Erubetie B "
if %con_hvoice=0 dwave 13,"voice\erbetie3_20.ogg"
>Offer up your own body, and show us the path to coexistence... 
>And we must show plenty of our thanks, too... \
if %con_hvoice=0 && %sinkouonoff=2 delay 18000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahh... This wasn't what I... @
>Haaa... \
name ""
>My words of refusal are meaningless before this ecstasy. @
>My thoughts mix and get confused, as the pleasure takes over my very mind. \
>I don't care about anything else... @
>I just want to taste this paradise forever. \
name "Erubetie A "
if %con_hvoice=0 dwave 13,"voice\erbetie3_21.ogg"
>Horahora... Offer up more proof of our friendship... \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
\
name ""
dwavestop 13
name "Erubetie B "
if %con_hvoice=0 dwave 13,"voice\erbetie3_22.ogg"
>Don't resist... I'll even squeeze it out by force... \
if %con_hvoice=0 && %sinkouonoff=2 delay 7000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahh...ahh... \
name ""
gosub *syasei1
lsp 700,":a;chara\erbetie_hc4.bmp",0,0
gosub *syasei2
>After being forced to come over and over, my body and soul come to belong to  Erubetie. @
>Every day will be spent squeezed and caressed by her split bodies... \
name "Erubetie A "
if %con_hvoice=0 dwave 13,"voice\erbetie3_23.ogg"
>Hoora... Let out more... \
if %con_hvoice=0 && %sinkouonoff=2 delay 5000-%autotime
\
name ""
dwavestop 13
name "Erubetie B "
if %con_hvoice=0 dwave 13,"voice\erbetie3_24.ogg"
>If this is coexistence, it isn't bad at all... \
if %con_hvoice=0 && %sinkouonoff=2 delay 7000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ah...ah... \
name ""
gosub *syasei1:gosub *syasei2
>I'll be able to live in this paradise of pleasure forever... @
>It's a life of happiness for me... @ >And for Erubetie as well, I'm sure. \
mov %hseanwave,0:hseanwave
gosub *anten
>........... \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0

;-----???????(END)-----



*zukan_alice5

mov $zname,"Alice (END) "
mov $zlavel,"alice5"
itoa2 $zukan_ko,%27
mov $zukan_ko,"None "
mov %zukan_facenum,10
mov %zukan_posenum,4
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,2
mov %hscene1,1
mov %hscene2,1
mov %zukancg,1
mov %zukan_x1,-20
mov %zukan_x2,150
mov $zukan_lv,"145"
mov $zukan_hp,"32000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_alice5_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;ency\aliceend.jpg",400,0	
goto *zukan_kihonbtn



*zukan_alice5_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\alice_st01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\alice_st01b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\alice_st11.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\alice_st11b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\alice_st02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\alice_st02b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\alice_st12.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\alice_st12b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\alice_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\alice_st03b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\alice_st13.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\alice_st13b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\alice_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\alice_st04b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;chara\alice_st14.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=4 lsp 450,":a;chara\alice_st14b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\alice_st05.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=5 lsp 450,":a;chara\alice_st05b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=5 lsp 450,":a;chara\alice_st15.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=5 lsp 450,":a;chara\alice_st15b.png",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\alice_st06.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=6 lsp 450,":a;chara\alice_st06b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=6 lsp 450,":a;chara\alice_st16.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=6 lsp 450,":a;chara\alice_st16bre.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=7 lsp 450,":a;chara\alice_st07.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=7 lsp 450,":a;chara\alice_st07b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=7 lsp 450,":a;chara\alice_st17.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=7 lsp 450,":a;chara\alice_st17bre.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=8 lsp 450,":a;chara\alice_st08.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=8 lsp 450,":a;chara\alice_st08b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=8 lsp 450,":a;chara\alice_st18.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=8 lsp 450,":a;chara\alice_st18bre.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=9 lsp 450,":a;chara\alice_st09.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=9 lsp 450,":a;chara\alice_st09b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=9 lsp 450,":a;chara\alice_st19.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=9 lsp 450,":a;chara\alice_st19bre.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=10 lsp 450,":a;chara\alice_st51.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=10 lsp 450,":a;chara\alice_st51b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=10 lsp 450,":a;chara\alice_st61.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=10 lsp 450,":a;chara\alice_st61b.bmp",%zukan_x0-80,0
return



*zukan_alice5_cg

lsp 500,":c;bg\bg195.bmp",0,0
lsp 430,":a;chara\alice_H11_1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_H11_2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_H11_3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_H11_4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_H11_5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 500,":c;bg\bg047.bmp",0,0
lsp 430,":a;chara\alice_H12_1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_H12_2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice_ct01.bmp",401,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice_ct02.bmp",401,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice_ct03.bmp",401,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\alice_ct04.bmp",401,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_H12_3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 500,":c;bg\bg001.bmp",0,0
csp 420
lsp 430,":a;chara\alice_iv03.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_alice5_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,80
mov %skill01,21
mov %skill02,5
mov %skill03,5
mov %skill04,5
mov %skill05,5
mov %item01,10
gosub *setwindow_01
lsp 700,":a;chara\alice_st02b.bmp",67,0
if %bwait=213 bg "bg\bg195.bmp",10,1500
if %bwait=214 bg "bg\bg047.bmp",10,1500
if %bwait=213 bgm"2Q\bgmfix\hutuu1.ogg"
if %bwait=213 goto *sean0399
if %bwait=214 goto *sean0414

*sean0399

name "Alice "
>Now Luka, let me suck out some semen... \
name ""
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
>Alice's snake body coils around me while I'm still confused about what's      going on. @
>Like that, she easily throws me to the floor. \
name "Luka "
>W...Wai... Ah! \
name ""
>Alice leans over me while I feebly squirm in her embrace. \
lsp 700,":a;chara\alice_H11_1.bmp",0,0:print 10,500
>Not with us lying on top of each other in the same direction, but in opposite directions. @
>Alice's upper body is over my lower body... \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice11_01.ogg"
>Your penis is already big... What are you expecting to happen here? 
>No matter how skilled your sword arm gets, your lower body is still so        weak... \
if %con_hvoice=0 && %sinkouonoff=2 delay 14000-%autotime
\
name ""
dwavestop 13
>Alice presses her large chest against my groin area. @
>And using her hands, slips my penis between her breasts. \
name "Luka "
>Ah...Ah! \
name ""
>Her large, soft breasts press against my penis from both sides. @
>Just feeling them against my penis is enough to make me cry out in surprised  pleasure. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice11_02.ogg"
>Hoora... I'll put it between these breasts you love. 
>Haha, you're overwhelmed with just this, aren't you? \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
\
name ""
dwavestop 13
name "Luka "
>I...I am not...! \
name ""
>My pride won't allow me to surrender here. @
>I try to start struggling against the stimulation, but Alice's waist is       pressed against my face. \
>She presses her vagina against my mouth, cutting off my protests. \
name "Luka "
>Nnn... Mmmff... \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice11_03.ogg"
>Hoora... This will keep you quiet. 
>You may lick my pussy too, of course. Haha... \
if %con_hvoice=0 && %sinkouonoff=2 delay 10000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Nnn...Nnn!!! \
name ""
>Even if I try to shake my head side to side, I can't get away from her        vagina. @
>Her smell slowly fills my nose and senses. \
>The thick, sweet smell of a young woman... @
>As the powerful smell of Alice fills more of my senses, it seems to paralyze  both my body and mind. \
>This intoxicating fragrance is taking away my reason... \
name "Luka "
>Nn...nnn.... \
name ""
>I stick out my tongue, and press it against her entrance. @
>I don't even know if it's my own will doing this any longer. \
>It's neither me servicing her, or doing a sexual counterattack... @
>It's more like I've lost control of my desires, and I'm just giving in to my  instinct. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice11_04.ogg"
>Haha... Awkward like a starving dog. 
>And what crude tongue skills... Did you think I would feel something from     that? \
if %con_hvoice=0 && %sinkouonoff=2 delay 14000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\alice11_05.ogg"
>This is how you use a tongue... \
if %con_hvoice=0 && %sinkouonoff=2 delay 5000-%autotime
\
name ""
dwavestop 13
mov %hseanvoice,6:hseanvoice
lsp 700,":a;chara\alice_H11_2.bmp",0,0:print 10,500
>Alice's tongue reaches out, and starts to lick my glans! \
name "Luka "
>Nnnnnn!!! \
name ""
>The incredible pleasure makes my own tongue stop moving. \
>My every sense focuses on her slightly rough tongue, running across my        urethral opening and down my back muscle. \
>She sometimes licks around right under the neck of my penis, getting my whole member wet with her saliva. \
>Her touch blows away any last feeling of rebellion or reason I had left. \
name "Luka "
>Nnngg... \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice11_06.ogg"
>*Lick* Haha, what's wrong? 
>Your tongue stopped moving? \
if %con_hvoice=0 && %sinkouonoff=2 delay 14000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\alice11_07.ogg"
>You seem to have forgotten that this is a competition of sexual skills. 
>If you don't tease me back, you'll just pitifully orgasm you know? \
if %con_hvoice=0 && %sinkouonoff=2 delay 11000-%autotime
\
name ""
dwavestop 13
mov %hseanvoice,6:hseanvoice
name "Luka "
>Nnn... Nnng... \
name ""
>Urged on by her taunting, I start to attack her vagina with my tongue again. @
>But the pleasure I'm getting on the other end has fried my brain. \
>My whole body seems to be melting away in ecstasy as her tongue attacks my    glans. @
>Meanwhile I'm just licking her, coveting her taste and aroma more than trying to tease her... \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice11_08.ogg"
>Hahaha... So awkward... 
>Did you think you could surpass me with skills like that? \
if %con_hvoice=0 && %sinkouonoff=2 delay 10000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Nnng... Nnng! \
name ""
>I summon all of the presence of mind I have left to resist. @
>The most I can do is lick her and squirm my body, though. \
>But even that modest amount of resistance is held down by Alice's snake body. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice11_09.ogg"
>Well then, it's time to give you the final blow... 
>Think well on your incompetence as you spout out your semen! \
if %con_hvoice=0 && %sinkouonoff=2 delay 11000-%autotime
\
name ""
dwavestop 13
mov %hseanvoice,6:hseanvoice
>Alice slowly squeezes my penis harder between her two large breasts. @
>My glans, poking out from between her breasts, is at her tongue's mercy. \
>Licking me clean with her tongue, I'm quickly brought to surrender... \
name "Luka "
>Nnnng! @ >Nnnn!!! \
name ""
>There's nothing I can do as Alice brings me to a powerful finish. \
gosub *syasei1
lsp 700,":a;chara\alice_H11_3.bmp",0,0
gosub *syasei2
>Alice smiles in triumph as I explode, my semen shooting out onto her face and breasts. \
mov %hseanvoice,0:hseanvoice
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice11_10.ogg"
>Haha, an unsightly white flag came up... 
>This match was my complete victory... \
if %con_hvoice=0 && %sinkouonoff=2 delay 11000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\alice11_11.ogg"
>But I'll permit a rematch. 
>Hoora, it's time for the second round! \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
\
name ""
dwavestop 13
name "Luka "
>W...Wai... Nng! \
name ""
>Alice presses her vagina against my face again, sealing off my words. @
>Lost in the throes of pleasure again, all I can do is greedily lick her       vagina. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice11_12.ogg"
>Already lost the will to fight? Or are you going to tease me? 
>Sorry, but this time I'm going to finish you in an instant... \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
\
name ""
dwavestop 13
mov %hseanvoice,7:hseanvoice
>Alice uses her hands to rub her breasts against my penis in opposite motions. @
>Rubbing me between her large breasts, the stimulation is far more intense     than the two sided pleasure from before. \
>With her tongue running over my glans, and the massage and pressure from her  soft breasts, I'm writhing and moaning under her in seconds. \
name "Luka "
>Nnnng! @ >Nnnnn!!! \
name ""
>With my tongue licking her as fast as I can, I can only manage moans as my    body spams under her. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice11_13.ogg"
>Hoora, quickly shoot out your white flag... 
>Scatter your miserable fluids that show off your defeat... \
if %con_hvoice=0 && %sinkouonoff=2 delay 13000-%autotime
\
name ""
dwavestop 13
mov %hseanvoice,7:hseanvoice
name "Luka "
>Nnnn!!! \
name ""
>My penis is squished between her large breasts. @
>That tight embrace of her soft, smooth flesh... \
>And with her tracing the tip of my penis with her tongue at the same time,    I'm quickly led to my limit. \
name "Luka "
>Nnnn!!! \
name ""
gosub *syasei1
lsp 700,":a;chara\alice_H11_4.bmp",0,0
gosub *syasei2
>I explode between her breasts, my semen clouding her face... @
>But still, Alice won't let up. \
name "Luka "
>Nnngg... Let's... Stop... \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice11_14.ogg"
>Haha... Where did that air of importance you had before go? 
>This awkward, agonized look suits you far better... \
if %con_hvoice=0 && %sinkouonoff=2 delay 13000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\alice11_15.ogg"
>Hora... It's time for round three. 
>I'll finish this one quickly, too! \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
\
name ""
dwavestop 13
mov %hseanvoice,7:hseanvoice
>Alice uses her breasts and mouth in another violent assault. @
>Already beyond helpless, my body melts away in her touch, completely at her   mercy. \
name "Luka "
>Nnng... Nnnn! \
name ""
gosub *syasei1
lsp 700,":a;chara\alice_H11_5.bmp",0,0
gosub *syasei2
>And as easily as that, I explode on her again. @
>Beaten down by pleasure, it was a complete loss to her. \
mov %hseanvoice,0:hseanvoice
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice11_16.ogg"
>...Haha, well that's how it is. 
>You realize that you can't overcome me yet, right? \
if %con_hvoice=0 && %sinkouonoff=2 delay 10000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahh... \
name ""
>A large amount of my white semen is covering Alice's face and breasts. @
>It's proof of my horrible defeat to her... \
>The mix of pleasure, shame and irritation at the loss all come together with  the weakness from the repeated ejaculations. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice11_17.ogg"
>Sheesh, fainting after being beaten down a little? 
>Such a pathetic finish... Hahaha. \
if %con_hvoice=0 && %sinkouonoff=2 delay 10000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ah...ah... \
name ""
>Despite the decisive final battle being tomorrow, I faint away in exhaustion. \
gosub *anten
>............... \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0

*sean0414

if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
name "Alice "
>...Now come on, let's mate. @
>Don't misunderstand me... This isn't a normal meal... \
name ""
name "Luka "
>W...Wait a moment! @
>I need to mentally prepare myself! \
name ""
>With a smile, Alice reaches for her own genitals. @
>Using her fingers, she exposes herself to me. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_01.ogg"
>Hehe... My pussy is already all hot. 
>Once you're inside, you'll be entangled, and squeezed... And taste incredible pleasure. \
if %con_hvoice=0 && %sinkouonoff=2 delay 15000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\alice12_02.ogg"
>Hoora... You want to come inside of me, don't you? 
>Don't you want to inseminate this pussy of mine? \
if %con_hvoice=0 && %sinkouonoff=2 delay 13000-%autotime
\
name ""
dwavestop 13
>Alice's pink insides pulse, as if eager for me. @
>And a clear liquid is already dripping, already wet and waiting... \
name "Luka "
>W...Wait...! \
name ""
>Despite being transfixed by the sight of her, I still utter words of refusal. @
>Even though I have cold feet, Alice moves closer to me. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_03.ogg"
>Sheesh, it looks like being taken by force is still your preference. 
>Even though having a woman violate a man to get pregnant is humiliating for a man... \
if %con_hvoice=0 && %sinkouonoff=2 delay 13000-%autotime
\
name ""
dwavestop 13
lsp 700,":a;chara\alice_H12_1.bmp",0,0:print 10,500
>Suddenly, Alice's snake body coils around me. @
>Bringing us close together, she seals off my movements. \
name "Luka "
>C...Calm down Alice! @
>This is... \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_04.ogg"
>Hehe... I'm plenty calm. 
>And I'll accept you as my reproductive partner... \
if %con_hvoice=0 && %sinkouonoff=2 delay 11000-%autotime
\
name ""
dwavestop 13
>With her face slightly flushed red, Alice continues to speak. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_05.ogg"
>The ceremony and preparations for that are quite intense. 
>I will completely draw out your semen, continually for three days and three   nights. \
if %con_hvoice=0 && %sinkouonoff=2 delay 16000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\alice12_06.ogg"
>Even if your semen dries up numerous times during it, you'll recover while we mate. 
>With that, I'll select the very best sperm, and use that to fertilize me... \
if %con_hvoice=0 && %sinkouonoff=2 delay 16000-%autotime
\
name ""
dwavestop 13
name "Luka "
>N...No way... I'll die! \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_07.ogg"
>Don't worry... Since it's you, you won't die. 
>The reason only a strong man can be the Monster Lord's mate is because no     ordinary man could endure the impregnation process. \
if %con_hvoice=0 && %sinkouonoff=2 delay 15000-%autotime
\
name ""
dwavestop 13
name "Luka "
>W...Wait a minute... \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_08.ogg"
>Now then, let's be connected... \
if %con_hvoice=0 && %sinkouonoff=2 delay 3000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\alice12_09.ogg"
>Don't worry, I'll take the lead from start to finish. 
>You just need to ejaculate... \
if %con_hvoice=0 && %sinkouonoff=2 delay 13000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahh... \
name ""
>Alice presses my penis against her hot opening... \
mov %hseanwave,1:hseanwave
>And brings me into her! \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_10.ogg"
>Hehe, it's in. 
>Now, come all the way inside... \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Hyaaa! \
name ""
>I let out a scream of pleasure right away. @
>Just pushing inside of her tight vagina is incredible... \
>The folds inside of her rub and massage me as I enter, enrapturing me in      pleasure by the time I'm all the way inside her. \
name "Luka "
>Ahh...! \
name ""
>Even though I only just got inside of her, my body stiffens as I feel a       climax coming. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_11.ogg"
>Mmm...? What's wrong? You aren't all the way in yet, you know... \
if %con_hvoice=0 && %sinkouonoff=2 delay 6000-%autotime
\
name ""
dwavestop 13
name "Luka "
>N...No... I'm coming... @
>Ahh! \
name ""
>I try to endure it, but it's no use. @
>I gasp in the bliss of release as I feel my penis pulse inside Alice's        vagina. \
gosub *syasei1
lsp 700,":a;chara\alice_H12_2.bmp",0,0
gosub *syasei2
>My body trembles as I explode inside of her, my semen pulsing into her hot    insides. \
name "Luka "
>Ahhh... \
name ""
>I came just from insertion... @
>My face goes red in shame as I feel Alice looking at me. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_12.ogg"
>Sheesh... A disgrace for the husband of the Monster Lord... 
>Not even ten seconds... How shameful... \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\alice12_13.ogg"
>Did my pussy feel so good that you couldn't stand it? 
>It felt so good that it was an instant finish? \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
\
name ""
dwavestop 13
>Despite her words, Alice is giggling, with a smile on her face. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_14.ogg"
>Well, fine. I'll tolerate it. 
>This time, I'll entertain my premature ejaculator nice and slowly... \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahh...! \
name ""
lsp 690,":a;chara\alice_ct01.bmp",401,0:print 10,500
>Her vaginal walls start to move, tightening and loosening all at random       intervals. @
>It's like she's giving me a massage with her vagina itself... \
>All while she teases me, her eyes never leave my own. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_15.ogg"
>Hoora... Does it feel good? 
>If I massage you like this inside, it feels like you could melt away, doesn't it? \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
\
name ""
dwavestop 13
name "Luka "
>W...Wait... Ah... It feels too good... \
name ""
>I unconsciously try to pull my waist back, as the assault of pleasure         overwhelms my senses. @
>But with her snake body around me, I don't get anywhere. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_16.ogg"
>You're trying to escape...? \
if %con_hvoice=0 && %sinkouonoff=2 delay 3000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\alice12_17.ogg"
>Sheesh, and here I went to all the trouble of going nice and slow... 
>...You seem to want me to finish you off with another pitifully quick one. \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahhh!!! \
name ""
>Alice's slow movements suddenly get much faster, her tightening waves making  me go numb. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_18.ogg"
>Hehe, completely unbearable, right? 
>Now, surrender to our mating... \
if %con_hvoice=0 && %sinkouonoff=2 delay 10000-%autotime
\
name ""
dwavestop 13
>Her touch sends me over the edge in no time. \
name "Luka "
>Ahhh... \
name ""
gosub *syasei1
lsp 690,":a;chara\alice_ct02.bmp",401,0
gosub *syasei2
>And in no time, I explode inside her again. @
>The sweet feeling of release inside her flows over me, as Alice's laugh fills my ears. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_19.ogg"
>Hehe... You gave me a lot of seed. 
>Unlike before, your semen was shot all the way into my vagina... \
if %con_hvoice=0 && %sinkouonoff=2 delay 13000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\alice12_20.ogg"
>How goes it feel to impregnate me? 
>With that, we can make a baby... \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
\
name ""
dwavestop 13
>A wide smile crosses Alice's face, as she strokes her belly. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_21.ogg"
>But I need to squeeze out a lot more semen. 
>From that huge quantity of semen, I'll screen out the best... \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\alice12_22.ogg"
>Now come on, and make more of an effort! \
if %con_hvoice=0 && %sinkouonoff=2 delay 5000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahhhhh! \
name ""
>Alice tightens her vagina even more, her vaginal muscles rubbing against my   penis inside her. @
>Even though I've already come twice, there's no sign of my penis going        soft... \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_23.ogg"
>Our mating until now seems to have activated my reproductive instincts... 
>I won't go easy on you anymore... I'll completely draw out all of your        semen... \
if %con_hvoice=0 && %sinkouonoff=2 delay 14000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Hyaaa! \
name ""
>She was going easy until now...? @
>The surprise vanishes in another wave of pleasure. \
>Even though we're not moving at all, her vaginal muscle use is more intense   than any piston movement... \
>Squeezing, massaging, rubbing, pulling... @ >Every stimulation is leading me to  another powerful finish. \
name "Luka "
>Wait... @ >Ahh! \
name ""
gosub *syasei1
lsp 690,":a;chara\alice_ct03.bmp",401,0
gosub *syasei2
>In no time, another large surge of semen is forced out of me. @
>It truly does feel like Alice is simply milking it out of me... \
>But she doesn't stop... @ >Her incredible vagina continues massaging me, eager   to draw out more. \
name "Luka "
>G...Give me a second... Ah! \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_24.ogg"
>Hehe, it's too early to cry out. 
>It's still the first day. This mating will continue for three days and three  nights. \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
\
name ""
dwavestop 13
>The forcible pleasure continues on, giving me no break. @
>Her soft flesh rubs against my tip, as her muscles squeeze and massage me at  the same time... \
name "Luka "
>Aiiee! \
name ""
gosub *syasei1:gosub *syasei2
>As her squirming flesh strokes me, I reach another powerful climax. @
>Feeling like I'm going mad with pleasure, I squirm under Alice. \
name "Luka "
>Hyaaa! @ >S...Stop Alice...! \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_25.ogg"
>Hehe, what a scream... 
>How about showing some spirit as the Monster Lord's husband? \
if %con_hvoice=0 && %sinkouonoff=2 delay 9000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahhh... \
name ""
gosub *syasei1:gosub *syasei2
>Coiled in her snake body, my body spasms as the seemingly endless             ejaculations continue. \
name "Luka "
>Quit it, give me a...! \
name ""
>But no matter how my flailing limbs get me loose, she just re-coils around    me. @
>Lead to orgasm after orgasm, I start to feel completely helpless in her       embrace. \
name "Luka "
>Hyaaa! \
name ""
gosub *syasei1
lsp 690,":a;chara\alice_ct04.bmp",401,0
gosub *syasei2
>Climax after climax, with no break... @
>And this is only the first day! \
name "Luka "
>Ahhh... @
>I'm going to die... \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_26.ogg"
>Don't make me repeat myself... I picked you, as someone who wouldn't die. 
>Hoora... I'm going to keep squeezing you... \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Aiiee... \
name ""
gosub *syasei1:gosub *syasei2
>Alice's vagina squeezes me as I come, the sweet release flooding my body. @
>But the amount of semen coming out is far less than it was a few minutes      ago... \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_27.ogg"
>Hehe, you're almost empty. 
>But this time, it won't end just because your semen runs out. \
if %con_hvoice=0 && %sinkouonoff=2 delay 9000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\alice12_28.ogg"
>I'll wait for you to recover while we mate, and then draw out the new         semen... \
if %con_hvoice=0 && %sinkouonoff=2 delay 7000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahh... \
name ""
gosub *syasei1:gosub *syasei2
>My penis weakly pulses inside her... But I don't feel anything come out. @
>She squeezed everything out of me, at last. \
>At the same time, I feel incredibly weak. @
>My vision slowly goes dark as I feel myself on the verge of fainting. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_29.ogg"
>Hehe, nothing is coming out. 
>Then I'll let you rest a little... While still connected, of course. \
if %con_hvoice=0 && %sinkouonoff=2 delay 11000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ah...uh... \
name ""
>Alice hugs me close to her. @
>Still in her embrace, I feel myself drifting off... \
mov %hseanwave,0:hseanwave
gosub *anten
>Passing out from lack of energy, I can't say it was a peaceful sleep. @
>Soon enough... \
mov %hseanwave,5:hseanwave
lsp 690,":a;chara\alice_ct04.bmp",401,0
lsp 700,":a;chara\alice_H12_2.bmp",0,0
bg "bg\bg047.bmp",10,1500
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_30.ogg"
>Hehe, you're awake. 
>Even while you fainted, you still came inside me multiple times. \
if %con_hvoice=0 && %sinkouonoff=2 delay 14000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\alice12_31.ogg"
>Although most were pathetically empty... Haha. \
if %con_hvoice=0 && %sinkouonoff=2 delay 13000-%autotime
\
name ""
dwavestop 13
>Looking down over me, Alice laughs. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_32.ogg"
>But after your short rest, your semen seems to have refilled. 
>Now, I'll draw out what you saved up... \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahhh! \
name ""
>Alice's vagina squeezes down harder on me. @
>But this time, I feel something press against me deep inside of her... \
>I feel something like a mouth open up, and suck on my very tip. \
name "Luka "
>Haa! @
>W...What is this...? \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_33.ogg"
>Hehe... My cervix wants your semen. 
>We've been mating this whole time, so my reproductive instinct is getting     more lively... \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahh... That feels so good... \
name ""
>Her tiny opening continues sucking on my tip, the intense feelings making me  want to forget everything else. \
>Each pulse of her vaginal flesh seems to pull me a little deeper inside, more of her tiny cervix sucking and rubbing against my tip. \
name "Luka "
>Haaa... @
>I'm... Going to come... \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_34.ogg"
>Hehe... I don't mind. Pump your semen right into my womb. 
>Pour all of your semen inside, and get me pregnant... \
if %con_hvoice=0 && %sinkouonoff=2 delay 14000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahhh... \
name ""
>Her cervix continues sucking on my tip, eager for me to come... @
>Giving in to that sensation, I relax my body and embrace the rising climax. \
gosub *syasei1:gosub *syasei2
>And like that, I explode right inside of her womb. @
>The sweet feeling of release floods me as my semen shoots into her deepest    parts. \
name "Luka "
>Haaa... \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_35.ogg"
>Hehe... Able to shoot your seed straight into my womb makes you happy too,    doesn't it? 
>Has the rest of your sanity all been blown away, too? \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
\
name ""
dwavestop 13
>Alice presses her waist against me harder than ever before. @
>My tip, already sucked partially into her cervix, sinks even deeper... \
name "Luka "
>Haa... Wh...What... \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_36.ogg"
>Hehe... I'll take your penis into my womb. 
>You should be happy I'm letting you invade all the way to here... \
if %con_hvoice=0 && %sinkouonoff=2 delay 14000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahhh...! \
name ""
>My penis slips deeper inside, pushing through her tight cervix... @
>Until suddenly, I feel my tip reach another space. \
>I'm left speechless at both the thought and touch of what's going on. \
name "Luka "
>Haa... Ah... \
name ""
>The hole is incredibly tight... @
>Filled with more folds than her vagina, her cervix is rubbing hard right      underneath the neck of my penis. \
>It feels like I could just melt away in pleasure inside her... \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_37.ogg"
>Haha... How does it feel to enter the baby's room before the baby does? \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ah...ah... \
name ""
>Instead of replying verbally, I reach another climax... \
gosub *syasei1:gosub *syasei2
>And quickly explode, my semen spurting straight into her womb. \
>It wasn't like a normal ejaculation... @
>Surrendering my body to her, it felt like I was just melting away... \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_38.ogg"
>Slipping into the baby's room, then leaking... 
>What a bad Papa... Haha. \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahh... Ah... \
name ""
>I can't do anything but cling to Alice any longer. @
>My body starts to tremble as her touch fills my senses... \
gosub *syasei1:gosub *syasei2
>And after only a few seconds, I reach another orgasm inside of her. \
name "Luka "
>Haaa... Amazing... \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_39.ogg"
>Sheesh... Even though we're supposed to be making children, you're acting     like a baby. 
>Have you gotten completely addicted to the touch of my womb? \
if %con_hvoice=0 && %sinkouonoff=2 delay 13000-%autotime
\
name ""
dwavestop 13
>Alice lovingly caresses me, holding me tight in her embrace. @
>But I see a hint of playful sadism in her eyes... \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_40.ogg"
>Hehe... I don't mind. 
>Do what you like, and continue seeding my womb directly... \
if %con_hvoice=0 && %sinkouonoff=2 delay 10000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ahhh... \
name ""
gosub *syasei1:gosub *syasei2
>Just the feeling of being inside her is enough to make me come. @
>At this rate, I'll be milked dry and pass out again... \
>But there's no resisting this... @ >I just moan and drown in the pleasure. \
name "Luka "
>Ahh... \
name ""
gosub *syasei1:gosub *syasei2
>My mind slowly fogs each time I come, both my energy and semen gushing out    into Alice. @
>I'm slowly having everything drawn out of me... \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_41.ogg"
>Hehe... The baby's room is covered in semen. 
>Such a disgraceful Papa, polluting my insides so much... \
if %con_hvoice=0 && %sinkouonoff=2 delay 11000-%autotime
\
name ""
dwavestop 13
name "Luka "
>...Ah...ah... \
name ""
gosub *syasei1:gosub *syasei2
>While spurting the last of my semen into her, I slowly drift back into        unconsciousness... \
gosub *anten
>Like I was trapped in a dream, I continue to come nonstop until I'm dry, then I pass out... @
>After an hour of rest, it starts all over again. \
lsp 690,":a;chara\alice_ct04.bmp",401,0
lsp 700,":a;chara\alice_H12_3.bmp",0,0
bg "bg\bg047.bmp",10,1500
name "Luka "
>Ah...ah... @
>Alice... @ >No more... \
name ""
>By the third day, I can barely breathe. @
>Even though I'm gasping, Alice continues to dominate me, a large smile on her face. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_42.ogg"
>Haha... Even though you're going to be a Papa, you have such a pitiful        face... 
>Your drool and semen are leaking everywhere... How unsightly. \
if %con_hvoice=0 && %sinkouonoff=2 delay 12000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ah... \
name ""
>Alice teases me as she tightens her vagina around me. @
>I'm no longer able to do anything but moan and climax. \
>Her womb and vagina are both completely full of semen... @
>But even still, Alice doesn't stop forcing me to continue coming. \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_43.ogg"
>Hoora, I won't let you hold back. 
>If I tighten it deep inside like this... \
if %con_hvoice=0 && %sinkouonoff=2 delay 8000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Hyaaa... \
name ""
gosub *syasei1:gosub *syasei2
>Completely under her thumb, I come right on cue. \
>During this long mating session, Alice took me under her complete control. @
>It's like I'm merely a child, doing everything Alice requests... \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_44.ogg"
>What's wrong? Your semen is getting thin. 
>It seems like the one hour breaks aren't effective any longer. \
if %con_hvoice=0 && %sinkouonoff=2 delay 5000-%autotime
\
dwavestop 13
if %con_hvoice=0 dwave 13,"voice\alice12_45.ogg"
>Hora, I'll squeeze it right from the root... \
if %con_hvoice=0 && %sinkouonoff=2 delay 11000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ah... \
name ""
>Alice squeezes me from the center of my penis, slowly down towards my tip... @
>Responding like I was trained, I go over the edge again. \
gosub *syasei1:gosub *syasei2
>Loose in her embrace, my body lightly jerks as I come. @
>My fingers and toes lightly curl, but that's all I can manage. \
>But Alice doesn't slow down for a moment... \
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_46.ogg"
>Hoora, you can't relax until the end. 
>I'm going to keep on drawing out your semen for one more night... \
if %con_hvoice=0 && %sinkouonoff=2 delay 10000-%autotime
\
name ""
dwavestop 13
name "Luka "
>S...top... @
>I...I'll die... \
name ""
>No matter how weak my body gets, it's still able to react to her touch... \
gosub *syasei1:gosub *syasei2
>Without fail, my penis pulses inside of her again. @
>But the amount of semen has sharply decreased. \
name "Luka "
>Ahh... Help... \
name ""
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_47.ogg"
>Stop complaining, you can keep going, can't you? \
if %con_hvoice=0 && %sinkouonoff=2 delay 5000-%autotime
\
name ""
dwavestop 13
name "Luka "
>Ah...Uh... \
name ""
gosub *syasei1:gosub *syasei2
>My penis weakly pulses, spitting out another drop of semen into her. @
>No matter how weak I get, Alice won't stop... \
name "Luka "
>Ah...ah... \
name ""
gosub *syasei1:gosub *syasei2
name "Alice "
if %con_hvoice=0 dwave 13,"voice\alice12_48.ogg"
>That's right, just climax over and over again... 
>It's too early to faint. Fulfill your male duties to the end... \
if %con_hvoice=0 && %sinkouonoff=2 delay 13000-%autotime
\
name ""
dwavestop 13
>Moving her hips back and forth, Alice's intense mating continues... @
>Barely able to breathe, I continue coming... Just as she wants. \
gosub *syasei1:gosub *syasei2
mov %hseanwave,0:hseanwave
gosub *anten
>For three days and three nights, Alice drained all of my semen. \
>When it was over, I was barely able to breathe and walk. @
>It took a full week to recover. \
>During my journey, I fought a lot of battles. @
>But mating with Alice may be my biggest challenge yet. \
>............. \
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0

*zukan_alice_ng

mov %zukan_page,11
mov %zukanon,0
mov $zname,"Alice (NG+)"
mov $zlavel,"alice_ng"
itoa2 $zukan_ko,%30001
mov %zukan_facenum,9
mov %zukan_posenum,8
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,2
if %hsean_alice_ng>0 mov %hscene1,1
if %hsean_alice_ng<1 mov %hscene1,0
if %hsean_alice_ng2>0 mov %hscene2,1
if %hsean_alice_ng<1 mov %hscene2,0
mov %zukancg,1
mov %zukan_x1,-20
mov %zukan_x2,150
mov $zukan_lv,"145"
mov $zukan_hp,"32000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_alice_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\alice_ng.jpg",400,-25
goto *zukan_kihonbtn



*zukan_alice_ng_p

if %zukan_pose=5 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,4

if %game_clear=0 && %zukan_pose<3 && %zukan_face=10 mov %zukan_face,1
if %game_clear=0 && %zukan_pose<3 && %zukan_face=0 mov %zukan_face,9
if %game_clear>1 && %zukan_pose<3 && %zukan_face=10 mov %zukan_face,1
if %game_clear>1 && %zukan_pose<3 && %zukan_face=0 mov %zukan_face,9

if %zukan_pose=3 && %zukan_face=10 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,9
if %zukan_pose=4 && %zukan_face=10 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=0 mov %zukan_face,9
if %zukan_pose=5 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=5 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=6 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=6 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=7 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=7 && %zukan_face=0 mov %zukan_face,2

if %zukan_pose=8 mov %zukan_face,1

if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\alice_st01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\alice_st01b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\alice_st02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\alice_st02b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\alice_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\alice_st03b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\alice_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\alice_st04b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\alice_st05.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=5 lsp 450,":a;chara\alice_st05b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\alice_st06.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=6 lsp 450,":a;chara\alice_st06b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=7 lsp 450,":a;chara\alice_st07.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=7 lsp 450,":a;chara\alice_st07b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=8 lsp 450,":a;chara\alice_st08.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=8 lsp 450,":a;chara\alice_st08b.bmp",%zukan_x0-80,0
if %zukan_pose=1 && %zukan_face=9 lsp 450,":a;chara\alice_st09.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=9 lsp 450,":a;chara\alice_st09b.bmp",%zukan_x0-80,0

if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\alice_st11.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\alice_st11b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\alice_st12.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\alice_st12b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\alice_st13.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\alice_st13b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;chara\alice_st14.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=4 lsp 450,":a;chara\alice_st14b.bmp",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=5 lsp 450,":a;2Q\chara\alice_st15.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=5 lsp 450,":a;2Q\chara\alice_st15b.png",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=6 lsp 450,":a;2Q\chara\alice_st16.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=6 lsp 450,":a;2Q\chara\alice_st16b.png",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=7 lsp 450,":a;2Q\chara\alice_st17.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=7 lsp 450,":a;2Q\chara\alice_st17b.png",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=8 lsp 450,":a;2Q\chara\alice_st18.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=8 lsp 450,":a;2Q\chara\alice_st18b.png",%zukan_x0-80,0
if %zukan_pose=3 && %zukan_face=9 lsp 450,":a;2Q\chara\alice_st19.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=9 lsp 450,":a;2Q\chara\alice_st19b.png",%zukan_x0-80,0


if %zukan_pose=5 && %zukan_face=1 lsp 450,":a;chara\alice_st21.bmp",%zukan_x0,0
if %zukan_pose=6 && %zukan_face=1 lsp 450,":a;chara\alice_st21b.bmp",%zukan_x0-80,0
if %zukan_pose=5 && %zukan_face=2 lsp 450,":a;chara\alice_st22.bmp",%zukan_x0,0
if %zukan_pose=6 && %zukan_face=2 lsp 450,":a;chara\alice_st22b.bmp",%zukan_x0-80,0

if %zukan_pose=7 && %zukan_face=1 lsp 450,":a;chara\alice_st23.bmp",%zukan_x0,0
if %zukan_pose=7 && %zukan_face=2 lsp 450,":a;chara\alice_st24.bmp",%zukan_x0,0

if %zukan_pose=8 && %zukan_face=1 lsp 450,":a;chara\alice_st31.bmp",%zukan_x0+80,125

return



*zukan_alice_ng_cg

if %hsean_alice_ng=0 skip 12
lsp 500,":c;bg\bg015.bmp",0,0
lsp 430,":a;chara\alice_h02_1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h02_2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h02_3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h02_4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\alice_h02_5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel

if %hsean_alice_ng2<1 skip 4
lsp 500,":c;bg\bg195.bmp",0,0
lsp 430,":a;chara\alice_h03_1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel

lsp 430,":c;chara\alice_iv01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\alice_iv02.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_alice_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,0
mov %mylv,2
mov %skill01,0
mov %item01,1
gosub *setwindow_01
if %bwait=213 bgm"bgm\city1.ogg":mov $name,"Alice":mov %mylv,80:lsp 700,":a;chara\alice_st02b.bmp",67,0:bg "bg\bg015.bmp",10,1500:goto *sean0050
if %bwait=214 bgmstop:mov $name,"Alice":mov %mylv,80:lsp 700,":a;chara\alice_st02b.bmp",67,0:bg "bg\bg009.bmp",10,1500:goto *alice_scene1h

*zukan_alice_ng_prev

if %7030>0 goto *zukan_beelzebub_ng
if %7030<1 goto *zukan_beelzebub_ng_prev
goto *zukan_alice_ng_prev

*zukan_alice_ng_next

if %7002>0 goto *zukan_granberia_ng
if %7002<1 goto *zukan_granberia_ng_next
goto *zukan_alice_ng_next


*zukan_granberia_ng

mov %zukanon,0
mov $zname,"Granberia (NG+)"
mov $zlavel,"granberia_ng"
itoa2 $zukan_ko,%30002
mov %zukan_facenum,9
mov %zukan_posenum,8
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %7002<2 mov %hscene1,0
if %7002>1 mov %hscene1,1
if %7002<2 mov %zukancg,0
if %7002>1 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov %zukan_cum1,0
mov $zukan_lv,"126"
mov $zukan_hp,"32000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_granberia_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\granberia_ng.jpg",400,15
goto *zukan_kihonbtn



*zukan_granberia_ng_p

if %zukan_pose=1 && %zukan_face=8 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,6
if %zukan_pose=2 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=3 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=4 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=5 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,4
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\granberia_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\granberia_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\granberia_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\granberia_st04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\granberia_st05.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\granberia_st06.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=7 lsp 450,":a;chara\granberia_st07.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\granberia_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\granberia_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\granberia_st13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\granberia_st41.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\granberia_st42.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\granberia_st51.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\granberia_st52.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\granberia_st53.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=0 csp 442
if %zukan_cum3=0 csp 443
if %zukan_pose>1 cspl 441,443
return



*zukan_granberia_ng_cg

if %7002<2 skip 9
lsp 500,":c;bg\bg006.bmp",0,0
lsp 430,":a;2Q\chara\granberia_hg1.png",100,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\granberia_hg2.png",100,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\granberia_hg3.png",100,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\granberia_hg4.png",100,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_granberia_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %skillset,2
mov %mylv,80
mov %skill01,25
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %sylph_get,0
mov %gnome_get,0
mov %undine_get,0
mov %salamander_get,0
mov %item01,1
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *granberia_ng_start
if %bwait=211 mov %nanido,2:goto *granberia_ng_start
if %bwait=212 mov %nanido,3:goto *granberia_ng_start
if %bwait=213 bgmstop:mov $name,"Granberia":mov %mylv,80:bg black,10,1000:goto *granberia_ng_h

*zukan_granberia_ng_prev

if %7001>0 goto *zukan_alice_ng
if %7001<1 goto *zukan_alice_ng_prev
goto *zukan_granberia_ng_prev

*zukan_granberia_ng_next

if %7003>0 goto *zukan_queenharpy_ng
if %7003<1 goto *zukan_queenharpy_ng_next
goto *zukan_granberia_ng_next


*zukan_queenharpy_ng

mov %zukanon,0
mov $zname,"Queen Harpy (NG+)"
mov $zlavel,"queenharpy_ng"
itoa2 $zukan_ko,%30003
mov %zukan_facenum,4
mov %zukan_posenum,2
mov %zukan_cumnum,0
if %7003>0 mov %zukan_battlenum,1
if %7003<1 mov %zukan_battlenum,0
mov %zukan_hscenenum,2
if %7003<2 mov %hscene1,0
if %7003>1 mov %hscene1,1
if %hsean_queenharpy_ng<1 mov %hscene2,0
if %hsean_queenharpy_ng>0 mov %hscene2,1
if %7003<2 mov %zukancg,0
if %7003>1 mov %zukancg,1
if %hsean_queenharpy_ng>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0

mov $zukan_lv,"113"
mov $zukan_hp,"25000"
mov $zukan_skill1,"Harpy Footjob"
mov %zukan_skillc1,3025
mov $zukan_skill2,"Harpy Blowjob"
mov %zukan_skillc2,3026
mov $zukan_skill3,"Feather Massage"
mov %zukan_skillc3,3027
mov $zukan_skill4,"Royal Tit Fuck"
mov %zukan_skillc4,3028
mov $zukan_skill5,"Royal Pussy"
mov %zukan_skillc5,3029
mov $zukan_skill6,"Royal Pumping"
mov %zukan_skillc6,3030
mov $zukan_skill7,"Happiness Rondo"
mov %zukan_skillc7,3031
mov $zukan_skill8,"Queen's Face Ride"
mov %zukan_skillc8,8500
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_queenharpy_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\queenhapy_ng.jpg",400,10
goto *zukan_kihonbtn



*zukan_queenharpy_ng_p

if %zukan_pose=1 && %zukan_face=5 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,4
if %zukan_pose=2 && %zukan_face=5 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,4
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;2Q\chara\queenhapy_st21.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;2Q\chara\queenhapy_st22.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;2Q\chara\queenhapy_st23.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;2Q\chara\queenhapy_st24.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\queenhapy_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\queenhapy_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;2Q\chara\queenhapy_st13.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;2Q\chara\queenhapy_st14.png",%zukan_x0,0
if %zukan_pose=3 mov %zukan_pose,1:goto *zukan_queenharpy_ng_p
if %zukan_cum1=1 lsp 441,":a;chara\queenhapy_bk02.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\queenhapy_bk03.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\queenhapy_bk04.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\queenhapy_bk05.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose>1 cspl 441,443
return



*zukan_queenharpy_ng_cg

if %7003<2 && %hsean_queenharpy_ng<1 skip 8
lsp 500,":c;bg\bg028.bmp",0,0
lsp 430,":a;chara\queenhapy_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenhapy_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenhapy_h3.bmp",0,0

if %hsean_queenharpy_ng<1 skip 13
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\queenhapy_hb1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\queenhapy_hb1b.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\queenhapy_hb1c.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\queenhapy_hb2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\queenhapy_hb3.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\queenhapy_hb4.png",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_queenharpy_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %skillset,2
mov %mylv,81
mov %skill01,25
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %sylph_get,0
mov %gnome_get,0
mov %undine_get,0
mov %salamander_get,0
mov %item01,1
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *queenharpy_ng_start
if %bwait=211 mov %nanido,2:goto *queenharpy_ng_start
if %bwait=212 mov %nanido,3:goto *queenharpy_ng_start
if %bwait=213 bgmstop:mov $name,"Queen Harpy":mov %mylv,81:lsp 700,":a;2Q\chara\queenhapy_st21.png",0,0:bg "bg\bg027.bmp",10,1500:goto *queenharpy_ng_h
if %bwait=214 bgmstop:mov $name,"Queen Harpy":mov %mylv,81:lsp 700,":a;2Q\chara\queenhapy_st21.png",0,0:bg "bg\bg028.bmp",10,1500:goto *queenhapy3_h

*zukan_queenharpy_ng_prev

if %7002>0 goto *zukan_granberia_ng
if %7002<1 goto *zukan_granberia_ng_prev
goto *zukan_queenharpy_ng_prev

*zukan_queenharpy_ng_next

if %7004>0 goto *zukan_tamamo_ng
if %7004<1 goto *zukan_tamamo_ng_next
goto *zukan_queenharpy_ng_next

*zukan_tamamo_ng

mov %zukanon,0
mov $zname,"Tamamo (NG+)"
mov $zlavel,"tamamo_ng"
itoa2 $zukan_ko,%30004
mov %zukan_facenum,7
mov %zukan_posenum,4
mov %zukan_cumnum,0
if %7004>0 mov %zukan_battlenum,1
if %7004<1 mov %zukan_hscenenum,0
mov %zukan_hscenenum,3
if %7004<2 mov %hscene1,0
if %7004>1 mov %hscene1,1
if %hsean_tamamo_ng<1 mov %hscene2,0
if %hsean_tamamo_ng>0 mov %hscene2,1
if %hsean_tamamo_ng2<1 mov %hscene3,0
if %hsean_tamamo_ng2>0 mov %hscene3,1
if %7004<2 mov %zukancg,0
if %7004>1 mov %zukancg,1
if %hsean_tamamo_ng>0 mov %zukancg,1
if %hsean_tamamo_ng2>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"3XX (Current) 5XX (Full)"
mov $zukan_hp,"48000 (Current) 72000 (Full)"
mov $zukan_skill1,"Kitsune Handling"
mov %zukan_skillc1,3641
mov $zukan_skill2,"Fox Blowjob"
mov %zukan_skillc2,3642
mov $zukan_skill3,"Beast Lord's Titfuck"
mov %zukan_skillc3,3643
mov $zukan_skill4,"Moonwar Footpound"
mov %zukan_skillc4,3644
mov $zukan_skill5,"Emasculating Amusement"
mov %zukan_skillc5,3645
mov $zukan_skill6,"Moontail Entanglement"
mov %zukan_skillc6,3646
mov $zukan_skill7,"Nine Moons"
mov %zukan_skillc7,3647
mov $zukan_skill8,"Moonlight Rendezvous"
mov %zukan_skillc8,3648
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_tamamo_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\tamamo_ng.jpg",400,-5
goto *zukan_kihonbtn



*zukan_tamamo_ng_p

if %zukan_pose=1 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=2 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=3 && %zukan_face=7 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,6
if %zukan_pose=4 && %zukan_face=8 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=0 mov %zukan_face,7
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;2Q\chara\tamamo_st62.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;2Q\chara\tamamo_st61.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;2Q\chara\tamamo_st63.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;2Q\chara\tamamo_st51.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;2Q\chara\tamamo_st52.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;2Q\chara\tamamo_st53.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\tamamo_st11.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\tamamo_st12.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\tamamo_st13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;chara\tamamo_st14.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=5 lsp 450,":a;2Q\chara\tamamo_st15.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=6 lsp 450,":a;2Q\chara\tamamo_st16.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\tamamo_st01.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\tamamo_st02.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\tamamo_st03.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=4 lsp 450,":a;chara\tamamo_st04.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=5 lsp 450,":a;2Q\chara\tamamo_st05.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=6 lsp 450,":a;2Q\chara\tamamo_st06.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=7 lsp 450,":a;2Q\chara\tamamo_st09.png",%zukan_x0,0
if %zukan_pose=5 mov %zukan_pose,1:goto *zukan_tamamo_ng_p
if %zukan_cum1=1 lsp 441,":a;chara\tamamo_bk02.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\tamamo_bk03.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\tamamo_bk04.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\tamamo_bk05.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_pose>1 cspl 441,443
return



*zukan_tamamo_ng_cg

if %7004<2 skip 22
lsp 500,":c;bg\bg035.bmp",0,0
lsp 430,":a;chara\tamamo_hd01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hd02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hd03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hd04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hd05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hd06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hd07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hd08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hd09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_hd10.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel

if %hsean_tamamo_ng<1 skip 12
lsp 500,":c;bg\bg009.bmp",0,0
lsp 430,":a;chara\tamamo_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_h5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\tamamo_h6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel

if %hsean_tamamo_ng2<1 skip 6
lsp 500,":c;bg\bg114.bmp",0,0
lsp 430,":a;2Q\chara\tamamo_he1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\tamamo_he2.png",0,0
print 10,500:lrclick

return "*zukan_"+$zlavel



*zukan_tamamo_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %skillset,2
mov %mylv,82
mov %skill01,26
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %sylph_get,0
mov %gnome_get,0
mov %undine_get,0
mov %salamander_get,0
mov %item01,1
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *tamamo_ng_start
if %bwait=211 mov %nanido,2:goto *tamamo_ng_start
if %bwait=212 mov %nanido,3:goto *tamamo_ng_start
if %bwait=213 bgmstop:mov $name,"Tamamo":mov %mylv,81:lsp 700,":a;2Q\chara\tamamo_st62.png",0,0:bg "bg\bg035.bmp",10,1500:goto *tamamo_ng_h
if %bwait=214 bgmstop:mov $name,"Tamamo":mov %mylv,81:lsp 700,":a;chara\tamamo_st02.bmp",0,0:bg "bg\bg009.bmp",10,1500:goto *camp6_tamamoh
if %bwait=215 bgmstop:mov $name,"Tamamo":mov %mylv,90:bg "bg\bg114.bmp",10,1500:goto *campgrandnoah_castle_tamamo_special

*zukan_tamamo_ng_prev

if %7003>0 goto *zukan_queenharpy_ng
if %7003<1 goto *zukan_queenharpy_ng_prev
goto *zukan_tamamo_ng_prev

*zukan_tamamo_ng_next

if %7005>0 goto *zukan_alma_ng
if %7005<1 goto *zukan_alma_ng_next
goto *zukan_tamamo_ng_next


*zukan_alma_ng

mov %zukanon,0
mov $zname,"Alma Elma (NG+)"
mov $zlavel,"alma_ng"
itoa2 $zukan_ko,%30005
mov %zukan_facenum,10
mov %zukan_posenum,3
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %7005<2 mov %hscene1,0
if %7005>1 mov %hscene1,1
if %hsean_alma_ng2<1 mov %hscene2,0
if %hsean_alma_ng2>0 mov %hscene2,1
if %7005<2 && %hsean_alma_ng2<1 mov %zukancg,0
if %7005>1 || %hsean_alma_ng2>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"125"
mov $zukan_hp,"25000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_alma_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\alma_ng.jpg",400,5
goto *zukan_kihonbtn




*zukan_alma_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=2 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=3 && %zukan_face=10 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,9
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\arumaeruma_st51.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\arumaeruma_st52.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\arumaeruma_st53.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\arumaeruma_st21.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\arumaeruma_st22.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\arumaeruma_st23.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;2Q\chara\arumaeruma_st11.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;2Q\chara\arumaeruma_st11.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;2Q\chara\arumaeruma_st13.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;2Q\chara\arumaeruma_st14.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=5 lsp 450,":a;2Q\chara\arumaeruma_st15.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=6 lsp 450,":a;2Q\chara\arumaeruma_st16.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=7 lsp 450,":a;2Q\chara\arumaeruma_st17.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=8 lsp 450,":a;2Q\chara\arumaeruma_st18.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=9 lsp 450,":a;2Q\chara\arumaeruma_st19.png",%zukan_x0,0
return



*zukan_alma_ng_cg

lsp 500,":c;2Q\bg\bg_darkbeach.bmp",0,0
lsp 430,":a;chara\arumaeruma_hd0.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_hd1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_hd2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_hd3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\arumaeruma_hd4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_alma_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,83
mov %skill01,27
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,1
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *alma_ng_start
if %bwait=211 mov %nanido,2:goto *alma_ng_start
if %bwait=212 mov %nanido,3:goto *alma_ng_start
if %bwait=213 bgmstop:mov $name,"Alma Elma":mov %mylv,85:bg black,10,1000:lsp 700,":a;chara\arumaeruma_st51.bmp",0,0:bg "2Q\bg\bg_darkbeach.bmp",10,1000:goto *alma_ng_h

*zukan_alma_ng_prev

if %7004>0 goto *zukan_tamamo_ng
if %7004<1 goto *zukan_tamamo_ng_prev
goto *zukan_alma_ng_prev

*zukan_alma_ng_next

if %7006>0 goto *zukan_salamander_ng
if %7006<1 goto *zukan_salamander_ng_next
goto *zukan_alma_ng_next


*zukan_salamander_ng

mov %zukanon,0
mov $zname,"Salamander (NG+)"
mov $zlavel,"salamander_ng"
itoa2 $zukan_ko,%30006
mov %zukan_facenum,10
mov %zukan_posenum,3
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %7006<2 mov %hscene1,0
if %7006>1 mov %hscene1,1
if %hsean_salamander_ng2<1 mov %hscene2,0
if %hsean_salamander_ng2>0 mov %hscene2,1
if %7006<2 mov %zukancg,0
if %7006>1 mov %zukancg,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"99"
mov $zukan_hp,"20000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_salamander_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\salamander_ng.jpg",400,-10
goto *zukan_kihonbtn




*zukan_salamander_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=8 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,7
if %zukan_pose=2 && %zukan_face=8 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,7
if %zukan_pose=3 && %zukan_face=11 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,10
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;2Q\chara\salamander_st01.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;2Q\chara\salamander_st02.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;2Q\chara\salamander_st03.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;2Q\chara\salamander_st05.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;2Q\chara\salamander_st06.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;2Q\chara\salamander_st07.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=7 lsp 450,":a;2Q\chara\salamander_st08.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;2Q\chara\salamander_st11.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;2Q\chara\salamander_st12.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;2Q\chara\salamander_st13.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;2Q\chara\salamander_st15.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=5 lsp 450,":a;2Q\chara\salamander_st16.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=6 lsp 450,":a;2Q\chara\salamander_st17.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=7 lsp 450,":a;2Q\chara\salamander_st18.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;2Q\chara\salamander_st21.png",%zukan_x0+226,144
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;2Q\chara\salamander_st22.png",%zukan_x0+226,144
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;2Q\chara\salamander_st23.png",%zukan_x0+226,144
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;2Q\chara\salamander_st24.png",%zukan_x0+227,145
if %zukan_pose=3 && %zukan_face=5 lsp 450,":a;2Q\chara\salamander_st25.png",%zukan_x0+226,144
if %zukan_pose=3 && %zukan_face=6 lsp 450,":a;2Q\chara\salamander_st26.png",%zukan_x0+226,144
if %zukan_pose=3 && %zukan_face=7 lsp 450,":a;2Q\chara\salamander_st27.png",%zukan_x0+226,144
if %zukan_pose=3 && %zukan_face=8 lsp 450,":a;2Q\chara\salamander_st28.png",%zukan_x0+227,145
if %zukan_pose=3 && %zukan_face=9 lsp 450,":a;2Q\chara\salamander_st29.png",%zukan_x0+227,145
if %zukan_pose=3 && %zukan_face=10 lsp 450,":a;2Q\chara\salamander_cold.png",%zukan_x0+227,145
return



*zukan_salamander_ng_cg

lsp 500,":c;bg\bg115.bmp",0,0
lsp 430,":a;2Q\chara\salamander_hb1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\salamander_hb2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\salamander_hb3.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\salamander_hb4.png",0,0

if %hsean_salamander_ng2<1 skip 10
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 500,":c;bg\bg009.bmp",0,0
lsp 430,":a;2Q\chara\salamander_hc1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\salamander_hc2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\salamander_hc3.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\salamander_hc4.png",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_salamander_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,85
mov %skill01,27
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,1
gosub *setwindow_01
if %bwait=210 mov %nanido,1:bg black,10,1000:bg "bg\bg115.bmp",10,1000:goto *salamander_ng_start
if %bwait=211 mov %nanido,2:bg black,10,1000:bg "bg\bg115.bmp",10,1000:goto *salamander_ng_start
if %bwait=212 mov %nanido,3:bg black,10,1000:bg "bg\bg115.bmp",10,1000:goto *salamander_ng_start
if %bwait=213 bgmstop:mov $name,"Salamander":mov %mylv,85:bg black,10,1000:lsp 700,":a;2Q\chara\salamander_st12.png",0,0:bg "bg\bg115.bmp",10,1000:goto *salamander_ng_hb
if %bwait=214 bgmstop:mov $name,"Salamander":mov %mylv,85:bg black,10,1000:goto *salamander0_h2

*zukan_salamander_ng_prev

if %7005>0 goto *zukan_alma_ng
if %7005<1 goto *zukan_alma_ng_prev
goto *zukan_salamander_ng_prev

*zukan_salamander_ng_next

if %7011>0 goto *zukan_undine_ng
if %7011<1 goto *zukan_undine_ng_next
goto *zukan_salamander_ng_next

*zukan_undine_ng

mov %zukanon,0
mov $zname,"Undine (NG+)"
mov $zlavel,"undine_ng"
itoa2 $zukan_ko,%30011
mov %zukan_facenum,7
mov %zukan_posenum,3
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %7011<2 mov %hscene1,0
if %7011>1 mov %hscene1,1
if %7011<2 mov %zukancg,0
if %7011>1 mov %zukancg,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"96"
mov $zukan_hp,"18000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_undine_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\undine_ng.jpg",400,5
goto *zukan_kihonbtn




*zukan_undine_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=8 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,7
if %zukan_pose=2 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=5 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,4
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\undine_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\undine_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\undine_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;2Q\chara\undine_st04.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;2Q\chara\undine_st05.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;2Q\chara\undine_st06.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=7 lsp 450,":a;2Q\chara\undine_st07.png",%zukan_x0,0
if %zukan_pose=2 lsp 450,":a;chara\undine_st11.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\undine_st21.bmp",%zukan_x0+226,144
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\undine_st22.bmp",%zukan_x0+226,144
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\undine_st23.bmp",%zukan_x0+226,144
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;chara\undine_st24.bmp",%zukan_x0+227,145
return



*zukan_undine_ng_cg

lsp 500,":c;bg\bg050.bmp",0,0
lsp 430,":a;2Q\chara\undine_hb1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\undine_hb2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\undine_hb3.png",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_undine_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,85
mov %skill01,27
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,1
mov %spirit_count,1
mov %salamander_get,1
mov %skill05,3
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *undine_ng_start
if %bwait=211 mov %nanido,2:goto *undine_ng_start
if %bwait=212 mov %nanido,3:goto *undine_ng_start
if %bwait=213 bgmstop:mov $name,"Undine":mov %mylv,85:bg black,10,1000:lsp 700,":a;chara\undine_st01.bmp",0,0:bg "bg\bg050.bmp",10,1000:goto *undine_ng_h

*zukan_undine_ng_prev

if %7006>0 goto *zukan_salamander_ng
if %7006<1 goto *zukan_salamander_ng_prev
goto *zukan_undine_ng_prev

*zukan_undine_ng_next

if %7007>0 || %hsean_sylph_ng2>0 goto *zukan_sylph_ng
if %7007<1 && %hsean_sylph_ng2<1 goto *zukan_sylph_ng_next
goto *zukan_undine_ng_next


*zukan_sylph_ng

mov %zukanon,0
mov $zname,"Sylph (NG+)"
mov $zlavel,"sylph_ng"
itoa2 $zukan_ko,%30007
mov %zukan_facenum,8
mov %zukan_posenum,4
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %7007<2 mov %hscene1,0
if %7007>1 mov %hscene1,1
if %hsean_sylph_ng2<1 mov %hscene2,0
if %hsean_sylph_ng2>0 mov %hscene2,1
if %7007<2 mov %zukancg,0
if %7007>1 mov %zukancg,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"65"
mov $zukan_hp,"8000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_sylph_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\sylph_ng.jpg",400,5
goto *zukan_kihonbtn




*zukan_sylph_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=9 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,8
if %zukan_pose=2 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=3 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=4 && %zukan_face=5 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=0 mov %zukan_face,4
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\sylph_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\sylph_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\sylph_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\sylph_st04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\sylph_st05.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\sylph_st06.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=7 lsp 450,":a;chara\sylph_st07.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=8 lsp 450,":a;2Q\chara\sylph_st08.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\sylph_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\sylph_st12.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\sylph_st21.bmp",%zukan_x0+0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;2Q\chara\sylph_st21b.png",%zukan_x0+0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;2Q\chara\sylph_st21c.png",%zukan_x0+0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;2Q\chara\sylph_st51.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;2Q\chara\sylph_st53.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;2Q\chara\sylph_st54.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=4 lsp 450,":a;2Q\chara\sylph_st55.png",%zukan_x0,0
return



*zukan_sylph_ng_cg

if %hsean_sylph_ng2<1 skip 8
lsp 500,":c;bg\bg009.bmp",0,0
lsp 430,":a;chara\sylph_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sylph_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sylph_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel

if %7007<2 skip 10
lsp 500,":c;bg\bg061.bmp",0,0
lsp 430,":a;chara\sylph_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sylph_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sylph_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\sylph_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_sylph_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,85
mov %skill01,27
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,1
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *sylph_ng_start
if %bwait=211 mov %nanido,2:goto *sylph_ng_start
if %bwait=212 mov %nanido,3:goto *sylph_ng_start
if %bwait=213 bgmstop:mov $name,"Sylph":mov %mylv,85:bg black,10,1000:lsp 700,":a;2Q\chara\sylph_st51.png",0,0:bg "bg\bg061.bmp",10,1000:goto *sylph_ng_hb
if %bwait=214 bgmstop:mov $name,"Sylph":mov %mylv,85:bg black,10,1000:lsp 700,":a;chara\sylph_st01.bmp",0,0:bg "bg\bg009.bmp",10,1000:goto *sylph_scene0rape

*zukan_sylph_ng_prev

if %7011>0 goto *zukan_undine_ng
if %7011<1 goto *zukan_undine_ng_prev
goto *zukan_sylph_ng_prev

*zukan_sylph_ng_next

if %7008>0 || %hsean_gnome_ng>0 goto *zukan_gnome_ng
if %7008<1 && %hsean_gnome_ng<1 goto *zukan_gnome_ng_next
goto *zukan_sylph_ng_next


*zukan_gnome_ng

mov %zukanon,0
mov $zname,"Gnome (NG+)"
mov $zlavel,"gnome_ng"
itoa2 $zukan_ko,%30008
mov %zukan_facenum,7
mov %zukan_posenum,3
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %7008<2 mov %hscene1,0
if %7008>1 mov %hscene1,1
if %hsean_gnome_ng<1 mov %hscene2,0
if %hsean_gnome_ng>0 mov %hscene2,1
if %7008<2 mov %zukancg,0
if %7008>1 mov %zukancg,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"80"
mov $zukan_hp,"14000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_gnome_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\gnome_ng.jpg",400,5
goto *zukan_kihonbtn




*zukan_gnome_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=2 && %zukan_face=5 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,4
if %zukan_pose=3 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;2Q\chara\gnome_st01.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;2Q\chara\gnome_st02.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;2Q\chara\gnome_st11.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;2Q\chara\gnome_st12.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;2Q\chara\gnome_st13.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;2Q\chara\gnome_st14.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;2Q\chara\gnome_st21.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;2Q\chara\gnome_st23.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;2Q\chara\gnome_st24.png",%zukan_x0,0
return



*zukan_gnome_ng_cg

if %7008<2 skip 17
lsp 500,":c;bg\bg076.bmp",0,0
lsp 430,":a;2Q\chara\gnome_hb1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\gnome_hb2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\gnome_hb3.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\gnome_hb4.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\gnome_hb5.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\gnome_hb6.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\gnome_hb7.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\gnome_hb8.png",0,0
if %hsean_gnome_ng<1 skip 3
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\gnome_hc1.png",0,0
lsp 500,":c;bg\bg009.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_gnome_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,85
mov %skill01,27
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,1
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *gnome_ng_start
if %bwait=211 mov %nanido,2:goto *gnome_ng_start
if %bwait=212 mov %nanido,3:goto *gnome_ng_start
if %bwait=213 bgmstop:mov $name,"Gnome":mov %mylv,85:bg black,10,1000:lsp 700,":a;chara\gnome_st12.bmp",0,0:bg "bg\bg076.bmp",10,1000:goto *gnome_ng_h
if %bwait=214 bgmstop:mov $name,"Gnome":mov %mylv,85:bg black,10,1000:lsp 700,":a;chara\gnome_st11.bmp",0,0:bg "bg\bg009.bmp",10,1000:goto *gnome_scene0h

*zukan_gnome_ng_prev

if %7007>0 || %hsean_sylph_ng2>0 goto *zukan_sylph_ng
if %7007<1 && %hsean_sylph_ng2<1 goto *zukan_sylph_ng_prev
goto *zukan_gnome_ng_prev

*zukan_gnome_ng_next

if %7009>0 || %7039>0 goto *zukan_erubetie_ng
if %7009<1 && $7039<1 goto *zukan_erubetie_ng_next
goto *zukan_gnome_ng_next


*zukan_erubetie_ng

mov %zukanon,0
mov $zname,"Erubetie (NG+)"
mov $zlavel,"erubetie_ng"
itoa2 $zukan_ko,%30009-1
mov %zukan_facenum,1
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,3
if %7009<2 mov %hscene1,0
if %7009>1 mov %hscene1,1
if %7039<1 mov %hscene2,0
if %7039>0 mov %hscene2,1
if %hsean_erubetie_ng<1 mov %hscene3,0
if %hsean_erubetie_ng>0 mov %hscene3,1
mov %zukancg,0
if %7009>1 || %7039>0 || %hsean_erubetie_ng>0 mov %zukancg,1
mov %zukan_x1,25
mov %zukan_x2,225
mov $zukan_lv,"125"
mov $zukan_hp,"36000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 301,":c;system\ency2.jpg",400,15			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_erubetie_ng_p
lsp 450,":a;chara\erbetie_st01.bmp",%zukan_x1,0
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\erubetie_ng.jpg",400,25
goto *zukan_kihonbtn




*zukan_erubetie_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=5 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,4
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\erbetie_st01.bmp",%zukan_x0,0
return



*zukan_erubetie_ng_cg

lsp 500,":c;bg\bg097.bmp",0,0

if %7009<2 skip 9
lsp 430,":a;chara\erbetie_ha1r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\erbetie_ha2r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\erbetie_ha3r.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\erbetie_ha4r.bmp",0,0
print 10,500:lrclick

if %7039<1 skip 7
lsp 430,":a;2Q\chara\erbetie_hd1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\erbetie_hd2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\erbetie_hd3.png",0,0
print 10,500:lrclick

if %hsean_erubetie_ng<1 skip 14
lsp 500,":c;bg\bg009.bmp",0,0
lsp 430,":a;2Q\chara\erbetie_he1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\erbetie_he2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\erbetie_he3.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\erbetie_he4.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\erbetie_he5.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\erbetie_he6.png",0,0
print 10,500:lrclick

return "*zukan_"+$zlavel



*zukan_erubetie_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,85
mov %skill01,27
mov %skill02,0
mov %skill03,0
mov %skill04,0
mov %skill05,0
mov %item01,1
gosub *setwindow_01
mov %zukanon,2
if %bwait=210 mov %nanido,1:goto *erubetie_ng_start
if %bwait=211 mov %nanido,2:goto *erubetie_ng_start
if %bwait=212 mov %nanido,3:goto *erubetie_ng_start
if %bwait=213 bgmstop:mov $name,"Erubetie":mov %mylv,85:bg black,10,1000:lsp 700,":a;chara\erbetie_st01.bmp",200,0:bg "bg\bg097.bmp",10,1000:goto *erubetie_ng_h
if %bwait=214 bgmstop:bg black,10,1000:bg "bg\bg097.bmp",10,1000:goto *undine_scenespring
if %bwait=215 bgmstop:bg black,10,1000:mov %camp,1:bg "bg\bg009.bmp",10,1000:goto *erubetie_scene0

*zukan_erubetie_ng_prev

if %7008>0 || %hsean_gnome_ng>0 goto *zukan_gnome_ng
if %7008<1 && %hsean_gnome_ng<1 goto *zukan_gnome_ng_prev
goto *zukan_erubetie_ng_prev

*zukan_erubetie_ng_next

if %7010>0 goto *zukan_micaela_ng
if %7010<1 goto *zukan_micaela_ng_next
goto *zukan_erubetie_ng_next


*zukan_micaela_ng

mov %zukanon,0
mov $zname,"Fallen Angel Micaela"
mov $zlavel,"micaela_ng"
itoa2 $zukan_ko,%30010
mov %zukan_facenum,4
mov %zukan_posenum,2
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
mov %hscene1,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"5XX"
mov $zukan_hp,"60000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_micaela_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\micaela_ng.jpg",400,15
goto *zukan_kihonbtn




*zukan_micaela_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=5 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,4
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\micaela_st21.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\micaela_st22.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\micaela_st23.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\micaela_st24.bmp",%zukan_x0,0
return



*zukan_micaela_ng_cg

lsp 500,":c;bg\bg001.bmp",0,0
lsp 430,":a;2Q\chara\micaela_h1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\micaela_h2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\micaela_h3.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\micaela_h4.png",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_micaela_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,85
mov %skill01,27
mov %item01,1
gosub *setwindow_01
if %bwait=213 bgmstop:mov $name,"Micaela":mov %mylv,85:bg black,10,1000:lsp 700,":a;chara\micaela_st23.bmp",0,0:bg "bg\bg001.bmp",10,1000:goto *micaela_h

*zukan_micaela_ng_prev

if %7009>0 || %7039>0 goto *zukan_erubetie_ng
if %7009<1 && $7039<1 goto *zukan_erubetie_ng_prev
goto *zukan_micaela_ng_prev

*zukan_micaela_ng_next

if %7012>0 goto *zukan_ririmu_ng
if %7012<1 goto *zukan_ririmu_ng_next
goto *zukan_micaela_ng_next


*zukan_ririmu_ng

mov %zukanon,0
mov $zname,"Ririmu"
mov $zlavel,"ririmu_ng"
itoa2 $zukan_ko,%30012-1
mov %zukan_facenum,4
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %7012<2 mov %hscene1,0
if %7012>1 mov %hscene1,1
if %7012<2 mov %zukancg,0
if %7012>1 mov %zukancg,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"100"
mov $zukan_hp,"30000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_ririmu_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\ririmu_ng.jpg",400,25
goto *zukan_kihonbtn




*zukan_ririmu_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=5 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,4
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;2Q\chara\ririmu_st01.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;2Q\chara\ririmu_st03.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;2Q\chara\ririmu_st04.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;2Q\chara\ririmu_st05.png",%zukan_x0,0
return



*zukan_ririmu_ng_cg

lsp 500,":c;bg\bg195.bmp",0,0
lsp 430,":a;2Q\chara\ririmu_ha1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\ririmu_ha2.png",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_ririmu_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,85
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %skill01,27
mov %item01,1
gosub *setwindow_01
mov %zukanon,2
if %bwait=210 mov %nanido,1:goto *ririmu_ng_start
if %bwait=211 mov %nanido,2:goto *ririmu_ng_start
if %bwait=212 mov %nanido,3:goto *ririmu_ng_start
if %bwait=213 bgmstop:mov $name,"Ririmu":mov %mylv,85:bg black,10,1000:lsp 700,":a;2Q\chara\ririmu_st01.png",0,0:bg "bg\bg107.bmp",10,1000:goto *ririmu_ng_h

*zukan_ririmu_ng_prev

if %7010>0 goto *zukan_micaela_ng
if %7010<1 goto *zukan_micaela_ng_prev
goto *zukan_ririmu_ng_prev

*zukan_ririmu_ng_next

if %7013>0 goto *zukan_koakuma_ng
if %7013<1 goto *zukan_koakuma_ng_next
goto *zukan_ririmu_ng_next


*zukan_koakuma_ng

mov %zukanon,0
mov $zname,"Koakuma"
mov $zlavel,"koakuma_ng"
itoa2 $zukan_ko,%30013-1
mov %zukan_facenum,2
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %7013<2 mov %hscene1,0
if %7013>1 mov %hscene1,1
if %7013<2 mov %zukancg,0
if %7013>1 mov %zukancg,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"104"
mov $zukan_hp,"40000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_koakuma_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\koakuma_ng.jpg",400,30
goto *zukan_kihonbtn




*zukan_koakuma_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;2Q\chara\koakuma_st02.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;2Q\chara\koakuma_st01.png",%zukan_x0,0
return



*zukan_koakuma_ng_cg

lsp 500,":c;bg\bg107.bmp",0,0
lsp 430,":a;2Q\chara\koakuma_h1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\koakuma_h2.png",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_koakuma_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,86
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %skill01,27
mov %item01,1
gosub *setwindow_01
mov %zukanon,2
if %bwait=210 mov %nanido,1:goto *koakuma_ng_start
if %bwait=211 mov %nanido,2:goto *koakuma_ng_start
if %bwait=212 mov %nanido,3:goto *koakuma_ng_start
if %bwait=213 bgmstop:mov $name,"Koakuma":mov %mylv,86:bg black,10,1000:lsp 700,":a;2Q\chara\koakuma_st02.png",0,0:bg "bg\bg107.bmp",10,1000:goto *koakuma_ng_h

*zukan_koakuma_ng_prev

if %7012>0 goto *zukan_ririmu_ng
if %7012<1 goto *zukan_ririmu_ng_prev
goto *zukan_koakuma_ng_prev

*zukan_koakuma_ng_next

if %7015>0 goto *zukan_succubus_ng
if %7015<1 goto *zukan_succubus_ng_next
goto *zukan_koakuma_ng_next


*zukan_succubus_ng

mov %zukanon,0
mov $zname,"Succubus (NG+)"
mov $zlavel,"succubus_ng"
mov $zukan_ko,"N/A"
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,2
if %7015<1 mov %hscene1,0
if %7015>0 mov %hscene1,1
if %7043<1 mov %hscene2,0
if %7043>0 mov %hscene2,1
if %7015<1 && %7043<1 mov %zukancg,0
if %7015>0 || %7043>0 mov %zukancg,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"43"
mov $zukan_hp,"4500"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_succubus_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\succubus_ng.jpg",400,0
goto *zukan_kihonbtn




*zukan_succubus_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\succubus_st01.bmp",%zukan_x0,50
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\succubus_st02.bmp",%zukan_x0,50
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\succubus_st03.bmp",%zukan_x0,50
return



*zukan_succubus_ng_cg

lsp 500,":c;bg\bg110.bmp",0,0
lsp 430,":a;chara\succubus_hc1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hc2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hc3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hc4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hc5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hc6.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hc7.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hc8.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\succubus_hc9.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_succubus_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,86
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %skill01,27
mov %item01,1
gosub *setwindow_01
mov %zukanon,2
if %bwait=210 mov %nanido,1:goto *succubus_ng_start
if %bwait=211 mov %nanido,2:goto *succubus_ng_start
if %bwait=212 mov %nanido,3:goto *succubus_ng_start
if %bwait=213 bgmstop:mov $name,"Succubus":mov %mylv,86:bg black,10,1000:lsp 700,":a;chara\succubus_st02.bmp",0,0:bg "bg\bg110.bmp",10,1000:goto *sean0220a
if %bwait=214 bgmstop:mov $name,"Succubus":mov %mylv,86:bg black,10,1000:lsp 700,":a;chara\succubus_st02.bmp",0,0:bg "bg\bg110.bmp",10,1000:goto *succubus_ng_hb_



*zukan_lilith_ng

mov %zukanon,0
mov $zname,"Lilith & Lilim (NG+)"
mov $zlavel,"lilith_ng"
itoa2 $zukan_ko,%30014-1
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %7014<2 mov %hscene1,0
if %7014>1 mov %hscene1,1
if %7014<2 mov %zukancg,0
if %7014>1 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"50 (Current), 115 (Past)"
mov $zukan_hp,"65000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_lilith_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\lilith_ng.jpg",400,17
goto *zukan_kihonbtn




*zukan_lilith_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;2Q\chara\lilith_st01.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;2Q\chara\lilith_st02.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;2Q\chara\lilith_st03.png",%zukan_x0,0
return



*zukan_lilith_ng_cg

lsp 500,":c;bg\bg110.bmp",0,0
lsp 430,":a;2Q\chara\lilith_ha0.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lilith_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lilith_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lilith_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lilith_ha4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lilith_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lilith_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lilith_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\lilith_hb4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_lilith_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,86
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %skill01,27
mov %item01,1
gosub *setwindow_01
mov %zukanon,2
if %bwait=210 mov %nanido,1:goto *lilith_ng_start
if %bwait=211 mov %nanido,2:goto *lilith_ng_start
if %bwait=212 mov %nanido,1:goto *lilithhell_ng_start
if %bwait=213 bgmstop:mov $name,"Lilith & Lilim":mov %mylv,86:bg black,10,1000:lsp 700,":a;2Q\chara\lilith_st02.png",0,0:bg "bg\bg110.bmp",10,1000:goto *lilith_ng_h



*zukan_kani_ng

mov %zukanon,0
mov $zname,"Crab Girl (NG+)"
mov $zlavel,"kani_ng"
mov $zukan_ko,"N/A"
mov %zukan_facenum,4
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,2
if %7017<1 mov %hscene1,0
if %7017>0 mov %hscene1,1
if %7059<1 mov %hscene2,0
if %7059>0 mov %hscene2,1
if %7017<1 && %7059<1 mov %zukancg,0
if %7017>0 || %7059>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"??"
mov $zukan_hp,"???"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_kani_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\kani_ng.jpg",400,10
goto *zukan_kihonbtn




*zukan_kani_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=5 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,4
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\kani_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\kani_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\kani_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\kani_st00.bmp",%zukan_x0,0
return



*zukan_kani_ng_cg

lsp 500,":c;bg\bg039.bmp",0,0

if %7017<1 skip 17
lsp 430,":a;2Q\chara\kani_hb1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\kani_hb1b.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\kani_hb2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\kani_hb3.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\kani_hb4.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\kani_hb5.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\kani_hb6.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\kani_hb7.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel

if %7059<1 skip 11
lsp 430,":a;chara\kani_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kani_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kani_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kani_h4.bmp",0,0
print 10,500:lrclick

return "*zukan_"+$zlavel



*zukan_kani_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,86
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %skill01,27
mov %item01,1
gosub *setwindow_01
mov %zukanon,2
if %bwait=210 mov %nanido,1:goto *kani_ng_start
if %bwait=211 mov %nanido,2:goto *kani_ng_start
if %bwait=212 mov %nanido,3:goto *kani_ng_start
if %bwait=213 bgmstop:mov $name,"Crab Girl":mov %mylv,86:bg black,10,1000:lsp 700,":a;chara\kani_st01.bmp",0,0:bg "bg\bg039.bmp",10,1000:goto *kani_ng_h
if %bwait=214 bgmstop:mov $name,"Crab Girl":mov %mylv,90:bg black,10,1000:lsp 700,":a;chara\kani_st01.bmp",0,0:bg "bg\bg039.bmp",10,1000:goto *kani_ng2_hb

*zukan_kraken_ng

mov %zukanon,0
mov $zname,"Kraken (NG+)"
mov $zlavel,"kraken_ng"
itoa2 $zukan_ko,%30018-1+%7022-1
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %7042<1 mov %hscene1,0
if %7042>0 mov %hscene1,1
if %7022<1 mov %hscene2,0
if %7022>1 mov %hscene2,1
if %7042<1 mov %zukancg,0
if %7042>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"99"
mov $zukan_hp,"34000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_kraken_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\kraken_ng.jpg",400,10
goto *zukan_kihonbtn




*zukan_kraken_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\kraken_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\kraken_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\kraken_st03.bmp",%zukan_x0,0
return



*zukan_kraken_ng_cg

lsp 500,":c;bg\bg053.bmp",0,0
lsp 430,":a;chara\kraken_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kraken_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kraken_h2a.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kraken_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\kraken_h3a.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_kraken_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,86
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %skill01,27
mov %item01,1
gosub *setwindow_01
mov %zukanon,2
if %bwait=210 mov %nanido,1:goto *kraken_ng_start
if %bwait=211 mov %nanido,2:goto *kraken_ng_start
if %bwait=212 mov %nanido,3:goto *kraken_ng_start
if %bwait=213 bgmstop:mov $name,"Kraken":mov %mylv,86:bg black,10,1000:lsp 700,":a;chara\kraken_st02.bmp",0,0:bg "bg\bg053.bmp",10,1000:goto *kraken_ng_h
if %bwait=214 bgmstop:mov $name,"Kraken":mov %mylv,86:bg black,10,1000:lsp 700,":a;chara\kraken_st02.bmp",0,0:bg "bg\bg053.bmp",10,1000:goto *kraken_ng_hx

*zukan_queenmermaid_ng

mov %zukanon,0
mov $zname,"Queen Mermaid (NG+)"
mov $zlavel,"queenmermaid_ng"
itoa2 $zukan_ko,%30019
mov %zukan_facenum,2
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %7019<2 mov %hscene1,0
if %7019>1 mov %hscene1,1
if %7019<2 mov %zukancg,0
if %7019>1 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"92"
mov $zukan_hp,"30000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_queenmermaid_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\queenmermaid_ng.jpg",400,25
goto *zukan_kihonbtn




*zukan_queenmermaid_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\queenmermaid_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\queenmermaid_st03.bmp",%zukan_x0,0
return



*zukan_queenmermaid_ng_cg

lsp 500,":c;bg\bg051.bmp",0,0
lsp 430,":a;chara\queenmermaid_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenmermaid_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\queenmermaid_ha3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_queenmermaid_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,86
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %skill01,27
mov %item01,1
gosub *setwindow_01
mov %zukanon,2
if %bwait=210 mov %nanido,1:goto *queenmermaid_ng_start
if %bwait=211 mov %nanido,2:goto *queenmermaid_ng_start
if %bwait=212 mov %nanido,3:goto *queenmermaid_ng_start
if %bwait=213 bgmstop:mov $name,"Queen Mermaid":mov %mylv,86:bg black,10,1000:lsp 700,":a;chara\queenmermaid_st01.bmp",0,0:bg "bg\bg053.bmp",10,1000:goto *queenmermaid_ng_h


*zukan_meia_ng

mov %zukanon,0
mov $zname,"Meia (NG+)"
mov $zlavel,"meia_ng"
mov $zukan_ko,"N/A"
mov %zukan_facenum,4
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,2
if %7020<1 mov %hscene1,0
if %7020>0 mov %hscene1,1
if %7021<1 mov %hscene2,0
if %7021>0 mov %hscene2,1
if %7020<1 && %7021<1 mov %zukancg,0
if %7020>0 || %7021>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"17"
mov $zukan_hp,"500"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_meia_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\meia_ng.jpg",400,15
goto *zukan_kihonbtn




*zukan_meia_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=5 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,4
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\meia_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\meia_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\meia_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\meia_st04.bmp",%zukan_x0,0
return



*zukan_meia_ng_cg

lsp 500,":c;bg\bg049.bmp",0,0
if %7020<1 skip 9
lsp 430,":a;chara\meia_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\meia_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\meia_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\meia_h4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
if %7021<1 skip 8
lsp 430,":a;chara\end4_h1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end4_h2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end4_h3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\end4_h4.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_meia_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,86
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %skill01,27
mov %item01,1
gosub *setwindow_01
mov %zukanon,2
if %bwait=210 mov %nanido,1:goto *meia_ng_start
if %bwait=211 mov %nanido,2:goto *meia_ng_start
if %bwait=212 mov %nanido,3:goto *meia_ng_start
if %bwait=213 bgmstop:bg black,10,1000:lsp 700,":a;chara\meia_st02.bmp",0,0:bg "bg\bg049.bmp",10,1000:goto *meia_ng_h
if %bwait=214 bgmstop:bg black,10,1000:lsp 700,":a;chara\meia_st02.bmp",0,0:bg "bg\bg049.bmp",10,1000:goto *meia_ng_hb

*zukan_sphinx_ng

mov $zname,"Sphinx (NG+)"
mov $zlavel,"sphinx_ng"
itoa2 $zukan_ko,%30037
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %7037<2 mov %hscene1,0
if %7037>1 mov %hscene1,1
if %7037<2 mov %zukancg,0
if %7037>1 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"105"
mov $zukan_hp,"24000"
mov $zukan_skill1,"Finger Offering"
mov %zukan_skillc1,3233
mov $zukan_skill2,"Mouth Offering"
mov %zukan_skillc2,3234
mov $zukan_skill3,"Isis's Lovemaking"
mov %zukan_skillc3,3235
mov $zukan_skill4,"Kiss of Death"
mov %zukan_skillc4,3236
mov $zukan_skill5,"Ancient Law of Ecstasy"
mov %zukan_skillc5,3237
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_sphinx_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\sphinx_ng.jpg",400,20
goto *zukan_kihonbtn



*zukan_sphinx_ng_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\sphinx_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\sphinx_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\sphinx_st03.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\sphinx_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\sphinx_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\sphinx_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\sphinx_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_sphinx_ng_cg

lsp 500,":c;bg\bg069.bmp",0,0
lsp 430,":a;2Q\chara\sphinx_hb1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\sphinx_hb2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\sphinx_hb3.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\sphinx_hb4.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\sphinx_hb5.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;2Q\chara\sphinx_hb1b.png",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_sphinx_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,86
mov %skill01,27
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %sylph_get,1
mov %gnome_get,1
mov %salamander_get,1
mov %undine_get,1
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:mov %nanido,1:goto *sphinx_ng_start
if %bwait=211 mov %nanido,2:mov %nanido,2:goto *sphinx_ng_start
if %bwait=212 mov %nanido,3:mov %nanido,3:goto *sphinx_ng_start
lsp 700,":a;chara\sphinx_st02.bmp",0,0
bg "bg\bg069.bmp",10,1500
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 goto *sphinx_ng_h


*zukan_saraevil_ng

mov $zname,"Sara (NG+)"
mov $zlavel,"saraevil_ng"
itoa2 $zukan_ko,%30036-1
mov %zukan_facenum,3
mov %zukan_posenum,4
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %7036<2 mov %hscene1,0
if %7036>1 mov %hscene1,1
if %hsean_sara_ng<1 mov %hscene2,0
if %hsean_sara_ng>0 mov %hscene2,1
if %7036<2 && %hsean_sara_ng<1 mov %zukancg,0
if %7036>1 || %hsean_sara_ng>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"90"
mov $zukan_hp,"28000"
mov $zukan_skill1,"Earth Mother's Handjob"
mov %zukan_skillc1,3565
mov $zukan_skill2,"Isis's Lovemaking"
mov %zukan_skillc2,3566
mov $zukan_skill3,"Hellish Blowjob"
mov %zukan_skillc3,3567
mov $zukan_skill4,"Ecstasy Press"
mov %zukan_skillc4,3568
mov $zukan_skill5,"Tail Drain"
mov %zukan_skillc5,3569
mov $zukan_skill6,"Penis Choking Vagina"
mov %zukan_skillc6,3583
mov $zukan_skill7,"Overwhelming Grind"
mov %zukan_skillc7,3584
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_saraevil_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\sara_ng.jpg",400,10			;????
goto *zukan_kihonbtn



*zukan_saraevil_ng_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 mov %zukan_facenum,3
if %zukan_pose=2 mov %zukan_facenum,5
if %zukan_pose=3 mov %zukan_facenum,6
if %zukan_pose=4 mov %zukan_facenum,5
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\saraevil_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\saraevil_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\saraevil_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\sara_st01r.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\sara_st02r.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\sara_st03r.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\sara_st04r.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=5 lsp 450,":a;chara\sara_st05r.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;2Q\chara\sara_st41.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;2Q\chara\sara_st42.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;2Q\chara\sara_st43.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;2Q\chara\sara_st44.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=5 lsp 450,":a;2Q\chara\sara_st45.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=6 lsp 450,":a;2Q\chara\sara_st46.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\sara_st11r.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\sara_st12r.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\sara_st13r.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=4 lsp 450,":a;chara\sara_st14r.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=5 lsp 450,":a;chara\sara_st15r.bmp",%zukan_x0,0
return



*zukan_saraevil_ng_cg

if %7036<2 skip 9
lsp 500,":c;bg\bg068.bmp",0,0
lsp 430,":a;chara\saraevil_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\saraevil_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\saraevil_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\saraevil_hb4.bmp",0,0

if %hsean_sara_ng<1 skip 8
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 500,":c;bg\bg067.bmp",0,0
lsp 430,":a;2Q\chara\sara_hb1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\sara_hb2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\sara_hb3.png",0,0

print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_saraevil_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,86
mov %skill01,27
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %sylph_get,1
mov %gnome_get,1
mov %salamander_get,1
mov %undine_get,1
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:mov %nanido,1:goto *saraevil_ng_start
if %bwait=211 mov %nanido,2:mov %nanido,2:goto *saraevil_ng_start
if %bwait=212 mov %nanido,3:mov %nanido,3:goto *saraevil_ng_start
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 lsp 700,":a;chara\saraevil_st02.bmp",0,0:bg "bg\bg068.bmp",10,1500:goto *saraevil_ng_h
if %bwait=214 lsp 700,":a;2Q\chara\sara_st42.png",0,0:bg "bg\bg067.bmp",10,1500:goto *sara_h


*zukan_maccubus_ng

mov $zname,"Maccubus(NG+)"
mov $zlavel,"maccubus_ng"
mov $zukan_ko,"N/A"
mov %zukan_facenum,3
mov %zukan_posenum,4
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %7034<1 mov %hscene1,0
if %7034>0 mov %hscene1,1
if %7040<1 mov %hscene2,0
if %7040>0 mov %hscene2,1
if %7034<1 && %7040<1 mov %zukancg,0
if %7034>0 || %7040>0 mov %zukancg,1
mov %zukan_x1,-25
mov %zukan_x2,175
mov $zukan_lv,"75"
mov $zukan_hp,"15000"
mov $zukan_skill1,"Succubus Handjob"
mov %zukan_skillc1,3434
mov $zukan_skill2,"Succubus Blowjob"
mov %zukan_skillc2,3435
mov $zukan_skill3,"Succubus Tit Fuck"
mov %zukan_skillc3,3436
mov $zukan_skill4,"Succubus Pussy"
mov %zukan_skillc4,3437
mov $zukan_skill5,"Succubus Grind"
mov %zukan_skillc5,3438
mov $zukan_skill6,"Heavenly Piston"
mov %zukan_skillc6,3439
mov $zukan_skill7,"Energy Drain"
mov %zukan_skillc7,3440
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_maccubus_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\maccubus_ng.jpg",400,10			;????
goto *zukan_kihonbtn



*zukan_maccubus_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose<3 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose<3 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=3 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\maccubus_st11.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\maccubus_st12.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\maccubus_st13.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\maccubus_st01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\maccubus_st02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\maccubus_st03.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\maccubus_st21.bmp",%zukan_x0,0
return



*zukan_maccubus_ng_cg

if %7034<1 skip 26
lsp 500,":c;bg\bg103.bmp",0,0
lsp 430,":a;chara\maccubus_st11.bmp",400,0
lsp 420,":a;chara\maccubus_ct11.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_st12.bmp",400,0
lsp 420,":a;chara\maccubus_ct12.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 421
lsp 430,":a;chara\maccubus_st11.bmp",0,0
lsp 420,":a;chara\maccubus_ct31.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_st12.bmp",0,0
lsp 420,":a;chara\maccubus_ct32.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
csp 421
lsp 430,":a;chara\maccubus_h31.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_h32.bmp",0,0
print 10,500:lrclick

if %7040<2 skip 26
lsp 500,":c;bg\bg107.bmp",0,0
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_h00.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_h01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_h02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_h03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_h04.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_h05.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_h06.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\maccubus_h07.bmp",0,0
print 10,500:lrclick

return "*zukan_"+$zlavel



*zukan_maccubus_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,86
mov %skill01,27
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %sylph_get,1
mov %gnome_get,1
mov %salamander_get,1
mov %undine_get,1
mov %item01,9
gosub *setwindow_01
bgmstop
if %bwait=210 mov %nanido,1:mov %nanido,1:goto *maccubus_ng_start
if %bwait=211 mov %nanido,2:mov %nanido,2:goto *maccubus_ng_start
if %bwait=212 mov %nanido,3:mov %nanido,3:goto *maccubus_ng_start
if %bwait=213 lsp 700,":a;chara\maccubus_st12.bmp",175,0:bg "bg\bg103.bmp",10,1500:goto *maccubus_ng_hc_
if %bwait=214 lsp 700,":a;chara\maccubus_st02.bmp",175,0:bg "bg\bg107.bmp",10,1500:goto *maccubus_ng_h


*zukan_mincubus_ng

mov $zname,"Mincubus (NG+)"
mov $zlavel,"mincubus_ng"
mov $zukan_ko,"N/A"
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,7
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %7035<1 mov %hscene1,0
if %7035>0 mov %hscene1,1
if %7041<1 mov %hscene2,0
if %7041>0 mov %hscene2,1
if %7035<1 && %7041<1 mov %zukancg,0
if %7035>0 || %7041>0 mov %zukancg,1
mov %zukan_x1,-25
mov %zukan_x2,175
mov $zukan_lv,"65"
mov $zukan_hp,"14000"
mov $zukan_skill1,"Soft Handjob"
mov %zukan_skillc1,3441
mov $zukan_skill2,"Wet Blowjob"
mov %zukan_skillc2,3442
mov $zukan_skill3,"Silky Hairjob"
mov %zukan_skillc3,3443
mov $zukan_skill4,"Face Riding"
mov %zukan_skillc4,3444
mov $zukan_skill5,"Panty Stroke"
mov %zukan_skillc5,3445
mov $zukan_skill6,"Sock Stroke"
mov %zukan_skillc6,3446
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_mincubus_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\mincubus_ng.jpg",400,10			;????
goto *zukan_kihonbtn


*zukan_mincubus_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 mov %zukan_facenum,3:mov %zukan_cumnum,7
if %zukan_pose=2 mov %zukan_facenum,2:mov %zukan_cumnum,0
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\minccubus_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\minccubus_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\minccubus_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\minccubus_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;2Q\chara\minccubus_st12.png",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\minccubus_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\minccubus_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\minccubus_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\minccubus_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\minccubus_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\minccubus_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_cum7=1 lsp 447,":a;chara\minccubus_bk07.bmp",%zukan_x0,0
if %zukan_cum7=0 csp 447
if %zukan_pose=2 cspl 441,447
return



*zukan_mincubus_ng_cg

if %7035<1 skip 4
lsp 500,":c;bg\bg103.bmp",0,0
lsp 430,":a;2Q\chara\minccubus_hd1.png",200,0
print 10,500:lrclick

if %7041<1 skip 96
lsp 500,":c;bg\bg163.bmp",0,0
lsp 430,":a;chara\minccubus_st01.bmp",0,0
lsp 420,":a;chara\minccubus_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_st02.bmp",0,0
lsp 420,":a;chara\minccubus_ct02.bmp",0,0
lsp 421,":a;chara\minccubus_bk01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 421
lsp 430,":a;chara\minccubus_st01.bmp",0,0
lsp 420,":a;chara\minccubus_ct11.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_st02.bmp",0,0
lsp 420,":a;chara\minccubus_ct12.bmp",0,0
lsp 421,":a;chara\minccubus_bk01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 421
lsp 430,":a;chara\minccubus_st01.bmp",0,0
lsp 420,":a;chara\minccubus_ct21.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_st02.bmp",0,0
lsp 420,":a;chara\minccubus_ct22.bmp",0,0
lsp 421,":a;chara\minccubus_bk02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
csp 421
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_ha1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_ha2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_ha3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_ha4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hc1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hc2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hc3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hc4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hc5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb04.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb05.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb06.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb07.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb08.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb09.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb10.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb11.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\minccubus_hb12.bmp",0,0
print 10,500:lrclick

return "*zukan_"+$zlavel



*zukan_mincubus_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,86
mov %skill01,27
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %sylph_get,1
mov %gnome_get,1
mov %salamander_get,1
mov %undine_get,1
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:mov %nanido,1:goto *minccubus_ng_start
if %bwait=211 mov %nanido,2:mov %nanido,2:goto *minccubus_ng_start
if %bwait=212 mov %nanido,3:mov %nanido,3:goto *minccubus_ng_start
if %bwait=213 lsp 700,":a;2Q\chara\minccubus_st12.png",175,0:bg "bg\bg103.bmp",10,1500:goto *mincubus_ng_h_
if %bwait=214 lsp 700,":a;chara\minccubus_st02.bmp",175,0:bg "bg\bg107.bmp",10,1500:goto *minccubus_ng_h

*zukan_lencubus_ng

mov $zname,"Lencubus (NG+)"
mov $zlavel,"lencubus_ng"
itoa2 $zukan_ko,%30023
mov %zukan_facenum,4
mov %zukan_posenum,2
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %7023<2 mov %hscene1,0
if %7023>1 mov %hscene1,1
if %7023<2 mov %zukancg,0
if %7023>1 mov %zukancg,1
mov %zukan_x1,-25
mov %zukan_x2,175
mov $zukan_lv,"68"
mov $zukan_hp,"19000"
mov $zukan_skill1,"Lust Powered Handjob"
mov %zukan_skillc1,3447
mov $zukan_skill2,"Lust Powered Blowjob"
mov %zukan_skillc2,3448
mov $zukan_skill3,"Lust Powered Tit Fuck"
mov %zukan_skillc3,3449
mov $zukan_skill4,"Level Drain"
mov %zukan_skillc4,3450
mov $zukan_skill5,"Energy Drain"
mov %zukan_skillc5,3451
mov $zukan_skill6,"Life Killing Vagina"
mov %zukan_skillc6,3452
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_lencubus_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\lencubus_ng.jpg",400,10			;????
goto *zukan_kihonbtn


*zukan_lencubus_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=2 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\renccubus_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\renccubus_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\renccubus_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\renccubus_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\renccubus_st11.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\renccubus_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\renccubus_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\renccubus_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\renccubus_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\renccubus_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_pose=2 cspl 441,445
return




*zukan_lencubus_ng_cg

lsp 500,":c;bg\bg104.bmp",0,0
lsp 430,":a;chara\renccubus_st02.bmp",175,0
lsp 420,":a;chara\renccubus_ct01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\renccubus_ct02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\renccubus_ct03.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\renccubus_ct11.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\renccubus_ct12.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\renccubus_ct13.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\renccubus_ct21.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\renccubus_ct22.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\renccubus_ct23.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\renccubus_h1.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\renccubus_h2.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\renccubus_h3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\renccubus_h4.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\renccubus_h5.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\renccubus_h6.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\renccubus_h7.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel




*zukan_lencubus_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,86
mov %skill01,27
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %sylph_get,1
mov %gnome_get,1
mov %salamander_get,1
mov %undine_get,1
mov %item01,9
gosub *setwindow_01
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=210 mov %nanido,1:mov %nanido,1:goto *lencubus_ng_start
if %bwait=211 mov %nanido,2:mov %nanido,2:goto *lencubus_ng_start
if %bwait=212 mov %nanido,3:mov %nanido,3:goto *lencubus_ng_start
if %bwait=213 lsp 700,":a;chara\renccubus_st02.bmp",175,0:bg "bg\bg104.bmp",10,1500:goto *lencubus_ng_h


*zukan_bess_ng

mov %zukan_page,11
mov $zname,"Slime Bess(NG+)"
mov $zlavel,"bess_ng"
itoa2 $zukan_ko,%30038
mov %zukan_facenum,5
mov %zukan_posenum,1
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %7038<2 mov %hscene1,0
if %7038>1 mov %hscene1,1
if %7038<2 mov %zukancg,0
if %7038>1 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"85"
mov $zukan_hp,"32000"
mov $zukan_skill1,"Jelly Hands "
mov %zukan_skillc1,3937
mov $zukan_skill2,"Melty Bust "
mov %zukan_skillc2,3938
mov $zukan_skill3,"Slimy Hips "
mov %zukan_skillc3,3939
mov $zukan_skill4,"Slime Girl's Slimy Blowjob "
mov %zukan_skillc4,3940
mov $zukan_skill5,"Amoeba Haze "
mov %zukan_skillc5,3941
mov $zukan_skill6,"Amoeba Drain "
mov %zukan_skillc6,3942
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_bess_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\bess_ng.jpg",400,20	
goto *zukan_kihonbtn


*zukan_bess_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\slimelord_st01.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\slimelord_st02.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\slimelord_st03.bmp",%zukan_x0,0
if %zukan_face=4 lsp 450,":a;chara\slimelord_st04.bmp",%zukan_x0,0
if %zukan_face=5 lsp 450,":a;chara\slimelord_st05.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\slimelord_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\slimelord_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\slimelord_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\slimelord_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
return



*zukan_bess_ng_cg

if %7038<2 skip 25
lsp 500,":c;bg\bg097.bmp",0,0
lsp 430,":a;chara\slimelord_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\slimelord_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\slimelord_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\slimelord_hb4.bmp",0,0
lsp 420,":a;chara\slimelord_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\slimelord_hb5.bmp",0,0
lsp 420,":a;chara\slimelord_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\slimelord_hb6.bmp",0,0
lsp 420,":a;chara\slimelord_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 500,":c;bg\bg093.bmp",0,0
lsp 430,":a;chara\slimelord_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\slimelord_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\slimelord_ha3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_bess_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,86
mov %skill01,27
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %sylph_get,1
mov %gnome_get,1
mov %salamander_get,1
mov %undine_get,1
mov %item01,9
gosub *setwindow_01
if %bwait=210 mov %nanido,1:mov %nanido,1:goto *bess_ng_start
if %bwait=211 mov %nanido,2:mov %nanido,2:goto *bess_ng_start
if %bwait=212 mov %nanido,3:mov %nanido,3:goto *bess_ng_start
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 lsp 700,":a;chara\slimelord_st02.bmp",0,0:bg "bg\bg097.bmp",10,1500:goto *bess_ng_h

*zukan_witchs_ng

mov $zname,"Succubus Witch (NG+)"
mov $zlavel,"witchs_ng"
mov $zukan_ko,"N/A"
mov %zukan_facenum,4
mov %zukan_posenum,3
mov %zukan_cumnum,6
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
if %7016<1 mov %hscene1,0
if %7016>0 mov %hscene1,1
if %7016<1 mov %zukancg,0
if %7016>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"80"
mov $zukan_hp,"19000"
mov $zukan_skill1,"Milking Gloves"
mov %zukan_skillc1,3460
mov $zukan_skill2,"Hat of Pleasure"
mov %zukan_skillc2,3461
mov $zukan_skill3,"Breast Milking"
mov %zukan_skillc3,3462
mov $zukan_skill4,"HP Tail Drain"
mov %zukan_skillc4,3463
mov $zukan_skill5,"Lvl Tail Drain"
mov %zukan_skillc5,3464
mov $zukan_skill6,"Melting Kiss"
mov %zukan_skillc6,3465
mov $zukan_skill7,"Eyes of Seduction"
mov %zukan_skillc7,3466
mov $zukan_skill8,"Energy Drain"
mov %zukan_skillc8,3467
mov $zukan_skill9,"Minimum Phantasm: Heaven"
mov %zukan_skillc9,3598
mov $zukan_skill10,"Minimum Phantasm: Hell"
mov %zukan_skillc10,3599
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_witchs_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\witchs_ng.jpg",400,20			;????
goto *zukan_kihonbtn


*zukan_witchs_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\witchs_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\witchs_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\witchs_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\witchs_st04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\witchs_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\witchs_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\witchs_st13.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=4 lsp 450,":a;chara\witchs_st14.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\witchs_st21.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\witchs_st22.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\witchs_st23.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;chara\witchs_st24.bmp",%zukan_x0,0
if %zukan_cum1=1 lsp 441,":a;chara\witchs_bk01.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\witchs_bk02.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\witchs_bk03.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\witchs_bk04.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\witchs_bk05.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445
if %zukan_cum6=1 lsp 446,":a;chara\witchs_bk06.bmp",%zukan_x0,0
if %zukan_cum6=0 csp 446
if %zukan_pose>1 cspl 441,446
return



*zukan_witchs_ng_cg

lsp 500,":c;bg\bg110.bmp",0,0
lsp 430,":a;chara\witchs_hc1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\witchs_ct01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hc2.bmp",0,0
lsp 420,":a;chara\witchs_ct02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hc3.bmp",0,0
lsp 420,":a;chara\witchs_ct03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hc4.bmp",0,0
lsp 420,":a;chara\witchs_ct04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\witchs_hd1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hd2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hd3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hd4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hd5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hd6.bmp",0,0
print 10,500:lrclick
lsp 430,":a;chara\witchs_hi1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hi2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hi3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hi4.bmp",0,0
print 10,500:lrclick
lsp 430,":a;chara\witchs_hh1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hh2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hh3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hh4.bmp",0,0
print 10,500:lrclick
lsp 430,":a;chara\witchs_hg1.bmp",0,0
lsp 420,":a;chara\witchs_ct21.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hg2.bmp",0,0
lsp 429,":a;chara\witchs_hgc1.bmp",0,0
lsp 420,":a;chara\witchs_ct22.bmp",0,0
lsp 419,":a;chara\witchs_ctc01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hg3.bmp",0,0
lsp 429,":a;chara\witchs_hgc2.bmp",0,0
lsp 420,":a;chara\witchs_ct23.bmp",0,0
lsp 419,":a;chara\witchs_ctc02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 419,":a;chara\witchs_ctc03.bmp",0,0
print 10,500:lrclick
cspl 419,429
lsp 430,":a;chara\witchs_hj1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hj2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hj3.bmp",0,0
print 10,500:lrclick
lsp 430,":a;chara\witchs_hk1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hk2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hk3.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha01.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha02.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha03.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha04.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha05.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha06.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha07.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha08.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha09.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_ha10.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hb3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hb4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hb5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hf1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hf2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_hf3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_st01.bmp",0,0
lsp 420,":a;chara\witchs_ct11.bmp",-200,-100
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
csp 420
lsp 430,":a;chara\witchs_he1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_he2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_he3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_he4.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\witchs_he5.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 420,":a;chara\witchs_ct12.bmp",-200,-100
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_witchs_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,86
mov %skill01,27
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %sylph_get,1
mov %gnome_get,1
mov %salamander_get,1
mov %undine_get,1
mov %item01,9
gosub *setwindow_01
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 lsp 700,":a;chara\witchs_st13.bmp",0,0:bg "bg\bg103.bmp",10,1500:goto *witchs_ng_h_


*zukan_redslime_ng

mov %zukan_page,12
mov $zname,"Red Slime(NG+)"
mov $zlavel,"redslime_ng"
mov $zukan_ko,"N/A"
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
if %7026<1 mov %hscene1,0
if %7026>0 mov %hscene1,1
if %7026<1 mov %zukancg,0
if %7026>0 mov %zukancg,1
mov %zukan_x1,27
mov %zukan_x2,227
mov $zukan_lv,"34"
mov $zukan_hp,"1300"
mov $zukan_skill1,"Red Gale"
mov %zukan_skillc1,3382
mov $zukan_skill2,"Double Draw"
mov %zukan_skillc2,3384
mov $zukan_skill3,"Triple Draw"
mov %zukan_skillc3,3385
mov $zukan_skill4,"Special Draw"
mov %zukan_skillc4,3386
mov $zukan_skill5,"Double Spread"
mov %zukan_skillc5,3387
mov $zukan_skill6,"Triple Spread"
mov %zukan_skillc6,3388
mov $zukan_skill7,"Special Spread"
mov %zukan_skillc7,3389
mov $zukan_skill8,"Special Heaven"
mov %zukan_skillc8,3390
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_redslime_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\red_slime_ng.jpg",400,5			;????
goto *zukan_kihonbtn


*zukan_redslime_ng_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\slime_red_st01.bmp",%zukan_x0,11
if %zukan_face=2 lsp 450,":a;chara\slime_red_st02.bmp",%zukan_x0,11
if %zukan_face=3 lsp 450,":a;chara\slime_red_st03.bmp",%zukan_x0,11
if %zukan_cum1=1 lsp 441,":a;chara\slime_red_bk01.bmp",%zukan_x0,11
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\slime_red_bk02.bmp",%zukan_x0,11
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\slime_red_bk03.bmp",%zukan_x0,11
if %zukan_cum3=0 csp 443
return


*zukan_redslime_ng_cg

lsp 500,":c;bg\bg097.bmp",0,0
lsp 430,":c;chara\slimes_hb1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\slimes_hb2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\slimes_hb3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_redslime_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,86
mov %skill01,27
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %sylph_get,1
mov %gnome_get,1
mov %salamander_get,1
mov %undine_get,1
mov %item01,9
gosub *setwindow_01
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 lsp 700,":a;chara\slime_red_st02.bmp",227,0:bg "bg\bg097.bmp",10,1500:goto *iaka_h_


*zukan_purpleslime_ng

mov $zname,"Purple Slime(NG+)"
mov $zlavel,"purpleslime_ng"
mov $zukan_ko,"N/A"
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,3
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
if %7027<1 mov %hscene1,0
if %7027>0 mov %hscene1,1
if %7027<1 mov %zukancg,0
if %7027>0 mov %zukancg,1
mov %zukan_x1,13
mov %zukan_x2,213
mov $zukan_lv,"35"
mov $zukan_hp,"1500"
mov $zukan_skill1,"Purple Kiss"
mov %zukan_skillc1,3380
mov $zukan_skill2,"Double Draw"
mov %zukan_skillc2,3384
mov $zukan_skill3,"Triple Draw"
mov %zukan_skillc3,3385
mov $zukan_skill4,"Special Draw"
mov %zukan_skillc4,3386
mov $zukan_skill5,"Double Spread"
mov %zukan_skillc5,3387
mov $zukan_skill6,"Triple Spread"
mov %zukan_skillc6,3388
mov $zukan_skill7,"Special Spread"
mov %zukan_skillc7,3389
mov $zukan_skill8,"Special Heaven"
mov %zukan_skillc8,3390
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_purpleslime_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\purple_slime_ng.jpg",400,10			;????
goto *zukan_kihonbtn


*zukan_purpleslime_ng_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_face=1 lsp 450,":a;chara\slime_purple_st01.bmp",%zukan_x0,40
if %zukan_face=2 lsp 450,":a;chara\slime_purple_st02.bmp",%zukan_x0,40
if %zukan_face=3 lsp 450,":a;chara\slime_purple_st03.bmp",%zukan_x0,40
if %zukan_cum1=1 lsp 441,":a;chara\slime_purple_bk01.bmp",%zukan_x0,40
if %zukan_cum1=0 csp 441
if %zukan_cum2=1 lsp 442,":a;chara\slime_purple_bk02.bmp",%zukan_x0,40
if %zukan_cum2=0 csp 442
if %zukan_cum3=1 lsp 443,":a;chara\slime_purple_bk03.bmp",%zukan_x0,40
if %zukan_cum3=0 csp 443
return




*zukan_purpleslime_ng_cg

lsp 500,":c;bg\bg097.bmp",0,0
lsp 430,":c;chara\slimes_ha1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\slimes_ha2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\slimes_ha3.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\slimes_hd1.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\slimes_hd2.bmp",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":c;chara\slimes_hd3.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel




*zukan_purpleslime_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,86
mov %skill01,27
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %sylph_get,1
mov %gnome_get,1
mov %salamander_get,1
mov %undine_get,1
mov %item01,9
gosub *setwindow_01
if %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %bwait=213 lsp 700,":a;chara\slime_purple_st02.bmp",213,0:bg "bg\bg097.bmp",10,1500:goto *aira_h_


*zukan_morrigan_ng

mov %zukanon,0
mov $zname,"Morrigan"
mov $zlavel,"morrigan_ng"
itoa2 $zukan_ko,%30028-1
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %7028<2 mov %hscene1,0
if %7028>1 mov %hscene1,1
if %7060<1 mov %hscene2,0
if %7060>0 mov %hscene2,1
if %7028<2 && %7060<1 mov %zukancg,0
if %7028>1 || %7060>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"93"
mov $zukan_hp,"28000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_morrigan_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\morrigan_ng.jpg",400,45
goto *zukan_kihonbtn




*zukan_morrigan_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;2Q\chara\morrigan_st01.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;2Q\chara\morrigan_st02.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;2Q\chara\morrigan_st03.png",%zukan_x0,0
return



*zukan_morrigan_ng_cg

lsp 500,":c;bg\bg131.bmp",0,0
lsp 430,":a;2Q\chara\morrigan_ct01.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\morrigan_hb1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\morrigan_hb2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\morrigan_hb3.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\morrigan_hb4.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\morrigan_hb5.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\morrigan_hb6.png",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_morrigan_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,85
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %skill01,27
mov %item01,1
gosub *setwindow_01
mov %zukanon,1
if %bwait=210 mov %nanido,1:goto *morrigan_ng_start
if %bwait=211 mov %nanido,2:goto *morrigan_ng_start
if %bwait=212 mov %nanido,3:goto *morrigan_ng_start
if %bwait=213 bgmstop:mov %zukanon,2:mov $name,"Morrigan":mov %mylv,88:bg black,10,1000:lsp 700,":a;2Q\chara\morrigan_st01.png",0,0:bg "bg\bg131.bmp",10,1000:goto *morrigan_ng_h
if %bwait=214 bgmstop:mov %zukanon,2:mov $name,"Morrigan":mov %mylv,88:bg black,10,1000:goto *camppurpleorb_sleepmo

*zukan_astaroth_ng

mov %zukanon,0
mov $zname,"Astaroth"
mov $zlavel,"astaroth_ng"
itoa2 $zukan_ko,%30029-1
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %7029<2 mov %hscene1,0
if %7029>1 mov %hscene1,1
if %7029<1 mov %zukancg,0
if %7029>0 mov %zukancg,1

mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"???"
mov $zukan_hp,"?????"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_astaroth_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\astaroth_ng.jpg",400,5
goto *zukan_kihonbtn




*zukan_astaroth_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;2Q\chara\astaroth_st01.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;2Q\chara\astaroth_st02.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;2Q\chara\astaroth_st03.png",%zukan_x0,0
return



*zukan_astaroth_ng_cg

lsp 500,":c;bg\bg131.bmp",0,0
lsp 430,":a;2Q\chara\astaroth_ha1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\astaroth_hb1.png",0,0

if %7029<2 skip 5
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\astaroth_hc1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\astaroth_hc2.png",0,0

print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_astaroth_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,85
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %skill01,27
mov %ng,2
mov %item01,1
gosub *setwindow_01
mov %zukanon,2
if %bwait=210 mov %nanido,1:goto *astaroth_ng_start
if %bwait=211 mov %nanido,2:goto *astaroth_ng_start
if %bwait=212 mov %nanido,3:goto *astaroth_ng_start
if %bwait=213 bgmstop:mov $name,"astaroth":mov %mylv,88:bg black,10,1000:lsp 700,":a;2Q\chara\astaroth_st02.png",0,0:bg "bg\bg131.bmp",10,1000:goto *astaroth_ng_h


*zukan_beelzebub_ng

mov %zukan_page,12
mov %zukanon,0
mov $zname,"Beelzebubs (NG+)"
mov $zlavel,"beelzebub_ng"
itoa2 $zukan_ko,%30030+%7031+%7032-3
mov %zukan_facenum,3
mov %zukan_posenum,3
mov %zukan_cumnum,4
mov %zukan_battlenum,1
mov %zukan_hscenenum,3
if %7030<2 mov %hscene1,0
if %7030>1 mov %hscene1,1
if %7031<2 mov %hscene2,0
if %7031>1 mov %hscene2,1
if %7032<2 mov %hscene3,0
if %7032>1 mov %hscene3,1
if %7030<2 && %7031<2 && %7032<2 mov %zukancg,0
if %7030>1 || %7031>1 || %7032>1 mov %zukancg,1

mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"96, 99, 92"
mov $zukan_hp,"36000, 40000, 30000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_beelzebub_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\beelzebub_ng.jpg",400,5
goto *zukan_kihonbtn




*zukan_beelzebub_ng_p

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\beelzebub_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\beelzebub_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\beelzebub_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\beelzebub_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\beelzebub_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\beelzebub_st13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\beelzebub_st21.bmp",%zukan_x0-200,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\beelzebub_st22.bmp",%zukan_x0-200,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\beelzebub_st23.bmp",%zukan_x0-200,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\beelzebub_bk01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum1=1 lsp 441,":a;chara\beelzebub_bk11.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum1=1 lsp 441,":a;chara\beelzebub_bk21.bmp",%zukan_x0-200,0
if %zukan_cum1=0 csp 441
if %zukan_pose=1 && %zukan_cum2=1 lsp 442,":a;chara\beelzebub_bk02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum2=1 lsp 442,":a;chara\beelzebub_bk12.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum2=1 lsp 442,":a;chara\beelzebub_bk22.bmp",%zukan_x0-200,0
if %zukan_cum2=0 csp 442
if %zukan_pose=1 && %zukan_cum3=1 lsp 443,":a;chara\beelzebub_bk03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum3=1 lsp 443,":a;chara\beelzebub_bk13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum3=1 lsp 443,":a;chara\beelzebub_bk23.bmp",%zukan_x0-200,0
if %zukan_cum3=0 csp 443
if %zukan_pose=1 && %zukan_cum4=1 lsp 444,":a;chara\beelzebub_bk04.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_cum4=1 lsp 444,":a;chara\beelzebub_bk14.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_cum4=1 lsp 444,":a;chara\beelzebub_bk24.bmp",%zukan_x0-200,0
if %zukan_cum4=0 csp 444
return



*zukan_beelzebub_ng_cg

lsp 500,":c;bg\bg132.bmp",0,0
lsp 430,":a;chara\beelzebub_h01.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\beelzebub_h02.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\beelzebub_h11.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\beelzebub_h12.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\beelzebub_h21.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\beelzebub_h22.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\beelzebub_h31.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\beelzebub_h32.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\beelzebub_h33.bmp",0,0
print 10,500:lrclick
getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;chara\beelzebub_h34.bmp",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel


*zukan_beelzebub_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,85
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %skill01,27
mov %item01,1
mov %ng,2
gosub *setwindow_01
mov %zukanon,1
if %bwait=210 mov %nanido,1:goto *beelzebub_ng_start
if %bwait=211 mov %nanido,2:goto *beelzebub_ng_start
if %bwait=212 mov %nanido,3:goto *beelzebub_ng_start
if %bwait=213 bgmstop:mov %zukanon,2:mov $name,"beelzebub":mov %mylv,89:bg black,10,1000:lsp 700,":a;chara\beelzebub_st02.bmp",0,0:bg "bg\bg132.bmp",10,1000:goto *beelzebub_ng_ha
if %bwait=214 bgmstop:mov %zukanon,2:mov $name,"beelzebub":mov %mylv,89:bg black,10,1000:lsp 700,":a;chara\beelzebub_st12.bmp",0,0:bg "bg\bg132.bmp",10,1000:goto *beelzebub_ng_hb
if %bwait=215 bgmstop:mov %zukanon,2:mov $name,"beelzebub":mov %mylv,89:bg black,10,1000:lsp 700,":a;chara\beelzebub_st22.bmp",0,0:bg "bg\bg132.bmp",10,1000:goto *beelzebub_ng_hc


*zukan_chrome_ng

mov %zukan_page,12
mov %zukanon,0
mov $zname,"Chrome (NG+)"
mov $zlavel,"chrome_ng"
itoa2 $zukan_ko,%30050
mov %zukan_facenum,10
mov %zukan_posenum,4
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,5
if %7051<1 mov %hscene1,0
if %7051>0 mov %hscene1,1
if %7052<1 mov %hscene2,0
if %7052>0 mov %hscene2,1
if %7053<1 mov %hscene3,0
if %7053>0 mov %hscene3,1
if %7054<1 mov %hscene4,0
if %7054>0 mov %hscene4,1
if %7055<1 mov %hscene5,0
if %7055>0 mov %hscene5,1
mov %hscene4,1
if %7051<1 && %7052<1 && %7053<1 && %7054<1 && %7055<1 mov %zukancg,0
if %7051>0 || %7052>0 || %7053>0 || %7054>0 || %7055>0 mov %zukancg,1

mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"101(Frederika), 80(Chrome)"
mov $zukan_hp,"42000(Frederika), 34000(Chrome)"
mov %zukan_skillc1,0
ency_clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_chrome_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\chrome_ng.jpg",400,5
goto *zukan_kihonbtn




*zukan_chrome_ng_p

if %zukan_pose=1 mov %zukan_facenum,10
if %zukan_pose=2 mov %zukan_facenum,3
if %zukan_pose=3 mov %zukan_facenum,2
if %zukan_pose=4 mov %zukan_facenum,4

if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum

if %zukan_pose!=1 skip 12
if %zukan_face=1 lsp 450,":a;chara\chrom_st21.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\chrom_st22.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\chrom_st23.bmp",%zukan_x0,0
if %zukan_face=4 lsp 450,":a;chara\chrom_st24.bmp",%zukan_x0,0
if %zukan_face=5 lsp 450,":a;chara\chrom_st25.bmp",%zukan_x0,0
if %zukan_face=6 lsp 450,":a;chara\chrom_st26.bmp",%zukan_x0,0
if %zukan_face=7 lsp 450,":a;chara\chrom_st27.bmp",%zukan_x0,0
if %zukan_face=8 lsp 450,":a;chara\chrom_st28.bmp",%zukan_x0,0
if %zukan_face=9 lsp 450,":a;chara\chrom_st29.bmp",%zukan_x0,0
if %zukan_face=10 lsp 450,":a;2Q\chara\chrom_st30.png",%zukan_x0,0
skip 18

if %zukan_pose!=2 skip 5
if %zukan_face=1 lsp 450,":a;chara\chrom_st01.bmp",%zukan_x0+253,150
if %zukan_face=2 lsp 450,":a;chara\chrom_st02.bmp",%zukan_x0+253,150
if %zukan_face=3 lsp 450,":a;chara\chrom_st03.bmp",%zukan_x0+253,150
skip 12

if %zukan_pose!=3 skip 4
if %zukan_face=1 lsp 450,":a;chara\chrom_st31.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\chrom_st32.bmp",%zukan_x0,0
skip 7

if %zukan_pose!=4 skip 5
if %zukan_face=1 lsp 450,":a;chara\chrom_st41.bmp",%zukan_x0,0
if %zukan_face=2 lsp 450,":a;chara\chrom_st42.bmp",%zukan_x0,0
if %zukan_face=3 lsp 450,":a;chara\chrom_st43.bmp",%zukan_x0,0
if %zukan_face=4 lsp 450,":a;chara\chrom_st44.bmp",%zukan_x0,0

return



*zukan_chrome_ng_cg

lsp 500,":c;bg\bg058.bmp",0,0

if %7051<1 skip 9
lsp 430,":a;2Q\chara\chrom_hg1.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_hg1b.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_hg2.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_hg3.png",0,0
print 10,500:lrclick

if %7052<1 skip 19
lsp 430,":a;2Q\chara\chrom_hf1.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_hf2.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_hf3.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_hf4.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_hf5.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_hf6.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_hf6b.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_hf7.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_hf8.png",0,0
print 10,500:lrclick

if %7053<1 skip 31
lsp 430,":a;2Q\chara\chrom_he2.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_he3.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_he4.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_he5.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_he6.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_he7.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_he8.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_he9.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_hea.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_heb.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_hec.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_hed.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_hee.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_hef.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_heg.png",0,0
print 10,500:lrclick

;if %7054<1 skip 3
lsp 430,":a;2Q\chara\chrom_hi1.png",0,0
print 10,500:lrclick

if %7055<1 skip 7
lsp 430,":a;2Q\chara\chrom_hh1.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_hh2.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_hh3.png",0,0
print 10,500:lrclick
lsp 430,":a;2Q\chara\chrom_hh4.png",0,0
print 10,500:lrclick

return "*zukan_"+$zlavel


*zukan_chrome_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,90
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %skill01,27
mov %item01,1
mov %ng,2
gosub *setwindow_01
mov %zukanon,1
if %bwait=210 mov %nanido,1:goto *chrome_ng_start
if %bwait=211 mov %nanido,2:goto *chrome_ng_start
if %bwait=212 mov %nanido,3:goto *chrome_ng_start
if %bwait=213 bgmstop:mov %zukanon,2:mov $name,"Chrome":mov %mylv,90:bg black,10,1000:lsp 700,":a;chara\frederika_st02.bmp",88,0:lsp 701,":a;chara\chrom_st44.bmp",200,-50:bg "bg\bg058.bmp",10,1000:goto *chrome_ng_ha
if %bwait=214 bgmstop:mov %zukanon,2:mov $name,"Chrome":mov %mylv,90:bg black,10,1000:lsp 702,":a;chara\chrom_st23.bmp",0,0:bg "bg\bg058.bmp",10,1000:goto *chrome_ng_hb
if %bwait=215 bgmstop:mov %zukanon,2:mov $name,"Chrome":mov %mylv,90:bg black,10,1000:lsp 702,":a;2Q\chara\chrom_he1.png",0,0:bg "bg\bg058.bmp",10,1000:goto *chrome_ng_hc
if %bwait=216 bgmstop:mov %zukanon,2:mov $name,"Chrome":mov %mylv,90:bg black,10,1000:lsp 702,":a;chara\chrom_st23.bmp",0,0:bg "bg\bg058.bmp",10,1000:goto *chrome_ng_hd
if %bwait=217 bgmstop:mov %zukanon,2:mov $name,"Chrome":mov %mylv,90:bg black,10,1000:lsp 700,":a;2Q\chara\chrom_hh1.png",0,0:bg "bg\bg058.bmp",10,1000:goto *chrome_ng_he2



*zukan_koakuma_ng2

mov %zukanon,0
mov $zname,"Koakuma (2)"
mov $zlavel,"koakuma_ng2"
itoa2 $zukan_ko,%30013-1
mov %zukan_facenum,2
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %7044<2 mov %hscene1,0
if %7044>1 mov %hscene1,1
if %7044<2 mov %zukancg,0
if %7044>1 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"108"
mov $zukan_hp,"45000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_koakuma_ng2_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\koakuma_ng2.jpg",400,15
goto *zukan_kihonbtn




*zukan_koakuma_ng2_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;2Q\chara\koakuma_st02.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;2Q\chara\koakuma_st01.png",%zukan_x0,0
return



*zukan_koakuma_ng2_cg

lsp 500,":c;bg\bg084.bmp",0,0
lsp 430,":a;2Q\chara\koakuma_hb1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\koakuma_hb2.png",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_koakuma_ng2_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,90
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %skill01,27
mov %item01,1
gosub *setwindow_01
mov %zukanon,2
if %bwait=210 mov %nanido,1:goto *koakuma_ng2_start
if %bwait=211 mov %nanido,2:goto *koakuma_ng2_start
if %bwait=212 mov %nanido,3:goto *koakuma_ng2_start
if %bwait=213 bgmstop:mov $name,"Koakuma":mov %mylv,90:bg black,10,1000:lsp 700,":a;2Q\chara\koakuma_st02.png",0,0:bg "bg\bg084.bmp",10,1000:goto *koakuma_ng2_h

*zukan_koakuma_ng2_prev

if %7050>0 goto *zukan_chrome_ng
if %7050<1 goto *zukan_chrome_ng_prev
goto *zukan_koakuma_ng2_prev

*zukan_koakuma_ng2_next

if %7045>0 goto *zukan_granberia_ng2
if %7045<1 goto *zukan_granberia_ng2_next
goto *zukan_koakuma_ng2_next


*zukan_granberia_ng2

mov %zukanon,0
mov $zname,"Granberia (NG+2)"
mov $zlavel,"granberia_ng2"
itoa2 $zukan_ko,%30002
mov %zukan_facenum,9
mov %zukan_posenum,8
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %7045<2 mov %hscene1,0
if %7045>1 mov %hscene1,1
if %7045<2 mov %zukancg,0
if %7045>1 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov %zukan_cum1,0
mov $zukan_lv,"136"
mov $zukan_hp,"45000"
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_granberia_ng2_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\granberia_ng2.jpg",400,55
goto *zukan_kihonbtn



*zukan_granberia_ng2_p

if %zukan_pose=1 && %zukan_face=8 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,6
if %zukan_pose=2 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=3 && %zukan_face=2 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=3 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=0 mov %zukan_face,2
if %zukan_pose=5 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=5 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=6 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,5
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\granberia_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\granberia_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\granberia_st03.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\granberia_st04.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\granberia_st05.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=6 lsp 450,":a;chara\granberia_st06.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=7 lsp 450,":a;chara\granberia_st07.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\granberia_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\granberia_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\granberia_st13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;2Q\chara\granberia_st31.png",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\granberia_st41.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\granberia_st42.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=1 lsp 450,":a;chara\granberia_st51.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=2 lsp 450,":a;chara\granberia_st52.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=3 lsp 450,":a;chara\granberia_st53.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_cum2=0 csp 442
if %zukan_cum3=0 csp 443
if %zukan_pose>1 cspl 441,443
return



*zukan_granberia_ng2_cg

lsp 500,":c;bg\bg084.bmp",0,0
lsp 430,":a;2Q\chara\granberia_hh1.png",100,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\granberia_hh2.png",100,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_granberia_ng2_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %skillset,1
mov %mylv,90
mov %skill01,27
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %item01,1
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *granberia_ng2_start
if %bwait=211 mov %nanido,2:goto *granberia_ng2_start
if %bwait=212 mov %nanido,3:goto *granberia_ng2_start
if %bwait=213 bgmstop:mov $name,"Granberia":mov %mylv,90:bg black,10,1000:lsp 700,":a;chara\granberia_st01.bmp",0,0:bg "bg\bg084.bmp":goto *granberia_ng2_h

*zukan_granberia_ng2_prev

if %7044>0 goto *zukan_koakuma_ng2
if %7044<1 goto *zukan_koakuma_ng2_prev
goto *zukan_granberia_ng2_prev

*zukan_granberia_ng2_next

if %7046>0 goto *zukan_alma_ng2
if %7046<1 goto *zukan_alma_ng2_next
goto *zukan_granberia_ng2_next


*zukan_alma_ng2

mov %zukanon,0
mov $zname,"Alma Elma (NG+2)"
mov $zlavel,"alma_ng2"
itoa2 $zukan_ko,%30005
mov %zukan_facenum,10
mov %zukan_posenum,3
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %7046<2 mov %hscene1,0
if %7046>1 mov %hscene1,1
if %hsean_alma_ng<1 mov %hscene2,0
if %hsean_alma_ng>0 mov %hscene2,1
if %7046<2 && %hsean_alma_ng<1 mov %zukancg,0
if %7046>1 || %hsean_alma_ng>0 mov %zukancg,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"145"
mov $zukan_hp,"42000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_alma_ng2_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\alma_ng2.jpg",400,40
goto *zukan_kihonbtn




*zukan_alma_ng2_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=2 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=3 && %zukan_face=10 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,9
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\arumaeruma_st51.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\arumaeruma_st52.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\arumaeruma_st53.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\arumaeruma_st21.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\arumaeruma_st22.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\arumaeruma_st23.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;2Q\chara\arumaeruma_st11.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;2Q\chara\arumaeruma_st11.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;2Q\chara\arumaeruma_st13.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=4 lsp 450,":a;2Q\chara\arumaeruma_st14.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=5 lsp 450,":a;2Q\chara\arumaeruma_st15.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=6 lsp 450,":a;2Q\chara\arumaeruma_st16.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=7 lsp 450,":a;2Q\chara\arumaeruma_st17.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=8 lsp 450,":a;2Q\chara\arumaeruma_st18.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=9 lsp 450,":a;2Q\chara\arumaeruma_st19.png",%zukan_x0,0
return



*zukan_alma_ng2_cg

lsp 500,":c;bg\bg225.bmp",0,0
lsp 430,":a;2Q\chara\arumaeruma_hi1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\arumaeruma_hi2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\arumaeruma_hi3.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\arumaeruma_hi4.png",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_alma_ng2_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,90
mov %skill01,27
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %item01,1
gosub *setwindow_01
if %bwait=210 mov %nanido,1:goto *alma_ng2_start
if %bwait=211 mov %nanido,2:goto *alma_ng2_start
if %bwait=212 mov %nanido,3:goto *alma_ng2_start
if %bwait=213 bgmstop:mov $name,"Alma Elma":mov %mylv,90:bg black,10,1000:lsp 700,":a;chara\arumaeruma_st51.bmp",0,0:bg "bg\bg225.bmp",10,1000:goto *alma_ng2_h
if %bwait=214 bgmstop:mov $name,"Alma Elma":mov %mylv,90:bg black,10,1000:bg "bg\bg114.bmp",10,1000:goto *alma_scenegnc

*zukan_alma_ng2_prev

if %7045>0 goto *zukan_granberia_ng2
if %7045<1 goto *zukan_granberia_ng2_prev
goto *zukan_alma_ng2_prev

*zukan_alma_ng2_next

if %7047>0 goto *zukan_valkyrie_ng
if %7047<1 goto *zukan_valkyrie_ng_next
goto *zukan_alma_ng2_next


*zukan_valkyrie_ng

mov %zukanon,0
mov $zname,"Valkyrie (NG+)"
mov $zlavel,"valkyrie_ng"
itoa2 $zukan_ko,%30013-1
mov %zukan_facenum,3
mov %zukan_posenum,4
mov %zukan_cumnum,5
mov %zukan_battlenum,1
mov %zukan_hscenenum,1
if %7047<2 mov %hscene1,0
if %7047>1 mov %hscene1,1
if %7047<2 mov %zukancg,0
if %7047>1 mov %zukancg,1
mov %zukancg,1
mov %zukan_x1,-300
mov %zukan_x2,0
mov $zukan_lv,"139"
mov $zukan_hp,"32000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_valkyrie_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\valkyrie_ng.jpg",400,40
goto *zukan_kihonbtn




*zukan_valkyrie_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_face=%zukan_facenum+1 mov %zukan_face,1
if %zukan_face=0 mov %zukan_face,%zukan_facenum
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\valkyrie_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\valkyrie_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\valkyrie_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\valkyrie_st11.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\valkyrie_st12.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\valkyrie_st13.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\valkyrie_st21.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\valkyrie_st22.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\valkyrie_st23.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\valkyrie_st31.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\valkyrie_st32.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\valkyrie_st33.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_cum1=1 lsp 441,":a;chara\valkyrie_bk01.bmp",%zukan_x0,0
if %zukan_pose>1 && %zukan_cum1=1 lsp 441,":a;chara\valkyrie_bk11.bmp",%zukan_x0,0
if %zukan_cum1=0 csp 441
if %zukan_pose<4 && %zukan_cum2=1 lsp 442,":a;chara\valkyrie_bk02.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_cum2=1 lsp 442,":a;chara\valkyrie_bk32.bmp",%zukan_x0,0
if %zukan_cum2=0 csp 442
if %zukan_pose<4 && %zukan_cum3=1 lsp 443,":a;chara\valkyrie_bk03.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_cum3=1 lsp 443,":a;chara\valkyrie_bk33.bmp",%zukan_x0,0
if %zukan_cum3=0 csp 443
if %zukan_cum4=1 lsp 444,":a;chara\valkyrie_bk34.bmp",%zukan_x0,0
if %zukan_cum4=0 csp 444
if %zukan_cum5=1 lsp 445,":a;chara\valkyrie_bk35.bmp",%zukan_x0,0
if %zukan_cum5=0 csp 445

return



*zukan_valkyrie_ng_cg

lsp 500,":c;bg\bg225.bmp",0,0
lsp 430,":a;2Q\chara\valkyrie_hc1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\valkyrie_hc2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\valkyrie_hc3.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\valkyrie_hc4.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\valkyrie_hc5.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\valkyrie_hc6.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\valkyrie_hc7.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\valkyrie_hc8.png",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel



*zukan_valkyrie_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,90
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %skill01,27
mov %skill_serenegale,1
mov %item01,1
gosub *setwindow_01
mov %zukanon,2
if %bwait=210 mov %nanido,1:goto *valkyrie_ng_start
if %bwait=211 mov %nanido,2:goto *valkyrie_ng_start
if %bwait=212 mov %nanido,3:goto *valkyrie_ng_start
if %bwait=213 bgmstop:mov $name,"Valkyrie":mov %mylv,90:bg black,10,1000:lsp 700,":a;2chara\valkyrie_st01.bmp",0,0:bg "bg\bg225.bmp",10,1000:goto *valkyrie_ng_h

*zukan_valkyrie_ng_prev

if %7046>0 goto *zukan_alma_ng2
if %7046<1 goto *zukan_alma_ng2_prev
goto *zukan_valkyrie_ng_prev

*zukan_valkyrie_ng_next

if %7048>0 goto *zukan_gnqueen
if %7048<1 goto *zukan_gnqueen_next
goto *zukan_valkyrie_ng_next


*zukan_gnqueen

mov %zukanon,0
mov $zname,"Queen of Grand Noah"
mov $zlavel,"gnqueen"
itoa2 $zukan_ko,0
mov %zukan_facenum,3
mov %zukan_posenum,2
mov %zukan_cumnum,0
mov %zukan_battlenum,0
mov %zukan_hscenenum,1
if %7048<1 mov %hscene1,0
if %7048>0 mov %hscene1,1
if %7048<1 mov %zukancg,0
if %7048>0 mov %zukancg,1
mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"N/A"
mov $zukan_hp,"N/A"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_gnqueen_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\gnqueen.jpg",400,15
goto *zukan_kihonbtn




*zukan_gnqueen_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=2 && %zukan_face=2 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\grandnoa_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\grandnoa_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\grandnoa_st03.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\grandnoa_st11.bmp",%zukan_x0,0
return



*zukan_gnqueen_cg

lsp 500,":c;2Q\bg\bg_inn.bmp",0,0
lsp 430,":a;2Q\chara\grandnoa_ha1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\grandnoa_ha2.png",0,0
print 10,500:lrclick
return "*zukan_"+$zlavel


*zukan_gnqueen_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,1
mov %mylv,90
mov %skill01,0
mov %item01,1
if %bwait=213 bgmstop:mov $name,"Grand Noah Queen":bg black,10,1000:lsp 700,":a;2Q\chara\grandnoa_st51.png",0,0:bg "2Q\bg\bg_bedroom.bmp",10,1000:goto *gnqueen_h


*zukan_gnqueen_prev

if %7047>0 goto *zukan_valkyrie_ng
if %7047<1 goto *zukan_valkyrie_ng_prev
goto *zukan_gnqueen_prev

*zukan_gnqueen_next

if %7056>0 goto *zukan_poseidoness_ng
if %7056<1 goto *zukan_poseidoness_ng_next
goto *zukan_gnqueen_next

*zukan_poseidoness_ng

mov %zukanon,0
mov $zname,"Poseidoness (NG+)"
mov $zlavel,"poseidoness_ng"
itoa2 $zukan_ko,%30018-1+%7022-1
mov %zukan_facenum,3
mov %zukan_posenum,1
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %7057<1 mov %hscene1,0
if %7057>0 mov %hscene1,1
if %7058<1 mov %hscene2,0
if %7058>0 mov %hscene2,1
if %7057<1 && %7058<1 mov %zukancg,0
if %7057>0 || %7058>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"162"
mov $zukan_hp,"50000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_poseidoness_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\poseidoness_ng.jpg",400,10
goto *zukan_kihonbtn




*zukan_poseidoness_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\poseidones_st01.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\poseidones_st02.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\poseidones_st03.bmp",%zukan_x0,0

return



*zukan_poseidoness_ng_cg

if %7057<1 skip 4
lsp 500,":c;bg\bg053.bmp",0,0
lsp 430,":a;chara\poseidones_ha2.bmp",0,0
print 10,500:lrclick

if %7058<1 skip 5
lsp 430,":a;2Q\chara\poseidones_hc1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\poseidones_hc2.png",0,0
print 10,500:lrclick

return "*zukan_"+$zlavel



*zukan_poseidoness_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,89
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %skill01,27
mov %item01,1
gosub *setwindow_01
mov %zukanon,2
if %bwait=210 mov %nanido,1:goto *poseidoness_ng_start
if %bwait=211 mov %nanido,2:goto *poseidoness_ng_start
if %bwait=212 mov %nanido,3:goto *poseidoness_ng_start
if %bwait=213 bgmstop:mov $name,"Poseidoness":mov %mylv,89:bg black,10,1000:lsp 700,":a;chara\poseidones_st02.bmp",0,0:bg "bg\bg053.bmp",10,1000:goto *poseidoness_ng_ha
if %bwait=214 bgmstop:mov $name,"Poseidoness":mov %mylv,89:bg black,10,1000:lsp 700,":a;chara\poseidones_st03.bmp",0,0:bg "bg\bg053.bmp",10,1000:goto *poseidoness_ng_hb

*zukan_poseidoness_ng_prev

if %7048>0 goto *zukan_gnqueen
if %7048<1 goto *zukan_gnqueen_prev
goto *zukan_poseidoness_ng_prev

*zukan_poseidoness_ng_next

if %7001>0 goto *zukan_pramia_ng
if %7001<1 goto *zukan_pramia_ng_next
goto *zukan_poseidoness_ng_next


*zukan_pramia_ng

mov %zukanon,0
mov $zname,"Tiny Lamia (NG+)"
mov $zlavel,"pramia_ng"
itoa2 $zukan_ko,%30018-1+%7022-1
mov %zukan_facenum,3
mov %zukan_posenum,4
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %7071<1 mov %hscene1,0
if %7071>0 mov %hscene1,1
if %7061<1 mov %hscene2,0
if %7061>0 mov %hscene2,1
if %7071<1 && %7061<1 mov %zukancg,0
if %7071>0 || %7061>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"99"
mov $zukan_hp,"24000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_pramia_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\pramia_ng.jpg",400,10
goto *zukan_kihonbtn




*zukan_pramia_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=2 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=3 && %zukan_face=6 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,5
if %zukan_pose=4 && %zukan_face=2 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=0 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\pramia_st01.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\pramia_st02.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\pramia_st03.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\pramia_st11.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\pramia_st12.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\pramia_st13.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\pramia_st21.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\pramia_st22.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\pramia_st23.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;chara\pramia_st24.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;chara\pramia_st25.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;2Q\chara\pramia_st32.png",%zukan_x0,0

return



*zukan_pramia_ng_cg

if %7071<1 skip 13
lsp 500,":c;bg\bg022.bmp",0,0
lsp 430,":a;2Q\chara\pramia_hb1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\pramia_hb2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\pramia_hb3.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\pramia_hb4.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\pramia_hb5.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
print 10,500:lrclick

if %7061<1 skip 9
lsp 430,":a;2Q\chara\pramia_hc1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\pramia_hc2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\pramia_hc3.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\pramia_hc4.png",0,0
print 10,500:lrclick

return "*zukan_"+$zlavel



*zukan_pramia_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,85
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %skill01,27
mov %item01,1
gosub *setwindow_01
mov %zukanon,2
if %bwait=210 mov %nanido,1:goto *pramia_ng_start
if %bwait=211 mov %nanido,2:goto *pramia_ng_start
if %bwait=212 mov %nanido,3:goto *pramia_ng_start
if %bwait=213 bgmstop:mov $name,"Tiny Lamia":mov %mylv,85:bg black,10,1000:lsp 700,":a;2Q\chara\pramia_st22.png",0,0:bg "bg\bg022.bmp",10,1000:goto *pramia_ng_h
if %bwait=214 bgmstop:mov $name,"Tiny Lamia":mov %mylv,85:bg black,10,1000:lsp 700,":a;2Q\chara\pramia_st22.png",0,0:bg "bg\bg022.bmp",10,1000:goto *pramia_ng_hb

*zukan_pramia_ng_prev

if %7048>0 goto *zukan_poseidoness_ng
if %7048<1 goto *zukan_poseidoness_ng_prev
goto *zukan_pramia_ng_prev

*zukan_pramia_ng_next

if %7001>0 goto *zukan_vgirl_ng
if %7001<1 goto *zukan_vgirl_ng_next
goto *zukan_pramia_ng_next


*zukan_vgirl_ng

mov %zukanon,0
mov $zname,"Vampire Girl (NG+)"
mov $zlavel,"vgirl_ng"
itoa2 $zukan_ko,%30018-1+%7022-1
mov %zukan_facenum,3
mov %zukan_posenum,4
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %7063<1 mov %hscene1,0
if %7063>0 mov %hscene1,1
if %7064<1 mov %hscene2,0
if %7064>0 mov %hscene2,1
if %7063<1 && %7064<1 mov %zukancg,0
if %7063>0 || %7064>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"99"
mov $zukan_hp,"22000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_vgirl_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\vgirl_ng.jpg",400,10
goto *zukan_kihonbtn




*zukan_vgirl_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=2 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=3 && %zukan_face=6 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,5
if %zukan_pose=4 && %zukan_face=2 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=0 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;chara\vgirl_st01.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;chara\vgirl_st02.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;chara\vgirl_st03.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\vgirl_st11.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\vgirl_st12.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\vgirl_st13.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;2Q\chara\vgirl_st21.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;2Q\chara\vgirl_st22.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;2Q\chara\vgirl_st23.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=4 lsp 450,":a;2Q\chara\vgirl_st24.png",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=5 lsp 450,":a;2Q\chara\vgirl_st25.png",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;2Q\chara\vgirl_st32.png",%zukan_x0,0

return



*zukan_vgirl_ng_cg

if %7063<1 skip 13
lsp 500,":c;bg\bg022.bmp",0,0
lsp 430,":a;2Q\chara\vgirl_hb1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\vgirl_hb2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\vgirl_hb3.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\vgirl_hb4.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\vgirl_hb5.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
print 10,500:lrclick

if %7064<1 skip 9
lsp 430,":a;2Q\chara\vgirl_hc1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\vgirl_hc2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\vgirl_hc3.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\vgirl_hc4.png",0,0
print 10,500:lrclick

return "*zukan_"+$zlavel



*zukan_vgirl_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,85
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %skill01,27
mov %item01,1
gosub *setwindow_01
mov %zukanon,2
if %bwait=210 mov %nanido,1:goto *vgirl_ng_start
if %bwait=211 mov %nanido,2:goto *vgirl_ng_start
if %bwait=212 mov %nanido,3:goto *vgirl_ng_start
if %bwait=213 bgmstop:mov $name,"Vampire Girl":mov %mylv,85:bg black,10,1000:lsp 700,":a;2Q\chara\vgirl_st22.png",0,0:bg "bg\bg022.bmp",10,1000:goto *vgirl_ng_ha
if %bwait=214 bgmstop:mov $name,"Vampire Girl":mov %mylv,85:bg black,10,1000:lsp 700,":a;2Q\chara\vgirl_st22.png",0,0:bg "bg\bg022.bmp",10,1000:goto *vgirl_ng_hb

*zukan_vgirl_ng_prev

if %7048>0 goto *zukan_pramia_ng
if %7048<1 goto *zukan_pramia_ng_prev
goto *zukan_vgirl_ng_prev

*zukan_vgirl_ng_next

if %7001>0 goto *zukan_dragonp_ng
if %7001<1 goto *zukan_dragonp_ng_next
goto *zukan_vgirl_ng_next


*zukan_dragonp_ng

mov %zukanon,0
mov $zname,"Dragon Pup (NG+)"
mov $zlavel,"dragonp_ng"
itoa2 $zukan_ko,%30018-1+%7022-1
mov %zukan_facenum,3
mov %zukan_posenum,5
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %7066<1 mov %hscene1,0
if %7066>0 mov %hscene1,1
if %7067<1 mov %hscene2,0
if %7067>0 mov %hscene2,1
if %7066<1 && %7067<1 mov %zukancg,0
if %7066>0 || %7067>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"99"
mov $zukan_hp,"32000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_dragonp_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\dragonp_ng.jpg",400,10
goto *zukan_kihonbtn




*zukan_dragonp_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=2 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=3 && %zukan_face=6 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,5
if %zukan_pose=4 && %zukan_face=2 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=0 mov %zukan_face,1
if %zukan_pose=5 && %zukan_face=2 mov %zukan_face,1
if %zukan_pose=5 && %zukan_face=0 mov %zukan_face,1
if %zukan_pose=4 && %zukan_face=1 lsp 450,":a;chara\dragonp_st01.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=2 lsp 450,":a;chara\dragonp_st02.bmp",%zukan_x0,0
if %zukan_pose=4 && %zukan_face=3 lsp 450,":a;chara\dragonp_st03.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=1 lsp 450,":a;chara\dragonp_st11.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=2 lsp 450,":a;chara\dragonp_st12.bmp",%zukan_x0,0
if %zukan_pose=5 && %zukan_face=3 lsp 450,":a;chara\dragonp_st13.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\dragonp_st21.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\dragonp_st22.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\dragonp_st23.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;2Q\chara\dragonp_st32.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;2Q\chara\dragonp_st42.png",%zukan_x0,0

return



*zukan_dragonp_ng_cg

if %7066<1 skip 13
lsp 500,":c;bg\bg022.bmp",0,0
lsp 430,":a;2Q\chara\dragonp_hb1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\dragonp_hb2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\dragonp_hb3.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\dragonp_hb4.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\dragonp_hb5.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
print 10,500:lrclick

if %7067<1 skip 9
lsp 430,":a;2Q\chara\dragonp_hc1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\dragonp_hc2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\dragonp_hc3.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\dragonp_hc4.png",0,0
print 10,500:lrclick

return "*zukan_"+$zlavel



*zukan_dragonp_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,85
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %skill01,27
mov %item01,1
gosub *setwindow_01
mov %zukanon,2
if %bwait=210 mov %nanido,1:goto *dragonp_ng_start
if %bwait=211 mov %nanido,2:goto *dragonp_ng_start
if %bwait=212 mov %nanido,3:goto *dragonp_ng_start
if %bwait=213 bgmstop:mov $name,"Dragon Pup":mov %mylv,85:bg black,10,1000:lsp 700,":a;2Q\chara\dragonp_st22.png",0,0:bg "bg\bg022.bmp",10,1000:goto *dragonp_ng_h
if %bwait=214 bgmstop:mov $name,"Dragon Pup":mov %mylv,85:bg black,10,1000:lsp 700,":a;2Q\chara\dragonp_st22.png",0,0:bg "bg\bg022.bmp",10,1000:goto *dragonp_ng_hb

*zukan_dragonp_ng_prev

if %7048>0 goto *zukan_vgirl_ng
if %7048<1 goto *zukan_vgirl_ng_prev
goto *zukan_dragonp_ng_prev

*zukan_dragonp_ng_next

if %7001>0 goto *zukan_goblin_ng
if %7001<1 goto *zukan_goblin_ng_next
goto *zukan_dragonp_ng_next


*zukan_goblin_ng

mov %zukanon,0
mov $zname,"Goblin Girl (NG+)"
mov $zlavel,"goblin_ng"
itoa2 $zukan_ko,%30018-1+%7022-1
mov %zukan_facenum,3
mov %zukan_posenum,5
mov %zukan_cumnum,0
mov %zukan_battlenum,1
mov %zukan_hscenenum,2
if %7069<1 mov %hscene1,0
if %7069>0 mov %hscene1,1
if %7070<1 mov %hscene2,0
if %7070>0 mov %hscene2,1
if %7069<1 && %7070<1 mov %zukancg,0
if %7069>0 || %7070>0 mov %zukancg,1
mov %zukan_x1,-200
mov %zukan_x2,0
mov $zukan_lv,"99"
mov $zukan_hp,"32000"
mov %zukan_skillc1,0
mov %zukan_skillc1,0
ency_clear
btndef clear
shadedistance 0,0
lsp 502,":c;system\ency.jpg",0,0			;????
lsp 400,":c;system\ency2.jpg",400,0			;????
mov %zukan_koumoku,1
mov %zukan_x0,%zukan_x1
gosub *zukan_goblin_ng_p
lsp 300,":s/25,25,0;#ee0000"+$zname,420,50
lsp 301,":c;2Q\ency\goblin_ng.jpg",400,10
goto *zukan_kihonbtn




*zukan_goblin_ng_p

if %zukan_pose=%zukan_posenum+1 mov %zukan_pose,1
if %zukan_pose=0 mov %zukan_pose,%zukan_posenum
if %zukan_pose=1 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=1 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=2 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=2 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=3 && %zukan_face=4 mov %zukan_face,1
if %zukan_pose=3 && %zukan_face=0 mov %zukan_face,3
if %zukan_pose=1 && %zukan_face=1 lsp 450,":a;chara\gob_st11.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=2 lsp 450,":a;chara\gob_st12.bmp",%zukan_x0,0
if %zukan_pose=1 && %zukan_face=3 lsp 450,":a;chara\gob_st13.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=1 lsp 450,":a;chara\gob_st01.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=2 lsp 450,":a;chara\gob_st02.bmp",%zukan_x0,0
if %zukan_pose=2 && %zukan_face=3 lsp 450,":a;chara\gob_st03.bmp",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=1 lsp 450,":a;2Q\chara\gob_st21.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=2 lsp 450,":a;2Q\chara\gob_st22.png",%zukan_x0,0
if %zukan_pose=3 && %zukan_face=3 lsp 450,":a;2Q\chara\gob_st23.png",%zukan_x0,0

return



*zukan_goblin_ng_cg

if %7069<1 skip 13
lsp 500,":c;bg\bg022.bmp",0,0
lsp 430,":a;2Q\chara\gob_hb1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\gob_hb2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\gob_hb3.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\gob_hb4.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\gob_hb5.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
print 10,500:lrclick

if %7070<1 skip 9
lsp 430,":a;2Q\chara\gob_hc1.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\gob_hc2.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\gob_hc3.png",0,0
print 10,500:lrclick:getret %hanyo1:if %hanyo1=0 return "*zukan_"+$zlavel
lsp 430,":a;2Q\chara\gob_hc4.png",0,0
print 10,500:lrclick

return "*zukan_"+$zlavel



*zukan_goblin_ng_kaisou

bgmstop
csp -1
bg black,10,1500
shadedistance 1,2:mov %ruka_tati,2
mov %mylv,85
mov %sylph_get,1
mov %gnome_get,1
mov %undine_get,1
mov %salamander_get,1
mov %skill02,3
mov %skill03,3
mov %skill04,3
mov %skill05,3
mov %skill01,27
mov %item01,1
gosub *setwindow_01
mov %zukanon,2
if %bwait=210 mov %nanido,1:goto *goblin_ng_start
if %bwait=211 mov %nanido,2:goto *goblin_ng_start
if %bwait=212 mov %nanido,3:goto *goblin_ng_start
if %bwait=213 bgmstop:mov $name,"Goblin Girl":mov %mylv,85:bg black,10,1000:lsp 700,":a;chara\gob_st12.png",0,0:bg "bg\bg022.bmp",10,1000:goto *goblin_ng_ha
if %bwait=214 bgmstop:mov $name,"Goblin Girl":mov %mylv,85:bg black,10,1000:lsp 700,":a;chara\gob_st12.png",0,0:bg "bg\bg022.bmp",10,1000:goto *goblin_ng_hb

*zukan_goblin_ng_prev

if %7048>0 goto *zukan_dragonp_ng
if %7048<1 goto *zukan_dragonp_ng_prev
goto *zukan_goblin_ng_prev

*zukan_goblin_ng_next

if %7001>0 goto *zukan_alice
if %7001<1 goto *zukan_alice_next
goto *zukan_goblin_ng_next


*zukan_iriasu

cspl 700,701:print 10,500
lsp 700,":s/24,24,1;#FFFFFFStart from the beginning of the final battle? ",172,143
csel "From the start ",*irias2_start,"Final Phase ",*zukan_iriasu2



*zukan_cirqueb2

lsp 700,":a;chara\cirque_st51.bmp",-160,0
lsp 702,":a;chara\cirque_st11.bmp",180,0
mov $name,"Cirque du Croix "
mov $name2,"Queen Scylla "
mov $lavel,"cirque"
mov $tatie1,"cirque_st51"
mov $tatie2,"cirque_st52"
mov $tatie3,"cirque_st53"
mov $tatie4,"cirque_st52"
mov $haikei,"bg206"
mov %monster_x,-160
mov %monster_y,0
mov $tatie1b,"cirque_st11"
mov $tatie2b,"cirque_st12"
mov $tatie3b,"cirque_st13"
mov %monster_xb,180
mov %monster_yb,0
if %nanido=1 mov %max_enemylife,25000
if %nanido=2 mov %max_enemylife,31000
if %nanido=3 mov %max_enemylife,37000
if %nanido=0 mov %max_enemylife,3
if %nanido=1 mov %henkahp1,15000
if %nanido=2 mov %henkahp1,19000
if %nanido=3 mov %henkahp1,23000
if %nanido=0 mov %henkahp1,2
if %nanido=1 mov %henkahp2,7000
if %nanido=2 mov %henkahp2,9000
if %nanido=3 mov %henkahp2,11000
if %nanido=0 mov %henkahp2,1
mov %damage_keigen,100
mov %kaihi,95
mov %earth_keigen,30
if %nanido=3 mov %earth_keigen,15
mov %alice_skill,0
mov %music,3
gosub *maxmp:mov %mp,%max_mp
gosub *syutugen2
mov $mogaku_anno1,"But Luka can't break free! "
mov $mogaku_anno2,"Luka broke free! "
mov $mogaku_anno3,"But Luka can't attack like this! "
mov $mogaku_sel1,"You won't escape... "
mov $mogaku_sel2,"You can't escape my tentacles... "
mov $mogaku_sel3,"There's no meaning to your resistance... "
mov $mogaku_sel4,"Struggling is pointless... Just surrender. "
mov $mogaku_sel5,"Prey caught in my tentacles isn't allowed to escape... "
mov $mogaku_dassyutu1,"To be able to escape from my tentacles... "
mov $mogaku_dassyutu2,"Did my power slip after dying? Or... "
mov $mogaku_earth_dassyutu1,"To be able to escape from tentacles... "
mov $mogaku_earth_dassyutu2,"What power in a flesh and blood human...! "
mov %end_n,15
mov %exp_minus,750000
mov %zmonster_x,-300
mov %tukix,300
mov %owaza_count1a,4
mov %owaza_count3a,4
mov %enemylife,15000
mov %gage,%enemylife*100/%max_enemylife+1
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556:print 1
>Replacing them, Queen Scylla and the brutal Queen Fairy appear. @
>Formidable enemies, one after another... \
name "Titania "
>Ahaha, it's my turn to play. ? \
name ""
name "Queen Scylla "
>I'll squeeze you dry with my tentacles... \
name ""
mov %sinkou,2
goto *common_main



*zukan_cirqueb3

lsp 700,":a;chara\cirque_st31.bmp",180,0
lsp 702,":a;chara\cirque_st21.bmp",-220,0
mov $name,"Cirque du Croix "
mov $name2,"Queen Lamia "
mov $lavel,"cirque"
mov $tatie1,"cirque_st31"
mov $tatie2,"cirque_st32"
mov $tatie3,"cirque_st33"
mov $tatie4,"cirque_st32"
mov $haikei,"bg206"
mov %monster_x,180
mov %monster_y,0
mov $tatie1b,"cirque_st21"
mov $tatie2b,"cirque_st22"
mov $tatie3b,"cirque_st23"
mov %monster_xb,-220
mov %monster_yb,0
if %nanido=1 mov %max_enemylife,25000
if %nanido=2 mov %max_enemylife,31000
if %nanido=3 mov %max_enemylife,37000
if %nanido=0 mov %max_enemylife,3
if %nanido=1 mov %henkahp1,15000
if %nanido=2 mov %henkahp1,19000
if %nanido=3 mov %henkahp1,23000
if %nanido=0 mov %henkahp1,2
if %nanido=1 mov %henkahp2,7000
if %nanido=2 mov %henkahp2,9000
if %nanido=3 mov %henkahp2,11000
if %nanido=0 mov %henkahp2,1
mov %damage_keigen,100
mov %kaihi,95
mov %earth_keigen,30
if %nanido=3 mov %earth_keigen,15
mov %alice_skill,0
mov %music,3
gosub *maxmp:mov %mp,%max_mp
gosub *syutugen2
mov $mogaku_anno1,"But Luka can't break free! "
mov $mogaku_anno2,"Luka broke free! "
mov $mogaku_anno3,"But Luka can't attack like this! "
mov $mogaku_sel1,"Useless... Do you think you could escape from the Queen of all Lamias? "
mov $mogaku_sel2,"I won't let you go... You will be my prey. "
mov $mogaku_sel3,"Useless... Do you think you could escape from the Queen of all Lamias?"
mov $mogaku_sel4,"I won't let you go... You will be my prey. "
mov $mogaku_sel5,"Useless... Do you think you could escape from the Queen of all Lamias?"
mov $mogaku_dassyutu1,"To throw even my restriction aside... "
mov $mogaku_dassyutu2,"What incredible power! "
mov $mogaku_earth_dassyutu1,"To throw even my restriction aside... "
mov $mogaku_earth_dassyutu2,"What incredible power! "
mov %end_n,15
mov %exp_minus,750000
mov %zmonster_x,-300
mov %tukix,300
mov %owaza_count1a,4
mov %owaza_count3a,4
mov %enemylife,7000
mov %gage,%enemylife*100/%max_enemylife+1
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556:print 1
>The next two coming out is the Pirate Queen Roza and the Queen Lamia... @
>I don't think I can keep fighting these battles! \
name "Roza "
>Are you ready? @
>You'll be my plaything... \
name ""
name "Queen Lamia "
>I'll coil around you... @
>Hehe, you'll be my prey. \
name ""
mov %sinkou,3
goto *common_main



*zukan_iriasu2

mov $name,"Ilias "
mov $name2,"Ilias "
mov $lavel,"irias2"
mov $tatie1,"iriasu2_st01"
mov $tatie2,"iriasu2_st01"
mov $tatie3,"iriasu2_st01"
mov $tatie4,"iriasu2_st22"
mov $haikei,"bg001"
mov %monster_x,0
mov %monster_y,0
if %nanido=1 mov %max_enemylife,600000
if %nanido=2 mov %max_enemylife,640000
if %nanido=3 mov %max_enemylife,680000
if %nanido=0 mov %max_enemylife,3
if %nanido=1 mov %henkahp1,590000
if %nanido=2 mov %henkahp1,590000
if %nanido=3 mov %henkahp1,590000
if %nanido=0 mov %henkahp1,2
if %nanido=1 mov %henkahp2,50000
if %nanido=2 mov %henkahp2,50000
if %nanido=3 mov %henkahp2,50000
if %nanido=0 mov %henkahp2,1
mov %damage_keigen,100
mov %kaihi,95
mov %earth_keigen,90
if %nanido=3 mov %earth_keigen,90
mov %alice_skill,0
mov %music,19
gosub *maxmp:mov %mp,%max_mp
gosub *syutugen2
mov $mogaku_anno1,"But Luka can't break free! "
mov $mogaku_anno2,"Luka broke free! "
mov $mogaku_anno3,"But Luka can't attack like this! "
mov $mogaku_sel1,"Don't resist... Nestle in my embrace... "
mov $mogaku_sel2,"Please don't struggle... "
mov $mogaku_sel3,"Don't you wish to be here for an eternity? "
mov $mogaku_sel4,"There's no resisting before a Goddess. "
mov $mogaku_sel5,"You want to be apart from me that badly? "
mov $mogaku_dassyutu1,"Don't you like my embrace? "
mov $mogaku_dassyutu2,"I intended to send you off in peace... This is a shame. "
mov $mogaku_earth_dassyutu1,"Don't you like my embrace? "
mov $mogaku_earth_dassyutu2,"I intended to send you off in peace... This is a shame. "
mov $half_s1,"It's quite easy to water you down with sexual techniques. "
mov $half_s2,"Now... Finish in my chest. "
mov $kiki_s1,"Your adventure was long, but this is the end. "
mov $kiki_s2,"You were my puppet all the way until the end. "
mov %end_n,2
mov %exp_minus,0
mov %zmonster_x,0
mov %tukix,300
if %nanido<2 mov %enemylife,100000
if %nanido=2 mov %enemylife,140000
if %nanido=3 mov %enemylife,180000
mov %gage,%enemylife*100/%max_enemylife+1
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556:print 1
goto *irias2_061x
