*mls_cmd_battle		;???????

mov %zukanon,3			;????????

;????
getini $name,$mon_labo_mon_ini,"data","name"	;ini??????????
mov $name2,$name
mov $lavel,"tuika"	;????????

;?????
getini $tatie1,$mon_labo_mon_ini,"data","tatie1"		;ini?????????
split $tatie1,".",$sub2,$sub1					;?????????????
if $sub1="bmp" | $sub1="jpg" | $sub1="png" mov %chara_ori,1	;??????????????????MOD?????????????
if $sub1="" mov %chara_ori,0					;??????????????????chara?????????????
getini $tatie2,$mon_labo_mon_ini,"data","tatie2"		;???????
getini $tatie3,$mon_labo_mon_ini,"data","tatie3"		;???????
getini $tatie4,$mon_labo_mon_ini,"data","tatie4"		;?????
getini $sub1,$mon_labo_mon_ini,"data","monster_x":atoi %monster_x,$sub1	;???X????
getini $sub1,$mon_labo_mon_ini,"data","monster_y":atoi %monster_y,$sub1	;???Y????
getini $sub1,$mon_labo_mon_ini,"ruka","tukix":atoi %tukix,$sub1		;?????????X????

;????
getini $haikei,$mon_labo_mon_ini,"data","haikei"	;ini????????
split $haikei,".",$sub2,$sub1				;????????????
if $sub1="bmp" | $sub1="jpg" | $sub1="png" mov %bg_ori,1	;?????????????????MOD?????????????
if $sub1="" mov %bg_ori,0					;?????????????????chara?????????????

;?????????
getini $sub1,$mon_labo_mon_ini,"data","hp":atoi %max_enemylife,$sub1
getini $sub1,$mon_labo_mon_ini,"data","keigen":atoi %damage_keigen,$sub1
getini $sub1,$mon_labo_mon_ini,"data","earth_keigen":atoi %earth_keigen,$sub1
getini $sub1,$mon_labo_mon_ini,"data","kaihi":atoi %kaihi,$sub1

;????
getini $sub1,$mon_labo_mon_ini,"data","music"
split $sub1,".",$sub3,$sub2
if $sub2="ogg" | $sub2="mp3" | $sub2="wav" mov %music,99:mov $tuika_bgm,$sub1
if $sub2="" atoi %music,$sub1

;????????

getini $ori_name,$mon_labo_mon_ini,"ruka","name"
getini $sub1,$mon_labo_mon_ini,"ruka","lv":atoi %mylv,$sub1:if %mylv>64 mov %mylv,64
getini $sub1,$mon_labo_mon_ini,"ruka","skill":atoi %skill01,$sub1
getini $sub1,$mon_labo_mon_ini,"ruka","skill_wind":atoi %skill02,$sub1:if %skill02=1 mov %skill02,0
getini $sub1,$mon_labo_mon_ini,"ruka","skill_earth":atoi %skill03,$sub1:if %skill02=1 mov %skill03,0
getini $sub1,$mon_labo_mon_ini,"ruka","skill_aqua":atoi %skill04,$sub1:if %skill02=1 mov %skill04,0
getini $sub1,$mon_labo_mon_ini,"ruka","skill_fire":atoi %skill05,$sub1:if %skill02=1 mov %skill05,0

;???????????
gosub *maxmp
mov %mp,%max_mp
if %mon_labo_on=1 getini $sub1,$mon_labo_mon_ini,"ruka","sp_minus":atoi %sub1,$sub1:sub %mp,%sub1
getini $sub1,$mon_labo_mon_ini,"data","type"
if $sub1="0" gosub *syutugen
if $sub1="1" gosub *syutugen2

;???????
getini $mogaku_anno1,$mon_labo_mon_ini,"anno","mogaku_anno1"	;????????????%mogaku_anno1????
getini $mogaku_anno2,$mon_labo_mon_ini,"anno","mogaku_anno2"	;????????????%mogaku_anno2????
getini $mogaku_anno3,$mon_labo_mon_ini,"anno","mogaku_anno3"	;?????????????%mogaku_anno3????
getini $mogaku_anno4,$mon_labo_mon_ini,"anno","mogaku_anno4"	;?????????????%mogaku_anno4????
getini $mogaku_sel1,$mon_labo_mon_ini,"sel","mogaku_sel1"
getini $mogaku_sel2,$mon_labo_mon_ini,"sel","mogaku_sel2"
getini $mogaku_sel3,$mon_labo_mon_ini,"sel","mogaku_sel3"
getini $mogaku_sel4,$mon_labo_mon_ini,"sel","mogaku_sel4"
getini $mogaku_sel5,$mon_labo_mon_ini,"sel","mogaku_sel5"
getini $mogaku_dassyutu1,$mon_labo_mon_ini,"sel","mogaku_dassyutu1"
getini $mogaku_dassyutu2,$mon_labo_mon_ini,"sel","mogaku_dassyutu2"
getini $mogaku_earth_dassyutu1,$mon_labo_mon_ini,"sel","mogaku_earth_dassyutu1"
getini $mogaku_earth_dassyutu2,$mon_labo_mon_ini,"sel","mogaku_earth_dassyutu2"
getini $half_s1,$mon_labo_mon_ini,"sel","half_s1"
getini $half_s2,$mon_labo_mon_ini,"sel","half_s2"
getini $kiki_s1,$mon_labo_mon_ini,"sel","kiki_s1"
getini $kiki_s2,$mon_labo_mon_ini,"sel","kiki_s2"

;????????????
getini $sub1,$mon_labo_mon_ini,"skilla1","skill_count":atoi %max_owaza_count1a,$sub1	;????????%tuika_owaza_count3a????
if %max_owaza_count1a>1 mov %tuika_owaza_count1a,%max_owaza_count1a-1			;????????%owaza_count3a????

getini $sub1,$mon_labo_mon_ini,"skilla2","skill_count":atoi %max_owaza_count1b,$sub1
if %max_owaza_count1b>0 mov %tuika_owaza_count1b,%max_owaza_count1b-1

getini $sub1,$mon_labo_mon_ini,"skilla3","skill_count":atoi %max_owaza_count1c,$sub1
if %max_owaza_count1c>0 mov %tuika_owaza_count1c,%max_owaza_count1c-1

getini $sub1,$mon_labo_mon_ini,"skilla4","skill_count":atoi %max_owaza_count1d,$sub1
if %max_owaza_count1d>0 mov %tuika_owaza_count1d,%max_owaza_count1d-1

getini $sub1,$mon_labo_mon_ini,"skilla5","skill_count":atoi %max_owaza_count1e,$sub1
if %max_owaza_count1e>0 mov %tuika_owaza_count1e,%max_owaza_count1e-1

getini $sub1,$mon_labo_mon_ini,"skilla6","skill_count":atoi %max_owaza_count1f,$sub1
if %max_owaza_count1f>0 mov %tuika_owaza_count1f,%max_owaza_count1f-1

getini $sub1,$mon_labo_mon_ini,"skilla7","skill_count":atoi %max_owaza_count1g,$sub1
if %max_owaza_count1g>0 mov %tuika_owaza_count1g,%max_owaza_count1g-1

getini $sub1,$mon_labo_mon_ini,"skilla8","skill_count":atoi %max_owaza_count1h,$sub1
if %max_owaza_count1h>0 mov %tuika_owaza_count1h,%max_owaza_count1h-1

getini $sub1,$mon_labo_mon_ini,"skillb1","skill_count":atoi %max_owaza_count2a,$sub1
if %max_owaza_count2a>0 mov %tuika_owaza_count2a,%max_owaza_count2a-1

getini $sub1,$mon_labo_mon_ini,"skillb2","skill_count":atoi %max_owaza_count2b,$sub1
if %max_owaza_count2b>0 mov %tuika_owaza_count2b,%max_owaza_count2b-1

getini $sub1,$mon_labo_mon_ini,"skillb3","skill_count":atoi %max_owaza_count2c,$sub1
if %max_owaza_count2c>0 mov %tuika_owaza_count2c,%max_owaza_count2c-1

getini $sub1,$mon_labo_mon_ini,"skillb4","skill_count":atoi %max_owaza_count2d,$sub1
if %max_owaza_count2d>0 mov %tuika_owaza_count2d,%max_owaza_count2d-1

getini $sub1,$mon_labo_mon_ini,"skillc1","skill_count":atoi %max_owaza_count3a,$sub1
if %max_owaza_count3a>0 mov %tuika_owaza_count3a,%max_owaza_count3a-1

getini $sub1,$mon_labo_mon_ini,"skillc2","skill_count":atoi %max_owaza_count3b,$sub1
if %max_owaza_count3b>0 mov %tuika_owaza_count3b,%max_owaza_count3b-1

getini $sub1,$mon_labo_mon_ini,"skillc3","skill_count":atoi %max_owaza_count3c,$sub1
if %max_owaza_count3c>0 mov %tuika_owaza_count3c,%max_owaza_count3c-1

getini $sub1,$mon_labo_mon_ini,"skillc4","skill_count":atoi %max_owaza_count3d,$sub1
if %max_owaza_count3d>0 mov %tuika_owaza_count3d,%max_owaza_count3d-1

getini $sub1,$mon_labo_mon_ini,"skilltame0","skill_count":atoi %max_owaza_count4a,$sub1
if %max_owaza_count4a>0 mov %tuika_owaza_count4a,%max_owaza_count4a-1

getini $sub1,$mon_labo_mon_ini,"skillcounter0","skill_count":atoi %max_owaza_count4b,$sub1
if %max_owaza_count4b>0 mov %tuika_owaza_count4b,%max_owaza_count4b-1

mov %nanido,1			;???????
add %mon_labo_mon_ini_ky,1	;???????
return



*mls_cmd_battle_start	;?????

goto *common_main



*tuika_main	;?????????

if %status=7 goto *tuika_konran_a
gosub *cmd_main
if %cmd1=11 && %kousoku>0 && %kousoku_type=0 goto *common_mogaku
if %cmd1=11 && %kousoku>0 && %kousoku_type=1 goto *common_miss3
if %cmd1=11 && %kousoku>0 && %kousoku_type=2 mov %abairitu,80:goto *common_miss2
if %cmd1=11 goto *common_attack
if %cmd1=12 && %kousoku_type<2 && %earth>0 && %genmogaku>0 goto *mogaku_earth1
if %cmd1=12 && %kousoku_type<2 && %earth>0 && %genmogaku=0 goto *mogaku_earth2
if %cmd1=12 && %kousoku_type<2 && %genmogaku>0 goto *common_mogaku
if %cmd1=12 && %kousoku_type<2 && %genmogaku=0 goto *common_mogaku2
if %cmd1=12 && %kousoku_type=2 && %earth>0 goto *mogaku_earth1
if %cmd1=12 && %kousoku_type=2 goto *common_mogaku
if %cmd1=13 goto *common_bougyo
if %cmd1=14 goto *common_nasugamama
if %cmd1=15 goto *tuika_kousan
if %cmd1=16 goto *tuika_onedari
if %cmd1=17 goto *common_skill
goto *tuika_main



*tuika_konran_a	;????????

rnd2 %ransu,1,3
if %ransu=1 goto *common_attack
if %ransu=2 goto *tuika_konran_a1
if %ransu=3 goto *tuika_konran_a2



*tuika_konran_a1

rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Ha!"
if %ransu=2 mov $sel1,"Orya!"
if %ransu=3 mov $sel1,"Hya!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_attack1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_attack2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_attack3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov $sel6,$ori_name+" attacked himself!"
``$sel6
gosub *mp_kaihuku:gosub *mp
dwave 1,"se\slash.ogg"
mov %hanyo1,%mylv*9/2
mov %hanyo2,%mylv*11/2
damage %hanyo1,%hanyo2
if %mylife=0 goto *tuika_h_konran
goto *tuika_a



*tuika_konran_a2

rnd2 %ransu,1,6
if %ransu=1 mov $sel1,"I'm a true Hero!"
if %ransu=2 mov $sel1,"Purupurupuru. I'm a goooood slime!"
if %ransu=3 mov $sel1,"Hehehe... So full..."
if %ransu=4 mov $sel1,"Uwaa... Flowers!"
if %ransu=5 mov $sel1,"Where am I!?"
if %ransu=6 mov $sel1,"My mother was an angel, you know!"
if %ransu<3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_konran1"
if %ransu<5 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_konran2"
if %ransu<7 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_konran3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov $sel6,$ori_name+" babbles incoherently!"
``$sel6\
goto *tuika_a



*tuika_yuwaku_a	;????????

goto *tuika_a



*tuika_dasyutu	;?????????????

gosub *face3

name $name
mov $sel1,$mogaku_dassyutu1
mov $sel2,$mogaku_dassyutu2
mov $sel3,""
gosub *selprint
name ""

mov %kousoku,0:gosub *status_print
dwave 1,"se\dassyutu.ogg"
mov $sel6,$ori_name+" breaks free!"	;$mogaku_anno4\
``$sel6\

gosub *face1

goto *common_main




*tuika_v	;??????

gosub *face3

;????????
name $name
getini $sel1,$mon_labo_mon_ini,"sel","vic_sel1"
getini $sel2,$mon_labo_mon_ini,"sel","vic_sel2"
mov $sel3,""
gosub *selprint
name ""

;???????
getini $sub1,$mon_labo_mon_ini,"data","vic_effevt"
if $sub1="0" dwave 1,"se\syometu.ogg"
if $sub1="0" csp 700:print 99,4500,"breakup.dll/urb"

;?????????
getini $sel1,$mon_labo_mon_ini,"anno","vic_anno1"
getini $sel2,$mon_labo_mon_ini,"anno","vic_anno2"
mov $sel3,""
gosub *selprint

;???????
if %battle_auto=1 skipoff
mov %battle,0
wait 1000

;?LV2?????????
if %aqua=2 && %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,1500:skip 2
if %aqua=2 && %SQ2=0 bg "BG\"+$haikei+".bmp",10,1500
if %aqua=2 && %SQ2=0 bg "2Q\BG\"+$haikei+".bmp",10,1500


bgmonce"bgm\fanfale.ogg"

;??????????
for %sub1=0 to 611 step 1
csp %sub1
next
gosub *setwindow_01
mov $sel6,$name+" was defeated!"
``$sel6\

;???????
mov %zukanon,0
mov %mon_labo_mon_ini_ky,0
mov $mon_labo_mon_ini_sc,"victory"
goto *monster_labo_story_start



*tuika_a	;?????????

if %kousoku>0 && %kousoku_type=2 && %kousoku_hp<0 goto *tuika_dasyutu		;??????????????
if %bougyo_attack=1 && %bougyo=0 gosub *tuika_tame_hit:goto *common_main	;?????????????
if %bougyo_attack=1 && %bougyo=1 gosub *tuika_tame_miss:goto *common_main	;??????????
if %counter>1 gosub *tuika_counter_mid:goto *common_main			;??????????
if %counter=1 gosub *tuika_counter_end:goto *common_main			;?????????

;?????????
getini $sub1,$mon_labo_mon_ini,"skilla1","skill_kakuritu":atoi %tuika_skilla1,$sub1
getini $sub1,$mon_labo_mon_ini,"skilla2","skill_kakuritu":atoi %tuika_skilla2,$sub1
getini $sub1,$mon_labo_mon_ini,"skilla3","skill_kakuritu":atoi %tuika_skilla3,$sub1
getini $sub1,$mon_labo_mon_ini,"skilla4","skill_kakuritu":atoi %tuika_skilla4,$sub1
getini $sub1,$mon_labo_mon_ini,"skilla5","skill_kakuritu":atoi %tuika_skilla5,$sub1
getini $sub1,$mon_labo_mon_ini,"skilla6","skill_kakuritu":atoi %tuika_skilla6,$sub1
getini $sub1,$mon_labo_mon_ini,"skilla7","skill_kakuritu":atoi %tuika_skilla7,$sub1
getini $sub1,$mon_labo_mon_ini,"skilla8","skill_kakuritu":atoi %tuika_skilla8,$sub1
getini $sub1,$mon_labo_mon_ini,"skillb1","skill_kakuritu":atoi %tuika_skillb1,$sub1
getini $sub1,$mon_labo_mon_ini,"skillb2","skill_kakuritu":atoi %tuika_skillb2,$sub1
getini $sub1,$mon_labo_mon_ini,"skillb3","skill_kakuritu":atoi %tuika_skillb3,$sub1
getini $sub1,$mon_labo_mon_ini,"skillb4","skill_kakuritu":atoi %tuika_skillb4,$sub1
getini $sub1,$mon_labo_mon_ini,"skillc1","skill_kakuritu":atoi %tuika_skillc1,$sub1
getini $sub1,$mon_labo_mon_ini,"skillc2","skill_kakuritu":atoi %tuika_skillc2,$sub1
getini $sub1,$mon_labo_mon_ini,"skillc3","skill_kakuritu":atoi %tuika_skillc3,$sub1
getini $sub1,$mon_labo_mon_ini,"skillc4","skill_kakuritu":atoi %tuika_skillc4,$sub1
getini $sub1,$mon_labo_mon_ini,"skilltame0","skill_kakuritu":atoi %tuika_skille1,$sub1
getini $sub1,$mon_labo_mon_ini,"skillcounter0","skill_kakuritu":atoi %tuika_skillf1,$sub1

;??1?????
if %kousoku=1 rnd2 %ransu,1,100
if %kousoku=1 && %ransu<=%tuika_skillb1 && %tuika_owaza_count2a>=%max_owaza_count2a && %tuika_skillb1>0 gosub *tuika_b1:goto *common_main
if %kousoku=1 sub %ransu,%tuika_skillb1
if %kousoku=1 && %ransu<=%tuika_skillb2 && %tuika_owaza_count2b>=%max_owaza_count2b && %tuika_skillb2>0 gosub *tuika_b2:goto *common_main
if %kousoku=1 sub %ransu,%tuika_skillb2
if %kousoku=1 && %ransu<=%tuika_skillb3 && %tuika_owaza_count2c>=%max_owaza_count2c && %tuika_skillb3>0 gosub *tuika_b3:goto *common_main
if %kousoku=1 sub %ransu,%tuika_skillb3
if %kousoku=1 && %ransu<=%tuika_skillb4 && %tuika_owaza_count2d>=%max_owaza_count2d && %tuika_skillb4>0 gosub *tuika_b4:goto *common_main
if %kousoku=1 skip -8

;??2?????
if %kousoku=2 rnd2 %ransu,1,100
if %kousoku=2 && %ransu<=%tuika_skillc1 && %tuika_owaza_count3a>=%max_owaza_count3a && %tuika_skillc1>0 gosub *tuika_c1:goto *common_main
if %kousoku=2 sub %ransu,%tuika_skillc1
if %kousoku=2 && %ransu<=%tuika_skillc2 && %tuika_owaza_count2b>=%max_owaza_count3b && %tuika_skillc2>0 gosub *tuika_c2:goto *common_main
if %kousoku=2 sub %ransu,%tuika_skillc2
if %kousoku=2 && %ransu<=%tuika_skillc3 && %tuika_owaza_count3c>=%max_owaza_count3c && %tuika_skillc3>0 gosub *tuika_c3:goto *common_main
if %kousoku=2 sub %ransu,%tuika_skillc3
if %kousoku=2 && %ransu<=%tuika_skillc4 && %tuika_owaza_count3d>=%max_owaza_count3d && %tuika_skillc4>0 gosub *tuika_c4:goto *common_main
if %kousoku=2 skip -8

;?????
rnd2 %ransu,1,100
if %ransu<=%tuika_skilla1 && %tuika_owaza_count1a>=%max_owaza_count1a && %tuika_skilla1>0 gosub *tuika_a1:goto *common_main
sub %ransu,%tuika_skilla1
if %ransu<=%tuika_skilla2 && %tuika_owaza_count1b>=%max_owaza_count1b && %tuika_skilla2>0 gosub *tuika_a2:goto *common_main
sub %ransu,%tuika_skilla2
if %ransu<=%tuika_skilla3 && %tuika_owaza_count1c>=%max_owaza_count1c && %tuika_skilla3>0 gosub *tuika_a3:goto *common_main
sub %ransu,%tuika_skilla3
if %ransu<=%tuika_skilla4 && %tuika_owaza_count1d>=%max_owaza_count1d && %tuika_skilla4>0 gosub *tuika_a4:goto *common_main
sub %ransu,%tuika_skilla4
if %ransu<=%tuika_skilla5 && %tuika_owaza_count1e>=%max_owaza_count1e && %tuika_skilla5>0 gosub *tuika_a5:goto *common_main
sub %ransu,%tuika_skilla5
if %ransu<=%tuika_skilla6 && %tuika_owaza_count1f>=%max_owaza_count1f && %tuika_skilla6>0 gosub *tuika_a6:goto *common_main
sub %ransu,%tuika_skilla6
if %ransu<=%tuika_skilla7 && %tuika_owaza_count1g>=%max_owaza_count1g && %tuika_skilla7>0 gosub *tuika_a7:goto *common_main
sub %ransu,%tuika_skilla7
if %ransu<=%tuika_skilla8 && %tuika_owaza_count1h>=%max_owaza_count1h && %tuika_skilla8>0 gosub *tuika_a8:goto *common_main
sub %ransu,%tuika_skilla8
if %ransu<=%tuika_skille1 && %tuika_owaza_count4a>=%max_owaza_count4a && %tuika_skille1>0 gosub *tuika_tame_zyunbi:goto *common_main
sub %ransu,%tuika_skille1
if %ransu<=%tuika_skillf1 && %tuika_owaza_count4b>=%max_owaza_count4b && %tuika_skillf1>0 && %kousan=0 gosub *tuika_counter_start:goto *common_main
skip -20



*tuika_ax	;????????????????

getini $sub1,$mon_labo_mon_ini,"skilld1","skill_kakuritu":atoi %tuika_skilld1,$sub1
getini $sub1,$mon_labo_mon_ini,"skilld2","skill_kakuritu":atoi %tuika_skilld2,$sub1
getini $sub1,$mon_labo_mon_ini,"skilld3","skill_kakuritu":atoi %tuika_skilld3,$sub1
getini $sub1,$mon_labo_mon_ini,"skilld4","skill_kakuritu":atoi %tuika_skilld4,$sub1
rnd2 %ransu,1,100
if %ransu<=%tuika_skillb1 gosub *tuika_d1:goto *tuika_ax
sub %ransu,%tuika_skillb1
if %ransu<=%tuika_skillb2 gosub *tuika_d2:goto *tuika_ax
sub %ransu,%tuika_skillb2
if %ransu<=%tuika_skillb3 gosub *tuika_d3:goto *tuika_ax
sub %ransu,%tuika_skillb3
if %ransu<=%tuika_skillb4 gosub *tuika_d4:goto *tuika_ax
if %kousoku=3 skip -8



*tuika_a_common		;???????

;???????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_kouka":atoi %tuika_skill_kouka,$sub1

;???????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_sel1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_sel2"
getini $sel3,$mon_labo_mon_ini,$skill_tag,"skill_sel3"
gosub *selprint
name ""

;????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_name"
if $sub1<>"" skillname $sub1

;???????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_ct1":if $sub1="" skip 7	;?????????????????????
getini $sub4,$mon_labo_mon_ini,$skill_tag,"skill_ctx":atoi %sub1,$sub4	;?????X??????
getini $sub5,$mon_labo_mon_ini,$skill_tag,"skill_cty":atoi %sub2,$sub5	;?????Y??????
split $sub1,".",$sub3,$sub2
if $sub2="bmp" | $sub2="jpg" | $sub2="png" mov %cut_ori,1:lsp 690,":a;"+$mon_labo_mon_folder+"\"+$sub1,%sub1,%sub2	;??????????????????
if $sub2="" mov %cut_ori,0:lsp 690,":a;chara\"+$sub1+".bmp",%sub1,%sub2							;???????????????
print 10,500

;?????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_se1":if $sub1="" skip 4	;?????????????????
split $sub1,".",$sub2,$sub3
if $sub3="ogg" | $sub3="wav" dwave 1,$mon_labo_mon_folder+"\"+$sub1	;????????????????
if $sub3="" dwave 1,"se\"+$sub1+".ogg"					;?????????????

;????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_anno1_1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_anno1_2"
getini $sel3,$mon_labo_mon_ini,$skill_tag,"skill_anno1_3"
if $sel3<>"" mov %rnd_ev,1:mov %ransu,%ren	;????????????????????
gosub *selprintn

;????????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_aqua":atoi %sub1,$sub1
rnd2 %ransu,1,100
if %aqua>1 && %ransu<%sub1 csp 690:print 10,500:gosub *aqua_guard:return

;?????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_wind":atoi %wind_kakuritu,$sub1
gosub *wind_guard_kakuritu
if %wind_guard_on=1 getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_windanno":csp 690:print 10,500:gosub *wind_guard:return

;??????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_damage1_1":atoi %sub1,$sub1
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_damage1_2":atoi %sub2,$sub1
if %tuika_skill_kouka>=2 && %tuika_skill_kouka<=5 && %sub1+%sub2=0 skip 3	;?????????...??????????????
if %sub1+%sub2>0 damage %sub1,%sub2:skip 2	;??????????
\
if %tuika_skill_kouka=1 gosub *enemylife_kaihuku	;???????
if %tuika_skill_kouka>=3 && %tuika_skill_kouka<=5 gosub *tuika_kousoku	;???????


getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_damage2_1":if $sub1<>"" gosub *tuika_damage2	;2?????????2?????????????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_damage3_1":if $sub1<>"" gosub *tuika_damage3	;3?????????3?????????????

if %tuika_skill_kouka=6 mov %drain,5:gosub *lvdrain			;????????????
if %tuika_skill_kouka=2 gosub *tuika_status				;?????????

skillname ""
if %mylife=0 return *tuika_h				;HP?0?????????
if %mylv_sin<>%mylv && %mylv=1 return *tuika_hlv	;LV?1?????????

if %kousan<2 csp 690:print 10,500			;???????????????

;???????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_selx1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_selx2"
getini $sel3,$mon_labo_mon_ini,$skill_tag,"skill_selx3"
if $sel3<>"" mov %rnd_ev,1:mov %ransu,%ren	;????????????????????
gosub *selprint
name ""

if %kousoku=3 && %kousoku<2 goto *tuika_ax	;????????????????????

if %max_mylife>%mylife*2 && %sel_hphalf=0 gosub *common_s1	;HP???????????
if %max_mylife>%mylife*5 && %sel_kiki=0 gosub *common_s2	;???????????

return



*tuika_damage2	;2????????????

;?????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_se2":if $sub1="" skip 4	;?????????????????
split $sub1,".",$sub2,$sub3
if $sub3="ogg" | $sub3="wav" dwave 1,$mon_labo_mon_folder+"\"+$sub1	;????????????????
if $sub3="" dwave 1,"se\"+$sub1+".ogg"					;?????????????

;????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_anno2_1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_anno2_2"
getini $sel3,$mon_labo_mon_ini,$skill_tag,"skill_anno2_3"
if $sel3<>"" mov %rnd_ev,1:mov %ransu,%ren	;????????????????????
gosub *selprintn

;??????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_damage2_1":atoi %sub1,$sub1
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_damage2_2":atoi %sub2,$sub1
damage %sub1,%sub2:skip 2	;??????????
\
if %tuika_skill_kouka=1 gosub *enemylife_kaihuku	;???????
if %tuika_skill_kouka=6 mov %drain,5:gosub *lvdrain			;????????????
return



*tuika_damage3	;3????????????

;?????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_se3":if $sub1="" skip 4	;?????????????????
split $sub1,".",$sub2,$sub3
if $sub3="ogg" | $sub3="wav" dwave 1,$mon_labo_mon_folder+"\"+$sub1	;????????????????
if $sub3="" dwave 1,"se\"+$sub1+".ogg"					;?????????????

;????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_anno3_1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_anno3_2"
getini $sel3,$mon_labo_mon_ini,$skill_tag,"skill_anno3_3"
if $sel3<>"" mov %rnd_ev,1:mov %ransu,%ren	;????????????????????
gosub *selprintn

;??????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_damage3_1":atoi %sub1,$sub1
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_damage3_2":atoi %sub2,$sub1
damage %sub1,%sub2:skip 2	;??????????
\
if %tuika_skill_kouka=1 gosub *enemylife_kaihuku	;???????
if %tuika_skill_kouka=6 mov %drain,5:gosub *lvdrain			;????????????
return



*tuika_status	;?????????????

getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_status":atoi %sub1,$sub1	;??????????

;????????????
if %status<>%sub1 skip 12		;Changed from skip 11 to skip 12.
if %sub1=1 && %status=1 mov $sel1,$ori_name+" is stuck in a trance..."
if %sub1=2 && %status=2 mov $sel1,$ori_name+"'s body is paralyzed..."
if %sub1=4 && %status=4 mov $sel1,$ori_name+" can't resist the monster's words..."
if %sub1=5 && %status=5 mov $sel1,$ori_name+" is mesmerized..."
if %sub1=7 && %status=7 mov $sel1,$ori_name+" is confused..."
mov $sel6,$sel1
``$sel6\
skillname ""
if %mylife=0 return *tuika_h				;HP?0?????????
if %kousan<2 csp 690:print 10,500			;???????????????
return

;???????????
if %sub1=1 && %status=0 mov %status,1:mov $sel1,$ori_name+" was induced into a trance!":mov $sel2,"Faaa...":gosub *status_print
if %sub1=2 && %status=0 mov %status,2:mov $sel1,$ori_name+"'s body became paralyzed!":mov $sel2,"Uuu...":gosub *status_print
if %sub1=4 && %status=0 mov %status,4:mov $sel1,$ori_name+" can longer resist the monster's words!":mov $sel2,"Ah, uuu...":gosub *status_print
if %sub1=5 && %status=0 mov %status,5:mov $sel1,$ori_name+" becomes mesmerized!":mov $sel2,"Faaaaa...":gosub *status_print
if %sub1=7 && %status=0 mov %status,7:mov $sel1,$ori_name+" becomes confused!":mov $sel2,"...!?":gosub *status_print
mov $sel6,$sel1
``$sel6\
;???????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_turn1":atoi %sub1,$sub1
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_turn2":atoi %sub2,$sub1
rnd2 %status_turn,%sub1,%sub2

return



*tuika_kousoku	;????????

;????????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"tatie4"
if $sub1<>"" mov $tatie4,$sub1

;?????????
if %tuika_skill_kouka=3 mov %kousoku,1
if %tuika_skill_kouka=4 mov %kousoku,2
if %tuika_skill_kouka=5 mov %kousoku,3
gosub *status_print

;?????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_kousoku_anno"
mov $sel6,$sel1
``$sel6\
;?????????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_kousoku_type":atoi %kousoku_type,$sub1
if %kousoku_type<2 && %earth=0 getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_mogaku":atoi %genmogaku,$sub1		;?????????????????
if %kousoku_type<2 && %earth>0 getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_mogaku_earth":atoi %genmogaku,$sub1	;?????????????????
if %kousoku_type=2 getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_mogaku_hp":atoi %kousoku_hp,$sub1			;????????????????

return



*tuika_a1	;?1????

mov $skill_tag,"skilla1"
mov %tuika_owaza_count1a,0
goto *tuika_a_common	;????????



*tuika_a2	;?2????

mov $skill_tag,"skilla2"
mov %tuika_owaza_count1b,0
goto *tuika_a_common	;????????



*tuika_a3	;?3????

mov $skill_tag,"skilla3"
mov %tuika_owaza_count1c,0
goto *tuika_a_common	;????????



*tuika_a4	;?4????

mov $skill_tag,"skilla4"
mov %tuika_owaza_count1d,0
goto *tuika_a_common	;????????



*tuika_a5	;?5????

mov $skill_tag,"skilla5"
mov %tuika_owaza_count1e,0
goto *tuika_a_common	;????????



*tuika_a6	;?6????

mov $skill_tag,"skilla6"
mov %tuika_owaza_count1f,0
goto *tuika_a_common	;????????



*tuika_a7	;?7????

mov $skill_tag,"skilla7"
mov %tuika_owaza_count1g,0
goto *tuika_a_common	;????????



*tuika_a8	;?8????

mov $skill_tag,"skilla8"
mov %tuika_owaza_count1h,0
goto *tuika_a_common	;????????



*tuika_b1	;?????1????

mov $skill_tag,"skillb1"
mov %tuika_owaza_count2a,0

;????????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_kousoku_anno0":if $sel1="" skip 3
mov $sel6,$sel1
``$sel6\

goto *tuika_a_common	;????????



*tuika_b2	;?????2????

mov $skill_tag,"skillb2"
mov %tuika_owaza_count2b,0

;????????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_kousoku_anno0":if $sel1="" skip 3
mov $sel6,$sel1
``$sel6\

goto *tuika_a_common	;????????



*tuika_b3	;?????3????

mov $skill_tag,"skillb3"
mov %tuika_owaza_count2c,0

;????????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_kousoku_anno0":if $sel1="" skip 3
mov $sel6,$sel1
``$sel6\

goto *tuika_a_common	;????????



*tuika_b4	;?????4????

mov $skill_tag,"skillb4"
mov %tuika_owaza_count2d,0

;????????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_kousoku_anno0":if $sel1="" skip 3
mov $sel6,$sel1
``$sel6\

goto *tuika_a_common	;????????



*tuika_c1	;?????1????

mov $skill_tag,"skillc1"
mov %tuika_owaza_count3a,0

;????????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_kousoku_anno0":if $sel1="" skip 3
mov $sel6,$sel1
``$sel6\

goto *tuika_a_common	;????????



*tuika_c2	;?????2????

mov $skill_tag,"skillc2"
mov %tuika_owaza_count3b,0

;????????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_kousoku_anno0":if $sel1="" skip 3
mov $sel6,$sel1
``$sel6\

goto *tuika_a_common	;????????



*tuika_c3	;?????3????

mov $skill_tag,"skillc3"
mov %tuika_owaza_count3c,0

;????????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_kousoku_anno0":if $sel1="" skip 3
mov $sel6,$sel1
``$sel6\

goto *tuika_a_common	;????????



*tuika_c4	;?????4????

mov $skill_tag,"skillc4"
mov %tuika_owaza_count3d,0

;????????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_kousoku_anno0":if $sel1="" skip 3
mov $sel6,$sel1
``$sel6\

goto *tuika_a_common	;????????



*tuika_d1	;???????1????

mov $skill_tag,"skilld1"

;????????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_kousoku_anno0":if $sel1="" skip 3
mov $sel6,$sel1
``$sel6\

goto *tuika_a_common	;????????



*tuika_d2	;???????2????

mov $skill_tag,"skilld2"

;????????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_kousoku_anno0":if $sel1="" skip 3
mov $sel6,$sel1
``$sel6\

goto *tuika_a_common	;????????



*tuika_d3	;???????3????

mov $skill_tag,"skilld3"

;????????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_kousoku_anno0":if $sel1="" skip 3
mov $sel6,$sel1
``$sel6\

goto *tuika_a_common	;????????



*tuika_d4	;???????4????

mov $skill_tag,"skilld4"

;????????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_kousoku_anno0":if $sel1="" skip 3
mov $sel6,$sel1
``$sel6\

goto *tuika_a_common	;????????



*tuika_tame_zyunbi	;??????

mov $skill_tag,"skilltame0"
mov %bougyo_attack,1

;???????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_sel1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_sel2"
getini $sel3,$mon_labo_mon_ini,$skill_tag,"skill_sel3"
gosub *selprint
name ""

;????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_name"
if $sub1<>"" skillname $sub1

;???????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_ct1":if $sub1="" skip 7	;?????????????????????
getini $sub4,$mon_labo_mon_ini,$skill_tag,"skill_ctx":atoi %sub1,$sub4	;?????X??????
getini $sub5,$mon_labo_mon_ini,$skill_tag,"skill_cty":atoi %sub2,$sub5	;?????Y??????
split $sub1,".",$sub3,$sub2
if $sub2="bmp" | $sub2="jpg" | $sub2="png" mov %cut_ori,1:lsp 690,":a;"+$mon_labo_mon_folder+"\"+$sub1,%sub1,%sub2	;??????????????????
if $sub2="" mov %cut_ori,0:lsp 690,":a;chara\"+$sub1+".bmp",%sub1,%sub2							;???????????????
print 10,500

;?????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_se1":if $sub1="" skip 4	;?????????????????
split $sub1,".",$sub2,$sub3
if $sub3="ogg" | $sub3="wav" dwave 1,$mon_labo_mon_folder+"\"+$sub1	;????????????????
if $sub3="" dwave 1,"se\"+$sub1+".ogg"					;?????????????



;????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_anno1_1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_anno1_2"
getini $sel3,$mon_labo_mon_ini,$skill_tag,"skill_anno1_3"
if $sel3<>"" mov %rnd_ev,1:mov %ransu,%ren	;????????????????????
gosub *selprint

skillname ""
if %kousan<2 csp 690:print 10,500

;???????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_selx1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_selx2"
getini $sel3,$mon_labo_mon_ini,$skill_tag,"skill_selx3"
if $sel3<>"" mov %rnd_ev,1:mov %ransu,%ren	;????????????????????
gosub *selprint
name ""

return



*tuika_tame_miss	;??????

mov $skill_tag,"skilltame1"
mov %tuika_owaza_count4a,0
mov %bougyo_attack,0

;???????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_sel1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_sel2"
getini $sel3,$mon_labo_mon_ini,$skill_tag,"skill_sel3"
gosub *selprint
name ""

;????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_name"
if $sub1<>"" skillname $sub1

;????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_anno1_1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_anno1_2"
getini $sel3,$mon_labo_mon_ini,$skill_tag,"skill_anno1_3"
if $sel3<>"" mov %rnd_ev,1:mov %ransu,%ren	;????????????????????
gosub *selprintn

dwave 1,"se\miss.ogg"
mov $sel6,"But "+$ori_name+" quickly dodges!"
``$sel6\
skillname ""

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_selmiss1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_selmiss2"
getini $sel3,$mon_labo_mon_ini,$skill_tag,"skill_selmiss3"
if $sel3<>"" mov %rnd_ev,1:mov %ransu,%ren	;????????????????????
gosub *selprint
name ""

return



*tuika_tame_hit	;??????

mov $skill_tag,"skilltame1"
mov %tuika_owaza_count4a,0
mov %bougyo_attack,0
goto *tuika_a_common	;????????



*tuika_counter_start	;?????????

mov $skill_tag,"skillcounter0"
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_counter_turn":atoi %counter,$sub1	;??????????????
mov %counter,%counter+1

;???????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_sel1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_sel2"
getini $sel3,$mon_labo_mon_ini,$skill_tag,"skill_sel3"
gosub *selprint
name ""

;????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_name"
if $sub1<>"" skillname $sub1

;???????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_ct1":if $sub1="" skip 7	;?????????????????????
getini $sub4,$mon_labo_mon_ini,$skill_tag,"skill_ctx":atoi %sub1,$sub4	;?????X??????
getini $sub5,$mon_labo_mon_ini,$skill_tag,"skill_cty":atoi %sub2,$sub5	;?????Y??????
split $sub1,".",$sub3,$sub2
if $sub2="bmp" | $sub2="jpg" | $sub2="png" mov %cut_ori,1:lsp 690,":a;"+$mon_labo_mon_folder+"\"+$sub1,%sub1,%sub2	;??????????????????
if $sub2="" mov %cut_ori,0:lsp 690,":a;chara\"+$sub1+".bmp",%sub1,%sub2							;???????????????

;??????????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_counter_tatie":if $sub1="" skip 3
if %chara_ori=1 lsp 700,":a;"+$mon_labo_mon_folder+"\"+$sub1,%monster_x,%monster_y
if %chara_ori=0 lsp 700,":a;chara\"+$sub1+".bmp",%monster_x,%monster_y
print 10,500

;?????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_se1":if $sub1="" skip 4	;?????????????????
split $sub1,".",$sub2,$sub3
if $sub3="ogg" | $sub3="wav" dwave 1,$mon_labo_mon_folder+"\"+$sub1	;????????????????
if $sub3="" dwave 1,"se\"+$sub1+".ogg"					;?????????????

;????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_anno1_1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_anno1_2"
getini $sel3,$mon_labo_mon_ini,$skill_tag,"skill_anno1_3"
if $sel3<>"" mov %rnd_ev,1:mov %ransu,%ren	;????????????????????
gosub *selprint

skillname ""

;???????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_selx1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_selx2"
getini $sel3,$mon_labo_mon_ini,$skill_tag,"skill_selx3"
if $sel3<>"" mov %rnd_ev,1:mov %ransu,%ren	;????????????????????
gosub *selprint
name ""

return



*tuika_counter_mid	;????????

mov $skill_tag,"skillcounter0"
mov %counter,%counter-1

;???????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_sel_counter_mid1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_sel_counter_mid2"
getini $sel3,$mon_labo_mon_ini,$skill_tag,"skill_sel_counter_mid3"
gosub *selprint
name ""

;????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_name"
if $sub1<>"" skillname $sub1

;?????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_se1":if $sub1="" skip 4	;?????????????????
split $sub1,".",$sub2,$sub3
if $sub3="ogg" | $sub3="wav" dwave 1,$mon_labo_mon_folder+"\"+$sub1	;????????????????
if $sub3="" dwave 1,"se\"+$sub1+".ogg"					;?????????????

;????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_anno_counter_mid1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_anno_counter_mid2"
getini $sel3,$mon_labo_mon_ini,$skill_tag,"skill_anno_counter_mid3"
if $sel3<>"" mov %rnd_ev,1:mov %ransu,%ren	;????????????????????
gosub *selprint

skillname ""

return



*tuika_counter_end	;?????????

mov $skill_tag,"skillcounter0"
mov %tuika_owaza_count4b,0
mov %counter,0

;???????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_sel_counter_end1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_sel_counter_end2"
getini $sel3,$mon_labo_mon_ini,$skill_tag,"skill_sel_counter_end3"
gosub *selprint
name ""

gosub *face1

;????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_anno_counter_end1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_anno_counter_end2"
getini $sel3,$mon_labo_mon_ini,$skill_tag,"skill_anno_counter_end3"
if $sel3<>"" mov %rnd_ev,1:mov %ransu,%ren	;????????????????????
gosub *selprint

return



*tuika_counter

mov $skill_tag,"skillcounter1"
mov %tuika_owaza_count4b,0
mov %counter,0
goto *tuika_a_common	;????????



*tuika_kousan

;????
if %surrender<1 gosub *kousan_syori
mov $sel6,$ori_name+" completely drops all resistance!"
``$sel6\
gosub *face2

;????????
name $name
getini $sel1,$mon_labo_mon_ini,"sel","kousan1"
getini $sel2,$mon_labo_mon_ini,"sel","kousan2"
mov $sel3,""
gosub *selprint
name ""

goto *tuika_a	;?????????



*tuika_onedari

;ini?????????????
getini $list1,$mon_labo_mon_ini,"onedari","onedari_list1":mov %list_num1,1
getini $list2,$mon_labo_mon_ini,"onedari","onedari_list2":mov %list_num2,1
getini $list3,$mon_labo_mon_ini,"onedari","onedari_list3":mov %list_num3,1
getini $list4,$mon_labo_mon_ini,"onedari","onedari_list4":mov %list_num4,1
getini $list5,$mon_labo_mon_ini,"onedari","onedari_list5":mov %list_num5,1
getini $list6,$mon_labo_mon_ini,"onedari","onedari_list6":mov %list_num6,1
getini $list7,$mon_labo_mon_ini,"onedari","onedari_list7":mov %list_num7,1
getini $list8,$mon_labo_mon_ini,"onedari","onedari_list8":mov %list_num8,1
getini $list9,$mon_labo_mon_ini,"onedari","onedari_list9":mov %list_num9,1
getini $list10,$mon_labo_mon_ini,"onedari","onedari_list10":mov %list_num10,1
getini $list11,$mon_labo_mon_ini,"onedari","onedari_list11":mov %list_num11,1
getini $list12,$mon_labo_mon_ini,"onedari","onedari_list12":mov %list_num12,1
getini $list13,$mon_labo_mon_ini,"onedari","onedari_list13":mov %list_num13,1
getini $list14,$mon_labo_mon_ini,"onedari","onedari_list14":mov %list_num14,1
getini $list15,$mon_labo_mon_ini,"onedari","onedari_list15":mov %list_num15,1
getini $list16,$mon_labo_mon_ini,"onedari","onedari_list16":mov %list_num16,1

;????????????
gosub *cmd_onedari
if %cmd1=11 mov $sub1,$list1
if %cmd1=12 mov $sub1,$list2
if %cmd1=13 mov $sub1,$list3
if %cmd1=14 mov $sub1,$list4
if %cmd1=15 mov $sub1,$list5
if %cmd1=16 mov $sub1,$list6
if %cmd1=17 mov $sub1,$list7
if %cmd1=18 mov $sub1,$list8
if %cmd1=19 mov $sub1,$list9
if %cmd1=20 mov $sub1,$list10
if %cmd1=21 mov $sub1,$list11
if %cmd1=22 mov $sub1,$list12
if %cmd1=23 mov $sub1,$list13
if %cmd1=24 mov $sub1,$list14
if %cmd1=25 mov $sub1,$list15
if %cmd1=26 mov $sub1,$list16
if %cmd1=-1 goto *tuika_main

;??????????????????????????
getini $sub2,$mon_labo_mon_ini,"skillcounter1","skill_name":if $sub1=$sub2 goto *tuika_onedarif1
getini $sub2,$mon_labo_mon_ini,"skilltame1","skill_name":if $sub1=$sub2 goto *tuika_onedarie1
getini $sub2,$mon_labo_mon_ini,"skilld1","skill_name":if $sub1=$sub2 goto *tuika_onedarid1
getini $sub2,$mon_labo_mon_ini,"skilld2","skill_name":if $sub1=$sub2 goto *tuika_onedarid2
getini $sub2,$mon_labo_mon_ini,"skilld3","skill_name":if $sub1=$sub2 goto *tuika_onedarid3
getini $sub2,$mon_labo_mon_ini,"skilld4","skill_name":if $sub1=$sub2 goto *tuika_onedarid4
getini $sub2,$mon_labo_mon_ini,"skillb1","skill_name":if $sub1=$sub2 goto *tuika_onedarib1
getini $sub2,$mon_labo_mon_ini,"skillb2","skill_name":if $sub1=$sub2 goto *tuika_onedarib2
getini $sub2,$mon_labo_mon_ini,"skillb3","skill_name":if $sub1=$sub2 goto *tuika_onedarib3
getini $sub2,$mon_labo_mon_ini,"skillb4","skill_name":if $sub1=$sub2 goto *tuika_onedarib4
getini $sub2,$mon_labo_mon_ini,"skillc1","skill_name":if $sub1=$sub2 goto *tuika_onedaric1
getini $sub2,$mon_labo_mon_ini,"skillc2","skill_name":if $sub1=$sub2 goto *tuika_onedaric2
getini $sub2,$mon_labo_mon_ini,"skillc3","skill_name":if $sub1=$sub2 goto *tuika_onedaric3
getini $sub2,$mon_labo_mon_ini,"skillc4","skill_name":if $sub1=$sub2 goto *tuika_onedaric4
getini $sub2,$mon_labo_mon_ini,"skilla1","skill_name":if $sub1=$sub2 goto *tuika_onedaria1
getini $sub2,$mon_labo_mon_ini,"skilla2","skill_name":if $sub1=$sub2 goto *tuika_onedaria2
getini $sub2,$mon_labo_mon_ini,"skilla3","skill_name":if $sub1=$sub2 goto *tuika_onedaria3
getini $sub2,$mon_labo_mon_ini,"skilla4","skill_name":if $sub1=$sub2 goto *tuika_onedaria4
getini $sub2,$mon_labo_mon_ini,"skilla5","skill_name":if $sub1=$sub2 goto *tuika_onedaria5
getini $sub2,$mon_labo_mon_ini,"skilla6","skill_name":if $sub1=$sub2 goto *tuika_onedaria6
getini $sub2,$mon_labo_mon_ini,"skilla7","skill_name":if $sub1=$sub2 goto *tuika_onedaria7
getini $sub2,$mon_labo_mon_ini,"skilla8","skill_name":if $sub1=$sub2 goto *tuika_onedaria8
goto *tuika_onedari



*tuika_onedaria1

gosub *onedari_syori
mov $skill_tag,"skilla1"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;?????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_damage1_1"	;????????????????
if $sub1="" gosub *tuika_a1:goto *tuika_a			;??????????????????????????
gosub *tuika_a1							;?????????????
skip -1



*tuika_onedaria2

gosub *onedari_syori
mov $skill_tag,"skilla2"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;?????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_damage1_1"	;????????????????
if $sub1="" gosub *tuika_a2:goto *tuika_a			;??????????????????????????
gosub *tuika_a2							;?????????????
skip -1



*tuika_onedaria3

gosub *onedari_syori
mov $skill_tag,"skilla3"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;?????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_damage1_1"	;????????????????
if $sub1="" gosub *tuika_a3:goto *tuika_a			;??????????????????????????
gosub *tuika_a3							;?????????????
skip -1



*tuika_onedaria4

gosub *onedari_syori
mov $skill_tag,"skilla4"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;?????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_damage1_1"	;????????????????
if $sub1="" gosub *tuika_a4:goto *tuika_a			;??????????????????????????
gosub *tuika_a4							;?????????????
skip -1



*tuika_onedaria5

gosub *onedari_syori
mov $skill_tag,"skilla5"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;?????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_damage1_1"	;????????????????
if $sub1="" gosub *tuika_a5:goto *tuika_a			;??????????????????????????
gosub *tuika_a5							;?????????????
skip -1



*tuika_onedaria6

gosub *onedari_syori
mov $skill_tag,"skilla6"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;?????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_damage1_1"	;????????????????
if $sub1="" gosub *tuika_a6:goto *tuika_a			;??????????????????????????
gosub *tuika_a6							;?????????????
skip -1



*tuika_onedaria7

gosub *onedari_syori
mov $skill_tag,"skilla7"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;?????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_damage1_1"	;????????????????
if $sub1="" gosub *tuika_a7:goto *tuika_a			;??????????????????????????
gosub *tuika_a7							;?????????????
skip -1



*tuika_onedaria8

gosub *onedari_syori
mov $skill_tag,"skilla8"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;?????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_damage1_1"	;????????????????
if $sub1="" gosub *tuika_a8:goto *tuika_a			;??????????????????????????
gosub *tuika_a8							;?????????????
skip -1



*tuika_onedarib1

if %kousoku<>1 gosub *onedari_syori
if %kousoku=1 gosub *onedari_syori_k
mov $skill_tag,"skillb1"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;??1???????????
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla1","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a1
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla2","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a2
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla3","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a3
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla4","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a4
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla5","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a5
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla6","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a6
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla7","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a7
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla8","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a8

gosub *tuika_b1
skip -1



*tuika_onedarib2

if %kousoku<>1 gosub *onedari_syori
if %kousoku=1 gosub *onedari_syori_k
mov $skill_tag,"skillb2"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;??1???????????
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla1","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a1
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla2","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a2
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla3","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a3
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla4","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a4
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla5","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a5
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla6","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a6
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla7","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a7
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla8","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a8

gosub *tuika_b2
skip -1



*tuika_onedarib3

if %kousoku<>1 gosub *onedari_syori
if %kousoku=1 gosub *onedari_syori_k
mov $skill_tag,"skillb3"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;??1???????????
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla1","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a1
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla2","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a2
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla3","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a3
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla4","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a4
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla5","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a5
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla6","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a6
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla7","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a7
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla8","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a8

gosub *tuika_b3
skip -1



*tuika_onedarib4

if %kousoku<>1 gosub *onedari_syori
if %kousoku=1 gosub *onedari_syori_k
mov $skill_tag,"skillb4"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;??1???????????
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla1","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a1
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla2","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a2
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla3","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a3
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla4","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a4
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla5","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a5
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla6","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a6
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla7","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a7
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla8","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a8

gosub *tuika_b4
skip -1



*tuika_onedaric1

if %kousoku<>2 gosub *onedari_syori
if %kousoku=2 gosub *onedari_syori_k
mov $skill_tag,"skillc1"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;??2???????????
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla1","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a1
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla2","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a2
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla3","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a3
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla4","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a4
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla5","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a5
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla6","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a6
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla7","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a7
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla8","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a8

gosub *tuika_c1
skip -1



*tuika_onedaric2

if %kousoku<>2 gosub *onedari_syori
if %kousoku=2 gosub *onedari_syori_k
mov $skill_tag,"skillc2"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;??2???????????
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla1","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a1
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla2","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a2
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla3","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a3
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla4","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a4
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla5","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a5
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla6","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a6
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla7","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a7
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla8","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a8

gosub *tuika_c2
skip -1



*tuika_onedaric3

if %kousoku<>2 gosub *onedari_syori
if %kousoku=2 gosub *onedari_syori_k
mov $skill_tag,"skillc3"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;??2???????????
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla1","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a1
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla2","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a2
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla3","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a3
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla4","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a4
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla5","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a5
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla6","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a6
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla7","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a7
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla8","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a8

gosub *tuika_c3
skip -1



*tuika_onedaric4

if %kousoku<>4 gosub *onedari_syori
if %kousoku=4 gosub *onedari_syori_k
mov $skill_tag,"skillc1"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;??2???????????
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla1","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a1
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla2","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a2
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla3","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a3
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla4","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a4
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla5","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a5
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla6","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a6
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla7","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a7
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla8","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a8

gosub *tuika_c4
skip -1



*tuika_onedarid1

if %kousoku<>3 gosub *onedari_syori
if %kousoku=3 gosub *onedari_syori_k
mov $skill_tag,"skilld1"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;??3???????????
if %kousoku<>3 gosub *tuika_onedari_kousoku0

gosub *tuika_d1
skip -1



*tuika_onedarid2

if %kousoku<>3 gosub *onedari_syori
if %kousoku=3 gosub *onedari_syori_k
mov $skill_tag,"skilld2"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;??3???????????
if %kousoku<>3 gosub *tuika_onedari_kousoku0

gosub *tuika_d2
skip -1



*tuika_onedarid3

if %kousoku<>3 gosub *onedari_syori
if %kousoku=3 gosub *onedari_syori_k
mov $skill_tag,"skilld3"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;??3???????????
if %kousoku<>3 gosub *tuika_onedari_kousoku0

gosub *tuika_d3
skip -1



*tuika_onedarid4

if %kousoku<>3 gosub *onedari_syori
if %kousoku=3 gosub *onedari_syori_k
mov $skill_tag,"skilld4"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;??3???????????
if %kousoku<>3 gosub *tuika_onedari_kousoku0

gosub *tuika_d4
skip -1



*tuika_onedari_kousoku0

;??3???????????????

getini $sub1,$mon_labo_mon_ini,"skillb1","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 goto *tuika_onedari_kousoku1
getini $sub1,$mon_labo_mon_ini,"skillb2","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 goto *tuika_onedari_kousoku1
getini $sub1,$mon_labo_mon_ini,"skillb3","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 goto *tuika_onedari_kousoku1
getini $sub1,$mon_labo_mon_ini,"skillb4","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 goto *tuika_onedari_kousoku1

getini $sub1,$mon_labo_mon_ini,"skillc1","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 goto *tuika_onedari_kousoku2
getini $sub1,$mon_labo_mon_ini,"skillc2","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 goto *tuika_onedari_kousoku2
getini $sub1,$mon_labo_mon_ini,"skillc3","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 goto *tuika_onedari_kousoku2
getini $sub1,$mon_labo_mon_ini,"skillc4","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 goto *tuika_onedari_kousoku2

getini $sub1,$mon_labo_mon_ini,"skilla1","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 goto *tuika_onedari_kousoku3
getini $sub1,$mon_labo_mon_ini,"skilla2","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 goto *tuika_onedari_kousoku3
getini $sub1,$mon_labo_mon_ini,"skilla3","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 goto *tuika_onedari_kousoku3
getini $sub1,$mon_labo_mon_ini,"skilla4","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 goto *tuika_onedari_kousoku3
getini $sub1,$mon_labo_mon_ini,"skilla5","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 goto *tuika_onedari_kousoku3
getini $sub1,$mon_labo_mon_ini,"skilla6","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 goto *tuika_onedari_kousoku3
getini $sub1,$mon_labo_mon_ini,"skilla7","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 goto *tuika_onedari_kousoku3
getini $sub1,$mon_labo_mon_ini,"skilla8","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 goto *tuika_onedari_kousoku3
???????????????\
skip -1



*tuika_onedari_kousoku1

;??3???1?????????1???

if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla1","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a1
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla2","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a2
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla3","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a3
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla4","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a4
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla5","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a5
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla6","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a6
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla7","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a7
if %kousoku<>1 getini $sub1,$mon_labo_mon_ini,"skilla8","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=3 gosub *tuika_a8

;??3???

getini $sub1,$mon_labo_mon_ini,"skillb1","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 gosub *tuika_b1
getini $sub1,$mon_labo_mon_ini,"skillb2","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 gosub *tuika_b2
getini $sub1,$mon_labo_mon_ini,"skillb3","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 gosub *tuika_b3
getini $sub1,$mon_labo_mon_ini,"skillb4","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 gosub *tuika_b4
return



*tuika_onedari_kousoku2

;??3???2?????????2???

if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla1","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a1
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla2","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a2
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla3","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a3
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla4","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a4
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla5","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a5
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla6","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a6
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla7","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a7
if %kousoku<>2 getini $sub1,$mon_labo_mon_ini,"skilla8","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=4 gosub *tuika_a8

;??3???
getini $sub1,$mon_labo_mon_ini,"skillc1","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 gosub *tuika_c1
getini $sub1,$mon_labo_mon_ini,"skillc2","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 gosub *tuika_c2
getini $sub1,$mon_labo_mon_ini,"skillc3","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 gosub *tuika_c3
getini $sub1,$mon_labo_mon_ini,"skillc4","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 gosub *tuika_c4
return



*tuika_onedari_kousoku3

;??3????????????????

getini $sub1,$mon_labo_mon_ini,"skilla1","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 gosub *tuika_a1
getini $sub1,$mon_labo_mon_ini,"skilla2","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 gosub *tuika_a2
getini $sub1,$mon_labo_mon_ini,"skilla3","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 gosub *tuika_a3
getini $sub1,$mon_labo_mon_ini,"skilla4","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 gosub *tuika_a4
getini $sub1,$mon_labo_mon_ini,"skilla5","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 gosub *tuika_a5
getini $sub1,$mon_labo_mon_ini,"skilla6","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 gosub *tuika_a6
getini $sub1,$mon_labo_mon_ini,"skilla7","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 gosub *tuika_a7
getini $sub1,$mon_labo_mon_ini,"skilla8","skill_kouka":atoi %tuika_skill_kouka,$sub1:if %tuika_skill_kouka=5 gosub *tuika_a8
return



*tuika_onedarie1

gosub *onedari_syori
mov $skill_tag,"skilltame1"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;?????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_damage1_1"	;????????????????
if $sub1="" gosub *tuika_tame_hit:goto *tuika_a			;??????????????????????????
gosub *tuika_tame_hit						;?????????????
skip -1



*tuika_onedarif1

gosub *onedari_syori
mov $skill_tag,"skillcounter1"

;????????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_onedari1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_onedari2"
mov $sel3,""
gosub *selprint
name ""

;?????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_damage1_1"	;????????????????
if $sub1="" gosub *tuika_counter:goto *tuika_a			;??????????????????????????
gosub *tuika_counter						;?????????????
skip -1



*tuika_h	;????????

;?????????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_rukalose":atoi %ikigoe,$sub1:gosub *ikigoe

;???????
if %ikigoe=4 skip 11	;????????????????
gosub *syasei1
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_bukkake":if $sub1="" skip 6		;?????????????????????
getini $sub2,$mon_labo_mon_ini,$skill_tag,"skill_bukkake_spot":atoi %sub1,$sub2		;???????????????????
if %sub1=0 && %chara_ori=1 lsp 691,":a;"+$mon_labo_mon_folder+"\"+$sub1,%monster_x,%monster_y	;??????????????
if %sub1=0 && %chara_ori=0 lsp 691,":a;chara\"+$sub1+".bmp",%monster_x,%monster_y			;??????????????
if %sub1=1 && %chara_ori=1 lsp 700,":a;"+$mon_labo_mon_folder+"\"+$sub1,%monster_x,%monster_y	;????????????????
if %sub1=1 && %chara_ori=0 lsp 700,":a;chara\"+$sub1+".bmp",%monster_x,%monster_y			;????????????????

getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_ct2":if $sub1="" skip 5	;??????????????????????
getini $sub2,$mon_labo_mon_ini,$skill_tag,"skill_ctx":atoi %sub1,$sub2		;?????X????
getini $sub2,$mon_labo_mon_ini,$skill_tag,"skill_cty":atoi %sub2,$sub2		;?????Y????
if %cut_ori=0 lsp 690,":a;chara\"+$sub1+".bmp",%sub1,%sub2			;?????????
if %cut_ori=1 lsp 690,":a;"+$mon_labo_mon_folder+"\"+$sub1,%sub1,%sub2		;?????????
gosub *syasei2

;??????????
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_lose_anno1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_lose_anno2"
mov $sel3,""
gosub *selprint

if %battle_auto=1 skipoff
wait 1000

;???????????????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_overkill"
if $sub1<>"" goto *tuika_overkill

mov %battle,0

;?????????
if %aqua=2 && %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,1500	;??????LV2???????????
if %aqua=2 && %mon_labo_on=0 bg "BG\"+$haikei+".bmp",10,1500				;??????LV2???????????
for %sub1=0 to 611 step 1
csp %sub1
next
gosub *setwindow_01


if %ikigoe<>4 mov $sel1,$ori_name+" was defeated..."
if %ikigoe=4 mov $sel1,$ori_name+" surrenders..."
mov $sel6,$sel1
``$sel6\
if %con_hbgm=0 bgm"bgm\ero1.ogg"
if %con_hbgm=1 bgmstop
\

mov %hsean,1
gosub *face2

;???????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_lose_sel1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_lose_sel2"
mov $sel3,""
gosub *selprint
name ""

mov %zukanon,0
mov %mon_labo_mon_ini_ky,0
mov $mon_labo_mon_ini_sc,"lose"
goto *monster_labo_story_start



*tuika_hlv	;?????????????

name $ori_name
mov $sel1,"???????c?c"
if %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose_lvdrain"
mov $sel6,$sel1
``$sel6\
name ""
???????????????????@
??????????????????????????????\

if %battle_auto=1 skipoff
wait 1000

;???????????????
getini $sub1,$mon_labo_mon_ini,$skill_tag,"skill_overkill"
if $sub1<>"" goto *tuika_overkill

mov %battle,0

;?????????
if %aqua=2 && %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,1500	;??????LV2???????????
if %aqua=2 && %mon_labo_on=0 bg "BG\"+$haikei+".bmp",10,1500				;??????LV2???????????
for %sub1=0 to 611 step 1
csp %sub1
next
gosub *setwindow_01
mov $sel6,$ori_name+" surrenders..."
``$sel6\
if %con_hbgm=0 bgm"bgm\ero1.ogg"
if %con_hbgm=1 bgmstop
\

mov %hsean,1
gosub *face2

;???????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_lose_sel1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_lose_sel2"
mov $sel3,""
gosub *selprint
name ""

mov %zukanon,0
mov %mon_labo_mon_ini_ky,0
mov $mon_labo_mon_ini_sc,"lose"
goto *monster_labo_story_start



*tuika_h_konran		;??????????

name $ori_name
mov $sel1,"????????c?c"		;Fixed a bad typo.
if %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose_konran"
mov $sel6,$sel1
``$sel6\
name ""
?????????????????????????????@
??????????????????????\

if %battle_auto=1 skipoff
wait 1000
mov %battle,0

;?????????
if %aqua=2 && %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,1500	;??????LV2???????????
if %aqua=2 && %mon_labo_on=0 bg "BG\"+$haikei+".bmp",10,1500				;??????LV2???????????
for %sub1=0 to 611 step 1
csp %sub1
next
gosub *setwindow_01
mov $sel6,$ori_name+" surrenders..."
``$sel6\
if %con_hbgm=0 bgm"bgm\ero1.ogg"
if %con_hbgm=1 bgmstop
\

mov %hsean,1
gosub *face2
mov %zukanon,0
mov %mon_labo_mon_ini_ky,0
mov $mon_labo_mon_ini_sc,"lose"
goto *monster_labo_story_start



*tuika_overkill	;????????????

;??...??????????
if %aqua=2 && %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,1500	;??????LV2???????????
if %aqua=2 && %mon_labo_on=0 bg "BG\"+$haikei+".bmp",10,1500				;??????LV2???????????
mov %wind,0:mov %earth,0:mov %aqua,0:mov %fire,0
gosub *elm_print
mov %bougyo,0
mov %kousan,3
mov %sel_hphalf,1
mov %sel_kiki,1
mov %mylife,0
lsp 560,":a;system\gager0.bmp",114,556
gosub *hp

if %ikigoe<>4 mov $sel1,$ori_name+" was defeated..."
if %ikigoe=4 mov $sel1,$ori_name+" surrenders..."
mov $sel6,$sel1
``$sel6\
if %con_hbgm=0 bgm"bgm\ero1.ogg"
if %con_hbgm=1 bgmstop
\

;???????
name $name
getini $sel1,$mon_labo_mon_ini,$skill_tag,"skill_lose_sel1"
getini $sel2,$mon_labo_mon_ini,$skill_tag,"skill_lose_sel2"
mov $sel3,""
gosub *selprint
name ""

mov %zukanon,0
mov %mon_labo_mon_ini_ky,0
mov $mon_labo_mon_ini_sc,$sub1
goto *monster_labo_story_start



*mls_cmd_overkill_end	;????????????

gosub *clear_sprite
gosub *setwindow_01
mov %battle,0
mov %hsean,1
mov %mon_labo_mon_ini_ky,0
mov $mon_labo_mon_ini_sc,"lose"
goto *monster_labo_story_start








;============================================================???:?????? 2011/6/30 ?START?
;??(?????...???????)??????21???
;----------------------------------------------------------------------------------------------------------


*monster_labo
	stop
	for %sub1=0 to 48 step 1 : dwavestop %sub1 : next
	name "" : textoff: btndef clear : barclear : for %sub1=2 to 800 step 1 : csp %sub1 : next : print 1	;???????
	;-----------------------7/19 ????????? ???:?? START ---------------------
	for %sub1=0 to 255 step 1 : csp2 %sub1 : next : print 1
	;-----------------------7/19 ????????? ???:?? END------------------------
	bg black,1
	lsp 500,":a;system\window10.bmp",25,50			;????
	bg "bg\bg046.bmp",7,1000
	;---------------------------------------------???????????????????return?????
	if %mon_labo_on=1 goto *monster_labo_listup
	mov %mon_labo_on,1

	;---------------------------------------------????
	mov %mon_labo_page_no,1	;?????????%21?mon_labo_page_no?

	for %sub1=0 to 999
	itoa $sub1,%sub1
	getini $sub9,".\mod\list.ini","monster",$sub1			;list.ini??????????????
	if $sub9="" atoi %sub1,$sub1:mov %mon_labo_page,%sub1:break
	next

	mov %mon_labo_mon_num,%mon_labo_page		;?????????%23?mon_labo_mon_num?
	sub %mon_labo_page,1: div %mon_labo_page,26: add %mon_labo_page,1		;????????%22?mon_labo_page?



*monster_labo_listup
	;---------------------------------------?????????????
	cspl 102,130
	shadedistance 1,2

	;---------------------------------------??????1~??????????????????
	if %mon_labo_page_no=0 mov %mon_labo_page_no,%mon_labo_page
	if %mon_labo_page_no>%mon_labo_page mov %mon_labo_page_no,1

	;---------------------------------------????????????????
	mov %sub1,%mon_labo_page_no: sub %sub1,1: mul %sub1,26			;???????????%24?
	mov %mon_labo_select_no,%sub1						;??????????%25?mon_labo_select_no?

	;---------------------------------------??????????
	mov %sub2,102								;?????????? ?%26?
	for %sub3=0 to 25
		itoa $sub1,%sub1							;???????(??)???(??)???
		getini $sub1,".\mod\list.ini","monster",$sub1			;list.ini??????????????
		getini $sub1,".\mod\"+$sub1+"\story.ini","setting","title"	;???????
		if %sub3<13 mov %sub4,%sub3: mul %sub4,30: add %sub4,80			;???Y??????%sub4?
		if %sub3>12 mov %sub4,%sub3: mul %sub4,30: sub %sub4,310			;???Y??????%sub4?
		if %sub3<13 lsp %sub2,":s/20,20,0;#FFFFFF#FF4444"+$sub1,50,%sub4:		;???????
		if %sub3>12 lsp %sub2,":s/20,20,0;#FFFFFF#FF4444"+$sub1,400,%sub4:		;???????
		add %sub1,1							;???????????
		if %sub1=%mon_labo_mon_num break				;???????????????
		add %sub2,1							;???????????
	next


	;----------------------------------------???????
	itoa2 $list1,%mon_labo_page_no
	itoa2 $list2,%mon_labo_page
	lsp 128,":s/20,20,0;#FFFFFF"+$list1+"/"+$list2,370,500

	;----------------------------------------??????
	lsp 99,":c/2,0,3;system\menu_prev.jpg",330,500		;?????
	lsp 100,":c/2,0,3;system\menu_next.jpg",450,500		;?????
	lsp 101,":c/2,0,3;system\return.bmp",20,560		;???????
	lsp 129,":c;system\system_barx_u.jpg",0,0			;??????
	lsp 130,":c;system\system_barx_d.jpg",0,560			;??????
	print 1



*monster_labo_btn
	btndef clear		;???????

	;---------------------------------------?????
	spbtn 99,99		;????
	spbtn 100,100		;????
	spbtn 101,101		;?????
	spbtn 102,102		;???1??
	spbtn 103,103		;???2??
	spbtn 104,104		;???3??
	spbtn 105,105		;???4??
	spbtn 106,106		;???5??
	spbtn 107,107		;???6??
	spbtn 108,108		;???7??
	spbtn 109,109		;???8??
	spbtn 110,110		;???9??
	spbtn 111,111
	spbtn 112,112
	spbtn 113,113
	spbtn 114,114
	spbtn 115,115
	spbtn 116,116
	spbtn 117,117
	spbtn 118,118
	spbtn 119,119
	spbtn 120,120
	spbtn 121,121
	spbtn 122,122
	spbtn 123,123
	spbtn 124,124
	spbtn 125,125
	spbtn 126,126
	spbtn 127,127

	;---------------------------------------????
	btnwait %bwait

	;---------------------------------------??????
	if %bwait=102 goto *monster_labo_story
	if %bwait=103 add %mon_labo_select_no,1: stop: goto *monster_labo_story
	if %bwait=104 add %mon_labo_select_no,2: stop: goto *monster_labo_story
	if %bwait=105 add %mon_labo_select_no,3: stop: goto *monster_labo_story
	if %bwait=106 add %mon_labo_select_no,4: stop: goto *monster_labo_story
	if %bwait=107 add %mon_labo_select_no,5: stop: goto *monster_labo_story
	if %bwait=108 add %mon_labo_select_no,6: stop: goto *monster_labo_story
	if %bwait=109 add %mon_labo_select_no,7: stop: goto *monster_labo_story
	if %bwait=110 add %mon_labo_select_no,8: stop: goto *monster_labo_story
	if %bwait=111 add %mon_labo_select_no,9: stop: goto *monster_labo_story
	if %bwait=112 add %mon_labo_select_no,10: stop: goto *monster_labo_story
	if %bwait=113 add %mon_labo_select_no,11: stop: goto *monster_labo_story
	if %bwait=114 add %mon_labo_select_no,12: stop: goto *monster_labo_story
	if %bwait=115 add %mon_labo_select_no,13: stop: goto *monster_labo_story
	if %bwait=116 add %mon_labo_select_no,14: stop: goto *monster_labo_story
	if %bwait=117 add %mon_labo_select_no,15: stop: goto *monster_labo_story
	if %bwait=118 add %mon_labo_select_no,16: stop: goto *monster_labo_story
	if %bwait=119 add %mon_labo_select_no,17: stop: goto *monster_labo_story
	if %bwait=120 add %mon_labo_select_no,18: stop: goto *monster_labo_story
	if %bwait=121 add %mon_labo_select_no,19: stop: goto *monster_labo_story
	if %bwait=122 add %mon_labo_select_no,20: stop: goto *monster_labo_story
	if %bwait=123 add %mon_labo_select_no,21: stop: goto *monster_labo_story
	if %bwait=124 add %mon_labo_select_no,22: stop: goto *monster_labo_story
	if %bwait=125 add %mon_labo_select_no,23: stop: goto *monster_labo_story
	if %bwait=126 add %mon_labo_select_no,24: stop: goto *monster_labo_story
	if %bwait=127 add %mon_labo_select_no,25: stop: goto *monster_labo_story

	if %bwait=99 sub %mon_labo_page_no,1: goto *monster_labo_listup	;????
	if %bwait=100  add %mon_labo_page_no,1: goto *monster_labo_listup	;????
;================================================================???:??????
;return ? return *extra ???
;================================================================
	if %bwait=101 mov %mon_labo_on,0: screen_clear : prnumclear : bgm"2Q\bgm\zukan.ogg": return *extra		;?????????
	if %bwait= -1 mov %mon_labo_on,0: screen_clear : prnumclear : bgm"2Q\bgm\zukan.ogg": return *extra		;?????
	if %bwait=-10 mov %mon_labo_on,0: screen_clear : prnumclear : bgm"2Q\bgm\zukan.ogg": return *extra		;ESC??
	if %bwait=-11 mov %mon_labo_on,0: screen_clear : prnumclear : bgm"2Q\bgm\zukan.ogg": return *extra		;??????

goto *monster_labo_btn
;================================================================???:?????? 2011/6/30 ?END?




;============================================================???:?????? 2011/6/30 ?START?
;??(?????...????????)??????30??? *monster_labo??%25(??????)???????
;----------------------------------------------------------------------------------------------------------
*monster_labo_story
	btndef clear : barclear : prnumclear : for %sub1=2 to 500 step 1 : csp %sub1 : next : print 1	;???????
	mov %manuoff,1	;?????????????
	bg black,1

	;----------------------------------------------------------------????????????
 	gosub *setwindow_01

	;----------------------------------------------------story.ini????????
	itoa $sub1,%mon_labo_select_no							;??????(??)???(??)???
	getini $mon_labo_mon_folder,".\mod\list.ini","monster",$sub1			;list.ini??????????????
	mov $sub1,".\mod\": add $sub1,$mon_labo_mon_folder: add $sub1,"\": mov $mon_labo_mon_folder,$sub1	;????????????????$30?mon_labo_mon_folder?
	mov $mon_labo_mon_ini,$mon_labo_mon_folder: add $mon_labo_mon_ini,"story.ini"					;story.ini??????$31?mon_labo_mon_ini?
	mov $mon_labo_mon_ini_sc,"story"							;?????????$32?mon_labo_mon_ini_sc?
	mov %mon_labo_mon_ini_ky,0							;??????%33?mon_labo_mon_ini_ky?
	mov %mon_labo_var_flag,0							;?????????????

	;movl ?mon_labo_var,0,0,0,0,0,0,0,0,0,0						;??????
	;----------------------------------------------------??????
goto *monster_labo_story_start


*monster_labo_story_start
	itoa $mon_labo_mon_ini_ky,%mon_labo_mon_ini_ky
	getini $mon_labo_mon_ini_cmd,$mon_labo_mon_ini,$mon_labo_mon_ini_sc,$mon_labo_mon_ini_ky					;story.ini???????????????$34?

	if $mon_labo_mon_ini_cmd="end" mov %manuoff,0 :monocro off:goto *monster_labo	;???END??????

	split $mon_labo_mon_ini_cmd,",",$sub1	;??????????$35?
	if $sub1="name"		gosub *mls_cmd_name:	goto *mls_cmd_exit	;????
	if $sub1="bg"		gosub *mls_cmd_bg:	goto *mls_cmd_exit	;????
	if $sub1="sp"		gosub *mls_cmd_sp:	goto *mls_cmd_exit	;???????
	if $sub1="sp_del"		gosub *mls_cmd_sp_del:	goto *mls_cmd_exit	;???????	???:?????? 2011/7/1
	if $sub1="wait"		gosub *mls_cmd_wait:	goto *mls_cmd_exit	;????

	if $sub1="bgm"		gosub *mls_cmd_bgm:	goto *mls_cmd_exit	;BGM??
	if $sub1="bgm_stop"	gosub *mls_cmd_bgm_stop:goto *mls_cmd_exit	;BGM??
	if $sub1="se"		gosub *mls_cmd_se:	goto *mls_cmd_exit	;SE??
	if $sub1="se_stop"	gosub *mls_cmd_se_stop:	goto *mls_cmd_exit	;SE??

	if $sub1="syasei"	gosub *mls_cmd_syasei:	goto *mls_cmd_exit	;??
	if $sub1="syasei2"	gosub *mls_cmd_syasei2:	goto *mls_cmd_exit	;??

	if $sub1="syasei_clear"	gosub *mls_cmd_syasei_clear:	goto *mls_cmd_exit	;?????

	if $sub1="flash"	gosub *mls_cmd_flash:	goto *mls_cmd_exit	;?????
	if $sub1="monocro_on"	gosub *mls_cmd_monocro_on:	goto *mls_cmd_exit	;???? ??
	if $sub1="monocro_off"	gosub *mls_cmd_monocro_off:	goto *mls_cmd_exit	;???? ??
	if $sub1="quake"	gosub *mls_cmd_quake:	goto *mls_cmd_exit	;??????
	if $sub1="sp_non_alpha"	gosub *mls_cmd_sp_non_alpha:	goto *mls_cmd_exit	;????? ?????????????

	if $sub1="select"	gosub *mls_cmd_select:	goto *monster_labo_story_start	;???
	if $sub1="goto"		gosub *mls_cmd_goto:	goto *monster_labo_story_start	;???

	if $sub1="battle"	gosub *mls_cmd_battle:	goto *monster_labo_story_start	;????
	if $sub1="battle_st"	goto *mls_cmd_battle_start	;????

	;----------------------2011/8/25 ?????? ???:?? START-------------------
	if $sub1="sp2"		gosub *mls_cmd_sp2:	goto *mls_cmd_exit	;?????????
	if $sub1="sp2_del"	gosub *mls_cmd_sp_del2:	goto *mls_cmd_exit	;?????????
	if $sub1="move"		gosub *mls_cmd_move:	goto *mls_cmd_exit	;?????????
	if $sub1="win_set"	gosub *mls_cmd_window2:	goto *mls_cmd_exit	;?????????
	if $sub1="win_del"	gosub *mls_cmd_window_del2:	goto *mls_cmd_exit	;?????????
	if $sub1="movie"	gosub *mls_cmd_movie:	goto *mls_cmd_exit	;??????
	;-----------------------2011/8/25 ?????? ???:?? END--------------------

	if $sub1="var_ld"	gosub *mls_cmd_var_ld:	goto *mls_cmd_exit	;??????

	if $sub1="var_cal"	gosub *mls_cmd_var_cal:	goto *mls_cmd_exit	;?????

	if $sub1="var_cpa"	gosub *mls_cmd_var_cpa:	goto *mls_cmd_exit	;????????????????

	if $sub1="var_jump"	gosub *mls_cmd_var_jump:	goto *mls_cmd_exit	;??????????

	if $sub1="var_out"	gosub *mls_cmd_var_out:	goto *mls_cmd_exit	;?????

	if $sub1="var_dice"	gosub *mls_cmd_var_dice:	goto *mls_cmd_exit	;??????(????)


	if $sub1="overkill_end"	goto *mls_cmd_overkill_end		;??????????
	if $sub1="restart"	goto *mls_cmd_restart		;??????
	if $sub1="element"	gosub *mls_cmd_element:	goto *mls_cmd_exit	;????
	if $sub1="skillname"	gosub *mls_cmd_skillname:goto *mls_cmd_exit	;????
	if $sub1="damage"	gosub *mls_cmd_damage:goto *mls_cmd_exit	;??????
	if $sub1="kaihuku"	gosub *mls_cmd_kaihuku:goto *mls_cmd_exit	;????
	if $sub1="anten"	gosub *mls_cmd_anten:goto *mls_cmd_exit	;????

	;???????????????
	mov $sub1,$mon_labo_mon_ini_cmd
	split $sub1,"\",$sub2,$sub3
	len %sub1,$sub1:len %sub2,$sub2
	if %sub2<%sub1 goto *dialogue_pagewait
	split $sub1,"@",$sub2,$sub3
	len %sub1,$sub1:len %sub2,$sub2
	if %sub2<%sub1 goto *dialogue_clickwait
	split $sub1,"`",$sub2,$sub3					;backquote forces dialogue to display without stopping--BE CAREFUL WHEN USING THIS!
	len %sub1,$sub1:len %sub2,$sub2
	if %sub2<%sub1 goto *dialogue_nowait

	len %sub1,$sub1:mov %sub2,%sub1+1
	if %sub1/2<%sub2/2 mov $sub1,$sub1+""
	mov $mon_labo_mon_ini_cmd,$sub1+"\"			;failsafe if there are no wait characters
	goto *dialogue_print

	*dialogue_pagewait		;$sub2 contains the text without the wait character
	len %sub1,$sub2:mov %sub2,%sub1+1
	if %sub1/2<%sub2/2 mov $sub2,$sub2+""
	mov $mon_labo_mon_ini_cmd,$sub2+"\"
	goto *dialogue_print

	*dialogue_clickwait		;$sub2 contains the text without the wait character
	len %sub1,$sub2:mov %sub2,%sub1+1
	if %sub1/2<%sub2/2 mov $sub2,$sub2+""
	mov $mon_labo_mon_ini_cmd,$sub2+"@"
	goto *dialogue_print

	*dialogue_nowait		;BE CAREFUL WHEN USING THIS!
	len %sub1,$sub2:mov %sub2,%sub1+1
	if %sub1/2<%sub2/2 mov $sub2,$sub2+""
	mov $mon_labo_mon_ini_cmd,$sub2
	goto *dialogue_print

	*dialogue_print
	``$mon_labo_mon_ini_cmd

	*mls_cmd_exit						;

	add %mon_labo_mon_ini_ky,1						;?????????
goto *monster_labo_story_start

;================================================================???:?????? 2011/6/30 ?END?


;
;??(???????????????)
;??????40???
;*monster_labo_story??$30(???????????????)?
;$32(?????)?$33(??)?$34(???)???????

;============================================================???:?????? 2011/6/30 ?START?
;????????????????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_name
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2		;?????????
	name $sub2
return
;================================================================???:?????? 2011/6/30 ?END?

;============================================================???:?????? 2011/7/1 ?START?
;?????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_bg
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3,$sub4	;?????????

	atoi %sub3,$sub3
	atoi %sub4,$sub4

	;------------------------------?????????
	split $sub2,".",$sub5,$sub6	;???????$sub5???????$sub6??????

	;------------------------------?????1????????
	if %sub3=1 goto *mls_cmd_bg_effect_1

	;------------------------------?????1?????
	;------------------------------$sub2?????????
	;	??????????????????
	if $sub6="bmp" | $sub6="jpg" | $sub6="png" bg $mon_labo_mon_folder+$sub2,%sub3,%sub4: return

	;------------------------------$sub2?????????
	;white??
	if $sub2="white" bg white,%sub3,%sub4: return
	;black??
	if $sub2="black" bg black,%sub3,%sub4: return
	;???
	split $sub2,"#",$sub5,$sub6
	if $sub5="" bg $sub2,%sub3,%sub4: return

	;????????
	mov $sub5,"bg\"
	add $sub5,$sub2
	add $sub5,".bmp"
	bg $sub5,%sub3,%sub4

	return

	;------------------------------?????1???
	*mls_cmd_bg_effect_1
	;------------------------------$sub2?????????
	;	??????????????????
	if $sub6="bmp" | $sub6="jpg" bg $mon_labo_mon_folder+$sub2,1: return

	;------------------------------$sub2?????????
	;white??
	if $sub2="white" bg white,1: return
	;black??
	if $sub2="black" bg black,1: return
	;???
	split $sub2,"#",$sub5,$sub6
	if $sub5="" bg $sub2,1: return

	;???????? bg\bg001.bmp
	mov $sub5,"bg\"
	add $sub5,$sub2
	add $sub5,".bmp"
	bg $sub5,1
return

;================================================================???:?????? 2011/7/1 ?END?

;============================================================???:?????? 2011/7/1 ?START?
;?????(0~9)???
;----------------------------------------------------------------------------------------------------------
*mls_cmd_sp
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3,$sub4,$sub5,$sub6,$sub7	;?????????

	atoi %sub2,$sub2: add %sub2,700
	atoi %sub4,$sub4
	atoi %sub5,$sub5
	atoi %sub6,$sub6
	atoi %sub7,$sub7

	;???????
	split $sub3,".",$sub8,$sub9

	;????????????????????
	if $sub9="bmp" | $sub9="jpg" | $sub9="png" mov $sub1,$mon_labo_mon_folder: add $sub1,$sub3: goto *mls_cmd_sp_show
	;???????????????
	mov $sub1,":a;chara\": add $sub1,$sub3: add $sub1,".bmp"

	;???????
	*mls_cmd_sp_show
	;------------------------------?????1???
	if %sub6=1 lsp %sub2,$sub1,%sub4,%sub5 : print 1 : return

	;------------------------------?????1?????
	lsp %sub2,$sub1,%sub4,%sub5 : print %sub6,%sub7
return
;================================================================???:?????? 2011/7/1 ?END?

;============================================================???:?????? 2011/6/30 ?START?
;????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_wait
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2	;?????????

	atoi %sub2,$sub2

	wait %sub2
return
;================================================================???:?????? 2011/6/30 ?END?

;============================================================???:?????? 2011/7/1 ?START?
;???????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_sp_del
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3,$sub4	;?????????

	atoi %sub2,$sub2: add %sub2,700
	atoi %sub3,$sub3
	atoi %sub4,$sub4

	if %sub3=1 csp %sub2 : print 1 : return
	csp %sub2 : print %sub3,%sub4
return
;================================================================???:?????? 2011/7/1 ?END?


;============================================================???:?????? 2011/7/3 ?START?
;BGM??
;----------------------------------------------------------------------------------------------------------
*mls_cmd_bgm
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2	;?????????

	split $sub2,".",$sub3,$sub4	;???????

	;?????????????WAV??????
	if $sub4="wav" mov $sub1,$mon_labo_mon_folder: add $sub1,$sub2: waveloop $sub1 : return
	;-------------------------2011/8/7 ogg mp3???? ???:?? START----------------------
	if $sub4="ogg" mov $sub1,$mon_labo_mon_folder: add $sub1,$sub2: bgm $sub1 : return
	if $sub4="mp3" mov $sub1,$mon_labo_mon_folder: add $sub1,$sub2: mp3loop $sub1 : return
	;-------------------------2011/8/7 ogg mp3???? ???:?? END------------------------

	;????BGM(.ogg)???
	mov $sub1,"bgm\": add $sub1,$sub2 :add $sub1,".ogg"
	bgm $sub1
return
;================================================================???:?????? 2011/7/3 ?END?


;============================================================???:?????? 2011/7/3 ?START?
;BGM??
;----------------------------------------------------------------------------------------------------------
*mls_cmd_bgm_stop
	bgmstop
	wavestop
return
;================================================================???:?????? 2011/7/3 ?END?


;============================================================???:?????? 2011/7/3 ?START?
;SE??
;----------------------------------------------------------------------------------------------------------
*mls_cmd_se
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3,$sub4	;?????????
	atoi %sub2,$sub2

	split $sub3,".",$sub5,$sub6	;???????

	if $sub4="loop" goto *mls_cmd_se_loop

	;?????????????WAV??????
	if $sub6="wav" mov $sub1,$mon_labo_mon_folder: add $sub1,$sub3: dwave %sub2,$sub1 : return
	if $sub6="ogg" mov $sub1,$mon_labo_mon_folder: add $sub1,$sub3: dwave %sub2,$sub1 : return

	;????SE(.ogg)???
	mov $sub1,"se\": add $sub1,$sub3 :add $sub1,".ogg"
	dwave %sub2,$sub1
	return

	*mls_cmd_se_loop

	;?????????????WAV??????
	if $sub6="wav" mov $sub1,$mon_labo_mon_folder: add $sub1,$sub3: dwaveloop %sub2,$sub1 : return
	if $sub6="ogg" mov $sub1,$mon_labo_mon_folder: add $sub1,$sub3: dwaveloop %sub2,$sub1 : return

	;????SE(.ogg)???
	mov $sub1,"se\": add $sub1,$sub3 :add $sub1,".ogg"
	dwaveloop %sub2,$sub1
return
;================================================================???:?????? 2011/7/3 ?END?


;============================================================???:?????? 2011/7/3 ?START?
;SE??
;----------------------------------------------------------------------------------------------------------
*mls_cmd_se_stop
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2	;?????????
	atoi %sub2,$sub2

	dwavestop %sub2
return
;================================================================???:?????? 2011/7/3 ?END?


;============================================================???:?????? 2011/7/ ?START?
;???
;----------------------------------------------------------------------------------------------------------
*mls_cmd_select
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3,$sub4,$sub5,$sub6,$sub7,$sub8,$sub9	;?????????
	mov %mon_labo_mon_ini_ky,0

	if $sub6="" csel $sub2,*mls_cmd_select_1,$sub4,*mls_cmd_select_2
	if $sub8="" csel $sub2,*mls_cmd_select_1,$sub4,*mls_cmd_select_2,$sub6,*mls_cmd_select_3,$sub8,*mls_cmd_select_4
	csel $sub2,*mls_cmd_select_1,$sub4,*mls_cmd_select_2,$sub6,*mls_cmd_select_3,$sub8,*mls_cmd_select_4


	*mls_cmd_select_1: mov $mon_labo_mon_ini_sc,$sub3: return
	*mls_cmd_select_2: mov $mon_labo_mon_ini_sc,$sub5: return
	*mls_cmd_select_3: mov $mon_labo_mon_ini_sc,$sub7: return
	*mls_cmd_select_4: mov $mon_labo_mon_ini_sc,$sub9: return

;================================================================???:?????? 2011/7/3 ?END?


;============================================================???:?????? 2011/7/ ?START?
;???????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_goto
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2	;?????????
	mov %mon_labo_mon_ini_ky,0
	mov $mon_labo_mon_ini_sc,$sub2:
return
;================================================================???:?????? 2011/7/3 ?END?


;============================================================???:?????? 2011/7/3 ?START?
;??
;----------------------------------------------------------------------------------------------------------
*mls_cmd_syasei
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3,$sub4,$sub5	;?????????
	atoi %sub2,$sub2: add %sub2,700
	atoi %sub4,$sub4
	atoi %sub5,$sub5

	;???????
	split $sub3,".",$sub8,$sub9

	;????????????????????
	if $sub9="bmp" | $sub9="jpg" | $sub9="png" mov $sub1,$mon_labo_mon_folder: add $sub1,$sub3: goto *mls_cmd_syasei_show
	;???????????????
	mov $sub1,":a;chara\": add $sub1,$sub3: add $sub1,".bmp"

	;???????
	*mls_cmd_syasei_show

	name ""
	gosub *syasei1
	lsp %sub2,$sub1,%sub4,%sub5
	gosub *syasei2
return
;================================================================???:?????? 2011/7/3 ?END?

;============================================================
;?????
;----------------------------------------------------------------------------------------------------------

*mls_cmd_syasei_clear

cspl 690,699:print 10,500
return


;============================================================???:?????? 2011/7/9 ?START?
;?????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_flash
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3,$sub4	;?????????

	atoi %sub2,$sub2
	atoi %sub3,$sub3

;	gosub *vanish_sprite
;	textoff
;	print 1

	lsp 2,":c;system\ef_white.jpg",0,0:print 10,%sub2
	csp 2:print 10,%sub3

;	texton
;	gosub *appear_sprite
;	print 1
return
;================================================================???:?????? 2011/7/9 ?END?



;============================================================???:?? 2011/7/19 ?START?
;???????(0~9)???
;----------------------------------------------------------------------------------------------------------
*mls_cmd_sp2
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3,$sub4,$sub5,$sub6,$sub7,$sub10,$50,$51	;?????????

	atoi %sub2,$sub2 : add %sub2,246	;???????(246~255)
	atoi %sub4,$sub4	;??X??
	atoi %sub5,$sub5	;??Y??
	atoi %sub6,$sub6: add %sub6,100	;X???
	atoi %sub7,$sub7: add %sub7,100	;Y???
	atoi %sub10,$sub10	;???
	atoi %50,$50	;?????
	atoi %51,$51	;??????

	;???????
	split $sub3,".",$sub8,$sub9

	;????????????????????
	if $sub9="bmp" | $sub9="jpg" | $sub9="png" mov $sub1,$mon_labo_mon_folder: add $sub1,$sub3: goto *mls_cmd_sp_show2
	;???????????????
	mov $sub1,":a;chara\": add $sub1,$sub3: add $sub1,".bmp"

	;???????
	*mls_cmd_sp_show2
	;------------------------------?????1???
	if %50=1 lsp2 %sub2,$sub1,%sub4,%sub5,%sub6,%sub7,%sub10,255 : print 1 : return

	;------------------------------?????1?????
	lsp2 %sub2,$sub1,%sub4,%sub5,%sub6,%sub7,%sub10 : print %50,%51
return
;================================================================???:?? 2011/7/19 ?END?


;============================================================???:?? 2011/7/19 ?START?
;?????????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_sp_del2
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3,$sub4	;?????????

	atoi %sub2,$sub2: add %sub2,246	;???????
	atoi %sub3,$sub3	;?????
	atoi %sub4,$sub4	;??????

	if %sub3=1 csp2 %sub2 : print 1 : return
	csp2 %sub2 : print %sub3,%sub4
return
;================================================================???:?? 2011/7/19 ?END?


;============================================================???:?? 2011/7/19 ?START?
;?????????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_move
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3,$sub4,$sub5,$sub6,$sub7,$sub8,$sub9,$sub10	;?????????

	atoi %sub2,$sub2: add %sub2,246	;???????(246~255)
	atoi %sub3,$sub3	;??X??
	atoi %sub4,$sub4	;??Y??
	atoi %sub5,$sub5	;X???
	atoi %sub6,$sub6	;Y???
	atoi %sub7,$sub7	;???
	atoi %sub8,$sub8	;???
	atoi %sub9,$sub9	;????
	atoi %sub10,$sub10	;????

	for %move=0 to %sub10 step 1
		msp2 %sub2,%sub3,%sub4,%sub5,%sub6,%sub7,%sub8
		print 1:wait %sub9
	next
	return
;================================================================???:?? 2011/7/19 ?END?


;============================================================???:?? 2011/7/19 ?START?
;?????????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_window2
	lsp2 245,":a;system\window1.bmp",400,500,100,100,0:print 1
	return
;================================================================???:?? 2011/7/19 ?END?


;============================================================???:?? 2011/7/19 ?START?
;?????????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_window_del2
	csp2 245:print 1
	return
;================================================================???:?? 2011/7/19 ?END?


;============================================================???:?? 2011/8/7 ?START?
;??????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_movie
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3	;?????????

	atoi %sub3,$sub3

	split $sub2,".",$sub4,$sub5	;???????

	;????????????????????
	if $sub5="avi" mov $sub1,$mon_labo_mon_folder: add $sub1,$sub2: avi $sub1,%sub3 : return
	if $sub5="mpg" mov $sub1,$mon_labo_mon_folder: add $sub1,$sub2: mpegplay $sub1,%sub3 : return

	;????????(.mpg)???
	mov $sub1,"effect\": add $sub1,$sub2: add $sub1,".mpg"
	mpegplay $sub1,%sub3
return
;================================================================???:?? 2011/8/7 ?END?


;============================================================???:?????? 2011/8/22 ?START?
;???? ??
;----------------------------------------------------------------------------------------------------------
*mls_cmd_monocro_on
	monocro #888888:print 1
	return
;================================================================???:?????? 2011/8/22 ?END?


;============================================================???:?????? 2011/8/22 ?START?
;???? ??
;----------------------------------------------------------------------------------------------------------
*mls_cmd_monocro_off
	monocro off:print 1
	return
;================================================================???:?????? 2011/8/22 ?END?


;============================================================???:?????? 2011/8/22 ?START?
;??????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_quake
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3,$sub4	;?????????
	atoi %sub2,$sub2:	;???
	atoi %sub3,$sub3	;??(???)

	if $sub4="x" quakex %sub2,%sub3: return
	if $sub4="y" quakey %sub2,%sub3: return

	quake %sub2,%sub3
return
;================================================================???:?????? 2011/8/22 ?END?


;============================================================???:?????? 2011/8/22 ?START?
;????? ?????????????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_sp_non_alpha
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3,$sub6,$sub7	;?????????

	atoi %sub2,$sub2: add %sub2,700
	atoi %sub6,$sub6
	atoi %sub7,$sub7

	;???????
	split $sub3,".",$sub8,$sub9

	;????????????????????
	if $sub9="bmp" | $sub9="jpg" mov $sub1,$mon_labo_mon_folder: add $sub1,$sub3: goto *mls_cmd_sp_show3
	;???????????????
	mov $sub1,":c;chara\": add $sub1,$sub3: add $sub1,".bmp"

	;???????
	*mls_cmd_sp_show3
	;------------------------------?????1???
	if %sub6=1 lsp %sub2,$sub1,0,0 : print 1 : return

	;------------------------------?????1?????
	lsp %sub2,$sub1,0,0 : print %sub6,%sub7
return

;================================================================???:?????? 2011/8/22 ?END?

;============================================================???:?????? 2011/8/22 ?START?
;??
;----------------------------------------------------------------------------------------------------------
*mls_cmd_syasei2
	split $mon_labo_mon_ini_cmd,",",$sub1,%sub2,$sub2,%sub3,%sub4,%sub5,$sub3,%sub6,%sub7	;?????????
	add %sub2,700
	add %sub5,700

	;-----------------------------------???
	;???????
	split $sub2,".",$sub8,$sub9

	;????????????????????
	if $sub9="bmp" | $sub9="jpg"  | $sub9="png" mov $sub1,$mon_labo_mon_folder: add $sub1,$sub2: goto *mls_cmd_syasei_show2
	;???????????????
	mov $sub1,":a;chara\": add $sub1,$sub2: add $sub1,".bmp"

	;???????
	*mls_cmd_syasei_show2

	;-----------------------------------???
	;???????
	split $sub3,".",$sub8,$sub9

	;????????????????????
	if $sub9="bmp" | $sub9="jpg" | $sub9="png" mov $sub2,$mon_labo_mon_folder: add $sub2,$sub3: goto *mls_cmd_syasei_show3
	;???????????????
	mov $sub2,":a;chara\": add $sub2,$sub3: add $sub2,".bmp"

	;???????
	*mls_cmd_syasei_show3

	name ""
	gosub *syasei1
	lsp %sub2,$sub1,%sub3,%sub4
	lsp %sub5,$sub2,%sub6,%sub7
	gosub *syasei2
return
;================================================================???:?????? 2011/8/22 ?END?


;============================================================???:????? 2012/2/1 ?START?

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

*mls_cmd_var_ld
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3		;?????????
	mov %sub5,-1
	mov %sub6,-1
	;?????
	if $sub2="v0" mov %sub5,0
	if $sub2="v1" mov %sub5,1
	if $sub2="v2" mov %sub5,2
	if $sub2="v3" mov %sub5,3
	if $sub2="v4" mov %sub5,4
	if $sub2="v5" mov %sub5,5
	if $sub2="v6" mov %sub5,6
	if $sub2="v7" mov %sub5,7
	if $sub2="v8" mov %sub5,8
	if $sub2="v9" mov %sub5,9

	;???????
	if $sub3="v0" mov %sub6,0
	if $sub3="v1" mov %sub6,1
	if $sub3="v2" mov %sub6,2
	if $sub3="v3" mov %sub6,3
	if $sub3="v4" mov %sub6,4
	if $sub3="v5" mov %sub6,5
	if $sub3="v6" mov %sub6,6
	if $sub3="v7" mov %sub6,7
	if $sub3="v8" mov %sub6,8
	if $sub3="v9" mov %sub6,9

	if %sub5=-1 return
	if %sub6>=0 mov ?mon_labo_var[%sub5],?mon_labo_var[%sub6]

	;???????
	if %sub6=-1 atoi %sub3,$sub3 : mov ?mon_labo_var[%sub5],%sub3

return

;================================================================???:????? 2012/2/1 ?END?

;============================================================???:????? 2012/2/1 ?START?

;???????+??
;----------------------------------------------------------------------------------------------------------

*mls_cmd_var_cal

	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3,$sub4		;?????????
	mov %sub5,-1
	mov %sub6,-1
	;?????
	if $sub2="v0" mov %sub5,0
	if $sub2="v1" mov %sub5,1
	if $sub2="v2" mov %sub5,2
	if $sub2="v3" mov %sub5,3
	if $sub2="v4" mov %sub5,4
	if $sub2="v5" mov %sub5,5
	if $sub2="v6" mov %sub5,6
	if $sub2="v7" mov %sub5,7
	if $sub2="v8" mov %sub5,8
	if $sub2="v9" mov %sub5,9

	;???????
	if $sub4="v0" mov %sub6,0
	if $sub4="v1" mov %sub6,1
	if $sub4="v2" mov %sub6,2
	if $sub4="v3" mov %sub6,3
	if $sub4="v4" mov %sub6,4
	if $sub4="v5" mov %sub6,5
	if $sub4="v6" mov %sub6,6
	if $sub4="v7" mov %sub6,7
	if $sub4="v8" mov %sub6,8
	if $sub4="v9" mov %sub6,9

	if %sub5=-1 return
	if %sub6>=0 mov %sub7,?mon_labo_var[%sub6]

	;???????
	if %sub6=-1 atoi %sub4,$sub4 : mov %sub7,%sub4

	;??
	mov %sub8,?mon_labo_var[%sub5]
	if $sub3="+" add %sub8,%sub7
	if $sub3="-" sub %sub8,%sub7
	if $sub3="*" mul %sub8,%sub7
	if $sub3="/" div %sub8,%sub7
	if $sub3="%" mov %sub8,%sub8 mod %sub7
	mov ?mon_labo_var[%sub5],%sub8

return

;================================================================???:????? 2012/2/1 ?END?

;============================================================???:????? 2012/2/1 ?START?
;????????????????????

;----------------------------------------------------------------------------------------------------------

*mls_cmd_var_cpa

	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3,$sub4,$sub8	;?????????

	mov %sub5,-1
	mov %sub6,-1

	;?????
	if $sub2="v0" mov %sub5,0
	if $sub2="v1" mov %sub5,1
	if $sub2="v2" mov %sub5,2
	if $sub2="v3" mov %sub5,3
	if $sub2="v4" mov %sub5,4
	if $sub2="v5" mov %sub5,5
	if $sub2="v6" mov %sub5,6
	if $sub2="v7" mov %sub5,7
	if $sub2="v8" mov %sub5,8
	if $sub2="v9" mov %sub5,9

	;???????
	if $sub4="v0" mov %sub6,0
	if $sub4="v1" mov %sub6,1
	if $sub4="v2" mov %sub6,2
	if $sub4="v3" mov %sub6,3
	if $sub4="v4" mov %sub6,4
	if $sub4="v5" mov %sub6,5
	if $sub4="v6" mov %sub6,6
	if $sub4="v7" mov %sub6,7
	if $sub4="v8" mov %sub6,8
	if $sub4="v9" mov %sub6,9

	if %sub5=-1 return
	if %sub6>=0 mov %sub7,?mon_labo_var[%sub6]

	;???????
	if %sub6=-1 atoi %sub4,$sub4 : mov %sub7,%sub4

	;??
	if $sub3=">" if ?mon_labo_var[%sub5]>%sub7 mov %mon_labo_var_flag,1
	if $sub3=">" notif ?mon_labo_var[%sub5]>%sub7 if $sub8="1" mov %mon_labo_var_flag,0
	if $sub3=">=" if ?mon_labo_var[%sub5]>=%sub7 mov %mon_labo_var_flag,1
	if $sub3=">=" notif ?mon_labo_var[%sub5]>=%sub7 if $sub8="1" mov %mon_labo_var_flag,0
	if $sub3="<" if ?mon_labo_var[%sub5]<%sub7 mov %mon_labo_var_flag,1
	if $sub3="<" notif ?mon_labo_var[%sub5]<%sub7 if $sub8="1" mov %mon_labo_var_flag,0
	if $sub3="<=" if ?mon_labo_var[%sub5]<=%sub7 mov %mon_labo_var_flag,1
	if $sub3="<=" notif ?mon_labo_var[%sub5]<=%sub7 if $sub8="1" mov %mon_labo_var_flag,0
	if $sub3="=" if ?mon_labo_var[%sub5]=%sub7 mov %mon_labo_var_flag,1
	if $sub3="=" notif ?mon_labo_var[%sub5]=%sub7 if $sub8="1" mov %mon_labo_var_flag,0
	if $sub3="!=" if ?mon_labo_var[%sub5]!=%sub7 mov %mon_labo_var_flag,1
	if $sub3="!=" notif ?mon_labo_var[%sub5]!=%sub7 if $sub8="1" mov %mon_labo_var_flag,0

return

;================================================================???:????? 2012/2/1 ?END?

;============================================================???:????? 2012/2/1 ?START?
;?????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_var_out
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3,$sub4	;?????????

	mov %sub5,-1
	;?????
	if $sub3="v0" mov %sub5,0
	if $sub3="v1" mov %sub5,1
	if $sub3="v2" mov %sub5,2
	if $sub3="v3" mov %sub5,3
	if $sub3="v4" mov %sub5,4
	if $sub3="v5" mov %sub5,5
	if $sub3="v6" mov %sub5,6
	if $sub3="v7" mov %sub5,7
	if $sub3="v8" mov %sub5,8
	if $sub3="v9" mov %sub5,9


	mov %sub6,?mon_labo_var[%sub5]

;	itoa2 $sub6,%sub6
;
;	add $sub2,$sub6
;	add $sub2,$sub4
;	``$sub2

	itoa $sub6,%sub6
	add $sub2,$sub6
	add $sub2,$sub4
	mov $sel6,$sub2
	``$sel6\
return

;================================================================???:????? 2012/2/1 ?END?


;============================================================???:????? 2012/2/1 ?START?
;????????????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_var_jump
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2	;?????????

	if %mon_labo_var_flag=1 mov %mon_labo_var_flag,0 : mov %mon_labo_mon_ini_ky,-1 : mov $mon_labo_mon_ini_sc,$sub2

return

;================================================================???:????? 2012/2/1 ?END?


;============================================================???:????? 2012/2/1 ?START?

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

;----------------------------------------------------------------------------------------------------------

*mls_cmd_var_dice

	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3		;?????????
	mov %sub5,-1
	;?????
	if $sub2="v0" mov %sub5,0
	if $sub2="v1" mov %sub5,1
	if $sub2="v2" mov %sub5,2
	if $sub2="v3" mov %sub5,3
	if $sub2="v4" mov %sub5,4
	if $sub2="v5" mov %sub5,5
	if $sub2="v6" mov %sub5,6
	if $sub2="v7" mov %sub5,7
	if $sub2="v8" mov %sub5,8
	if $sub2="v9" mov %sub5,9

	if %sub5=-1 return

	;???????
	atoi %sub3,$sub3

	sub %sub3,1

	rnd %sub4,%sub3
	add %sub4,1

	mov ?mon_labo_var[%sub5],%sub4


return


;================================================================???:????? 2012/2/1 ?END?


;???????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_restart
	split $mon_labo_mon_ini_cmd,",",$sub1,$mon_labo_mon_folder		;?????????

	mov $sub1,".\mod\": add $sub1,$mon_labo_mon_folder: add $sub1,"\": mov $mon_labo_mon_folder,$sub1	;????????????????$30?mon_labo_mon_folder?
	mov $mon_labo_mon_ini,$mon_labo_mon_folder: add $mon_labo_mon_ini,"story.ini"					;story.ini??????$31?mon_labo_mon_ini?
	mov $mon_labo_mon_ini_sc,"story"							;?????????$32?mon_labo_mon_ini_sc?
	mov %mon_labo_mon_ini_ky,0							;??????%33?mon_labo_mon_ini_ky?
goto *monster_labo_story_start


;????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_element
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2
	atoi %sub2,$sub2

	if %sub2=1 lsp2 0,":a;chara\sylph_st01.bmp",250,300,100,100,0,200
	if %sub2=2 lsp2 0,":a;2Q\chara\gnome_st01.png",250,300,100,100,0,200
	if %sub2=3 lsp2 0,":a;chara\undine_st01.bmp",200,300,100,100,0,200
	if %sub2=4 lsp2 0,":a;2Q\chara\salamander_st01.png",250,300,100,100,0,200
	gosub *syoukan_effect
return


;????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_skillname
	split $mon_labo_mon_ini_cmd,",",$sub1,$skillname
	if $skillname="" csp 590:csp 591:print 1:return
	lsp 591,":a/2,0,3;system\select_window2.jpg",150,20
	len %name_count,$skillname
	lsp 590,":s/24,24,0;#FFFFFF"+$skillname,400-%name_count*6,33
	print 1
return


;??????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_damage
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3
	atoi %sub2,$sub2
	atoi %sub3,$sub3

	delay 300
	if %sub2=%sub3 mov %damage,%sub2
	notif %sub2=%sub3 rnd2 %damage,%sub2,%sub3
	dwave 2,"se\damage.ogg":quakex 2,440
	itoa $sel1,%damage
	mov $sel6,$ori_name+" takes "+$sel1+" damage!"
	``$sel6\

	if %battle=0 skip 10
	mov %mylife,%mylife-%damage
	if %mylife>%max_mylife mov %mylife,%max_mylife
	if %mylife<0 mov %mylife,0
	if %mylife=0 mov %gage,0 skip 3
	mov %gage,%mylife*100/%max_mylife+1
	if %gage=101 mov %gage,100
	itoa $gagenum,%gage
	lsp 560,":a;system\gager"+$gagenum+".bmp",114,556
	gosub *hp
	print 10,500
	\
return


;????
;----------------------------------------------------------------------------------------------------------
*mls_cmd_kaihuku
	split $mon_labo_mon_ini_cmd,",",$sub1,$sub2,$sub3
	atoi %sub2,$sub2
	atoi %sub3,$sub3

	delay 300
	if %sub2=%sub3 mov %damage,%sub2
	notif %sub2=%sub3 rnd2 %damage,%sub2,%sub3
	dwave 2,"se\kaihuku.ogg"
	itoa $sel1,%damage
	mov $sel6,$ori_name+" recovers "+$sel1+" HP!"
	``$sel6\

	if %battle=0 skip 8
	mov %mylife,%mylife+%damage
	if %mylife>%max_mylife mov %mylife,%max_mylife
	mov %gage,%mylife*100/%max_mylife+1
	if %gage=101 mov %gage,100
	itoa $gagenum,%gage
	lsp 560,":a;system\gager"+$gagenum+".bmp",114,556
	gosub *hp
	print 10,500
	\
return


;??
;----------------------------------------------------------------------------------------------------------
*mls_cmd_anten

	cspl 3,7
	gosub *clear_sprite
	monocro #000000
	print 10,3000
	csp -1
	monocro off
	bg black,1
	gosub *setwindow_01
return



*nekomata2_kaizou_start

mov $name, "Nekomata"
mov $name2, "Nekomata"
mov $lavel,"nekomata2_kaizou"
mov $tatie1,"nekomata2_st01"
mov $tatie2,"nekomata2_st04"
mov $tatie3,"nekomata2_st04"
mov $tatie4,"nekomata2_ha1"
mov $haikei,$sub6
mov %monster_x,0
mov %monster_y,0
if %nanido=1 mov %max_enemylife,1600
if %nanido=2 mov %max_enemylife,1800
if %nanido=3 mov %max_enemylife,2200
if %nanido=1 mov %mogaku,1
if %nanido=2 mov %mogaku,1
if %nanido=3 mov %mogaku,2
mov %damage_keigen,100
mov %kaihi,40
mov %tikei,%sub7
if %sub5=0 gosub *maxmp:mov %mp,%max_mp
if %sub5=1 gosub *maxmp:mov %mp,0
gosub *syutugen2
mov $mogaku_anno1,"But he can't push her off!"
mov $mogaku_anno2,"Luka shoved her aside!"
mov $mogaku_anno3,"But he can't break free!"
mov $mogaku_sel1,"Good, good! That floundering just stimulates my sadistic core!?"
mov $mogaku_sel2,"Good, good! That floundering just stimulates my sadistic core!?"
mov $mogaku_sel3,"Hehe, that's no good.? I'll make you come in a moment...?"
mov $mogaku_sel4,"Hehe, that's no good.? I'll make you come in a moment...?"
mov $mogaku_sel5,"Hehe, that's no good.? I'll make you come in a moment...?"
mov $mogaku_dassyutu1,"Ahaha, you're unexpectedly persistent."
mov $mogaku_dassyutu2,"That's fine, I'll just get to have some more fun then.?"
mov $half_s1,"It looks like you're nearing your limit..."
mov $half_s2,"But you know, I'd get some more enjoyment if you resisted a little longer.?"
mov $kiki_s1,"Arara? Almost done?"
mov $kiki_s2,"It looks like I'll get lap up some of your milk soon.?"
mov %tukiy,0
mov %owaza_count1a,0
mov %sinkou,1
mov %hanyo1,0
mov %hanyo2,0
mov %hanyo3,0
return



*nekomata2_kaizou_main

gosub *cmd_main
if %cmd1=11 && %kousoku=1 && %sinkou<3 && %hanyo1=0 goto *nekomata2_kaizou003
if %cmd1=11 && %kousoku=1 && %sinkou<3 && %hanyo1=1 goto *nekomata2_kaizou004
if %cmd1=11 && %kousoku=1 && %sinkou=3 goto *common_mogaku
if %cmd1=11 && %kousoku=2 goto *common_mogaku
if %cmd1=11 && %sinkou=1 goto *nekomata2_kaizou001
if %cmd1=11 && %sinkou=2 goto *nekomata2_kaizou002
if %cmd1=11 && %sinkou=3 goto *common_attack
if %cmd1=12 && %genmogaku>0 goto *common_mogaku
if %cmd1=12 && %genmogaku=0 goto *common_mogaku2
if %cmd1=13 goto *common_bougyo
if %cmd1=14 && %kousoku=1 && %sinkou<3 && %hanyo1=0 goto *nekomata2_kaizou005
if %cmd1=14 goto *common_nasugamama
if %cmd1=15 goto *nekomata2_kaizou_kousan
if %cmd1=16 goto *nekomata2_kaizou_onedari
if %cmd1=17 && %sinkou<3 goto *nekomata2_kaizou_skill
if %cmd1=17 && %sinkou=3 goto *common_skill
goto *nekomata2_kaizou_main



*nekomata2_kaizou001

name "Luka"
>Take this!\
name ""
>Luka attacks!@
gosub *mp_kaihuku:gosub *mp
dwave 1,"se\dassyutu.ogg"
csp 700:print 10,300
>But the Nekomata suddenly vanishes!\
name "Luka"
>Ehh!? Where did she go!?\
name ""
>Luka desperately searches around.@
>But the Nekomata is nowhere to be seen!\
name $name
>Hehe, where are you looking?@
>I'm right here~\
name ""
skillname "Cat Lick"
lsp 700,":a;chara\nekomata2_st04.bmp",0,0:print 10,500
dwave 2,"se\ero_pyu2.ogg"
>The Nekomata licks Luka's ear with her rough tongue!\
if %nanido=1 damage %mylv/3,%mylv/2
if %nanido=2 damage %mylv/3,%mylv/2
if %nanido=3 damage %mylv/2,%mylv
skillname ""
name "Luka"
>Uwa!?\
name ""
dwave 1,"se\dassyutu.ogg"
>I jump back in surprise as the Nekomata reappears in front of me.\
name $name
lsp 700,":a;chara\nekomata2_st01.bmp",0,0:print 10,500
>Hmmhmm... It looks like you're confident in your speed.@
>But you know... I'm also really quick, too.\
lsp 700,":a;chara\nekomata2_st04.bmp",0,0:print 10,500
>Hehehe... It looks like we would be really compatible together.\
name "Luka"
>Guh...\
name ""
>The Nekomata laughs with a happy grin on her face, while I stand here with a  grim one on mine...\
>It's true I'm confident with my agility... But she's much faster than I am.@
>The compatibility between us is the worst...\
lsp 700,":a;chara\nekomata2_st01.bmp",0,0:print 10,500
mov %sinkou,2
goto *nekomata2_kaizou_a



*nekomata2_kaizou002

name "Luka"
>Ha!\
name ""
>Luka attacks!@
gosub *mp_kaihuku:gosub *mp
dwave 1,"se\dassyutu.ogg"
csp 700:print 10,300
>But before Luka's sword is anywhere near her, the Nekomata vanishes!\
name $name
lsp 700,":a;chara\nekomata2_st04.bmp",0,0:print 10,500
>Ahaha, no matter how many times you try, it's useless~@
>Now it's time to return the feeling!\
skillname "Cat Lick"
name ""
dwave 2,"se\ero_pyu2.ogg"
>The Nekomata licks the back of Luka's neck!\
if %nanido=1 damage %mylv/3,%mylv/2
if %nanido=2 damage %mylv/3,%mylv/2
if %nanido=3 damage %mylv/2,%mylv
lsp 700,":a;chara\nekomata2_st01.bmp",0,0:print 10,500
skillname ""
name "Luka"
>Urhg... It's no good after all.\
name ""
>I can't deal with this girl's speed...@
>I have to create a chance to strike back somehow...\
goto *nekomata2_kaizou_a



*nekomata2_kaizou003

name "Luka"
>Alright, now!\
name ""
>Luka swings with all of his strength!\
dwave 1,"se\counter.ogg"
lsp2 0,":s/70,70,0;#ff0000C O U N T E R ! !",400,300,100,100,0,255
print 1
for %move=0 to 350 step 10
msp2 0,0,0,0,0,10
print 1
wait 1
next
wait 500
for %move=0 to 350 step 10
msp2 0,0,0,10,10,0
print 1
wait 1
next
csp2 0:print 10,500
dwave 2,"se\miss.ogg"
>But while holding Luka down, the Nekomata skillfully dodges his sword!\
name $name
lsp 700,":a;chara\nekomata2_st04.bmp",0,0:print 10,500
>Hehehe, too bad. I'm not so stupid as to get caught by that~\
name ""
>In the next instant, the Nekomata grabs Luka's sword arm!\
name $name
>Hehe, now you can't resist anymore.\
name ""
dwave 2,"se\miss.ogg"
>While laughing, the Nekomata flings Luka's sword somewhere into the far off   bushes.\
name $name
>Now it's time to make you come.@
>I'll make sure to drink lots of your milk~\
name ""
skillname "Cat Fellatio"
lsp 700,":a;chara\nekomata2_ha4.bmp",0,0:print 10,500
dwave 1,"se\ero_buchu3.ogg"
>While holding Luka down, the Nekomata starts to lick his penis!@
>Her rough tongue slowly circles his tip!\
damage %mylife/4,%mylife/4
skillname ""
name $name
>Hehehe, it looks like you like it.@
>I'll keep licking you like this until you come~\
name ""
skillname "Cat Fellatio"
dwave 1,"se\ero_buchu3.ogg"
>Still holding Luka down, she continues to lick Luka's penis!@
>The Nekomata's rough tongue slides up and down the back of his glans!\
damage %mylife/4,%mylife/4
skillname ""
name $name
>Hehe, the tip is twitching.@
>But there's a lot more to come...\
>Do you want it to feel good here, too?\
name ""
skillname "Cat Fellatio"
dwave 1,"se\ero_buchu3.ogg"
skillname ""
>Still holding Luka down, she continues to lick Luka's penis!@
>Her rough tongue wraps around the base of Luka's penis!\
damage %mylife/2,%mylife/2
name $name
>It looks like you're at your limit...@
>Just make sure to give me a lot of your milk, OK??\
name ""
skillname "Cat Fellatio"
dwave 1,"se\ero_buchu3.ogg"
>Still holding Luka down, she continues to lick Luka's penis!@
>The Nekomata carefully licks every part of Luka's penis with her rough        tongue!\
damage %mylife,%mylife
skillname ""
goto *nekomata2_kaizou_h4



*nekomata2_kaizou004

name "Luka"
>Alright, now!\
name ""
>Luka swings his sword with all of his strength!\
lsp 700,":a;chara\nekomata2_st02.bmp",0,0:print 10,300
gosub *mp_kaihuku:gosub *mp
dwave 1,"se\slash3.ogg"
mov %abairitu,400:gosub *enemylife
dwave 1,"se\dassyutu.ogg"
mov %kousoku,0:gosub *status_print
name $name
>Funya!?\
name ""
if %enemylife=0 mov %kousoku,0:gosub *status_print:goto *hapy_a_v
>She jumps up off of me in surprise.@
>But she's a lot slower than before!\
name $name
lsp 700,":a;chara\nekomata2_st04.bmp",0,0:print 10,500
>...Whew, that surprised me.@
>It's been decades since a human has been able to actually hit me...\
>Even worse, that funny sword of yours feels like it drained some of my        power...\
name "Luka"
>Yes, it's a good sword... Except for how it looks.\
name ""
>The now slowed down Nekomata remains in front of me.@
>I think I can hit her now!\
mov %owaza_count1a,0
mov %sinkou,3
goto *nekomata2_kaizou_main



*nekomata2_kaizou005

name $name
>Ara? Giving up?@
>I was hoping you would resist a little more, though...\
>But that's fine, I'll enjoy eating your semen~\
name ""
skillname "Cat Fellatio"
lsp 700,":a;chara\nekomata2_ha3.bmp",0,0:print 10,500
dwave 1,"se\ero_buchu3.ogg"
>The Nekomata starts to suck on Luka's penis!\
if %nanido=1 damage %mylv/3,%mylv
if %nanido=2 damage %mylv/3,%mylv+3
if %nanido=3 damage %mylv/2,%mylv+5
>She uses her rough tongue to lick up and down him!\
if %nanido=1 damage %mylv/3,%mylv
if %nanido=2 damage %mylv/3,%mylv+3
if %nanido=3 damage %mylv/2,%mylv+5
>The tip of her rough tongue rubs up and down the back of Luka's penis!\
if %nanido=1 damage %mylv/3,%mylv
if %nanido=2 damage %mylv/3,%mylv+3
if %nanido=3 damage %mylv/2,%mylv+5
if %mylife=0 return *nekomata2_kaizou_h4
skillname ""
name "Luka"
>Ahh...\
name ""
>My voice leaks out involuntarily.@
>It feels so good, I might ejaculate any moment...\
>But she's so focused on the fellatio at the moment, she might not notice my   movements!\
mov %hanyo1,1
goto *nekomata2_kaizou_main



*nekomata2_kaizou_v

lsp 700,":a;chara\nekomata2_st02.bmp",0,0:print 10,500
name $name
>No way... I... Lost...?\
dwave 1,"se\syometu.ogg"
csp 700:print 99,4500,"breakup.dll/urb"
>The Nekomata turns into a kitten!\
mov %viclose,1:gosub *victory
mov %22,0
goto *mls_cmd_battle_end



*nekomata2_kaizou_a

if %kousoku=1 gosub *nekomata2_kaizou_a5:goto *common_main
rnd2 %ransu,1,4
if %ransu=1 gosub *nekomata2_kaizou_a1:goto *common_main
if %ransu=2 gosub *nekomata2_kaizou_a2:goto *common_main
if %ransu=3 gosub *nekomata2_kaizou_a3:goto *common_main
if %ransu=4 && %sinkou>1 && %owaza_count1a>=%sinkou gosub *nekomata2_kaizou_a4:goto *common_main
skip -5



*nekomata2_kaizou_a1

rnd2 %ransu,1,3
if %ransu=%ren skip -1
mov %ren,%ransu
if %hanyo2=0 skip 4
if %ransu=1 mov $sel1,"Hehe, it isn't over yet. I'll make you orgasm with my hand~"
if %ransu=2 mov $sel1,"Ahaha, it isn't over yet. I'll make you feel really good with my hand~"
if %ransu=3 mov $sel1,"Fufu, it isn't over yet. Not until I milk you with my hand."
if %hanyo2>0 skip 4
if %ransu=1 mov $sel1,"Here... Doesn't my hand feel good? How long are you able to bear it??"
if %ransu=2 mov $sel1,"It looks like you're feeling good... Don't you want to come into my hand?"
if %ransu=3 mov $sel1,"Here, I'll milk you with my hand..."
name $name
``$sel1
>\
name ""
skillname "Cat Handjob"
dwave 1,"se\ero_koki1.ogg"
if %hanyo2>0 skip 2
>The Nekomata grabs Luka's penis with both hands, and starts to pump him up    and down!\
if %hanyo2=0 skip 2
>The Nekomata continues to pump Luka's penis with both hands!\
if %wind=1 mov %wind_kakuritu,10
gosub *wind_guard_kakuritu:if %wind_guard_on=0 skip 2
if %wind=1 mov $sel1,"But the wind pushes her away! ":goto *wind_guard
>The sweet pleasure stimulates Luka!\
if %nanido=1 damage %mylv/2,%mylv
if %nanido=2 damage %mylv/2,%mylv+4
if %nanido=3 damage %mylv+5,%mylv+10
skillname ""
if %mylife=0 return *nekomata2_kaizou_h1
if %max_mylife>%mylife*2 && %sel_hphalf=0 gosub *common_s1
if %max_mylife>%mylife*5 && %sel_kiki=0 gosub *common_s2
add %hanyo2,1
if %hanyo3>0 skip 3
if %sinkou<3 && %hanyo2<3 return *nekomata2_kaizou_a
if %sinkou=3 && %hanyo2<2 return *nekomata2_kaizou_a
mov %hanyo2,0
return



*nekomata2_kaizou_a2

rnd2 %ransu,1,3
if %ransu=%ren skip -1
mov %ren,%ransu
if %hanyo2=0 skip 4
if %ransu=1 mov $sel1,"Hehe, there's even more. I'll make you come into my mouth~"
if %ransu=2 mov $sel1,"I'll like you a lot... *Lick*"
if %ransu=3 mov $sel1,"Fufufu... It isn't over yet. Not until I'm able to drink up your milk~"
if %hanyo2>0 skip 4
if %ransu=1 mov $sel1,"Mmmm... *Suck* I'll suck out all your milk like this..."
if %ransu=2 mov $sel1,"My tongue is nice and rough, isn't it?"
if %ransu=3 mov $sel1,"It looks like you're feeling good... Hurry up and let me get a taste of your milk~"
name $name
``$sel1
>\
name ""
skillname "Cat Fellatio"
dwave 1,"se\ero_buchu3.ogg"
if %hanyo2>0 skip 2
>The Nekomata sucks Luka's penis into her mouth, and starts to lick it all     over with her tongue!\
if %hanyo2=0 skip 2
>The Nekomata continues to lick Luka's penis in her mouth!\
if %wind=1 mov %wind_kakuritu,10
gosub *wind_guard_kakuritu:if %wind_guard_on=0 skip 2
if %wind=1 mov $sel1,"But the wind blows her away! ":goto *wind_guard
>Her rough tongue stimulates Luka!\
if %nanido=1 damage %mylv/2,%mylv
if %nanido=2 damage %mylv/2,%mylv+3
if %nanido=3 damage %mylv+5,%mylv+10
skillname ""
if %mylife=0 return *nekomata2_kaizou_h2
if %max_mylife>%mylife*2 && %sel_hphalf=0 gosub *common_s1
if %max_mylife>%mylife*5 && %sel_kiki=0 gosub *common_s2
add %hanyo2,1
if %hanyo3>0 skip 3
if %sinkou<3 && %hanyo2<3 return *nekomata2_kaizou_a
if %sinkou=3 && %hanyo2<2 return *nekomata2_kaizou_a
mov %hanyo2,0
return



*nekomata2_kaizou_a3

rnd2 %ransu,1,3
if %ransu=%ren skip -1
mov %ren,%ransu
if %hanyo2=0 skip 4
if %ransu=1 mov $sel1,"Hehe, I'm not done yet. I'll make your whole body sticky with my saliva~"
if %ransu=2 mov $sel1,"Ahaha, are you getting excited? I'll make it feel even better~"
if %ransu=3 mov $sel1,"Fufu, it's not over yet. Not until I lick every inch of your body~"
if %hanyo2>0 skip 4
if %ransu=1 mov $sel1,"Where's your weak point? I'll lick everywhere until I find it~"
if %ransu=2 mov $sel1,"Doesn't my tongue feel good...? It's fine if you want to struggle more..."
if %ransu=3 mov $sel1,"This feels good too, doesn't it?"
name $name
``$sel1
>\
name ""
skillname "Cat Lick"
dwave 1,"se\ero_buchu3.ogg"
if %hanyo2>0 skip 2
>The Nekomata licks Luka's ear and neck!\
if %hanyo2=0 skip 2
>The Nekomata continues to lick Luka all over his body!\
if %wind=1 mov %wind_kakuritu,10
gosub *wind_guard_kakuritu:if %wind_guard_on=0 skip 2
if %wind=1 mov $sel1,"But the wind blows her away! ":goto *wind_guard
>Stimulated by her rough tongue, the sweet pleasure causes Luka to shiver!\
if %nanido=1 damage %mylv/3,%mylv/2
if %nanido=2 damage %mylv/3,%mylv/2+3
if %nanido=3 damage %mylv,%mylv+3
skillname ""
if %mylife=0 return *nekomata2_kaizou_h2
if %max_mylife>%mylife*2 && %sel_hphalf=0 gosub *common_s1
if %max_mylife>%mylife*5 && %sel_kiki=0 gosub *common_s2
add %hanyo2,1
if %hanyo3>0 skip 3
if %sinkou<3 && %hanyo2<3 return *nekomata2_kaizou_a
if %sinkou=3 && %hanyo2<2 return *nekomata2_kaizou_a
mov %hanyo2,0
return



*nekomata2_kaizou_a4

mov %owaza_count1a,0
mov %hanyo2,0
mov %genmogaku,%mogaku
name $name
>It's about time to attack you seriously...\
name ""
skillname "Push Down"
if %hanyo2>0 skip 2
>The Nekomata aggressively forces Luka to the ground!\
if %hanyo2=0 skip 2
>The Nekomata continues to forcibly push Luka into the ground!\
mov %kousoku,1:gosub *status_print
>Luka is being held down by the Nekomata!\
skillname ""
if %first_sel1=1 return
name $name
>While I hold you down, I'm going to lick your penis.@
>My tongue is really rough, so it will feel amazing...\
>So in return, make sure you give me a lot of milk to drink~\
name ""
name "Luka"
>Urhg...
name ""
>This isn't good...@
>But if she's this close to me, maybe I can hit her...?\
>Even though she's staring right at me... Could this be my chance!?\
mov %first_sel1,1
return



*nekomata2_kaizou_a5

>Luka is being forcibly held down by the Nekomata...\
rnd2 %ransu,1,3
if %ransu=%ren skip -1
mov %ren,%ransu
if %hanyo2=0 skip 4
if %ransu=1 mov $sel1,"I'll lick you more... So come in my mouth~"
if %ransu=2 mov $sel1,"I'll lick you a lot... *Lick* *Lick*"
if %ransu=3 mov $sel1,"I'll make it feel even better, so I can get to taste your milk faster...?"
if %hanyo2>0 skip 4
if %ransu=1 mov $sel1,"Hehehe, are you frustrated at being dominated? Or does it feel too good to care??"
if %ransu=2 mov $sel1,"I'll lick every inch of your penis..."
if %ransu=3 mov $sel1,"This tastes so good... But I want to hurry and taste your milk now~"
name $name
``$sel1
>\
name ""
skillname "Cat Fellatio"
lsp 700,":a;chara\nekomata2_ha4.bmp",0,0:print 10,500
dwave 1,"se\ero_buchu3.ogg"
if %hanyo2>0 skip 2
>While holding Luka down, the Nekomata licks Luka's penis!\
if %hanyo2=0 skip 2
>While holding Luka down, the Nekomata continues to lick Luka's penis!\
if %wind=1 mov %wind_kakuritu,10
gosub *wind_guard_kakuritu:if %wind_guard_on=0 skip 2
if %wind=1 mov $sel1,"But the wind blows her away! ":goto *wind_guard
>Her rough tongue stimulates Luka!\
if %nanido=1 damage %mylv,%mylv+2
if %nanido=2 damage %mylv,%mylv+3
if %nanido=3 damage %mylv,%mylv+8
skillname ""
if %mylife=0 return *nekomata2_kaizou_h4
if %max_mylife>%mylife*2 && %sel_hphalf=0 gosub *common_s1
if %max_mylife>%mylife*5 && %sel_kiki=0 gosub *common_s2
add %hanyo2,1
if %hanyo3>0 skip 3
if %sinkou<3 && %hanyo2<3 return *nekomata2_kaizou_a
if %sinkou=3 && %hanyo2<2 return *nekomata2_kaizou_a
mov %hanyo2,0
return



*nekomata2_kaizou_kousan

if %surrender<1 gosub *kousan_syori
>Luka gives in to the temptation, and ends his resistance!\
gosub *face2
name $name
>Arya... You gave up?@
>Alright, then I'll be sure to rape you plenty~\
mov %first_sel1,1
goto *nekomata2_kaizou_a



*nekomata2_kaizou_skill

gosub *cmd_skill
if %cmd1=21 goto *nekomata2_kaizou_skill1
if %cmd1=22 goto *nekomata2_kaizou_skill2
if %cmd1=23 goto *nekomata2_kaizou_skill2
if %cmd1=24 goto *skill4
if %cmd1=25 goto *nekomata2_kaizou_skill1
if %cmd1=31 goto *skill7
if %cmd1=-1 goto *nekomata2_kaizou_main
goto *nekomata2_kaizou_skill



*nekomata2_kaizou_skill1

if %cmd1=21 mov %skill_sub,1:gosub *skill1
if %cmd1=25 mov %skill_sub,1:gosub *skill5
dwave 1,"se\miss.ogg"
gosub *kaihi
>But the Nekomata deftly dodges!\
skillname ""
name $name
lsp 700,":a;chara\nekomata2_st04.bmp",0,0:print 10,500
>Ahaha, too bad.@
>That attack will never hit!?\
name "Luka"
>Guh... You can even avoid that!?\
lsp 700,":a;chara\nekomata2_st01.bmp",0,0:print 10,500
name ""
goto *nekomata2_kaizou_a



*nekomata2_kaizou_skill2

if %cmd1=22 mov %skill_sub,1:gosub *skill6
if %cmd1=23 mov %skill_sub,1:gosub *skill3
dwave 1,"se\miss.ogg"
gosub *kaihi
>But the Nekomata deftly dodges!\
skillname ""
name $name
lsp 700,":a;chara\nekomata2_st04.bmp",0,0:print 10,500
>Hehehe... That was a little dangerous.@
>If you practiced that skill a little bit more, that would have hit me~\
name "Luka"
>Guh... Even that one is no good!?\
name ""
lsp 700,":a;chara\nekomata2_st01.bmp",0,0:print 10,500
goto *nekomata2_kaizou_a



*nekomata2_kaizou_onedari

mov $list1,"Cat Handjob"
mov %list_num1,1
mov $list2,"Cat Fellatio"
mov %list_num2,1
mov $list3,"Cat Lick"
mov %list_num3,1
mov $list4,"Push Down"
mov %list_num4,1
gosub *cmd_onedari
if %cmd1=11 goto *nekomata2_kaizou_onedari1
if %cmd1=12 goto *nekomata2_kaizou_onedari2
if %cmd1=13 goto *nekomata2_kaizou_onedari3
if %cmd1=14 goto *nekomata2_kaizou_onedari4
if %cmd1=-1 goto *nekomata2_kaizou_main
goto *nekomata2_kaizou_onedari



*nekomata2_kaizou_onedari1

gosub *onedari_syori
name $name
>You want to come in my hands?@
>Then I'll make sure to rub you a lot...\
name ""
mov %hanyo3,1
gosub *nekomata2_kaizou_a1
skip -1



*nekomata2_kaizou_onedari2

gosub *onedari_syori
name $name
>You want to come in my mouth?@
>Then I'll make sure you shoot all your milk into my mouth...\
name ""
mov %hanyo3,1
gosub *nekomata2_kaizou_a2
skip -1



*nekomata2_kaizou_onedari3

gosub *onedari_syori_k
name $name
>You want me to lick you with my tongue?@
>Then I'll let you feel my rough tongue all over...\
name ""
mov %hanyo3,1
gosub *nekomata2_kaizou_a3
skip -1



*nekomata2_kaizou_onedari4

gosub *onedari_syori_k
name $name
>You want to come while I hold you down?@
>Hehehe... Then I'll suck you dry while you're helpless.\
name ""
mov %hanyo3,1
mov %first_sel1,1
if %kousoku=0 gosub *nekomata2_kaizou_a4
gosub *nekomata2_kaizou_a5
skip -1



*nekomata2_kaizou_h1

lsp 700,":a;chara\nekomata2_st01.bmp",0,0:print 10,300
mov %ikigoe,1:gosub *ikigoe
gosub *syasei1
gosub *syasei2
>Unable to hold on any longer, Luka ejaculates, covering the Nekomata's hands  in semen.\
mov %viclose,1:gosub *lose
name $name
>Hehehe... You came a lot, didn't you? @ >My hands are all covered...\
name ""
>The Nekomata smiles as she plays with the semen covering her hand.\
name $name
>Time for a taste...@
dwave 1,"se\ero_buchu3.ogg"
>Mmm... *Lick*\
name ""
>The Nekomata sticks out her tongue, and slowly licks up the semen in her      hand.\
>After licking up the last drop, a grin spreads across her face.\
name $name
gosub *face2
>Delicious!@
>Your milk... I love it!\
>I want to drink a lot more...?\
mov %22,1
goto *mls_cmd_battle_end



*nekomata2_kaizou_h2

lsp 700,":a;chara\nekomata2_st01.bmp",0,0:print 10,300
mov %ikigoe,1:gosub *ikigoe
gosub *syasei1
gosub *syasei2
>Unable to hold on any longer, Luka ejaculates, filling the Nekomata's mouth   with semen.\
mov %viclose,1:gosub *lose
name $name
>Nnn... You let out a lot. @ >And it has such a thick flavor...\
name ""
>After the Nekomata swallows the semen in her mouth, a grin slowly spreads     across her face.\
name $name
gosub *face2
>Delicious!@
>Your milk... I love it!\
>I want to drink a lot more...?\
mov %22,1
goto *mls_cmd_battle_end



*nekomata2_kaizou_h3

lsp 700,":a;chara\nekomata2_st01.bmp",0,0:print 10,300
mov %ikigoe,3:gosub *ikigoe
gosub *syasei1
gosub *syasei2
>While being licked, Luka finally succumbs to the stimulation, covering the    Nekomata's lower stomach in semen.\
mov %viclose,1:gosub *lose
name $name
>Hehe... Coming just from being licked? Did my rough tongue feel that good?\
name ""
>The Nekomata uses her finger to scoop up the semen covering her stomach.@
>Bringing her finger up to her mouth, she sticks out her tongue.\
name $name
dwave 1,"se\ero_buchu3.ogg"
>Mmm... *Lick*\
name ""
>She slowly licks the semen off her finger, as a grin spreads across her       face.\
gosub *face2
>Delicious!@
>Your milk... I love it!\
>I want to drink a lot more...?\
mov %22,1
goto *mls_cmd_battle_end



*nekomata2_kaizou_h4

mov %ikigoe,1:gosub *ikigoe
gosub *syasei1
lsp 700,":a;chara\nekomata2_ha4.bmp",0,0
gosub *syasei2
>Unable to endure her mouth technique any longer, Luka finally ejaculates,     filling the Nekomata's mouth with semen.\
mov %viclose,1:gosub *lose
name $name
lsp 700,":a;chara\nekomata2_ha5.bmp",0,0:print 10,500
>Nnn... You came a lot... @ >And it's such a thick flavor, too.\
name ""
>After the Nekomata swallows the semen in her mouth, a grin slowly spreads     across her face.\
name $name
gosub *face2
>Delicious!@
>Your milk... I love it!\
>I want to drink a lot more...?\
mov %22,1
goto *mls_cmd_battle_end

;====================================================================???:?? 2011/9/7 ?END?

*doppel_pre
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
bgm"bgm\field3.ogg"
cspl 601,606
bg "BG\bg135.bmp",10,3000
gosub *setwindow_01

name ""
>I grumble to myself as I search the surrounding forest, looking for something to replace the food Alice wolfed down.\
>I know she's larger and takes a lot more food... @ >But I wish she would stop    pretending like it was just "mysteriously vanishing" whenever I turn my       back...\
>Oh well, cooking with random stuff I can forage can be interesting, too.\
>As I stick my head into a bush, looking for some usable shoots...\
name "Alice's Voice"
>Hey! @ >What are you doing? Get over here!\
name ""
>I jerk in surprise, startled by Alice's sudden yell coming ahead of me.\
name "Luka"
>Owowowow!!!\
name ""
>The brambles poke hard into my skin as I gingerly try to pull myself out of   the bush.\
name "Luka"
>I'm looking for food, Alice! @ >What's wrong? Did something happen!?\
name ""
>I wonder what's wrong...?@
>Wait a second... Why did her voice come from deeper in the forest?\
>I could have sworn I kept my back to the campsite while I was foraging, just  to make sure I didn't get lost...\
>Did she go wandering off and get herself lost, or something?\
name "Alice's Voice"
>Hurry up, you moron! @ >I need some help over here!\
name ""
>Help? @ >What could she possibly need help with?\
name "Luka"
>Alright, alright... I'm coming!\
>...Moron...? @ >...I wonder if that's better or worse than idiot...?\
name ""
>I continue griping to myself as I head toward her voice.\
dwave 1,"se\asioto2.ogg"
sean_change "bg030"
name "Luka"
>Hey, where are you!?\
name ""
>I thought this is where her voice was coming from... But I don't see any sign of her.\
name "Alice's Voice"
>Over here! @ >Hurry up, you moron! @ >What's taking so long!?\
name ""
>What? She's further inside?@
>Just how far did she wander...?\
>Not only that, but she sounds just as far away as before...\
name "Luka"
>Quit moving! @ >I won't be able to catch up with you if you keep moving around   like that!\
>Didn't Tamamo ever teach you to stand still when you're lost!?\
name "Alice's Voice"
>I'm not lost! @ >Just hurry up, you moron!\
name ""
>I run toward her voice as fast as I can, determined not to let her continue   wandering around like a little kid.\
dwave 1,"se\asioto2.ogg"
sean_change "bg093"
lsp 700,":a;chara\alice_st02b.bmp",67,0:print 10,500
>After running as fast as I could for a couple minutes, I finally find her.\
name "Luka"
>What the heck are you doing here, Alice?@
>Why did you move so far away from the campsite?\
>I don't even know how we're going to find our way back now... @ >We must be a    few miles away by now.\
name ""
>I complain to Alice, all while she just silently smirks back at me.@
>What kind of stupid game is she playing now?\
name "Luka"
>What's so funny? @ >You do realize this stupid stunt of yours means no dinner,   right?\
name "Alice"
>Hahaha! @ >All I did was get a small glimpse of her, and hear a couple words...@
>I didn't think this superficial mimicry would be enough to distract you for   almost a half hour...\
>But thanks to that, I've been able to analyze you for a long time...@
>It has been a long time since I've been able to perform a complete            transformation...\
>Now... @ >Transform!\

dwave 1,"se\syometu.ogg"
csp 700:print 99,4500,"breakup.dll/urb"

goto *doppel_start



;-----Doppel-----



*doppel_start

mov $name,"Doppelganger"
mov $name2,"Doppelganger"
mov $lavel,"doppel"
mov $haikei,"bg093"
mov %monster_x,0
mov %monster_y,0
if %nanido=1 mov %max_enemylife,1600
if %nanido=2 mov %max_enemylife,1600
if %nanido=3 mov %max_enemylife,1600
if %nanido=1 mov %henkahp1,800
if %nanido=2 mov %henkahp1,800
if %nanido=3 mov %henkahp1,800
mov %damage_keigen,100
mov %kaihi,100
mov %earth_keigen,0
mov %music,0
gosub *maxmp:mov %mp,%max_mp
mov %end_n,9
mov %exp_minus,1370025
mov %zmonster_x,-270
mov %tukix,320
mov %doppel_mp,10
mov %first_sel1,0
mov %first_sel2,0
mov %first_sel3,0
mov %first_sel4,0
mov %first_sel5,0
mov %first_sel6,0
mov %first_sel7,0
mov %first_sel8,0
mov %first_sel9,0
mov %first_sel10,0
mov %first_sel11,0
mov %first_sel12,0
mov %first_sel13,0
mov %first_sel14,0
mov %first_sel15,0
name "Luka"
>Wh...What's going on!?\
>Alice, what are you doing!?\
name "???"
>Haha... @ >There's nothing I enjoy more than playing with stupid men...\
>It's a shame you humans are so much weaker than us monsters, or...\
name ""

lsp 700,"Doppel/doppelstand.png",%monster_x,%monster_y
dwave 1,"se\syometu.ogg"
print 99,4500,"breakup.dll/urb"
gosub *syutugen_doppel
name $name
>Wh...!? @ >What is this!?\
>This... This power...! @ >I've never felt anything like it...!\
>How can this be? @ >How can such a small human like you wield this intense       power?\
>I feel... Invincible... @ >I could rule over even the Heavenly Knights with      this!\
name ""
>Sh...She looks really familiar...@
>There's no way that was Alice, this must be some sort of monster...@
>But she looks so familiar... Where have I seen her before...?\
name "???"
>I must have this. @ >Such incredible power is wasted on a moron like you...\
>I've lived my life until now imitating humans to feed on them...\
>But no more.@
>I'll be taking that body of yours, permanently...\
>Ah... I can't believe how lucky I am... @ >Not only was I able to find someone   without any party members, but to think he was so incredibly strong...\
name "Luka"
>A... A Doppelganger!?\
name ""
>No way, this isn't good... @ >I thought they were just myths...\
>A monster that can completely imitate their opponent's power and skills. @ >     Since you would be facing a mirror image of yourself, the only way to         guarantee victory is to outnumber them...\
>But right now I'm alone, and in her territory. @ >If she copies all of my        skills, that would give her the advantage due to where we're fighting...\
>That's why she looks so familiar... It's a female version of me!\
name "Luka"
>But wait... You're just copying me. @ >How could you "take my body"?@
>You don't even look exactly like me... You're a girl.\
name $name
>Hehe. @ >Don't you worry about that...\
>But hey... You're an experienced fighter, you should know what kind of        situation you're in.@
>If you fought seriously with me, there are only two outcomes.\
>The first is, of course, that we kill each other at the same time...\
>The second would be my victory, due to us fighting on my home ground.\
>You have no chance of victory. @ >So... Why don't you have some fun instead?\
>I already know every single weak point of yours... Every caress and stroke    that could leave you gasping in ecstasy.\
name ""
>The Doppelganger seductively licks her lips and rubs her exposed breasts as   she tries to tempt me.\
name "Luka"
>That kind of stuff doesn't work on me!@
>Besides, a mere copy would never defeat the original!\
name $name
>Haha, big words coming from a human whose every skill is already a copy of a  skill of another legendary figure.\
>Just as you learned your powers with the help of your companions, I learned   your powers all from copying you...\
>Even if it's a copy, my skills are exactly as powerful as yours.\
name "Luka"
>Guh...\
name ""
>There has to be a way to win...@
>Even if she's just as powerful as I am, I'll just have to get stronger and    beat her!\

mov %sinkou,1
goto *common_main



*doppel_main

gosub *cmd_main
if %cmd1=11 && %enemylife>800 goto *doppel_attack
if %cmd1=11 && %enemylife<801 goto *doppel_medinstead
if %cmd1=13 goto *doppel_guard
if %cmd1=14 goto *doppel_guard
if %cmd1=15 goto *doppel_kousan
if %cmd1=16 goto *doppel_onedari
if %cmd1=17 goto *doppel_skill
goto *doppel_main

*doppel_medinstead

if %doppel_mp<3 goto *doppel_attack
mov %before_action,3
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Ha!"
if %ransu=2 mov $sel1,"Hya!"
if %ransu=3 mov $sel1,"Orya!"
name "Luka"
``$sel1
>\
name ""
>Luka attacks!\
if %earth=3 rnd2 %damage,50,100
if %earth=0 rnd2 %damage,75,150
dwave 1,"se\slash.ogg"
gosub *enemylifeb
gosub *mp_kaihuku:gosub *mp
if %enemylife=0 goto *doppel_v
mov %doppel_mp,%doppel_mp-3
skillname "Meditation"
>The Doppelganger quietly meditates.\

mov %damage,800
gosub *enemylife_kaihuku
skillname ""

if %first_sel14=1 goto *doppel_common_main
if %first_sel13=1 goto *doppel_common_main
name $name
>That was stupid of you.@
>When you have such an incredibly useful move like this, why would you ever    not use it once you're below half health?\
>I could see if you were using a skill to counter another skill, but to use a  normal attack instead...\
name ""
>It seems like she would be right...@
>But when you add in the SP cost, there could be times when you want to hold   off on using it.\
if %first_sel11!=1 skip 4
>That's right... She doesn't know about SP!@
>If we both started with ten and she just used three while I gained one...\
mov %first_sel13,1

goto *doppel_common_main

*doppel_attack

mov %before_action,3
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Ha!"
if %ransu=2 mov $sel1,"Hya!"
if %ransu=3 mov $sel1,"Orya!"
name "Luka"
``$sel1
wait 700
textclear
name $name
``$sel1
wait 700
textclear
name ""
>Luka attacks!
>The Doppelganger attacks!
wait 700
textclear
dwave 1,"se\counter.ogg"
if %earth=3 rnd2 %damage,50,100
if %earth=0 rnd2 %damage,75,150

damage %damage,%damage
gosub *enemylifeb
gosub *mp_kaihuku:gosub *mp

if %mylife=0 goto *doppel_h3
if %enemylife=0 goto *doppel_v
if %doppel_mp<10 mov %doppel_mp,%doppel_mp+1

if %first_sel3>0 goto *doppel_main
name "Luka"
>Owowow...\
name ""
>We attacked at the same time...?@
>Not only that, but we did the exact same amount of damage...\
name $name
>Hehe... I told you, we're even...@
>Now lets not scar that handsome body of yours...\
name ""

mov %first_sel3,1
goto *doppel_common_main

*doppel_guard

name ""
if %cmd1=14 skip 2
>Luka takes up a defensive stance!\
if %cmd1=13 skip 2
>Luka remains motionless...\

name $name
>I don't think there's a worse move than that...\
>Your style revolves almost completely around speed.\
>An opponent who stands still is a sitting duck!\
name ""
>The Doppelganger dashes forward!@
if %cmd1=14 skip 2
>While Luka stands still, guarding his body, the Doppelganger dashes around    him, wrapping Luka in her scarf!\
if %cmd1=13 skip 2
>While Luka stands motionless, the Doppelganger dashes around him, wrapping    Luka in her scarf!\
name $name
mov %kousoku,2
>Hehe. Got you.@
>I'm just as strong as you, but I have the help of my scarf...\
>There's no escape for you!\
name ""
>The Doppelganger pulls her scarf tighter around Luka, completely blocking off his movements.\
>Nimbly moving to Luka's side, she pulls the scarf away from his groin area    and pulls his penis out of his pants, exposing it to the air.\
lsp 700,"Doppel/doppelbind.png",0,0:print 10,500
name $name
>Now lets calm you down a little bit first...@
>We wouldn't want you to be struggling around too much when I take your body,  now would we?\

name ""
skillname "Copied Masturbation"
>The Doppelganger starts to gently rub Luka's penis!\
damage 100,150
if %mylife=0 goto *doppel_h1
>The Doppelganger's gloved fingers gently tickle the tip of Luka's penis!\
damage 100,150
if %mylife=0 goto *doppel_h1
>She uses her index finger and thumb to gently press down on his glans!\
damage 100,150
if %mylife=0 goto *doppel_h1
skillname ""

name $name
>Hehe, well? @ >Doesn't it feel familiar?\
>I didn't just take your combat skills... I took all of your skills.@
>Even the ones you used in private, when you thought nobody was looking...\

name ""
skillname "Copied Masturbation"
>The Doppelganger laughs to herself as her nimble fingers run over the tip of  Luka's penis!\
damage 100,150
if %mylife=0 goto *doppel_h1
>Firmly grasping his shaft, she starts to glide her hand up and down Luka's    penis!\
damage 100,150
if %mylife=0 goto *doppel_h1
>Picking up speed, she strokes him faster and faster!\
damage 100,150
if %mylife=0 goto *doppel_h1
skillname ""

name $name
>This is your favorite method, isn't it?@
>A young boy living by himself... @ >You got an awful lot of practice with this. @ >Hehe.\

name ""
skillname "Copied Masturbation"
>The Doppelganger's hands start to move even faster!\
damage 100,150
if %mylife=0 goto *doppel_h1
>Luka's pre-come starts to leak out, covering her hand.@
>Now lubricated, her strokes get even longer, forcing his tip in and out of    her fist!\
damage 100,150
if %mylife=0 goto *doppel_h1
>The Doppelganger's breasts press hard against Luka's chest as she brings her  body closer to his!\
damage 100,150
if %mylife=0 goto *doppel_h1
skillname ""

name $name
>Hehe... I can feel you twitching in my hand.@
>Look at that face of yours, too...\
>I know everything about you. @ >I could keep you on edge for the rest of your    life.\
>Just think, a lifetime of being so very close to release. @ >But never getting   it.\
>But you know, I think you could convince me to let you come.@
>That little remark about just being a "mere copy" hurt my feelings, you       know?\
>If you acknowledge that I'm better than you, I'll let you come.\
name "Luka"
>Wh...What...? @ >I'd... I'd never say that...\
>I can still... Get out of this...!\
name $name
>Hehe, do you really think that?\

name ""
skillname "Copied Masturbation"
>The Doppelganger skillfully strokes Luka's penis!\
if %mylife>1 skip 4
if %mylife=1 dwave 2,"se\damage.ogg":quakex 2,440
``$sel1
>\
if %mylife>1 damage %mylife/2,%mylife/2
>Her controlled movements bring Luka closer to the edge, but suddenly stop!\
if %mylife>1 skip 4
if %mylife=1 dwave 2,"se\damage.ogg":quakex 2,440
``$sel1
>\
if %mylife>1 damage %mylife/2,%mylife/2
>After waiting a couple seconds, she does another quick squeeze!\
if %mylife>1 skip 4
if %mylife=1 dwave 2,"se\damage.ogg":quakex 2,440
``$sel1
>\
if %mylife>1 damage %mylife/2,%mylife/2
>Luka starts to moan as he's brought right to the edge!\
if %mylife>1 skip 4
if %mylife=1 dwave 2,"se\damage.ogg":quakex 2,440
``$sel1
>\
if %mylife>1 damage %mylife/2,%mylife/2
skillname ""

name "Luka"
>S...Stop...!@
>N...No more!\
name $name
>Hehe. @ >No. @ >Not until you admit I'm superior.\
name ""

goto *doppel_beg

*doppel_beg

gosub *cmd_main
mov $sel1,"Luka takes miniscule damage!"
if %cmd1=11 goto *doppel_attackbeg
if %cmd1=12 goto *doppel_strugglebeg
if %cmd1=14 goto *doppel_waitbeg
if %cmd1=15 goto *doppel_onedaribeg1
if %cmd1=16 goto *doppel_onedaribeg
goto *doppel_beg

*doppel_attackbeg

name ""
>Luka awkwardly tries to attack!@
>But he can't do anything!\
name $name
>Now now, what do you think you're doing there?\
>That just looks silly. @ >You'll need to be punished for that...\
name ""
skillname "Copied Masturbation"
>The Doppelganger lightly rubs Luka's penis!
if %mylife>1 skip 4
if %mylife=1 dwave 2,"se\damage.ogg":quakex 2,440
``$sel1
>\
if %mylife>1 damage %mylife/2,%mylife/2
skillname ""
goto *doppel_beg

*doppel_strugglebeg

name ""
>Luka feebly tries to struggle!@
>But he can't break free!\
name $name
>Now now, what do you think you're doing there?\
>That just looks silly. @ >You'll need to be punished for that...\
name ""
skillname "Copied Masturbation"
>The Doppelganger lightly rubs Luka's penis!
if %mylife>1 skip 4
if %mylife=1 dwave 2,"se\damage.ogg":quakex 2,440
``$sel1
>\
if %mylife>1 damage %mylife/2,%mylife/2
skillname ""
goto *doppel_beg


*doppel_waitbeg

name ""
>Luka remains motionless.\
name $name
>Hehe, what are you doing?@
>Trying to wait it out?\
>That won't work... There's no way I could get bored of something this fun.\
name ""
skillname "Copied Masturbation"
>The Doppelganger lightly rubs Luka's penis!
if %mylife>1 skip 4
if %mylife=1 dwave 2,"se\damage.ogg":quakex 2,440
``$sel1
>\
if %mylife>1 damage %mylife/2,%mylife/2
skillname ""
goto *doppel_beg

*doppel_onedaribeg

mov $list1,"Release"
mov %list_num1,1
gosub *cmd_onedari
if %cmd1=11 goto *doppel_onedaribeg1
if %cmd1=-1 goto *doppel_beg
goto *doppel_onedaribeg

*doppel_onedaribeg1
name "Luka"
>P...Please... Stop... Let me come...\
name $name
>Ah ah ah, you didn't say the magic words.\

name ""
skillname "Copied Masturbation"
>The Doppelganger lightly rubs Luka's penis!
if %mylife>1 skip 4
if %mylife=1 dwave 2,"se\damage.ogg":quakex 2,440
``$sel1
>\
if %mylife>1 damage %mylife/2,%mylife/2
skillname ""

name "Luka"
>Y...You're better! @ >You're better than me, I admit it!@
>Now please, let me come...!\
name $name
>Aww, you know just the words to melt my heart.@
>So you admit that the copy is better than the original?\
name "Luka"
>Yes! @ >So... Please...!\
name $name
>Good boy... @ >Well then, here you go!\

name ""
skillname "Copied Masturbation"
>Suddenly grabbing Luka's penis tighter, the Doppelganger starts to pump him   as fast as she can!\
damage 150,250
goto *doppel_h2




*doppel_skill

gosub *cmd_skill
if %cmd1=24 && %enemylife>999 goto *doppel_nomeditate
if %cmd1=24 && %enemylife<1000 goto *doppel_meditate
if %cmd1=26 goto *doppel_skill1
if %cmd1=27 goto *doppel_skill2
if %cmd1=28 goto *doppel_skill3
if %cmd1=29 goto *doppel_giga
if %cmd1=30 goto *doppel_skill4
if %cmd1=31 goto *doppel_skill5
if %cmd1=32 goto *doppel_skill6
if %cmd1=33 goto *doppel_skill7
if %cmd1=34 goto *doppel_skill8
if %cmd1=35 goto *doppel_edge
if %cmd1=-1 goto *doppel_main
goto *doppel_skill

*doppel_insuffmp

if %cmd1=24 goto *insuff_meditate
if %cmd1=31 goto *sylph_summon
if %cmd1=32 goto *gnome_summon
if %cmd1=33 goto *undine_summon
if %cmd1=34 goto *sala_summon
if %cmd1=26 goto *light_attack
if %cmd1=27 goto *earth_attack
if %cmd1=28 goto *serene_attack
if %cmd1=30 goto *vapor_attack
if %cmd1=29 goto *giga_insuff

*vapor_attack

mov %before_action,25
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"I'll purify you in the flames of purgatory... Vaporizing Rebellion Sword!"
if %ransu=2 mov $sel1,"Lend me your power, Salamander! Vaporizing Rebellion Sword!"
name "Luka"
``$sel1
wait 700
textclear
name $name
``$sel1
wait 700
textclear
name ""
mov %mp,%mp-4
gosub *mp
skillname "Vaporizing Rebellion Sword"
dwave 1,"se\tuki.ogg"
>Luka attacks in a whirlwind of fire!\
>But the Doppelganger has insufficient SP!\
gosub *skill16a
vspl 3,650,1
csp 0:csp 1
lsp 591,":a/2,0,3;system\select_window2.jpg",150,20
print 1
dwave 1,"se\counter.ogg"
if %earth=3 rnd2 %damage,80,175
if %earth=0 rnd2 %damage,100,225
gosub *enemylifeb
dwave 1,"se\counter.ogg"
if %earth=3 rnd2 %damage,80,175
if %earth=0 rnd2 %damage,100,225
gosub *enemylifeb
textclear
dwave 1,"se\counter.ogg"
if %earth=3 rnd2 %damage,80,175
if %earth=0 rnd2 %damage,100,225
gosub *enemylifeb
dwave 1,"se\counter.ogg"
if %earth=3 rnd2 %damage,80,175
if %earth=0 rnd2 %damage,100,225
gosub *enemylifeb
dwave 1,"se\counter.ogg"
if %earth=3 rnd2 %damage,80,175
if %earth=0 rnd2 %damage,100,225
gosub *enemylifeb
if %enemylife=0 goto *doppel_v
skillname ""
if %first_sel14=1 skip 10
name $name
>Wh...What!? @ >Why didn't it work!?\
>I've never had an ability fail on me before...\
>My magic is still high, so why didn't it work?@
>Do your skills have some strange restriction on them!?\
name "Luka"
>I see...@
>You know all of my skills, but not the conditions around how to use them!\
mov %first_sel14,1
name ""
if %first_sel13=0 skip 5
if %first_sel16=1 skip 4
>I knew it! @ >She doesn't know about SP use!\
>This must be my path to victory!\
mov %first_sel16,1

goto *doppel_counter_attack


*serene_attack

mov %before_action,25
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Along the flow... Serene Demon Sword!"
if %ransu=2 mov $sel1,"Undine, lend me your power... Serene Demon Sword!"
if %ransu=3 mov $sel1,"I shall cut everything in my path... Serene Demon Sword!"
name "Luka"
``$sel1
wait 700
textclear
name $name
``$sel1
wait 700
textclear
name ""
mov %mp,%mp-2
gosub *mp
skillname "Serene Demon Sword"
dwave 3,"se\karaburi.ogg"
lsp 2,":c;effect\006a.bmp",0,0:print 1
wait 300
csp 2:print 18,500,"system\mask01.jpg"
vspl 3,650,1
>Luka sheathes his sword!\
>But the Doppelganger has insufficient SP!\
>Drawing his sword, Luka cuts through everything in his path!\
dwave 4,"se\slash4.ogg"

if %earth=3 rnd2 %damage,150,350
if %earth=0 rnd2 %damage,200,450

gosub *enemylifeb
skillname ""
if %enemylife=0 goto *doppel_v
if %first_sel14=1 skip 10
name $name
>Wh...What!? @ >Why didn't it work!?\
>I've never had an ability fail on me before...\
>My magic is still high, so why didn't it work?@
>Do your skills have some strange restriction on them!?\
name "Luka"
>I see...@
>You know all of my skills, but not the conditions around how to use them!\
mov %first_sel14,1
name ""
if %first_sel13=0 skip 5
if %first_sel16=1 skip 4
>I knew it! @ >She doesn't know about SP use!\
>This must be my path to victory!\
mov %first_sel16,1

goto *doppel_counter_attack

*earth_attack

mov %before_action,25
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Oh Earth, infuse my sword with your weight! Earth Rumbling Decapitation!"
if %ransu=2 mov $sel1,"Gnome, lend me your power! Earth Rumbling Decapitation!"
if %ransu=3 mov $sel1,"Feel the weight of the Earth itself! Earth Rumbling Decapitation!"
name "Luka"
``$sel1
wait 700
textclear
name $name
``$sel1
wait 700
textclear
name ""
mov %mp,%mp-3
gosub *mp
skillname "Earth Rumbling Decapitation"
dwave 1,"se\karaburi.ogg"
lsp 2,":c;effect\earth.bmp",0,0:print 1
wait 300
csp 2:print 18,500,"system\mask01.jpg"
dwave 1,"se\bom2.ogg"
quake 10,1000
>Luka jumps into the air!\
>But the Doppelganger has insufficient SP!\
>Luka slams down, shaking the earth itself as he lands!\
dwave 1,"se\damage2.ogg"

if %earth=3 rnd2 %damage,325,425
if %earth=0 rnd2 %damage,450,575

gosub *enemylifeb
skillname ""
if %enemylife=0 goto *doppel_v
if %first_sel14=1 skip 10
name $name
>Wh...What!? @ >Why didn't it work!?\
>I've never had an ability fail on me before...\
>My magic is still high, so why didn't it work?@
>Do your skills have some strange restriction on them!?\
name "Luka"
>I see...@
>You know all of my skills, but not the conditions around how to use them!\
mov %first_sel14,1
name ""
if %first_sel13=0 skip 5
if %first_sel16=1 skip 4
>I knew it! @ >She doesn't know about SP use!\
>This must be my path to victory!\
mov %first_sel16,1

goto *doppel_counter_attack

*light_attack

mov %before_action,25
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"With the wind guiding my sword... Lightning Sword Flash!"
if %ransu=2 mov $sel1,"With Sylph's power...! Lightning Sword Flash!"
if %turn=1 mov $sel1,"Here I come! Lightning Sword Flash!"
name "Luka"
``$sel1
wait 700
textclear
name $name
``$sel1
wait 700
textclear
name ""
mov %mp,%mp-2
gosub *mp
skillname "Lightning Sword Flash"
>Luka dashes forward!\
>But the Doppelganger has insufficient SP!\
dwave 1,"se\tuki.ogg"
lsp 1,":a;effect\wind.bmp",0,0:print 10,12
lsp 2,":a;effect\009a_01.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009a_02.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009a_03.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009a_04.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009a_05.bmp",%tukix,%tukiy:print 10,12
csp 1:print 10,12
csp 2:print 10,12
>Luka's sword flashes like a lightning bolt!\
if %earth=3 rnd2 %damage,175,300
if %earth=0 rnd2 %damage,225,400
gosub *enemylifeb
skillname ""
if %enemylife=0 goto *doppel_v
if %first_sel14=1 skip 10
name $name
>Wh...What!? @ >Why didn't it work!?\
>I've never had an ability fail on me before...\
>My magic is still high, so why didn't it work?@
>Do your skills have some strange restriction on them!?\
name "Luka"
>I see...@
>You know all of my skills, but not the conditions around how to use them!\
mov %first_sel14,1
name ""
if %first_sel13=0 skip 5
if %first_sel16=1 skip 4
>I knew it! @ >She doesn't know about SP use!\
>This must be my path to victory!\
mov %first_sel16,1

goto *doppel_counter_attack

*doppel_counter_attack

name ""
>The Doppelganger attacks!\
if %earth=0 rnd2 %damage,75,150
if %earth=3 rnd2 %damage,50,100
dwave 1,"se\slash.ogg"
damage %damage,%damage
if %mylife=0 goto *doppel_h3
mov %doppel_mp,%doppel_mp+1

goto *doppel_common_main

*sala_summon

mov %before_action,46
mov %count_fire,%count_fire+1
name "Luka"
>Salamander, purify everything with the flames of purgatory!
wait 700
textclear
name $name
>Salamander, purify everything with the flames of purgatory!
wait 700
textclear
name ""
mov %mp,%max_mp
gosub *mp
skillname "Purgatory Flame"
mov %fire,3:mov %fire_turn,5
dwave 2,"se\fire4.ogg"
lsp2 0,":a;2Q\chara\salamander_st02.png",200,300,100,100,0,200
gosub *syoukan_effect
gosub *elm_print
>Licks of flame run up and down Luka's sword, ready to ignite with his sword   skills!\
>But the Doppelganger has insufficient SP!\
skillname ""

if %first_sel14=1 skip 10
name $name
>Wh...What!? @ >Why didn't it work!?\
>I've never had an ability fail on me before...\
>My magic is still high, so why didn't it work?@
>Do your skills have some strange restriction on them!?\
name "Luka"
>I see...@
>You know all of my skills, but not the conditions around how to use them!\
mov %first_sel14,1
name ""
if %first_sel13=0 skip 5
if %first_sel16=1 skip 4
>I knew it! @ >She doesn't know about SP use!\
>This must be my path to victory!\
mov %first_sel16,1

name $name
>No! @ >If you have that spirit active when I don't, I'll lose for sure...\
>I'll just have to try to parry until I can try summoning it again!\

rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"I'll purify you in the flames of purgatory... Vaporizing Rebellion Sword!"
if %ransu=2 mov $sel1,"Lend me your power, Salamander! Vaporizing Rebellion Sword!"
if %ransu=3 mov $sel1,"Lend me your power, Salamander! Vaporizing Rebellion Sword!"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov %mp,%mp-4
gosub *mp
lsp 1,":a/2,0,3;system\select_window2.jpg",150,20
mov $skillname,"Vaporizing Rebellion Sword ":len %name_count,$skillname
lsp 0,":s/24,24,0;#FFFFFF"+$skillname,400-%name_count*6,33:print 1
vspl 3,650,0
dwave 2,"se\fire2.ogg"
lsp2 0,":c;effect\cutin_ruka_fire.bmp",600,150,100,100,0,10
lsp2 1,":c;effect\cutin_fire.bmp",200,150,100,100,0,10
gosub *skill_cutin
gosub *skill16a
vspl 3,650,1
csp 0:csp 1
lsp 591,":a/2,0,3;system\select_window2.jpg",150,20
skillname "Vaporizing Rebellion Sword "	;lsp 590,":s/24,24,0;#FFFFFFVaporizing Rebellion Sword",316,33:print 1
print 1
mov $sel6,"Burning with the flames of purgatory, "+$ori_name+" slashes in a whirlwind of fire!"
``$sel6\
>At the same time, the Doppelganger desperately attacks, trying to parry       Luka's blows!\
dwave 1,"se\counter.ogg"
if %earth=3 rnd2 %damage,100,205
if %earth=0 rnd2 %damage,125,250
>Luka crushes through her parry!\
gosub *enemylifeb
dwave 1,"se\counter.ogg"
if %earth=3 rnd2 %damage,100,205
if %earth=0 rnd2 %damage,125,250
>Luka overpowers the Doppelganger!\
gosub *enemylifeb
textclear
dwave 1,"se\counter.ogg"
if %earth=3 rnd2 %damage,100,205
if %earth=0 rnd2 %damage,125,250
>The Doppelganger staggers under Luka's relentless assault!\
gosub *enemylifeb
dwave 1,"se\counter.ogg"
if %earth=3 rnd2 %damage,100,205
if %earth=0 rnd2 %damage,125,250
>The Doppelganger is barely able to hold onto her sword!\
gosub *enemylifeb
dwave 1,"se\counter.ogg"
if %earth=3 rnd2 %damage,100,205
if %earth=0 rnd2 %damage,125,250
>The Doppelganger's legs shake under the overwhelming fury of Luka's attacks!\
gosub *enemylifeb
skillname ""
if %enemylife=0 goto *doppel_v

name $name
>Salamander, purify everything with the flames of purgatory!\
name ""
mov %doppel_mp,10
skillname "Purgatory Flame"
dwave 2,"se\fire4.ogg"
lsp2 0,":a;2Q\chara\salamander_st02.png",200,300,100,100,0,200
gosub *syoukan_effect
gosub *elm_print
>Licks of flame run up and down the Doppelganger's sword, ready to ignite with her sword skills!\
name $name
>Whew... I... I managed to survive...\
name ""

goto *doppel_common_main

*undine_summon

mov %before_action,45
mov %count_aqua,%count_aqua+1
name "Luka"
>Calm my heart and mind...
wait 700
textclear
name "Doppelganger"
>Calm my heart and mind...
wait 700
textclear
name ""
skillname "Serene Mind"
mov %mp,%mp-4
gosub *mp
mov %aqua,3:mov %aqua_turn,16
dwave 2,"se\aqua.ogg"
lsp2 0,":a;chara\undine_st11.bmp",200,300,100,100,0,200
gosub *syoukan_effect
gosub *elm_print
>Luka's heart clears, reaching the height of a serene state!\
>But the Doppelganger has insufficient SP!\
skillname ""
if %first_sel14=1 skip 10
name $name
>Wh...What!? @ >Why didn't it work!?\
>I've never had an ability fail on me before...\
>My magic is still high, so why didn't it work?@
>Do your skills have some strange restriction on them!?\
name "Luka"
>I see...@
>You know all of my skills, but not the conditions around how to use them!\
mov %first_sel14,1
name ""
if %first_sel13=0 skip 5
if %first_sel16=1 skip 4
>I knew it! @ >She doesn't know about SP use!\
>This must be my path to victory!\
mov %first_sel16,1

skillname ""
name $name
>No! @ >I know how this summon works, I won't let you get close to me!\
name ""
>The Doppelganger starts to let out a barrage of random attacks all over the   place!\
name "Luka"
>I can see it!\
name ""
>Luka slowly moves toward the Doppelganger, swaying side to side and dodging   her blows!\

>The Doppelganger attacks!\
mov %doppel_mp,%doppel_mp+1
gosub *aqua_guard
>Luka counters!\
name "Luka"
>Too easy!\
name ""
gosub *mp_kaihuku:gosub *mp
>Luka's sword flashes toward the Doppelganger!\
if %earth=0 rnd2 %damage,95,170
if %earth=3 rnd2 %damage,70,120
dwave 1,"se\slash4.ogg"
gosub *enemylifeb
if %enemylife=0 goto *doppel_v
name ""

if %doppel_mp=4 goto *doppel_undinesummon2
>The Doppelganger attacks!\
mov %doppel_mp,%doppel_mp+1
gosub *aqua_guard
>Luka counters!\
name "Luka"
>Not fast enough!\
name ""
>Luka's sword flashes toward the Doppelganger!\
gosub *mp_kaihuku:gosub *mp
if %earth=0 rnd2 %damage,95,170
if %earth=3 rnd2 %damage,70,120
dwave 1,"se\slash4.ogg"
gosub *enemylifeb
if %enemylife=0 goto *doppel_v
name ""

if %doppel_mp=4 goto *doppel_undinesummon2
>The Doppelganger attacks!\
mov %doppel_mp,%doppel_mp+1
gosub *aqua_guard
>Luka counters!\
name "Luka"
>You can't beat the original!\
name ""
>Luka's sword flashes toward the Doppelganger!\
if %earth=0 rnd2 %damage,95,170
if %earth=3 rnd2 %damage,70,120
gosub *mp_kaihuku:gosub *mp
dwave 1,"se\slash4.ogg"
gosub *enemylifeb
if %enemylife=0 goto *doppel_v
name ""

if %doppel_mp=4 goto *doppel_undinesummon2
>The Doppelganger attacks!\
mov %doppel_mp,%doppel_mp+1
gosub *aqua_guard
>Luka counters!\
name "Luka"
>Now fall!\
mov %before_action,25
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Along the flow... Serene Demon Sword!"
if %ransu=2 mov $sel1,"Undine, lend me your power... Serene Demon Sword!"
if %ransu=3 mov $sel1,"I shall cut everything in my path... Serene Demon Sword!"
name "Luka"
``$sel1
wait 900
textclear
name ""
mov %mp,%mp-2
mov %doppel_mp,%doppel_mp-2
gosub *mp
lsp 1,":a/2,0,3;system\select_window2.jpg",150,20
mov $skillname,"Serene Demon Sword ":len %name_count,$skillname
lsp 0,":s/24,24,0;#FFFFFF"+$skillname,400-%name_count*6,33:print 1
vspl 3,650,0
dwave 2,"se\aqua2.ogg"
if %aqua=0 | %player=99 skip 4
lsp2 0,":c;effect\cutin_ruka_aqua.bmp",600,150,100,100,0,10
lsp2 1,":c;effect\cutin_aqua.bmp",200,150,100,100,0,10
gosub *skill_cutin
dwave 3,"se\karaburi.ogg"
lsp 2,":c;effect\006a.bmp",0,0:print 1
wait 300
csp 2:print 18,500,"system\mask01.jpg"
vspl 3,650,1
csp 0:csp 1
lsp 591,":a/2,0,3;system\select_window2.jpg",150,20
skillname "Serene Demon Sword " ;lsp 590,":s/24,24,0;#FFFFFFSerene Demon Sword",316,33:print 1
print 1
>Luka sheathes his sword, and rests his hand on the hilt!
>Drawing it in a fluid slash, he slices straight through everything in his     path!\
dwave 4,"se\slash4.ogg"

if %earth=3 rnd2 %damage,175,375
if %earth=0 rnd2 %damage,225,475
gosub *enemylifeb
skillname ""
if %enemylife=0 goto *doppel_v
name "Doppelganger"
>Calm my heart and mind...\
name ""
skillname "Serene Mind"
mov %doppel_mp,%doppel_mp-4
dwave 2,"se\aqua.ogg"
lsp2 0,":a;chara\undine_st11.bmp",200,300,100,100,0,200
gosub *syoukan_effect
gosub *elm_print
>The Doppelganger's heart clears, reaching the height of a serene state!\
skillname ""
name $name
>Damn, that hurt...@
>I won't lose though...!\
name ""

goto *doppel_common_main


*doppel_undinesummon2

name "Doppelganger"
>Calm my heart and mind...\
name ""
skillname "Serene Mind"
mov %doppel_mp,%doppel_mp-4
dwave 2,"se\aqua.ogg"
lsp2 0,":a;chara\undine_st11.bmp",200,300,100,100,0,200
gosub *syoukan_effect
gosub *elm_print
>The Doppelganger's heart clears, reaching the height of a serene state!\
skillname ""
name $name
>Whew, that was close...\
name ""

goto *doppel_common_main


*gnome_summon

mov %before_action,44
mov %count_earth,%count_earth+1
name "Luka"
>Gnome, infuse me with the unmoving power of the earth!
wait 700
textclear
name $name
>Gnome, infuse me with the unmoving power of the earth!
wait 700
textclear
name ""
mov %mp,%mp-1
gosub *mp
skillname "Wild Lands"
mov %earth,3:mov %earth_turn,16
dwave 2,"se\earth2.ogg"
rnd2 %ransu,1,100
notif %ransu=100 lsp2 0,":a;2Q\chara\gnome_st21.png",200,300,100,100,0,200
if %ransu=100 lsp2 0,":a;2Q\chara\gnome_st12.png",200,300,100,100,0,200:mov %z_gnome,1
gosub *syoukan_effect
gosub *elm_print
>The unmoving power of the earth takes hold in Luka's body!\
>But the Doppelganger has insufficient SP!\
skillname ""
if %first_sel14=1 skip 10
name $name
>Wh...What!? @ >Why didn't it work!?\
>I've never had an ability fail on me before...\
>My magic is still high, so why didn't it work?@
>Do your skills have some strange restriction on them!?\
name "Luka"
>I see...@
>You know all of my skills, but not the conditions around how they work!\
mov %first_sel14,1
name ""
if %first_sel13=0 skip 5
if %first_sel16=1 skip 4
>I knew it! @ >She doesn't know about SP use!\
>This must be my path to victory!\
mov %first_sel16,1

>As the Doppelganger is confused, Luka gets in a free attack!\


>Luka attacks!\
name "Luka"
>Take this!\
name ""
>Filled with the power of the earth, Luka lands a critical hit!\
gosub *mp_kaihuku:gosub *mp
dwave 1,"se\slash3.ogg"
rnd2 %damage,175,300
gosub *enemylifeb
if %enemylife=0 goto *doppel_v
name $name
>Kyah! @ >Damn you!\
name ""
>The Doppelganger attacks!\
dwave 2,"se\earth3.ogg"
>But Luka takes no damage!\
name $name
>It just bounced right off...\
name "Luka"
>Now it's my turn!\
name ""
>Luka attacks!\
>Filled with the power of the earth, Luka lands a critical hit!\
gosub *mp_kaihuku:gosub *mp
dwave 1,"se\slash3.ogg"
rnd2 %damage,175,300
gosub *enemylifeb
if %enemylife=0 goto *doppel_v
name $name
>Gnome, infuse me with the unmoving power of the earth!\
name ""
mov %doppel_mp,%doppel_mp-1
skillname "Wild Lands"
dwave 2,"se\earth2.ogg"
rnd2 %ransu,1,100
notif %ransu=100 lsp2 0,":a;2Q\chara\gnome_st21.png",200,300,100,100,0,200
if %ransu=100 lsp2 0,":a;2Q\chara\gnome_st12.png",200,300,100,100,0,200:mov %z_gnome,1
gosub *syoukan_effect
gosub *elm_print
>The unmoving power of the earth takes hold in the Doppelganger's body!\
skillname ""
name $name
>Whew, it worked that time...\
name ""
goto *doppel_common_main


*giga_insuff

mov %wind,0:mov %wind_turn,0:mov %earth,0:mov %earth_turn,0:mov %aqua,0:mov %aqua_turn,0:mov %fire,0:mov %fire_turn,0
gosub *elm_print
mov %mp,%mp-1
gosub *mp
name "Luka"
>Come, Sylph!
wait 600
textclear
name $name
>Come, Sylph!
wait 600
textclear
name ""
skillname "Sylph"
dwave 2,"se\wind2.ogg"
lsp2 0,":a;chara\sylph_st12.bmp",200,300,100,100,0,200
gosub *syoukan_effect
>The power of wind takes hold in Luka's sword!\
>But the Doppelganger has insufficient SP!\
skillname ""
name $name
>What!?\
>Damn it, I can't let this skill hit me, or I'm done for!\
name "Luka"
>Come, Gnome!
wait 600
textclear
name ""
skillname "Gnome"
dwave 2,"se\earth1.ogg"
lsp2 0,":a;2Q\chara\gnome_st21.png",200,300,100,100,0,200
gosub *syoukan_effect
>The power of earth takes hold in Luka's sword!\
skillname ""
name $name
>Damn you!\
name ""
>The Doppelganger attacks!\
if %earth=0 rnd2 %damage,75,150
dwave 1,"se\slash.ogg"
damage %damage,%damage
mov %doppel_mp,%doppel_mp+1
if %mylife=0 goto *doppel_h3
name $name
>Whew, that was close...\
>I know how powerful that skill is!@
>I won't let you use it if I can't use it too!\
name ""
goto *doppel_common_main

*insuff_meditate

mov $sel1,"............."
name "Luka"
``$sel1
wait 600
textclear
name $name
``$sel1
wait 600
textclear
name ""
mov %mp,%mp-3
gosub *mp
skillname "Meditation"
>Luka quietly meditates.
>The Doppelganger quietly meditates.
wait 700
textclear
dwave 2,"se\kaihuku.ogg"
mov %damage,%max_mylife/2
>Luka recovers 800 HP!\
mov %mylife,%mylife+%damage
if %mylife>%max_mylife mov %mylife,%max_mylife
mov %gage,%mylife*100/%max_mylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 560,":a;system\gager"+$gagenum+".bmp",114,556
gosub *hp
print 10,500

>But the Doppelganger has insufficient SP!\
skillname ""

if %first_sel15=1 goto *doppel_common_main
if %first_sel14=1 goto *doppel_common_main
name $name
>Wh...What!? @ >Why didn't it work!?\
>I've never had an ability fail on me before...\
>My magic is still high, so why didn't it work?@
>Do your skills have some strange restriction on them!?\
name "Luka"
>I see...@
>You know all of my skills, but not the conditions around how they work!\
name ""
mov %first_sel14,1
if %first_sel13=0 skip 5
if %first_sel16=1 skip 4
>I knew it! @ >She doesn't know about SP use!\
>This must be my path to victory!\
mov %first_sel16,1
skillname ""
goto *doppel_common_main

*sylph_summon

mov %before_action,43
mov %count_wind,%count_wind+1
name "Luka"
>Sylph, rage around as you please!
wait 700
textclear
name $name
>Sylph, rage around as you please!
wait 700
textclear
name ""
mov %mp,%mp-1
gosub *mpf
skillname "Devastating Gale"
mov %wind,3:mov %wind_turn,16
dwave 2,"se\wind3.ogg"
rnd2 %ransu,1,100
notif %ransu=100 lsp2 0,":a;chara\sylph_st12.bmp",200,300,100,100,0,200
if %ransu=100 lsp2 0,":a;chara\sylph_st07.bmp",200,300,100,100,0,200:mov %g_sylph,1
gosub *syoukan_effect
gosub *elm_print
>Luka's movements become as fast and powerful as a devastating gale!\
>But the Doppelganger has insufficient SP!\
skillname ""
if %first_sel14=1 skip 10
name $name
>Wh...What!? @ >Why didn't it work!?\
>I've never had an ability fail on me before...\
>My magic is still high, so why didn't it work?@
>Do your skills have some strange restriction on them!?\
name "Luka"
>I see...@
>You know all of my skills, but not the conditions around how they work!\
mov %first_sel14,1
name ""
if %first_sel13=0 skip 5
if %first_sel16=1 skip 4
>I knew it! @ >She doesn't know about SP use!\
>This must be my path to victory!\
mov %first_sel16,1

>As the Doppelganger is confused, Luka gets in a free attack!\

>Luka attacks!\
name "Luka"
>Take this!\
name ""
>Luka's sword flashes like a lightning bolt toward his opponent!\

if %earth=0 rnd2 %damage,95,170
if %earth=3 rnd2 %damage,70,120
dwave 1,"se\damage.ogg"
gosub *enemylifeb
gosub *mp_kaihuku:gosub *mp

>Just a blur, Luka attacks the Doppelganger again before she can react!\
if %earth=0 rnd2 %damage,95,170
if %earth=3 rnd2 %damage,70,120
dwave 2,"se\damage.ogg"
gosub *enemylifeb
gosub *mp_kaihuku:gosub *mp
if %enemylife=0 goto *doppel_v
name $name
>Damn you!\
name ""
>The Doppelganger attacks!\
mov %wind_kakuritu,100
gosub *wind_guard_kakuritu
if %wind=3 mov $sel1,"But Luka moves like the wind and dodges! ":gosub *wind_guard:skillname ""

mov %before_action,25
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"With the wind guiding my sword... Lightning Sword Flash!"
if %ransu=2 mov $sel1,"With Sylph's power...! Lightning Sword Flash!"
if %ransu=3 mov $sel1,"Here I come! Lightning Sword Flash!"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov %mp,%mp-2
gosub *mp
lsp 1,":a/2,0,3;system\select_window2.jpg",150,20
mov $skillname,"Lightning Sword Flash ":len %name_count,$skillname
lsp 0,":s/24,24,0;#FFFFFF"+$skillname,400-%name_count*6,33:print 1
vspl 3,650,0
dwave 2,"se\wind2.ogg"
if %wind=0 | %player=99 skip 4
lsp2 0,":c;effect\cutin_ruka_wind.bmp",600,150,100,100,0,10
lsp2 1,":c;effect\cutin_wind.bmp",200,150,100,100,0,10
gosub *skill_cutin
vspl 3,650,1
csp 0:csp 1
lsp 591,":a/2,0,3;system\select_window2.jpg",150,20
skillname "Lightning Sword Flash"
mov $sel6,"Moving like a powerful gale, "+$ori_name+" thrusts his sword forward as fast as lightning!"
``$sel6\
gosub *skill11a
if %earth=0 rnd2 %damage,225,400
if %earth=3 rnd2 %damage,175,300
csp 2:print 1
gosub *enemylifeb
skillname ""
if %enemylife=0 goto *doppel_v

name $name
>Sylph, rage around as you please!\
skillname "Devastating Gale"
dwave 2,"se\wind3.ogg"
rnd2 %ransu,1,100
notif %ransu=100 lsp2 0,":a;chara\sylph_st12.bmp",200,300,100,100,0,200
if %ransu=100 lsp2 0,":a;chara\sylph_st07.bmp",200,300,100,100,0,200:mov %g_sylph,1
gosub *syoukan_effect
gosub *elm_print
name ""
>The Doppelganger's movements become as fast and powerful as a devastating     gale!\
skillname ""
name $name
>Damn you...\
>Why couldn't I do it before...!?\
name ""
goto *doppel_common_main


*doppel_nomeditate

name "Luka"
>............\
name ""
mov %mp,%mp-3
gosub *mp
if %mylife<875 mov %first_sel12,1
skillname "Meditation"
>Luka quietly meditates.\
dwave 2,"se\kaihuku.ogg"
mov %damage,%max_mylife/2
>Luka recovers 800 HP!\
mov %mylife,%mylife+%damage
if %mylife>%max_mylife mov %mylife,%max_mylife
mov %gage,%mylife*100/%max_mylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 560,":a;system\gager"+$gagenum+".bmp",114,556
gosub *hp
print 10,500
skillname ""
if %first_sel12=1 skip 5
name $name
>Hah, why would you use that skill now?@
>What a waste of a turn...\
>It heals half of your HP, so naturally you should only use it when you're     close to half health!\
name ""
>The Doppelganger attacks!\
if %earth=3 rnd2 %damage,50,100
if %earth=0 rnd2 %damage,75,150
dwave 1,"se\slash.ogg"
damage %damage,%damage
if %mylife=0 goto *doppel_h3
if %doppel_mp<10 mov %doppel_mp,%doppel_mp+1
if %first_sel12=1 goto *doppel_common_main
name $name
>Thanks for the free hit.@
>Looks like I'm ahead already, you moron.\
name ""
>Damn, she's right... @ >I kind of wasted some SP there since I didn't get full   use out of my meditate.\
>But wait... @ >She didn't copy my actions here. @ >I don't know if this was to my   advantage or not though...\

mov %first_sel12,1
goto *doppel_common_main


*doppel_giga

if %doppel_mp<1 goto *doppel_insuffmp
mov %before_action,47
mov %kadora,1
mov %wind,0:mov %wind_turn,0:mov %earth,0:mov %earth_turn,0:mov %aqua,0:mov %aqua_turn,0:mov %fire,0:mov %fire_turn,0
gosub *elm_print
mov %mp,%mp-1
gosub *mp
mov %doppel_mp,%doppel_mp-1
name "Luka"
>Come, Sylph!
wait 600
textclear
name $name
>Come, Sylph!
wait 600
textclear
name ""
skillname "Sylph"
dwave 2,"se\wind2.ogg"
lsp2 0,":a;chara\sylph_st12.bmp",200,300,100,100,0,200
gosub *syoukan_effect
>The power of wind takes hold in Luka's sword!
>The power of wind takes hold in the Doppelganger's sword!\
skillname ""

if %first_sel15=1 skip 2
>Sh...She's doing it too!?\

mov %before_action,47
mov %kadora,2
name "Luka"
>Come, Gnome!
wait 600
textclear
name $name
>Come, Gnome!
wait 600
textclear
name ""
skillname "Gnome"
dwave 2,"se\earth1.ogg"
lsp2 0,":a;2Q\chara\gnome_st21.png",200,300,100,100,0,200
gosub *syoukan_effect
>The power of earth takes hold in Luka's sword!
>The power of earth takes hold in the Doppelganger's sword!\
skillname ""

if %first_sel15=1 skip 4
name $name
>Hehe... @ >This looks like it will be fun.@
>Who do you think is going to win?\

mov %before_action,47
mov %kadora,3
name "Luka"
>Come, Undine!
wait 600
textclear
name $name
>Come, Undine!
wait 600
textclear
name ""
skillname "Undine"
dwave 2,"se\aqua2.ogg"
lsp2 0,":a;chara\undine_st11.bmp",200,300,100,100,0,200
gosub *syoukan_effect
>The power of water takes hold in Luka's sword!
>The power of water takes hold in the Doppelganger's sword!\
skillname ""

if %first_sel15=1 skip 4
name ""
>Here it comes...@
>When it comes to handling the spirits, I won't lose!\

mov %before_action,47
mov %kadora,4
name "Luka"
>Come, Salamander!
wait 600
textclear
name $name
>Come, Salamander!
wait 600
textclear
name ""
skillname "Salamander"
dwave 2,"se\fire2.ogg"
lsp2 0,":a;2Q\chara\salamander_st02.png",200,300,100,100,0,200
gosub *syoukan_effect
>The power of fire takes hold in Luka's sword!
>The power of fire takes hold in the Doppelganger's sword!\
skillname ""


mov %before_action,28
mov %kadora,0
mov %count_kadora,1
name $ori_name
>It's over! Quadruple Giga!
wait 700
textclear
name $name
>It's over! Quadruple Giga!
wait 700
textclear
name ""
lsp 1,":a/2,0,3;system\select_window2.jpg",150,20
mov $skillname,"Quadruple Giga ":len %name_count,$skillname
lsp 0,":s/24,24,0;#FFFFFF"+$skillname,400-%name_count*6,33:print 1
vspl 3,650,0
dwave 2,"se\wind2.ogg"
lsp2 2,":c;effect\cutin_wind.bmp",100,150,100,100,0,10
for %move=0 to 200 step 20
msp2 2,0,20,0,0,0,24
print 1:wait 5
next
csp2 2
lsp 10,":c;effect\cutin_wind.bmp",0,0:print 1
dwave 3,"se\earth1.ogg"
lsp2 2,":c;effect\cutin_earth.bmp",300,150,100,100,0,10
for %move=0 to 200 step 20
msp2 2,0,20,0,0,0,24
print 1:wait 5
next
csp2 2
lsp 11,":c;effect\cutin_earth.bmp",200,0:print 1
dwave 4,"se\aqua2.ogg"
lsp2 3,":c;effect\cutin_aqua.bmp",500,150,100,100,0,10
for %move=0 to 200 step 20
msp2 3,0,20,0,0,0,24
print 1:wait 5
next
csp2 3
lsp 12,":c;effect\cutin_aqua.bmp",400,0:print 1
dwave 5,"se\fire2.ogg"
lsp2 4,":c;effect\cutin_fire.bmp",700,150,100,100,0,10
for %move=0 to 200 step 20
msp2 4,0,20,0,0,0,24
print 1:wait 5
next
csp2 4
lsp 13,":c;effect\cutin_fire.bmp",600,0:print 1
cspl 10,13:print 10,600
vspl 3,650,1
csp 0:csp 1
lsp 591,":a/2,0,3;system\select_window2.jpg",150,20
skillname "Quadruple Giga "	;lsp 590,":s/24,24,0;#FFFFFFQuadruple Giga",316,33:print 1
print 1
>The power of the four spirits amplify each other, and explode in a torrent of magical energy!\
wait 500
dwave 1,"se\karaburi.ogg"
lsp 2,":c;effect\003.bmp",0,0:print 1
wait 300
dwave 3,"se\earth1.ogg"
lsp 2,":a;effect\earth.bmp",0,0:print 1
wait 100
dwave 5,"se\fire2.ogg"
lsp 2,":a;effect\fire.bmp",0,0:print 1
wait 100
dwave 4,"se\aqua2.ogg"
lsp 2,":a;effect\aqua.bmp",0,0:print 1
wait 100
dwave 2,"se\wind2.ogg"
lsp 2,":a;effect\wind.bmp",0,0:print 1
wait 100
csp 2:print 18,500,"system\mask01.jpg"
dwave 1,"se\bom3.ogg"
quake 10,2000
>The power to smash anything collides together between Luka and the            Doppelganger!\
dwave 1,"se\damage2.ogg"
skillname ""
name "Luka"
>Ahhhgg!
wait 250
textclear
name $name
>Ahhh!
wait 250
textclear
name ""
if %first_sel15=1 skip 31
cspl 3,7
csp 700:print 10,500
bg black,1
name ""
>My body is flung back from the force of the explosion.\
>As I try to get back to my feet, my eyes are temporarily blinded from the     intense light from the explosion.\
bg "bg\bg076.bmp",10,3000
lsp 700,"Doppel\doppelstand.png",0,0:print 10,500
>After a few moments, I get my vision back.\
name "Luka"
>Wh...What!?\
name ""
>The forest I was just in is completely gone.@
>It's as if everything was instantly incinerated, and the earth itself was     churned into mere sand.\
name $name
>Wow... @ >This is nuts.\
>W...Wait! @ >My home!@
>My home is gone!\
>I've lived here for so long, and now it's gone...\
>This is your fault!\
name "Luka"
>What!? @ >You're the one who attacked me! @ >How is this my fault!?\
name $name
>Shut up! @ >Apologize by giving me your body!\
name "Luka"
>No way!\
name ""
>Did this change anything...?@
>At the very least, she isn't fighting on her home ground any longer I         guess...\
mov%first_sel15,1
goto *doppel_common_main


*doppel_meditate

if %doppel_mp<3 goto *doppel_insuffmp
mov $sel1,"............."
name "Luka"
``$sel1
wait 600
textclear
name $name
``$sel1
wait 600
textclear
name ""
mov %mp,%mp-3
mov %doppel_mp,%doppel_mp-3
gosub *mp
skillname "Meditation"
>Luka quietly meditates.
>The Doppelganger quietly meditates.
wait 700
textclear
dwave 2,"se\kaihuku.ogg"
mov %damage,%max_mylife/2
>Luka recovers 800 HP!\
mov %mylife,%mylife+%damage
if %mylife>%max_mylife mov %mylife,%max_mylife
mov %gage,%mylife*100/%max_mylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 560,":a;system\gager"+$gagenum+".bmp",114,556
gosub *hp
print 10,500

mov %damage,800
gosub *enemylife_kaihuku
skillname ""

if %first_sel6=1 goto *doppel_common_main
name "Luka"
>No way, you can heal yourself too!?\
name $name
>What are you, stupid? @ >If you can do it, I can do it too!\
>But still... @ >This skill is so convenient.@
>I can only imagine how many monsters got angry at you using such a cheap      trick as this.\
>Right before they're able to deal the finishing blow... @ >Suddenly you're at    half health again!\
>Truly a maddening experience, I'm sure... @ >Hehe. @ >How does it feel now that     it's happening to you?\
name "Luka"
>Damn...\
name ""
>It looks like I can't out recover her, either...\
mov %first_sel6,1

goto *doppel_common_main

*doppel_edge

rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Drive myself into a corner...!"
if %ransu=2 mov $sel1,"This is my way of fighting...!"
if %ransu=3 mov $sel1,"Even at the edge, I won't falter!"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
skillname "Edging"
mov $sel6,$ori_name+" focuses his mind carefully..."
``$sel6@
dwave 2,"se\down2.ogg"
mov $sel6,$ori_name+"'s vitality sharply decreases!"
``$sel6\
mov %mylife,1
mov %gage,%mylife*100/%max_mylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 560,":a;system\gager"+$gagenum+".bmp",114,556
gosub *hp
print 10,500
\
skillname ""

name ""
name $name
>Haha, seriously?\
>Just because I'm able to match your every move doesn't mean I have to match   you.\
>What an idiot....\
name ""
>After Luka injures himself, the Doppelganger dashes around him, wrapping him  in her scarf!\
name $name
mov %kousoku,2
>Hehe. @ >This must have been what you were hoping for, wasn't it?\
name ""
>The Doppelganger pulls her scarf tighter around Luka, completely blocking off his movements.\
>Nimbly moving to Luka's side, she pulls the scarf away from his groin area    and pulls his penis out of his pants, exposing it to the air.\
lsp 700,"Doppel/doppelbind.png",0,0:print 10,500
name $name
>Now let's finish you off...@
>You did most of the work already, but I'd be glad to deliver the final blow.\

name ""
skillname "Copied Masturbation"
>The Doppelganger gently strokes Luka's penis!\
damage 100,150
if %mylife=0 goto *doppel_h1





*doppel_skill1

if %doppel_mp<2 goto *doppel_insuffmp
mov %before_action,25
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"With the wind guiding my sword... Lightning Sword Flash!"
if %ransu=2 mov $sel1,"With Sylph's power...! Lightning Sword Flash!"
if %turn=1 mov $sel1,"Here I come! Lightning Sword Flash!"
name "Luka"
``$sel1
wait 700
textclear
name $name
``$sel1
wait 700
textclear
name ""
mov %mp,%mp-2
mov %doppel_mp,%doppel_mp-2
gosub *mp
skillname "Lightning Sword Flash"
>Both of them dash forward, hitting each other at the exact same time with a   lightning fast slash!\
dwave 1,"se\tuki.ogg"
lsp 1,":a;effect\wind.bmp",0,0:print 10,12
lsp 2,":a;effect\009a_01.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009a_02.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009a_03.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009a_04.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009a_05.bmp",%tukix,%tukiy:print 10,12
csp 1:print 10,12
csp 2:print 10,12
mov %damage_nobr,1

if %earth=3 rnd2 %damage,125,250
if %earth=0 rnd2 %damage,175,350

damage %damage,%damage
gosub *enemylifeb

skillname ""
if %mylife=0 goto *doppel_h3
if %enemylife=0 goto *doppel_v
if %first_sel4=1 goto *doppel_common_main
name "Luka"
>Damn...\
name ""
>I thought since she had a female form instead of my exact body, I could still have been faster...\
>But we hit each other at the exact same time.\
name $name
>Hehe, that's a fun skill...@
>I've never moved that fast before in my life.\
>I must have this power as my own...\
name ""
mov %first_sel4,1
goto *doppel_common_main



*doppel_skill2

if %doppel_mp<3 goto *doppel_insuffmp
mov %before_action,25
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Oh Earth, infuse my sword with your weight! Earth Rumbling Decapitation!"
if %ransu=2 mov $sel1,"Gnome, lend me your power! Earth Rumbling Decapitation!"
if %ransu=3 mov $sel1,"Feel the weight of the Earth itself! Earth Rumbling Decapitation!"
name "Luka"
``$sel1
wait 700
textclear
name $name
``$sel1
wait 700
textclear
name ""
mov %mp,%mp-3
mov %doppel_mp,%doppel_mp-3
gosub *mp
skillname "Earth Rumbling Decapitation"
dwave 1,"se\karaburi.ogg"
lsp 2,":c;effect\earth.bmp",0,0:print 1
wait 300
csp 2:print 18,500,"system\mask01.jpg"
dwave 1,"se\bom2.ogg"
quake 10,1000
>Luka and the Doppelganger jump into the air at the same time!
>As they come crashing to the earth, their swords lock and slam into the       ground!\
dwave 1,"se\damage2.ogg"
mov %damage_nobr,1

if %earth=3 rnd2 %damage,200,350
if %earth=0 rnd2 %damage,300,475

damage %damage,%damage
gosub *enemylifeb

skillname ""
if %mylife=0 goto *doppel_h3
if %enemylife=0 goto *doppel_v
if %first_sel1=1 goto *doppel_common_main
name "Luka"
>Ahh!\
name ""
>The shockwave from our swords slamming into the ground reverbates around my   body, causing my body to ache all over.\
>Even though neither of us hit the other, we both reel in pain from the        shockwave.\
name $name
>Wow, look at the ground...@
>I made a gigantic hole!\
>That's crazy... @ >I must have this power...!\
name ""
mov %first_sel1,1
goto *doppel_common_main



*doppel_skill3

if %doppel_mp<2 goto *doppel_insuffmp
mov %before_action,25
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Along the flow... Serene Demon Sword!"
if %ransu=2 mov $sel1,"Undine, lend me your power... Serene Demon Sword!"
if %ransu=3 mov $sel1,"I shall cut everything in my path... Serene Demon Sword!"
name "Luka"
``$sel1
wait 700
textclear
name $name
``$sel1
wait 700
textclear
name ""
mov %mp,%mp-2
mov %doppel_mp,%doppel_mp-2
gosub *mp
skillname "Serene Demon Sword"
dwave 3,"se\karaburi.ogg"
lsp 2,":c;effect\006a.bmp",0,0:print 1
wait 300
csp 2:print 18,500,"system\mask01.jpg"
vspl 3,650,1
>Luka and the Doppelganger sheathe their swords!
>Drawing them at the same time, their swords lock together in mid-air!\
dwave 4,"se\slash4.ogg"
mov %damage_nobr,1

if %earth=3 rnd2 %damage,100,300
if %earth=0 rnd2 %damage,150,400

damage %damage,%damage
gosub *enemylifeb

skillname ""
if %mylife=0 goto *doppel_h3
if %enemylife=0 goto *doppel_v
if %first_sel2=1 goto *doppel_common_main
name "Luka"
>Ouch!\
name ""
>The impact from our swords clashing at such high speeds sends pain running    through my arm.\
>The same time I jump back and take my stance, the Doppelganger does the exact same thing...\
name $name
>Hmm, how odd... @ >You wouldn't think sheathing your sword in a fight would be a good idea.\
>Whomever you copied that skill from was pretty creative.\
name "Luka"
>I didn't copy it! @ >I learned it!\
name $name
>Same thing, isn't it?\
name "Luka"
>Gah...\

name ""
mov %first_sel2,1
goto *doppel_common_main



*doppel_skill4

if %doppel_mp<4 goto *doppel_insuffmp
mov %before_action,25
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"I'll purify you in the flames of purgatory... Vaporizing Rebellion Sword!"
if %ransu=2 mov $sel1,"Lend me your power, Salamander! Vaporizing Rebellion Sword!"
name "Luka"
``$sel1
wait 700
textclear
name $name
``$sel1
wait 700
textclear
name ""
mov %mp,%mp-4
mov %doppel_mp,%doppel_mp-4
gosub *mp
skillname "Vaporizing Rebellion Sword"
dwave 1,"se\tuki.ogg"
>Luka and the Doppelganger let loose a barrage of attacks!\

gosub *skill16a
vspl 3,650,1
csp 0:csp 1
lsp 591,":a/2,0,3;system\select_window2.jpg",150,20
print 1
dwave 1,"se\counter.ogg"
if %earth=3 rnd2 %damage,60,150
if %earth=0 rnd2 %damage,80,200
mov %damage_nobr,2
damage %damage,%damage
>
gosub *enemylifeb
dwave 1,"se\counter.ogg"
if %earth=3 rnd2 %damage,60,150
if %earth=0 rnd2 %damage,80,200
mov %damage_nobr,2
damage %damage,%damage
>
gosub *enemylifeb
textclear
dwave 1,"se\counter.ogg"
if %earth=3 rnd2 %damage,60,150
if %earth=0 rnd2 %damage,80,200
mov %damage_nobr,2
damage %damage,%damage
>
gosub *enemylifeb
dwave 1,"se\counter.ogg"
if %earth=3 rnd2 %damage,60,150
if %earth=0 rnd2 %damage,80,200
mov %damage_nobr,2
damage %damage,%damage
>
gosub *enemylifeb
dwave 1,"se\counter.ogg"
if %earth=3 rnd2 %damage,60,150
if %earth=0 rnd2 %damage,80,200
mov %damage_nobr,2
damage %damage,%damage
>
gosub *enemylifeb
skillname ""

if %mylife=0 goto *doppel_h3
if %enemylife=0 goto *doppel_v
if %first_sel5=1 goto *doppel_common_main
name "Luka"
>Erhg!\
name ""
>After hitting each other with numerous blows at the same time, we both jump   back in pain.\
>She really can match everything I can do...\
>There has to be some way to win...@
>She has to do something different at some point! @ >Something I can take         advantage of...\
mov %first_sel5,1
goto *doppel_common_main
name ""



*doppel_skill5

if %doppel_mp<1 goto *doppel_insuffmp
mov %before_action,43
mov %count_wind,%count_wind+1
name "Luka"
>Sylph, rage around as you please!
wait 700
textclear
name $name
>Sylph, rage around as you please!
wait 700
textclear
name ""
mov %mp,%mp-1
gosub *mp
mov %doppel_mp,%doppel_mp-1
skillname "Devastating Gale"
mov %wind,3:mov %wind_turn,16
dwave 2,"se\wind3.ogg"
rnd2 %ransu,1,100
notif %ransu=100 lsp2 0,":a;chara\sylph_st12.bmp",200,300,100,100,0,200
if %ransu=100 lsp2 0,":a;chara\sylph_st07.bmp",200,300,100,100,0,200:mov %g_sylph,1
gosub *syoukan_effect
gosub *elm_print
>Luka's movements become as fast and powerful as a devastating gale!
>The Doppelganger's movements become as fast and powerful as a devastating     gale!\
skillname ""
if %first_sel7>0 skip 8
name "Luka"
>What!? @ >Even the spirits!?@
>But that shouldn't be possible...\
name $name
>Since they're a part of you, they're a part of me too.@
>Good thing those spirits dwell inside of you, or I might not have been able   to copy them too...\
mov %first_sel7,1
if %first_sel8=1 goto *doppel_common_main
name $name
>This speed... This is insane!@
>It looks like the world is moving in slow motion...\
>But right now it doesn't change anything...\
name ""
>She's right... @ >Even if we're both faster, we're still moving at the same      speed as each other.\
>Unfortunately, it doesn't look like Sylph will do anything for me in this     fight...\
mov %first_sel8,1
name ""
goto *doppel_common_main



*doppel_skill6

if %doppel_mp<1 goto *doppel_insuffmp
mov %before_action,44
mov %count_earth,%count_earth+1
name "Luka"
>Gnome, infuse me with the unmoving power of the earth!
wait 700
textclear
name $name
>Gnome, infuse me with the unmoving power of the earth!
wait 700
textclear
name ""
mov %mp,%mp-1
gosub *mp
mov %doppel_mp,%doppel_mp-1
skillname "Wild Lands"
mov %earth,3:mov %earth_turn,16
dwave 2,"se\earth2.ogg"
rnd2 %ransu,1,100
notif %ransu=100 lsp2 0,":a;2Q\chara\gnome_st21.png",200,300,100,100,0,200
if %ransu=100 lsp2 0,":a;2Q\chara\gnome_st12.png",200,300,100,100,0,200:mov %z_gnome,1
gosub *syoukan_effect
gosub *elm_print
>The unmoving power of the earth takes hold in Luka's body!
>The unmoving power of the earth takes hold in the Doppelganger's body!\
skillname ""
name "Luka"
if %first_sel7=1 skip 8
name "Luka"
>What!? @ >Even the spirits!?@
>But that shouldn't be possible...\
name $name
>Since they're a part of you, they're a part of me too.@
>Good thing those spirits dwell inside of you, or I might not have been able   to copy them too...\
mov %first_sel7,1
if %first_sel9=1 goto *doppel_common_main
name $name
>My body... I feel so... Durable.\
>It feels like attacks would just bounce off me like mere drops of water.\
name ""
>If she can use Gnome too, then both our defense and attack power have         increased...\
>The most I can probably hope for here is just some mutual damage              reduction...\
mov %first_sel9,1
name ""
goto *common_main



*doppel_skill7

if %doppel_mp<4 goto *doppel_insuffmp
mov %before_action,45
mov %count_aqua,%count_aqua+1
name "Luka"
>Calm my heart and mind...
wait 700
textclear
name "Doppelganger"
>Calm my heart and mind...
wait 700
textclear
name ""
skillname "Serene Mind"
mov %mp,%mp-4
gosub *mp
mov %doppel_mp,%doppel_mp-4
mov %aqua,3:mov %aqua_turn,16
dwave 2,"se\aqua.ogg"
lsp2 0,":a;chara\undine_st11.bmp",200,300,100,100,0,200
gosub *syoukan_effect
gosub *elm_print
>Luka's heart clears, reaching the height of a serene state!
>The Doppelganger's heart clears, reaching the height of a serene state!\
skillname ""

if %first_sel7=1 skip 8
name "Luka"
>What!? @ >Even the spirits!?@
>But that shouldn't be possible...\
name $name
>Since they're a part of you, they're a part of me too.@
>Good thing those spirits dwell inside of you, or I might not have been able   to copy them too...\
mov %first_sel7,1
if %first_sel10=1 goto *doppel_common_main
name $name
>Hmm... @ >So this is what it's like to be connected to the world...\
>It's strangely calm... @ >It makes me want to just... @ >Mess it all up. @ >Hehe.\
name "Luka"
>I won't let you!\
name ""
>We're both in a serene state... I can't sense any disturbances coming off of  her.\
>Since we're both in the same state of mind, I don't think Undine will do      anything here...\
mov %first_sel10,1
name ""
goto *doppel_common_main



*doppel_skill8

if %doppel_mp<4 goto *doppel_insuffmp
mov %before_action,46
mov %count_fire,%count_fire+1
name "Luka"
>Salamander, purify everything with the flames of purgatory!
wait 700
textclear
name $name
>Salamander, purify everything with the flames of purgatory!
wait 700
textclear
name ""
mov %mp,%max_mp
gosub *mp
mov %doppel_mp,10
skillname "Purgatory Flame"
mov %fire,3:mov %fire_turn,5
dwave 2,"se\fire4.ogg"
lsp2 0,":a;2Q\chara\salamander_st02.png",200,300,100,100,0,200
gosub *syoukan_effect
gosub *elm_print
>Licks of flame run up and down Luka's sword, ready to ignite with his sword   skills!
wait 700
textclear
>Licks of flame run up and down the Doppelganger's sword, ready to ignite with her sword skills!\
skillname ""
if %first_sel7=1 skip 8
name "Luka"
>What!? @ >Even the spirits!?@
>But that shouldn't be possible...\
name $name
>Since they're a part of you, they're a part of me too.@
>Good thing those spirits dwell inside of you, or I might not have been able   to copy them too...\
mov %first_sel7,1
if %first_sel11=1 goto *doppel_common_main
name $name
>Oh wow... @ >I feel invigorated all of a sudden.\
>I'm not quite sure what this SP stuff is, but all of a sudden it went to      maximum...\
name ""
>She doesn't know about SP...?@
>That's right... A monster would usually be using magic for their abilities,   not skill points...\
>Of course! @ >She knows all of my skills and abilities, but not my memories.\
>Alice was the one who taught me about SP to begin with, so the Doppelganger   wouldn't necessarily know about them.\
>Is there some way I can use that to my advantage here...?\

mov %first_sel11,1
goto *doppel_common_main


*doppel_v

skillname ""
name $name
>No...! @ >This can't be...@
>How did I lose!?\
dwave 1,"se\syometu.ogg"
csp 700:print 99,4500,"breakup.dll/urb"
name ""
>The Doppelganger was sealed into a mirror!\
mov %viclose,1

if %battle_auto=1 skipoff
wait 1000
mov %battle,0
if %aqua=2 && %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,1500:skip 2
if %aqua=2 bg "BG\"+$haikei+".bmp",10,1500
bgmonce"bgm\fanfale.ogg"
for %sub1=0 to 611 step 1
csp %sub1
next
gosub *setwindow_01
if %viclose=1 mov $sel1," was defeated!"
if %viclose=2 mov $sel1," was chased away!"
mov $sel6,$name+$sel1
``$sel6\
mov %count_ko,%count_ko+1
if %mylife=%max_mylife && %nodamage=0 mov %count_hpfull,1
if %nanido=3 mov %count_hellvic,1
if %status=7 mov %count_vickonran,1

goto *doppel_victory

*doppel_kousan

name ""
>I won't let a copy beat me!\
goto *doppel_main



*doppel_onedari

name $name
>My victory is guaranteed.@
>I won't let you even try to trick me by trying to get me to do something...\
name ""
goto *doppel_main



*doppel_h1

skillname ""
name "Luka"
>Ahh!\
name ""
gosub *syasei1
gosub *syasei2
>As the Doppelganger strokes him using his own masturbation techniques, Luka   comes, covering her gloves in semen.\
mov %viclose,2:gosub *lose
count 14,5
mov $bad1,"Luka was defeated by the Doppelganger
name $name
>Oh my. And there you go...@
>Isn't it better when someone else does it for you? @ >Hehe.\
>Now that we've determined the copy is better than the original, I think it's  time we switched places...\
goto *doppel_h

*doppel_h2

skillname ""
name "Luka"
>Ahh!\
name ""
gosub *syasei1
gosub *syasei2
>After begging for release, the Doppelganger's skilled hands instantly bring   Luka over the edge.\
mov %viclose,2:gosub *lose
count 14,5
mov $bad1,"Luka was defeated by the Doppelganger
name $name
>Hehe. @ >So now we both know that I'm the superior version of you.\
>I think it would be a favor to the world for me to take your place then,      don't you?\
>It's only fair, right? @ >The superior one should have the body...\
>It's time to switch places...\
goto *doppel_h

*doppel_h3

skillname ""
name "Luka"
if %enemylife>0 goto *doppel_h4
if %first_sel15=1 goto *doppel_h5
mov %damage,1
gosub *doppel_recover
>Gah!\
name ""
>A...A double knockout...?@
>No!\
name $name
>Whew, that was close...@
>If it wasn't for this loose patch of dirt over here that let me move back     just a hair, we would have beaten each other.\
>It's too bad for you, but I've lived here for a while...@
>Hehe. @ >I told you that this being my home ground would tip the scales in my    favor.\
name "Luka"
>N...No way...\
name ""
>Brought to my knees after the intense fight, I can't even summon the strength left to stand.\
>But she's breathing hard, too...\
>If I could just tap her one more time, she would be too weak to fight too!\
>Come on legs, hold out just a little longer...!\
name $name
>Oho, look at you trying to stand up.\
>You're right, I shouldn't risk toying around with you yet...@
>You little Hero types always seem to summon some sort of deus ex machina in   these kinds of situations, don't you?\
name ""
>The Doppelganger quietly meditates.\
mov %damage,800
gosub *enemylife_kaihuku
name $name
>Ah, that's much better.@
>But you can never be too careful, you know?\
name ""
>The Doppelganger quietly meditates.\
gosub *enemylife_kaihuku
name "Luka"
>N...No...\
name ""
>Stunned at her sudden complete heal, I sink back onto the ground in defeat.\
mov %viclose,2:gosub *lose
count 14,5
mov $bad1,"Luka was defeated by the Doppelganger
name $name
>There we go, full power. @ >Hehe.\
>So much for "the original", huh? @ >It looks like this power is far more suited  to me, don't you agree?\
>So let's switch places... I don't want to lose this incredible power after    only an hour, after all.\
goto *doppel_h

*doppel_h4
name "Luka"
>Gah...\
name ""
>Too injured to stand any longer, I fall to my knees in front of her.\
name $name
>Hehe... @ >Looks like I'm the superior version.@
>Naturally, that means this power should belong to me...\
>You aren't qualified to wield it.\
name ""
mov %viclose,2:gosub *lose
count 14,5
mov $bad1,"Luka was defeated by the Doppelganger
name $name
>So let's switch places... I don't want to lose this incredible power after    only an hour, after all.\
goto *doppel_h

*doppel_h5

name ""
skillname ""
name $name
>Ahh!
wait 200
textclear
name "Luka"
>Ahhg!
wait 200
textclear
name ""
>Luka was killed...
>The Doppelganger was sealed into a mirror...\
mov $bad1,"Luka and the Doppelganger defeated each other after           destroying the forest

goto *doppel_badend

*doppel_h

mov $bad2,"Impregnated by his old body, Luka is forced to live out the   rest of his days as a woman, caring for his child
name "Luka"
>Wh...What do you mean switch places?\
name $name
>Oh, you didn't know?@
>Us Doppelgangers are able to perfectly copy an opponent's skills and looks    for about an hour.\
>It takes around a half hour of breathing in your residual magic to copy you   to this extent.\
>Normally that's the end of it... @ >But if we drain our opponent of enough       magic, we can switch bodies.@
>By pushing our magic into our opponent, we can cause our very souls itself to switch.\
>Of course there's no real reason to do that... @ >We're almost always stronger   than silly humans after all, so it would just be a downgrade in power.\
>But you... @ >You're something else. @ >I don't think there's ever been a human as  powerful as you.\
>If I had your body, I could take over both the human and monster              kingdoms...!\
name "Luka"
>N...No way... @ >You can't do that!\
name $name
>Of course I can. @ >All I have to do is drain your magic first.@
>You've heard of it before, right? @ >"Critical Ecstasy"?@
>No matter how insanely strong you are, I can weaken you enough to switch.\
>Hehe, I can't wait to replace you.\
name ""
>With a big smile on her face, the Doppelganger pushes me to the ground.@
lsp 700,"Doppel/doppelmountout.png",0,0:print 10,500
>Quickly mounting on top of me, she presses the entrance to her vagina right   against my erect shaft.\
name $name
>Hehe, do you like what you see? @ >You're actually pretty lucky, you know... @ >    You'll get to have experienced what it's like to have sex as both a man and a woman soon.\
>I'm actually pretty excited to feel what having sex as a man feels like,      too!\
>It's only possible to switch bodies once, so I've always thought I would      never do it... @ >Looks like I'm lucky, too!\
name "Luka"
>No... Don't do this...@
>I don't want to lose my body! @ >I don't want to become a monster!\
name $name
>Oh, don't worry about that!@
>It would be too risky for me to leave you with my old Doppelganger powers, so I'll be sure to use that convenient sword of yours to seal off that power     forever.\
>You'll be indistinguishable from just a normal human girl.\
name "Luka"
>I don't want to be a girl! @ >Get off me!\
name ""
>I struggle as hard as I can, trying to get her off...@
>But it's no good. @ >I'm too weak after being beaten, and she's just as strong   as I am at full power.\
>There's no way to get her off...\
name $name
>Now now... You ought to enjoy this.@
>It will be your last time having sex as a man, so make sure you burn it into  your memory!\
>It's time to start draining that magic of yours to prepare for the switch!\
name ""
>With an excited laugh, the Doppelganger pushes herself up a little bit.@
>After positioning her vagina right over my penis, she drops down in one       powerful movement.\
mov %hseanwave,1:hseanwave
lsp 700,"Doppel/doppelmountin.png",0,0:print 10,500
name "Luka"
>Ahhh!\
name ""
>I yell out in surprise at suddenly piercing her, as the sensations from her   flesh fill my brain with an instant explosion of pleasure.\
>Moments after insertion, I feel her soft flesh clamp down around my penis,    locking me inside her wet hole.\
name $name
>Well, how does it feel?@
>It's pretty good, isn't it? @ >It's going to be your pussy soon, so feel free to use it however you want. Hehe.\
name ""
>The Doppelganger's vaginal muscles squeeze and rub against my penis as she    talks, as if she was trying to examine my penis inside her.\
name $name
>Mmm... @ >Your dick is amazing, too... @ >I can't wait to use it.\
>Hey... Do you have anyone I could have sex with after I take your body?\
>Married? @ >Girlfriend? @ >Sex friend?\
name "Luka"
>Y...You couldn't...!\
name $name
>Of course I could! @ >At least until they realize that I'm acting different from you...@
>But hey, they may never notice, either.\
>I don't think it would work on that Lamia I changed into before, though... @ >I  think she would see through me.\
>But you were a Hero, right? @ >So I'm sure there must be princesses somewhere or something.\
name "Luka"
>Stop joking around! @ >Get off me!\
name $name
>Aww, you're no fun...@
>Oh well, I guess there's always you after we switch. @ >Hehe.\
name ""
>After she finishes taunting me, the Doppelganger starts to slowly move up and down.@
>Inch by inch, I'm slowly brought out of her...@
>Then inch by inch, she forces me back into her wetness.\
name "Luka"
>Ah...!\
name $name
>Mmm... @ >This will be my last time as a girl too, so I don't want to end this   too quick...\
name ""
>The Doppelganger bends over a little more as she grinds against me, gently    riding me.\
>Her soft flesh eagerly grabs at my penis as she forces me in and out of her,  small gasps escaping from her mouth with every completed pump.\
name $name
>Ah... @ >My new dick feels so good...@
>I was expecting something horrible after I copied your skills and found you   barely better than a virgin with your sexual techniques.\
>You've really wasted this dick of yours, you know... @ >But don't worry, I'll    put it to good use.\
name ""
>My face goes red as she openly talks about my lack of sexual experience.@
>I try to protest, but my words get muffled by moans of pleasure leaking from  my lips.\
name "Luka"
>Ahh...\
name ""
>The Doppelganger starts to breathe a little harder as her movements quicken.@
>As she rides me faster and faster, yells of pleasure burst from her mouth.\
name $name
>Ah! Yes! @ >This is the best! @ >Not only am I going to be stronger than I ever     imagined, but I get to have fun first!\
>I never dreamed I'd be this lucky!\
name ""
>Drunk on her own pleasure, the Doppelganger rides me even harder.@
>Helplessly stuck under her, I feel myself about to come as my body is         immersed in the sensations from her soft vagina.\
name "Luka"
>I...I'm going to come...!\
name $name
>Just a little longer, then you can come as fast as you want while I take your body!\
name ""
>The sudden horrifying words cause me to regain my senses and tense up,        temporarily saving me from an orgasm.\
name $name
>Ahhh!\
name ""
lsp 700,"Doppel/doppelmountin2.png",0,0:print 10,500
>As the Doppelganger's body spasms in ecstasy, her vagina clamps down around   my penis.@
>The temporary horror at her words are blown away in bliss as I climax, coming inside her.\
gosub *syasei1
gosub *syasei2
name $name
>Mmm... @ >That was good...\
>I'll miss having sex as a girl, but I'm sure I'll love it as a man, too.\
>Don't worry, I'll let you feel what I'm feeling soon enough. @ >Hehe.\
name "Luka"
>Ahh...\
name ""
>I feel more strength draining from me after my orgasm.@
>Just as she said, the magic in my body must be rapidly flowing out because of that critical ecstasy...\
lsp 700,"Doppel/doppelmountin.png",0,0:print 10,500
name $name
>I just realized something.@
>Even if I sealed my Doppelganger powers after we switch, and I make you a     normal human girl...\
>There's nothing stopping you from training and becoming just as strong as you are now.@
>You were already a human and got to be this powerful, so why couldn't you do  it again?\
name ""
>Th...That's right!@
>Even if I lose here, I can start training again and find a way to get my body back!\
>If she steals my body, I'm sure I can find some way to get it back!\
>Finally seeing a light breaking through the dark despair I've been feeling, I start to regain hope.\
name $name
>Oh... Hehe. @ >I didn't say that to give you hope, you moron.@
>I meant that I just realized I needed to do something about it.\
>And you coming inside of me just gave me the answer I needed!\
>I was thinking about killing you after having some fun with you, but that's   just so barbaric...@
>I'm not that kind of monster, so I was hoping to get around that.\
name ""
>K...Kill me!?@
>My blood runs cold at her heartless words.\
name "Luka"
>Wh...What are you planning on doing?\
name $name
>Hehe... @ >How would you like to be a mommy?\
name "Luka"
>Wh...What...? @ >I'm a man...\
name $name
>Now, now... You have to stop thinking like that.@
>I already told you we're going to switch bodies, so you need to get used to   the thought of being a woman.\
>You know how us monsters feed on semen, right?@
>Well it would be incredibly inconvenient if every time we just wanted to eat, we risked getting pregnant.\
>So Doppelgangers, like most other monsters, are able to control when we're    able to get pregnant.@
>We always have an egg ready to be fertilized, we just have to open up our     cervix and let in the semen.\
>Doing that, we can guarantee for sure whether we want to be fertilized or     not.\
name "Luka"
>Y...You wouldn't...\
name $name
>Normally I wouldn't. @ >Getting pregnant for nine months would be such a drag,   so I always made sure to close it.\
>But I think it would be a great way to get you out of the picture after we    switch, don't you!?\
name "Luka"
>No, don't do it! @ >Don't do that!\
name $name
>Too bad, I already decided!@
>You won't be able to do anything for at least nine months, all while I do     whatever I want.\
>And just think! @ >You'll probably be the only guy who ever got to both          fertilize and give birth to the same baby!@
>Doesn't that sound like fun?\
name "Luka"
>No! @ >Get off of me!\
name ""
>I push against the Doppelganger as hard as I can, desperate to get her off of me.@
>I don't want this to happen! @ >I've always wanted to be a father, but not a     mother!\
name $name
>You couldn't push me off before, why do you think you could get me off now?\
>Let's hurry up and make a child... @ >Hehe.\
name ""
>After saying that, the Doppelganger starts to grind against me again.@
>Her smooth body rubs against mine as she thrusts me in and out of her.\
name "Luka"
>No... Stop...! Ah...\
name ""
>Moans of pleasure start to leak back into my cries of horror.@
>I can't let myself come inside her! @ >I'm a man, I can't be a mother!\
>The Doppelganger looks down at me under her and starts to laugh.\
name $name
>Hehe... Your face looks so horrified, but your penis feels so eager...@
>It's twitching inside of me, eager to fertilize your new body.\
name ""
>As the Doppelganger starts to ride me even harder, I feel myself about to     come.@
>I clench my stomach as hard as I can, trying anything I can think of to hold  on.\
name "Luka"
>No... Not this... Anything but this...\
name ""
>The ache in my lower body is getting too strong to hold back.\
>My body is going to betray me...@
>This body I'm about to lose is going to fail me right at the end.\
name $name
>Now to make the baby you're going to be carrying for the next nine months!\
name ""
>After saying that, the Doppelganger squeezes down hard on me with a giggle.\
name "Luka"
>Ahh!\
gosub *syasei1
lsp 700,"Doppel/doppelmountin2.png",0,0:print 10,500
gosub *syasei2
name ""
>My body spasms as I explode inside her, shooting my seed straight into her    waiting womb.\
name "Luka"
>No...\
name $name
>Congratulations! @ >You're now officially going to be a mother! @ >And a father,    too, I guess. @ >Hehe.\
name ""
>The Doppelganger squeezes down on my penis, pressing out the last drops of my semen into her.\
name "Luka"
>Ah... Ah...\
name $name
>There's a good boy...\
>Now then, almost all of your magic has been drained, but I need to get just a little bit more out of you before we can switch.\
>So you'll get to have one final orgasm as a man. @ >You should try to enjoy it.\
name ""
>Giving me no time to rest, the Doppelganger starts to move again.@
>Grinding hard against me, she forces me deep into her before pulling me back  out.\
name "Luka"
>Ah...\
name ""
>Unable to help myself, I let out a moan as my body is wracked in pleasure.\
>Awash in despair from what just happened, I can't bring myself to even try to struggle any longer.\
name $name
>It looks like you've accepted your fate...\
name ""
>As the Doppelganger looks down at me with a smile on her face, my lower body  tingles as I feel myself about to explode in her again.\
name "Luka"
>Ah... I'm coming...\
gosub *syasei1
lsp 700,"Doppel/doppelmountin.png",0,0:print 10,500
gosub *syasei2
name $name
>There you go...@
>Now for me to take those powerful skills of yours permanently...\
name ""
>The Doppelganger leans over, and kisses me!@
>Surprised at the sudden action, I stay motionless for a moment as I feel her  warm tongue invade my mouth.\
name $name
>Mmm...\
name ""
flushout 1000
if %first_sel15=0 bg "bg\bg093.bmp",10,3000
if %first_sel15=1 bg "bg\bg076.bmp",10,3000
>Seconds after first feeling her tongue inside my mouth, I suddenly feel my    tongue inside her mouth.\
>Wait, no... That isn't it...@
>I'm looking at me!\
name $name
>Oh... Interesting...@
>So this is how it feels to be inside a woman...\
name ""
>After getting over my initial shock, the drastic difference in sensations     suddenly floods over me.\
>Instead of feeling her soft flesh squeezing down around my vagina, I instead  feel my old body's hard shaft seemingly inside my body.\
name $name
>Here we go, lets try moving a little...\
name ""
>Suddenly, the Doppelganger starts to thrust upward into me, forcing my old    penis deep into my new vagina.\
name "Luka"
>Ahh...\
name ""
>Still completely exhausted as I was in my old body, I feebly let out a moan   as the brand new pleasure attacks my confused brain.\
name $name
>That's a nice voice you have there...@
>Hah!\
name ""
>Using my old body, the Doppelganger starts to pump me hard.\
>Unable to take it any longer, I collapse on her, my new breasts pushing       against my old body's chest.\
name "Luka"
>Ah!\
name ""
>A lightning bolt of pleasure races up my spine as my nipples rub against her  new body.\
>Overcome by all of these new womanly sensations at once, I feel a powerful    orgasm coming on.\
>But instead of just feeling it in my waist like when I was a man, it feels    like my entire body is about to release.\
name $name
>I'm coming...!\
name ""
>At the same time, I feel the hard shaft inside of me grow a little, and start to twitch.\
>In the next moment, a warm liquid explodes out of it, flooding my body.@
>As the semen shoots into me, my body starts to spasm as it feels like all of  my muscles are tensing at the same time.\
name "Luka"
>Ahhhh!!\
gosub *syasei1
gosub *syasei2
name ""
>After the incredible high of the climax starts to fade, I sigh as the         afterglow fills my weak body.\
name $name
>Oh... @ >I could get used to that...\
>Well? @ >How did you like it? @ >Pretty good, right?\
name "Luka"
>My body... @ >Ah... @ >Give it back...\
name $name
>Even if I wanted to, it's a one way deal.@
>Ah, that reminds me.\
name ""
>The Doppelganger pulls out of me, and picks up Angel Halo.@
>And slashes me across the chest!\
dwave 2,"se\damage.ogg"
name "Luka"
>Ahhh!\
name ""
>As soon as the sword hits me, it feels like a piece of my soul was sucked out into it.\
name $name
>There you go, all of the Doppelganger powers that body had have been sealed   now.@
>You're no different than a normal human girl now.\
>Ah... @ >A pregnant normal human girl, that is.\
name "Luka"
>N...No...\
name ""
>That's right... She forced me to get her old body pregnant... @ >So now... I'm   pregnant...?\
name $name
>There's a town about a mile to the east of here.@
>Watch out for bandits on the road though. @ >Don't want to get raped, right? @ >    Haha.\
>Thanks for the body, and good luck. @ >You can probably work as a prostitute if  you're short on money and nobody will hire you since you're pregnant.\
>Good luck raising our kid.\
gosub *anten
>With those final words, the Doppelganger leaves me.@
>Too exhausted to move, I quickly pass out, abandoning any hope of ever        following her.\
>When I come to, I start to search for Alice.@
>But after not finding her for a few days, I give up and head to the nearby    town.\
>Just like she said, I start to see signs of pregnancy after a few weeks.@
>As I try to figure out how I'm going to survive, news of the "Great Demon     Luka" reaches me.\
>Apparently the Doppelganger accepted the Sabasa King's proposal of marriage   for his daughter, and quickly married Sara.\
>Soon after that, he started to attack human towns one after another, raping   and subjugating every location he comes across.\
>I can't do anything to stop him...@
>Resigned to my fate, I decide to live the rest of my life as a woman, raising my child.\
goto *doppel_badend

*doppel_victory

bgm"bgm\field3.ogg"
name "Luka"
>Whew, that was difficult.\
>There are all types of monsters, huh?@
>I can't let my guard down...\
name ""
if %first_sel15=0 skip 5
>But the forest...@
>That double Quadruple Giga completely annihilated it.@
>I hope Alice didn't get caught up in the attack...\
>Well, it should at least cause her to come hurrying here to check out what    happened.\
>I start to walk toward where I think the campsite was, thinking of how to     break the news to Alice about how there won't be any dinner tonight.\

gosub *anten
name ""
>CG by wizard898
>Scenario by RogueTranslator.\
>Thanks for playing!\
reset

*doppel_hansei

lsp 700,":a;chara\amira_st01.bmp",0,0:print 10,500
name "Amira"
>Oh, my darling!@
>What are you doing here?\
>Y...You didn't possible do... @ >Perverted things with someone besides me, did   you?\
>I hope not... @ >That would break my pure maiden heart...\
>A Doppelganger, was it?@
>Well that's easy, just fight her two on one!\
>She can only mimic one person, so just get that snake lady...@
>What? @ >She doesn't fight with you?\
>I knew I should have been the heroine...@
>If it was me by your side, I would shield you from every blow, darling.\
>Throw that harlot away and take me instead!\
>But until we petition for me to replace her, you'll need to defeat this       monster...\
>Why don't you just try to experiment around with your abilities?@
>Maybe she will do something different from you, and you can exploit that...\
>Now go, my darling Luka.@
>I'll be waiting for you.\
return
