*hanyo_reset ; resets temp variables.

mov %hanyo1,0
mov %hanyo2,0
mov %hanyo3,0
mov %hanyo4,0
mov %hanyo5,0
mov %hanyo6,0
mov %hanyo7,0
mov %hanyo8,0
mov %hanyo9,0
mov %hanyo10,0
mov %hanyo11,0
mov %hanyo12,0
mov %hanyo13,0
mov %hanyo14,0
mov %hanyo15,0
mov %hanyo16,0
mov %hanyo17,0
mov %hanyo18,0
mov %hanyo19,0
mov %hanyo20,0
mov %hanyo21,0
mov %hanyo22,0
mov %hanyo23,0
mov %hanyo24,0
mov %hanyo25,0
mov %hanyo26,0
mov %hanyo27,0
mov %hanyo28,0
mov %hanyo29,0
mov %hanyo30,0
mov %hanyo31,0
mov %hanyo32,0
mov %hanyo33,0
mov %hanyo34,0
mov %hanyo35,0
mov %hanyo36,0
mov %hanyo37,0
mov %hanyo38,0
mov %hanyo39,0
mov %hanyo40,0
mov %hanyo41,0
mov %hanyo42,0
mov %hanyo43,0
mov %hanyo44,0
mov %hanyo45,0
mov %hanyo46,0
mov %hanyo47,0
mov %hanyo48,0
mov %hanyo49,0
mov %hanyo50,0
mov %hanyo51,0
mov %hanyo52,0
mov %hanyo53,0
mov %hanyo54,0
mov %hanyo55,0
mov %hanyo56,0
mov %hanyo57,0
mov %hanyo58,0
mov %hanyo59,0
mov %hanyo60,0
mov %hanyo61,0
mov %hanyo62,0
mov %hanyo63,0
mov %hanyo64,0
mov %hanyo65,0
mov %hanyo66,0
mov %hanyo67,0
mov %hanyo68,0
mov %hanyo69,0
mov %hanyo70,0
mov %hanyo71,0
mov %hanyo72,0
mov %hanyo73,0
mov %hanyo74,0
mov %hanyo75,0
mov %hanyo76,0
mov %hanyo77,0
mov %hanyo78,0
mov %hanyo79,0
mov %hanyo80,0
mov %hanyo81,0
mov %hanyo82,0
mov %hanyo83,0
mov %hanyo84,0
mov %hanyo85,0
mov %hanyo86,0
mov %hanyo87,0
mov %hanyo88,0
mov %hanyo89,0
mov %hanyo90,0
mov %hanyo91,0
mov %hanyo92,0
mov %hanyo93,0
mov %hanyo94,0
mov %hanyo95,0
mov %hanyo96,0
mov %hanyo97,0
mov %hanyo98,0
mov %hanyo99,0
mov %hanyo100,0

return



*eng	;Measures and corrects the length of an English string and puts it into "$sel6".
getparam $sub9
len %sub1,$sub9:mov %sub2,%sub1+1
if %sub1/2<%sub2/2 mov $sub9,$sub9+""
mov $sel6,$sub9
return

*name

getparam $platename
if $platename="" csp 599:print 1:return
len %name_count,$platename
lsp 599,":s/20,20,0;#FFFFFF"+$platename+"",155-%name_count*5,408:print 1
return



*vspl

getparam %teigi2,%teigi3,%teigi1
for %sub1=%teigi2 to %teigi3
vsp %sub1,%teigi1
next
return



*cspl

getparam %teigi2,%teigi3
for %sub1=%teigi2 to %teigi3
csp %sub1
next
return

*damage

delay 300
if %poison_damage>0 skip 6
if %ng=1 && %aqua=2 && %wind=5 && %kousoku<1 && %status=0 gosub *serenegale_guard:return
if %ng=1 && %aqua>0 && %kousoku<1 && %status=0 gosub *aqua_guard:goto *common_main
if %ng=1 && %wind>0 && %wind!=4 && %kousoku<1 gosub *wind_guard:goto *common_main
if %daten>0 && %kousoku<1 && %status=0 gosub *skill22x:goto *common_main
if %daten>0 && %kousoku<1 && %status=9 gosub *skill22x:goto *common_main
if %aqua=2 mov %aqua_end,1
getparam %teigi1,%teigi2
if %teigi1=%teigi2 mov %damage,%teigi1
notif %teigi1=%teigi2 rnd2 %damage,%teigi1,%teigi2
if %a_effect1=0 dwave 2,"se\damage.ogg":quakex 2,440
if %a_effect1=1 dwave 2,"se\damage2.ogg":quake 10,600
if %a_effect1=2 dwave 2,"se\ikazuti.ogg":quake 10,1500
mov %a_effect1,0

if %damage_kotei=1 mov %damage_kotei,0:skip 24
if %enemylv>0 mov %damage,%damage+%enemylv*3
if %guard_break>0 && %bougyo>0 gosub *guard_break
if %enemy_fire=1 mov %damage,%damage*15/10
if %enemy_fire=2 mov %damage,%damage*18/10
if %enemy_fire=3 mov %damage,%damage*22/10

if %bougyo=1 mov %damage,%damage/2
if %bougyo=2 mov %damage,%damage*10/15
if %earth>1 mov %damage,%damage*(100-%earth_keigen-%gnome_buff)/100
if %aqua=1 mov %damage,%damage*4/5

if $knight="Tamamo" && %tamamo_rep>9 mov %damage,%damage*(100-(%tamamo_rep*2/3))/100
;if %nanido=1 mov %damage,%damage*75/100     ; Easy
;if %nanido=2 mov %damage,%damage*100/100   ; Normal
;if %nanido=3 mov %damage,%damage*125/100   ; Hard
;if %nanido=4 mov %damage,%damage*300/100   ; Nightmare

if %blackwind_turn>0 mov %damage,%damage*2/3
if %erpentagram_turn>0 || %unpentagram_turn>0 mov %damage,%damage*20/100
if %titanguard_turn>0 || %gnomaren>0 mov %damage,%damage*1/100

if %potion=2 mov %damage,%damage*65/100
if %potion=5 mov %damage,0

if %damage<0 mov %damage,0
itoa $sel1,%damage
mov $sel6,$ori_name+" takes "+$sel1+" damage!"
``$sel6
if %battle=0 skip 12
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
mov %kadora_damage,1
print 10,500
>\
mov %aqua_counter,0
if %damage_nobr>0 mov %damage_nobr,0:return
return


*damagex

delay 300
if %aqua=2 mov %aqua_end,1
getparam %teigi1,%teigi2
if %teigi1=%teigi2 mov %damage,%teigi1
notif %teigi1=%teigi2 rnd2 %damage,%teigi1,%teigi2
if %a_effect1=0 dwave 2,"se\damage.ogg":quakex 2,440
if %a_effect1=1 dwave 2,"se\damage2.ogg":quake 10,600
if %a_effect1=2 dwave 2,"se\ikazuti.ogg":quake 10,1500
mov %a_effect1,0
if %damage_kotei=1 mov %damage_kotei,0:skip 6
if %enemylv>0 mov %damage,%damage+%enemylv*3
if %guard_break>0 && %bougyo>0 gosub *guard_break
if %enemy_fire=1 mov %damage,%damage*15/10
if %enemy_fire=2 mov %damage,%damage*18/10
if %enemy_fire=3 mov %damage,%damage*22/10
if %bougyo=1 mov %damage,%damage/2
if %bougyo=2 mov %damage,%damage*10/15
if %earth>1 mov %damage,%damage*(100-%earth_keigen)/100
if %aqua=1 mov %damage,%damage*4/5
if $knight="Tamamo" && %tamamo_rep>9 mov %damage,%damage*(100-(%tamamo_rep*2/3))/100
if %damage=0 mov %damage,

if %nanido=0 mov %damage,%damage*75/100
if %nanido=1 mov %damage,%damage*100/100
if %nanido=2 mov %damage,%damage*125/100
if %nanido=3 mov %damage,%damage*200/100
if %nanido=4 mov %damage,%damage*300/100
if %waterwall_turn>0 mov %damage,%damage*25/100
itoa $sel1,%damage
mov $sel6,$ori_name+" takes "+$sel1+" damage!"
if %damage_nobr=1 skip 3
``$sel6\
skip 2
``$sel6
if %battle=0 skip 13
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
mov %kadora_damage,1
print 10,500
mov %aqua_counter,0
if %damage_nobr>0 mov %damage_nobr,0:return
return

*skillname

getparam $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


*sean_change

name ""
saveoff
getparam $haikei2
cspl 3,7
csp 611
cspl 699,705
bg black,7,1500
if %SQ2=0 bg "bg\"+$haikei2+".bmp",7,1500
if %SQ2=1 bg "2Q\bg\"+$haikei2+".bmp",7,1500
wait 500
gosub *setwindow_01
return

*sean_change2

name ""
saveoff
getparam $haikei
cspl 3,7
csp 611
cspl 699,705
bg black,7,1500
if %SQ2=0 bg "bg\"+$haikei+".bmp",7,1500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",7,1500
wait 500
gosub *setwindow_02
return


*count

saveoff
getparam %finish1,%finish2
mov %count_end,%count_end+1
if %finish1= 1 mov %count_nakadashi,%count_nakadashi+1		;????????
if %finish1= 2 mov %count_sakuseikikan,%count_sakuseikikan+1	;???????????
if %finish1= 3 mov %count_sumata,%count_sumata+1		;??????????
if %finish1= 4 mov %count_fera,%count_fera+1			;???????????
if %finish1= 5 mov %count_tekoki,%count_tekoki+1		;???????????
if %finish1= 6 mov %count_ashikoki,%count_ashikoki+1		;???????????
if %finish1= 7 mov %count_paizuri,%count_paizuri+1		;????????????
if %finish1= 8 mov %count_analsex,%count_analsex+1		;???????????????
if %finish1= 9 mov %count_analseme,%count_analseme+1		;?????????????
if %finish1=10 mov %count_syokusyu,%count_syokusyu+1		;??????????
if %finish1=11 mov %count_slime,%count_slime+1			;??????????
if %finish1=12 mov %count_plant,%count_plant+1			;????????????
if %finish1=13 mov %count_wing,%count_wing+1			;??????????
if %finish1=14 mov %count_buturi,%count_buturi+1		;????????????
if %finish1=15 mov %count_nenmaku,%count_nenmaku+1
if %finish1=16 mov %count_role,%count_role+1
if %finish1=17 mov %count_ganmenkizyou,%count_ganmenkizyou+1
if %finish1=18 mov %count_kiss,%count_kiss+1
if %finish1=19 mov %count_sipppo,%count_sipppo+1
if %finish1=20 mov %count_ito,%count_ito+1
if %finish1=21 mov %count_onani,%count_onani+1
if %finish1=22 mov %count_kami,%count_kami+1
if %finish1=23 mov %count_tikubi,%count_tikubi+1
if %finish1=24 mov %count_zenshin,%count_zenshin+1
if %finish1=25 mov %count_kusuguri,%count_kusuguri+1
if %finish1=26 mov %count_kaze,%count_kaze+1
if %finish1=27 mov %count_ihuku,%count_ihuku+1
if %finish1=28 mov %count_zensin,%count_zensin+1
if %finish1=29 mov %count_houyou,%count_houyou+1
if %finish1=30 mov %count_tissoku,%count_tissoku+1
if %finish1=31 mov %count_yuuwaku,%count_yuuwaku+1
if %finish1=32 mov %count_sonota,%count_sonota+1
if %finish1=33 mov %count_marunomi,%count_marunomi+1
if %finish1=34 mov %count_sirikoki,%count_sirikoki+1

if %kousoku>0 mov %count_kousoku,%count_kousoku+1
if %status=1 mov %count_koukotu,%count_koukotu+1
if %status=2 mov %count_mahi,%count_mahi+1
if %status=4 mov %count_yuwaku,%count_yuwaku+1
if %status=5 mov %count_kuppuku,%count_kuppuku+1
if %status=6 mov %count_sekika,%count_sekika+1
if %status=7 mov %count_konran,%count_konran+1

if %finish2=1 mov %count_b001,%count_b001+1
if %finish2=2 mov %count_b002,%count_b002+1
if %finish2=3 mov %count_b003,%count_b003+1
if %finish2=4 mov %count_b004,%count_b004+1
if %finish2=5 mov %count_b005,%count_b005+1
if %finish2=6 mov %count_b006,%count_b006+1
if %finish2=7 mov %count_b007,%count_b007+1
if %finish2=8 mov %count_b008,%count_b008+1
if %finish2=9 mov %count_b009,%count_b009+1
if %finish2=10 mov %count_b010,%count_b010+1
if %finish2=11 mov %count_b011,%count_b011+1
if %finish2=12 mov %count_b012,%count_b012+1
if %finish2=13 mov %count_b013,%count_b013+1
if %finish2=14 mov %count_b014,%count_b014+1
if %finish2=15 mov %count_b015,%count_b015+1

if %skill_num=0 return
mov %skill_num,%skill_num+2000
inc %%skill_num

return



*ency_clear

btndef clear
barclear
cspl 111,113
cspl 141,144
cspl 201,226
csp 301
csp 410
cspl 420,430
cspl 500,502
return

*pose_clear

btndef clear
barclear
cspl 200,207
cspl 210,218
cspl 300,316
csp 400
csp 502
return

*data_clear

btndef clear
barclear
cspl 200,207
cspl 210,218
cspl 300,316
return

*recall_clear

btndef clear
barclear
cspl 200,207
cspl 210,218
cspl 300,316
return

*screen_clear

btndef clear
barclear
cspl 0,550
return



*screen_clear2

btndef clear
barclear
cspl 551,710
return



*screen_vanish

btndef clear
barclear
vspl 551,710,0
return



*screen_appear

btndef clear
barclear
vspl 551,710,1
return



*hseanwave

if %con_hse=1 return
saveoff
if %hseanwave= 0 dwavestop 5:dwavestop 13
if %hseanwave= 1 dwaveloop 5,"se\hsean01_innerworks_a1.ogg"
if %hseanwave= 2 dwaveloop 5,"se\hsean02_innerworks_a2.ogg"
if %hseanwave= 3 dwaveloop 5,"se\hsean03_innerworks_a3.ogg"
if %hseanwave= 4 dwaveloop 5,"se\hsean04_innerworks_a4.ogg"
if %hseanwave= 5 dwaveloop 5,"se\hsean05_innerworks_a5.ogg"
if %hseanwave= 6 dwaveloop 5,"se\hsean06_innerworks_a6.ogg"
if %hseanwave= 7 dwaveloop 5,"se\hsean07_innerworks_a7.ogg"
if %hseanwave= 8 dwaveloop 5,"se\hsean08_innerworks_a8.ogg"
if %hseanwave= 9 dwaveloop 5,"se\hsean09_innerworks_b1.ogg"
if %hseanwave=10 dwaveloop 5,"se\hsean10_innerworks_b2.ogg"
if %hseanwave=11 dwaveloop 5,"se\hsean11_innerworks_c1.ogg"
if %hseanwave=12 dwaveloop 5,"se\hsean12_innerworks_c2.ogg"
if %hseanwave=13 dwaveloop 5,"se\hsean13_innerworks_c3.ogg"
if %hseanwave=14 dwaveloop 5,"se\hsean14_kyuin1.ogg"
if %hseanwave=15 dwaveloop 5,"se\hsean15_kyuin2.ogg"
if %hseanwave=16 dwaveloop 5,"se\hsean16_kyuin3.ogg"
if %hseanwave=17 dwaveloop 5,"se\hsean17_sigoki.ogg"
if %hseanwave=18 dwaveloop 5,"se\hsean18_slime1.ogg"
if %hseanwave=19 dwaveloop 5,"se\hsean19_slime2.ogg"
if %hseanwave=20 dwaveloop 5,"se\hsean20_tentacle1.ogg"
if %hseanwave=21 dwaveloop 5,"se\hsean21_tentacle2.ogg"
if %hseanwave=22 dwaveloop 5,"se\hsean22_tentacle3.ogg"
if %hseanwave=23 dwaveloop 5,"se\hsean23_wash.ogg"
return



*hseanvoice

if %con_hvoice=1 return
saveoff
if %hseanvoice= 0 dwavestop 13
if %hseanvoice= 1 dwaveloop 13,"voice\fera_zyuru1.ogg"
if %hseanvoice= 2 dwaveloop 13,"voice\fera_zyuru2.ogg"
if %hseanvoice= 3 dwaveloop 13,"voice\fera_zyubu1.ogg"
if %hseanvoice= 4 dwaveloop 13,"voice\fera_zyubu2.ogg"
if %hseanvoice= 5 dwaveloop 13,"voice\fera_gutyu.ogg"
if %hseanvoice= 6 dwaveloop 13,"voice\alice7_x1.ogg"
if %hseanvoice= 7 dwaveloop 13,"voice\alice7_x2.ogg"
if %hseanvoice= 8 dwaveloop 13,"voice\granberia3_x1.ogg"
if %hseanvoice= 9 dwaveloop 13,"voice\granberia3_x2.ogg"
return



*skillcount1

getparam %skill_num
if %%skill_num=0 mov %count_oskill1,%count_oskill1+1
inc %%skill_num
return



*skillcount2

getparam %skill_num
if %%skill_num=0 mov %count_oskill2,%count_oskill2+1
inc %%skill_num
return



*skillcount3

getparam %skill_num
if %%skill_num=0 mov %count_oskill3,%count_oskill3+1
inc %%skill_num
return

;===================================================================================
;????????
;===================================================================================


*vanish_sprite

for %sub1=3 to 611 step 1
vsp %sub1,0
next
return



*appear_sprite

for %sub1=3 to 611 step 1
vsp %sub1,1
next
return



*clear_sprite

for %sub1=3 to 611 step 1
csp %sub1
next
return



*hp;

itoa2 $mylifeh,%mylife
itoa2 $max_mylifeh,%max_mylife
mov $hp_hyouzi,$mylifeh+"/"+$max_mylifeh
len %name_count,$hp_hyouzi
lsp 559,":s/16,16,0;#FFFFFF"+$hp_hyouzi,244-%name_count*3,555
return



*lvup_check

if %exp<10 mov %mylv,1:gosub *maxhp:gosub *maxmp:return
if %exp<20 mov %mylv,2:gosub *maxhp:gosub *maxmp:return
if %exp<40 mov %mylv,3:gosub *maxhp:gosub *maxmp:return
if %exp<80 mov %mylv,4:gosub *maxhp:gosub *maxmp:return
if %exp<160 mov %mylv,5:gosub *maxhp:gosub *maxmp:return
if %exp<320 mov %mylv,6:gosub *maxhp:gosub *maxmp:return
if %exp<530 mov %mylv,7:gosub *maxhp:gosub *maxmp:return
if %exp<800 mov %mylv,8:gosub *maxhp:gosub *maxmp:return
if %exp<1200 mov %mylv,9:gosub *maxhp:gosub *maxmp:return
if %exp<1800 mov %mylv,10:gosub *maxhp:gosub *maxmp:return
if %exp<2800 mov %mylv,11:gosub *maxhp:gosub *maxmp:return
if %exp<4000 mov %mylv,12:gosub *maxhp:gosub *maxmp:return
if %exp<6000 mov %mylv,13:gosub *maxhp:gosub *maxmp:return
if %exp<9000 mov %mylv,14:gosub *maxhp:gosub *maxmp:return
if %exp<12000 mov %mylv,15:gosub *maxhp:gosub *maxmp:return
if %exp<15000 mov %mylv,16:gosub *maxhp:gosub *maxmp:return
if %exp<19000 mov %mylv,17:gosub *maxhp:gosub *maxmp:return
if %exp<24000 mov %mylv,18:gosub *maxhp:gosub *maxmp:return
if %exp<29000 mov %mylv,19:gosub *maxhp:gosub *maxmp:return
if %exp<35000 mov %mylv,20:gosub *maxhp:gosub *maxmp:return
if %exp<41000 mov %mylv,21:gosub *maxhp:gosub *maxmp:return
if %exp<47000 mov %mylv,22:gosub *maxhp:gosub *maxmp:return
if %exp<53000 mov %mylv,23:gosub *maxhp:gosub *maxmp:return
if %exp<61000 mov %mylv,24:gosub *maxhp:gosub *maxmp:return
if %exp<70000 mov %mylv,25:gosub *maxhp:gosub *maxmp:return
if %exp<81000 mov %mylv,26:gosub *maxhp:gosub *maxmp:return
if %exp<93000 mov %mylv,27:gosub *maxhp:gosub *maxmp:return
if %exp<105000 mov %mylv,28:gosub *maxhp:gosub *maxmp:return
if %exp<117000 mov %mylv,29:gosub *maxhp:gosub *maxmp:return
if %exp<130000 mov %mylv,30:gosub *maxhp:gosub *maxmp:return
if %exp<145000 mov %mylv,31:gosub *maxhp:gosub *maxmp:return
if %exp<160000 mov %mylv,32:gosub *maxhp:gosub *maxmp:return
if %exp<180000 mov %mylv,33:gosub *maxhp:gosub *maxmp:return
if %exp<210000 mov %mylv,34:gosub *maxhp:gosub *maxmp:return
if %exp<240000 mov %mylv,35:gosub *maxhp:gosub *maxmp:return
if %exp<270000 mov %mylv,36:gosub *maxhp:gosub *maxmp:return
if %exp<300000 mov %mylv,37:gosub *maxhp:gosub *maxmp:return
if %exp<340000 mov %mylv,38:gosub *maxhp:gosub *maxmp:return
if %exp<380000 mov %mylv,39:gosub *maxhp:gosub *maxmp:return
if %exp<430000 mov %mylv,40:gosub *maxhp:gosub *maxmp:return
if %exp<480000 mov %mylv,41:gosub *maxhp:gosub *maxmp:return
if %exp<540000 mov %mylv,42:gosub *maxhp:gosub *maxmp:return
if %exp<600000 mov %mylv,43:gosub *maxhp:gosub *maxmp:return
if %exp<670000 mov %mylv,44:gosub *maxhp:gosub *maxmp:return
if %exp<740000 mov %mylv,45:gosub *maxhp:gosub *maxmp:return
if %exp<810000 mov %mylv,46:gosub *maxhp:gosub *maxmp:return
if %exp<880000 mov %mylv,47:gosub *maxhp:gosub *maxmp:return
if %exp<960000 mov %mylv,48:gosub *maxhp:gosub *maxmp:return
if %exp<1040000 mov %mylv,49:gosub *maxhp:gosub *maxmp:return
if %exp<1120000 mov %mylv,50:gosub *maxhp:gosub *maxmp:return
if %exp<1200000 mov %mylv,51:gosub *maxhp:gosub *maxmp:return
if %exp<1300000 mov %mylv,52:gosub *maxhp:gosub *maxmp:return
if %exp<1400000 mov %mylv,53:gosub *maxhp:gosub *maxmp:return
if %exp<1500000 mov %mylv,54:gosub *maxhp:gosub *maxmp:return
if %exp<1650000 mov %mylv,55:gosub *maxhp:gosub *maxmp:return
if %exp<1800000 mov %mylv,56:gosub *maxhp:gosub *maxmp:return
if %exp<1950000 mov %mylv,57:gosub *maxhp:gosub *maxmp:return
if %exp<2100000 mov %mylv,58:gosub *maxhp:gosub *maxmp:return
if %exp<2300000 mov %mylv,59:gosub *maxhp:gosub *maxmp:return
if %exp<2500000 mov %mylv,60:gosub *maxhp:gosub *maxmp:return
if %exp<2700000 mov %mylv,61:gosub *maxhp:gosub *maxmp:return
if %exp<3000000 mov %mylv,62:gosub *maxhp:gosub *maxmp:return
if %exp<3400000 mov %mylv,63:gosub *maxhp:gosub *maxmp:return
if %exp<3800000 mov %mylv,64:gosub *maxhp:gosub *maxmp:return
if %exp<4200000 mov %mylv,65:gosub *maxhp:gosub *maxmp:return
if %exp<4600000 mov %mylv,66:gosub *maxhp:gosub *maxmp:return
if %exp<5000000 mov %mylv,67:gosub *maxhp:gosub *maxmp:return
if %exp<5500000 mov %mylv,68:gosub *maxhp:gosub *maxmp:return
if %exp<6100000 mov %mylv,69:gosub *maxhp:gosub *maxmp:return
if %exp<6800000 mov %mylv,70:gosub *maxhp:gosub *maxmp:return
if %exp<7600000 mov %mylv,71:gosub *maxhp:gosub *maxmp:return
if %exp<8500000 mov %mylv,72:gosub *maxhp:gosub *maxmp:return
if %exp<9500000 mov %mylv,73:gosub *maxhp:gosub *maxmp:return
if %exp<11000000 mov %mylv,74:gosub *maxhp:gosub *maxmp:return
if %exp<12500000 mov %mylv,75:gosub *maxhp:gosub *maxmp:return
if %exp<14000000 mov %mylv,76:gosub *maxhp:gosub *maxmp:return
if %exp<16000000 mov %mylv,77:gosub *maxhp:gosub *maxmp:return
if %exp<18000000 mov %mylv,78:gosub *maxhp:gosub *maxmp:return
if %exp<20000000 mov %mylv,79:gosub *maxhp:gosub *maxmp:return
if %exp<22000000 mov %mylv,80:gosub *maxhp:gosub *maxmp:return
if %exp<24000000 mov %mylv,81:gosub *maxhp:gosub *maxmp:return
if %exp<26000000 mov %mylv,82:gosub *maxhp:gosub *maxmp:return
if %exp<28000000 mov %mylv,83:gosub *maxhp:gosub *maxmp:return
if %exp<30000000 mov %mylv,84:gosub *maxhp:gosub *maxmp:return
if %exp<32000000 mov %mylv,85:gosub *maxhp:gosub *maxmp:return
if %exp<34000000 mov %mylv,86:gosub *maxhp:gosub *maxmp:return
if %exp<36000000 mov %mylv,87:gosub *maxhp:gosub *maxmp:return
if %exp<38000000 mov %mylv,88:gosub *maxhp:gosub *maxmp:return
if %exp<40000000 mov %mylv,89:gosub *maxhp:gosub *maxmp:return
if %exp<43000000 mov %mylv,90:gosub *maxhp:gosub *maxmp:return
if %exp<46000000 mov %mylv,91:gosub *maxhp:gosub *maxmp:return
if %exp<49000000 mov %mylv,92:gosub *maxhp:gosub *maxmp:return
if %exp<53000000 mov %mylv,93:gosub *maxhp:gosub *maxmp:return
if %exp<56000000 mov %mylv,94:gosub *maxhp:gosub *maxmp:return
if %exp<59000000 mov %mylv,95:gosub *maxhp:gosub *maxmp:return
if %exp<63000000 mov %mylv,96:gosub *maxhp:gosub *maxmp:return
if %exp<67000000 mov %mylv,97:gosub *maxhp:gosub *maxmp:return
if %exp<71000000 mov %mylv,98:gosub *maxhp:gosub *maxmp:return
if %exp<75000000 mov %mylv,99:gosub *maxhp:gosub *maxmp:return
if %exp<80000000 mov %mylv,100:gosub *maxhp:gosub *maxmp:return

*maxhp

if %mylv=1 mov %max_mylife,30
if %mylv=2 mov %max_mylife,40
if %mylv=3 mov %max_mylife,50
if %mylv=4 mov %max_mylife,60
if %mylv=5 mov %max_mylife,70
if %mylv=6 mov %max_mylife,80
if %mylv=7 mov %max_mylife,90
if %mylv=8 mov %max_mylife,100
if %mylv=9 mov %max_mylife,110
if %mylv=10 mov %max_mylife,120
if %mylv=11 mov %max_mylife,130
if %mylv=12 mov %max_mylife,140
if %mylv=13 mov %max_mylife,150
if %mylv=14 mov %max_mylife,160
if %mylv=15 mov %max_mylife,170
if %mylv=16 mov %max_mylife,180
if %mylv=17 mov %max_mylife,190
if %mylv=18 mov %max_mylife,200
if %mylv=19 mov %max_mylife,215
if %mylv=20 mov %max_mylife,230
if %mylv=21 mov %max_mylife,245
if %mylv=22 mov %max_mylife,260
if %mylv=23 mov %max_mylife,275
if %mylv=24 mov %max_mylife,290
if %mylv=25 mov %max_mylife,305
if %mylv=26 mov %max_mylife,320
if %mylv=27 mov %max_mylife,335
if %mylv=28 mov %max_mylife,350
if %mylv=29 mov %max_mylife,370
if %mylv=30 mov %max_mylife,390
if %mylv=31 mov %max_mylife,410
if %mylv=32 mov %max_mylife,430
if %mylv=33 mov %max_mylife,450
if %mylv=34 mov %max_mylife,470
if %mylv=35 mov %max_mylife,490
if %mylv=36 mov %max_mylife,510
if %mylv=37 mov %max_mylife,530
if %mylv=38 mov %max_mylife,550
if %mylv=39 mov %max_mylife,580
if %mylv=40 mov %max_mylife,610
if %mylv=41 mov %max_mylife,640
if %mylv=42 mov %max_mylife,670
if %mylv=43 mov %max_mylife,700
if %mylv=44 mov %max_mylife,730
if %mylv=45 mov %max_mylife,760
if %mylv=46 mov %max_mylife,790
if %mylv=47 mov %max_mylife,820
if %mylv=48 mov %max_mylife,860
if %mylv=49 mov %max_mylife,900
if %mylv=50 mov %max_mylife,940
if %mylv=51 mov %max_mylife,980
if %mylv=52 mov %max_mylife,1020
if %mylv=53 mov %max_mylife,1060
if %mylv=54 mov %max_mylife,1100
if %mylv=55 mov %max_mylife,1150
if %mylv=56 mov %max_mylife,1200
if %mylv=57 mov %max_mylife,1250
if %mylv=58 mov %max_mylife,1300
if %mylv=59 mov %max_mylife,1350
if %mylv=60 mov %max_mylife,1400
if %mylv=61 mov %max_mylife,1450
if %mylv=62 mov %max_mylife,1500
if %mylv=63 mov %max_mylife,1550
if %mylv=64 mov %max_mylife,1600
if %mylv=65 mov %max_mylife,1650
if %mylv=66 mov %max_mylife,1700
if %mylv=67 mov %max_mylife,1750
if %mylv=68 mov %max_mylife,1800
if %mylv=69 mov %max_mylife,1850
if %mylv=70 mov %max_mylife,1900
if %mylv=71 mov %max_mylife,1950
if %mylv=72 mov %max_mylife,2000
if %mylv=73 mov %max_mylife,2050
if %mylv=74 mov %max_mylife,2100
if %mylv=75 mov %max_mylife,2150
if %mylv=76 mov %max_mylife,2200
if %mylv=77 mov %max_mylife,2250
if %mylv=78 mov %max_mylife,2300
if %mylv=79 mov %max_mylife,2350
if %mylv=80 mov %max_mylife,2400
if %mylv=81 mov %max_mylife,2460
if %mylv=82 mov %max_mylife,2520
if %mylv=83 mov %max_mylife,2580
if %mylv=84 mov %max_mylife,2640
if %mylv=85 mov %max_mylife,2710
if %mylv=86 mov %max_mylife,2780
if %mylv=87 mov %max_mylife,2850
if %mylv=88 mov %max_mylife,2920
if %mylv=89 mov %max_mylife,3000
if %mylv=90 mov %max_mylife,3080
if %mylv=91 mov %max_mylife,3160
if %mylv=92 mov %max_mylife,3240
if %mylv=93 mov %max_mylife,3330
if %mylv=94 mov %max_mylife,3420
if %mylv=95 mov %max_mylife,3510
if %mylv=96 mov %max_mylife,3600
if %mylv=97 mov %max_mylife,3700
if %mylv=98 mov %max_mylife,3800
if %mylv=99 mov %max_mylife,3900
if %mylv>99 mov %max_mylife,4000
if %alice_rep>9 && %alice_rep<20 mov %max_mylife,%max_mylife*106/100
if %alice_rep>19 && %alice_rep<30 mov %max_mylife,%max_mylife*113/100
if %alice_rep>29 && %alice_rep<40 mov %max_mylife,%max_mylife*121/100
if %alice_rep>39 && %alice_rep<50 mov %max_mylife,%max_mylife*130/100
if %alice_rep>49 mov %max_mylife,%max_mylife*140/100
if %debug>0 mov %max_mylife,999999
return


*maxmp

if %debug>0 mov %max_mp,999999:return
if %skill01=0 mov %max_mp,0:return
if %mylv<8 mov %max_mp,2:return
if %mylv<15 mov %max_mp,3:return
if %mylv<23 mov %max_mp,4:return
if %mylv<30 mov %max_mp,5:return
if %mylv<37 mov %max_mp,6:return
if %mylv<44 mov %max_mp,7:return
if %mylv<51 mov %max_mp,8:return
if %mylv<58 mov %max_mp,9:return
if %mylv<65 mov %max_mp,10:return
if %mylv<72 mov %max_mp,11:return
if %mylv<79 mov %max_mp,12:return
if %mylv<81 mov %max_mp,13:return
if %mylv<84 mov %max_mp,14:return
if %mylv<86 mov %max_mp,15:return
if %mylv<88 mov %max_mp,16:return
if %mylv<90 mov %max_mp,17:return
if %mylv<92 mov %max_mp,18:return
if %mylv<94 mov %max_mp,19:return
if %mylv<96 mov %max_mp,20:return
if %mylv<98 mov %max_mp,21:return
if %mylv<100 mov %max_mp,22:return
if %mylv>99 mov %max_mp,23:return



*syokika

gosub *hanyo_reset
mov %used_serenegale,0
mov %kousoku,0
mov %status,0
mov %sinkou,0
mov %sel_hphalf,0
mov %sel_kiki,0
mov %bougyo,0
mov %kousan,0
mov %stopcmd1,0
mov %stopcmd2,0
mov %stopcmd3,0
mov %stopcmd4,0
mov %stopcmd5,0
mov %stopcmd6,0
mov %stopcmd7,0
mov %counter,0
mov %owaza_count1a,1
mov %owaza_count1b,1
mov %owaza_count1c,1
mov %owaza_count2a,1
mov %owaza_count2b,1
mov %owaza_count2c,1
mov %owaza_count3a,1
mov %owaza_count3b,1
mov %owaza_count3c,1
mov %ren,0
mov %list_num1,0
mov %list_num2,0
mov %list_num3,0
mov %list_num4,0
mov %list_num5,0
mov %list_num6,0
mov %list_num7,0
mov %list_num8,0
mov %list_num9,0
mov %list_num10,0
mov %list_num11,0
mov %list_num12,0
mov %list_num13,0
mov %list_num14,0
mov %list_num15,0
mov %list_num16,0
mov %turn,0
mov %first_sel1,0
mov %first_sel2,0
mov %first_sel3,0
mov %first_sel4,0

if %nanido>1 && %no_heal>0 skip 9
mov %wind,0
mov %wind_turn,0
mov %fire,0
mov %fire_turn,0
mov %earth,0
mov %earth_turn,0
mov %aqua,0
mov %aqua_turn,0

mov %continue,0
mov %kousoku_hp,0
mov $list1,""
mov $list2,""
mov $list3,""
mov $list4,""
mov $list5,""
mov $list6,""
mov $list7,""
mov $list8,""
mov $list9,""
mov $list10,""
mov $list11,""
mov $list12,""
mov $list13,""
mov $list14,""
mov $list15,""
mov $list16,""
mov $hanlist1,""
mov $hanlist2,""
mov $hanlist3,""
mov $hanlist4,""
mov $hanlist5,""
mov $hanlist6,""
mov $hanlist7,""
mov $hanlist8,""
mov %wind_kakuritu,0
mov %wind_guard_on,0
mov %nodamage,0
mov %enemylv,0
mov %owaza_num1,0
mov %owaza_num2,0
mov %before_action,0
mov %skill_sub,0
mov %nowmusic,0
mov %hsean,0
mov %hseanwave,0
mov %hseanvoice,0
mov $mogaku_anno1,""
mov $mogaku_anno2,""
mov $mogaku_anno3,""
mov $mogaku_anno4,""
mov $mogaku_sel1,""
mov $mogaku_sel2,""
mov $mogaku_sel3,""
mov $mogaku_sel4,""
mov $mogaku_sel5,""
mov $mogaku_dassyutu1,""
mov $mogaku_dassyutu2,""
mov $mogaku_earth_dassyutu1,""
mov $mogaku_earth_dassyutu2,""
mov $mogaku_kaisin1,""
mov $mogaku_kaisin2,""
mov $half_s1,""
mov $half_s2,""
mov $kiki_s1,""
mov $kiki_s2,""
mov %tukix,320
mov %tukiy,50
mov %tekikazu,1
mov %kadora,0
mov %bougyo_attack,0
mov %tuika_owaza_count1a,1
mov %tuika_owaza_count1b,1
mov %tuika_owaza_count1c,1
mov %tuika_owaza_count1d,1
mov %tuika_owaza_count1e,1
mov %tuika_owaza_count1f,1
mov %tuika_owaza_count1g,1
mov %tuika_owaza_count1h,1
mov %tuika_owaza_count2a,1
mov %tuika_owaza_count2b,1
mov %tuika_owaza_count2c,1
mov %tuika_owaza_count2d,1
mov %tuika_owaza_count3a,1
mov %tuika_owaza_count3b,1
mov %tuika_owaza_count3c,1
mov %tuika_owaza_count3d,1
mov %tuika_owaza_count4a,1
mov %tuika_owaza_count4b,1
return


*tatie_reset

mov $tatie11,""
mov $tatie12,""
mov $tatie13,""
mov $tatie14,""
mov $tatie21,""
mov $tatie22,""
mov $tatie23,""
mov $tatie24,""
mov $tatie31,""
mov $tatie32,""
mov $tatie33,""
mov $tatie34,""
mov $tatie41,""
mov $tatie42,""
mov $tatie43,""
mov $tatie44,""
mov $tatie51,""
mov $tatie52,""
mov $tatie53,""
mov $tatie54,""
mov $tatie61,""
mov $tatie62,""
mov $tatie63,""
mov $tatie64,""
mov $tatie71,""
mov $tatie72,""
mov $tatie73,""
mov $tatie74,""
mov $tatie81,""
mov $tatie82,""
mov $tatie83,""
mov $tatie84,""
return

*syutugen;

;bugfix
csp 2
csp2 2
print 10,1
mov %enemy_num,1
gosub *tatie_reset

;chrome
mov %potion,-1
mov %potion_turn,-1

mov %no_hit,0
gosub *hanyo_reset
gosub *status_reset
if %ng=1 mov %enemy_num,1
mov %used_daystar,0
mov %luka_maxturn,1
mov %enemy_spiritcount,0

wait 500
saveoff
bgmstop
bgmonce "bgm\battlestart.ogg"
mov %saveoff,1

name ""
mov %enemy_wind,0:mov %enemy_earth,0:mov %enemy_aqua,0:mov %enemy_fire,0:mov %enemy_holy,0:mov %enemy_windturn,0:mov %enemy_fireturn,0:mov %enemy_aquaturn,0:mov %enemy_earthturn,0:mov %enemy_holyturn,0:gosub *elm_print
if %mon_labo_on=0 mov $ori_name,"Luka":mov %player,0:skip 3
if %mon_labo_on=1 && $ori_name="" mov $ori_name,"Luka":mov %player,0:skip 2
if %mon_labo_on=1 && $ori_name<>"" mov %player,99

gosub *setwindow_02
cspl 592,595
cspl 699,705
if %mon_labo_on=1 && %chara_ori=1 lsp 700,":a;"+$mon_labo_mon_folder+"\"+$tatie1,%monster_x,%monster_y:skip 2
lsp 700,":a;chara\"+$tatie1+".bmp",%monster_x,%monster_y

if %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,500:skip 2
if %tekikazu>1 gosub *face1
if %SQ2!=1 bg "BG\"+$haikei+".bmp",10,500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,500

lsp 561,":a;system\gagee100.bmp",421,556
if %player=0 lsp 598,":a;system\face_00.bmp",34,534
if %player=1 lsp 598,":a;system\face_a00.bmp",37,540
if %player=2 lsp 598,":a;2Q\face_00.bmp",37,540

mov %mylv_sin,%mylv
if %player=0 gosub *maxhp
if %player=1 mov %max_mylife,32000
if %player=99 gosub *maxhp
mov %mylife,%max_mylife
if %mon_labo_on=1 getini $sub7,$mon_labo_mon_ini,"ruka","hp_minus":atoi %sub7,$sub7:sub %mylife,%sub7
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
csp 3

if %no_heal<1 || %nanido<2 skip 13
mov %mylife,%mylife_lastfight
mov %mp,%max_mp
if %nanido=2 mov %mp,%mp_lastfight
mov %wind,%wind_lastfight
mov %earth,%earth_lastfight
mov %aqua,%aqua_lastfight
mov %fire,%fire_lastfight
mov %wind_turn,%windturn_lastfight
mov %earth_turn,%earthturn_lastfight
mov %aqua_turn,%aquaturn_lastfight
mov %fire_turn,%fireturn_lastfight
gosub *elm_print

gosub *hp
gosub *mp

mov $sel6,$name+" appears!"
``$sel6

mov %enemylife,%max_enemylife
wait 1000
delay 4500
>\
if %music<>%nowmusic gosub *musicplay
gosub *syokika
return



*syutugen_plural

wait 500
saveoff
bgmstop
bgmonce"bgm\battlestart.ogg"

mov %enemy_wind,0:mov %enemy_earth,0:mov %enemy_aqua,0:mov %enemy_fire,0:mov %enemy_holy,0:mov %enemy_windturn,0:mov %enemy_fireturn,0:mov %enemy_aquaturn,0:mov %enemy_earthturn,0:mov %enemy_holyturn,0:gosub *elm_print
if %mon_labo_on=0 mov $ori_name,"Luka":mov %player,0:skip 3
if %mon_labo_on=1 && $ori_name="" mov $ori_name,"Luka":mov %player,0:skip 2
if %mon_labo_on=1 && $ori_name<>"" mov %player,99

gosub *setwindow_02
cspl 592,595
cspl 699,705
if %mon_labo_on=1 && %chara_ori=1 lsp 700,":a;"+$mon_labo_mon_folder+"\"+$tatie1,%monster_x,%monster_y:skip 2
lsp 700,":a;chara\"+$tatie1+".bmp",%monster_x,%monster_y

if %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,500:skip 2
if %SQ2!=1 bg "BG\"+$haikei+".bmp",10,500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,500

lsp 561,":a;system\gagee100.bmp",421,556
if %player=0 lsp 598,":a;system\face_00.bmp",34,534
if %player=1 lsp 598,":a;system\face_a00.bmp",37,540
if %player=2 lsp 598,":a;2Q\face_00.bmp",37,540
if %player=99 lsp 598,":a;system\face_x00.bmp",37,540

mov %mylv_sin,%mylv
if %player=0 gosub *maxhp
if %player=1 mov %max_mylife,32000
if %player=99 gosub *maxhp
mov %mylife,%max_mylife
if %mon_labo_on=1 getini $sub7,$mon_labo_mon_ini,"ruka","hp_minus":atoi %sub7,$sub7:sub %mylife,%sub7
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
csp 3
gosub *hp
gosub *mp
mov $sel6,$name+" appear!"
``$sel6\

mov %enemylife,%max_enemylife
wait 1000
delay 4500
if %music<>%nowmusic gosub *musicplay
gosub *syokika
\
return

*syutugen2_alice

saveoff
if %music<>%nowmusic gosub *musicplay

mov %player,1

gosub *setwindow_02
cspl 592,595
if %mon_labo_on=1 && %chara_ori=1 lsp 700,":a;"+$mon_labo_mon_folder+"\"+$tatie1,%monster_x,%monster_y:skip 2
lsp 700,":a;chara\"+$tatie1+".bmp",%monster_x,%monster_y
if %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,500:skip 2
if %SQ2!=1 bg "BG\"+$haikei+".bmp",10,500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,500

lsp 560,":a;system\gager100.bmp",114,556
lsp 561,":a;system\gagee100.bmp",421,556
if %player=0 lsp 598,":a;system\face_00.bmp",34,534
if %player=1 lsp 598,":a;system\face_a00.bmp",37,540
if %player=2 lsp 598,":a;2Q\face_00.bmp",37,540
if %player=99 lsp 598,":a;system\face_x00.bmp",37,540

mov %mylv_sin,%mylv
if %player=0 gosub *maxhp
if %player=1 mov %max_mylife,32000
if %player=99 gosub *maxhp
mov %mylife,%max_mylife
if %mon_labo_on=1 getini $sub7,$mon_labo_mon_ini,"ruka","hp_minus":atoi %sub7,$sub7:sub %mylife,%sub7
gosub *hp
gosub *mp

mov %enemylife,%max_enemylife

gosub *syokika
return


*syutugen2_multiple

;bugfix
csp 2
csp2 2
print 10,1

;chrome
mov %potion,-1
mov %potion_turn,-1

mov %target_all,0
mov %enemy_target,0
mov %surrender,0
mov %no_hit,0
gosub *hanyo_reset
gosub *status_reset
mov %used_daystar,0
mov %enemy_spiritcount,0
mov %luka_maxturn,1
gosub *support
saveoff
mov %saveoff,1
if %music<>%nowmusic gosub *musicplay

if %alice_fight>0 mov %alicesup,1:mov %support,1
if %knight_fight>0 mov %knightsup,1:mov %support,1	
if %party1_fight>0 mov %party1sup,1:mov %support,1	
if %party2_fight>0 mov %party2sup,1:mov %support,1	
if %guest1_fight>0 mov %guest1sup,1:mov %support,1	
if %guest2_fight>0 mov %guest2sup,1:mov %support,1	

name ""
mov %enemy_wind,0:mov %enemy_earth,0:mov %enemy_aqua,0:mov %enemy_fire,0:mov %enemy_holy,0:mov %enemy_windturn,0:mov %enemy_fireturn,0:mov %enemy_aquaturn,0:mov %enemy_earthturn,0:mov %enemy_holyturn,0
mov %enemy1_wind,0:mov %enemy1_earth,0:mov %enemy1_aqua,0:mov %enemy1_fire,0:mov %enemy1_holy,0:mov %enemy1_windturn,0:mov %enemy1_fireturn,0:mov %enemy1_aquaturn,0:mov %enemy1_earthturn,0:mov %enemy1_holyturn,0
mov %enemy2_wind,0:mov %enemy2_earth,0:mov %enemy2_aqua,0:mov %enemy2_fire,0:mov %enemy2_holy,0:mov %enemy2_windturn,0:mov %enemy2_fireturn,0:mov %enemy2_aquaturn,0:mov %enemy2_earthturn,0:mov %enemy2_holyturn,0
mov %enemy3_wind,0:mov %enemy3_earth,0:mov %enemy3_aqua,0:mov %enemy3_fire,0:mov %enemy3_holy,0:mov %enemy3_windturn,0:mov %enemy3_fireturn,0:mov %enemy3_aquaturn,0:mov %enemy3_earthturn,0:mov %enemy3_holyturn,0
mov %enemy4_wind,0:mov %enemy4_earth,0:mov %enemy4_aqua,0:mov %enemy4_fire,0:mov %enemy4_holy,0:mov %enemy4_windturn,0:mov %enemy4_fireturn,0:mov %enemy4_aquaturn,0:mov %enemy4_earthturn,0:mov %enemy4_holyturn,0
mov %enemy5_wind,0:mov %enemy5_earth,0:mov %enemy5_aqua,0:mov %enemy5_fire,0:mov %enemy5_holy,0:mov %enemy5_windturn,0:mov %enemy5_fireturn,0:mov %enemy5_aquaturn,0:mov %enemy5_earthturn,0:mov %enemy5_holyturn,0
mov %enemy6_wind,0:mov %enemy6_earth,0:mov %enemy6_aqua,0:mov %enemy6_fire,0:mov %enemy6_holy,0:mov %enemy6_windturn,0:mov %enemy6_fireturn,0:mov %enemy6_aquaturn,0:mov %enemy6_earthturn,0:mov %enemy6_holyturn,0
mov %enemy7_wind,0:mov %enemy7_earth,0:mov %enemy7_aqua,0:mov %enemy7_fire,0:mov %enemy7_holy,0:mov %enemy7_windturn,0:mov %enemy7_fireturn,0:mov %enemy7_aquaturn,0:mov %enemy7_earthturn,0:mov %enemy7_holyturn,0
mov %enemy8_wind,0:mov %enemy8_earth,0:mov %enemy8_aqua,0:mov %enemy8_fire,0:mov %enemy8_holy,0:mov %enemy8_windturn,0:mov %enemy8_fireturn,0:mov %enemy8_aquaturn,0:mov %enemy8_earthturn,0:mov %enemy8_holyturn,0
mov %enemy9_wind,0:mov %enemy9_earth,0:mov %enemy9_aqua,0:mov %enemy9_fire,0:mov %enemy9_holy,0:mov %enemy9_windturn,0:mov %enemy9_fireturn,0:mov %enemy9_aquaturn,0:mov %enemy9_earthturn,0:mov %enemy9_holyturn,0

gosub *elm_print
if %mon_labo_on=0 mov $ori_name,"Luka":mov %player,0:skip 3
if %mon_labo_on=1 && $ori_name="" mov $ori_name,"Luka":mov %player,0:skip 2
if %mon_labo_on=1 && $ori_name<>"" mov %player,99

gosub *setwindow_02
cspl 592,595
cspl 699,705
if %mon_labo_on=1 && %chara_ori=1 lsp 700,":a;"+$mon_labo_mon_folder+"\"+$tatie1,%monster_x,%monster_y:skip 2

if %enemy_num>1 && %SQ!=1 lsp 700,":a;chara\"+$tatie11+".bmp",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=1 lsp 700,":a;2Q\chara\"+$tatie11+".png",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ!=1 lsp 701,":a;chara\"+$tatie21+".bmp",%monster2_x,%monster2_y
if %enemy_num>1 && %SQ=1 lsp 701,":a;2Q\chara\"+$tatie21+".png",%monster2_x,%monster2_y
if %enemy_num>2 && %SQ!=1 lsp 702,":a;chara\"+$tatie31+".bmp",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=1 lsp 702,":a;2Q\chara\"+$tatie31+".png",%monster3_x,%monster3_y
if %enemy_num>3 && %SQ!=1 lsp 703,":a;chara\"+$tatie41+".bmp",%monster4_x,%monster4_y
if %enemy_num>3 && %SQ=1 lsp 703,":a;2Q\chara\"+$tatie41+".png",%monster4_x,%monster4_y
if %enemy_num>4 && %SQ!=1 lsp 704,":a;chara\"+$tatie51+".bmp",%monster5_x,%monster5_y
if %enemy_num>4 && %SQ=1 lsp 704,":a;2Q\chara\"+$tatie51+".png",%monster5_x,%monster5_y
if %enemy_num>5 && %SQ!=1 lsp 705,":a;chara\"+$tatie61+".bmp",%monster6_x,%monster6_y
if %enemy_num>5 && %SQ=1 lsp 705,":a;2Q\chara\"+$tatie61+".png",%monster6_x,%monster6_y
if %enemy_num>6 && %SQ!=1 lsp 706,":a;chara\"+$tatie71+".bmp",%monster7_x,%monster7_y
if %enemy_num>6 && %SQ=1 lsp 706,":a;2Q\chara\"+$tatie71+".png",%monster7_x,%monster7_y
if %enemy_num>7 && %SQ!=1 lsp 707,":a;chara\"+$tatie81+".bmp",%monster8_x,%monster8_y
if %enemy_num>7 && %SQ=1 lsp 707,":a;2Q\chara\"+$tatie81+".png",%monster8_x,%monster8_y


if %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,500:skip 2

if %SQ2!=1 bg "BG\"+$haikei+".bmp",10,500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,500

lsp 560,":a;system\gager100.bmp",114,556
lsp 561,":a;system\gagee100.bmp",421,556
csp 3
if %player=0 lsp 598,":a;system\face_00.bmp",34,534
if %player=1 lsp 598,":a;system\face_a00.bmp",37,540
if %player=2 lsp 598,":a;2Q\face_00.bmp",37,540
if %player=99 lsp 598,":a;system\face_x00.bmp",37,540

mov %mylv_sin,%mylv
if %player=0 gosub *maxhp
if %player=1 mov %max_mylife,32000
if %player=2 mov %max_mylife,24000
if %player=99 gosub *maxhp
mov %mylife,%max_mylife
if %mon_labo_on=1 getini $sub7,$mon_labo_mon_ini,"ruka","hp_minus":atoi %sub7,$sub7:sub %mylife,%sub7
gosub *hp
gosub *mp
gosub *elm_print

if %enemy_num>1 mov %enemy1life,%max_enemy1life
if %enemy_num>1 mov %enemy2life,%max_enemy2life
if %enemy_num>2 mov %enemy3life,%max_enemy3life
if %enemy_num>3 mov %enemy4life,%max_enemy4life
if %enemy_num>4 mov %enemy5life,%max_enemy5life
if %enemy_num>5 mov %enemy6life,%max_enemy6life
if %enemy_num>6 mov %enemy7life,%max_enemy7life
if %enemy_num>7 mov %enemy8life,%max_enemy8life

mov %max_enemylife,0
if %enemy_num>1 mov %max_enemylife,%max_enemylife+%max_enemy1life
if %enemy_num>1 mov %max_enemylife,%max_enemylife+%max_enemy2life
if %enemy_num>2 mov %max_enemylife,%max_enemylife+%max_enemy3life
if %enemy_num>3 mov %max_enemylife,%max_enemylife+%max_enemy4life
if %enemy_num>4 mov %max_enemylife,%max_enemylife+%max_enemy5life
if %enemy_num>5 mov %max_enemylife,%max_enemylife+%max_enemy6life
if %enemy_num>6 mov %max_enemylife,%max_enemylife+%max_enemy7life
if %enemy_num>7 mov %max_enemylife,%max_enemylife+%max_enemy8life

mov %enemylife,%max_enemylife

gosub *syokika
return

*status_reset

mov %poison,-1
mov %burn_turn,-1
mov %burn_turn1,-1
mov %burn_turn2,-1
mov %burn_turn3,-1
mov %burn_turn4,-1
mov %burn_turn5,-1
mov %burn_turn6,-1
mov %burn_turn7,-1
mov %burn_turn8,-1
mov %burn_turn9,-1
mov %freeze_turn,-1
mov %freeze_turn1,-1
mov %freeze_turn2,-1
mov %freeze_turn3,-1
mov %freeze_turn4,-1
mov %freeze_turn5,-1
mov %freeze_turn6,-1
mov %freeze_turn7,-1
mov %freeze_turn8,-1
mov %freeze_turn9,-1
mov %zylphe_turn,-1
mov %gnomaren_turn,-1
mov %whitewind_turn,-1
mov %brace_turn,-1
mov %strength_turn,-1
mov %unpentagram_turn,-1
mov %erpentagram_turn,-1
mov %enrage_turn,-1
mov %burn_turn,-1
mov %blackwind_turn,-1
mov %waterwall_turn,-1
mov %titanguard_turn,-1
mov %seduce_turn,-1
mov %seduce_turn1,-1
mov %seduce_turn2,-1
mov %seduce_turn3,-1
mov %seduce_turn4,-1
mov %seduce_turn5,-1
mov %seduce_turn6,-1
mov %seduce_turn7,-1
mov %seduce_turn8,-1
mov %seduce_turn9,-1
mov %erbind_turn,-1
mov %erbind_turn1,-1
mov %erbind_turn2,-1
mov %erbind_turn3,-1
mov %erbind_turn4,-1
mov %erbind_turn5,-1
mov %erbind_turn6,-1
mov %erbind_turn7,-1
mov %erbind_turn8,-1
mov %erbind_turn9,-1
mov %gnomaren,-1
mov %gnomaren_turn,-1
mov %zylphe,-1
mov %zylphe_turn,-1
return

*syutugen2

;bugfix
csp 2
csp2 2
print 10,1
mov %enemy_num,1
mov %enemy_target,0
mov $tatie11,""
mov $tatie12,""
mov $tatie13,""
mov $tatie14,""
mov $tatie21,""
mov $tatie22,""
mov $tatie23,""
mov $tatie24,""
mov $tatie31,""
mov $tatie32,""
mov $tatie33,""
mov $tatie34,""
mov $tatie41,""
mov $tatie42,""
mov $tatie43,""
mov $tatie44,""
mov $tatie51,""
mov $tatie52,""
mov $tatie53,""
mov $tatie54,""
mov $tatie61,""
mov $tatie62,""
mov $tatie63,""
mov $tatie64,""
mov $tatie71,""
mov $tatie72,""
mov $tatie73,""
mov $tatie74,""
mov $tatie81,""
mov $tatie82,""
mov $tatie83,""
mov $tatie84,""

;chrome
mov %potion,-1
mov %potion_turn,-1

;spirits
mov %gnome_buff,%gnome_rep/2
mov %sylph_buff,%sylph_rep/2
mov %undine_buff,%undine_rep/2
mov %salamander_buff,%salamander_rep/2

mov %surrender,0
mov %no_hit,0
gosub *hanyo_reset
gosub *status_reset
mov %aqua_end,0
mov %used_daystar,0
mov %daten,0
mov %enemy_spiritcount,0
mov %luka_maxturn,1
gosub *support
saveoff
mov %saveoff,1
if %music<>%nowmusic gosub *musicplay

if %alice_fight>0 mov %alicesup,1:mov %support,1	
if %knight_fight>0 mov %knightsup,1:mov %support,1	
if %party1_fight>0 mov %party1sup,1:mov %support,1	
if %party2_fight>0 mov %party2sup,1:mov %support,1	
if %guest1_fight>0 mov %guest1sup,1:mov %support,1	
if %guest2_fight>0 mov %guest2sup,1:mov %support,1	

name ""
mov %enemy_wind,0:mov %enemy_earth,0:mov %enemy_aqua,0:mov %enemy_fire,0:mov %enemy_holy,0:mov %enemy_windturn,0:mov %enemy_fireturn,0:mov %enemy_aquaturn,0:mov %enemy_earthturn,0:mov %enemy_holyturn,0:gosub *elm_print
if %mon_labo_on=0 mov $ori_name,"Luka":mov %player,0:skip 3
if %mon_labo_on=1 && $ori_name="" mov $ori_name,"Luka":mov %player,0:skip 2
if %mon_labo_on=1 && $ori_name<>"" mov %player,99

gosub *setwindow_02
cspl 592,595
cspl 699,705
if %mon_labo_on=1 && %chara_ori=1 lsp 700,":a;"+$mon_labo_mon_folder+"\"+$tatie1,%monster_x,%monster_y:skip 2
if %SQ!=1 lsp 700,":a;chara\"+$tatie1+".bmp",%monster_x,%monster_y
if %SQ=1 lsp 700,":a;2Q\chara\"+$tatie1+".png",%monster_x,%monster_y
if %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,500:skip 2
if %SQ2!=1 bg "BG\"+$haikei+".bmp",10,500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,500

lsp 560,":a;system\gager100.bmp",114,556
lsp 561,":a;system\gagee100.bmp",421,556
if %player=0 lsp 598,":a;system\face_00.bmp",34,534
if %player=1 lsp 598,":a;system\face_a00.bmp",37,540
if %player=2 lsp 598,":a;2Q\face_00.bmp",37,540
if %player=99 lsp 598,":a;system\face_x00.bmp",37,540
csp 3

mov %mylv_sin,%mylv
if %player=0 gosub *maxhp
if %player=1 mov %max_mylife,32000
if %player=2 mov %max_mylife,24000
if %player=99 gosub *maxhp
mov %mylife,%max_mylife
if %mon_labo_on=1 getini $sub7,$mon_labo_mon_ini,"ruka","hp_minus":atoi %sub7,$sub7:sub %mylife,%sub7
gosub *hp
gosub *mp
gosub *elm_print
;if %nanido=1 mov %max_enemylife,%max_enemylife*75/100
;if %nanido=2 mov %max_enemylife,%max_enemylife*100/100
;if %nanido=3 mov %max_enemylife,%max_enemylife*125/100
;if %nanido=4 mov %max_enemylife,%max_enemylife*200/100
mov %enemylife,%max_enemylife

gosub *syokika
return


*syutugen2x

;bugfix
csp 2
csp2 2
print 10,1

;chrome
mov %potion,-1
mov %potion_turn,-1

gosub *hanyo_reset
gosub *status_reset
mov %used_daystar,0
mov %luka_maxturn,1
mov %enemy_spiritcount,0
gosub *support
saveoff
mov %saveoff,1
if %music<>%nowmusic gosub *musicplay

name ""
mov %enemy_wind,0:mov %enemy_earth,0:mov %enemy_aqua,0:mov %enemy_fire,0:mov %enemy_holy,0:mov %enemy_windturn,0:mov %enemy_fireturn,0:mov %enemy_aquaturn,0:mov %enemy_earthturn,0:mov %enemy_holyturn,0:gosub *elm_print
if %mon_labo_on=0 mov $ori_name,"Luka":mov %player,0:skip 3
if %mon_labo_on=1 && $ori_name="" mov $ori_name,"Luka":mov %player,0:skip 2
if %mon_labo_on=1 && $ori_name<>"" mov %player,99

gosub *setwindow_02
cspl 592,595
cspl 699,705
if %mon_labo_on=1 && %chara_ori=1 lsp 700,":a;"+$mon_labo_mon_folder+"\"+$tatie1,%monster_x,%monster_y:skip 2
if %SQ!=1 lsp 700,":a;chara\"+$tatie1+".bmp",%monster_x,%monster_y
if %SQ=1 lsp 700,":a;2Q\chara\"+$tatie1+".png",%monster_x,%monster_y
if %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,500:skip 2
if %SQ2!=1 bg "BG\"+$haikei+".bmp",10,500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,500

lsp 560,":a;system\gager100.bmp",114,556
lsp 561,":a;system\gagee100.bmp",421,556
if %player=0 lsp 598,":a;system\face_00.bmp",34,534
if %player=1 lsp 598,":a;system\face_a00.bmp",37,540
if %player=2 lsp 598,":a;2Q\face_00.bmp",37,540
if %player=99 lsp 598,":a;system\face_x00.bmp",37,540

mov %mylv_sin,%mylv
if %player=0 gosub *maxhp
if %player=1 mov %max_mylife,32000
if %player=2 mov %max_mylife,24000
if %player=99 gosub *maxhp
mov %mylife,$mylife
if %mon_labo_on=1 getini $sub7,$mon_labo_mon_ini,"ruka","hp_minus":atoi %sub7,$sub7:sub %mylife,%sub7
gosub *hp
gosub *mp
gosub *elm_print
;if %nanido=1 mov %max_enemylife,%max_enemylife*75/100
;if %nanido=2 mov %max_enemylife,%max_enemylife*100/100
;if %nanido=3 mov %max_enemylife,%max_enemylife*125/100
;if %nanido=4 mov %max_enemylife,%max_enemylife*200/100
mov %enemylife,%max_enemylife

gosub *syokika
return


*syutugen_doppel

wait 500
saveoff
bgmstop
bgmonce"bgm\battlestart.ogg"

if %mon_labo_on=0 mov $ori_name,"Luka":mov %player,0:skip 3
if %mon_labo_on=1 && $ori_name="" mov $ori_name,"Luka":mov %player,0:skip 2
if %mon_labo_on=1 && $ori_name<>"" mov %player,99

gosub *setwindow_02
cspl 592,595
if %mon_labo_on=1 && %chara_ori=1 lsp 700,":a;"+$mon_labo_mon_folder+"\"+$tatie1,%monster_x,%monster_y:skip 2
lsp 700,"Doppel/doppelstand.png",%monster_x,%monster_y

if %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,500:skip 2
if %SQ2!=1 bg "BG\"+$haikei+".bmp",10,500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,500

lsp 561,":a;system\gagee100.bmp",421,556
if %player=0 lsp 598,":a;system\face_00.bmp",34,534
if %player=1 lsp 598,":a;system\face_a00.bmp",37,540
if %player=2 lsp 598,":a;2Q\face_00.bmp",37,540
if %player=99 lsp 598,":a;system\face_x00.bmp",37,540

mov %mylv_sin,%mylv
if %player=0 gosub *maxhp
if %player=1 mov %max_mylife,32000
if %player=99 gosub *maxhp
mov %mylife,%max_mylife
if %mon_labo_on=1 getini $sub7,$mon_labo_mon_ini,"ruka","hp_minus":atoi %sub7,$sub7:sub %mylife,%sub7
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
gosub *mp
mov $sel6,$name+" appears!"
``$sel6\

mov %max_enemylife,1600
mov %enemylife,%max_enemylife

wait 1000
delay 4500
bgm"Doppel\doppel.ogg"
gosub *syokika
\
return


*musicplay

if %music=1 bgm"bgm\battle.ogg"
if %music=2 bgm"bgm\boss1.ogg"
if %music=3 bgm"2Q\bgmfix\boss2.ogg"
if %music=4 bgm"bgm\sitenno.ogg"
if %music=5 bgm"bgm\maou.ogg"
if %music=6 bgm"bgm\comi1.ogg"
if %music=7 bgm"bgm\ruka.ogg"
if %music=8 bgm"bgm\boss3.ogg"
if %music=9 bgm"bgm\boss4.ogg"
if %music=10 bgm"bgm\yonseirei.ogg"
if %music=11 bgm"bgm\yonseirei2.ogg"
if %music=12 bgm"2Q\bgmfix\tamamo.ogg"
if %music=13 bgm"bgm\boss0.ogg"
if %music=14 bgm"bgm\eden.ogg"
if %music=15 bgm"bgm\stein2.ogg"
if %music=16 bgm"bgm\maou3.ogg"
if %music=17 bgm"bgm\maou4.ogg"
if %music=18 bgm"bgm\irias2.ogg"
if %music=19 bgm"bgm\irias3.ogg"
if %music=99 mov $sub1,$mon_labo_mon_folder:add $sub1,$tuika_bgm:bgm $sub1
if %music=20 bgm "2Q\bgm\boss.ogg"
if %music=21 bgm "2Q\bgm\boss2.ogg"
if %music=22 bgm "2Q\bgm\boss3.ogg"
if %music=23 bgm "2Q\bgm\boss4.ogg"
if %music=24 bgm "2Q\bgm\granberia.ogg"
if %music=25 bgm "2Q\bgm\granberia2.ogg"
if %music=26 bgm "2Q\bgm\tamamo.ogg"
if %music=27 bgm "2Q\bgm\spirits.ogg"
if %music=28 bgm "2Q\bgm\alma.ogg"
if %music=29 bgm "2Q\bgm\erubetie.ogg"
if %music=30 bgm "2Q\bgm\tamamo2.ogg"
if %music=31 bgm "2Q\bgm\alice.ogg"
if %music=32 bgm "2Q\bgm\ilias.ogg"
if %music=33 bgm "2Q\bgm\ancestor.ogg"
if %music=34 bgm "2Q\bgm\lastboss.ogg"
if %music=35 bgm "2Q\bgm\spirits2.ogg"
if %music=36 bgm "2Q\bgm\boss5.ogg"
if %music=100 bgm "bgm\amira.ogg"
return


*cmd_main;

saveoff
textoff
csp 3:csp 4:csp 5:csp 6:csp 7:print 1
btndef clear
mov %sinkoumode,0 : skipoff : autoclick 0
gosub *setwindow_04
if %stopcmd1=0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Attack",50,418:spbtn 601,11
if %stopcmd1=1 lsp 601,":s/20,20,0;#bbbbbbAttack",50,418
if %stopcmd7=0 && %kousoku=0 lsp 607,":s/20,20,0;#FFFFFF#FF4444Skill",50,445:spbtn 607,17
if %stopcmd7=0 && %kousoku>0 lsp 607,":s/20,20,0;#bbbbbbSkill",50,445
if %stopcmd7=1 lsp 607,":s/20,20,0;#bbbbbbSkill",50,445
if %stopcmd2=0 && %kousoku>0 lsp 602,":s/20,20,0;#FFFFFF#FF4444Struggle",50,472:spbtn 602,12
if %stopcmd2=0 && %kousoku=0 lsp 602,":s/20,20,0;#bbbbbbStruggle",50,472
if %stopcmd2=1 lsp 602,":s/20,20,0;#bbbbbbStruggle",50,472
if %stopcmd3=0 && %kousoku=0 lsp 603,":s/20,20,0;#FFFFFF#FF4444Guard",50,499:spbtn 603,13
if %stopcmd3=0 && %kousoku>0 lsp 603,":s/20,20,0;#bbbbbbGuard",50,499
if %stopcmd3=1 lsp 603,":s/20,20,0;#bbbbbbGuard",50,499
if %stopcmd4=0 lsp 604,":s/20,20,0;#FFFFFF#FF4444Wait",285,418:spbtn 604,14
if %stopcmd4=1 lsp 604,":s/20,20,0;#bbbbbbWait",285,418
if %stopcmd5=0 lsp 605,":s/20,20,0;#FFFFFF#FF4444Surrender",285,445:spbtn 605,15
if %stopcmd5=1 lsp 605,":s/20,20,0;#bbbbbbSurrender",285,445
skip 3
if %stopcmd6=0 lsp 606,":s/20,20,0;#FFFFFF#FF4444Request",285,472:spbtn 606,16
if %stopcmd6=1 lsp 606,":s/20,20,0;#bbbbbbRequest",285,472
if %alice_skill=1 && %kousoku=0 lsp 608,":s/20,20,0;#FFFFFF#FF4444Alice",285,499:spbtn 608,18
if %alice_skill=1 && %kousoku>0 lsp 608,":s/20,20,0;#bbbbbbAlice",285,499
if %support>0 && %support_turn<1 && %wind!=5 lsp 608,":s/20,20,0;#FFFFFF#FF4444Party",285,499:spbtn 608,19
if %wind=5 skip 2
if %support>0 && %support_turn>0 lsp 608,":s/20,20,0;#bbbbbbParty",285,499
if %support>0 && %wind=5 lsp 608,":s/20,20,0;#bbbbbbParty",285,499

*cmd_main2

btnwait2 %cmd1
if %mon_labo_on=1 && %cmd1=4 textoff: screen_clear: return *monster_labo
if %zukanon>0 && %cmd1=4 textoff:return *zukan_commonkaisou0
if %cmd1=3 mov %saveorload,0:gosub *saveload:goto *cmd_main
if %cmd1=4 mov %saveorload,1:gosub *saveload:goto *cmd_main
if %cmd1=7 gosub *window_delete2:goto *cmd_main
if %cmd1=0 goto *cmd_main2
if %cmd1=-1 && %mon_labo_on=0 gosub *menu:goto *cmd_main	;?????
if %cmd1=-10 && %mon_labo_on=0 gosub *menu:goto *cmd_main	;ESC??
if %cmd1=-11 && %mon_labo_on=0 gosub *menu:goto *cmd_main	;??????
if %cmd1=-2 cspl 601,610:print 1 : gosub *backlog:goto *cmd_main
if %cmd1<=-1 goto *cmd_main2
csp 3:csp 4:csp 7
csp 601:csp 602:csp 603:csp 604:csp 605:csp 606:csp 607:csp 608
gosub *setwindow_02p
texton
btndef clear
return



*cmd_hanyo

saveoff
textoff
csp 3:csp 4:csp 5:csp 6:csp 7:print 1
btndef clear
mov %sinkoumode,0 : skipoff : autoclick 0
gosub *setwindow_04
lsp 601,":s/20,20,0;#FFFFFF#FF4444"+$hanlist1,50,418
spbtn 601,11
if $hanlist2="" goto *cmd_hanyo2
lsp 602,":s/20,20,0;#FFFFFF#FF4444"+$hanlist2,50,445
spbtn 602,12
if $hanlist3="" goto *cmd_hanyo2
lsp 603,":s/20,20,0;#FFFFFF#FF4444"+$hanlist3,50,472
spbtn 603,13
if $hanlist4="" goto *cmd_hanyo2
lsp 604,":s/20,20,0;#FFFFFF#FF4444"+$hanlist4,50,499
spbtn 604,14
if $hanlist5="" goto *cmd_hanyo2
lsp 605,":s/20,20,0;#FFFFFF#FF4444"+$hanlist5,350,418
spbtn 605,15
if $hanlist6="" goto *cmd_hanyo2
lsp 606,":s/20,20,0;#FFFFFF#FF4444"+$hanlist6,350,445
spbtn 606,16
if $hanlist7="" goto *cmd_hanyo2
lsp 607,":s/20,20,0;#FFFFFF#FF4444"+$hanlist7,350,472
spbtn 607,17
if $hanlist8="" goto *cmd_hanyo2
lsp 608,":s/20,20,0;#FFFFFF#FF4444"+$hanlist8,350,599
spbtn 608,18
goto *cmd_hanyo2


*cmd_hanyo2

btnwait2 %cmd1
if %mon_labo_on=1 && %cmd1=4 textoff: screen_clear: return *monster_labo
if %zukanon>0 && %cmd1=4 textoff:return *zukan_commonkaisou0
if %cmd1=3 mov %saveorload,0:gosub *saveload:goto *cmd_hanyo
if %cmd1=4 mov %saveorload,1:gosub *saveload:goto *cmd_hanyo
if %cmd1=7 gosub *window_delete2:goto *cmd_hanyo
if %cmd1=0 goto *cmd_hanyo2
if %cmd1<=-2 goto *cmd_hanyo2
csp 3:csp 4:csp 7
csp 601:csp 602:csp 603:csp 604:csp 605:csp 606:csp 607:csp 608
gosub *setwindow_02p
texton
btndef clear
return



*cmd_onedari

saveoff
textoff
cspl 3,7:print 1
btndef clear
mov %onedari_page,1
mov %sinkoumode,0 : skipoff : autoclick 0
gosub *setwindow_04

if %list_num1=1 lsp 501,":s/20,20,0;#FFFFFF#FF4444"+$list1,50,418:spbtn 501,11
if %list_num1=0 lsp 501,":s/20,20,0;#bbbbbb"+$list1,50,418

if %list_num2=1 lsp 502,":s/20,20,0;#FFFFFF#FF4444"+$list2,50,445:spbtn 502,12
if %list_num2=0 lsp 502,":s/20,20,0;#bbbbbb"+$list2,50,445

if %list_num3=1 lsp 503,":s/20,20,0;#FFFFFF#FF4444"+$list3,50,472:spbtn 503,13
if %list_num3=0 lsp 503,":s/20,20,0;#bbbbbb"+$list3,50,472

if %list_num4=1 lsp 504,":s/20,20,0;#FFFFFF#FF4444"+$list4,50,499:spbtn 504,14
if %list_num4=0 lsp 504,":s/20,20,0;#bbbbbb"+$list4,50,499

if %list_num5=1 lsp 505,":s/20,20,0;#FFFFFF#FF4444"+$list5,380,418:spbtn 505,15
if %list_num5=0 lsp 505,":s/20,20,0;#bbbbbb"+$list5,380,418

if %list_num6=1 lsp 506,":s/20,20,0;#FFFFFF#FF4444"+$list6,380,445:spbtn 506,16
if %list_num6=0 lsp 506,":s/20,20,0;#bbbbbb"+$list6,380,445

if %list_num7=1 lsp 507,":s/20,20,0;#FFFFFF#FF4444"+$list7,380,472:spbtn 507,17
if %list_num7=0 lsp 507,":s/20,20,0;#bbbbbb"+$list7,380,472

if %list_num8=1 lsp 508,":s/20,20,0;#FFFFFF#FF4444"+$list8,380,499:spbtn 508,18
if %list_num8=0 lsp 508,":s/20,20,0;#bbbbbb"+$list8,380,499

notif $list9="" lsp 509,":c/2,0,3;system\menu_prev.jpg",32,515:spbtn 509,27
notif $list9="" lsp 510,":c/2,0,3;system\menu_next.jpg",748,515:spbtn 510,28

goto *cmd_onedari2



*cmd_onedarib

saveoff
textoff
cspl 3,7:print 1
btndef clear
mov %onedari_page,2
mov %sinkoumode,0 : skipoff : autoclick 0
gosub *setwindow_04

lsp 509,":c/2,0,3;system\menu_prev.jpg",32,515:spbtn 509,27
lsp 510,":c/2,0,3;system\menu_next.jpg",748,515:spbtn 510,28

if %list_num9=1 lsp 501,":s/20,20,0;#FFFFFF#FF4444"+$list9,50,418:spbtn 501,19
if %list_num9=0 lsp 501,":s/20,20,0;#bbbbbb"+$list9,50,418

if %list_num10=1 lsp 502,":s/20,20,0;#FFFFFF#FF4444"+$list10,50,445:spbtn 502,20
if %list_num10=0 lsp 502,":s/20,20,0;#bbbbbb"+$list10,50,445

if %list_num11=1 lsp 503,":s/20,20,0;#FFFFFF#FF4444"+$list11,50,472:spbtn 503,21
if %list_num11=0 lsp 503,":s/20,20,0;#bbbbbb"+$list11,50,472

if %list_num12=1 lsp 504,":s/20,20,0;#FFFFFF#FF4444"+$list12,50,499:spbtn 504,22
if %list_num12=0 lsp 504,":s/20,20,0;#bbbbbb"+$list12,50,499

if %list_num13=1 lsp 505,":s/20,20,0;#FFFFFF#FF4444"+$list13,380,418:spbtn 505,23
if %list_num13=0 lsp 505,":s/20,20,0;#bbbbbb"+$list13,380,418

if %list_num14=1 lsp 506,":s/20,20,0;#FFFFFF#FF4444"+$list14,380,445:spbtn 506,24
if %list_num14=0 lsp 506,":s/20,20,0;#bbbbbb"+$list14,380,445

if %list_num15=1 lsp 507,":s/20,20,0;#FFFFFF#FF4444"+$list15,380,472:spbtn 507,25
if %list_num15=0 lsp 507,":s/20,20,0;#bbbbbb"+$list15,380,472

if %list_num16=1 lsp 508,":s/20,20,0;#FFFFFF#FF4444"+$list16,380,499:spbtn 508,26
if %list_num16=0 lsp 508,":s/20,20,0;#bbbbbb"+$list16,380,499

goto *cmd_onedari2



*cmd_onedari2

btnwait2 %cmd1
if %mon_labo_on=1 && %cmd1=4 textoff: screen_clear: return *monster_labo
if %zukanon>0 && %cmd1=4 textoff:return *zukan_commonkaisou0
if %cmd1=3 mov %saveorload,0:gosub *saveload:goto *cmd_onedari
if %cmd1=4 mov %saveorload,1:gosub *saveload:goto *cmd_onedari
if %cmd1=7 gosub *window_delete2:goto *cmd_onedari
if %cmd1=0 goto *cmd_onedari2
if %cmd1<=-2 goto *cmd_onedari2
if %cmd1=27 && %onedari_page=1 goto *cmd_onedarib
if %cmd1=27 && %onedari_page=2 goto *cmd_onedari
if %cmd1=28 && %onedari_page=1 goto *cmd_onedarib
if %cmd1=28 && %onedari_page=2 goto *cmd_onedari
csp 3:csp 4:csp 7
cspl 501,512
gosub *setwindow_02p
texton
btndef clear
return



*mp

cspl 571,584
if %mp<0 mov %mp,0
itoa $mp,%mp
if %mp<%max_mp || %mp=%max_mp lsp 571,":s/16,16,0;#FFFFFF"+$mp,140,574:print 1
if %mp>%max_mp lsp 571,":s/16,16,0;#FFCC11"+$mp,140,574:print 1
return


*mp_kaihuku

if %skill01=0 return
mov %mp,%mp+1
if %mp>%max_mp mov %mp,%max_mp
return


*orbcount_fix

if %banditcave>0 mov %red_orb,1
if %pyramid>0 mov %yellow_orb,1
if %portnatalia>1 mov %blue_orb,1
if %grandnoah>1 mov %green_orb,1
if %northernsea>0 mov %silver_orb,1
if %pirateship>0 mov %purple_orb,1

mov %orb_count,0

if %red_orb>0 mov %orb_count,%orb_count+1
if %yellow_orb>0 mov %orb_count,%orb_count+1
if %blue_orb>0 mov %orb_count,%orb_count+1
if %green_orb>0 mov %orb_count,%orb_count+1
if %silver_orb>0 mov %orb_count,%orb_count+1
if %purple_orb>0 mov %orb_count,%orb_count+1
return


*newgame

mov %storyon,1
if %demo_on>0 mov %exp,31999000:gosub *lvup_check
if %demo_on<1 mov %exp,21999000:gosub *lvup_check
mov %enemy_wind,0
mov %enemy_earth,0
mov %enemy_aqua,0
mov %enemy_fire,0
mov %mp,%max_mp
mov %item01,5
mov %skill01,25
mov %mon_labo_on,0
mov %skillset,1
mov %check01,1
mov %queenharpy_sex,0
mov %alice_sex,0
mov %granberia_sex,0
mov %tamamo_sex,0
mov %alma_sex,0
mov %erubetie_sex,0
mov %sylph_sex,0
mov %salamander_sex,0
mov %undine_sex,0
mov %gnome_sex,0
mov %hapy_sex,0
mov %kitsune_sex,0
mov %chrome_sex,0
mov %vamploli_sex,0
mov %dragonpup_sex,0
mov %tinylamia_sex,0
mov %goblingirl_sex,0
mov %tamamo_rape,0
mov %enemy_earth,0
mov %enemy_wind,0
mov %enemy_aqua,0
mov %enemy_fire,0
mov %enemy_earthturn,0
mov %enemy_windturn,0
mov %enemy_aquaturn,0
mov %enemy_fireturn,0
mov %queenhapy_rape,0
mov $knight_enrika1,""
mov $knight_harpyvillage,""
mov $knight_banditcave,""
mov $knight_iliasport,""
mov $party1_harpyvillage,""
mov $party1_banditcave,""
mov $party1_iliasport,""
mov $party2_harpyvillage,""
mov $party2_banditcave,""
mov $party2_iliasport,""
mov $knight_enrika2,""
mov $party1_enrika2,""
mov $party2_enrika2,""
mov $knight_enrika3,""
mov $party1_enrika3,""
mov $party2_enrika3,""
mov $knight_enrika4,	""
mov $party1_enrika4,""
mov $party2_enrika4,""
mov %queenhapy_nomate,0
mov %granberia_rep,0
mov %tamamo_rep,0
mov %alma_rep,0
mov %erubetie_rep,0
mov %alice_rep,0
mov %salamander_rep,0
mov %sylph_rep,0
mov %undine_rep,0
mov %gnome_rep,0
mov %harpy_rep,0
mov %kitsune_rep,0
mov %banditcave,0
mov %harpyvillage,0
mov %iliasport,0
mov %portnatalia,0
mov %chromemansion,0
mov %saniliacity,0
mov %sabasacity,0
mov %pyramid,0
mov %lilymansion,0
mov %grandnoah,0
mov %yamatai,0
mov %plansect,0
mov %grangoldcity,0
mov %svillage,0
mov %ladyvillage,0
mov %goldport,0
mov %fairyisland,0
mov %northernsea,0
mov %pirateship,0
mov %garuda,0
mov %sylph_get,0
mov %salamander_get,0
mov %undine_get,0
mov %gnome_get,0
mov $spirit1,""
mov $spirit2,""
mov $spirit3,""
mov $spirit4,""
mov %spirit_count,0
mov $alice_st,"alice_st"
return


*status_print_mult

if %SQ=0 skip 9
if %enemy_num>1 && %freeze_turn1<0 && %enemy1life>0 lsp 700,":a;2Q\chara\"+$tatie14+".png",%monster1_x,%monster1_y
if %enemy_num>1 && %freeze_turn2<0 && %enemy2life>0 lsp 701,":a;2Q\chara\"+$tatie24+".png",%monster2_x,%monster2_y
if %enemy_num>2 && %freeze_turn3<0 && %enemy3life>0 lsp 702,":a;2Q\chara\"+$tatie34+".png",%monster3_x,%monster3_y
if %enemy_num>3 && %freeze_turn4<0 && %enemy4life>0 lsp 703,":a;2Q\chara\"+$tatie44+".png",%monster4_x,%monster4_y
if %enemy_num>4 && %freeze_turn5<0 && %enemy5life>0 lsp 704,":a;2Q\chara\"+$tatie54+".png",%monster5_x,%monster5_y
if %enemy_num>5 && %freeze_turn6<0 && %enemy6life>0 lsp 705,":a;2Q\chara\"+$tatie64+".png",%monster6_x,%monster6_y
if %enemy_num>6 && %freeze_turn7<0 && %enemy7life>0 lsp 706,":a;2Q\chara\"+$tatie74+".png",%monster7_x,%monster7_y
if %enemy_num>7 && %freeze_turn8<0 && %enemy8life>0 lsp 707,":a;2Q\chara\"+$tatie84+".png",%monster8_x,%monster8_y

if %SQ=1 skip 9
if %enemy_num>1 && %freeze_turn1<0 && %enemy1life>0 lsp 700,":a;chara\"+$tatie14+".bmp",%monster1_x,%monster1_y
if %enemy_num>1 && %freeze_turn2<0 && %enemy2life>0 lsp 701,":a;chara\"+$tatie24+".bmp",%monster2_x,%monster2_y
if %enemy_num>2 && %freeze_turn3<0 && %enemy3life>0 lsp 702,":a;chara\"+$tatie34+".bmp",%monster3_x,%monster3_y
if %enemy_num>3 && %freeze_turn4<0 && %enemy4life>0 lsp 703,":a;chara\"+$tatie44+".bmp",%monster4_x,%monster4_y
if %enemy_num>4 && %freeze_turn5<0 && %enemy5life>0 lsp 704,":a;chara\"+$tatie54+".bmp",%monster5_x,%monster5_y
if %enemy_num>5 && %freeze_turn6<0 && %enemy6life>0 lsp 705,":a;chara\"+$tatie64+".bmp",%monster6_x,%monster6_y
if %enemy_num>6 && %freeze_turn7<0 && %enemy7life>0 lsp 706,":a;chara\"+$tatie74+".bmp",%monster7_x,%monster7_y
if %enemy_num>7 && %freeze_turn8<0 && %enemy8life>0 lsp 707,":a;chara\"+$tatie84+".bmp",%monster8_x,%monster8_y

return


*status_print;

rnd2 %ransu,1,100
if $knight="Erubetie" && %kousoku<1 && %erubetie_rep>9 && %ransu<((%erubetie_rep*3/5))/100+%undine_buff goto *aqua_guard
mov %bougyo,0
itoa $statusnum,%status
cspl 596,597
if %player=0 && %kousoku=0 lsp 598,":a;system\face_0"+$statusnum+".bmp",34,534:csp 690
if %player=0 && %kousoku>0 && %mon_labo_on=1 && %chara_ori=1 lsp 598,":a;system\face_1"+$statusnum+".bmp",34,534:if %enemy_num=1 lsp 700,":a;"+$mon_labo_mon_folder+"\"+$tatie4,%monster_x,%monster_y:skip 2
if %player=0 && %kousoku>0 && %SQ!=1 && %freeze_turn<0 lsp 598,":a;system\face_1"+$statusnum+".bmp",34,534:if %enemy_num=1 lsp 700,":a;chara\"+$tatie4+".bmp",%monster_x,%monster_y
if %player=0 && %kousoku>0 && %SQ=1 && %freeze_turn<0 lsp 598,":a;system\face_1"+$statusnum+".bmp",34,534:if %enemy_num=1 lsp 700,":a;2Q\chara\"+$tatie4+".png",%monster_x,%monster_y
if %player=99 && %status>0 lsp 596,":a;system\face_x0"+$statusnum+".bmp",34,534
if %player=99 && %kousoku>0 && %mon_labo_on=1 && %chara_ori=1 lsp 597,":a;system\face_x10.bmp",34,534:if %enemy_num=1 lsp 700,":a;"+$mon_labo_mon_folder+"\"+$tatie4,%monster_x,%monster_y:skip 2
if %player=99 && %kousoku>0 lsp 597,":a;system\face_x10.bmp",34,534:lsp 700,":a;chara\"+$tatie4+".bmp",%monster_x,%monster_y
if %player=2 && %kousoku=0 lsp 598,":a;2Q\face_0"+$statusnum+".bmp",37,540:print 10,500:csp 690
if %player=2 && %kousoku>0 && %SQ=0 lsp 598,":a;2Q\face_1"+$statusnum+".bmp",37,540:print 10,500:if %enemy_num=1 lsp 700,":a;chara\"+$tatie4+".bmp",%monster_x,%monster_y
if %player=2 && %kousoku>0 && %SQ=1 lsp 598,":a;2Q\face_1"+$statusnum+".bmp",37,540:print 10,500:if %enemy_num=1 lsp 700,":a;2Q\chara\"+$tatie4+".png",%monster_x,%monster_y
if %player=3 && %kousoku=0 lsp 598,":a;2Q\face_2"+$statusnum+".bmp",37,540:print 10,500:csp 690
if %player=3 && %kousoku>0 && %SQ=0 lsp 598,":a;2Q\face_3"+$statusnum+".bmp",37,540:print 10,500:if %enemy_num=1 lsp 700,":a;chara\"+$tatie4+".bmp",%monster_x,%monster_y
if %player=3 && %kousoku>0 && %SQ=1 lsp 598,":a;2Q\face_3"+$statusnum+".bmp",37,540:print 10,500:if %enemy_num=1 lsp 700,":a;2Q\chara\"+$tatie4+".png",%monster_x,%monster_y
if %enemy_num>1 && %kousoku>0 gosub *status_print_mult
print 10,500
return



*elm_print;

gosub *wind_turn_print
gosub *earth_turn_print
gosub *aqua_turn_print
gosub *fire_turn_print
if %wind>0 && %wind!=4 lsp 592,":a;system\elm_wind.bmp",5,436
if %wind=4 lsp 592,":a;system\elm_wind3.bmp",5,436
if %wind=0 || %wind=5 csp 592
if %earth>0 lsp 593,":a;system\elm_earth.bmp",5,461
if %earth=0 csp 593
if %aqua>0 && %wind!=5 lsp 594,":a;system\elm_aqua.bmp",5,486
if %aqua=2 && %wind=5 lsp 594,":a;2Q\system\elm_aqua3.png",5,486
if %aqua=0 csp 594
if %fire>0 lsp 595,":a;system\elm_fire.bmp",5,511
if %fire=0 csp 595

if %enemy_num>1 skip 10
if %enemy_wind>0 && %enemy_holy<1 lsp 695,":a;system\elm_wind.bmp",775,436
if %enemy_holy=1 || %enemy_holy=2 lsp 695,":a;system\elm_wind2.bmp",775,436
if %enemy_earth>0 lsp 694,":a;system\elm_earth.bmp",775,461
if %enemy_aqua>0 lsp 693,":a;system\elm_aqua.bmp",775,486
if %enemy_fire>0 lsp 692,":a;system\elm_fire.bmp",775,511
if %enemy_wind<1 csp 695
if %enemy_earth<1 csp 694
if %enemy_aqua<1 && %poison<1 csp 693
if %enemy_fire<1 csp 692

if %enemy_num<2 skip 50
if %enemy1_wind>0 && %enemy1_holy<1 lsp 695,":a;system\elm_wind.bmp",775,436
if %enemy1_holy=1 || %enemy1_holy=2 lsp 695,":a;system\elm_wind2.bmp",775,436
if %enemy1_earth>0 lsp 694,":a;system\elm_earth.bmp",775,461
if %enemy1_aqua>0 lsp 693,":a;system\elm_aqua.bmp",775,486
if %enemy1_fire>0 lsp 692,":a;system\elm_fire.bmp",775,511
if %enemy2_wind>0 && %enemy2_holy<1 lsp 695,":a;system\elm_wind.bmp",775,436
if %enemy2_holy=1 || %enemy2_holy=2 lsp 695,":a;system\elm_wind2.bmp",775,436
if %enemy2_earth>0 lsp 694,":a;system\elm_earth.bmp",775,461
if %enemy2_aqua>0 lsp 693,":a;system\elm_aqua.bmp",775,486
if %enemy2_fire>0 lsp 692,":a;system\elm_fire.bmp",775,511
if %enemy3_wind>0 && %enemy3_holy<1 lsp 695,":a;system\elm_wind.bmp",775,436
if %enemy3_holy=1 || %enemy3_holy=2 lsp 695,":a;system\elm_wind2.bmp",775,436
if %enemy3_earth>0 lsp 694,":a;system\elm_earth.bmp",775,461
if %enemy3_aqua>0 lsp 693,":a;system\elm_aqua.bmp",775,486
if %enemy3_fire>0 lsp 692,":a;system\elm_fire.bmp",775,511
if %enemy4_wind>0 && %enemy4_holy<1 lsp 695,":a;system\elm_wind.bmp",775,436
if %enemy4_holy=1 || %enemy4_holy=2 lsp 695,":a;system\elm_wind2.bmp",775,436
if %enemy4_earth>0 lsp 694,":a;system\elm_earth.bmp",775,461
if %enemy4_aqua>0 lsp 693,":a;system\elm_aqua.bmp",775,486
if %enemy4_fire>0 lsp 692,":a;system\elm_fire.bmp",775,511
if %enemy5_wind>0 && %enemy5_holy<1 lsp 695,":a;system\elm_wind.bmp",775,436
if %enemy5_holy=1 || %enemy5_holy=2 lsp 695,":a;system\elm_wind2.bmp",775,436
if %enemy5_earth>0 lsp 694,":a;system\elm_earth.bmp",775,461
if %enemy5_aqua>0 lsp 693,":a;system\elm_aqua.bmp",775,486
if %enemy5_fire>0 lsp 692,":a;system\elm_fire.bmp",775,511
if %enemy6_wind>0 && %enemy6_holy<1 lsp 695,":a;system\elm_wind.bmp",775,436
if %enemy6_holy=1 || %enemy6_holy=2 lsp 695,":a;system\elm_wind2.bmp",775,436
if %enemy6_earth>0 lsp 694,":a;system\elm_earth.bmp",775,461
if %enemy6_aqua>0 lsp 693,":a;system\elm_aqua.bmp",775,486
if %enemy6_fire>0 lsp 692,":a;system\elm_fire.bmp",775,511
if %enemy7_wind>0 && %enemy7_holy<1 lsp 695,":a;system\elm_wind.bmp",775,436
if %enemy7_holy=1 || %enemy7_holy=2 lsp 695,":a;system\elm_wind2.bmp",775,436
if %enemy7_earth>0 lsp 694,":a;system\elm_earth.bmp",775,461
if %enemy7_aqua>0 lsp 693,":a;system\elm_aqua.bmp",775,486
if %enemy7_fire>0 lsp 692,":a;system\elm_fire.bmp",775,511
if %enemy8_wind>0 && %enemy8_holy<1 lsp 695,":a;system\elm_wind.bmp",775,436
if %enemy8_holy=1 || %enemy8_holy=2 lsp 695,":a;system\elm_wind2.bmp",775,436
if %enemy8_earth>0 lsp 694,":a;system\elm_earth.bmp",775,461
if %enemy8_aqua>0 lsp 693,":a;system\elm_aqua.bmp",775,486
if %enemy8_fire>0 lsp 692,":a;system\elm_fire.bmp",775,511
if %enemy9_wind>0 && %enemy9_holy<1 lsp 695,":a;system\elm_wind.bmp",775,436
if %enemy9_holy=1 || %enemy9_holy=2 lsp 695,":a;system\elm_wind2.bmp",775,436
if %enemy9_earth>0 lsp 694,":a;system\elm_earth.bmp",775,461
if %enemy9_aqua>0 lsp 693,":a;system\elm_aqua.bmp",775,486
if %enemy9_fire>0 lsp 692,":a;system\elm_fire.bmp",775,511
if %enemy1_fire<1 && %enemy2_fire<1 && %enemy3_fire<1 && %enemy4_fire<1 && %enemy5_fire<1 && %enemy6_fire<1 && %enemy7_fire<1 && %enemy8_fire<1 && %enemy9_fire<1 csp 692
if %enemy1_aqua<1 && %enemy2_aqua<1 && %enemy3_aqua<1 && %enemy4_aqua<1 && %enemy5_aqua<1 && %enemy6_aqua<1 && %enemy7_aqua<1 && %enemy8_aqua<1 && %enemy9_aqua<1 csp 693
if %enemy1_earth<1 && %enemy2_earth<1 && %enemy3_earth<1 && %enemy4_earth<1 && %enemy5_earth<1 && %enemy6_earth<1 && %enemy7_earth<1 && %enemy8_earth<1 && %enemy9_earth<1 csp 694
if %enemy1_wind<1 && %enemy2_wind<1 && %enemy3_wind<1 && %enemy4_wind<1 && %enemy5_wind<1 && %enemy6_wind<1 && %enemy7_wind<1 && %enemy8_wind<1 && %enemy9_wind<1 && %enemy1_holy<1 && %enemy2_holy<1 && %enemy3_holy<1 && %enemy4_holy<1 && %enemy5_holy<1 && %enemy6_holy<1 && %enemy7_holy<1 && %enemy8_holy<1 && %enemy9_holy<1 csp 695

if %poison>0 lsp 693,":a;2Q\system\elm_poison.png",775,486
print 1
return


*wind_turn_print

itoa $wind_turn,%wind_turn
if %wind_turn<=0 mov $wind_turn,"00":skip 2
if %wind_turn<10 mov $wind_turn,"0"+$wind_turn
lsp 670,":s/20,20,0;#00C957$wind_turn",5,336
return

*earth_turn_print

itoa $earth_turn,%earth_turn
if %earth_turn<0 mov $earth_turn,"00":skip 2
if %earth_turn<10 mov $earth_turn,"0"+$earth_turn
lsp 669,":s/20,20,0;#F4A460$earth_turn",5,361
return

*aqua_turn_print

itoa $aqua_turn,%aqua_turn
if %aqua_turn<0 mov $aqua_turn,"00":skip 2
if %aqua_turn<10 mov $aqua_turn,"0"+$aqua_turn
lsp 668,":s/20,20,0;#00BFFF$aqua_turn",5,386
return

*fire_turn_print

itoa $fire_turn,%fire_turn
if %fire_turn<0 mov $fire_turn,"00":skip 2
if %fire_turn<10 mov $fire_turn,"0"+$fire_turn
lsp 667,":s/20,20,0;#FF6347$fire_turn",5,411
return

*no_hit

name ""
wait 500
dwave 1,"se\miss.ogg"
>But nobody's around to take the hit!\
return

*enemy_target

saveoff
textoff
mov %cmd1,0
cspl 3,7:cspl 600,608
btndef clear
mov %sinkoumode,0 : skipoff : autoclick 0
gosub *setwindow_04

mov %y,418
if %enemy_num>1 && %enemy1life>0 && %enemy1life>%max_enemy1life/2 lsp 600,":s/20,20,0;#00BFFF#FF4444$name1",70,%y:spbtn 600,1000:mov %y,%y+27
if %enemy_num>1 && %enemy1life>0 && %enemy1life<=%max_enemy1life/2 && %enemy1life>%max_enemy1life/4 lsp 600,":s/20,20,0;#FFCC11#FF4444$name1",70,%y:spbtn 600,1000:mov %y,%y+27
if %enemy_num>1 && %enemy1life>0 && %enemy1life<=%max_enemy1life/4 lsp 600,":s/20,20,0;#FF6347#FF4444$name1",70,%y:spbtn 600,1000:mov %y,%y+27
if %enemy_num>1 && %enemy2life>0 && %enemy2life>%max_enemy2life/2 lsp 601,":s/20,20,0;#00BFFF#FF4444$name2",70,%y:spbtn 601,1001:mov %y,%y+27
if %enemy_num>1 && %enemy2life>0 && %enemy2life<=%max_enemy2life/2 && %enemy2life>%max_enemy2life/4 lsp 601,":s/20,20,0;#FFCC11#FF4444$name2",70,%y:spbtn 601,1001:mov %y,%y+27
if %enemy_num>1 && %enemy2life>0 && %enemy2life<=%max_enemy2life/4 lsp 601,":s/20,20,0;#FF6347#FF4444$name2",70,%y:spbtn 601,1001:mov %y,%y+27
if %enemy_num>2 && %enemy3life>0 && %enemy3life>%max_enemy3life/2 lsp 602,":s/20,20,0;#00BFFF#FF4444$name3",70,%y:spbtn 602,1002:mov %y,%y+27
if %enemy_num>2 && %enemy3life>0 && %enemy3life<=%max_enemy3life/2 && %enemy3life>%max_enemy3life/4 lsp 602,":s/20,20,0;#FFCC11#FF4444$name3",70,%y:spbtn 602,1002:mov %y,%y+27
if %enemy_num>2 && %enemy3life>0 && %enemy3life<=%max_enemy3life/4 lsp 602,":s/20,20,0;#FF6347#FF4444$name3",70,%y:spbtn 602,1002:mov %y,%y+27
if %enemy_num>3 && %enemy4life>0 && %enemy4life>%max_enemy4life/2 lsp 603,":s/20,20,0;#00BFFF#FF4444$name4",70,%y:spbtn 603,1003:mov %y,%y+27
if %enemy_num>3 && %enemy4life>0 && %enemy4life<=%max_enemy4life/2 && %enemy4life>%max_enemy4life/4 lsp 603,":s/20,20,0;#FFCC11#FF4444$name4",70,%y:spbtn 603,1003:mov %y,%y+27
if %enemy_num>3 && %enemy4life>0 && %enemy4life<=%max_enemy4life/4 lsp 603,":s/20,20,0;#FF6347#FF4444$name4",70,%y:spbtn 603,1003:mov %y,%y+27
mov %y,418
if %enemy_num>4 && %enemy5life>0 && %enemy5life>%max_enemy5life/2 lsp 604,":s/20,20,0;#00BFFF#FF4444$name5",370,%y:spbtn 604,1004:mov %y,%y+27
if %enemy_num>4 && %enemy5life>0 && %enemy5life<=%max_enemy5life/2 && %enemy5life>%max_enemy5life/4 lsp 604,":s/20,20,0;#FFCC11#FF4444$name5",370,%y:spbtn 604,1004:mov %y,%y+27
if %enemy_num>4 && %enemy5life>0 && %enemy5life<=%max_enemy5life/4 lsp 604,":s/20,20,0;#FF6347#FF4444$name5",370,%y:spbtn 604,1004:mov %y,%y+27
if %enemy_num>5 && %enemy6life>0 && %enemy6life>%max_enemy6life/2 lsp 605,":s/20,20,0;#00BFFF#FF4444$name6",370,%y:spbtn 605,1005:mov %y,%y+27
if %enemy_num>5 && %enemy6life>0 && %enemy6life<=%max_enemy6life/2 && %enemy6life>%max_enemy6life/4 lsp 605,":s/20,20,0;#FFCC11#FF4444$name6",370,%y:spbtn 605,1005:mov %y,%y+27
if %enemy_num>5 && %enemy6life>0 && %enemy6life<=%max_enemy6life/4 lsp 605,":s/20,20,0;#FF6347#FF4444$name6",370,%y:spbtn 605,1005:mov %y,%y+27
if %enemy_num>6 && %enemy7life>0 && %enemy7life>%max_enemy7life/2 lsp 606,":s/20,20,0;#00BFFF#FF4444$name7",370,%y:spbtn 606,1006:mov %y,%y+27
if %enemy_num>6 && %enemy7life>0 && %enemy7life<=%max_enemy7life/2 && %enemy7life>%max_enemy7life/4 lsp 606,":s/20,20,0;#FFCC11#FF4444$name7",370,%y:spbtn 606,1006:mov %y,%y+27
if %enemy_num>6 && %enemy7life>0 && %enemy7life<=%max_enemy7life/4 lsp 606,":s/20,20,0;#FF6347#FF4444$name7",370,%y:spbtn 606,1006:mov %y,%y+27
if %enemy_num>7 && %enemy8life>0 && %enemy8life>%max_enemy8life/2 lsp 607,":s/20,20,0;#00BFFF#FF4444$name8",370,%y:spbtn 607,1007:mov %y,%y+27
if %enemy_num>7 && %enemy8life>0 && %enemy8life<=%max_enemy8life/2 && %enemy8life>%max_enemy8life/4 lsp 607,":s/20,20,0;#FFCC11#FF4444$name8",370,%y:spbtn 607,1007:mov %y,%y+27
if %enemy_num>7 && %enemy8life>0 && %enemy8life<=%max_enemy8life/4 lsp 607,":s/20,20,0;#FF6347#FF4444$name8",370,%y:spbtn 607,1007:mov %y,%y+27

btnwait2 %cmd1
if %cmd1=1000 mov %enemy_target,1:gosub *setwindow_02:cspl 600,607:print 10,1:return
if %cmd1=1001 mov %enemy_target,2:gosub *setwindow_02:cspl 600,607:print 10,1:return
if %cmd1=1002 mov %enemy_target,3:gosub *setwindow_02:cspl 600,607:print 10,1:return
if %cmd1=1003 mov %enemy_target,4:gosub *setwindow_02:cspl 600,607:print 10,1:return
if %cmd1=1004 mov %enemy_target,5:gosub *setwindow_02:cspl 600,607:print 10,1:return
if %cmd1=1005 mov %enemy_target,6:gosub *setwindow_02:cspl 600,607:print 10,1:return
if %cmd1=1006 mov %enemy_target,7:gosub *setwindow_02:cspl 600,607:print 10,1:return
if %cmd1=1007 mov %enemy_target,8:gosub *setwindow_02:cspl 600,607:print 10,1:return
if %cmd1=-1 && %previous_menu=1 cspl 600,607:return "*"+$lavel+"_main"
if %cmd1=-1 && %previous_menu=2 cspl 600,607:return *common_skill
if %cmd1=-1 && %previous_menu=3 cspl 600,607:return *common_support

goto *enemy_target

*enemylife_multiple

;special cases.
if $lavel="chrome_ng" && %target_all=1 && %hanyo1=0 && %enemy1life>0 && %freeze_turn1<0 && %erbind_turn1<0 gosub *chrome_ng_frederikaguard:mov %target_all,0:mov %enemy_target,1
if $lavel="chrome_ng" && %enemy_target=2 && %hanyo1=0 && %enemy1life>0 && %freeze_turn1<0 && %erbind_turn1<0 gosub *chrome_ng_frederikaguard:mov %enemy_target,1

;Target all
if %target_all=0 skip 11
if %enemy_num>1 && %enemy1life>0 gosub *enemylife1
if %enemy_num>1 && %enemy2life>0 gosub *enemylife2
if %enemy_num>2 && %enemy3life>0 gosub *enemylife3
if %enemy_num>3 && %enemy4life>0 gosub *enemylife4
if %enemy_num>4 && %enemy5life>0 gosub *enemylife5
if %enemy_num>5 && %enemy6life>0 gosub *enemylife6
if %enemy_num>6 && %enemy7life>0 gosub *enemylife7
if %enemy_num>7 && %enemy8life>0 gosub *enemylife8
if %enemy_num>8 && %enemy9life>0 gosub *enemylife9
return

;Target one
if %enemy_target=1 gosub *enemylife1
if %enemy_target=2 gosub *enemylife2
if %enemy_target=3 gosub *enemylife3
if %enemy_target=4 gosub *enemylife4
if %enemy_target=5 gosub *enemylife5
if %enemy_target=6 gosub *enemylife6
if %enemy_target=7 gosub *enemylife7
if %enemy_target=8 gosub *enemylife8
if %enemy_target=9 gosub *enemylife9
return

*enemylife;

if %enemy_num>1 gosub *enemylife_multiple:return
if %no_hit>0 gosub *no_hit:return
if %enemy_wind=4 && %aqua!=2 gosub *enemy_windguard:return
if %undine_get<1 skip 2
if %wind=3 || %wind>4 skip 10
if %knight_attack>0 skip 9
if %enemy_aqua<2 skip 8
if %cmd1=37 skip 7
rnd2 %ransu,1,100
if %enemy_aqua=2 && %ransu<76 return *enemy_aquaguard
if %enemy_aqua=3 && %ransu<38 return *enemy_aquaguard
if %enemy_aqua=4 && %ransu<101 return *enemy_aquaguard
if %enemy_wind=2 && %ransu<51 gosub *enemy_windguard:return *common_attack_end
if %enemy_wind=3 && %ransu<76 gosub *enemy_windguard:return *common_attack_end
name ""
if %enemy_holy=1 return *enemy_holyguard

vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
mov %damage,%abairitu*%mylv*%damage_keigen/2000
if %enrage_turn>0 mov %damage,%damage*2
rnd2 %damage,%damage*9/10,%damage*11/10
if $knight="Granberia" && %granberia_rep>9 gosub *enemylife_gran
if %fire>2 gosub *enemylife_sala
itoa $sel1,%damage
eng $ori_name+" deals "+$sel1+" damage!"
if %damage_nobr=1 skip 3
``$sel6/
skip 2
``$sel6
if %skill_sub=2 skip 10
mov %enemylife,%enemylife-%damage
if %enemylife>%max_enemylife mov %enemylife,%max_enemylife
if %enemylife<0 mov %enemylife,0
if %enemylife=0 mov %gage,0 skip 3
mov %gage,%enemylife*100/%max_enemylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
print 10,500
>\

mov %is_damaged,1
if %damage_nobr>0 mov %damage_nobr,0:return
return

*enemylife1;

if %no_hit>0 gosub *no_hit:return
if %enemy1_wind=4 && %aqua!=2 gosub *enemy_mult_windguard:return
if %undine_get<1 skip 2
if %wind=3 || %wind>4 skip 10
if %knight_attack>0 skip 9
if %enemy1_aqua<2 skip 8
if %cmd1=37 skip 7
rnd2 %ransu,1,100
if %enemy1_aqua=2 && %ransu<76 gosub *enemy_mult_aquaguard:return
if %enemy1_aqua=3 && %ransu<38 gosub *enemy_mult_aquaguard:return
if %enemy1_aqua=4 && %ransu<101 gosub *enemy_mult_aquaguard:return
if %enemy1_wind=2 && %ransu<51 gosub *enemy_mult_windguard:return
if %enemy1_wind=3 && %ransu<76 gosub *enemy_mult_windguard:return
name ""
if %enemy1_holy=1 gosub *enemy_mult_holyguard:return
if %enemy1_holy=2 && %cmd1=42 gosub *enemy_mult_holyguard:return

vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
mov %damage,%abairitu*%mylv*%damage_keigen1/2000
if %enrage_turn>0 mov %damage,%damage*2
rnd2 %damage,%damage*9/10,%damage*11/10
if $knight="Granberia" && %granberia_rep>9 gosub *enemylife_gran
if %fire>2 gosub *enemylife_sala
itoa $sel1,%damage
eng $name1+" receives "+$sel1+" damage!"
if %damage_nobr=1 skip 3
``$sel6
skip 2
``$sel6
if %skill_sub=2 skip 10
mov %temp_damage,%damage
mov %enemy1life,%enemy1life-%damage
if %enemy1life>%max_enemy1life mov %enemy1life,%max_enemy1life
if %enemy1life<0 mov %temp_damage,%temp_damage + %enemy1life:mov %enemy1life,0

mov %enemylife,%enemylife-%temp_damage
if %enemylife<0 mov %enemylife,0
if %enemylife=0 mov %gage,0:skip 3
mov %gage,%enemylife*100/%max_enemylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
print 10,500
>\

mov %is_damaged,1
if %damage_nobr>0 mov %damage_nobr,0:return
return


*enemylife2;

if %no_hit>0 gosub *no_hit:return
if %enemy2_wind=4 && %aqua!=2 gosub *enemy_mult_windguard:return
if %undine_get<1 skip 2
if %wind=3 || %wind>4 skip 10
if %knight_attack>0 skip 9
if %enemy2_aqua<2 skip 8
if %cmd1=37 skip 7
rnd2 %ransu,1,100
if %enemy2_aqua=2 && %ransu<76 gosub *enemy_mult_aquaguard:return
if %enemy2_aqua=3 && %ransu<38 gosub *enemy_mult_aquaguard:return
if %enemy2_aqua=4 && %ransu<101 gosub *enemy_mult_aquaguard:return
if %enemy2_wind=2 && %ransu<51 gosub *enemy_mult_windguard:return
if %enemy2_wind=3 && %ransu<76 gosub *enemy_mult_windguard:return
mov %knight_attack,0

name ""
if %enemy2_holy=1 gosub *enemy_mult_holyguard:return
if %enemy2_holy=2 && %cmd1=42 gosub *enemy_mult_holyguard:return

vsp 701,0:print 10,15
vsp 701,1:print 10,15
vsp 701,0:print 10,15
vsp 701,1:print 10,15
vsp 701,0:print 10,15
vsp 701,1:print 10,15
mov %damage,%abairitu*%mylv*%damage_keigen2/2000
if %enrage_turn>0 mov %damage,%damage*2
rnd2 %damage,%damage*9/10,%damage*11/10
if $knight="Granberia" && %granberia_rep>9 gosub *enemylife_gran
if %fire>2 gosub *enemylife_sala
itoa $sel1,%damage
eng $name2+" receives "+$sel1+" damage!"
if %damage_nobr=1 skip 3
``$sel6
skip 2
``$sel6
if %skill_sub=2 skip 10
mov %temp_damage,%damage
mov %enemy2life,%enemy2life-%damage
if %enemy2life>%max_enemy2life mov %enemy2life,%max_enemy2life
if %enemy2life<0 mov %temp_damage,%temp_damage + %enemy2life:mov %enemy2life,0

mov %enemylife,%enemylife-%temp_damage
if %enemylife<0 mov %enemylife,0
if %enemylife=0 mov %gage,0:skip 3
mov %gage,%enemylife*100/%max_enemylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
print 10,500
>\

mov %is_damaged,2
if %damage_nobr>0 mov %damage_nobr,0:return
return


*enemylife3;

if %no_hit>0 gosub *no_hit:return
if %enemy3_wind=4 && %aqua!=2 gosub *enemy_mult_windguard:return
if %undine_get<1 skip 2
if %wind=3 || %wind>4 skip 10
if %knight_attack>0 skip 9
if %enemy3_aqua<2 skip 8
if %cmd1=37 skip 7
rnd2 %ransu,1,100
if %enemy3_aqua=2 && %ransu<76 gosub *enemy_mult_aquaguard:return
if %enemy3_aqua=3 && %ransu<38 gosub *enemy_mult_aquaguard:return
if %enemy3_aqua=4 && %ransu<101 gosub *enemy_mult_aquaguard:return
if %enemy3_wind=2 && %ransu<51 gosub *enemy_mult_windguard:return
if %enemy3_wind=3 && %ransu<76 gosub *enemy_mult_windguard:return
name ""
if %enemy3_holy=1 gosub *enemy_mult_holyguard:return
if %enemy3_holy=2 && %cmd1=42 gosub *enemy_mult_holyguard:return

vsp 702,0:print 10,15
vsp 702,1:print 10,15
vsp 702,0:print 10,15
vsp 702,1:print 10,15
vsp 702,0:print 10,15
vsp 702,1:print 10,15
mov %damage,%abairitu*%mylv*%damage_keigen3/2000
if %enrage_turn>0 mov %damage,%damage*2
rnd2 %damage,%damage*9/10,%damage*11/10
if $knight="Granberia" && %granberia_rep>9 gosub *enemylife_gran
if %fire>2 gosub *enemylife_sala
itoa $sel1,%damage
eng $name3+" receives "+$sel1+" damage!"
if %damage_nobr=1 skip 3
``$sel6
skip 2
``$sel6
if %skill_sub=2 skip 10
mov %temp_damage,%damage
mov %enemy3life,%enemy3life-%damage
if %enemy3life>%max_enemy3life mov %enemy3life,%max_enemy3life
if %enemy3life<0 mov %temp_damage,%temp_damage + %enemy3life:mov %enemy3life,0

mov %enemylife,%enemylife-%temp_damage
if %enemylife<0 mov %enemylife,0
if %enemylife=0 mov %gage,0:skip 3
mov %gage,%enemylife*100/%max_enemylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
print 10,500
>\

mov %is_damaged,3
if %damage_nobr>0 mov %damage_nobr,0:return
return


*enemylife4;

if %no_hit>0 gosub *no_hit:return
if %enemy4_wind=4 && %aqua!=2 gosub *enemy_mult_windguard:return
if %undine_get<1 skip 2
if %wind=3 || %wind>4 skip 10
if %knight_attack>0 skip 9
if %enemy4_aqua<2 skip 8
if %cmd1=37 skip 7
rnd2 %ransu,1,100
if %enemy4_aqua=2 && %ransu<76 gosub *enemy_mult_aquaguard:return
if %enemy4_aqua=3 && %ransu<38 gosub *enemy_mult_aquaguard:return
if %enemy4_aqua=4 && %ransu<101 gosub *enemy_mult_aquaguard:return
if %enemy4_wind=2 && %ransu<51 gosub *enemy_mult_windguard:return
if %enemy4_wind=3 && %ransu<76 gosub *enemy_mult_windguard:return
name ""
if %enemy4_holy=1 gosub *enemy_mult_holyguard:return
if %enemy4_holy=2 && %cmd1=42 gosub *enemy_mult_holyguard:return

vsp 703,0:print 10,15
vsp 703,1:print 10,15
vsp 703,0:print 10,15
vsp 703,1:print 10,15
vsp 703,0:print 10,15
vsp 703,1:print 10,15
mov %damage,%abairitu*%mylv*%damage_keigen3/2000
if %enrage_turn>0 mov %damage,%damage*2
rnd2 %damage,%damage*9/10,%damage*11/10
if $knight="Granberia" && %granberia_rep>9 gosub *enemylife_gran
if %fire>2 gosub *enemylife_sala
itoa $sel1,%damage
eng $name4+" receives "+$sel1+" damage!"
if %damage_nobr=1 skip 3
``$sel6
skip 2
``$sel6
if %skill_sub=2 skip 10
mov %temp_damage,%damage
mov %enemy4life,%enemy4life-%damage
if %enemy4life>%max_enemy4life mov %enemy4life,%max_enemy4life
if %enemy4life<0 mov %temp_damage,%temp_damage + %enemy4life:mov %enemy4life,0

mov %enemylife,%enemylife-%temp_damage
if %enemylife<0 mov %enemylife,0
if %enemylife=0 mov %gage,0:skip 3
mov %gage,%enemylife*100/%max_enemylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
print 10,500
>\

mov %is_damaged,4
if %damage_nobr>0 mov %damage_nobr,0:return
return


*enemylife_sala

if %salamander_rep<-19 mov %damage,%damage*75/100
if %salamander_rep<-14 && %salamander_rep>-20 mov %damage_damage*80/100
if %salamander_rep<-9 && %salamander_rep>-15 mov %damage,%damage*85/100
if %salamander_rep<-4 && %salamander_rep>-10 mov %damage,%damage*90/100
if %salamander_rep<0 && %salamander_rep>-5 mov %damage,%damage*95/100
if %salamander_rep>9 && %salamander_rep<20 mov %damage,%damage*110/100
if %salamander_rep>19 && %salamander_rep<30 mov %damage,%damage*115/100
if %salamander_rep>29 && %salamander_rep<40 mov %damage,%damage*120/100
if %salamander_rep>39 && %salamander_rep<50 mov %damage,%damage*125/100
if %salamander_rep>49 mov %damage,%damage*130/100
if %enviro_fire=1 mov %damage,%damage*120/100
if %enviro_fire=2 mov %damage,%damage*135/100
if %enviro_fire=3 mov %damage,%damage*150/100
if %enviro_aqua=1 mov %damage,%damage*90/100
if %enviro_aqua=2 mov %damage,%damage*85/100
if %enviro_aqua=3 mov %damage,%damage*80/100
return

*enemylife_gran

if %granberia_rep>9 && %granberia_rep<20 mov %damage,%damage*105/100
if %granberia_rep>19 && %granberia_rep<30 mov %damage,%damage*108/100
if %granberia_rep>29 && %granberia_rep<40 mov %damage,%damage*112/100
if %granberia_rep>39 && %granberia_rep<50 mov %damage,%damage*118/100
if %granberia_rep>49 mov %damage,%damage*125/100
return

*enemylifeb	;??????

vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15

if $knight="Granberia" && %granberia_rep>9 gosub *enemylife_gran
if %fire>2 gosub *enemylife_sala
if %potion=1 mov %damage,%damage*15/10

itoa $sel1,%damage
mov $sel6,$ori_name+" deals "+$sel1+" damage!"
if %damage_nobr=1 skip 3
``$sel6\
skip 2
``$sel6
if %enemylife>%max_enemylife mov %enemylife,%max_enemylife
mov %enemylife,%enemylife-%damage
if %enemylife<0 mov %enemylife,0
if %enemylife=0 mov %gage,0 skip 3
mov %gage,%enemylife*100/%max_enemylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
print 10,500
if %damage_nobr>0 mov %damage_nobr,0:return
\
return

*tamamo_enemylifeb	;??????

vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
itoa $damage,%damage
mov $sel1,"Tamamo deals "+$damage+" damage!"
len %sub1,$sel1:mov %sub2,%sub1+1
if %sub1/2<%sub2/2 mov $sel1,$sel1+""
if %damage_nobr=1 skip 3
``$sel1/
skip 2
``$sel1
mov %enemylife,%enemylife-%damage
if %enemylife>%max_enemylife mov %enemylife,%max_enemylife
if %enemylife<0 mov %enemylife,0
if %enemylife=0 mov %gage,0 skip 3
mov %gage,%enemylife*100/%max_enemylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
print 10,500
if %damage_nobr>0 mov %damage_nobr,0:return
\
return

*sara_enemylife	;??????

vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
itoa $damage,%damage
mov $sel1,"Sara deals "+$damage+" damage!"
len %sub1,$sel1:mov %sub2,%sub1+1
if %sub1/2<%sub2/2 mov $sel1,$sel1+""
if %damage_nobr=1 skip 3
``$sel1/
skip 2
``$sel1
mov %enemylife,%enemylife-%damage
if %enemylife>%max_enemylife mov %enemylife,%max_enemylife
if %enemylife<0 mov %enemylife,0
if %enemylife=0 mov %gage,0 skip 3
mov %gage,%enemylife*100/%max_enemylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
print 10,500
if %damage_nobr>0 mov %damage_nobr,0:return
\
return

*alice_enemylifeb	;??????

vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
itoa $damage,%damage
mov $sel1,"Alice deals "+$damage+" damage!"
len %sub1,$sel1:mov %sub2,%sub1+1
if %sub1/2<%sub2/2 mov $sel1,$sel1+""
if %damage_nobr=1 skip 3
``$sel1/
skip 2
``$sel1
mov %enemylife,%enemylife-%damage
if %enemylife>%max_enemylife mov %enemylife,%max_enemylife
if %enemylife<0 mov %enemylife,0
if %enemylife=0 mov %gage,0 skip 3
mov %gage,%enemylife*100/%max_enemylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
print 10,500
if %damage_nobr>0 mov %damage_nobr,0:return
\
return

*enemylife_kaihuku_mult

if %enemy_target=1 mov $temp_name,$name1:mov %enemy1life,%enemy1life+%damage:if %enemy1life>%max_enemy1life mov %enemy1life,%max_enemy1life:skip 8
if %enemy_target=2 mov $temp_name,$name2:mov %enemy2life,%enemy2life+%damage:if %enemy2life>%max_enemy2life mov %enemy2life,%max_enemy2life:skip 7
if %enemy_target=3 mov $temp_name,$name3:mov %enemy3life,%enemy3life+%damage:if %enemy3life>%max_enemy3life mov %enemy3life,%max_enemy3life:skip 6
if %enemy_target=4 mov $temp_name,$name4:mov %enemy4life,%enemy4life+%damage:if %enemy4life>%max_enemy4life mov %enemy4life,%max_enemy4life:skip 5
if %enemy_target=5 mov $temp_name,$name5:mov %enemy5life,%enemy5life+%damage:if %enemy5life>%max_enemy5life mov %enemy5life,%max_enemy5life:skip 4
if %enemy_target=6 mov $temp_name,$name6:mov %enemy6life,%enemy6life+%damage:if %enemy6life>%max_enemy6life mov %enemy6life,%max_enemy6life:skip 3
if %enemy_target=7 mov $temp_name,$name7:mov %enemy7life,%enemy7life+%damage:if %enemy7life>%max_enemy7life mov %enemy7life,%max_enemy7life:skip 2
if %enemy_target=8 mov $temp_name,$name8:mov %enemy8life,%enemy8life+%damage:if %enemy8life>%max_enemy8life mov %enemy8life,%max_enemy8life:skip 1
dwave 2,"se\kaihuku.ogg"
itoa $damage,%damage
mov $sel1,$temp_name+" recovered "+$damage+" HP!"
len %sub1,$sel1:mov %sub2,%sub1+1
if %sub1/2<%sub2/2 mov $sel1,$sel1+""
``$sel1/
mov %enemylife,%enemy1life+%enemy2life+%enemy3life+%enemy4life+%enemy5life+%enemy6life+%enemy7life+%enemy8life
if %enemylife=0 mov %gage,0 skip 2
mov %gage,%enemylife*100/%max_enemylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
print 10,500
mov $sel1,""
\
return

*enemylife_kaihuku;

if %enemy_num>1 gosub *enemylife_kaihuku_mult:return
dwave 2,"se\kaihuku.ogg"
itoa $damage,%damage
mov $sel1,$name2+" recovered "+$damage+" HP!"
len %sub1,$sel1:mov %sub2,%sub1+1
if %sub1/2<%sub2/2 mov $sel1,$sel1+""
``$sel1/
mov %enemylife,%enemylife+%damage
if %enemylife>%max_enemylife mov %enemylife,%max_enemylife
if %enemylife=0 mov %gage,0 skip 2
mov %gage,%enemylife*100/%max_enemylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
print 10,500
mov $sel1,""
\
return

*doppel_recover

mov %gage,1
mov $gagenum,"1"
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
mov %enemylife,1
print 10,500
return



*syoukan_effect

for %move=0 to 100 step 1
msp2 0,10,0,0,0,0,-3
print 1:wait 3
next
csp2 0:print 1
return



*skill_cutin

for %move=0 to 200 step 10
msp2 0,0,10,0,0,0,12
print 1:wait 5
next
for %move=0 to 200 step 10
msp2 1,0,10,0,0,0,12
print 1:wait 5
next
csp2 0:print 10,300
csp2 1:print 10,300
return



*kaihi

for %move=0 to 80 step 10
amsp 700,%monster_x+%move,%monster_y
print 1:wait 10
next
for %move=80 to 0 step -10
amsp 700,%monster_x+%move,%monster_y
print 1:wait 10
next
return



*counter

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
return

*guard_break

dwave 1,"se\counter.ogg"
lsp2 0,":s/70,70,0;#ff0000G U A R D   B R E A K",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
mov %bougyo,0
mov %damage,%damage*15/10
mov %guard_break,0
name ""
>The attack broke through Luka's defense!\
return

*lvdrain

mov %mylv,%mylv-%drain
if %mylv<1 mov %mylv,1
if %mylv=1 mov %count_mylv0,1
gosub *maxhp
gosub *maxmp
if %max_mylife<%mylife mov %mylife,%max_mylife
mov %gage,%mylife*100/%max_mylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
itoa $drain,%drain
lsp 560,":a;system\gager"+$gagenum+".bmp",114,556
gosub *hp
gosub *maxmp
gosub *mp
dwave 1,"se\lvdown.ogg"
mov $sel6,$ori_name+"'s level decreases by "+$drain+"!"
``$sel6
mov %enemylv,%enemylv+%drain
mov %count_drainlv,%count_drainlv+%drain
mov $sel6,$name+"'s level increases by "+$drain+"!"
``$sel6\
return


*face11;

if %kousoku>0 return
if %kousan>0 goto *face2
if %max_mylife>%mylife*5 && %sel_kiki=1 goto *face2
if %mon_labo_on=1 && %chara_ori=1 lsp 700,":a;"+$mon_labo_mon_folder+"\"+$tatie11,%monster1_x,%monster1_y:skip 2
if %SQ=0 && %freeze_turn1<0 lsp 700,":a;chara\"+$tatie11+".bmp",%monster1_x,%monster1_y
if %SQ=1 && %freeze_turn1<0 lsp 700,":a;2Q\chara\"+$tatie11+".png",%monster1_x,%monster1_y
print 10,500
return

*face21;

if %kousoku>0 return
if %kousan>0 goto *face2
if %max_mylife>%mylife*5 && %sel_kiki=1 goto *face2
if %mon_labo_on=1 && %chara_ori=1 lsp 701,":a;"+$mon_labo_mon_folder+"\"+$tatie21,%monster2_x,%monster2_y:skip 2
if %SQ=0 && %freeze_turn2<0 lsp 701,":a;chara\"+$tatie21+".bmp",%monster2_x,%monster2_y
if %SQ=1 && %freeze_turn2<0 lsp 701,":a;2Q\chara\"+$tatie21+".png",%monster2_x,%monster2_y
print 10,500
return

*face31;

if %kousoku>0 return
if %kousan>0 goto *face2
if %max_mylife>%mylife*5 && %sel_kiki=1 goto *face2
if %mon_labo_on=1 && %chara_ori=1 lsp 702,":a;"+$mon_labo_mon_folder+"\"+$tatie31,%monster3_x,%monster3_y:skip 2
if %SQ=0 && %freeze_turn3<0 lsp 702,":a;chara\"+$tatie31+".bmp",%monster3_x,%monster3_y
if %SQ=1 && %freeze_turn3<0 lsp 702,":a;2Q\chara\"+$tatie31+".png",%monster3_x,%monster3_y
print 10,500
return

*face1;

if %enemy_num<2 skip 30
if %enemy_num>1 && %SQ=0 && %enemy1life>0 && %freeze_turn1<0 && %erbind_turn1<0 && %seduce_turn1<0 lsp 700,":a;chara\"+$tatie11+".bmp",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=1 && %enemy1life>0 && %freeze_turn1<0 && %erbind_turn1<0 && %seduce_turn1<0 lsp 700,":a;2Q\chara\"+$tatie11+".png",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=0 && %enemy1life>0 && %freeze_turn1>-1 lsp 700,":a;chara\"+$tatie13+".bmp",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=1 && %enemy1life>0 && %freeze_turn1>-1 lsp 700,":a;2Q\chara\"+$tatie13+".png",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=0 && %enemy1life>0 && %erbind_turn1>-1 lsp 700,":a;chara\"+$tatie13+".bmp",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=1 && %enemy1life>0 && %erbind_turn1>-1 lsp 700,":a;2Q\chara\"+$tatie13+".png",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=0 && %enemy1life>0 && %seduce_turn1>-1 lsp 700,":a;chara\"+$tatie13+".bmp",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=1 && %enemy1life>0 && %seduce_turn1>-1 lsp 700,":a;2Q\chara\"+$tatie13".png",%monster1_x,%monster1_y

if %enemy_num>1 && %SQ=0 && %enemy2life>0 && %freeze_turn2<0 && %erbind_turn2<0 && %seduce_turn2<0 lsp 701,":a;chara\"+$tatie21+".bmp",%monster2_x,%monster2_y
if %enemy_num>1 && %SQ=1 && %enemy2life>0 && %freeze_turn2<0 && %erbind_turn2<0 && %seduce_turn2<0 lsp 701,":a;2Q\chara\"+$tatie21+".png",%monster2_x,%monster2_y
if %enemy_num>1 && %SQ=0 && %enemy2life>0 && %erbind_turn2>-1 lsp 701,":a;chara\"+$tatie23+".bmp",%monster2_x,%monster2_y
if %enemy_num>1 && %SQ=1 && %enemy2life>0 && %erbind_turn2>-1 lsp 701,":a;2Q\chara\"+$tatie23+".png",%monster2_x,%monster2_y
if %enemy_num>1 && %SQ=0 && %enemy2life>0 && %freeze_turn2>-1 lsp 701,":a;chara\"+$tatie23+".bmp",%monster2_x,%monster2_y
if %enemy_num>1 && %SQ=1 && %enemy2life>0 && %freeze_turn2>-1 lsp 701,":a;2Q\chara\"+$tatie23+".png",%monster2_x,%monster2_y
if %enemy_num>1 && %SQ=0 && %enemy2life>0 && %seduce_turn2>-1 lsp 701,":a;chara\"+$tatie23+".bmp",%monster2_x,%monster2_y
if %enemy_num>1 && %SQ=1 && %enemy2life>0 && %seduce_turn2>-1 lsp 701,":a;2Q\chara\"+$tatie23+".png",%monster2_x,%monster2_y

if %enemy_num>2 && %SQ=0 && %enemy3life>0 && %freeze_turn3<0 && %erbind_turn3<0 && %seduce_turn3<0 lsp 702,":a;chara\"+$tatie31+".bmp",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=1 && %enemy3life>0 && %freeze_turn3<0 && %erbind_turn3<0 && %seduce_turn3<0 lsp 702,":a;2Q\chara\"+$tatie31+".png",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=0 && %enemy3life>0 && %freeze_turn3>-1 lsp 702,":a;chara\"+$tatie33+".bmp",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=1 && %enemy3life>0 && %freeze_turn3>-1 lsp 702,":a;2Q\chara\"+$tatie33+".png",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=0 && %enemy3life>0 && %erbind_turn3>-1 lsp 702,":a;chara\"+$tatie33+".bmp",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=1 && %enemy3life>0 && %erbind_turn3>-1 lsp 702,":a;2Q\chara\"+$tatie33+".png",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=0 && %enemy3life>0 && %seduce_turn3>-1 lsp 702,":a;chara\"+$tatie33+".bmp",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=1 && %enemy3life>0 && %seduce_turn3>-1 lsp 702,":a;2Q\chara\"+$tatie33+".png",%monster3_x,%monster3_y

print 10,500
return

if %kousoku>0 return
if %kousan>0 goto *face2
if %max_mylife>%mylife*5 && %sel_kiki=1 goto *face2
if %mon_labo_on=1 && %chara_ori=1 lsp 700,":a;"+$mon_labo_mon_folder+"\"+$tatie1,%monster_x,%monster_y:skip 9
if %SQ=0 && %freeze_turn<0 && %erbind_turn<0 && %seduce_turn<0 lsp 700,":a;chara\"+$tatie1+".bmp",%monster_x,%monster_y
if %SQ=1 && %freeze_turn<0 && %erbind_turn<0 && %seduce_turn<0 lsp 700,":a;2Q\chara\"+$tatie1+".png",%monster_x,%monster_y
if %SQ=0 && %freeze_turn>-1 lsp 700,":a;chara\"+$tatie3+".bmp",%monster_x,%monster_y
if %SQ=1 && %freeze_turn>-1 lsp 700,":a;2Q\chara\"+$tatie3+".png",%monster_x,%monster_y
if %SQ=0 && %erbind_turn>-1 lsp 700,":a;chara\"+$tatie3+".bmp",%monster_x,%monster_y
if %SQ=1 && %erbind_turn>-1 lsp 700,":a;2Q\chara\"+$tatie3+".png",%monster_x,%monster_y
if %SQ=0 && %seduce_turn>-1 lsp 700,":a;chara\"+$tatie3+".bmp",%monster_x,%monster_y
if %SQ=1 && %seduce_turn>-1 lsp 700,":a;2Q\chara\"+$tatie3+".png",%monster_x,%monster_y
if %tekikazu>1 lsp 702,":a;chara\"+$tatie1b+".bmp",%monster_xb,%monster_yb
if %tekikazu>2 lsp 704,":a;chara\"+$tatie1c+".bmp",%monster_xc,%monster_yc
if %tekikazu>3 lsp 706,":a;chara\"+$tatie1d+".bmp",%monster_xd,%monster_yd
print 10,500
return

*face12;

if %kousoku>0 return
if %mon_labo_on=1 && %chara_ori=1 lsp 700,":a;"+$mon_labo_mon_folder+"\"+$tatie12,%monster1_x,%monster1_y:skip 2
if %SQ=0 && %freeze_turn1<0 lsp 700,":a;chara\"+$tatie12+".bmp",%monster1_x,%monster1_y
if %SQ=1 && %freeze_turn1<0 lsp 700,":a;2Q\chara\"+$tatie12+".png",%monster1_x,%monster1_y
print 10,500
return

*face22;

if %kousoku>0 return
if %mon_labo_on=1 && %chara_ori=1 lsp 701,":a;"+$mon_labo_mon_folder+"\"+$tatie22,%monster2_x,%monster2_y:skip 2
if %SQ=0 && %freeze_turn2<0 lsp 701,":a;chara\"+$tatie22+".bmp",%monster2_x,%monster2_y
if %SQ=1 && %freeze_turn2<0 lsp 701,":a;2Q\chara\"+$tatie22+".png",%monster2_x,%monster2_y
print 10,500
return

*face32;

if %kousoku>0 return
if %mon_labo_on=1 && %chara_ori=1 lsp 702,":a;"+$mon_labo_mon_folder+"\"+$tatie32,%monster3_x,%monster3_y:skip 2
if %SQ=0 && %freeze_turn3<0 lsp 702,":a;chara\"+$tatie32+".bmp",%monster3_x,%monster3_y
if %SQ=1 && %freeze_turn3<0 lsp 702,":a;2Q\chara\"+$tatie22+".png",%monster3_x,%monster3_y
print 10,500
return

*face2;

if %enemy_num<2 skip 29
if %enemy_num>1 && %SQ=0 && %enemy1life>0 && %freeze_turn1<0 && %erbind_turn1<0 && %seduce_turn1<0 lsp 700,":a;chara\"+$tatie12+".bmp",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=1 && %enemy1life>0 && %freeze_turn1<0 && %erbind_turn1<0 && %seduce_turn1<0 lsp 700,":a;2Q\chara\"+$tatie12+".png",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=0 && %enemy1life>0 && %freeze_turn1>-1 lsp 700,":a;chara\"+$tatie13+".bmp",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=1 && %enemy1life>0 && %freeze_turn1>-1 lsp 700,":a;2Q\chara\"+$tatie13+".png",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=0 && %enemy1life>0 && %erbind_turn1>-1 lsp 700,":a;chara\"+$tatie13+".bmp",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=1 && %enemy1life>0 && %erbind_turn1>-1 lsp 700,":a;2Q\chara\"+$tatie13+".png",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=0 && %enemy1life>0 && %seduce_turn1>-1 lsp 700,":a;chara\"+$tatie13+".bmp",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=1 && %enemy1life>0 && %seduce_turn1>-1 lsp 700,":a;2Q\chara\"+$tatie13+".png",%monster1_x,%monster1_y

if %enemy_num>1 && %SQ=0 && %enemy2life>0 && %freeze_turn2<0 && %erbind_turn2<0 && %seduce_turn2<0 lsp 701,":a;chara\"+$tatie22+".bmp",%monster2_x,%monster2_y
if %enemy_num>1 && %SQ=1 && %enemy2life>0 && %freeze_turn2<0 && %erbind_turn2<0 && %seduce_turn2<0 lsp 701,":a;2Q\chara\"+$tatie22+".png",%monster2_x,%monster2_y
if %enemy_num>1 && %SQ=0 && %enemy2life>0 && %freeze_turn2>-1 lsp 701,":a;chara\"+$tatie23+".bmp",%monster2_x,%monster2_y
if %enemy_num>1 && %SQ=1 && %enemy2life>0 && %freeze_turn2>-1 lsp 701,":a;2Q\chara\"+$tatie23+".png",%monster2_x,%monster2_y
if %enemy_num>1 && %SQ=0 && %enemy2life>0 && %erbind_turn2>-1 lsp 701,":a;chara\"+$tatie23+".bmp",%monster2_x,%monster2_y
if %enemy_num>1 && %SQ=1 && %enemy2life>0 && %erbind_turn2>-1 lsp 701,":a;2Q\chara\"+$tatie23+".png",%monster2_x,%monster2_y
if %enemy_num>1 && %SQ=0 && %enemy2life>0 && %seduce_turn2>-1 lsp 701,":a;chara\"+$tatie23+".bmp",%monster2_x,%monster2_y
if %enemy_num>1 && %SQ=1 && %enemy2life>0 && %seduce_turn2>-1 lsp 701,":a;2Q\chara\"+$tatie23+".png",%monster2_x,%monster2_y

if %enemy_num>2 && %SQ=0 && %enemy3life>0 && %freeze_turn3<0 && %erbind_turn3<0 && %seduce_turn3<0 lsp 702,":a;chara\"+$tatie32+".bmp",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=1 && %enemy3life>0 && %freeze_turn3<0 && %erbind_turn3<0 && %seduce_turn3<0 lsp 702,":a;2Q\chara\"+$tatie32+".png",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=0 && %enemy3life>0 && %freeze_turn3>-1 lsp 702,":a;chara\"+$tatie33+".bmp",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=1 && %enemy3life>0 && %freeze_turn3>-1 lsp 702,":a;2Q\chara\"+$tatie33+".png",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=0 && %enemy3life>0 && %erbind_turn3>-1 lsp 702,":a;chara\"+$tatie33+".bmp",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=1 && %enemy3life>0 && %erbind_turn3>-1 lsp 702,":a;2Q\chara\"+$tatie33+".png",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=0 && %enemy3life>0 && %seduce_turn3>-1 lsp 702,":a;chara\"+$tatie33+".bmp",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=1 && %enemy3life>0 && %seduce_turn3>-1 lsp 702,":a;2Q\chara\"+$tatie33+".png",%monster3_x,%monster3_y
print 10,500
return

if %kousoku>0 return
if %mon_labo_on=1 && %chara_ori=1 lsp 700,":a;"+$mon_labo_mon_folder+"\"+$tatie2,%monster_x,%monster_y:skip 9
if %SQ=0 && %freeze_turn<0 && %erbind_turn<0 && %seduce_turn<0 lsp 700,":a;chara\"+$tatie2+".bmp",%monster_x,%monster_y
if %SQ=1 && %freeze_turn<0 && %erbind_turn<0 && %seduce_turn<0 lsp 700,":a;2Q\chara\"+$tatie2+".png",%monster_x,%monster_y
if %SQ=0 && %freeze_turn>-1 lsp 700,":a;chara\"+$tatie3+".bmp",%monster_x,%monster_y
if %SQ=1 && %freeze_turn>-1 lsp 700,":a;2Q\chara\"+$tatie3+".png",%monster_x,%monster_y
if %SQ=0 && %erbind_turn>-1 lsp 700,":a;chara\"+$tatie3+".bmp",%monster_x,%monster_y
if %SQ=1 && %erbind_turn>-1 lsp 700,":a;2Q\chara\"+$tatie3+".png",%monster_x,%monster_y
if %SQ=0 && %seduce_turn>-1 lsp 700,":a;chara\"+$tatie3+".bmp",%monster_x,%monster_y
if %SQ=1 && %seduce_turn>-1 lsp 700,":a;2Q\chara\"+$tatie3+".png",%monster_x,%monster_y
if %tekikazu>1 lsp 702,":a;chara\"+$tatie2b+".bmp",%monster_xb,%monster_yb
if %tekikazu>2 lsp 704,":a;chara\"+$tatie2c+".bmp",%monster_xc,%monster_yc
if %tekikazu>3 lsp 706,":a;chara\"+$tatie2d+".bmp",%monster_xd,%monster_yd
print 10,500
return


*face13;

csp 690
if %mon_labo_on=1 && %chara_ori=1 lsp 700,":a;"+$mon_labo_mon_folder+"\"+$tatie13,%monster1_x,%monster1_y:skip 2
if %SQ=0 && %freeze_turn1<0 lsp 700,":a;chara\"+$tatie13+".bmp",%monster1_x,%monster1_y
if %SQ=1 && %freeze_turn1<0 lsp 700,":a;2Q\chara\"+$tatie13+".png",%monster1_x,%monster1_y
print 10,500
return

*face23;

csp 690
if %mon_labo_on=1 && %chara_ori=1 lsp 701,":a;"+$mon_labo_mon_folder+"\"+$tatie23,%monster2_x,%monster2_y:skip 2
if %SQ=0 && %freeze_turn2<0 lsp 701,":a;chara\"+$tatie23+".bmp",%monster2_x,%monster2_y
if %SQ=1 && %freeze_turn2<0 lsp 701,":a;2Q\chara\"+$tatie23+".png",%monster2_x,%monster2_y
print 10,500
return

*face33;

csp 690
if %mon_labo_on=1 && %chara_ori=1 lsp 702,":a;"+$mon_labo_mon_folder+"\"+$tatie33,%monster3_x,%monster3_y:skip 2
if %SQ=0 && %freeze_turn3<0 lsp 702,":a;chara\"+$tatie33+".bmp",%monster3_x,%monster3_y
if %SQ=1 && %freeze_turn3<0 lsp 702,":a;2Q\chara\"+$tatie33+".png",%monster3_x,%monster3_y
print 10,500
return

*face3;

if %enemy_num<2 skip 9
if %enemy_num>1 && %SQ=0 && %enemy1life>0 && %freeze_turn1<0 lsp 700,":a;chara\"+$tatie13+".bmp",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=1 && %enemy1life>0 && %freeze_turn1<0 lsp 700,":a;2Q\chara\"+$tatie13+".png",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=0 && %enemy2life>0 && %freeze_turn2<0 lsp 701,":a;chara\"+$tatie23+".bmp",%monster2_x,%monster2_y
if %enemy_num>1 && %SQ=1 && %enemy2life>0 && %freeze_turn2<0 lsp 701,":a;2Q\chara\"+$tatie23+".png",%monster2_x,%monster2_y
if %enemy_num>2 && %SQ=0 && %enemy3life>0 && %freeze_turn3<0 lsp 702,":a;chara\"+$tatie33+".bmp",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=1 && %enemy3life>0 && %freeze_turn3<0 lsp 702,":a;2Q\chara\"+$tatie33+".png",%monster3_x,%monster3_y
print 10,500
return

csp 690
if %mon_labo_on=1 && %chara_ori=1 lsp 700,":a;"+$mon_labo_mon_folder+"\"+$tatie3,%monster_x,%monster_y:skip 2
if %SQ=0 && %freeze_turn<0 lsp 700,":a;chara\"+$tatie3+".bmp",%monster_x,%monster_y
if %SQ=1 && %freeze_turn<0 lsp 700,":a;2Q\chara\"+$tatie3+".png",%monster_x,%monster_y
if %tekikazu>1 lsp 702,":a;chara\"+$tatie3b+".bmp",%monster_xb,%monster_yb
if %tekikazu>2 lsp 704,":a;chara\"+$tatie3c+".bmp",%monster_xc,%monster_yc
if %tekikazu>3 lsp 706,":a;chara\"+$tatie3d+".bmp",%monster_xd,%monster_yd
print 10,500
return



*kousan_syori

name ""
>Are you sure you want to Surrender?\
csel "Yes.",*surrender,"No.","*"+$lavel+"_main"
return

*surrender

gosub *status_reset
mov %surrender,1
mov %daten,0
mov %before_action,53
mov %kousan,1
mov %count_kousan,%count_kousan+1
if %aqua=2 && %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,1500:skip 2
if %aqua!=2 skip 3
if %SQ2!=1 bg "BG\"+$haikei+".bmp",10,1500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,1500
if %aqua=2 gosub *musicplay
mov %wind,0:mov %earth,0:mov %aqua,0:mov %fire,0
mov %wind_turn,0:mov %earth_turn,0:mov %aqua_turn,0:mov %fire_turn,0
cspl 592,595:print 1
return



*onedari_syori

mov %before_action,54
mov %kousan,2
mov %count_onedari,%count_onedari+1
if %aqua=2 && %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,1500:skip 2
if %aqua!=2 skip 3
if %SQ2!=1 bg "BG\"+$haikei+".bmp",10,1500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,1500
if %aqua=2 gosub *musicplay
mov %wind,0:mov %earth,0:mov %aqua,0:mov %fire,0
cspl 592,595:print 1
mov %kousoku,0:gosub *status_print
cspl 691,699
if %mon_labo_on=1 && %chara_ori=1 lsp 700,":a;"+$mon_labo_mon_folder+"\"+$tatie2,%monster_x,%monster_y:skip 2
if %SQ=0 lsp 700,":a;chara\"+$tatie2+".bmp",%monster_x,%monster_y
if %SQ=1 lsp 700,":a;2Q\chara\"+$tatie2+".png",%monster_x,%monster_y
if %tekikazu>1 lsp 702,":a;chara\"+$tatie2b+".bmp",%monster_xb,%monster_yb
if %tekikazu>2 lsp 704,":a;chara\"+$tatie2c+".bmp",%monster_xc,%monster_yc
if %tekikazu>3 lsp 706,":a;chara\"+$tatie2d+".bmp",%monster_xd,%monster_yd
print 10,500
return



*onedari_syori_k

mov %before_action,54
mov %kousan,2
mov %count_onedari,%count_onedari+1
if %aqua=2 && %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,1500:skip 2
if %aqua!=2 skip 3
if %SQ2!=1 bg "BG\"+$haikei+".bmp",10,1500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,1500
if %aqua=2 gosub *musicplay
mov %wind,0:mov %earth,0:mov %aqua,0:mov %fire,0
cspl 592,595:print 1
if %kousoku>0 return
cspl 690,699
if %mon_labo_on=1 && %chara_ori=1 lsp 700,":a;"+$mon_labo_mon_folder+"\"+$tatie2,%monster_x,%monster_y:skip 2
if %SQ=0 lsp 700,":a;chara\"+$tatie2+".bmp",%monster_x,%monster_y
if %SQ=1 lsp 700,":a;2Q\chara\"+$tatie2+".png",%monster_x,%monster_y
if %tekikazu>1 lsp 702,":a;chara\"+$tatie2b+".bmp",%monster_xb,%monster_yb
if %tekikazu>2 lsp 704,":a;chara\"+$tatie2c+".bmp",%monster_xc,%monster_yc
if %tekikazu>3 lsp 706,":a;chara\"+$tatie2d+".bmp",%monster_xd,%monster_yd
print 10,500
return



*ikigoe

rnd2 %ransu,1,4
if %ikigoe<2 && %ransu=1 mov $sel1,"Aaa... coming!"
if %ikigoe<2 && %ransu=2 mov $sel1,"Fuuaaaa!"
if %ikigoe<2 && %ransu=3 mov $sel1,"Aaaaaa!"
if %ikigoe<2 && %ransu=4 mov $sel1,"Uuuuuu!"

if %ikigoe=2 && %ransu=1 mov $sel1,"Ahhhhhh!"
if %ikigoe=2 && %ransu=2 mov $sel1,"Aaaa!"
if %ikigoe=2 && %ransu=3 mov $sel1,"No... I can't take it anymore!"
if %ikigoe=2 && %ransu=4 mov $sel1,"Ah... too good..."

if %ikigoe=3 && %ransu=1 mov $sel1,"Ahg! I'm going to come!"
if %ikigoe=3 && %ransu=2 mov $sel1,"Co.. coming!"
if %ikigoe=3 && %ransu=3 mov $sel1,"Uhg! N.. no more!"
if %ikigoe=3 && %ransu=4 mov $sel1,"I... can't hold it anymore!"

if %ikigoe=4 && %ransu=1 mov $sel1,"Urhg...!"
if %ikigoe=4 && %ransu=2 mov $sel1,"Ahhg..."
if %ikigoe=4 && %ransu=3 mov $sel1,"Ah... Ahh..."
if %ikigoe=4 && %ransu=4 mov $sel1,"Uhg... Ahh..."

if %ikigoe=4 skip 5
if %status=1 && %ransu=1 mov $sel1,"Fuu..."
if %status=1 && %ransu=2 mov $sel1,"Aaa..."
if %status=1 && %ransu=3 mov $sel1,"Haaa..."
if %status=1 && %ransu=4 mov $sel1,"Too... too good..."

if %ransu=1 && %ikigoe<2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose1_1"
if %ransu=2 && %ikigoe<2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose1_2"
if %ransu=3 && %ikigoe<2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose1_3"
if %ransu=4 && %ikigoe<2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose1_4"

if %ransu=1 && %ikigoe=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose2_1"
if %ransu=2 && %ikigoe=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose2_2"
if %ransu=3 && %ikigoe=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose2_3"
if %ransu=4 && %ikigoe=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose2_4"

if %ransu=1 && %ikigoe=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose3_1"
if %ransu=2 && %ikigoe=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose3_2"
if %ransu=3 && %ikigoe=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose3_3"
if %ransu=4 && %ikigoe=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose3_4"

if %ransu=1 && %ikigoe=4 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose4_1"
if %ransu=2 && %ikigoe=4 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose4_2"
if %ransu=3 && %ikigoe=4 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose4_3"
if %ransu=4 && %ikigoe=4 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose4_4"

if %ikigoe=4 skip 5
if %status=1 && %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose5_1"
if %status=1 && %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose5_1"
if %status=1 && %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose5_1"
if %status=1 && %ransu=4 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose5_1"

name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
return

*fight_unlock

dwave 1,"se\item.ogg"
mov $sel1,$temp_name+" Entry unlocked in the Monsterpedia!"
``$sel1\
return

*scene1_unlock

dwave 1,"se\item.ogg"
mov $sel1,$temp_name+" H-Scene 1 unlocked in the Monsterpedia!"
``$sel1\
return

*scene2_unlock

dwave 1,"se\item.ogg"
mov $sel1,$temp_name+" H-Scene 2 unlocked in the Monsterpedia!"
``$sel1\
return

*scene3_unlock

dwave 1,"se\item.ogg"
mov $sel1,$temp_name+" H-Scene 3 unlocked in the Monsterpedia!"
``$sel1\
return

*scene4_unlock

dwave 1,"se\item.ogg"
mov $sel1,$temp_name+" H-Scene 4 unlocked in the Monsterpedia!"
``$sel1\
return

*scene5_unlock

dwave 1,"se\item.ogg"
mov $sel1,$temp_name+" H-Scene 5 unlocked in the Monsterpedia!"
``$sel1\
return

*scene6_unlock

dwave 1,"se\item.ogg"
mov $sel1,$temp_name+" H-Scene 6 unlocked in the Monsterpedia!"
``$sel1\
return

*scene7_unlock

dwave 1,"se\item.ogg"
mov $sel1,$temp_name+" H-Scene 7 unlocked in the Monsterpedia!"
``$sel1\
return

*scene8_unlock

dwave 1,"se\item.ogg"
mov $sel1,$temp_name+" H-Scene 8 unlocked in the Monsterpedia!"
``$sel1\
return

*scene9_unlock

dwave 1,"se\item.ogg"
mov $sel1,$temp_name+" H-Scene 9 unlocked in the Monsterpedia!"
``$sel1\
return

*victory_notext

mov %mp_charge,0
mov %daten,0
mov %SQ,0
mov %saveoff,0
mov %nobtn,0
mov %alicesup,0
mov %support,0
mov %knightsup,0
mov %party1sup,0
mov %nostar,0
mov %party2sup,0
if %battle_auto=1 skipoff
wait 1000
mov %battle,0
mov %fire,0
mov %ng,1
mov %support,0
mov %knightsup,0
mov %nostar,0
mov %party1sup,0
mov %party2sup,0
mov %enemy_wind,0:mov %enemy_earth,0:mov %enemy_aqua,0:mov %enemy_fire,0
if %aqua=2 && %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,1500:skip 2
if %aqua!=2 skip 3
if %SQ2!=1 bg "BG\"+$haikei+".bmp",10,1500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,1500
mov %SQ2,0
cspl 0,611
cspl 667,670
cspl 695,698
cspl 692,695
mov %aqua,0
mov %earth,0
mov %wind,0
mov %fire,0
mov %aqua_turn,0
mov %wind_turn,0
mov %fire_turn,0
mov %earth_turn,0
gosub *setwindow_01
if %mylv_sin=%mylv skip 2
mov %mylv,%mylv_sin
mov %poison,-1
return


*victoryx

mov %mp_charge,0
mov %daten,0
mov %SQ,0
mov %saveoff,0
mov %nobtn,0
mov %alicesup,0
mov %support,0
mov %knightsup,0
mov %party1sup,0
mov %nostar,0
mov %party2sup,0
if %battle_auto=1 skipoff
wait 1000
mov %battle,0
mov %fire,0
mov %ng,1
mov %support,0
mov %knightsup,0
mov %nostar,0
mov %party1sup,0
mov %party2sup,0
mov %enemy_wind,0:mov %enemy_earth,0:mov %enemy_aqua,0:mov %enemy_fire,0
if %aqua=2 && %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,1500:skip 2
if %aqua!=2 skip 3
if %SQ2!=1 bg "BG\"+$haikei+".bmp",10,1500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,1500
mov %SQ2,0
cspl 0,611
cspl 667,670
cspl 695,698
cspl 692,695
cspl 683,685
mov %aqua,0
mov %earth,0
mov %wind,0
mov %fire,0
mov %aqua_turn,0
mov %wind_turn,0
mov %fire_turn,0
mov %earth_turn,0
gosub *setwindow_01
if %viclose=1 mov $sel1," was defeated!"
if %viclose=2 mov $sel1," was chased away!"
mov $sel6,$name+$sel1
if %nanido<3 && %max_mp<25 && %max_enemylife>1 && %max_mylife<5601 ``$sel6\
if %nanido>2 | %max_enemylife<2 | %max_mp>24 | %max_mylife>5600 ``$sel6@
if %nanido>2 >On Hell difficulty!\
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
if %zukanon=2 mov %zukanon,1
if %zukanon=1 return *zukan_commonkaisou0
if %mylv_sin=%mylv skip 3
mov %mylv,%mylv_sin
>Upon defeating her, Luka's levels return!\
if %poison>0 && $lavel="morrigan_ng" >The pleasuring aura surrounding Luka fades away!\:skip 2
if %poison>0 >The poison fades from Luka's body!\
mov %poison,-1
return

*victoryx_plural

mov %mp_charge,0
mov %daten,0
mov %SQ,0
mov %nobtn,0
mov %nocharge,0
mov %nostar,0
mov %saveoff,0
mov %alicesup,0
mov %support,0
mov %knightsup,0
mov %party1sup,0
mov %nostar,0
mov %party2sup,0
if %battle_auto=1 skipoff
wait 1000
mov %battle,0
if %aqua!=2 skip 3
if %SQ2!=1 bg "BG\"+$haikei+".bmp",10,1500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,1500
mov %SQ2,0
cspl 692,695
for %sub1=0 to 611 step 1
csp %sub1
next
gosub *setwindow_01
if %viclose=1 mov $sel1," were defeated!"
if %viclose=2 mov $sel1," were chased away!"
mov $sel6,$name+$sel1
if %nanido<3 ``$sel6\
if %nanido>2 ``$sel6@
if %nanido>2 >On Hell difficulty!\
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
if %zukanon=1 return *zukan_commonkaisou0
if %mylv_sin=%mylv skip 3
mov %mylv,%mylv_sin
>Level up!\
return


*victory

mov %skillset,1
mov %target_all,0
mov %mp_charge,0
mov %daten,0
mov %SQ,0
mov %saveoff,0
mov %nobtn,0
mov %nocharge,0
if %battle_auto=1 skipoff
wait 1000
mov %battle,0
mov %fire,0
mov %ng,1
mov %alicesup,0
mov %support,0
mov %knightsup,0
mov %party1sup,0
mov %nostar,0
mov %party2sup,0
mov %enemy_wind,0:mov %enemy_earth,0:mov %enemy_aqua,0:mov %enemy_fire,0
if %aqua=2 && %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,1500:skip 2
if %aqua!=2 skip 3
if %SQ2!=1 bg "BG\"+$haikei+".bmp",10,1500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,1500
mov %SQ2,0
cspl 0,611
cspl 667,670
cspl 695,698
cspl 692,695
mov %mylife_lastfight,%mylife
mov %mp_lastfight,%mp
mov %wind_lastfight,%wind
mov %earth_lastfight,%earth
mov %aqua_lastfight,%aqua
mov %fire_lastfight,%fire
mov %windturn_lastfight,%wind_turn
mov %earthturn_lastfight,%earth_turn
mov %aquaturn_lastfight,%aqua_turn
mov %fireturn_lastfight,%fire_turn
mov %aqua,0
mov %earth,0
mov %wind,0
mov %fire,0
mov %aqua_turn,0
mov %wind_turn,0
mov %fire_turn,0
mov %earth_turn,0
mov %enviro_wind,0
mov %enviro_earth,0
mov %enviro_aqua,0
mov %enviro_fire,0
bgmonce "bgm\fanfale.ogg"
gosub *setwindow_01
if %viclose=1 mov $sel1," was defeated!" 
if %viclose=1 && %enemy_num=1 mov $sel1," was defeated!"
if %viclose=1 && %enemy_num>1 mov $sel1," were defeated!"
if %viclose=2 mov $sel1," was chased away!"
if %viclose!=1 && %viclose!=2 mov $sel1," was defeated!"
mov $sel6,$name+$sel1
if %nanido<3 ``$sel6\
if %nanido>2 ``$sel6@
if %nanido>2 >On Hell difficulty!\
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
if %zukanon=1 return *zukan_commonkaisou0
if %zukanon=2 mov %zukanon,1:return *zukan_commonkaisou0
if %mylv_sin=%mylv skip 3
mov %mylv,%mylv_sin
>Upon defeating her, Luka's levels return!\
if %poison>0 >The poison fades from Luka's body!\
mov %poison,-1
mov %enemy_num,1
return

*victory_plural

mov %target_all,0
mov %mp_charge,0
mov %nostar,0
mov %daten,0
mov %SQ,0
mov %nocharge,0
mov %nobtn,0
mov %saveoff,0
if %battle_auto=1 skipoff
wait 1000
mov %battle,0
if %aqua!=2 skip 3
if %SQ2!=1 bg "BG\"+$haikei+".bmp",10,1500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,1500
mov %SQ2,0
cspl 0,611
cspl 667,670
cspl 695,698
cspl 692,695
mov %aqua,0
mov %earth,0
mov %wind,0
mov %fire,0
mov %aqua_turn,0
mov %wind_turn,0
mov %fire_turn,0
mov %earth_turn,0
bgmonce"bgm\fanfale.ogg"
for %sub1=0 to 611 step 1
csp %sub1
next
gosub *setwindow_01
if %viclose=1 mov $sel1," were defeated!"
if %viclose=2 mov $sel1," were chased away!"
mov $sel6,$name+$sel1
if %nanido<3 ``$sel6\
if %nanido>2 ``$sel6@
if %nanido>2 >On Hell difficulty!\
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
if %zukanon=1 return *zukan_commonkaisou0
if %mylv_sin=%mylv skip 3
mov %mylv,%mylv_sin
>Level up!\
return


*lose

mov %daten,0
if %battle_auto=1 skipoff
wait 1000
mov %nocharge,0
mov %battle,0
mov %enemy_wind,0:mov %enemy_earth,0:mov %enemy_aqua,0:mov %enemy_fire,0
if %aqua=2 && %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,1500:skip 2
if %aqua!=2 skip 3
if %SQ2!=1 bg "BG\"+$haikei+".bmp",10,1500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,1500
cspl 0,611
cspl 667,670
cspl 695,698
cspl 692,695
cspl 683,685
gosub *setwindow_01
if %viclose=1 mov $sel1,$ori_name+" was defeated..."
if %viclose=2 mov $sel1,$ori_name+" surrenders..."
mov $sel6,$sel1
``$sel6\
if %player=0 && %con_hbgm=0 && %ng!=2 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %ng=2 bgmstop
if %turn=1 && %kousan=0 mov %count_onekill,1
mov %hsean,1
return



*lose2

if %battle_auto=1 skipoff
wait 1000
if %aqua=2 && %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,1500:skip 2
if %aqua!=2 skip 3
if %SQ2!=1 bg "BG\"+$haikei+".bmp",10,1500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,1500
mov %wind,0:mov %earth,0:mov %aqua,0:mov %fire,0
gosub *elm_print
mov %bougyo,0
if %viclose=1 mov $sel1,$ori_name+" was defeated..."
if %viclose=2 mov $sel1,$ori_name+" surrenders..."
mov $sel6,$sel1
``$sel6\
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 %con_hbgm=0 bgm"2Q\bgmfix\ero1.ogg"
if %con_hbgm=1 bgmstop
if %turn=1 && %kousan=0 mov %count_onekill,1
return


*lvupx

saveoff
mov %exp,%exp+%getexp
mov %mylv_before,%mylv
gosub *lvup_check
itoa $getexp,%getexp
itoa $mylv,%mylv
mov $sel1,"Luka earned "+$getexp+" experience points!"
mov $sel2,"Luka is now level "+$mylv+"!"
len %sub1,$sel1:mov %sub2,%sub1+1
if %sub1/2<%sub2/2 mov $sel1,$sel1+""
len %sub1,$sel2:mov %sub2,%sub1+1
if %sub1/2<%sub2/2 mov $sel2,$sel2+""
notif %mylv=%mylv_before skip 3
``$sel1\
skip 3
``$sel1\
``$sel2\
wait 1000:return


*lvup

saveoff
mov %exp,%exp+%getexp
mov %mylv_before,%mylv
gosub *lvup_check
itoa $getexp,%getexp
itoa $mylv,%mylv
mov $sel1,"Luka earned "+$getexp+" experience points!"
mov $sel2,"Luka is now level "+$mylv+"!"
len %sub1,$sel1:mov %sub2,%sub1+1
if %sub1/2<%sub2/2 mov $sel1,$sel1+""
len %sub1,$sel2:mov %sub2,%sub1+1
if %sub1/2<%sub2/2 mov $sel2,$sel2+""
notif %mylv=%mylv_before skip 3
``$sel1\
skip 4
``$sel1\
dwave 1,"se\lvup.ogg"
``$sel2\
wait 1000:return


*syasei1

name ""
gosub *vanish_sprite
textoff
lsp 2,":c;system\ef_white.jpg",0,0:print 10,300
return



*syasei2

dwave 1,"se\syasei.ogg"
vsp 2,0:print 10,400
vsp 2,1:print 10,300
vsp 2,0:print 10,300
vsp 2,1:print 10,100
csp 2:print 10,1000
texton
gosub *appear_sprite
print 1
return

*syaseif1

gosub *vanish_sprite
textoff
lsp 2,":c;system\ef_white.jpg",0,0:print 10,300
return



*syaseif2

vsp 2,0:print 10,800
vsp 2,1:print 10,600
vsp 2,0:print 10,600
vsp 2,1:print 10,200
csp 2:print 10,1500
texton
gosub *appear_sprite
print 1
return



*anten

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



*hsean_cut

if %zukanon>1 return
csel "Watch H-Scene",*hsean_cut1,"Skip H-Scene",*hsean_cut2



*hsean_cut1

return



*hsean_cut2

if %zukanon>1 return
mov %hseanwave,0:hseanwave
gosub *anten
lsp 200,":s/50,50,0;#ff0000The H-Scene was skipped.",75,200:print 10,500
mov %zukanreturnoff,1
>......\
mov %zukanreturnoff,0
return *badend



*hosyoku_cut

mov %hseanwave,0:hseanwave
gosub *anten
lsp 200,":s/50,50,0;#ff0000The vore scene was skipped...",50,200:print 10,500
>And so ends Luka's adventure, slowly being digested by a monster...\
mov %zukanreturnoff,1
>....\
mov %zukanreturnoff,0
goto *badend



*hosyoku_cut2

mov %hseanwave,0:hseanwave
gosub *anten
lsp 200,":s/50,50,0;#ff0000The vore scene was skipped...",50,200:print 10,500
>And so ends Luka's adventure, slowly being digested by a monster...\
mov %zukanreturnoff,1
>....\
mov %zukanreturnoff,0
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0
goto *badend2



*savegloval1

mov %gloval1_mylv,%mylv
mov %gloval1_exp,%exp
mov %gloval1_ivent01,%ivent01
mov %gloval1_ivent02,%ivent02
mov %gloval1_ivent03,%ivent03
mov %gloval1_ivent04,%ivent04
mov %gloval1_ivent05,%chromemansion
mov %gloval1_ivent06,%ivent06
mov %gloval1_ivent07,%ivent07
mov %gloval1_ivent08,%ivent08
mov %gloval1_ivent09,%ivent09
mov %gloval1_ivent10,%ivent10
mov %gloval1_ivent11,%ivent11
mov %gloval1_ivent12,%ivent12
mov %gloval1_ivent13,%ivent13
mov %gloval1_ivent14,%ivent14
mov %gloval1_ivent15,%ivent15
mov %gloval1_ivent16,%ivent16
mov %gloval1_ivent17,%ivent17
mov %gloval1_ivent18,%ivent18
mov %gloval1_ivent19,%ivent19
mov %gloval1_ivent20,%ivent20
mov %gloval1_check01,%check01
mov %gloval1_check02,%check02
mov %gloval1_check03,%check03
mov %gloval1_check04,%check04
mov %gloval1_check05,%check05
mov %gloval1_check06,%check06
mov %gloval1_check07,%check07
mov %gloval1_check08,%check08
mov %gloval1_check09,%check09
mov %gloval1_check10,%check10
mov %gloval1_check11,%check11
mov %gloval1_check12,%check12
mov %gloval1_check13,%check13
mov %gloval1_check14,%check14
mov %gloval1_check15,%check15
mov %gloval1_check16,%check16
mov %gloval1_check17,%check17
mov %gloval1_check18,%check18
mov %gloval1_check19,%check19
mov %gloval1_check20,%check20
mov %gloval1_skill01,%skill01
mov %gloval1_skill02,%skill02
mov %gloval1_skill03,%skill03
mov %gloval1_skill04,%skill04
mov %gloval1_skill05,%skill05
mov %gloval1_skill06,%skill06
mov %gloval1_skill07,%skill07
mov %gloval1_skill08,%skill08
mov %gloval1_skill09,%skill09
mov %gloval1_skill10,%skill10
mov %gloval1_item01,%item01
mov %gloval1_item02,%item02
mov %gloval1_item03,%item03
mov %gloval1_item04,%item04
mov %gloval1_item05,%item05
mov %gloval1_item06,%item06
mov %gloval1_item07,%item07
mov %gloval1_item08,%item08
mov %gloval1_item09,%item09
mov %gloval1_item10,%item10
mov %gloval1_item11,%item11
mov %gloval1_item12,%item12
mov %gloval1_item13,%item13
mov %gloval1_item14,%item14
mov %gloval1_item15,%item15
mov %gloval1_item16,%item16
mov %gloval1_item17,%item17
mov %gloval1_item18,%item18
mov %gloval1_item19,%item19
mov %gloval1_item20,%item20
mov %gloval1_item21,%item21
mov %gloval1_item22,%item22
mov %gloval1_item23,%item23
mov %gloval1_item24,%item24
mov %gloval1_item25,%item25
mov %gloval1_item26,%item26
mov %gloval1_item27,%item27
mov %gloval1_item28,%item28
mov %gloval1_item29,%item29
mov %gloval1_item30,%item30
mov %gloval1_nanido,%nanido
return



*genzaiti_bg

if %genzaiti=1 bg "bg\bg019.bmp",1	;???????
if %genzaiti=3 bg "bg\bg011.bmp",1	;?????
if %genzaiti=4 bg "bg\bg004.bmp",1	;???????
if %genzaiti=5 bg "bg\bg041.bmp",1	;??...???
if %genzaiti=6 bg "bg\bg039.bmp",1	;???????
if %genzaiti=7 bg "bg\bg062.bmp",1	;????
if %genzaiti=8 bg "bg\bg020.bmp",1	;??????
if %genzaiti=9 bg "bg\bg019.bmp",1	;???????
if %genzaiti=10 bg "bg\bg086.bmp",1	;?????
if %genzaiti=11 bg "bg\bg095.bmp",1	;???????
if %genzaiti=12 bg "bg\bg041.bmp",1	;???????
if %genzaiti=13 bg "bg\bg041.bmp",1	;???????
if %genzaiti=14 bg "bg\bg041.bmp",1	;?????
if %genzaiti=15 bg "bg\bg021.bmp",1	;???????
if %genzaiti=16 bg "bg\bg142.bmp",1	;??????
if %genzaiti=17 bg "bg\bg142.bmp",1	;???
if %genzaiti=18 bg "bg\bg142.bmp",1	;?????
if %genzaiti=19 bg "bg\bg099.bmp",1	;??????
if %genzaiti=20 bg "bg\bg078.bmp",1  ;Grand Noah
if %genzaiti=21 bg "bg\bg010.bmp",1  ;camp
gosub *setwindow_01
return



;===================================================================================
;???
;===================================================================================

*doppel_common_main

mov %battle,1

mov %turn,%turn+1

mov %owaza_count1a,%owaza_count1a+1
mov %owaza_count1b,%owaza_count1b+1
mov %owaza_count1c,%owaza_count1c+1
if %nanido=3 mov %owaza_count1a,100
if %nanido=3 mov %owaza_count1b,100
if %nanido=3 mov %owaza_count1c,100
mov %owaza_count2a,%owaza_count2a+1
mov %owaza_count2b,%owaza_count2b+1
mov %owaza_count2c,%owaza_count2c+1
if %nanido=3 mov %owaza_count2a,100
if %nanido=3 mov %owaza_count2b,100
if %nanido=3 mov %owaza_count2c,100
mov %owaza_count3a,%owaza_count3a+1
mov %owaza_count3b,%owaza_count3b+1
mov %owaza_count3c,%owaza_count3c+1
if %nanido=3 mov %owaza_count3a,100
if %nanido=3 mov %owaza_count3b,100
if %nanido=3 mov %owaza_count3c,100

mov %tuika_owaza_count1a,%tuika_owaza_count1a+1
mov %tuika_owaza_count1b,%tuika_owaza_count1b+1
mov %tuika_owaza_count1c,%tuika_owaza_count1c+1
mov %tuika_owaza_count1d,%tuika_owaza_count1d+1
mov %tuika_owaza_count1e,%tuika_owaza_count1e+1
mov %tuika_owaza_count1f,%tuika_owaza_count1f+1
mov %tuika_owaza_count1g,%tuika_owaza_count1g+1
mov %tuika_owaza_count1h,%tuika_owaza_count1h+1
mov %tuika_owaza_count2a,%tuika_owaza_count2a+1
mov %tuika_owaza_count2b,%tuika_owaza_count2b+1
mov %tuika_owaza_count2c,%tuika_owaza_count2c+1
mov %tuika_owaza_count2d,%tuika_owaza_count2d+1
mov %tuika_owaza_count3a,%tuika_owaza_count3a+1
mov %tuika_owaza_count3b,%tuika_owaza_count3b+1
mov %tuika_owaza_count3c,%tuika_owaza_count3c+1
mov %tuika_owaza_count3d,%tuika_owaza_count3d+1
mov %tuika_owaza_count4a,%tuika_owaza_count4a+1
mov %tuika_owaza_count4b,%tuika_owaza_count4b+1

mov %bougyo,0
mov %skill_sub,0
mov %skill_num,0

notif %max_mylife=%mylife mov %nodamage,1

if %kousoku>0 skip 5
mov %wind_turn,%wind_turn-1
if %wind>0 && %wind_turn<0 gosub *element_sel
mov %earth_turn,%earth_turn-1
if %earth>0 && %earth_turn<0 gosub *element_sel

if %aqua=1 mov %aqua_turn,%aqua_turn-1
if %aqua=1 && %aqua_turn<0 gosub *element_sel
if %aqua=3 mov %aqua_turn,%aqua_turn-1
if %aqua=3 && %aqua_turn<0 gosub *element_sel

if %aqua=2 && %aqua_end=1 gosub *aqua_sel
if %aqua=2 && %wind!=5 mov %mp,%mp-1:gosub *mp
if %aqua=2 && %wind=5 mov %mp,%mp-2:gosub *mp
if %aqua=2 && %mp<0 gosub *aqua_sel
mov %aqua_end,0

if %kousoku>0 skip 3
mov %fire_turn,%fire_turn-1
if %fire>0 && %fire_turn<0 gosub *element_sel

if %status=0 skip 14
mov %status_turn,%status_turn-1
if %status=1 && %status_turn>-1 goto *status_sel1
if %status=1 && %status_turn<0 goto *status_sel2
if %status=2 && %status_turn>-1 goto *status_sel1
if %status=2 && %status_turn<0 goto *status_sel2
if %status=4 && %status_turn>-1 goto *status_sel1
if %status=4 && %status_turn<0 goto *status_sel2
if %status=5 && %status_turn>-1 goto *status_sel1
if %status=5 && %status_turn<0 goto *status_sel2
if %status=6 goto *status_sel3
if %status=7 && %status_turn>-1 goto *status_sel1
if %status=7 && %status_turn<0 goto *status_sel2
if %status=8 goto *status_sel1

if %kadora=0 skip 8
if %kadora_damage=0 && %kousoku=0 && %status=0 skip 3
mov %kadora_damage,0:mov %kadora,0
>The power infused in Luka's sword vanishes!\
if %kadora=1 goto *skill15a
if %kadora=2 goto *skill15b
if %kadora=3 goto *skill15c
if %kadora=4 goto *skill15d

if %kousan>0 goto "*"+$lavel+"_a"
goto "*"+$lavel+"_main"

*common_poison

name ""
if %poison<1 return
dwave 1,"se\aqua3.ogg"
>The poison slowly corrupts Luka's body!\
if $lavel="erubetie_ng" damage 150,200:skip 5
if $lavel="lilith_ng" damage,280,350:skip 4
mov %poison1,%max_mylife/15
mov %poison2,%max_mylife/9
damage %poison1,%poison2
if %mylife<1 goto "*"+$lavel+"_hpoison"
textclear
return

*common_poisonfade

name ""
mov %poison,%poison-1
if %status=9 mov %status,0
>The poison finally fades from Luka's body!\
gosub *status_print
textclear
return

*common_burn

name ""
dwave 1,"se\fire2.ogg"
if %enemy_num=1 mov $sel1,"The burns linger, damaging " +$name+"!"
if %enemy_num>1 && %enemy_target=1 mov $sel1,"The burns linger, damaging " +$name1+"!"
if %enemy_num>1 && %enemy_target=2 mov $sel1,"The burns linger, damaging " +$name2+"!"
if %enemy_num>1 && %enemy_target=3 mov $sel1,"The burns linger, damaging " +$name3+"!"
if %enemy_num>1 && %enemy_target=4 mov $sel1,"The burns linger, damaging " +$name4+"!"
if %enemy_num>1 && %enemy_target=5 mov $sel1,"The burns linger, damaging " +$name5+"!"
if %enemy_num>1 && %enemy_target=6 mov $sel1,"The burns linger, damaging " +$name6+"!"
if %enemy_num>1 && %enemy_target=7 mov $sel1,"The burns linger, damaging " +$name7+"!"
if %enemy_num>1 && %enemy_target=8 mov $sel1,"The burns linger, damaging " +$name8+"!"
if %enemy_num>1 && %enemy_target=9 mov $sel1,"The burns linger, damaging " +$name9+"!"
``$sel1\
mov %abairitu,100+%mylv*3
dwave 1,"se\damage2.ogg"
mov $ori_name,"Alice"
gosub *enemylife
mov $ori_name,"Luka"
return

*common_burnfade

if %enemy_num=1 mov %burn_turn,%burn_turn-1:mov $sel1,"The burns on "+$name+"'s body fade away!"
if %enemy_num>1 && %enemy_target=1 mov %burn_turn1,%burn_turn1-1:mov $sel1,"The burns on "+$name1+"'s body fade away!"
if %enemy_num>1 && %enemy_target=2 mov %burn_turn2,%burn_turn2-1:mov $sel1,"The burns on "+$name2+"'s body fade away!"
if %enemy_num>1 && %enemy_target=3 mov %burn_turn3,%burn_turn3-1:mov $sel1,"The burns on "+$name3+"'s body fade away!"
if %enemy_num>1 && %enemy_target=4 mov %burn_turn4,%burn_turn4-1:mov $sel1,"The burns on "+$name4+"'s body fade away!"
if %enemy_num>1 && %enemy_target=5 mov %burn_turn5,%burn_turn5-1:mov $sel1,"The burns on "+$name5+"'s body fade away!"
if %enemy_num>1 && %enemy_target=6 mov %burn_turn6,%burn_turn6-1:mov $sel1,"The burns on "+$name6+"'s body fade away!"
if %enemy_num>1 && %enemy_target=7 mov %burn_turn7,%burn_turn7-1:mov $sel1,"The burns on "+$name7+"'s body fade away!"
if %enemy_num>1 && %enemy_target=8 mov %burn_turn8,%burn_turn8-1:mov $sel1,"The burns on "+$name8+"'s body fade away!"
if %enemy_num>1 && %enemy_target=9 mov %burn_turn9,%burn_turn9-1:mov $sel1,"The burns on "+$name9+"'s body fade away!"
``$sel1\
return

*common_freeze

name ""
dwave 1,"2Q\se\iceeffect_frozen.ogg"
wait 1000
if %enemy_num=1 mov $sel1,$name+" is frozen solid!"
if %enemy_num>1 && %enemy_target=1 mov $sel1,$name1+" is frozen solid!"
if %enemy_num>1 && %enemy_target=2 mov $sel1,$name2+" is frozen solid!"
if %enemy_num>1 && %enemy_target=3 mov $sel1,$name3+" is frozen solid!"
if %enemy_num>1 && %enemy_target=4 mov $sel1,$name4+" is frozen solid!"
if %enemy_num>1 && %enemy_target=5 mov $sel1,$name5+" is frozen solid!"
if %enemy_num>1 && %enemy_target=6 mov $sel1,$name6+" is frozen solid!"
if %enemy_num>1 && %enemy_target=7 mov $sel1,$name7+" is frozen solid!"
if %enemy_num>1 && %enemy_target=8 mov $sel1,$name8+" is frozen solid!"
if %enemy_num>1 && %enemy_target=9 mov $sel1,$name9+" is frozen solid!"
``$sel1\
return

*common_freezefade

dwave 1,"2Q\se\iceeffect_break.ogg"
wait 1000
if %enemy_num=1 mov %freeze_turn,%freeze_turn-1 mov $sel1,mov $sel1,"The ice around "+$name+"'s body thaws, slowly shattering and fading away!"
if %enemy_num>1 && %enemy_target=1 gosub *face11:mov %freeze_turn1,%freeze_turn1-1:mov $sel1,"The ice around "+$name1+"'s body thaws, slowly shattering and fading away!"
if %enemy_num>1 && %enemy_target=2 gosub *face21:mov %freeze_turn2,%freeze_turn2-1:mov $sel1,"The ice around "+$name2+"'s body thaws, slowly shattering and fading away!"
if %enemy_num>1 && %enemy_target=3 gosub *face31:mov %freeze_turn3,%freeze_turn3-1:mov $sel1,"The ice around "+$name3+"'s body thaws, slowly shattering and fading away!"
if %enemy_num>1 && %enemy_target=4 gosub *face41:mov %freeze_turn4,%freeze_turn4-1:mov $sel1,"The ice around "+$name4+"'s body thaws, slowly shattering and fading away!"
if %enemy_num>1 && %enemy_target=5 gosub *face51:mov %freeze_turn5,%freeze_turn5-1:mov $sel1,"The ice around "+$name5+"'s body thaws, slowly shattering and fading away!"
if %enemy_num>1 && %enemy_target=6 gosub *face61:mov %freeze_turn6,%freeze_turn6-1:mov $sel1,"The ice around "+$name6+"'s body thaws, slowly shattering and fading away!"
if %enemy_num>1 && %enemy_target=7 gosub *face71:mov %freeze_turn7,%freeze_turn7-1:mov $sel1,"The ice around "+$name7+"'s body thaws, slowly shattering and fading away!"
if %enemy_num>1 && %enemy_target=8 gosub *face81:mov %freeze_turn8,%freeze_turn8-1:mov $sel1,"The ice around "+$name8+"'s body thaws, slowly shattering and fading away!"
if %enemy_num>1 && %enemy_target=9 gosub *face91:mov %freeze_turn9,%freeze_turn9-1:mov $sel1,"The ice around "+$name9+"'s body thaws, slowly shattering and fading away!"
``$sel1\
return

*common_a

mov %luka_turn,%luka_turn+1
if %luka_turn<%luka_maxturn goto "*"+$lavel+"_main"
goto "*"+$lavel+"_a"

*count_alive

mov %alive_num,0
if %enemy_num=1 && %enemylife>0 mov %alive_num,%alive_num+1
if %enemy_num>1 && %enemy1life>0 mov %alive_num,%alive_num+1
if %enemy_num>1 && %enemy2life>0 mov %alive_num,%alive_num+1
if %enemy_num>2 && %enemy3life>0 mov %alive_num,%alive_num+1
if %enemy_num>3 && %enemy4life>0 mov %alive_num,%alive_num+1
if %enemy_num>4 && %enemy5life>0 mov %alive_num,%alive_num+1
if %enemy_num>5 && %enemy6life>0 mov %alive_num,%alive_num+1
if %enemy_num>6 && %enemy7life>0 mov %alive_num,%alive_num+1
if %enemy_num>7 && %enemy8life>0 mov %alive_num,%alive_num+1
;itoa $alive_num,%alive_num
;``$alive_num\
return

*common_main; Adding the ; to easily find it

if %sinkou>2 && %poison>0 && %skill_refresh<1 gosub *learn_refresh

if %debug=2 goto "*"+$lavel+"_v" ;// So I can just skip battles for testing purposes.

skillname ""
if %player=0 mov $ori_name,"Luka"
mov %previous_menu,1
mov %gnome_buff,%gnome_rep/2
mov %undine_buff,%undine_rep/2
mov %battle,1
mov %guard_on,0
mov %support_turn,0
mov %is_attack,0
mov %is_damaged,0
if %bougyo=1 mov %guard_on,1
if %bougyo=2 && %cmd1=24 && %skill01>26 mov %guard_on,1
if %bougyo=2 && %cmd1=46 && %skill01>26 mov %guard_on,1
if %guard_on=0 mov %bougyo,0
if %bougyo=1 mov %bougyo,0

notif %luka_turn<%luka_maxturn,mov %luka_turn,0
mov %turn,%turn+1

mov %owaza_count1a,%owaza_count1a+1
mov %owaza_count1b,%owaza_count1b+1
mov %owaza_count1c,%owaza_count1c+1
if %nanido=3 mov %owaza_count1a,100
if %nanido=3 mov %owaza_count1b,100
if %nanido=3 mov %owaza_count1c,100
mov %owaza_count2a,%owaza_count2a+1
mov %owaza_count2b,%owaza_count2b+1
mov %owaza_count2c,%owaza_count2c+1
if %nanido=3 mov %owaza_count2a,100
if %nanido=3 mov %owaza_count2b,100
if %nanido=3 mov %owaza_count2c,100
mov %owaza_count3a,%owaza_count3a+1
mov %owaza_count3b,%owaza_count3b+1
mov %owaza_count3c,%owaza_count3c+1
if %nanido=3 mov %owaza_count3a,100
if %nanido=3 mov %owaza_count3b,100
if %nanido=3 mov %owaza_count3c,100

mov %tuika_owaza_count1a,%tuika_owaza_count1a+1
mov %tuika_owaza_count1b,%tuika_owaza_count1b+1
mov %tuika_owaza_count1c,%tuika_owaza_count1c+1
mov %tuika_owaza_count1d,%tuika_owaza_count1d+1
mov %tuika_owaza_count1e,%tuika_owaza_count1e+1
mov %tuika_owaza_count1f,%tuika_owaza_count1f+1
mov %tuika_owaza_count1g,%tuika_owaza_count1g+1
mov %tuika_owaza_count1h,%tuika_owaza_count1h+1
mov %tuika_owaza_count2a,%tuika_owaza_count2a+1
mov %tuika_owaza_count2b,%tuika_owaza_count2b+1
mov %tuika_owaza_count2c,%tuika_owaza_count2c+1
mov %tuika_owaza_count2d,%tuika_owaza_count2d+1
mov %tuika_owaza_count3a,%tuika_owaza_count3a+1
mov %tuika_owaza_count3b,%tuika_owaza_count3b+1
mov %tuika_owaza_count3c,%tuika_owaza_count3c+1
mov %tuika_owaza_count3d,%tuika_owaza_count3d+1
mov %tuika_owaza_count4a,%tuika_owaza_count4a+1
mov %tuika_owaza_count4b,%tuika_owaza_count4b+1

mov %skill_sub,0
mov %skill_num,0

notif %max_mylife=%mylife mov %nodamage,1

if %max_mylife>%mylife*5 && %kousoku=0 && %sel_kiki=1 gosub *face2

if %kousoku>0 skip 5
mov %wind_turn,%wind_turn-1
if %wind>0 && %wind_turn<0 gosub *element_sel
mov %earth_turn,%earth_turn-1
if %earth>0 && %earth_turn<0 gosub *element_sel

if %aqua>0 && %aqua!=2 mov %aqua_turn,%aqua_turn-1
if %aqua>0 && %aqua!=2 && %aqua_turn<0 gosub *element_sel

if %aqua_end=1 gosub *aqua_sel
if %aqua=2 && %wind!=5 mov %mp,%mp-1:gosub *mp
if %aqua=2 && %wind=5 mov %mp,%mp-2:gosub *mp
if %aqua=2 && %mp<1 gosub *aqua_sel
if %aqua=2 mov %aqua_turn,%mp
if %aqua=2 && %wind=5 mov %wind_turn,%mp
mov %aqua_end,0

if %kousoku>0 skip 3
mov %fire_turn,%fire_turn-1
if %fire>0 && %fire_turn<0 gosub *element_sel

if %poison>0 mov %poison,%poison-1
if %poison=0 gosub *common_poisonfade
if %poison>0 mov %poison_damage,1:gosub *common_poison:mov %poison_damage,0

gosub *count_alive

if %freeze_turn1>0 && %enemy1life<1 mov %freeze_turn1,-1
if %freeze_turn2>0 && %enemy2life<1 mov %freeze_turn2,-1
if %freeze_turn3>0 && %enemy3life<1 mov %freeze_turn3,-1
if %freeze_turn4>0 && %enemy4life<1 mov %freeze_turn4,-1
if %freeze_turn5>0 && %enemy5life<1 mov %freeze_turn5,-1
if %freeze_turn6>0 && %enemy6life<1 mov %freeze_turn6,-1
if %freeze_turn7>0 && %enemy7life<1 mov %freeze_turn7,-1
if %freeze_turn8>0 && %enemy8life<1 mov %freeze_turn8,-1
if %freeze_turn9>0 && %enemy9life<1 mov %freeze_turn9,-1

if %burn_turn1>0 && %enemy1life<1 mov %burn_turn1,-1
if %burn_turn2>0 && %enemy2life<1 mov %burn_turn2,-1
if %burn_turn3>0 && %enemy3life<1 mov %burn_turn3,-1
if %burn_turn4>0 && %enemy4life<1 mov %burn_turn4,-1
if %burn_turn5>0 && %enemy5life<1 mov %burn_turn5,-1
if %burn_turn6>0 && %enemy6life<1 mov %burn_turn6,-1
if %burn_turn7>0 && %enemy7life<1 mov %burn_turn7,-1
if %burn_turn8>0 && %enemy8life<1 mov %burn_turn8,-1
if %burn_turn9>0 && %enemy9life<1 mov %burn_turn9,-1

if %burn_turn=0 gosub *common_burnfade
if %burn_turn1=0 mov %enemy_target,1:gosub *common_burnfade
if %burn_turn2=0 mov %enemy_target,2:gosub *common_burnfade
if %burn_turn3=0 mov %enemy_target,3:gosub *common_burnfade
if %burn_turn4=0 mov %enemy_target,4:gosub *common_burnfade
if %burn_turn5=0 mov %enemy_target,5:gosub *common_burnfade
if %burn_turn6=0 mov %enemy_target,6:gosub *common_burnfade
if %burn_turn7=0 mov %enemy_target,7:gosub *common_burnfade
if %burn_turn8=0 mov %enemy_target,8:gosub *common_burnfade
if %burn_turn9=0 mov %enemy_target,9:gosub *common_burnfade

if %freeze_turn=0 gosub *common_freezefade
if %freeze_turn1=0 mov %enemy_target,1:gosub *common_freezefade
if %freeze_turn2=0 mov %enemy_target,2:gosub *common_freezefade
if %freeze_turn3=0 mov %enemy_target,3:gosub *common_freezefade
if %freeze_turn4=0 mov %enemy_target,4:gosub *common_freezefade
if %freeze_turn5=0 mov %enemy_target,5:gosub *common_freezefade
if %freeze_turn6=0 mov %enemy_target,6:gosub *common_freezefade
if %freeze_turn7=0 mov %enemy_target,7:gosub *common_freezefade
if %freeze_turn8=0 mov %enemy_target,8:gosub *common_freezefade
if %freeze_turn9=0 mov %enemy_target,9:gosub *common_freezefade

if %burn_turn>0 gosub *common_burn:mov %burn_turn,%burn_turn-1
if %burn_turn1>0 mov %enemy_target,1:gosub *common_burn:mov %burn_turn1,%burn_turn1-1
if %burn_turn2>0 mov %enemy_target,2:gosub *common_burn:mov %burn_turn2,%burn_turn2-1
if %burn_turn3>0 mov %enemy_target,3:gosub *common_burn:mov %burn_turn3,%burn_turn3-1
if %burn_turn4>0 mov %enemy_target,4:gosub *common_burn:mov %burn_turn4,%burn_turn4-1
if %burn_turn5>0 mov %enemy_target,5:gosub *common_burn:mov %burn_turn5,%burn_turn5-1
if %burn_turn6>0 mov %enemy_target,6:gosub *common_burn:mov %burn_turn6,%burn_turn6-1
if %burn_turn7>0 mov %enemy_target,7:gosub *common_burn:mov %burn_turn7,%burn_turn7-1
if %burn_turn8>0 mov %enemy_target,8:gosub *common_burn:mov %burn_turn8,%burn_turn8-1
if %burn_turn9>0 mov %enemy_target,9:gosub *common_burn:mov %burn_turn9,%burn_turn9-1

if %freeze_turn>0 gosub *common_freeze:mov %freeze_turn,%freeze_turn-1
if %freeze_turn1>0 mov %enemy_target,1:gosub *common_freeze:mov %freeze_turn1,%freeze_turn1-1
if %freeze_turn2>0 mov %enemy_target,2:gosub *common_freeze:mov %freeze_turn2,%freeze_turn2-1
if %freeze_turn3>0 mov %enemy_target,3:gosub *common_freeze:mov %freeze_turn3,%freeze_turn3-1
if %freeze_turn4>0 mov %enemy_target,4:gosub *common_freeze:mov %freeze_turn4,%freeze_turn4-1
if %freeze_turn5>0 mov %enemy_target,5:gosub *common_freeze:mov %freeze_turn5,%freeze_turn5-1
if %freeze_turn6>0 mov %enemy_target,6:gosub *common_freeze:mov %freeze_turn6,%freeze_turn6-1
if %freeze_turn7>0 mov %enemy_target,7:gosub *common_freeze:mov %freeze_turn7,%freeze_turn7-1
if %freeze_turn8>0 mov %enemy_target,8:gosub *common_freeze:mov %freeze_turn8,%freeze_turn8-1
if %freeze_turn9>0 mov %enemy_target,9:gosub *common_freeze:mov %freeze_turn9,%freeze_turn9-1

if %whitewind_turn=0 gosub *whitewind_end
if %brace_turn=0 gosub *brace_end
if %strength_turn=0 gosub *strength_end
if %unpentagram_turn=0 gosub *unpentagram_end
if %erpentagram_turn=0 gosub *erpentagram_end
if %enrage_turn=0 gosub *enrage_end
if %burn_turn=0 gosub *burn_end
if %blackwind_turn=0 gosub *blackwind_end
if %waterwall_turn=0 gosub *waterwall_end
if %titanguard_turn=0 gosub *titanguard_end
if %zylphe_turn=0 gosub *zylphe_end
if %gnomaren_turn=0 gosub *gnomaren_end
;if %grandine_turn=0 gosub *grandine_end
;if %gigamander_turn=0 gosub *gigamander_end

if %seduce_turn>0 gosub "*"+$lavel+"_seduce"
if %seduce_turn=0 mov %seduce_turn,-1:gosub "*"+$lavel+"_endseduce"
if %seduce_turn1>0 gosub "*"+$lavel+"_seduce1"
if %seduce_turn1=0 mov %seduce_turn1,-1:gosub "*"+$lavel+"_endseduce1"
if %seduce_turn2>0 gosub "*"+$lavel+"_seduce2"
if %seduce_turn2=0 mov %seduce_turn2,-1:gosub "*"+$lavel+"_endseduce2"
if %seduce_turn3>0 gosub "*"+$lavel+"_seduce3"
if %seduce_turn3=0 mov %seduce_turn3,-1:gosub "*"+$lavel+"_endseduce3"
if %seduce_turn4>0 gosub "*"+$lavel+"_seduce4"
if %seduce_turn4=0 mov %seduce_turn4,-1:gosub "*"+$lavel+"_endseduce4"
if %seduce_turn5>0 gosub "*"+$lavel+"_seduce5"
if %seduce_turn5=0 mov %seduce_turn5,-1:gosub "*"+$lavel+"_endseduce5"
if %seduce_turn6>0 gosub "*"+$lavel+"_seduce6"
if %seduce_turn6=0 mov %seduce_turn6,-1:gosub "*"+$lavel+"_endseduce6"
if %seduce_turn7>0 gosub "*"+$lavel+"_seduce7"
if %seduce_turn7=0 mov %seduce_turn7,-1:gosub "*"+$lavel+"_endseduce7"
if %seduce_turn8>0 gosub "*"+$lavel+"_seduce8"
if %seduce_turn8=0 mov %seduce_turn8,-1:gosub "*"+$lavel+"_endseduce8"
if %seduce_turn9>0 gosub "*"+$lavel+"_seduce9"
if %seduce_turn9=0 mov %seduce_turn9,-1:gosub "*"+$lavel+"_endseduce9"

if %erbind_turn>0 gosub "*"+$lavel+"_bind"
if %erbind_turn=0 mov %erbind_turn,-1:gosub "*"+$lavel+"_endbind"
if %erbind_turn1>0 gosub "*"+$lavel+"_bind1"
if %erbind_turn1=0 mov %erbind_turn1,-1:gosub "*"+$lavel+"_endbind1"
if %erbind_turn2>0 gosub "*"+$lavel+"_bind2"
if %erbind_turn2=0 mov %erbind_turn2,-1:gosub "*"+$lavel+"_endbind2"
if %erbind_turn3>0 gosub "*"+$lavel+"_bind3"
if %erbind_turn3=0 mov %erbind_turn3,-1:gosub "*"+$lavel+"_endbind3"
if %erbind_turn4>0 gosub "*"+$lavel+"_bind4"
if %erbind_turn4=0 mov %erbind_turn4,-1:gosub "*"+$lavel+"_endbind4"
if %erbind_turn5>0 gosub "*"+$lavel+"_bind5"
if %erbind_turn5=0 mov %erbind_turn5,-1:gosub "*"+$lavel+"_endbind5"
if %erbind_turn6>0 gosub "*"+$lavel+"_bind6"
if %erbind_turn6=0 mov %erbind_turn6,-1:gosub "*"+$lavel+"_endbind6"
if %erbind_turn7>0 gosub "*"+$lavel+"_bind7"
if %erbind_turn7=0 mov %erbind_turn7,-1:gosub "*"+$lavel+"_endbind7"
if %erbind_turn8>0 gosub "*"+$lavel+"_bind8"
if %erbind_turn8=0 mov %erbind_turn8,-1:gosub "*"+$lavel+"_endbind8"
if %erbind_turn9>0 gosub "*"+$lavel+"_bind9"
if %erbind_turn9=0 mov %erbind_turn9,-1:gosub "*"+$lavel+"_endbind9"

if %whitewind_turn>0 gosub *whitewind_effect
if %enrage_turn>0 gosub *enrage_effect

if %whitewind_turn>0 mov %whitewind_turn,%whitewind_turn-1
if %brace_turn>0 mov %brace_turn,%brace_turn-1
if %strength_turn>0 mov %strength_turn,%strength_turn-1
if %unpentagram_turn>0 mov %unpentagram_turn,%unpentagram_turn-1
if %enrage_turn>0 mov %enrage_turn,%enrage_turn-1
if %burn_turn>0 mov %burn_turn,%burn_turn-1
if %blackwind_turn>0 mov %blackwind_turn,%blackwind_turn-1
if %titanguard_turn>0 mov %titanguard_turn,%titanguard_turn-1
if %seduce_turn>0 mov %seduce_turn,%seduce_turn-1
if %seduce_turn1>0 mov %seduce_turn1,%seduce_turn1-1
if %seduce_turn2>0 mov %seduce_turn2,%seduce_turn2-1
if %seduce_turn3>0 mov %seduce_turn3,%seduce_turn3-1
if %seduce_turn4>0 mov %seduce_turn4,%seduce_turn4-1
if %seduce_turn5>0 mov %seduce_turn5,%seduce_turn5-1
if %seduce_turn6>0 mov %seduce_turn6,%seduce_turn6-1
if %seduce_turn7>0 mov %seduce_turn7,%seduce_turn7-1
if %seduce_turn8>0 mov %seduce_turn8,%seduce_turn8-1
if %seduce_turn9>0 mov %seduce_turn9,%seduce_turn9-1
if %erpentagram_turn>0 mov %erpentagram_turn,%erpentagram_turn-1
if %erbind_turn>0 mov %erbind_turn,%erbind_turn-1
if %erbind_turn1>0 mov %erbind_turn1,%erbind_turn1-1
if %erbind_turn2>0 mov %erbind_turn2,%erbind_turn2-1
if %erbind_turn3>0 mov %erbind_turn3,%erbind_turn3-1
if %erbind_turn4>0 mov %erbind_turn4,%erbind_turn4-1
if %erbind_turn5>0 mov %erbind_turn5,%erbind_turn5-1
if %erbind_turn6>0 mov %erbind_turn6,%erbind_turn6-1
if %erbind_turn7>0 mov %erbind_turn7,%erbind_turn7-1
if %erbind_turn8>0 mov %erbind_turn8,%erbind_turn8-1
if %erbind_turn9>0 mov %erbind_turn9,%erbind_turn9-1
if %zylphe_turn>0 mov %zylphe_turn,%zylphe_turn-1
if %gnomaren_turn>0 mov %gnomaren_turn,%gnomaren_turn-1
if %grandine_turn>0 mov %grandine_turn,%grandine_turn-1
if %gigamander_turn>0 mov %gigamander_turn,%gigamander_turn-1

if %enemy_wind>0 && %enemy_windturn<1 gosub *enemy_element_sel
if %enemy_fire>0 && %enemy_fireturn<1 gosub *enemy_element_sel
if %enemy_aqua>0 && %enemy_aquaturn<1 gosub *enemy_element_sel
if %enemy_earth>0 && %enemy_earthturn<1 gosub *enemy_element_sel
if %enemy1_wind>0 && %enemy1_windturn<1 gosub *enemy_element_sel
if %enemy1_fire>0 && %enemy1_fireturn<1 gosub *enemy_element_sel
if %enemy1_aqua>0 && %enemy1_aquaturn<1 gosub *enemy_element_sel
if %enemy1_earth>0 && %enemy1_earthturn<1 gosub *enemy_element_sel
if %enemy2_wind>0 && %enemy2_windturn<1 gosub *enemy_element_sel
if %enemy2_fire>0 && %enemy2_fireturn<1 gosub *enemy_element_sel
if %enemy2_aqua>0 && %enemy2_aquaturn<1 gosub *enemy_element_sel
if %enemy2_earth>0 && %enemy2_earthturn<1 gosub *enemy_element_sel
if %enemy3_wind>0 && %enemy3_windturn<1 gosub *enemy_element_sel
if %enemy3_fire>0 && %enemy3_fireturn<1 gosub *enemy_element_sel
if %enemy3_aqua>0 && %enemy3_aquaturn<1 gosub *enemy_element_sel
if %enemy3_earth>0 && %enemy3_earthturn<1 gosub *enemy_element_sel
if %enemy4_wind>0 && %enemy4_windturn<1 gosub *enemy_element_sel
if %enemy4_fire>0 && %enemy4_fireturn<1 gosub *enemy_element_sel
if %enemy4_aqua>0 && %enemy4_aquaturn<1 gosub *enemy_element_sel
if %enemy4_earth>0 && %enemy4_earthturn<1 gosub *enemy_element_sel
if %enemy5_wind>0 && %enemy5_windturn<1 gosub *enemy_element_sel
if %enemy5_fire>0 && %enemy5_fireturn<1 gosub *enemy_element_sel
if %enemy5_aqua>0 && %enemy5_aquaturn<1 gosub *enemy_element_sel
if %enemy5_earth>0 && %enemy5_earthturn<1 gosub *enemy_element_sel
if %enemy6_wind>0 && %enemy6_windturn<1 gosub *enemy_element_sel
if %enemy6_fire>0 && %enemy6_fireturn<1 gosub *enemy_element_sel
if %enemy6_aqua>0 && %enemy6_aquaturn<1 gosub *enemy_element_sel
if %enemy6_earth>0 && %enemy6_earthturn<1 gosub *enemy_element_sel
if %enemy7_wind>0 && %enemy7_windturn<1 gosub *enemy_element_sel
if %enemy7_fire>0 && %enemy7_fireturn<1 gosub *enemy_element_sel
if %enemy7_aqua>0 && %enemy7_aquaturn<1 gosub *enemy_element_sel
if %enemy7_earth>0 && %enemy7_earthturn<1 gosub *enemy_element_sel
if %enemy8_wind>0 && %enemy8_windturn<1 gosub *enemy_element_sel
if %enemy8_fire>0 && %enemy8_fireturn<1 gosub *enemy_element_sel
if %enemy8_aqua>0 && %enemy8_aquaturn<1 gosub *enemy_element_sel
if %enemy8_earth>0 && %enemy8_earthturn<1 gosub *enemy_element_sel
if %enemy9_wind>0 && %enemy9_windturn<1 gosub *enemy_element_sel
if %enemy9_fire>0 && %enemy9_fireturn<1 gosub *enemy_element_sel
if %enemy9_aqua>0 && %enemy9_aquaturn<1 gosub *enemy_element_sel
if %enemy9_earth>0 && %enemy9_earthturn<1 gosub *enemy_element_sel

mov %enemy_spiritcount,0
mov %enemy1_spiritcount,0
mov %enemy2_spiritcount,0
mov %enemy3_spiritcount,0
mov %enemy4_spiritcount,0
mov %enemy5_spiritcount,0
mov %enemy6_spiritcount,0
mov %enemy7_spiritcount,0
mov %enemy8_spiritcount,0
mov %enemy9_spiritcount,0

if %enemy_wind>0 mov %enemy_spiritcount,%enemy_spiritcount+1:mov %enemy_windturn,%enemy_windturn-1
if %enemy_fire>0 mov %enemy_spiritcount,%enemy_spiritcount+1:mov %enemy_fireturn,%enemy_fireturn-1
if %enemy_aqua>0 mov %enemy_spiritcount,%enemy_spiritcount+1:mov %enemy_aquaturn,%enemy_aquaturn-1
if %enemy_earth>0 mov %enemy_spiritcount,%enemy_spiritcount+1:mov %enemy_earthturn,%enemy_earthturn-1
if %enemy1_wind>0 mov %enemy1_spiritcount,%enemy1_spiritcount+1:mov %enemy1_windturn,%enemy1_windturn-1
if %enemy1_fire>0 mov %enemy1_spiritcount,%enemy1_spiritcount+1:mov %enemy1_fireturn,%enemy1_fireturn-1
if %enemy1_aqua>0 mov %enemy1_spiritcount,%enemy1_spiritcount+1:mov %enemy1_aquaturn,%enemy1_aquaturn-1
if %enemy1_earth>0 mov %enemy1_spiritcount,%enemy1_spiritcount+1:mov %enemy1_earthturn,%enemy1_earthturn-1
if %enemy2_wind>0 mov %enemy2_spiritcount,%enemy2_spiritcount+1:mov %enemy2_windturn,%enemy2_windturn-1
if %enemy2_fire>0 mov %enemy2_spiritcount,%enemy2_spiritcount+1:mov %enemy2_fireturn,%enemy2_fireturn-1
if %enemy2_aqua>0 mov %enemy2_spiritcount,%enemy2_spiritcount+1:mov %enemy2_aquaturn,%enemy2_aquaturn-1
if %enemy2_earth>0 mov %enemy2_spiritcount,%enemy2_spiritcount+1:mov %enemy2_earthturn,%enemy2_earthturn-1
if %enemy3_wind>0 mov %enemy3_spiritcount,%enemy3_spiritcount+1:mov %enemy3_windturn,%enemy3_windturn-1
if %enemy3_fire>0 mov %enemy3_spiritcount,%enemy3_spiritcount+1:mov %enemy3_fireturn,%enemy3_fireturn-1
if %enemy3_aqua>0 mov %enemy3_spiritcount,%enemy3_spiritcount+1:mov %enemy3_aquaturn,%enemy3_aquaturn-1
if %enemy3_earth>0 mov %enemy3_spiritcount,%enemy3_spiritcount+1:mov %enemy3_earthturn,%enemy3_earthturn-1
if %enemy4_wind>0 mov %enemy4_spiritcount,%enemy4_spiritcount+1:mov %enemy4_windturn,%enemy4_windturn-1
if %enemy4_fire>0 mov %enemy4_spiritcount,%enemy4_spiritcount+1:mov %enemy4_fireturn,%enemy4_fireturn-1
if %enemy4_aqua>0 mov %enemy4_spiritcount,%enemy4_spiritcount+1:mov %enemy4_aquaturn,%enemy4_aquaturn-1
if %enemy4_earth>0 mov %enemy4_spiritcount,%enemy4_spiritcount+1:mov %enemy4_earthturn,%enemy4_earthturn-1
if %enemy5_wind>0 mov %enemy5_spiritcount,%enemy5_spiritcount+1:mov %enemy5_windturn,%enemy5_windturn-1
if %enemy5_fire>0 mov %enemy5_spiritcount,%enemy5_spiritcount+1:mov %enemy5_fireturn,%enemy5_fireturn-1
if %enemy5_aqua>0 mov %enemy5_spiritcount,%enemy5_spiritcount+1:mov %enemy5_aquaturn,%enemy5_aquaturn-1
if %enemy5_earth>0 mov %enemy5_spiritcount,%enemy5_spiritcount+1:mov %enemy5_earthturn,%enemy5_earthturn-1
if %enemy6_wind>0 mov %enemy6_spiritcount,%enemy6_spiritcount+1:mov %enemy6_windturn,%enemy6_windturn-1
if %enemy6_fire>0 mov %enemy6_spiritcount,%enemy6_spiritcount+1:mov %enemy6_fireturn,%enemy6_fireturn-1
if %enemy6_aqua>0 mov %enemy6_spiritcount,%enemy6_spiritcount+1:mov %enemy6_aquaturn,%enemy6_aquaturn-1
if %enemy6_earth>0 mov %enemy6_spiritcount,%enemy6_spiritcount+1:mov %enemy6_earthturn,%enemy6_earthturn-1
if %enemy7_wind>0 mov %enemy7_spiritcount,%enemy7_spiritcount+1:mov %enemy7_windturn,%enemy7_windturn-1
if %enemy7_fire>0 mov %enemy7_spiritcount,%enemy7_spiritcount+1:mov %enemy7_fireturn,%enemy7_fireturn-1
if %enemy7_aqua>0 mov %enemy7_spiritcount,%enemy7_spiritcount+1:mov %enemy7_aquaturn,%enemy7_aquaturn-1
if %enemy7_earth>0 mov %enemy7_spiritcount,%enemy7_spiritcount+1:mov %enemy7_earthturn,%enemy7_earthturn-1
if %enemy8_wind>0 mov %enemy8_spiritcount,%enemy8_spiritcount+1:mov %enemy8_windturn,%enemy8_windturn-1
if %enemy8_fire>0 mov %enemy8_spiritcount,%enemy8_spiritcount+1:mov %enemy8_fireturn,%enemy8_fireturn-1
if %enemy8_aqua>0 mov %enemy8_spiritcount,%enemy8_spiritcount+1:mov %enemy8_aquaturn,%enemy8_aquaturn-1
if %enemy8_earth>0 mov %enemy8_spiritcount,%enemy8_spiritcount+1:mov %enemy8_earthturn,%enemy8_earthturn-1
if %enemy9_wind>0 mov %enemy9_spiritcount,%enemy9_spiritcount+1:mov %enemy9_windturn,%enemy9_windturn-1
if %enemy9_fire>0 mov %enemy9_spiritcount,%enemy9_spiritcount+1:mov %enemy9_fireturn,%enemy9_fireturn-1
if %enemy9_aqua>0 mov %enemy9_spiritcount,%enemy9_spiritcount+1:mov %enemy9_aquaturn,%enemy9_aquaturn-1
if %enemy9_earth>0 mov %enemy9_spiritcount,%enemy9_spiritcount+1:mov %enemy9_earthturn,%enemy9_earthturn-1

if %status=0 skip 14
mov %status_turn,%status_turn-1
if %status=1 && %status_turn>-1 goto *status_sel1
if %status=1 && %status_turn<0 goto *status_sel2
if %status=2 && %status_turn>-1 goto *status_sel1
if %status=2 && %status_turn<0 goto *status_sel2
if %status=4 && %status_turn>-1 goto *status_sel1
if %status=4 && %status_turn<0 goto *status_sel2
if %status=5 && %status_turn>-1 goto *status_sel1
if %status=5 && %status_turn<0 goto *status_sel2
if %status=6 goto *status_sel3
if %status=7 && %status_turn>-1 goto *status_sel1
if %status=7 && %status_turn<0 goto *status_sel2
if %status=8 goto *status_sel1

if %kadora=0 skip 8
if %kadora_damage=0 && %kousoku=0 && %status=0 skip 3
mov %kadora_damage,0:mov %kadora,0
>The power infused in Luka's sword vanishes!\
if %kadora=1 goto *skill15a
if %kadora=2 goto *skill15b
if %kadora=3 goto *skill15c
if %kadora=4 goto *skill15d
gosub *elm_print
name ""
if %kousan>0 goto "*"+$lavel+"_a"
goto "*"+$lavel+"_main"


*enemy_windguard

skillname ""
dwave 1,"se\wind2.ogg"
csp 700:print 10,1
gosub *face2
mov $sel1,"But "+$name2+" moves like the wind and dodges!"
``$sel1\
gosub *face1
return


*element_sel

name ""
mov $sel1,""
if %wind>0 && %wind_turn<0 mov %wind,0:mov $sel1,"The power of Wind fades!"
if %earth>0 && %earth_turn<0 mov %earth,0:mov $sel1,"The power of Earth fades!"
if %aqua>0 && %aqua_turn<0 mov %aqua,0:mov $sel1,"The power of Water fades!"
if %fire=1 && %fire_turn<0 mov %fire,0:mov $sel1,"The power of Fire fades!"
if %fire=2 && %fire_turn<0 mov %fire,0:mov $sel1,"The power of Fire fades! ":mov %mp,0:gosub *mp
if %fire=3 && %fire_turn<0 mov %fire,0:mov $sel1,"The power of Fire fades!"
gosub *elm_print
mov $sel6,$sel1
``$sel6\
wait 1000
return

*enemy_element_sel

name ""
mov $sel1,""

if %enemy_num>1 skip 6
if %enemy_wind>0 && %enemy_windturn<2 gosub *enemy_element_windfade
if %enemy_earth>0 && %enemy_earthturn<2 gosub *enemy_element_earthfade
if %enemy_aqua>0 && %enemy_aquaturn<2 gosub *enemy_element_aquafade
if %enemy_fire>0 && %enemy_fireturn<2 gosub *enemy_element_firefade
skip 38

if %enemy1_wind>0 && %enemy1_windturn<2 mov %enemy_target,1:gosub *enemy_element_windfade
if %enemy1_earth>0 && %enemy1_earthturn<2 mov %enemy_target,1:gosub *enemy_element_earthfade
if %enemy1_fire>0 && %enemy1_fireturn<2 mov %enemy_target,1:gosub *enemy_element_firefade
if %enemy1_aqua>0 && %enemy1_aquaturn<2 mov %enemy_target,1:gosub *enemy_element_aquafade
if %enemy2_wind>0 && %enemy2_windturn<2 mov %enemy_target,2:gosub *enemy_element_windfade
if %enemy2_earth>0 && %enemy2_earthturn<2 mov %enemy_target,2:gosub *enemy_element_earthfade
if %enemy2_fire>0 && %enemy2_fireturn<2 mov %enemy_target,2:gosub *enemy_element_firefade
if %enemy2_aqua>0 && %enemy2_aquaturn<2 mov %enemy_target,2:gosub *enemy_element_aquafade
if %enemy3_wind>0 && %enemy3_windturn<2 mov %enemy_target,3:gosub *enemy_element_windfade
if %enemy3_earth>0 && %enemy3_earthturn<2 mov %enemy_target,3:gosub *enemy_element_earthfade
if %enemy3_fire>0 && %enemy3_fireturn<2 mov %enemy_target,3:gosub *enemy_element_firefade
if %enemy3_aqua>0 && %enemy3_aquaturn<2 mov %enemy_target,3:gosub *enemy_element_aquafade
if %enemy4_wind>0 && %enemy4_windturn<2 mov %enemy_target,4:gosub *enemy_element_windfade
if %enemy4_earth>0 && %enemy4_earthturn<2 mov %enemy_target,4:gosub *enemy_element_earthfade
if %enemy4_fire>0 && %enemy4_fireturn<2 mov %enemy_target,4:gosub *enemy_element_firefade
if %enemy4_aqua>0 && %enemy4_aquaturn<2 mov %enemy_target,4:gosub *enemy_element_aquafade
if %enemy5_wind>0 && %enemy5_windturn<2 mov %enemy_target,5:gosub *enemy_element_windfade
if %enemy5_earth>0 && %enemy5_earthturn<2 mov %enemy_target,5:gosub *enemy_element_earthfade
if %enemy5_fire>0 && %enemy5_fireturn<2 mov %enemy_target,5:gosub *enemy_element_firefade
if %enemy5_aqua>0 && %enemy5_aquaturn<2 mov %enemy_target,5:gosub *enemy_element_aquafade
if %enemy6_wind>0 && %enemy6_windturn<2 mov %enemy_target,6:gosub *enemy_element_windfade
if %enemy6_earth>0 && %enemy6_earthturn<2 mov %enemy_target,6:gosub *enemy_element_earthfade
if %enemy6_fire>0 && %enemy6_fireturn<2 mov %enemy_target,6:gosub *enemy_element_firefade
if %enemy6_aqua>0 && %enemy6_aquaturn<2 mov %enemy_target,6:gosub *enemy_element_aquafade
if %enemy7_wind>0 && %enemy7_windturn<2 mov %enemy_target,7:gosub *enemy_element_windfade
if %enemy7_earth>0 && %enemy7_earthturn<2 mov %enemy_target,7:gosub *enemy_element_earthfade
if %enemy7_fire>0 && %enemy7_fireturn<2 mov %enemy_target,7:gosub *enemy_element_firefade
if %enemy7_aqua>0 && %enemy7_aquaturn<2 mov %enemy_target,7:gosub *enemy_element_aquafade
if %enemy8_wind>0 && %enemy8_windturn<2 mov %enemy_target,8:gosub *enemy_element_windfade
if %enemy8_earth>0 && %enemy8_earthturn<2 mov %enemy_target,8:gosub *enemy_element_earthfade
if %enemy8_fire>0 && %enemy8_fireturn<2 mov %enemy_target,8:gosub *enemy_element_firefade
if %enemy8_aqua>0 && %enemy8_aquaturn<2 mov %enemy_target,8:gosub *enemy_element_aquafade
if %enemy9_wind>0 && %enemy9_windturn<2 mov %enemy_target,9:gosub *enemy_element_windfade
if %enemy9_earth>0 && %enemy9_earthturn<2 mov %enemy_target,9:gosub *enemy_element_earthfade
if %enemy9_fire>0 && %enemy9_fireturn<2 mov %enemy_target,9:gosub *enemy_element_firefade
if %enemy9_aqua>0 && %enemy9_aquaturn<2 mov %enemy_target,9:gosub *enemy_element_aquafade

gosub *elm_print
wait 1000
return


*enemy_element_windfade

if %enemy_num>1 skip 7
mov %enemy_wind,0
gosub *elm_print
mov $temp_name,$name
mov $sel1,""+$temp_name+"'s power of Wind fades!"
``$sel1\
return

if %enemy_target=1 mov %enemy1_wind,-1:mov $temp_name,$name1
if %enemy_target=2 mov %enemy2_wind,-1:mov $temp_name,$name2
if %enemy_target=3 mov %enemy3_wind,-1:mov $temp_name,$name3
if %enemy_target=4 mov %enemy4_wind,-1:mov $temp_name,$name4
if %enemy_target=5 mov %enemy5_wind,-1:mov $temp_name,$name5
if %enemy_target=6 mov %enemy6_wind,-1:mov $temp_name,$name6
if %enemy_target=7 mov %enemy7_wind,-1:mov $temp_name,$name7
if %enemy_target=8 mov %enemy8_wind,-1:mov $temp_name,$name8
if %enemy_target=9 mov %enemy9_wind,-1:mov $temp_name,$name9
mov $sel1,""+$temp_name+"'s power of Wind fades!"
``$sel1\
return

*enemy_element_earthfade

if %enemy_num>1 skip 7
mov %enemy_earth,0
gosub *elm_print
mov $temp_name,$name
mov $sel1,""+$temp_name+"'s power of Earth fades!"
``$sel1\
return

if %enemy_target=1 mov %enemy1_earth,-1:mov $temp_name,$name1
if %enemy_target=2 mov %enemy2_earth,-1:mov $temp_name,$name2
if %enemy_target=3 mov %enemy3_earth,-1:mov $temp_name,$name3
if %enemy_target=4 mov %enemy4_earth,-1:mov $temp_name,$name4
if %enemy_target=5 mov %enemy5_earth,-1:mov $temp_name,$name5
if %enemy_target=6 mov %enemy6_earth,-1:mov $temp_name,$name6
if %enemy_target=7 mov %enemy7_earth,-1:mov $temp_name,$name7
if %enemy_target=8 mov %enemy8_earth,-1:mov $temp_name,$name8
if %enemy_target=9 mov %enemy9_earth,-1:mov $temp_name,$name9
mov $sel1,""+$temp_name+"'s power of Earth fades!"
``$sel1\
return

*enemy_element_aquafade

if %enemy_num>1 skip 7
mov %enemy_aqua,0
gosub *elm_print
mov $temp_name,$name
mov $sel1,""+$temp_name+"'s power of Water fades!"
``$sel1\
return

if %enemy_target=1 mov %enemy1_aqua,0:mov $temp_name,$name1
if %enemy_target=2 mov %enemy2_aqua,0:mov $temp_name,$name2
if %enemy_target=3 mov %enemy3_aqua,0:mov $temp_name,$name3
if %enemy_target=4 mov %enemy4_aqua,0:mov $temp_name,$name4
if %enemy_target=5 mov %enemy5_aqua,0:mov $temp_name,$name5
if %enemy_target=6 mov %enemy6_aqua,0:mov $temp_name,$name6
if %enemy_target=7 mov %enemy7_aqua,0:mov $temp_name,$name7
if %enemy_target=8 mov %enemy8_aqua,0:mov $temp_name,$name8
if %enemy_target=9 mov %enemy9_aqua,0:mov $temp_name,$name9
mov $sel1,""+$temp_name+"'s power of Water fades!"
``$sel1\
return

*enemy_element_firefade

if %enemy_num>1 skip 8
mov %enemy_fire,0
gosub *elm_print
mov $temp_name,$name
mov $sel1,""+$temp_name+"'s power of Fire fades!"
if $lavel="koakuma_ng" mov %hanyo10,0
``$sel1\
return

if %enemy_target=1 mov %enemy1_fire,0:mov $temp_name,$name1
if %enemy_target=2 mov %enemy2_fire,0:mov $temp_name,$name2
if %enemy_target=3 mov %enemy3_fire,0:mov $temp_name,$name3
if %enemy_target=4 mov %enemy4_fire,0:mov $temp_name,$name4
if %enemy_target=5 mov %enemy5_fire,0:mov $temp_name,$name5
if %enemy_target=6 mov %enemy6_fire,0:mov $temp_name,$name6
if %enemy_target=7 mov %enemy7_fire,0:mov $temp_name,$name7
if %enemy_target=8 mov %enemy8_fire,0:mov $temp_name,$name8
if %enemy_target=9 mov %enemy9_fire,0:mov $temp_name,$name9
mov $sel1,""+$temp_name+"'s power of Fire fades!"
``$sel1\
return

*aqua_sel

if %mp<0 mov %mp,0
bgmstop
if %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,10,1500:skip 2
if %SQ2!=1 bg "bg\"+$haikei+".bmp",10,1500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,1500
if %aqua!=3 mov %aqua,0
mov %aqua_end,0

if %wind=5 mov %wind,0:mov %wind_turn,0:csp 699:print 10,500
mov %aqua_turn,0
gosub *elm_print
gosub *musicplay

if %aqua=3 skip 4
mov $sel6,"The power of Water fades!"
``$sel6\
wait 1000

return



*status_sel1

name ""
if %status=1 mov $sel1,$ori_name+" is stuck in a trance..."
if %status=2 mov $sel1,$ori_name+"'s body is paralyzed..."
if %status=4 mov $sel1,$ori_name+" can't resist the monster's words..."
if %status=5 mov $sel1,$ori_name+" is mesmerized..."
if %status=7 mov $sel1,$ori_name+" is confused..."
if %status=8 mov $sel1,"A part of "+$ori_name+"'s body is petrified..."
mov $sel6,$sel1
``$sel6\
if %status=5 goto "*"+$lavel+"_yuwaku_a"
if %status=7 goto "*"+$lavel+"_main"
if %status=8 && %kousan=0 goto "*"+$lavel+"_main"
if %status=8 && %kousan>0 goto "*"+$lavel+"_a"
goto "*"+$lavel+"_a"



*status_sel2

name ""
if %kousan>0 goto *status_sel1
if %nanido=3 rnd2 %ransu,1,2:if %ransu=2 goto *status_sel1
if %status=1 mov $sel1,$ori_name+" broke free of the trance!"
if %status=2 mov $sel1,$ori_name+" shook off the paralysis!"
if %status=4 mov $sel1,$ori_name+" regains his sense!"
if %status=5 mov $sel1,$ori_name+" broke the mesmerization!"
if %status=7 mov $sel1,$ori_name+" is no longer confused!"
mov %status,0:gosub *status_print
mov $sel6,$sel1
``$sel6\
if %owaza_num2<2 mov %owaza_count2a,0
if %owaza_num2=2 mov %owaza_count2b,0
if %owaza_num2=3 mov %owaza_count2c,0
if %owaza_num2=4 mov %owaza_count2d,0
mov %owaza_num2,0
mov %tuika_owaza_count1a,0
mov %tuika_owaza_count1b,0
mov %tuika_owaza_count1c,0
mov %tuika_owaza_count1d,0
mov %tuika_owaza_count1e,0
mov %tuika_owaza_count1f,0
mov %tuika_owaza_count1g,0
mov %tuika_owaza_count1h,0
mov %tuika_owaza_count2a,0
mov %tuika_owaza_count2b,0
mov %tuika_owaza_count2c,0
mov %tuika_owaza_count2d,0
mov %tuika_owaza_count3a,0
mov %tuika_owaza_count3b,0
mov %tuika_owaza_count3c,0
mov %tuika_owaza_count3d,0
goto "*"+$lavel+"_main"



*status_sel3

itoa $sel1,%status_turn+1
mov $sel6,$sel1+" turns until complete petrification!"
if %status_turn=0 mov $sel6,"Only one turn until complete petrification!"
``$sel6\
if %kousan>0 goto "*"+$lavel+"_a"
goto "*"+$lavel+"_main"



*common_attack

if %enemy_num>1 gosub *enemy_target
mov %nikaime,0
mov %is_attack,1

if %aqua>0 gosub *attack_aqua:goto *common_attack_end

if %wind=3 && %earth=0 rnd2 %ransu,1,100
if %wind=3 && %earth=0 && %ransu=1 gosub *attack_kaisin:mov %nikaime,1:gosub *attack_kaisin:mov %nikaime,0:goto *common_attack_end
if %wind=3 && %earth=0 && %ransu<11 gosub *attack:mov %nikaime,1:gosub *attack_kaisin:mov %nikaime,0:goto *common_attack_end
if %wind=3 && %earth=0 && %ransu<20 gosub *attack_kaisin:mov %nikaime,1:gosub *attack:mov %nikaime,0:goto *common_attack_end
if %wind=3 && %earth=0 gosub *attack:mov %nikaime,1:gosub *attack:mov %nikaime,0:goto *common_attack_end


if %wind=3 && %earth=2 rnd2 %ransu,1,25
if %wind=3 && %earth=2 && %ransu=1 gosub *attack_kaisin:mov %nikaime,1:gosub *attack_kaisin:mov %nikaime,0:goto *common_attack_end
if %wind=3 && %earth=2 && %ransu<6 gosub *attack:mov %nikaime,1:gosub *attack_kaisin:mov %nikaime,0:goto *common_attack_end
if %wind=3 && %earth=2 && %ransu<11 gosub *attack_kaisin:mov %nikaime,1:gosub *attack:mov %nikaime,0:goto *common_attack_end
if %wind=3 && %earth=2 gosub *attack:mov %nikaime,1:gosub *attack:mov %nikaime,0:goto *common_attack_end


if %wind=3 && %earth=3 gosub *attack_kaisin:mov %nikaime,1:gosub *attack_kaisin:mov %nikaime,0:goto *common_attack_end


rnd2 %ransu,1,100
if %ransu>%kaihi && %wind<2 gosub *attack_miss:goto *common_attack_end

if %earth=3 gosub *attack_kaisin:goto *common_attack_end

rnd2 %ransu,1,10
if %ransu=9 && %earth=2 gosub *attack_kaisin:goto *common_attack_end
if %ransu>7 && %max_mylife<%mylife*5 gosub *attack_kaisin:goto *common_attack_end
if %ransu=10 gosub *attack_kaisin:goto *common_attack_end


gosub *attack:goto *common_attack_end



*attack

if %aqua=2 goto *attack_aqua
mov %before_action,1
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Haa!"
if %ransu=2 mov $sel1,"Ora!"
if %ransu=3 mov $sel1,"Take this!"
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"
if %nikaime=1 skip 4
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov $sel6,$ori_name+" attacks!"
``$sel6
if %aqua=2 skip 2
if %nikaime=0 gosub *mp_kaihuku:gosub *mp
dwave 1,"se\slash.ogg"
if %fire=0 mov %abairitu,100+%mylv
if %fire=1 mov %abairitu,120+%mylv*6/5
if %fire=2 mov %abairitu,170+%mylv*17/10
if %fire=3 mov %abairitu,200+%mylv*2
if %debug=1 mov %abairitu,100000+%mylv*2
gosub *enemylife
return



*attack_kaisin

mov %before_action,2
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"An opening!"
if %ransu=2 mov $sel1,"SUPER ATTACCCK!"
if %ransu=3 mov $sel1,"I got you now!"
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"
if %nikaime=1 skip 4
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
>Critical hit!
if %nikaime=0 gosub *mp_kaihuku:gosub *mp
dwave 1,"se\slash3.ogg"
if %fire=0 mov %abairitu,170+%mylv*17/10
if %fire=1 mov %abairitu,200+%mylv*2
if %fire=2 mov %abairitu,250+%mylv*5/2
if %fire=3 mov %abairitu,300+%mylv*3
if %debug=1 mov %abairitu,100000+%mylv*2
gosub *enemylife
return



*attack_miss

mov %before_action,3
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Ack!"
if %ransu=2 mov $sel1,"Oof!"
if %ransu=3 mov $sel1,"Crap!"
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+" attacks!"
``$sel6
gosub *mp_kaihuku:gosub *mp
dwave 1,"se\miss.ogg"
>Miss!\
return



*attack_aqua

mov %before_action,4
if %aqua=2 && %wind=5 gosub *attack_serenegale:return
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,".............."
if %ransu=2 mov $sel1,"I see it!"
if %ransu=3 mov $sel1,"Entrust my sword to the flow...!"
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 ""
skillname "Blade of Still Water"
mov $sel6,$ori_name+"'s sword flashes, following the flow toward his opponent!"
``$sel6\
if %aqua=2 skip 2
gosub *mp_kaihuku:gosub *mp
dwave 1,"se\slash4.ogg"
if %aqua>2 mov %abairitu,140+%mylv*7/5
if %aqua=2 mov %abairitu,440+%mylv*4
if %earth=3 mov %abairitu,%abairitu*125/100
if %fire=3 mov %abairitu,%abairitu*125/100
gosub *enemylife
skillname ""
if %wind=0 return
skillname "Blade of Still Water"
mov $sel6,"Like a bolt of lightning, "+$ori_name+"'s sword flashes back to his sheath!"
``$sel6\
dwave 1,"se\slash4.ogg"
if %aqua>2 mov %abairitu,140+%mylv*7/5
if %aqua=2 mov %abairitu,440+%mylv*4
if %earth=3 mov %abairitu,%abairitu*125/100
if %fire=3 mov %abairitu,%abairitu*125/100
if %debug=1 mov %abairitu,100000+%mylv*2
gosub *enemylife
skillname ""
return

*attack_serenegale

rnd2 %ransu,1,3
if %ransu=1 mov $sel1,".....!!!"
if %ransu=2 mov $sel1,"Faster than the eye can see!"
if %ransu=3 mov $sel1,"With the wind guiding my sword...!"
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 ""
skillname "Hurricane Blade"
mov $sel6,"Carried by the current of wind, "+$ori_name+"'s sword flashes forward, following the   flow toward his opponent!"
``$sel6\
dwave 1,"se\slash4.ogg"
if %aqua>2 mov %abairitu,140+%mylv*7/5
if %aqua=2 mov %abairitu,440+%mylv*4
if %earth=3 mov %abairitu,%abairitu*125/100
if %fire=3 mov %abairitu,%abairitu*125/100
gosub *enemylife
mov $sel6,"Moving like the wind, "+$ori_name+"'s sword follows the flow back around and crashes   down on his opponent a second time!"
``$sel6\
dwave 1,"se\slash4.ogg"
if %aqua>2 mov %abairitu,140+%mylv*7/5
if %aqua=2 mov %abairitu,440+%mylv*4
if %earth=3 mov %abairitu,%abairitu*125/100
if %fire=3 mov %abairitu,%abairitu*125/100
if %debug=1 mov %abairitu,100000+%mylv*2
gosub *enemylife
skillname ""
return

*common_attack_end

skillname ""
if %enemy_aqua>1 && %enemy_aqua!=3 && %enemy_aqua!=4 && %cmd1=37 mov %enemy_aquaturn,0:gosub *enemy_element_sel
mov %guard_on,0
if %bougyo=1 mov %guard_on,1
if %bougyo=2 && %cmd1=24 && %skill01>26 mov %guard_on,1
if %bougyo=2 && %cmd1=46 && %skill01>26 mov %guard_on,1
if %guard_on=0 mov %bougyo,0
if %enemylife=0 goto "*"+$lavel+"_v"
if %before_action=3:skip 2
if %counter>0 gosub *counter:gosub "*"+$lavel+"_counter":goto *common_main
mov %luka_turn,%luka_turn+1
if %luka_turn<%luka_maxturn goto "*"+$lavel+"_main"
goto "*"+$lavel+"_a"



*common_bougyo

mov %mp_charge,0
mov %before_action,51
mov %bougyo,1
mov $sel6,$ori_name+" takes a defensive stance!"
``$sel6\
goto "*"+$lavel+"_a"



*common_nasugamama
mov %mp_charge,0
mov %before_action,52
mov $sel6,$ori_name+" remains motionless."
``$sel6\
goto "*"+$lavel+"_a"



*common_mogaku		;???&???????

if %earth>0 goto *mogaku_earth1
mov %before_action,7
rnd2 %ransu,1,3
if %cmd1=11 && %ransu=1 mov $sel1,"Uhg..."
if %cmd1=11 && %ransu=2 mov $sel1,"Grr... Damn it!"
if %cmd1=11 && %ransu=3 mov $sel1,"Quit it!"
if %cmd1=12 && %ransu=1 mov $sel1,"Guh..."
if %cmd1=12 && %ransu=2 mov $sel1,"Ge... get off!"
if %cmd1=12 && %ransu=3 mov $sel1,"Grr... Let go!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_mogaku1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_mogaku2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_mogaku3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
if %cmd1=11 mov $sel1,$ori_name+" tries to attack!"
if %cmd1=12 mov $sel1,$ori_name+" starts to struggle!"
mov $sel6,$sel1
``$sel6\
if %cmd1=11 gosub *mp_kaihuku:gosub *mp
if %cmd1=12 mov %genmogaku,%genmogaku-1
if %cmd1=11 mov $sel1,$mogaku_anno3
if %cmd1=12 mov $sel1,$mogaku_anno1
mov $sel6,$sel1
``$sel6\
rnd2 %ransu,1,5
if %ransu=1 mov $sel1,$mogaku_sel1
if %ransu=2 mov $sel1,$mogaku_sel2
if %ransu=3 mov $sel1,$mogaku_sel3
if %ransu=4 mov $sel1,$mogaku_sel4
if %ransu=5 mov $sel1,$mogaku_sel5
if $sel1="" skip 5
if %enemy_num=1 name $name2
if %enemy_num>1 name $bound_name
mov $sel6,$sel1
``$sel6\
name ""
goto "*"+$lavel+"_a"



*common_mogaku2			;???????

if %earth>0 goto *mogaku_earth2
mov %before_action,8
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Grr....!"
if %ransu=2 mov $sel1,"Damn you...!"
if %ransu=3 mov $sel1,"Le... let go!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_mogaku1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_mogaku2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_mogaku3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
dwave 1,"se\dassyutu.ogg"
gosub *face3
mov %kousoku,0:gosub *status_print
mov $sel6,$ori_name+" struggles intensely, and breaks free!"
``$sel6\
if %owaza_num1<2 mov %owaza_count1a,0
if %owaza_num1=2 mov %owaza_count1b,0
if %owaza_num1=3 mov %owaza_count1c,0
if %owaza_num1=4 mov %owaza_count1d,0
mov %owaza_num1,0
mov %tuika_owaza_count1a,0
mov %tuika_owaza_count1b,0
mov %tuika_owaza_count1c,0
mov %tuika_owaza_count1d,0
mov %tuika_owaza_count1e,0
mov %tuika_owaza_count1f,0
mov %tuika_owaza_count1g,0
mov %tuika_owaza_count1h,0
mov %tuika_owaza_count2a,0
mov %tuika_owaza_count2b,0
mov %tuika_owaza_count2c,0
mov %tuika_owaza_count2d,0
mov %tuika_owaza_count3a,0
mov %tuika_owaza_count3b,0
mov %tuika_owaza_count3c,0
mov %tuika_owaza_count3d,0
if %enemy_num=1 name $name2
if %enemy_num>1 name $bound_name
mov $sel1,$mogaku_dassyutu1
mov $sel2,$mogaku_dassyutu2
mov $sel3,""
gosub *selprint
name ""
gosub *face1
goto *common_main



*mogaku_earth1

mov %before_action,7
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Guh...!"
if %ransu=2 mov $sel1,"G...Get off!"
if %ransu=3 mov $sel1,"Damn you!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_mogaku1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_mogaku2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_mogaku3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
if %genmogaku=99 skip 2
mov %genmogaku,%genmogaku-1:if %genmogaku<0 mov %genmogaku,0
if %genmogaku<0 mov %genmogaku,0
dwave 1,"se\power.ogg"
mov $sel6,$ori_name+"'s body is filled with the power of the Earth, giving him incredible strength!"
``$sel6\
mov $sel6,$mogaku_anno1
``$sel6\
rnd2 %ransu,1,5
if %ransu=1 mov $sel1,$mogaku_sel1
if %ransu=2 mov $sel1,$mogaku_sel2
if %ransu=3 mov $sel1,$mogaku_sel3
if %ransu=4 mov $sel1,$mogaku_sel4
if %ransu=5 mov $sel1,$mogaku_sel5
if $sel1="" skip 4
if %enemy_num=1 name $name2
if %enemy_num>1 name $bound_name
mov $sel6,$sel1
``$sel6\
name ""
goto "*"+$lavel+"_a"



*mogaku_earth2

mov %before_action,8
if %nanido=3 rnd2 %ransu,1,2:if %ransu=2 goto *mogaku_earth1
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"With this power...!"
if %ransu=2 mov $sel1,"With Gnome's power...!"
if %ransu=3 mov $sel1,"With the Earth's power...!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_mogaku1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_mogaku2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_mogaku3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
dwave 1,"se\power.ogg"
mov $sel6,$ori_name+"'s body is filled with the power of the Earth, giving him incredible strength!"
``$sel6\
dwave 2,"se\dassyutu.ogg"
gosub *face3
mov %kousoku,0:gosub *status_print
mov $sel6,$mogaku_anno2
``$sel6\
if %owaza_num1<2 mov %owaza_count1a,0
if %owaza_num1=2 mov %owaza_count1b,0
if %owaza_num1=3 mov %owaza_count1c,0
if %owaza_num1=4 mov %owaza_count1d,0
mov %owaza_num1,0
mov %tuika_owaza_count1a,0
mov %tuika_owaza_count1b,0
mov %tuika_owaza_count1c,0
mov %tuika_owaza_count1d,0
mov %tuika_owaza_count1e,0
mov %tuika_owaza_count1f,0
mov %tuika_owaza_count1g,0
mov %tuika_owaza_count1h,0
mov %tuika_owaza_count2a,0
mov %tuika_owaza_count2b,0
mov %tuika_owaza_count2c,0
mov %tuika_owaza_count2d,0
mov %tuika_owaza_count3a,0
mov %tuika_owaza_count3b,0
mov %tuika_owaza_count3c,0
mov %tuika_owaza_count3d,0
if %enemy_num=1 name $name2
if %enemy_num>1 name $bound_name
mov $sel1,$mogaku_earth_dassyutu1
mov $sel2,$mogaku_earth_dassyutu2
mov $sel3,""
gosub *selprint
name ""
gosub *face1
goto *common_main



*common_miss2		;????????????

mov %before_action,9
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Haa!"
if %ransu=2 mov $sel1,"Ora!"
if %ransu=3 mov $sel1,"Take this!"
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+" attacks!"
``$sel6\
mov $sel6,$mogaku_anno4
``$sel6\
gosub *mp_kaihuku:gosub *mp
dwave 1,"se\slash.ogg"
gosub *enemylife
mov %kousoku_hp,%kousoku_hp-%damage
if %enemylife=0 mov %kousoku,0:gosub *status_print:goto "*"+$lavel+"_v"
goto *common_attack_end



*common_miss3		;????????

mov %before_action,10
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"LUKA ATTAAACK!"
if %ransu=2 mov $sel1,"An opening!"
if %ransu=3 mov $sel1,"Get... off... of... me!"
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+" attacks!"
``$sel6\
mov $sel6,$mogaku_anno4
``$sel6\
gosub *mp_kaihuku:gosub *mp
dwave 1,"se\slash3.ogg"
mov %abairitu,200:gosub *enemylife
if %enemylife=0 goto "*"+$lavel+"_v"
dwave 1,"se\dassyutu.ogg"
gosub *face3
name $name2
mov $sel1,$mogaku_kaisin1
mov $sel2,$mogaku_kaisin2
mov $sel3,""
gosub *selprint
name ""
mov %kousoku,0:gosub *status_print
mov $sel6,$ori_name+" breaks free!"
``$sel6\
mov %tuika_owaza_count1a,0
mov %tuika_owaza_count1b,0
mov %tuika_owaza_count1c,0
mov %tuika_owaza_count1d,0
mov %tuika_owaza_count1e,0
mov %tuika_owaza_count1f,0
mov %tuika_owaza_count1g,0
mov %tuika_owaza_count1h,0
mov %tuika_owaza_count2a,0
mov %tuika_owaza_count2b,0
mov %tuika_owaza_count2c,0
mov %tuika_owaza_count2d,0
mov %tuika_owaza_count3a,0
mov %tuika_owaza_count3b,0
mov %tuika_owaza_count3c,0
mov %tuika_owaza_count3d,0
gosub *face1
goto *common_attack_end



*wind_guard_kakuritu;

if %wind=0 mov %wind_guard_on,0:return
if %status=1 mov %wind_guard_on,0:return
if %status=2 mov %wind_guard_on,0:return
if %status=4 mov %wind_guard_on,0:return
if %status=5 mov %wind_guard_on,0:return
if %status=7 mov %wind_guard_on,0:return
rnd2 %ransu,1,100

mov %wind_kakuritu,%wind_kakuritu*(100+(%sylph_rep*2/5))/100

if %blackwind_turn>0 mov %wind_kakuritu,%wind_kakuritu+30
if %zylphe>0 mov %wind_kakuritu,%wind_kakuritu+50
if $knight="Alma" mov %wind_kakuritu,%wind_kakuritu+%alma_rep ;		// if Alma's rep is 25, the chance to dodge an attack with wind is 25% higher.

if %ransu<%wind_kakuritu+1 mov %wind_guard_on,1:return
rnd2 %ransu,1,100
if $knight="Alma" && %alma_rep>9 && %ransu<%alma_rep*(100-(%alma_rep*2/3))/100 mov %wind_guard,1:return
mov %wind_guard_on,0:return


*aqua_guard_kakuritu;

if %aqua=0 mov %wind_guard_on,0:return
if %aqua=1 mov %wind_guard_on,0:return
if %aqua=2 mov %wind_guard_on,0:return
if %aqua=4 mov %wind_guard_on,0:return
if %aqua=5 mov %wind_guard_on,0:return
if %aqua=7 mov %wind_guard_on,0:return

if %ransu<%ransu+%undine_buff goto *aqua_guard
return



*wind_guard;

wait 500
if %wind=1 skillname "Wind Guard"
if %wind=2 skillname "Wind Dance"
if %wind=3 skillname "Extreme Wind"
if %wind=4 && %skill02=0 skillname "Fallen Angel Dance"
if %wind=4 && %skill02>0 skillname "Fallen Angel Dance"
if %wind=1 dwave 3,"se\wind2.ogg"
if %wind=2 dwave 3,"se\miss.ogg"
if %wind=3 dwave 3,"se\miss_wind.ogg"
if %wind=4 dwave 3,"se\bun.ogg"
csp 690
if %wind>3 && %SQ2!=1 bg "BG\"+$haikei+".bmp",99,700,"system\lngtwave.dll/vwi"
if %wind>3 && %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,500
``$sel1\
wait 500
skillname ""
return

*wind_guard2;

wait 500
if %wind=1 skillname "Wind Guard"
if %wind=2 skillname "Wind Dance"
if %wind=3 skillname "Extreme Wind"
if %wind=4 && %skill02=0 skillname "Fallen Angel Dance"
if %wind=4 && %skill02>0 skillname "Fallen Angel Dance"
if %wind=1 dwave 3,"se\wind2.ogg"
if %wind=2 dwave 3,"se\miss.ogg"
if %wind=3 dwave 3,"se\miss_wind.ogg"
if %wind>3 dwave 3,"se\bun.ogg"
csp 690
if %wind>3 && %SQ2!=1 bg "BG\"+$haikei+".bmp",99,700,"system\lngtwave.dll/vwi"
if %wind>3 && %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,500
``$sel1\
wait 500
skillname ""
return

*enemy_aquaguard

name ""
wait 500
skillname "Serene Movement"
dwave 3,"se\miss_aqua.ogg"
csp 700:print 10,1
gosub *face2
mov $sel6,"But like water flowing around an obstacle, "+$name+" evades it!"
``$sel6\
wait 500
skillname ""
gosub *face1
goto *common_attack_end


*enemy_holyguard

name ""
wait 500
skillname "Angel Dance"
dwave 1,"se\bun.ogg"
bg "bg\"+$haikei+".bmp",99,700,"system\lngtwave.dll/vwi"
gosub *face2
mov $sel6,"But the attack passes through "+$name+", leaving her unharmed!"
``$sel6\
wait 500
skillname ""
gosub *face1
goto *common_attack_end



*enemy_mult_holyguard

name ""
wait 500
skillname "Angel Dance"
dwave 1,"se\bun.ogg"
bg "bg\"+$haikei+".bmp",99,700,"system\lngtwave.dll/vwi"
gosub *face2
if %enemy_target=1 mov $sel6,"But the attack passes through "+$name1+", leaving her unharmed!"
if %enemy_target=2 mov $sel6,"But the attack passes through "+$name2+", leaving her unharmed!"
if %enemy_target=3 mov $sel6,"But the attack passes through "+$name3+", leaving her unharmed!"
if %enemy_target=4 mov $sel6,"But the attack passes through "+$name4+", leaving her unharmed!"
if %enemy_target=5 mov $sel6,"But the attack passes through "+$name5+", leaving her unharmed!"
if %enemy_target=6 mov $sel6,"But the attack passes through "+$name6+", leaving her unharmed!"
if %enemy_target=7 mov $sel6,"But the attack passes through "+$name7+", leaving her unharmed!"
if %enemy_target=8 mov $sel6,"But the attack passes through "+$name8+", leaving her unharmed!"
if %enemy_target=9 mov $sel6,"But the attack passes through "+$name9+", leaving her unharmed!"
``$sel6\
wait 500
skillname ""
gosub *face1
return


*enemy_mult_aquaguard

name ""
wait 500
skillname "Serene Movement"
dwave 3,"se\miss_aqua.ogg"
csp 700:print 10,1
gosub *face2
if %enemy_target=1 mov $sel6,"But like water flowing around an obstacle, "+$name1+" evades it!"
if %enemy_target=2 mov $sel6,"But like water flowing around an obstacle, "+$name2+" evades it!"
if %enemy_target=3 mov $sel6,"But like water flowing around an obstacle, "+$name3+" evades it!"
if %enemy_target=4 mov $sel6,"But like water flowing around an obstacle, "+$name4+" evades it!"
if %enemy_target=5 mov $sel6,"But like water flowing around an obstacle, "+$name5+" evades it!"
if %enemy_target=6 mov $sel6,"But like water flowing around an obstacle, "+$name6+" evades it!"
if %enemy_target=7 mov $sel6,"But like water flowing around an obstacle, "+$name7+" evades it!"
if %enemy_target=8 mov $sel6,"But like water flowing around an obstacle, "+$name8+" evades it!"
if %enemy_target=9 mov $sel6,"But like water flowing around an obstacle, "+$name9+" evades it!"
``$sel6\
wait 500
skillname ""
gosub *face1
return


*enemy_mult_windguard

skillname ""
dwave 1,"se\wind2.ogg"
csp 700:print 10,1
gosub *face2
if %enemy_target=1 mov $sel1,"But "+$name1+" moves like the wind and dodges!"
if %enemy_target=2 mov $sel1,"But "+$name2+" moves like the wind and dodges!"
if %enemy_target=3 mov $sel1,"But "+$name3+" moves like the wind and dodges!"
if %enemy_target=4 mov $sel1,"But "+$name4+" moves like the wind and dodges!"
if %enemy_target=5 mov $sel1,"But "+$name5+" moves like the wind and dodges!"
if %enemy_target=6 mov $sel1,"But "+$name6+" moves like the wind and dodges!"
if %enemy_target=7 mov $sel1,"But "+$name7+" moves like the wind and dodges!"
if %enemy_target=8 mov $sel1,"But "+$name8+" moves like the wind and dodges!"
if %enemy_target=9 mov $sel1,"But "+$name9+" moves like the wind and dodges!"
``$sel1\
gosub *face1
return


*aqua_guard

mov %aqua_counter,%aqua_counter+1
name ""
wait 500
dwavestop 1
skillname "Serene Movement"
dwave 3,"se\miss_aqua.ogg"
mov $sel1 "But like water flowing around an obstacle, "+$ori_name+" evades it!"
``$sel1\
wait 500
skillname ""
return

*aqua_guard2

mov %aqua_counter,%aqua_counter+1
name ""
wait 500
skillname "Serene Mind"
dwave 3,"se\aqua.ogg"
lsp 698,":c;system\ef_white.jpg",0,0:print 10,500
wait 500
csp 698:print 10,500
mov $sel1 "But Luka focuses all of his energy, and resists her temptation!"
``$sel1\
wait 500
skillname ""
goto *common_main

*serenegale_guard

mov %aqua_counter,%aqua_counter+1

if %enemy_num=1 mov $temp_name,$name2:skip 9
if %enemy_target=1 mov $temp_name,$name1
if %enemy_target=2 mov $temp_name,$name2
if %enemy_target=3 mov $temp_name,$name3
if %enemy_target=4 mov $temp_name,$name4
if %enemy_target=5 mov $temp_name,$name5
if %enemy_target=6 mov $temp_name,$name6
if %enemy_target=7 mov $temp_name,$name7
if %enemy_target=8 mov $temp_name,$name8

textclear
name "Luka"
>..............\
name ""
wait 500
dwavestop 1
mov $sel1,"But "+$ori_name+" reads "+$temp_name+"'s movements and follows the current of wind to dodge her effortlessly!"
skillname "Serene Movement: Gale"
dwave 3,"se\aqua.ogg"
lsp 698,":c;system\ef_white.jpg",0,0:print 10,500
wait 1500
dwave 2,"se\miss_wind.ogg"
``$sel1\
csp 698:print 10,1500
name "Luka"
>...!\
name ""
mov $sel1,"As "+$temp_name+" passes by "+$ori_name+", his sword flashes forward by instinct!"
``$sel1\
dwave 1,"se\slash4.ogg"
mov %abairitu,440+%mylv*4
gosub *enemylife
wait 500
skillname ""
if %enemylife=0 goto "*"+$lavel+"_v"
return

*common_s1

if %max_mylife>%mylife*5 mov %sel_hphalf,1:goto *common_s2
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Guh..."
if %ransu=2 mov $sel1,"Ohh..."
if %ransu=3 mov $sel1,"Uguh..."
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_kiki1_1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_kiki1_2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_kiki1_3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
gosub *face2
name $name2
mov $sel1,$half_s1
mov $sel2,$half_s2
mov $sel3,""
gosub *selprint
name ""
gosub *face1
mov %sel_hphalf,1
return



*common_s2

rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Ahhh..."
if %ransu=2 mov $sel1,"Ahhh..."
if %ransu=3 mov $sel1,"Fuuu..."
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_kiki2_1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_kiki2_2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_kiki2_3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
gosub *face2
name $name2
mov $sel1,$kiki_s1
mov $sel2,$kiki_s2
mov $sel3,""
gosub *selprint
name ""
mov %sel_kiki,1
return



*selprint	;????E???????????

;????????
if $sel1="" return
if $sel2="" goto *selprint1
if $sel3="" goto *selprint2

;3???????????
if %rnd_ev=1 mov %rnd_ev,0:skip 4	;????????????????????
rnd2 %ransu,1,3
if %ransu=%ren skip -1
mov %ren,%ransu
if %ransu=1 mov $sel4,$sel1
if %ransu=2 mov $sel4,$sel2
if %ransu=3 mov $sel4,$sel3
mov $sel6,$sel4
``$sel6\
return



*selprint1	;1???

mov $sel6,$sel1
``$sel6\
return



*selprint2

mov $sel6,$sel1
``$sel6\
mov $sel6,$sel2
``$sel6\
return

*selprintn	;????E????????????E?????

;????????
if $sel1="" return
if $sel2="" goto *selprint1n
if $sel3="" goto *selprint2n

;3???????????
if %rnd_ev=1 mov %rnd_ev,0:skip 4	;????????????????????
rnd2 %ransu,1,3
if %ransu=%ren skip -1
mov %ren,%ransu
if %ransu=1 mov $sel4,$sel1
if %ransu=2 mov $sel4,$sel2
if %ransu=3 mov $sel4,$sel3
mov $sel6,$sel4
``$sel6
return



*selprint1n	;1???
mov $sel6,$sel1
``$sel6
return



*selprint2n	;2???
mov $sel6,$sel1
``$sel6
mov $sel6,$sel2
``$sel6
return

*support

if $knight="Tamamo" mov %knightmp,15+(%tamamo_rep/2)
if $knight="Tamamo" no Mae" mov %knightmp,32+(%tamamo_rep/2)
if $knight="Granberia" mov %knightmp,13+(%granberia_rep/2)
if $knight="Alma" mov %knightmp,13+(%alma_rep/2)
if $knight="Erubetie" mov %knightmp,10+(%erubetie_rep/2)
if %alicesup>0 mov %alicemp,20+(%alice_rep/2)

if $party1="Harpy" mov %party1mp,8+(%harpy_rep/2)
if $party1="Kitsune" mov %party1mp,6+(%kitsune_rep/2)
if $party1="Chrome" mov %party1mp,10+(%chrome_rep/2)
if $party1="Kuria" mov %party1mp,18+(%kuria_rep/2)
if $party1="Raphelia" mov %party1mp,16+(%queenhapy_rep/2)
if $party1="Micaela" mov %party1mp,36+(%micaela_rep/2)
if $party1="Elle" mov %party1mp,8+(%elle_rep/2)

if $party2="Harpy" mov %party2mp,8+(%harpy_rep/2)
if $party2="Kitsune" mov %party2mp,6+(%kitsune_rep/2)
if $party2="Chrome" mov %party2mp,10+(%chrome_rep/2)
if $party2="Kuria" mov %party2mp,18+(%kuria_rep/2)
if $party2="Raphelia" mov %party2mp,16+(%queenhapy_rep/2)
if $party2="Micaela" mov %party2mp,36+(%micaela_rep/2)
if $party2="Elle" mov %party2mp,8+(%elle_rep/2)

if $guest1="Morrigan" mov %guest1mp,20

if $guest2="Morrigan" mov %guest2mp,20
return


*common_support;

saveoff
textoff
cspl 3,7:cspl 600,608
btndef clear
mov %previous_menu,3
if %skillset!=3 mov %skill_page,1
if %skillset=3 mov %skill_page,2
mov %sinkoumode,0 : skipoff : autoclick 0
gosub *setwindow_04

mov %y,418
if %alicesup>0 lsp 600,":s/20,20,0;#FFFFFF#FF4444Alice",70,%y:spbtn 600,89:mov %y,%y+27
if %knightsup>0 && $knight="Granberia" lsp 601,":s/20,20,0;#FFFFFF#FF4444Granberia",70,%y:spbtn 601,90:mov %y,%y+27
if %knightsup>0 && $knight="Tamamo" lsp 601,":s/20,20,0;#FFFFFF#FF4444Tamamo",70,%y:spbtn 601,91:mov %y,%y+27
if %knightsup>0 && $knight="Alma" lsp 601,":s/20,20,0;#FFFFFF#FF4444Alma Elma",70,%y:spbtn 601,92:mov %y,%y+27
if %knightsup>0 && $knight="Erubetie" lsp 601,":s/20,20,0;#FFFFFF#FF4444Erubetie",70,%y:spbtn 601,93:mov %y,%y+27
if %knightsup>0 && %support_turn>0 lsp 601,":s/20,20,0;#bbbbbb"$knight+"",70,%y:mov %y,%y+27
if %knightsup>0 && %support_turn>0 lsp 603,":s/20,20,0;#bbbbbbAlice",70,%y:mov %y,%y+27

if %party1sup>0 && $party1="Harpy" lsp 602,":s/20,20,0;#FFFFFF#FF4444Ipeia",70,%y:spbtn 602,95:mov %y,%y+27
if %party1sup>0 && $party1="Kitsune" lsp 602,":s/20,20,0;#FFFFFF#FF4444Nibi",70,%y:spbtn 602,96:mov %y,%y+27
if %party1sup>0 && $party1="Chrome" lsp 602,":s/20,20,0;#FFFFFF#FF4444Chrome",70,%y:spbtn 602,97:mov %y,%y+27
if %party1sup>0 && $party1="Kuria" lsp 602,":s/20,20,0;#FFFFFF#FF4444Kuria",70,%y:spbtn 602,98:mov %y,%y+27
if %party1sup>0 && $party1="Elle" lsp 602,":s/20,20,0;#FFFFFF#FF4444Elle",70,%y:spbtn 602,99:mov %y,%y+27
if %party1sup>0 && $party1="Raphelia" lsp 602,":s/20,20,0;#FFFFFF#FF4444Raphelia",70,%y:spbtn 602,100:mov %y,%y+27
if %party1sup>0 && $party1="Micaela" lsp 602,":s/20,20,0;#FFFFFF#FF4444Micaela",70,%y:spbtn 602,101:mov %y,%y+27
if %party1sup>0 && %support_turn>0 lsp 602,":s/20,20,0;#bbbbbb"$party1,70,%y:mov %y,%y+27

if %party2sup>0 && $party2="Harpy" lsp 603,":s/20,20,0;#FFFFFF#FF4444Ipeia",70,%y:spbtn 603,95:mov %y,%y+27
if %party2sup>0 && $party2="Kitsune" lsp 603,":s/20,20,0;#FFFFFF#FF4444Nibi",70,%y:spbtn 603,96:mov %y,%y+27
if %party2sup>0 && $party2="Chrome" lsp 603,":s/20,20,0;#FFFFFF#FF4444Chrome",70,%y:spbtn 603,97:mov %y,%y+27
if %party2sup>0 && $party2="Kuria" lsp 603,":s/20,20,0;#FFFFFF#FF4444Kuria",70,%y:spbtn 603,98:mov %y,%y+27
if %party2sup>0 && $party2="Elle" lsp 603,":s/20,20,0;#FFFFFF#FF4444Elle",70,%y:spbtn 603,99:mov %y,%y+27
if %party2sup>0 && $party2="Raphelia" lsp 603,":s/20,20,0;#FFFFFF#FF4444Raphelia",70,%y:spbtn 603,100:mov %y,%y+27
if %party2sup>0 && $party2="Micaela" lsp 603,":s/20,20,0;#FFFFFF#FF4444Micaela",70,%y:spbtn 603,101:mov %y,%y+27
if %party2sup>0 && %support_turn>0 lsp 603,":s/20,20,0;#bbbbbb"$party2,70,%y:mov %y,%y+27

if %guest1sup>0 && $guest1="Morrigan" lsp 604,":s/20,20,0;#FFFFFF#FF4444Morrigan",70,%y:spbtn 604,120:mov %y,%y+27

if %guest2sup>0 && $guest2="Morrigan" lsp 605,":s/20,20,0;#FFFFFF#FF4444Morrigan",70,%y:spbtn 605,120:mov %y,%y+27
itoa $knightmp,%knightmp
itoa $party1mp,%party1mp
itoa $party2mp,%party2mp
itoa $alicemp,%alicemp
itoa $guest1mp,%guest1mp
itoa $guest2mp,%guest2mp

mov %y,418
if %alicesup>0 lsp 606,":s/20,20,0;#FFFFFF#FF4444Remaining SP: "+$alicemp+"",370,%y:mov %y,%y+27
if %knightsup>0 lsp 607,":s/20,20,0;#FFFFFF#FF4444Remaining SP: "+$knightmp+"",370,%y:mov %y,%y+27
if %party1sup>0 lsp 608,":s/20,20,0;#FFFFFF#FF4444Remaining SP: "+$party1mp+"",370,%y:mov %y,%y+27
if %party2sup>0 lsp 609,":s/20,20,0;#FFFFFF#FF4444Remaining SP: "+$party2mp+"",370,%y:mov %y,%y+27
if %guest1sup>0 lsp 610,":s/20,20,0;#FFFFFF#FF4444Remaining SP: "+$guest1mp+"",370,%y:mov %y,%y+27
if %guest2sup>0 lsp 611,":s/20,20,0;#FFFFFF#FF4444Remaining SP: "+$guest2mp+"",370,%y:mov %y,%y+27

btnwait2 %cmd1
if %cmd1=89 goto *cmd_support_ali
if %cmd1=90 goto *cmd_support_gr
if %cmd1=91 goto *cmd_support_ta
if %cmd1=92 goto *cmd_support_al
if %cmd1=93 goto *cmd_support_er
if %cmd1=94 goto *cmd_support_al
if %cmd1=95 goto *cmd_support_ha
if %cmd1=96 goto *cmd_support_ki
if %cmd1=97 goto *cmd_support_ch
if %cmd1=98 goto *cmd_support_ku
if %cmd1=99 goto *cmd_support_el
if %cmd1=100 goto *cmd_support_qh
if %cmd1=101 goto *cmd_support_mi
if %cmd1=120 goto *cmd_support_mo
if %cmd1=-1 cspl 600,610:print 10,1:goto "*"+$lavel+"_main"

goto *common_support

*cmd_support_main

if %cmd1=890 gosub *aliskill1:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=891 gosub *aliskill2:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=892 gosub *aliskill3:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=893 gosub *aliskill4:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=894 gosub *aliskill5:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=895 gosub *aliskill6:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=896 gosub *aliskill7:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"

if %cmd1=900 gosub *grskill1:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=901 gosub *grskill2:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=902 gosub *grskill3:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=903 gosub *grskill4:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=904 gosub *grskill5:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=905 gosub *grskill6:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=906 gosub *grskill7:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"

if %cmd1=910 gosub *taskill1:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=911 gosub *taskill2:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=912 gosub *taskill3:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=913 gosub *taskill4:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=914 gosub *taskill5:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=915 gosub *taskill6:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=916 gosub *taskill7:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"

if %cmd1=920 gosub *alskill1:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=921 gosub *alskill2:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=922 gosub *alskill3:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=923 gosub *alskill4:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=924 gosub *alskill5:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=925 gosub *alskill6:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=926 gosub *alskill7:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"

if %cmd1=930 gosub *erskill1:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=931 gosub *erskill2:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=932 gosub *erskill3:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=933 gosub *erskill4:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=934 gosub *erskill5:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=935 gosub *erskill6:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=936 gosub *erskill7:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"

if $party1!="Chrome" skip 9
if %cmd1=950 gosub *chskill1:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=951 gosub *chskill2:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=952 gosub *chskill3:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=953 gosub *chskill4:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=954 gosub *chskill5:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=955 gosub *chskill6:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=956 gosub *chskill7:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=957 gosub *chskill8:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"

if $party2!="Chrome" skip 9
if %cmd1=950 gosub *chskill1:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=951 gosub *chskill2:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=952 gosub *chskill3:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=953 gosub *chskill4:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=954 gosub *chskill5:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=955 gosub *chskill6:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=956 gosub *chskill7:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=957 gosub *chskill8:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"

if $guest1!="Morrigan" skip 9
if %cmd1=2000 gosub *moskill1:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=2001 gosub *moskill2:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=2002 gosub *moskill3:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=2003 gosub *moskill4:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=2004 gosub *moskill5:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=2005 gosub *moskill6:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=2006 gosub *moskill7:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=2007 gosub *moskill8:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"

if $guest2!="Morrigan" skip 9
if %cmd1=2000 gosub *moskill1:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=2001 gosub *moskill2:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=2002 gosub *moskill3:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=2003 gosub *moskill4:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=2004 gosub *moskill5:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=2005 gosub *moskill6:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=2006 gosub *moskill7:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=2007 gosub *moskill8:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"

if %cmd1=-1 csp 699:gosub *face1:mov %support_turn,0:cspl 600,609:mov $ori_name,"Luka":return *common_support
return

*cmd_support_ali

mov %knight_attack,1

gosub *setwindow_04

cspl 600,610:print 10,1

if %alicemp>3 lsp 601,":s/20,20,0;#FFFFFF#FF4444Omega Blaze - 4",70,418:spbtn 601,890
if %alicemp<4 lsp 601,":s/20,20,0;#bbbbbbOmega Blaze - 4",70,418

if %alicemp>3 lsp 602,":s/20,20,0;#FFFFFF#FF4444Frost Ozma - 4",70,445:spbtn 602,891
if %alicemp<4 lsp 602,":s/20,20,0;#bbbbbbFrost Ozma - 4",70,445

if %alicemp>5 lsp 603,":s/20,20,0;#FFFFFF#FF4444Monster Lord's Cruelty - 6",70,472:spbtn 603,892
if %alicemp<6 lsp 603,":s/20,20,0;#bbbbbbMonster Lord's Cruelty - 6",70,472

if %alicemp>7 lsp 604,":s/20,20,0;#FFFFFF#FF4444Eye of Recovery - 8",70,499:spbtn 604,893
if %alicemp<8 lsp 604,":s/20,20,0;#bbbbbbEye of Recovery - 8",70,499

btnwait2 %cmd1

gosub *cmd_support_main

;cspl 3,7
;cspl 601,610
;gosub *setwindow_02p
;texton
;btndef clear

goto *cmd_support_ali


*cmd_support_gr2a

cspl 600,610:print 10,1
mov %knightsup_num,%knightsup_num+1
mov %knight_attack,1
gosub *setwindow_02
name "Granberia"
lsp 699,":a;chara\granberia_st02.bmp",-200,0
gosub *face3
>Oh?@
>Calling for my help now, are we, boy?\
name "Luka"
>Yes! Please!\
name "Granberia"
>...Hmph.@
dwave 1,"se\karaburi.ogg"
lsp 699,":a;chara\granberia_st41.bmp",-200,0:print 10,500
>Alright, here we go!\
name ""
return

*cmd_support_gr0

mov %support_turn,1
mov $ori_name,"Granberia"
saveoff
textoff
cspl 3,7:cspl 600,610
btndef clear
mov %sinkoumode,0 : skipoff : autoclick 0
mov %knight_attack,1
cspl 3,7:print 10,1

*cmd_support_gr

if %knightsup_num<1 gosub *cmd_support_gr2a

gosub *setwindow_04

cspl 600,610:print 10,1

if %knightmp>2 lsp 601,":s/20,20,0;#FFFFFF#FF4444Dragon Butcher Attack - 3 ",70,418:spbtn 601,900
if %knightmp<3 lsp 601,":s/20,20,0;#bbbbbbDragon Butcher Attack - 3 ",70,418

if %knightmp>1 lsp 602,":s/20,20,0;#FFFFFF#FF4444Cursed Sword * Decap. - 2 ",70,445:spbtn 602,901
if %knightmp<2 lsp 602,":s/20,20,0;#bbbbbbCursed Sword * Decap. - 2 ",70,445

if %knightmp>1 lsp 603,":s/20,20,0;#FFFFFF#FF4444Thunder Thrust * Gale - 2 ",70,472:spbtn 603,902
if %knightmp<2 lsp 603,":s/20,20,0;#bbbbbbThunder Thrust * Gale - 2 ",70,472

if %knightmp>2 lsp 604,":s/20,20,0;#FFFFFF#FF4444Beheading * Purgatory - 3 ",70,499:spbtn 604,903
if %knightmp<3 lsp 604,":s/20,20,0;#bbbbbbBeheading * Purgatory - 3 ",70,499

if %knightmp>2 lsp 605,":s/20,20,0;#FFFFFF#FF4444Death Sword Chaos Star - 3 ",400,418:spbtn 605,904
if %knightmp<3 lsp 605,":s/20,20,0;#bbbbbbDeath Sword Chaos Star - 3 ",400,418

if %grskill_typhoon>0 skip 3
if %knightmp>3 lsp 606,":s/20,20,0;#FFFFFF#FF4444Vaporizing Rebellion Sword - 4 ",400,445:spbtn 606,905
if %knightmp<4 lsp 606,":s/20,20,0;#bbbbbbVaporizing Rebellion Sword - 4 ",400,445

if %grskill_typhoon<1 skip 3
if %knightmp>3 lsp 606,":s/20,20,0;#FFFFFF#FF4444Rebellion Sword: Typhoon - 4 ",400,445:spbtn 606,905
if %knightmp<4 lsp 606,":s/20,20,0;#bbbbbbRebellion Sword: Typhoon- 4 ",400,445

if %knightmp>9 && %mp>7 && %daten<1 && %kousoku<1 lsp 607,":s/20,20,0;#FFFFFF#FF4444Starblade - 10 (Luka: 8) ",400,472:spbtn 607,906
if %knightmp<10 || %mp<8 || %daten>0 || %kousoku>0 lsp 607,":s/20,20,0;#bbbbbbStarblade - 10 (Luka: 8)",400,472

btnwait2 %cmd1

gosub *cmd_support_main

;cspl 3,7
;cspl 601,610
;gosub *setwindow_02p
;texton
;btndef clear

goto *cmd_support_gr



*cmd_support_ta2a

cspl 600,610:print 10,1
mov %knightsup_num,%knightsup_num+1
mov %knight_attack,1
gosub *setwindow_02
dwave 1,"se\tamamo.ogg"
name "Tamamo"
lsp 699,":a;2Q\chara\tamamo_st06.png",-200,0
gosub *face3
>Hmm?@
>Want help?\
name "Luka"
>C..can you?\
name "Tamamo"
lsp 699,":a;chara\tamamo_st01.bmp",-200,0:print 10,500
>Well, I suppose the Monster Lord's orders say I should...\
lsp 699,":a;chara\tamamo_st04.bmp",-200,0:print 10,500
>Okay~!@
>Heavenly Knight Tamamo at your service~!\
name ""
return

*cmd_support_ta0

mov %support_turn,1
mov $ori_name,"Tamamo"
saveoff
textoff
cspl 3,7:cspl 600,610
btndef clear
mov %sinkoumode,0 : skipoff : autoclick 0
mov %knight_attack,1
cspl 3,7:print 10,1

*cmd_support_ta

if %knightsup_num<1 gosub *cmd_support_ta2a

gosub *setwindow_04

cspl 600,610:print 10,1

if %knightmp>1 lsp 601,":s/20,20,0;#FFFFFF#FF4444Tail Attack - 2",70,418:spbtn 601,910
if %knightmp<2 lsp 601,":s/20,20,0;#bbbbbbTail Attack - 2 ",70,418

if %knightmp>2 lsp 602,":s/20,20,0;#FFFFFF#FF4444Tamamo Punch - 3",70,445:spbtn 602,911
if %knightmp<3 lsp 602,":s/20,20,0;#bbbbbbTamamo Punch - 3",70,445

if %knightmp>4 lsp 603,":s/20,20,0;#FFFFFF#FF4444Nine Moons - 5",70,472:spbtn 603,912
if %knightmp<5 lsp 603,":s/20,20,0;#bbbbbbNine Moons - 5",70,472

if %knightmp>7 lsp 604,":s/20,20,0;#FFFFFF#FF4444Moonlight Cannon - 8",70,499:spbtn 604,913
if %knightmp<8 lsp 604,":s/20,20,0;#bbbbbbMoonlight Cannon - 8",70,499

if %knightmp>5 lsp 605,":s/20,20,0;#FFFFFF#FF4444Angel's Kiss - 6",400,418:spbtn 605,914
if %knightmp<6 lsp 605,":s/20,20,0;#bbbbbbAngel's Kiss - 6",400,418

if %knightmp>3 && %mp>1 && %kousoku<1 lsp 606,":s/20,20,0;#FFFFFF#FF4444Flash Kill: Quake - 4 (Luka: 2)",400,445:spbtn 606,915
if %knightmp<4 || %mp<2 || %kousoku>0 lsp 606,":s/20,20,0;#bbbbbbFlash Kill: Quake - 4 (Luka: 2)",400,445

; if %knightmp>7 lsp 605,":s/20,20,0;#FFFFFF#FF4444Tail Squeeze - 8",400,418:spbtn 605,914
; if %knightmp<8 lsp 605,":s/20,20,0;#bbbbbbTail Squeeze - 8",400,418

; if %knightmp>31 lsp 607,":s/20,20,0;#FFFFFF#FF4444Word of Dispel - 32",400,499:spbtn 607,916
; if %knightmp<32 
lsp 607,":s/20,20,0;#bbbbbbWord of Dispel - 32",400,499

btnwait2 %cmd1

gosub *cmd_support_main

;cspl 3,7
;cspl 600,610
;gosub *setwindow_02p
;texton
;btndef clear

goto *cmd_support_ta



*cmd_support_al2a

cspl 600,610:print 10,1
mov %knightsup_num,%knightsup_num+1
mov %knight_attack,1
gosub *setwindow_02
name "Alma Elma"
lsp 699,":a;2Q\chara\arumaeruma_st11.png",-200,0
gosub *face3
>Hmhmhmhm...@
>Need some assistance?\
name "Luka"
>You can help me, can't you?@
>P-please?\
name "Alma Elma"
lsp 699,":a;2Q\chara\arumaeruma_st13.png",-200,0:print 10,500
>Well, since you said please...\
name ""
return

*cmd_support_al0

mov %support_turn,1
mov $ori_name,"Alma Elma"
saveoff
textoff
cspl 3,7:cspl 600,610
btndef clear
mov %sinkoumode,0 : skipoff : autoclick 0
mov %knight_attack,1
cspl 3,7:print 10,1

*cmd_support_al

if %knightsup_num<1 gosub *cmd_support_al2a

gosub *setwindow_04

cspl 600,610:print 10,1

if %knightmp>5 lsp 601,":s/20,20,0;#FFFFFF#FF4444Angel's Kiss - 6 ",70,418:spbtn 601,920
if %knightmp<6 lsp 601,":s/20,20,0;#bbbbbbAngel's Kiss - 6 ",70,418

if %knightmp>2 lsp 602,":s/20,20,0;#FFFFFF#FF4444Shamshir - 3 ",70,445:spbtn 602,921
if %knightmp<3 lsp 602,":s/20,20,0;#bbbbbbShamshir - 3 ",70,445

if %knightmp>7 lsp 603,":s/20,20,0;#FFFFFF#FF4444Seduce Monster - 8 ",70,472:spbtn 603,922
if %knightmp<8 lsp 603,":s/20,20,0;#bbbbbbSeduce Monster - 8 ",70,472

if %knightmp>4 && %mp>5 && %kousoku<1 lsp 604,":s/20,20,0;#FFFFFF#FF4444Rakshasa: Wildfire - 5 (Luka: 6) ",70,499:spbtn 604,923
if %knightmp<5 || %mp<6 || %kousoku>0 lsp 604,":s/20,20,0;#bbbbbbRakshasa: Wildfire - 5 (Luka: 6) ",70,499

;if %knightmp>2 lsp 605,":s/20,20,0;#FFFFFF#FF4444Dummy ",400,418:spbtn 605,924
;if %knightmp<3 lsp 605,":s/20,20,0;#bbbbbbDummy ",400,418

;if %knightmp>3 lsp 606,":s/20,20,0;#FFFFFF#FF4444Dummy ",400,445:spbtn 606,925
;if %knightmp<4 lsp 606,":s/20,20,0;#bbbbbbDummy ",400,445

;if %knightmp>9 && %mp>7 && %daten<1 lsp 607,":s/20,20,0;#FFFFFF#FF4444Dummy ",400,472:spbtn 607,926
;if %knightmp<10 || %mp<8 || %daten>0 lsp 607,":s/20,20,0;#bbbbbbDummy ",400,472

btnwait2 %cmd1

gosub *cmd_support_main

;cspl 3,7
;cspl 600,610
;gosub *setwindow_02p
;texton
;btndef clear

goto *cmd_support_al



*cmd_support_er2a

cspl 600,610:print 10,1
mov %knightsup_num,%knightsup_num+1
mov %knight_attack,1
gosub *setwindow_02
name "Erubetie"
lsp 699,":a;chara\erbetie_st01.bmp",0,0
gosub *face3
>Me...?@
>You're asking me for help?\
name "Luka"
>That's...okay, right?\
name "Erubetie"
>.............\
name ""
>Erubetie sighs.\
name "Erubetie"
>Fine.@
>I'll give you my assistance, this time.\
name ""
return

*cmd_support_er0

mov %support_turn,1
mov $ori_name,"Erubetie"
saveoff
textoff
cspl 3,7:cspl 600,610
btndef clear
mov %sinkoumode,0 : skipoff : autoclick 0
mov %knight_attack,1
cspl 3,7:print 10,1

*cmd_support_er

if %knightsup_num<1 gosub *cmd_support_er2a

gosub *setwindow_04

cspl 600,610:print 10,1

if %knightmp>7 lsp 601,":s/20,20,0;#FFFFFF#FF4444Slime's Kiss - 8 ",70,418:spbtn 601,930
if %knightmp<8 lsp 601,":s/20,20,0;#bbbbbbSlime's Kiss - 8 ",70,418

if %knightmp>7 lsp 602,":s/20,20,0;#FFFFFF#FF4444Aqua Pentagram - 8 ",70,445:spbtn 602,931
if %knightmp<8 lsp 602,":s/20,20,0;#bbbbbbAqua Pentagram - 8 ",70,445

if %knightmp>7 lsp 603,":s/20,20,0;#FFFFFF#FF4444Slime Hold - 8 ",70,472:spbtn 603,932
if %knightmp<8 lsp 603,":s/20,20,0;#bbbbbbSlime Hold - 8 ",70,472

if %knightmp>4 && %mp>3 && %kousoku<1 lsp 604,":s/20,20,0;#FFFFFF#FF4444Demon Revival: Blizzard - 5 (Luka: 4) ",70,499:spbtn 604,933
if %knightmp<5 || %mp<4 || %kousoku>0 lsp 604,":s/20,20,0;#bbbbbbDemon Revival: Blizzard - 5 (Luka: 4) ",70,499

;if %knightmp>2 lsp 605,":s/20,20,0;#FFFFFF#FF4444Dummy ",400,418:spbtn 605,934
;if %knightmp<3 lsp 605,":s/20,20,0;#bbbbbbDummy ",400,418

;if %knightmp>3 lsp 606,":s/20,20,0;#FFFFFF#FF4444Dummy ",400,445:spbtn 606,935
;if %knightmp<4 lsp 606,":s/20,20,0;#bbbbbbDummy ",400,445

;if %knightmp>9 && %mp>7 && %daten<1 lsp 607,":s/20,20,0;#FFFFFF#FF4444Dummy ",400,472:spbtn 607,936
;if %knightmp<10 || %mp<8 || %daten>0 lsp 607,":s/20,20,0;#bbbbbbDummy ",400,472

btnwait2 %cmd1

gosub *cmd_support_main

;cspl 3,7
;cspl 600,610
;gosub *setwindow_02p
;texton
;btndef clear

goto *cmd_support_er



*cmd_support_ku

;if %knightsup_num<1 gosub *cmd_support_ku2a

gosub *setwindow_04

cspl 601,610:print 10,1

if %knightmp>2 lsp 601,":s/20,20,0;#FFFFFF#FF4444Heal - 3 ",70,418:spbtn 601,940
if %knightmp<3 lsp 601,":s/20,20,0;#bbbbbbHeal - 3 ",70,418

if %knightmp>5 lsp 602,":s/20,20,0;#FFFFFF#FF4444Full Heal - 6 ",70,445:spbtn 602,941
if %knightmp<6 lsp 602,":s/20,20,0;#bbbbbbFull Heal - 6 ",70,445

if %knightmp>3 lsp 603,":s/20,20,0;#FFFFFF#FF4444Divine Guard - 4 ",70,472:spbtn 603,942
if %knightmp<4 lsp 603,":s/20,20,0;#bbbbbbDivine Guard - 4 ",70,472

if %knightmp>7 lsp 604,":s/20,20,0;#FFFFFF#FF4444Snake Bind - 8 ",70,499:spbtn 604,943
if %knightmp<8 lsp 604,":s/20,20,0;#bbbbbbSnake Bind - 8",70,499

;if %knightmp>2 lsp 605,":s/20,20,0;#FFFFFF#FF4444Holy Explosion - 8 ",400,418:spbtn 605,934
;if %knightmp<3 lsp 605,":s/20,20,0;#bbbbbbHoly Explosion - 8 ",400,418

;if %knightmp>3 lsp 606,":s/20,20,0;#FFFFFF#FF4444Dummy ",400,445:spbtn 606,935
;if %knightmp<4 lsp 606,":s/20,20,0;#bbbbbbDummy ",400,445

;if %knightmp>9 && %mp>7 && %daten<1 lsp 607,":s/20,20,0;#FFFFFF#FF4444Dummy ",400,472:spbtn 607,936
;if %knightmp<10 || %mp<8 || %daten>0 lsp 607,":s/20,20,0;#bbbbbbDummy ",400,472

btnwait2 %cmd1

gosub *cmd_support_main

;cspl 3,7
;cspl 601,610:print 10,1
;gosub *setwindow_02p
;texton
;btndef clear

goto *cmd_support_ku



*cmd_support_ch2a

cspl 600,610:print 10,1

if $party1!="Chrome" skip 3
mov %party1sup_num,%party1sup_num+1
mov %party1_attack,1

if $party2!="Chrome" skip 3
mov %party2sup_num,%party2sup_num+1
mov %party2_attack,1

gosub *setwindow_02
name "Chrome"
lsp 699,":a;chara\chrom_st26.bmp",-200,0
gosub *face1
>M-me?@
>You want me to help?\
name "Luka"
>Can you?\
name "Chrome"
>I don't know.@
>But I can try...\
lsp 699,":a;2Q\chara\chrom_st30.png",-200,0:print 10,500
name ""
return


*cmd_support_ch0

mov %support_turn,1
mov $ori_name,"Chrome"
saveoff
textoff
cspl 3,7:cspl 600,610
btndef clear
mov %sinkoumode,0 : skipoff : autoclick 0
if $party1="Chrome mov %party1_attack,1
if $party2="Chrome mov %party2_attack,1
cspl 3,7:print 10,1

*cmd_support_ch

if %party1sup_num<1 gosub *cmd_support_ch2a

gosub *setwindow_04

cspl 600,610:print 10,1

if $party1="Chrome" mov %partymp,%party1mp
if $party2="Chrome" mov %partymp,%party1mp

if %partymp>4 lsp 601,":s/20,20,0;#FFFFFF#FF4444Corrupted Earth - 5 ",70,418:spbtn 601,950
if %partymp<5 lsp 601,":s/20,20,0;#bbbbbbCorrupted Earth - 5 ",70,418

if %partymp>4 lsp 602,":s/20,20,0;#FFFFFF#FF4444Tainted Wind - 5 ",70,445:spbtn 602,951
if %partymp<5 lsp 602,":s/20,20,0;#bbbbbbTainted Wind - 5 ",70,445

if %partymp>0 lsp 603,":s/20,20,0;#FFFFFF#FF4444Mystery Potion - 1 ",70,472:spbtn 603,952
if %partymp<1 lsp 603,":s/20,20,0;#bbbbbbMystery Potion - 1 ",70,472

if %partymp>1 && %skill_st>0 lsp 604,":s/20,20,0;#FFFFFF#FF4444Strength Potion - 2 ",70,499:spbtn 604,953
if %partymp<2 && %skill_st>0 lsp 604,":s/20,20,0;#bbbbbbStrength Potion - 2 ",70,499
if %skill_st<1 lsp 604,":s/20,20,0;#bbbbbb??? ",70,499

if %partymp>1 && %skill_gu>0 lsp 605,":s/20,20,0;#FFFFFF#FF4444Guard Potion - 2",400,418:spbtn 605,954
if %partymp<2 && %skill_gu>0 lsp 605,":s/20,20,0;#bbbbbbGuard Potion - 2 ",400,418
if %skill_gu<1 lsp 605,":s/20,20,0;#bbbbbb??? ",400,418

if %partymp>3 && %skill_fi>0 lsp 606,":s/20,20,0;#FFFFFF#FF4444Fire Potion - 4 ",400,445:spbtn 606,955
if %partymp<4 && %skill_fi>0 lsp 606,":s/20,20,0;#bbbbbbFire Potion - 4 ",400,445
if %skill_fi<1 lsp 606,":s/20,20,0;#bbbbbb??? ",400,445

if %partymp>7 && %skill_fu>0 lsp 607,":s/20,20,0;#FFFFFF#FF4444Full Cure Potion - 8 ",400,472:spbtn 607,956
if %partymp<8 && %skill_fu>0 lsp 607,":s/20,20,0;#bbbbbbFull Cure Potion - 8 ",400,472
if %skill_fu<1 lsp 607,":s/20,20,0;#bbbbbb??? ",400,472

if %partymp>7 && %skill_mp>0 lsp 608,":s/20,20,0;#FFFFFF#FF4444SP Restore Potion - 8 ",400,499:spbtn 608,957
if %partymp<8 && %skill_mp>0 lsp 608,":s/20,20,0;#bbbbbbSP Restore - 8 ",400,499
if %skill_mp<1 lsp 608,":s/20,20,0;#bbbbbb??? ",400,499

btnwait2 %cmd1

gosub *cmd_support_main

;cspl 3,7
;cspl 601,610:print 10,1
;gosub *setwindow_02p
;texton
;btndef clear

goto *cmd_support_ch


*cmd_support_mo2a

cspl 600,610:print 10,1
mov %knightsup_num,%knightsup_num+1
mov %knight_attack,1
gosub *setwindow_02
dwave 1,"se\Morrigan.ogg"
name "Morrigan"
lsp 699,":a;2Q\chara\morrigan_st01.png",-200,0
gosub *face3
>Ooooh!@
>Do I get a turn?\
lsp 699,":a;2Q\chara\morrigan_st02.png",-200,0:print 10,500
>Oh, this is gonna be fuuuuun~!\
name ""
return

*cmd_support_mo0

mov %support_turn,1
mov $ori_name,"Morrigan"
saveoff
textoff
cspl 3,7:cspl 600,610
btndef clear
mov %sinkoumode,0 : skipoff : autoclick 0
mov %knight_attack,1
cspl 3,7:print 10,1

*cmd_support_mo

if %knightsup_num<1 gosub *cmd_support_mo2a

gosub *setwindow_04

cspl 600,610:print 10,1

if $guest1="Morrigan" && %guest1mp>2 lsp 601,":s/20,20,0;#FFFFFF#FF4444Aura of Darkness - 3",70,418:spbtn 601,2000
if $guest1="Morrigan" && %guest1mp<3 lsp 601,":s/20,20,0;#bbbbbbAura of Darkness - 3",70,418
if $guest2="Morrigan" && %guest1mp>2 lsp 601,":s/20,20,0;#FFFFFF#FF4444Aura of Darkness - 3",70,418:spbtn 601,2000
if $guest2="Morrigan" && %guest1mp<3 lsp 601,":s/20,20,0;#bbbbbbAura of Darkness - 3",70,418

if $guest1="Morrigan" && %guest1mp>1 lsp 602,":s/20,20,0;#FFFFFF#FF4444Dark Energy Blast - 2",70,445:spbtn 602,2001
if $guest1="Morrigan" && %guest1mp<2 lsp 602,":s/20,20,0;#bbbbbbDark Energy Blast - 2",70,445
if $guest2="Morrigan" && %guest1mp>1 lsp 602,":s/20,20,0;#FFFFFF#FF4444Dark Energy Blast - 2",70,445:spbtn 602,2001
if $guest2="Morrigan" && %guest1mp<2 lsp 602,":s/20,20,0;#bbbbbbDark Energy Blast - 2",70,445

if $guest1="Morrigan" && %guest1mp>2 lsp 603,":s/20,20,0;#FFFFFF#FF4444Black Flame - 3",70,472:spbtn 603,2002
if $guest1="Morrigan" && %guest1mp<3 lsp 603,":s/20,20,0;#bbbbbbBlack Flame - 3",70,472
if $guest2="Morrigan" && %guest1mp>2 lsp 603,":s/20,20,0;#FFFFFF#FF4444Black Flame - 3",70,472:spbtn 603,2002
if $guest2="Morrigan" && %guest1mp<3 lsp 603,":s/20,20,0;#bbbbbbBlack Flame - 3",70,472

if $guest1="Morrigan" && %guest1mp>7 lsp 604,":s/20,20,0;#FFFFFF#FF4444Angel's Kiss - 8",70,499:spbtn 604,2003
if $guest1="Morrigan" && %guest1mp<8 lsp 604,":s/20,20,0;#bbbbbbAngel's Kiss - 8",70,499
if $guest2="Morrigan" && %guest1mp>7 lsp 604,":s/20,20,0;#FFFFFF#FF4444Angel's Kiss - 8",70,499:spbtn 604,2003
if $guest2="Morrigan" && %guest1mp<8 lsp 604,":s/20,20,0;#bbbbbbAngel's Kiss - 8",70,499

btnwait2 %cmd1

gosub *cmd_support_main

;cspl 3,7
;cspl 601,610
;gosub *setwindow_02p
;texton
;btndef clear

goto *cmd_support_mo


*cmd_skill

if %zukanon!=1 goto *cmd_skill_ng
saveoff
textoff
cspl 3,7:cspl 600,610
btndef clear
mov %skill_page,1
mov %sinkoumode,0 : skipoff : autoclick 0
gosub *setwindow_04

if %skill01>0 && %mp>1 lsp 601,":s/20,20,0;#FFFFFF#FF4444Demon Decapitation - 2",70,418:spbtn 601,21
if %skill01>0 && %mp<2 lsp 601,":s/20,20,0;#bbbbbbDemon Decapitation - 2",70,418

if %skill01>13 && %mp>1 lsp 601,":s/20,20,0;#FFFFFF#FF4444Serene Demon Sword - 2",70,418:spbtn 601,28
if %skill01>13 && %mp<2 lsp 601,":s/20,20,0;#bbbbbbSerene Demon Sword - 2",70,418

if %skill01>16 && %mp>1 lsp 601,":s/20,20,0;#FFFFFF#FF4444Demon Decapitation - 2",70,418:spbtn 601,21
if %skill01>16 && %mp<2 lsp 601,":s/20,20,0;#bbbbbbDemon Decapitation - 2",70,418

if %skill01>2 && %skill01<11 && %mp>1 lsp 602,":s/20,20,0;#FFFFFF#FF4444Thunder Thrust -  2",70,445:spbtn 602,23
if %skill01>2 && %skill01<11 && %mp<2 lsp 602,":s/20,20,0;#bbbbbbThunder Thrust -  2",70,445

if %skill01>10 && %mp>1 lsp 602,":s/20,20,0;#FFFFFF#FF4444Lightning Sword Flash - 2",70,445:spbtn 602,26
if %skill01>10 && %mp<2 lsp 602,":s/20,20,0;#bbbbbbLightning Sword Flash - 2",70,445

if %skill01>16 && %mp>1 lsp 602,":s/20,20,0;#FFFFFF#FF4444Thunder Thrust -  2",70,445:spbtn 602,23
if %skill01>16 && %mp<2 lsp 602,":s/20,20,0;#bbbbbbThunder Thrust -  2",70,445

if %skill01>4 && %mp>2 && %tikei>0 lsp 603,":s/20,20,0;#FFFFFF#FF4444Demon Skull Beheading - 3",70,472:spbtn 603,25
if %skill01>4 && %mp<3 lsp 603,":s/20,20,0;#bbbbbbDemon Skull Beheading - 3",70,472
if %skill01>4 && %tikei=0 lsp 603,":s/20,20,0;#bbbbbbDemon Skull Beheading - 3",70,472

if %skill01>11 && %mp>2 lsp 603,":s/20,20,0;#FFFFFF#FF4444Earth Rumbling Decap. - 3",70,472:spbtn 603,27
if %skill01>11 && %mp<3 lsp 603,":s/20,20,0;#bbbbbbEarth Rumbling Decap. - 3",70,472

if %skill01>16 && %mp>2 && %tikei>0 lsp 603,":s/20,20,0;#FFFFFF#FF4444Demon Skull Beheading - 3",70,472:spbtn 603,25
if %skill01>16 && %mp<3 lsp 603,":s/20,20,0;#bbbbbbDemon Skull Beheading - 3",70,472
if %skill01>16 && %tikei=0 lsp 603,":s/20,20,0;#bbbbbbDemon Skull Beheading - 3",70,472

if %skill01>1 && %skill01<6 && %mp>1 lsp 604,":s/20,20,0;#FFFFFF#FF4444Flail Wildly     - 2",70,499:spbtn 604,22
if %skill01>1 && %skill01<6 && %mp<2 lsp 604,":s/20,20,0;#bbbbbbFlail Wildly      - 2",70,499

if %skill01>5 && %mp>3 lsp 604,":s/20,20,0;#FFFFFF#FF4444Death Sword Chaos Star - 4",70,499:spbtn 604,22
if %skill01>5 && %mp<4 lsp 604,":s/20,20,0;#bbbbbbDeath Sword Chaos Star - 4",70,499

if %skill01>15 && %mp>3 lsp 604,":s/20,20,0;#FFFFFF#FF4444Vaporizing Rebel Sword - 4",70,499:spbtn 604,30
if %skill01>15 && %mp<4 lsp 604,":s/20,20,0;#bbbbbbVaporizing Rebel Sword - 4",70,499

if %skill01>16 && %mp>3 lsp 604,":s/20,20,0;#FFFFFF#FF4444Death Sword Chaos Star - 4",70,499:spbtn 604,22
if %skill01>16 && %mp<4 lsp 604,":s/20,20,0;#bbbbbbDeath Sword Chaos Star - 4",70,499

if %skill01>3 && %mp>2 && %fire=0 lsp 605,":s/20,20,0;#FFFFFF#FF4444Meditation - 3",370,418:spbtn 605,24
if %skill01>3 && %mp>2 && %fire>2 lsp 605,":s/20,20,0;#FFFFFF#FF4444Meditation - 3",370,418:spbtn 605,24
if %skill01>3 && %mp<3 lsp 605,":s/20,20,0;#bbbbbbMeditation - 3",370,418
if %skill01>3 && %fire>0 && %fire<3 lsp 605,":s/20,20,0;#bbbbbbMeditation - 3",370,418

if %mylife>1 lsp 606,":s/20,20,0;#FFFFFF#FF4444Edging - 0",370,445:spbtn 606,35
if %mylife<2 lsp 606,":s/20,20,0;#bbbbbbEdging - 0",370,445

if %skill01>14 && %skill01<17 && %mp>0 lsp 608,":s/20,20,0;#FFFFFF#FF4444Quadruple Giga - 1",370,499:spbtn 608,29
if %skill01>14 && %skill01<17 && %mp<1 lsp 608,":s/20,20,0;#bbbbbbQuadruple Giga - 1",370,499

if %skill01=18 && %mp>1 && %aqua=0 lsp 608,":s/20,20,0;#FFFFFF#FF4444Serene Mind - 2",370,499:spbtn 608,36
if %skill01>18 && %aqua>0 && %mp>1 lsp 608,":s/20,20,0;#00BFFF#FF4444Serene Mind - 2",370,499:spbtn 608,36
if %skill01=18 && %mp<2 lsp 608,":s/20,20,0;#bbbbbbSerene Mind - 2",370,499

if %skill01>6 && %skill01<17 lsp 609,":c/2,0,3;system\menu_prev.jpg",32,515:spbtn 609,40
if %skill01>6 && %skill01<17 lsp 610,":c/2,0,3;system\menu_next.jpg",748,515:spbtn 610,41
goto *cmd_skill3



*cmd_skill2

saveoff
textoff
cspl 3,7:cspl 600,610
btndef clear
mov %skill_page,2
mov %sinkoumode,0 : skipoff : autoclick 0
gosub *setwindow_04

if %skill01>18 goto *cmd_skillx2

if %skill01>6 && %skill02<2 lsp 601,":s/20,20,0;#bbbbbbSylph - 2",70,418
if %skill01>6 && %skill02<2 && %mp>1 && %wind=0 && %aqua<2 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 2",70,418:spbtn 601,31

if %skill01>6 && %skill02=2 lsp 601,":s/20,20,0;#bbbbbbSylph - 2",70,418
if %skill01>6 && %skill02=2 && %mp>1 && %wind=0 && %aqua<2 && %fire=0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 2",70,418:spbtn 601,31

if %skill01>6 && %skill02=3 lsp 601,":s/20,20,0;#bbbbbbSylph - 1",70,418
if %skill01>6 && %skill02=3 && %mp>0 && %wind=0 && %aqua=0 && %fire=0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 1",70,418:spbtn 601,31
if %skill01>6 && %skill02=3 && %mp>0 && %wind=0 && %aqua=3 && %fire=0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 1",70,418:spbtn 601,31
if %skill01>6 && %skill02=3 && %mp>0 && %wind=0 && %aqua=0 && %fire=3 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 1",70,418:spbtn 601,31
if %skill01>6 && %skill02=3 && %mp>0 && %wind=0 && %aqua=3 && %fire=3 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 1",70,418:spbtn 601,31

if %skill01>7 && %skill03<2 lsp 602,":s/20,20,0;#bbbbbbGnome - 2",70,445
if %skill01>7 && %skill03<2 && %mp>1 && %earth=0 && %aqua<2 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 2",70,445:spbtn 602,32

if %skill01>7 && %skill03=2 lsp 602,":s/20,20,0;#bbbbbbGnome - 2",70,445
if %skill01>7 && %skill03=2 && %mp>1 && %earth=0 && %aqua<2 && %fire=0 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 2",70,445:spbtn 602,32

if %skill01>7 && %skill03=3 lsp 602,":s/20,20,0;#bbbbbbGnome - 1",70,445
if %skill01>7 && %skill03=3 && %mp>0 && %earth=0 && %aqua=0 && %fire=0 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 1",70,445:spbtn 602,32
if %skill01>7 && %skill03=3 && %mp>0 && %earth=0 && %aqua=3 && %fire=0 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 1",70,445:spbtn 602,32
if %skill01>7 && %skill03=3 && %mp>0 && %earth=0 && %aqua=0 && %fire=3 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 1",70,445:spbtn 602,32
if %skill01>7 && %skill03=3 && %mp>0 && %earth=0 && %aqua=3 && %fire=3 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 1",70,445:spbtn 602,32

if %skill01>9 && %skill04<2 lsp 603,":s/20,20,0;#bbbbbbUndine - 2",70,472
if %skill01>9 && %skill04<2 && %mp>1 && %aqua=0 lsp 603,":s/20,20,0;#FFFFFF#FF4444Undine - 2",70,472:spbtn 603,33

if %skill01>9 && %skill04=2 lsp 603,":s/20,20,0;#bbbbbbUndine - ALL",70,472
if %skill01>9 && %skill04=2 && %mp>0 && %aqua=0 && %fire=0 lsp 603,":s/20,20,0;#FFFFFF#FF4444Undine - ALL",70,472:spbtn 603,33
if %skill01>9 && %skill04=2 && %mp>0 && %aqua=0 && %fire=3 lsp 603,":s/20,20,0;#FFFFFF#FF4444Undine - ALL",70,472:spbtn 603,33

if %skill01>9 && %skill04=3 lsp 603,":s/20,20,0;#bbbbbbUndine - 4",70,472
if %skill01>9 && %skill04=3 && %mp>3 && %aqua=0 lsp 603,":s/20,20,0;#FFFFFF#FF4444Undine - 4",70,472:spbtn 603,33

if %skill01>12 && %skill05<2 lsp 604,":s/20,20,0;#bbbbbbSalamander - 2",70,499
if %skill01>12 && %skill05<2 && %mp>1 && %fire=0 && %aqua<2 lsp 604,":s/20,20,0;#FFFFFF#FF4444Salamander - 2",70,499:spbtn 604,34

if %skill01>12 && %skill05=2 lsp 604,":s/20,20,0;#bbbbbbSalamander - 2",70,499
if %skill01>12 && %skill05=2 && %mp>1 && %fire=0 && %aqua<2 lsp 604,":s/20,20,0;#FFFFFF#FF4444Salamander - 2",70,499:spbtn 604,34

if %skill01>12 && %skill05=3 lsp 604,":s/20,20,0;#bbbbbbSalamander - 4",70,499
if %skill01>12 && %skill05=3 && %mp>3 && %fire=0 && %aqua<2 lsp 604,":s/20,20,0;#FFFFFF#FF4444Salamander - 4",70,499:spbtn 604,34
if %skill01>12 && %skill05=3 && %mp>3 && %fire=0 && %aqua=3 lsp 604,":s/20,20,0;#FFFFFF#FF4444Salamander - 4",70,499:spbtn 604,34

if %skill01>6 lsp 609,":c/2,0,3;system\menu_prev.jpg",32,515:spbtn 609,40
if %skill01>6 lsp 610,":c/2,0,3;system\menu_next.jpg",748,515:spbtn 610,41
goto *cmd_skill3



*cmd_skillx1

if %skill01>18 && %mp>1 lsp 601,":s/20,20,0;#FFFFFF#FF4444Flash Kill - 2",70,418:spbtn 601,37
if %skill01>18 && %mp<2 lsp 601,":s/20,20,0;#bbbbbbFlash Kill - 2",70,418

if %skill01>18 && %mp>3 lsp 603,":s/20,20,0;#FFFFFF#FF4444Heavenly Demon Revival - 4",70,445:spbtn 603,39
if %skill01>18 && %mp<4 lsp 603,":s/20,20,0;#bbbbbbHeavenly Demon Revival - 4",70,445

if %skill01>18 && %mp>5 lsp 602,":s/20,20,0;#FFFFFF#FF4444Ninefold Rakshasa - 6",70,472:spbtn 602,38
if %skill01>18 && %mp<6 lsp 602,":s/20,20,0;#bbbbbbNinefold Rakshasa - 6",70,472

if %skill01>18 && %mp>7 lsp 604,":s/20,20,0;#FFFFFF#FF4444Daystar - 8",70,499:spbtn 604,44
if %skill01>18 && %mp<8 lsp 604,":s/20,20,0;#bbbbbbDaystar - 8",70,499

if %skill01>18 && %mp>2 && %fire<>4 lsp 605,":s/20,20,0;#FFFFFF#FF4444Meditation - 3",370,418:spbtn 605,24
if %skill01>18 && %mp<3 lsp 605,":s/20,20,0;#bbbbbbMeditation - 3",370,418
if %skill01>18 && %fire=4 lsp 605,":s/20,20,0;#bbbbbbMeditation - 3",370,418

if %mylife>1 lsp 606,":s/20,20,0;#FFFFFF#FF4444Edging - 0",370,445:spbtn 606,35
if %mylife<2 lsp 606,":s/20,20,0;#bbbbbbEdging - 0",370,445

if %skill02>0 skip 4
if %skill01>18 && %mp>1 && %wind=0 lsp 607,":s/20,20,0;#FFFFFF#FF4444Fallen Angel Dance - 2",370,472:spbtn 607,45
if %skill01>18 && %wind>0 && %mp>1 lsp 607,":s/20,20,0;#00C957#FF4444Fallen Angel Dance - 2",370,472:spbtn 607,45
if %skill01>18 && %mp<2 lsp 607,":s/20,20,0;#bbbbbbFallen Angel Dance - 2",370,472

if %skill01>19 && %mp>8 lsp 607,":s/20,20,0;#FFFFFF#FF4444??????E??? 9",370,472:spbtn 607,42
if %skill01>19 && %mp<9 lsp 607,":s/20,20,0;#bbbbbb??????E??? 9",370,472

if %skill04>0 skip 4
if %skill01>18 && %mp>1 && %aqua=0 lsp 608,":s/20,20,0;#FFFFFF#FF4444Serene Mind - 2",370,499:spbtn 608,36
if %skill01>18 && %mp<2 lsp 608,":s/20,20,0;#bbbbbbSerene Mind - 2",370,499
if %skill01>18 && %aqua>0 lsp 608,":s/20,20,0;#bbbbbbSerene Mind - 2",370,499

if %skill01>20 && %mp>0 lsp 608,":s/20,20,0;#FFFFFF#FF4444Quadruple Giga - 1",370,499:spbtn 608,29
if %skill01>20 && %mp<1 lsp 608,":s/20,20,0;#bbbbbbQuadruple Giga - 1",370,499

if %skill03>0 lsp 609,":c/2,0,3;system\menu_prev.jpg",32,515:spbtn 609,40
if %skill03>0 lsp 610,":c/2,0,3;system\menu_next.jpg",748,515:spbtn 610,41
goto *cmd_skill3



*cmd_skillx2

if %skill02=4 lsp 601,":s/20,20,0;#bbbbbbSylph - 2",70,418
if %skill02=4 && %mp>1 && %wind=0 && %fire<>4 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 2",70,418:spbtn 601,31

if %skill02=5 lsp 601,":s/20,20,0;#bbbbbbSylph - 1",70,418
if %skill02=5 && %mp>0 && %wind=0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 1",70,418:spbtn 601,31

if %skill03=4 lsp 602,":s/20,20,0;#bbbbbbGnome - 2",70,445
if %skill03=4 && %mp>1 && %earth=0 && %fire<>4 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 2",70,445:spbtn 602,32

if %skill03=5 lsp 602,":s/20,20,0;#bbbbbbGnome - 1",70,445
if %skill03=5 && %mp>0 && %earth=0 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 1",70,445:spbtn 602,32

if %skill04>3 lsp 603,":s/20,20,0;#bbbbbbUndine - 2",70,472
if %skill04=4 && %mp>1 && %aqua=0 && %fire lsp 603,":s/20,20,0;#FFFFFF#FF4444Undine - 2",70,472:spbtn 603,33
if %skill04=5 && %mp>1 && %aqua=0 lsp 603,":s/20,20,0;#FFFFFF#FF4444Undine - 2",70,472:spbtn 603,33

if %skill05>3 lsp 604,":s/20,20,0;#bbbbbbSalamander - 4",70,499
if %skill05>3 && %mp>3 && %fire=0 lsp 604,":s/20,20,0;#FFFFFF#FF4444Salamander - 4",70,499:spbtn 604,34

if %skill01>21 && %mp>9 lsp 605,":s/20,20,0;#FFFFFF#FF4444Elemental Spica - 10",370,418:spbtn 605,43
if %skill01>21 && %mp<10 lsp 605,":s/20,20,0;#bbbbbbElemental Spica - 10",370,418

if %skill01>6 lsp 609,":c/2,0,3;system\menu_prev.jpg",32,515:spbtn 609,40
if %skill01>6 lsp 610,":c/2,0,3;system\menu_next.jpg",748,515:spbtn 610,41
goto *cmd_skill3



*cmd_skill3

btnwait2 %cmd1
if %zukanon>0 && %cmd1=4 textoff:return *zukan_commonkaisou0
if %mon_labo_on=1 && %cmd1=4 textoff: screen_clear: return *monster_labo
if %cmd1=3 && %skill_page=1 mov %saveorload,0:gosub *saveload:goto *cmd_skill
if %cmd1=3 && %skill_page=2 mov %saveorload,0:gosub *saveload:goto *cmd_skill2
if %cmd1=4 && %skill_page=1 mov %saveorload,1:gosub *saveload:goto *cmd_skill
if %cmd1=4 && %skill_page=2 mov %saveorload,1:gosub *saveload:goto *cmd_skill2
if %cmd1=7 && %skill_page=1 gosub *window_delete2:goto *cmd_skill
if %cmd1=7 && %skill_page=2 gosub *window_delete2:goto *cmd_skill2
if %cmd1=0 goto *cmd_skill3
if %cmd1<=-2 goto *cmd_skill3
if %cmd1=40 && %skill_page=1 goto *cmd_skill2
if %cmd1=40 && %skill_page=2 goto *cmd_skill
if %cmd1=41 && %skill_page=1 goto *cmd_skill2
if %cmd1=41 && %skill_page=2 goto *cmd_skill
cspl 3,7
cspl 601,610
gosub *setwindow_02p
texton
btndef clear
return

*cmd_skill_ng

if %skillset=2 goto *cmd_skill_ngx1
saveoff
textoff
cspl 3,7:cspl 600,610
btndef clear
mov %previous_menu,2
mov %skill_page,1
mov %sinkoumode,0 : skipoff : autoclick 0
gosub *setwindow_04
if %skill01>0 && %mp>1 lsp 601,":s/20,20,0;#FFFFFF#FF4444Demon Decapitation - 2",70,418:spbtn 601,21
if %skill01>0 && %mp<2 lsp 601,":s/20,20,0;#bbbbbbDemon Decapitation - 2",70,418

if %skill01>13 && %mp>1 lsp 601,":s/20,20,0;#FFFFFF#FF4444Serene Demon Sword - 2",70,418:spbtn 601,28
if %skill01>13 && %mp<2 lsp 601,":s/20,20,0;#bbbbbbSerene Demon Sword - 2",70,418

if %skill01>2 && %skill01<11 && %mp>1 lsp 602,":s/20,20,0;#FFFFFF#FF4444Thunder Thrust - 2",70,445:spbtn 602,23
if %skill01>2 && %skill01<11 && %mp<2 lsp 602,":s/20,20,0;#bbbbbbThunder Thrust - 2",70,445

if %skill01>10 && %mp>1 lsp 602,":s/20,20,0;#FFFFFF#FF4444Lightning Sword Flash - 2",70,445:spbtn 602,26
if %skill01>10 && %mp<2 lsp 602,":s/20,20,0;#bbbbbbLightning Sword Flash - 2",70,445

if %skill01>4 && %mp>2 && %tikei>0 lsp 603,":s/20,20,0;#FFFFFF#FF4444Demon Skull Beheading - 3",70,472:spbtn 603,25
if %skill01>4 && %mp<3 lsp 603,":s/20,20,0;#bbbbbbDemon Skull Beheading - 3",70,472
if %skill01>4 && %tikei=0 lsp 603,":s/20,20,0;#bbbbbbDemon Skull Beheading - 3",70,472

if %skill01>11 && %mp>2 lsp 603,":s/20,20,0;#FFFFFF#FF4444Earth Rumbling Decap. - 3",70,472:spbtn 603,27
if %skill01>11 && %mp<3 lsp 603,":s/20,20,0;#bbbbbbEarth Rumbling Decap. - 3",70,472

if %skill01>1 && %skill01<6 && %mp>1 lsp 604,":s/20,20,0;#FFFFFF#FF4444Flail Wildly     - 2",70,499:spbtn 604,22
if %skill01>1 && %skill01<6 && %mp<2 lsp 604,":s/20,20,0;#bbbbbbFlail Wildly      - 2",70,499

if %skill01>5 && %mp>3 lsp 604,":s/20,20,0;#FFFFFF#FF4444Death Sword Chaos Star - 4",70,499:spbtn 604,22
if %skill01>5 && %mp<4 lsp 604,":s/20,20,0;#bbbbbbDeath Sword Chaos Star - 4",70,499

if %skill01>15 && %mp>3 lsp 604,":s/20,20,0;#FFFFFF#FF4444Vaporizing Rebel Sword - 4",70,499:spbtn 604,30
if %skill01>15 && %mp<4 lsp 604,":s/20,20,0;#bbbbbbVaporizing Rebel Sword - 4",70,499

if %skill01>18 && %mp>2 && %fire<>4 lsp 605,":s/20,20,0;#FFFFFF#FF4444Meditate - 3",370,418:spbtn 605,24
if %skill01>26 && %guard_on=1 && %fire!=3 && %mp>2 lsp 605,":s/20,20,0;#FFE600#FF4444Meditate - 3",370,418:spbtn 605,24
if %skill01>18 && %mp<3 lsp 605,":s/20,20,0;#bbbbbbMeditate - 3",370,418
if %skill01>18 && %fire=4 lsp 605,":s/20,20,0;#bbbbbbMeditate - 3",370,418

if %mylife>1 && %skill01<26 lsp 606,":s/20,20,0;#FFFFFF#FF4444Edging - 0",370,445:spbtn 606,35
if %mylife<2 && %skill01<26 lsp 606,":s/20,20,0;#bbbbbbEdging - 0",370,445

if %aqua=2 skip 4
if %skill01>25 && %fire!=3 lsp 606,":s/20,20,0;#FFFFFF#FF4444Charge - 0",370,445:spbtn 606,46
if %skill01>26 && %guard_on=1 && %fire!=3 lsp 606,":s/20,20,0;#FFE600#FF4444Charge - 0",370,445:spbtn 606,46
if %skill01>25 && %fire>0 && %fire<4 lsp 606,":s/20,20,0;#bbbbbbCharge - 0",370,445
if %skill01>25 && %aqua=2 lsp 606,":s/20,20,0;#bbbbbbCharge - 0",370,445


if %skill01>18 && %mp>1 && %aqua<1 lsp 608,":s/20,20,0;#FFFFFF#FF4444Serene Mind - 2",370,499:spbtn 608,36
if %skill01>18 && %aqua>0 && %mp>1 lsp 608,":s/20,20,0;#00BFFF#FF4444Serene Mind - 2",370,499:spbtn 608,36
if %skill01>18 && %mp<2 lsp 608,":s/20,20,0;#bbbbbbSerene Mind - 2",370,499

if %skill01>14 && %sylph_get>0 && %gnome_get>0 && %undine_get>0 && %salamander_get>0 && %mp>0 lsp 608,":s/20,20,0;#FFFFFF#FF4444Quadruple Giga - 1",370,499:spbtn 608,29
if %skill01>14 && %sylph_get>0 && %gnome_get>0 && %undine_get>0 && %salamander_get>0 && %mp<1 lsp 608,":s/20,20,0;#bbbbbbQuadruple Giga - 1",370,499

if %skill01>25 | %sylph_get>0 | %salamander_get>0 | %undine_get>0 | %gnome_get>0 | %skillset=3 lsp 609,":c/2,0,3;system\menu_prev.jpg",32,515:spbtn 609,40
if %skill01>25 | %sylph_get>0 | %salamander_get>0 | %undine_get>0 | %gnome_get>0 | %skillset=3 lsp 610,":c/2,0,3;system\menu_next.jpg",748,515:spbtn 610,41
goto *cmd_skill_ng3



*cmd_skill_ng2

if %sylph_get<1 && %salamander_get<1 && %undine_get<1 && %gnome_get<1 && %skillset=1 goto *cmd_skill_ng
if %sylph_get<1 && %salamander_get<1 && %undine_get<1 && %gnome_get<1 && %skillset=2 goto *cmd_skill_ngx1
if %sylph_get<1 && %salamander_get<1 && %undine_get<1 && %gnome_get<1 && %skillset=3 && %cmd=40 goto *cmd_skill_ngx1
if %sylph_get<1 && %salamander_get<1 && %undine_get<1 && %gnome_get<1 && %skillset=3 && %cmd=41 goto *cmd_skill_ng
saveoff
textoff
cspl 3,7:cspl 600,610
btndef clear
if %skillset!=3 mov %skill_page,2
if %skillset=3 mov %skill_page,3
mov %sinkoumode,0 : skipoff : autoclick 0
gosub *setwindow_04
if %sylph_get>0 && %skill02<2 lsp 601,":s/20,20,0;#bbbbbbSylph - 2",70,418
if %sylph_get>0 && %skill02<2 && %mp>1 && %wind=0 && %aqua<2 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 2",70,418:spbtn 601,31

if %sylph_get>0 && %skill02=2 lsp 601,":s/20,20,0;#bbbbbbSylph - 2",70,418
if %sylph_get>0 && %skill02=2 && %mp>1 && %wind=0 && %aqua<2 && %fire=0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 2",70,418:spbtn 601,31

if %sylph_get>0 && %skill02>2 lsp 601,":s/20,20,0;#bbbbbbSylph - 1",70,418
if %sylph_get>0 && %skill02>2 && %mp>0 && %wind=0 && %aqua=0 && %fire=0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 1",70,418:spbtn 601,31
if %sylph_get>0 && %skill02>2 && %mp>0 && %wind=0 && %aqua=3 && %fire=0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 1",70,418:spbtn 601,31
if %sylph_get>0 && %skill02>2 && %mp>0 && %wind=0 && %aqua=0 && %fire=3 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 1",70,418:spbtn 601,31
if %sylph_get>0 && %skill02>2 && %mp>0 && %wind=0 && %aqua=3 && %fire=3 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 1",70,418:spbtn 601,31


if %sylph_get>0 && %skill02>2 && %wind>0 && %aqua=0 && %fire=0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph",70,418:spbtn 601,48
if %sylph_get>0 && %skill02>2 && %wind>0 && %aqua=3 && %fire=0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph",70,418:spbtn 601,48
if %sylph_get>0 && %skill02>2 && %wind>0 && %aqua=0 && %fire=3 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph",70,418:spbtn 601,48
if %sylph_get>0 && %skill02>2 && %wind>0 && %aqua=3 && %fire=3 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph",70,418:spbtn 601,48


if %gnome_get>0 && %skill03<2 lsp 602,":s/20,20,0;#bbbbbbGnome - 2",70,445
if %gnome_get>0 && %skill03<2 && %mp>1 && %earth=0 && %aqua<2 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 2",70,445:spbtn 602,32

if %gnome_get>0 && %skill03=2 lsp 602,":s/20,20,0;#bbbbbbGnome - 2",70,445
if %gnome_get>0 && %skill03=2 && %mp>1 && %earth=0 && %aqua<2 && %fire=0 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 2",70,445:spbtn 602,32

if %gnome_get>0 && %skill03=3 lsp 602,":s/20,20,0;#bbbbbbGnome - 1",70,445
if %gnome_get>0 && %skill03=3 && %mp>0 && %earth=0 && %aqua=0 && %fire=0 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 1",70,445:spbtn 602,32
if %gnome_get>0 && %skill03=3 && %mp>0 && %earth=0 && %aqua=3 && %fire=0 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 1",70,445:spbtn 602,32
if %gnome_get>0 && %skill03=3 && %mp>0 && %earth=0 && %aqua=0 && %fire=3 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 1",70,445:spbtn 602,32
if %gnome_get>0 && %skill03=3 && %mp>0 && %earth=0 && %aqua=3 && %fire=3 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 1",70,445:spbtn 602,32

if %gnome_get>0 && %skill03=3 && %earth>0 && %aqua=0 && %fire=0 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome",70,445:spbtn 602,49
if %gnome_get>0 && %skill03=3 && %earth>0 && %aqua=3 && %fire=0 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome",70,445:spbtn 602,49
if %gnome_get>0 && %skill03=3 && %earth>0 && %aqua=0 && %fire=3 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome",70,445:spbtn 602,49
if %gnome_get>0 && %skill03=3 && %earth>0 && %aqua=3 && %fire=3 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome",70,445:spbtn 602,49

if %undine_get>0 && %skill04>1 lsp 603,":s/20,20,0;#bbbbbbUndine - 2",70,472
if %undine_get>0 && %skill04>1 && %mp>1 && %aqua=0 lsp 603,":s/20,20,0;#FFFFFF#FF4444Undine",70,472:spbtn 603,47

if %salamander_get>0 && %skill05<2 lsp 604,":s/20,20,0;#bbbbbbSalamander - 2",70,499
if %salamander_get>0 && %skill05<2 && %mp>1 && %fire=0 && %aqua<2 lsp 604,":s/20,20,0;#FFFFFF#FF4444Salamander - 2",70,499:spbtn 604,34

if %salamander_get>0 && %skill05=2 lsp 604,":s/20,20,0;#bbbbbbSalamander - 2",70,499
if %salamander_get>0 && %skill05=2 && %mp>1 && %fire=0 && %aqua<2 lsp 604,":s/20,20,0;#FFFFFF#FF4444Salamander - 2",70,499:spbtn 604,34

if %salamander_get>0 && %skill05=3 lsp 604,":s/20,20,0;#bbbbbbSalamander - 4",70,499
if %salamander_get>0 && %skill05=3 && %mp>3 && %fire=0 && %aqua!=2 lsp 604,":s/20,20,0;#FFFFFF#FF4444Salamander - 4",70,499:spbtn 604,34
if %salamander_get>0 && %skill05=3 && %fire>0 && %aqua!=2 lsp 604,":s/20,20,0;#FFFFFF#FF4444Salamander",70,499:spbtn 604,50

if %sylph_get>0 && %salamander_get>0 && %undine_get>0 && %gnome_get>0 && %mp>5 && %aqua=2 lsp 605,":s/20,20,0;#bbbbbbSummon All - 6",370,418
if %sylph_get>0 && %salamander_get>0 && %undine_get>0 && %gnome_get>0 && %mp>5 lsp 605,":s/20,20,0;#FFFFFF#FF4444Summon All - 6",370,418:spbtn 605,43
if %sylph_get>0 && %salamander_get>0 && %undine_get>0 && %gnome_get>0 && %mp<6 lsp 605,":s/20,20,0;#bbbbbbSummon All - 6",370,418

if %mylife>1 && %skill01>25 lsp 606,":s/20,20,0;#FFFFFF#FF4444Edging - 0",370,499:spbtn 606,35
if %mylife<2 && %skill01>25 lsp 606,":s/20,20,0;#bbbbbbEdging - 0",370,499

lsp 609,":c/2,0,3;system\menu_prev.jpg",32,515:spbtn 609,40
lsp 610,":c/2,0,3;system\menu_next.jpg",748,515:spbtn 610,41
goto *cmd_skill_ng3


*cmd_skill_sylph

saveoff
textoff
cspl 3,7:cspl 600,610:print 10,1
btndef clear
if %skillset!=3 mov %skill_page,1
if %skillset=3 mov %skill_page,2
mov %sinkoumode,0 : skipoff : autoclick 0
gosub *setwindow_04

if %sylph_get>0 && %mp<1 lsp 601,":s/20,20,0;#bbbbbbResummon - 1",70,418
if %sylph_get>0 && %mp>0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Resummon - 1",70,418:spbtn 601,31

if %sylph_get>0 && %skill_whitewind>0 lsp 603,":s/20,20,0;#bbbbbbWhite Wind - 2",70,445
if %sylph_get>0 && %wind>0 && %skill_whitewind>0 && %mp>1 lsp 603,":s/20,20,0;#FFFFFF#FF4444White Wind - 2",70,445:spbtn 603,51

if %sylph_get>0 && %skill_chipapa>0 lsp 604,":s/20,20,0;#bbbbbbChi Pa Pa - 1",70,472
if %sylph_get>0 && %wind>0 && %mp>0 && %skill_chipapa>0 lsp 604,":s/20,20,0;#FFFFFF#FF4444Chi Pa Pa - 1",70,472:spbtn 604,52

if %sylph_get>0 && %skill_earthcancel>0 lsp 605,":s/20,20,0;#bbbbbbEarth Cancel - 6",70,499
if %sylph_get>0 && %mp>5 && %wind>0 && %skill_earthcancel>0 lsp 605,":s/20,20,0;#FFFFFF#FF4444Earth Cancel - 6",70,499:spbtn 605,53
goto *cmd_skill_ng3

*cmd_skill_gnome

saveoff
textoff
cspl 3,7:cspl 600,610
btndef clear
if %skillset!=3 mov %skill_page,1
if %skillset=3 mov %skill_page,2
mov %sinkoumode,0 : skipoff : autoclick 0
gosub *setwindow_04

if %gnome_get>0 && %mp<1 lsp 601,":s/20,20,0;#bbbbbbResummon - 1",70,418
if %gnome_get>0 && %mp>0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Resummon - 1",70,418:spbtn 601,32

if %gnome_get>0 && %skill_brace>0 lsp 603,":s/20,20,0;#bbbbbbBrace - 4",70,445
if %gnome_get>0 && %earth>0 && %skill_brace>0 %mp>1 lsp 603,":s/20,20,0;#FFFFFF#FF4444Brace - 4",70,445:spbtn 603,56

if %gnome_get>0 && %skill_strength>0 lsp 604,":s/20,20,0;#bbbbbbStrength - 3",70,472
if %gnome_get>0 && %earth>0 && %mp>2 && %skill_strength>0 lsp 604,":s/20,20,0;#FFFFFF#FF4444Strength - 3",70,472:spbtn 604,57

if %gnome_get>0 && %skill_windcancel>0 lsp 605,":s/20,20,0;#bbbbbbWind Cancel - 6",70,499
if %gnome_get>0 && %mp>5 && %earth>0 && %skill_windcancel>0 lsp 605,":s/20,20,0;#FFFFFF#FF4444Wind Cancel - 6",70,499:spbtn 605,58
goto *cmd_skill_ng3

*cmd_skill_undine

saveoff
textoff
cspl 3,7:cspl 600,610
btndef clear
if %skillset!=3 mov %skill_page,1
if %skillset=3 mov %skill_page,2
mov %sinkoumode,0 : skipoff : autoclick 0
gosub *setwindow_04

if %undine_get>0 && %mp>1 lsp 601,":s/20,20,0;#FFFFFF#FF4444Level 2 - ALL",70,418:spbtn 601,33
if %undine_get>0 && %mp<2 lsp 601,":s/20,20,0;#bbbbbbLevel 2 - ALL",70,418

if %undine_get>0 && %mp>1 lsp 603,":s/20,20,0;#FFFFFF#FF4444Level 3 - 2",370,418:spbtn 603,36
if %undine_get>0 && %mp<2 lsp 603,":s/20,20,0;#bbbbbbLevel 3 - 2",370,418
if %undine_get>0 && %aqua=2 lsp 603,":s/20,20,0;#FFFFFF#FF4444Level 3 - 0",370,418:spbtn 603,36

if %undine_get>0 && %skill_refresh>0 lsp 604,":s/20,20,0;#bbbbbbRefresh - 2",70,445
if %undine_get>0 && %aqua>0 && %mp>1 && %skill_refresh>0 lsp 604,":s/20,20,0;#FFFFFF#FF4444Refresh - 2",70,445:spbtn 604,61

if %undine_get>0 && %skill_unpentagram>0 lsp 605,":s/20,20,0;#bbbbbbAqua Pentagram - 3",70,472
if %undine_get>0 && %mp>2 && %aqua>0 && %skill_unpentagram>0 lsp 605,":s/20,20,0;#FFFFFF#FF4444Aqua Pentagram - 3",70,472:spbtn 605,62

if %undine_get>0 && %skill_firecancel>0 lsp 606,":s/20,20,0;#bbbbbbFire Canel - 6",370,418
if %undine_get>0 && %mp>5 && %aqua>0 && %skill_firecancel>0 lsp 606,":s/20,20,0;#FFFFFF#FF4444Fire Cancel - 6",370,418:spbtn 606,63
goto *cmd_skill_ng3

*cmd_skill_salamander

saveoff
textoff
cspl 3,7:cspl 600,610
btndef clear
if %skillset!=3 mov %skill_page,1
if %skillset=3 mov %skill_page,2
mov %sinkoumode,0 : skipoff : autoclick 0
gosub *setwindow_04

if %salamander_get>0 lsp 601,":s/20,20,0;#bbbbbbResummon - 4",70,418

if %salamander_get>0 && %skill_enrage>0 lsp 604,":s/20,20,0;#bbbbbbEnrage - 6",70,445
if %salamander_get>0 && %fire>5 && %mp>5 && %skill_enrage>0 lsp 604,":s/20,20,0;#FFFFFF#FF4444Enrage - 6",70,445:spbtn 604,66

if %salamander_get>0 && %skill_burn>0 lsp 605,":s/20,20,0;#bbbbbbBurn! - 4",70,472
if %salamander_get>0 && %mp>3 && %fire>0 && %skill_burn>0 lsp 605,":s/20,20,0;#FFFFFF#FF4444Burn! - 4",70,472:spbtn 605,67

if %salamander_get>0 && %skill_firecancel>0 lsp 606,":s/20,20,0;#bbbbbbFire Canel - 6",370,418
if %salamander_get>0 && %mp>5 && %fire>0 && %skill_watercancel>0 lsp 606,":s/20,20,0;#FFFFFF#FF4444Water Cancel - 6",370,418:spbtn 606,68
goto *cmd_skill_ng3


*cmd_skill_ngx1

saveoff
textoff
cspl 3,7:cspl 600,610
btndef clear
mov %previous_menu,2
if %skillset!=3 mov %skill_page,1
if %skillset=3 mov %skill_page,2
mov %sinkoumode,0 : skipoff : autoclick 0
gosub *setwindow_04

if %skill01>18 && %mp>1 lsp 601,":s/20,20,0;#FFFFFF#FF4444Flash Kill - 2",70,418:spbtn 601,37
if %skill01>18 && %mp<2 lsp 601,":s/20,20,0;#bbbbbbFlash Kill - 2",70,418

if %skill01>18 && %mp>3 lsp 603,":s/20,20,0;#FFFFFF#FF4444Heavenly Demon Revival - 4",70,445:spbtn 603,39
if %skill01>18 && %mp<4 lsp 603,":s/20,20,0;#bbbbbbHeavenly Demon Revival - 4",70,445

if %skill01>18 && %mp>5 lsp 602,":s/20,20,0;#FFFFFF#FF4444Ninefold Rakshasa - 6",70,472:spbtn 602,38
if %skill01>18 && %mp<6 lsp 602,":s/20,20,0;#bbbbbbNinefold Rakshasa - 6",70,472

if %skill01>18 && %mp>7 && %daten<1 lsp 604,":s/20,20,0;#FFFFFF#FF4444Daystar - 8",70,499:spbtn 604,44
if %skill01>18 && %mp<8 && %daten<1 lsp 604,":s/20,20,0;#bbbbbbDaystar - 8",70,499
if %skill01>18 && %daten>0 lsp 604,":s/20,20,0;#FFCC11Daystar - 8",70,499

if %skill01>18 && %mp>2 && %fire<>4 lsp 605,":s/20,20,0;#FFFFFF#FF4444Meditate - 3",370,418:spbtn 605,24
if %skill01>26 && %guard_on=1 && %fire!=3 && %mp>2 lsp 605,":s/20,20,0;#FFE600#FF4444Meditate - 3",370,418:spbtn 605,24
if %skill01>18 && %mp<3 lsp 605,":s/20,20,0;#bbbbbbMeditate - 3",370,418
if %skill01>18 && %fire=4 lsp 605,":s/20,20,0;#bbbbbbMeditate - 3",370,418

if %mylife>1 && %skill01<26 lsp 606,":s/20,20,0;#FFFFFF#FF4444Edging - 0",370,445:spbtn 606,35
if %mylife<2 && %skill01<26 lsp 606,":s/20,20,0;#bbbbbbEdging - 0",370,445

if %aqua=2 skip 4
if %skill01>25 && %fire!=3 lsp 606,":s/20,20,0;#FFFFFF#FF4444Charge - 0",370,445:spbtn 606,46
if %skill01>26 && %guard_on=1 && %fire!=3 lsp 606,":s/20,20,0;#FFE600#FF4444Charge - 0",370,445:spbtn 606,46
if %skill01>25 && %fire>0 && %fire<4 lsp 606,":s/20,20,0;#bbbbbbCharge - 0",370,445
if %skill01>25 && %aqua=2 lsp 606,":s/20,20,0;#bbbbbbCharge - 0",370,445


lsp 607,":s/20,20,0;#bbbbbbFallen Angel Dance - 2",370,472
if %skill01>18 && %mp>1 && %wind=0 && %aqua!=2 lsp 607,":s/20,20,0;#FFFFFF#FF4444Fallen Angel Dance - 2",370,472:spbtn 607,45
if %skill01>18 && %wind>0 && %mp>1 && %aqua!=2 lsp 607,":s/20,20,0;#00C957#FF4444Fallen Angel Dance - 2",370,472:spbtn 607,45

if %undine_get>0 skip 4
lsp 608,":s/20,20,0;#bbbbbbSerene Mind - 2",370,499
if %skill01>18 && %mp>1 && %aqua<1 && %aqua!=2 lsp 608,":s/20,20,0;#FFFFFF#FF4444Serene Mind - 2",370,499:spbtn 608,36
if %skill01>18 && %aqua>0 && %mp>1 lsp 608,":s/20,20,0;#00BFFF#FF4444Serene Mind - 2",370,499:spbtn 608,36

if %undine_get<1 skip 4
lsp 608,":s/20,20,0;#bbbbbbSerene Demon Sword - 2",370,499
if %skill01>18 && %mp>1 && %aqua<1 && %aqua!=2 lsp 608,":s/20,20,0;#FFFFFF#FF4444Serene Demon Sword - 2",370,499:spbtn 608,28
if %skill01>18 && %aqua>0 && %mp>1 lsp 608,":s/20,20,0;#00BFFF#FF4444Serene Demon Sword - 2",370,499:spbtn 608,28

if %skill01>25 | %sylph_get>0 | %salamander_get>0 | %undine_get>0 | %gnome_get>0 | %skillset=3 lsp 609,":c/2,0,3;system\menu_prev.jpg",32,515:spbtn 609,40
if %skill01>25 | %sylph_get>0 | %salamander_get>0 | %undine_get>0 | %gnome_get>0 | %skillset=3 lsp 610,":c/2,0,3;system\menu_next.jpg",748,515:spbtn 610,41
goto *cmd_skill_ng3



*cmd_skill_ngx2

if %skillset!=2 skip 2
if %sylph_get<1 && %salamander_get<1 && %undine_get<1 && %gnome_get<1 && %skill01<26 goto *cmd_skill_ngx1

if %skillset!=1 skip 2
if %sylph_get<1 && %salamander_get<1 && %undine_get<1 && %gnome_get<1 && %skill01<26 goto *cmd_skill_ng

saveoff
textoff
cspl 3,7:cspl 600,610
btndef clear
mov %skill_page,2
mov %sinkoumode,0 : skipoff : autoclick 0
gosub *setwindow_04
if %sylph_get>0 && %skill02<2 lsp 601,":s/20,20,0;#bbbbbbSylph - 2",70,418
if %sylph_get>0 && %skill02<2 && %mp>1 && %wind=0 && %aqua<2 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 2",70,418:spbtn 601,31

if %sylph_get>0 && %skill02=2 lsp 601,":s/20,20,0;#bbbbbbSylph - 2",70,418
if %sylph_get>0 && %skill02=2 && %mp>1 && %wind=0 && %aqua<2 && %fire=0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 2",70,418:spbtn 601,31

if %sylph_get>0 && %skill02=3 lsp 601,":s/20,20,0;#bbbbbbSylph - 1",70,418
if %sylph_get>0 && %skill02=3 && %mp>0 && %wind=0 && %aqua=0 && %fire=0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 1",70,418:spbtn 601,31
if %sylph_get>0 && %skill02=3 && %mp>0 && %wind=0 && %aqua>2 && %fire=0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 1",70,418:spbtn 601,31
if %sylph_get>0 && %skill02=3 && %mp>0 && %wind=0 && %aqua=0 && %fire=3 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 1",70,418:spbtn 601,31
if %sylph_get>0 && %skill02=3 && %mp>0 && %wind=0 && %aqua>2 && %fire=3 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 1",70,418:spbtn 601,31
if %sylph_get>0 && %skill02=3 && %mp>0 && %wind=0 && %aqua=2 && %skill04>5 && %fire=3 lsp 601,":s/20,20,0;#FFFFFF#FF4444Sylph - 1",70,418:spbtn 601,31
; if %sylph_get>0 && %skill02=3 && %mp>0 && %wind>0 && %aqua!=2 lsp 601,":s/20,20,0;#00C957#FF4444Sylph - 1",70,418:spbtn 601,31

if %sylph_get>0 && %skill02>2 && %wind>0 && %aqua=0 && %fire=0 lsp 601,":s/20,20,0;#00C957#FF4444Sylph",70,418:spbtn 601,48
if %sylph_get>0 && %skill02>2 && %wind>0 && %aqua=3 && %fire=0 lsp 601,":s/20,20,0;#00C957#FF4444Sylph",70,418:spbtn 601,48
if %sylph_get>0 && %skill02>2 && %wind>0 && %aqua=0 && %fire=3 lsp 601,":s/20,20,0;#00C957#FF4444Sylph",70,418:spbtn 601,48
if %sylph_get>0 && %skill02>2 && %wind>0 && %aqua=3 && %fire=3 lsp 601,":s/20,20,0;#00C957#FF4444Sylph",70,418:spbtn 601,48
if %sylph_get>0 && %skill02>2 && %wind>0 && %aqua!=2 && %fire!=1 && %fire!=2 lsp 601,":s/20,20,0;#00C957#FF4444Sylph",70,418:spbtn 601,48

if %gnome_get>0 && %skill03<2 lsp 602,":s/20,20,0;#bbbbbbGnome - 2",70,445
if %gnome_get>0 && %skill03<2 && %mp>1 && %earth=0 && %aqua<2 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 2",70,445:spbtn 602,32

if %gnome_get>0 && %skill03=2 lsp 602,":s/20,20,0;#bbbbbbGnome - 2",70,445
if %gnome_get>0 && %skill03=2 && %mp>1 && %earth=0 && %aqua<2 && %fire=0 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 2",70,445:spbtn 602,32

if %gnome_get>0 && %skill03=3 lsp 602,":s/20,20,0;#bbbbbbGnome - 1",70,445
if %gnome_get>0 && %skill03=3 && %mp>0 && %earth=0 && %aqua=0 && %fire=0 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 1",70,445:spbtn 602,32
if %gnome_get>0 && %skill03=3 && %mp>0 && %earth=0 && %aqua>2 && %fire=0 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 1",70,445:spbtn 602,32
if %gnome_get>0 && %skill03=3 && %mp>0 && %earth=0 && %aqua=0 && %fire=3 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 1",70,445:spbtn 602,32
if %gnome_get>0 && %skill03=3 && %mp>0 && %earth=0 && %aqua>2 && %fire=3 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 1",70,445:spbtn 602,32
if %gnome_get>0 && %skill03=3 && %mp>0 && %earth>0 && %aqua!=2 lsp 602,":s/20,20,0;#F4A460#FF4444Gnome - 1",70,445:spbtn 602,32

if %gnome_get>0 && %skill03=3 && %earth>0 && %aqua=0 && %fire=0 lsp 602,":s/20,20,0;#F4A460#FF4444Gnome",70,445:spbtn 602,49
if %gnome_get>0 && %skill03=3 && %earth>0 && %aqua=3 && %fire=0 lsp 602,":s/20,20,0;#F4A460#FF4444Gnome",70,445:spbtn 602,49
if %gnome_get>0 && %skill03=3 && %earth>0 && %aqua=0 && %fire=3 lsp 602,":s/20,20,0;#F4A460#FF4444Gnome",70,445:spbtn 602,49
if %gnome_get>0 && %skill03=3 && %earth>0 && %aqua=3 && %fire=3 lsp 602,":s/20,20,0;#F4A460#FF4444Gnome",70,445:spbtn 602,49
if %gnome_get>0 && %skill03=3 && %earth>0 && %aqua!=2 && %fire!=1 && %fire!=2 lsp 602,":s/20,20,0;#F4A460#FF4444Gnome",70,445:spbtn 602,49

if %gnome_get>0 && %skill03=3 && %mp>0 && %earth=0 && %aqua=2 && %skill04>5 && %fire=3 lsp 602,":s/20,20,0;#FFFFFF#FF4444Gnome - 1",70,445:spbtn 602,32

if %undine_get>0 && %skill04>0 lsp 603,":s/20,20,0;#bbbbbbUndine ",70,472
if %undine_get>0 && %skill04>0 && %mp>1 && %aqua=0 lsp 603,":s/20,20,0;#FFFFFF#FF4444Undine ",70,472:spbtn 603,47
if %undine_get>0 && %skill04>0 && %mp>1 && %aqua>0 lsp 603,":s/20,20,0;#00BFFF#FF4444Undine ",70,472:spbtn 603,47

if %salamander_get>0 && %skill05<2 lsp 604,":s/20,20,0;#bbbbbbSalamander - 2",70,499
if %salamander_get>0 && %skill05<2 && %mp>1 && %fire=0 && %aqua<2 lsp 604,":s/20,20,0;#FFFFFF#FF4444Salamander - 2",70,499:spbtn 604,34

if %salamander_get>0 && %skill05=2 lsp 604,":s/20,20,0;#bbbbbbSalamander - 2",70,499
if %salamander_get>0 && %skill05=2 && %mp>1 && %fire=0 && %aqua<2 lsp 604,":s/20,20,0;#FFFFFF#FF4444Salamander - 2",70,499:spbtn 604,34

if %salamander_get>0 && %skill05=3 lsp 604,":s/20,20,0;#bbbbbbSalamander - 4",70,499
if %salamander_get>0 && %skill05=3 && %mp>3 && %fire=0 && %aqua<2 lsp 604,":s/20,20,0;#FFFFFF#FF4444Salamander - 4",70,499:spbtn 604,34
if %salamander_get>0 && %skill05=3 && %mp>3 && %fire=0 && %aqua>2 lsp 604,":s/20,20,0;#FFFFFF#FF4444Salamander - 4",70,499:spbtn 604,34
if %salamander_get>0 && %skill05=3 && %fire>0 && %aqua!=2 lsp 604,":s/20,20,0;#FF6347#FF4444Salamander",70,499:spbtn 604,50

if %sylph_get>0 && %salamander_get>0 && %undine_get>0 && %gnome_get>0 lsp 607,":s/20,20,0;#bbbbbbElemental Spica - 10",370,445
if %sylph_get>0 && %salamander_get>0 && %undine_get>0 && %gnome_get>0 && %mp>9 && %fire>0 && %aqua>0 && %wind>0 && %earth>0 lsp 607,":s/20,20,0;#FFFFFF#FF4444Elemental Spica - 10",370,445:spbtn 607,42

if %sylph_get>0 && %salamander_get>0 && %undine_get>0 && %gnome_get>0 && %mp>5 lsp 605,":s/20,20,0;#FFFFFF#FF4444Summon All - 6",370,418:spbtn 605,43
if %sylph_get>0 && %salamander_get>0 && %undine_get>0 && %gnome_get>0 && %mp<6 lsp 605,":s/20,20,0;#bbbbbbSummon All - 6",370,418

if %mylife>1 && %skill01>25 lsp 606,":s/20,20,0;#FFFFFF#FF4444Edging - 0",370,499:spbtn 606,35
if %mylife<2 && %skill01>25 lsp 606,":s/20,20,0;#bbbbbbEdging - 0",370,499

lsp 609,":c/2,0,3;system\menu_prev.jpg",32,515:spbtn 609,40
lsp 610,":c/2,0,3;system\menu_next.jpg",748,515:spbtn 610,41
goto *cmd_skill_ng3


*cmd_skill_ng3

btnwait2 %cmd1
if %zukanon>0 && %cmd1=4 textoff:return *zukan_commonkaisou0
if %mon_labo_on=1 && %cmd1=4 textoff: screen_clear: return *monster_labo
if %cmd1=3 && %skill_page=1 mov %saveorload,0:gosub *saveload:goto *cmd_skill_ng
if %cmd1=3 && %skill_page=2 mov %saveorload,0:gosub *saveload:goto *cmd_skill_ng2
if %cmd1=4 && %skill_page=1 mov %saveorload,1:gosub *saveload:goto *cmd_skill_ng
if %cmd1=4 && %skill_page=2 mov %saveorload,1:gosub *saveload:goto *cmd_skill_ng2
if %cmd1=7 && %skill_page=1 gosub *window_delete2:goto *cmd_skill_ng
if %cmd1=7 && %skill_page=2 gosub *window_delete2:goto *cmd_skill_ng2
if %cmd1=0 goto *cmd_skill_ng3
if %cmd1<=-2 goto *cmd_skill_ng3
if %cmd1=40 && %skillset=1 && %skill_page=1 goto *cmd_skill_ngx2
if %cmd1=40 && %skillset=1 && %skill_page=2 goto *cmd_skill_ng
if %cmd1=40 && %skillset=2 && %skill_page=1 goto *cmd_skill_ngx2
if %cmd1=40 && %skillset=2 && %skill_page=2 goto *cmd_skill_ngx1
if %cmd1=40 && %skillset=3 && %skill_page=1 goto *cmd_skill_ngx1
if %cmd1=40 && %skillset=3 && %skill_page=2 goto *cmd_skill_ngx2
if %cmd1=40 && %skillset=3 && %skill_page=3 goto *cmd_skill_ng
if %cmd1=41 && %skillset=1 && %skill_page=1 goto *cmd_skill_ngx2
if %cmd1=41 && %skillset=1 && %skill_page=2 goto *cmd_skill_ng
if %cmd1=41 && %skillset=2 && %skill_page=1 goto *cmd_skill_ngx2
if %cmd1=41 && %skillset=2 && %skill_page=2 goto *cmd_skill_ngx1
if %cmd1=41 && %skillset=3 && %skill_page=1 goto *cmd_skill_ngx2
if %cmd1=41 && %skillset=3 && %skill_page=2 goto *cmd_skill_ng
if %cmd1=41 && %skillset=3 && %skill_page=3 goto *cmd_skill_ngx1
if %cmd1=47 goto *cmd_skill_undine
if %cmd1=48 goto *cmd_skill_sylph
if %cmd1=49 goto *cmd_skill_gnome
if %cmd1=50 goto *cmd_skill_salamander
cspl 3,7
cspl 601,610
gosub *setwindow_02p
texton
btndef clear
return



*common_skill;

if %ng>0 gosub *cmd_skill_ng
if %ng<1 gosub *cmd_skill
if %cmd1=21 goto *skill1; 									//Demon Decapitation
if %cmd1=22 && %skill01>1 && %skill01<6 goto *skill2;		//Flail Wildly
if %cmd1=22 && %skill01>5 goto *skill6;						//Death Sword Chaos Star
if %cmd1=23 goto *skill3;									//Thunder Thrust
if %cmd1=24 goto *skill4;									//Meditate
if %cmd1=25 goto *skill5;									//Demon Skull Beheading
if %cmd1=26 goto *skill11;									//Lightning Sword Flash
if %cmd1=27 goto *skill12;									//Earth Rumbling Decapitation
if %cmd1=28 goto *skill13;									//Serene Demon Sword
if %cmd1=29 goto *skill15;									//Quad Giga
if %cmd1=30 goto *skill16;									//Vaporizing Rebellion Sword
if %cmd1=31 && %skill02<2 goto *skill7;						//Sylph 1
if %cmd1=31 && %skill02=2 goto *skill7b;					//Sylph 2	
if %cmd1=31 && %skill02=3 goto *skill7c;					//Sylph 3
if %cmd1=31 && %skill02=4 goto *skill7d;					//Sylph 4 (Fallen Angel Dance)
if %cmd1=31 && %skill02=5 goto *skill7e;					//Sylph 5 (Fallen Angel Dance * Gale)
if %cmd1=32 && %skill03<2 goto *skill8;					//Gnome 1
if %cmd1=32 && %skill03=2 goto *skill8b;					//Gnome 2
if %cmd1=32 && %skill03=3 goto *skill8c;					//Gnome 3
if %cmd1=32 && %skill03=4 && %ng>0 goto *skill8_ng4;		//Gnome 4 NG+
if %cmd1=32 && %skill03=4 goto *skill8b;					//Gnome 2 again
if %cmd1=32 && %skill03=5 goto *skill8c;					//Gnome 3 again
if %cmd1=33 && %ng>0 && %undine_get>0 goto *skill10b;		//NG+ Undine 2
if %cmd1=33 && %skill04<2 goto *skill10;					//Shittiest Undine
if %cmd1=33 && %skill04=2 goto *skill10b;					//Good Undine
if %cmd1=33 && %skill04=3 goto *skill10c;					//Shitty Undine
if %cmd1=33 && %skill04=4 goto *skill18;					//Shittier Undine
if %cmd1=33 && %skill04=5 goto *skill10c;					//Shitty Undine again
if %cmd1=34 && %skill05<2 goto *skill14;					//Salamander 1
if %cmd1=34 && %skill05=2 goto *skill14b;					//Salamander 2
if %cmd1=34 && %skill05=3 goto *skill14c;					//Salamander 3
if %cmd1=34 && %skill05=4 goto *skill14b;					//Salamander 2 again
if %cmd1=34 && %skill05=5 goto *skill14c;					//Salamander 3 again
if %cmd1=35 goto *skill17;									//Edging
if %cmd1=36 goto *skill18;									//Shittier Undine
if %cmd1=37 goto *skill19;									//Flash Kill
if %cmd1=38 goto *skill20;									//Ninefold Rakshasa (Why is this before Demon Revival?)
if %cmd1=39 goto *skill21;									//Heavenly Demon Revival
if %cmd1=44 goto *skill22;									//Daystar
if %cmd1=45 && %sylph_get<1 goto *skill23;					//Fallen Angel Dance
if %cmd1=45 && %sylph_get>0 goto *skill7d;					//Fallen Angel Dance
if %cmd1=42 goto *skill24;									//Elemental Spica
if %cmd1=43 goto *skill25;									//Quad Spirit Summon
if %cmd1=46 goto *gt2_spcharge;								//Charge

if %cmd1=51 goto *syskill1;									//Refresh
if %cmd1=52 goto *syskill2;									//Refresh
if %cmd1=53 goto *syskill3;									//Refresh
if %cmd1=54 goto *syskill4;									//Refresh
if %cmd1=55 goto *syskill5;									//Refresh
	
if %cmd1=56 goto *gnskill1;									//Refresh
if %cmd1=57 goto *gnskill2;									//Refresh
if %cmd1=58 goto *gnskill3;									//Refresh
if %cmd1=59 goto *gnskill4;									//Refresh
if %cmd1=60 goto *gnskill5;									//Refresh

if %cmd1=61 goto *unskill1;									//Refresh
if %cmd1=62 goto *unskill2;									//Refresh
if %cmd1=63 goto *unskill3;									//Refresh
if %cmd1=64 goto *unskill4;									//Refresh
if %cmd1=65 goto *unskill5;									//Refresh

if %cmd1=66 goto *saskill1;									//Refresh
if %cmd1=67 goto *saskill2;									//Refresh
if %cmd1=68 goto *saskill3;									//Refresh
if %cmd1=69 goto *saskill4;									//Refresh
if %cmd1=70 goto *saskill5;									//Refresh

if %cmd1=-1 mov %previous_menu,1:goto "*"+$lavel+"_main"
goto *common_skill

*whitewind_effect

skillname "White Wind"
name ""
dwave 1,"se\wind2.ogg"
>The holy wind blows all around Luka...\
dwave 2,"se\kaihuku.ogg"
mov %damage,%max_mylife*15/100
mov $sel6,$ori_name+" recovers some health!"
``$sel6\
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 %max_mylife<%mylife*5 gosub *face1
return

*enrage_effect

skillname "Enrage"
name ""
dwave 1,"se\fire2.ogg"
>The flames burn Luka's body!\
mov %damage,%max_mylife/5
damage %damage,%damage
\
skillname ""
if %max_mylife<%mylife*5 gosub *face1
return

*whitewind_end

mov %whitewind_turn,%whitewind_turn-1
name ""
>The holy wind surrounding Luka fades away!\
return

*brace_end

mov %brace_turn,%brace_turn-1
name ""
>Gnome's power fades from Luka's limbs!\
return

*strength_end

mov %strength_turn,%strength_turn-1
name ""
>The Earth power in Luka's sword fades away!\
return

*titanguard_end

mov %titanguard_turn,%titanguard_turn-1
name ""
>The magical Earth barrier around Luka fades away!\
return

*unpentagram_end

mov %unpentagram_turn,%unpentagram_turn-1
name ""
>Undine's Aqua Pentagram fades away!\
return

*erpentagram_end

mov %erpentagram_turn,%erpentagram_turn-1
name ""
>Erubetie's Aqua Pentagram fades away!\
return

*enrage_end

mov %enrage_turn,%enrage_turn-1
name ""
>The burning, destructive rage in Luka's body fades away!\
return

*burn_end

mov %burn_turn,%burn_turn-1
name ""
>The protective flames surrounding Luka fade away!\
return

*blackwind_end

mov %blackwind_turn,%blackwind_turn-1
name ""
>The black wind protecting Luka fades away!\
return


*zylphe_end

mov %zylphe_turn,%zylphe_turn-1
name ""
>Zylphe's power fades from Luka's body!\
mov %zylphe,0
if %wind<5 mov %luka_maxturn,1
return

*gnomaren_end

mov %gnomaren_turn,%gnomaren_turn-1
name ""
>Gnomaren's power fades from Luka's body!\
mov %gnomaren,0
return

*grandine_end

mov %grandine_turn,%grandine_turn-1
name ""
>Grandine's power fades from Luka's body!\
mov %grandine,0
return

*gigamander_end

mov %gigamander_turn,%gigamander_turn-1
name ""
>Gigamander's power fades from Luka's body!\
mov %gigamander,0
return

*syskill1

mov %mp,%mp-2:gosub *mp
name "Luka"
>Mighty wind, merge with my holy light and heal my wounds!\
wait 500
dwave 1,"se\wind1.ogg"
mov %mp,%mp-2:gosub *mp
lsp2 0,":a;chara\sylph_st11.bmp",200,300,100,100,0,200
gosub *syoukan_effect
name ""
>Luka focuses Sylph's magic!\
wait 500
dwave 1,"se\wind2.ogg"
>A pure, holy wind blows around Luka!\
dwave 2,"se\kaihuku.ogg"
mov %damage,%max_mylife/10
mov $sel6,$ori_name+" recovers some of his health!"
``$sel6
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 %whitewind_turn,5
goto *common_attack_end

*syskill2

mov %mp,%mp-1:gosub *mp
name "Luka"
>Uh...Chi Pa Pa?\
skillname "Chi Pa Pa!"
wait 500
dwave 1,"se\miss_wind.ogg"
lsp2 0,":a;chara\sylph_st11.bmp",200,300,100,100,0,200
gosub *syoukan_effect
name "Sylph"
>Heeere we go~!\
name ""
>Sylph appears and flies all around!
rnd2 %ransu,1,1000000
if %ransu<500001 goto *syskill2a ; Nothing happens, 50% chance
if %ransu<750001 goto *syskill2b ; Heals Luka by 25%, 25% chance
if %ransu<900001 goto *syskill2c ; Damages Luka 25%, 15% chance
if %ransu<990001 goto *syskill2d ; Refreshes all active Spirit counters, 9% chance
if %ransu<1000000 goto *syskill2e ;Kills Luka, 0.999% chance
if %ransu>999999 goto *syskill2f ; Kills enemy, literally one in a million.

*gnskill1

mov %mp,%mp-4:gosub *mp
name "Luka"
>..............\
skillname "Brace"
wait 500
dwave 1,"se\earth2.ogg"
mov %mp,%mp-2:gosub *mp
lsp2 0,":a;chara\gnome_st21.bmp",200,300,100,100,0,200
gosub *syoukan_effect
name ""
>Luka quietly focuses Gnome's magic!\
wait 500
dwave 1,"se\earth.ogg"
>All of his limbs become infused with Gnome's mighty power!\
mov %brace_turn,5
skillname ""
goto *common_attack_end
'
*gnskill2

mov %mp,%mp-3:gosub *mp
name "Luka"
>Gnome, infuse your great Earth into my blade!\
wait 500
name "Strength"
dwave 1,"se\earth2.ogg"
mov %mp,%mp-2:gosub *mp
lsp2 0,":a;chara\gnome_st21.bmp",200,300,100,100,0,200
gosub *syoukan_effect
name ""
>Luka focuses Gnome's magic!\
wait 500
dwave 1,"se\earth.ogg"
>The strength to cut through a mountain takes hold in Luka's sword!\
mov %strength_turn,1
skillname ""
goto *common_attack_end

*unskill1b

mov %skill_refresh,2
name ""
wait 500
>Purify my body?@
>Cure me...?\
>How do I manage to summon that, though?\
>Concentrating fully, I try to focus on Undine curing me.\
wait 500
name "Luka"
>Undine, free the toxins from my body!\
skillname "Refresh"
name ""
wait 500
dwave 1,"se\aqua.ogg"
mov %mp,%mp-2:gosub *mp
lsp2 0,":a;chara\undine_st11.bmp",200,300,100,100,0,200
gosub *syoukan_effect
name ""
>Luka focuses Undine's magic!\
wait 500
if %poison=-1 skip 4
dwave 1,"se\item.ogg"
mov %poison,-1:gosub *elm_print:mov %status,0:gosub *status_print
>Luka's cured of the poison!\
dwave 2,"se\kaihuku.ogg"
mov %damage,%max_mylife/5
mov $sel6, $ori_name+" recovers some of his health!"
``$sel6
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 ""
name "Luka"
>It worked!\
name ""
>Thanks, Undine...\
goto *common_attack_end


*unskill1

if %skill_refresh<2 && %poison>0 goto *unskill1b
name "Luka"
>Undine, free the toxins from my body!\
skillname "Refresh"
wait 500
dwave 1,"se\aqua.ogg"
mov %mp,%mp-2:gosub *mp
lsp2 0,":a;chara\undine_st11.bmp",200,300,100,100,0,200
gosub *syoukan_effect
name ""
>Luka focuses Undine's magic!\
wait 500
if %poison=-1 skip 4
dwave 1,"se\item.ogg"
mov %poison,-1:gosub *elm_print:mov %status,0:gosub *status_print
>Luka's cured of the poison!\
dwave 2,"se\kaihuku.ogg"
mov %damage,%max_mylife/5
mov $sel6,$ori_name+" recovers some of his health!"
``$sel6
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 ""
goto *common_attack_end

*saskill1

name "Luka"
>Salamander, let your chaotic flames consume and empower me!\
skillname "Enrage"
wait 500
dwave 1,"se\fire2.ogg"
mov %mp,%mp-6:gosub *mp
lsp2 0,":a;2Q\chara\salamander_st13.png",200,300,100,100,0,200
gosub *syoukan_effect
name ""
wait 500
>Mighty flames dance all around Luka, greatly strengthening him and burning    his body!\
>\
mov %enrage_turn,3
skillname ""
goto *common_attack_end

*skill1

if %enemy_num>1 gosub *enemy_target
mov %mp_charge,0
mov %is_attack,1
mov %before_action,21
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Here I come! Demon Decapitation!"
if %ransu=2 mov $sel1,"I got you now! Demon Decapitation!"
if %ransu=3 mov $sel1,"Take this! Demon Decapitation!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill1","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill1","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill1","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov %mp,%mp-2
gosub *mp
skillname "Demon Decapitation"
mov $sel6,$ori_name+" jumps in, and slashes at her neck!"
``$sel6
if %skill_sub=1 return
lsp 2,":a/5,30,1;2Q\effectOG\009.png",%tukix,%tukiy:print 1
dwave 1,"se\tuki.ogg"
wait 150
csp 2
if %aqua>0 && %enemy_wind!=1 skip 2
if %enemy_wind>0 && %enemy_holy<1 gosub *enemy_windguard:goto *common_attack_end
mov %abairitu,150+%mylv*3/2
gosub *enemylife
skillname ""
if %skill_sub>1 return
goto *common_attack_end



*skill2

if %enemy_num>1 gosub *enemy_target
mov %mp_charge,0
mov %is_attack,1
mov %before_action,41
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Take this and this and that!"
if %ransu=2 mov $sel1,"At least one will hit!"
if %ransu=3 mov $sel1,"Ahhhh!!!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill2","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill2","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill2","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov %mp,%mp-2
gosub *mp
skillname "Flail Wildly"
mov $sel6,$ori_name+" begins to rapidly swing his sword around in random directions!"
``$sel6\
dwave 1,"se\miss.ogg"
>Miss!
wait 500
dwave 1,"se\miss.ogg"
>Miss!
wait 500
textclear
dwave 1,"se\miss.ogg"
>Miss!
wait 500
dwave 1,"se\miss.ogg"
>Miss!\
>....It's not very effective.\
skillname ""
if %skill_sub=1 return
goto *common_attack_end



*skill3

if %enemy_num>1 gosub *enemy_target
mov %mp_charge,0
mov %is_attack,1
mov %before_action,22
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Take this! Thunder Thrust!"
if %ransu=2 mov $sel1,"Ha! Thunder Thrust!"
if %ransu=3 mov $sel1,"Here I come! Thunder Thrust!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill3","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill3","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill3","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov %mp,%mp-2
gosub *mp
skillname "Thunder Thrust"
mov $sel6,$ori_name+" steps in like thunder, and sharply thrusts!"
``$sel6
if %skill_sub=1 return
if %turn>1 gosub *skill3a
if %turn=1 gosub *skill3b
csp 2
gosub *enemylife
skillname ""
if %skill_sub>1 return
goto *common_attack_end



*skill3a

mov %mp_charge,0
lsp 2,":a/5,30,1;2Q\effectOG\009a.png",%tukix,%tukiy:print 1
dwave 1,"se\tuki.ogg"
wait 150
return



*skill3b

mov %mp_charge,0
>The early attack gives a satisfying blow!\
dwave 1,"se\slash3.ogg":mov %abairitu,200+%mylv*2
lsp 2,":a/5,30,1;2Q\effectOG\009b.png",%tukix,%tukiy:print 10,12
wait 150
return



*skill4

mov %mp_charge,0
mov %before_action,42
rnd2 %ransu,1,3
mov $sel1,"............."
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill4","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill4","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill4","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov %mp,%mp-3
gosub *mp
skillname "Meditation"
mov $sel6,$ori_name+" quietly meditates."
``$sel6
dwave 2,"se\kaihuku.ogg"
mov %damage,%max_mylife/2
mov $sel6,$ori_name+" recovers half his health!"
``$sel6
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
\
if %guard_on=1 && %skill01>26 && %fire<1 mov %bougyo,2
skillname ""
if %max_mylife<%mylife*5 gosub *face1
goto *common_a



*skill5

if %enemy_num>1 gosub *enemy_target
mov %mp_charge,0
mov %is_attack,1
mov %before_action,23
if %tikei=0 mov $sel2,$ori_name+" climbs to a high place, and jumps off!"
if %tikei=1 mov $sel2,$ori_name+" climbs the mast and jumps off from the top!"
if %tikei=2 mov $sel2,$ori_name+" climbs a tree and jumps off from the top!"
if %tikei=3 mov $sel2,$ori_name+" climbs onto the ceiling and jumps off!"
if %tikei=4 mov $sel2,$ori_name+" climbs a pillar and jumps off from the top!"
if %tikei=5 mov $sel2,$ori_name+" climbs a building and jumps off from the top!"
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Uooohhh! Demon Skull Beheading!"
if %ransu=2 mov $sel1,"How's this!? Demon Skull Beheading!"
if %ransu=3 mov $sel1,"I got you now! Demon Skull Beheading!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill5","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill5","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill5","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov %mp,%mp-3
gosub *mp
skillname "Demon Skull Beheading"
mov $sel6,$sel2
``$sel6\
wait 500
dwave 1,"se\karaburi.ogg"
lsp 2,":c;2Q\effectOG\003.png",0,0:print 1
wait 300
csp 2:print 18,500,"system\mask01.jpg"
dwave 1,"se\bom2.ogg"
quake 10,1000
if %aqua>0 && %enemy_wind!=1 skip 2
if %enemy_wind>0 && %enemy_holy<1 gosub *enemy_windguard:goto *common_attack_end
mov $sel6,$ori_name+" delivers a crushing blow to her head!"
``$sel6
if %skill_sub=1 return
dwave 1,"se\damage2.ogg"
mov %abairitu,300+%mylv*3
gosub *enemylife
skillname ""
if %skill_sub>1 return
goto *common_attack_end



*skill6

if %enemy_num>1 gosub *enemy_target
mov %mp_charge,0
mov %is_attack,1
mov %before_action,24
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Death Sword Chaos Star!"
if %ransu=2 mov $sel1,"Eat this! Death Sword Chaos Star!"
if %ransu=3 mov $sel1,"Here I come! Death Sword Chaos Star!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill6","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill6","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill6","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov %mp,%mp-4
gosub *mp
skillname "Death Sword Chaos Star"
mov $sel6,$ori_name+"'s sword flashes like a chaotic shooting star!"
``$sel6\
wait 500
lsp 2,":a/4,15,0;2Q\effectOG\005.png",0,0:print 1
dwave 1,"se\slash.ogg"
wait 15
dwave 2,"se\slash.ogg"
wait 85
dwave 3,"se\slash.ogg"
wait 120
csp 2:print 10,1000
if %skill_sub=1 return
if %aqua>0 && %enemy_wind!=1 skip 2
if %enemy_wind>0 && %enemy_holy<1 gosub *enemy_windguard:goto *common_attack_end
dwave 1,"se\slash.ogg"
if %fire<2 rnd2 %abairitu,50+%mylv*1/2,150+%mylv*3/2
if %fire=2 rnd2 %abairitu,100+%mylv,225+%mylv*9/4
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
if %fire<2 rnd2 %abairitu,50+%mylv*1/2,150+%mylv*3/2
if %fire=2 rnd2 %abairitu,100+%mylv,225+%mylv*9/4
mov %damage_nobr,2:gosub *enemylife
textclear
dwave 1,"se\slash.ogg"
if %fire<2 rnd2 %abairitu,50+%mylv*1/2,150+%mylv*3/2
if %fire=2 rnd2 %abairitu,100+%mylv,225+%mylv*9/4
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
if %fire<2 rnd2 %abairitu,50+%mylv*1/2,150+%mylv*3/2
if %fire=2 rnd2 %abairitu,100+%mylv,225+%mylv*9/4
mov %damage_nobr,1:gosub *enemylife
textclear
dwave 1,"se\slash.ogg"
if %fire<2 rnd2 %abairitu,50+%mylv*1/2,150+%mylv*3/2
if %fire=2 rnd2 %abairitu,100+%mylv,225+%mylv*9/4
mov %damage_nobr,2:gosub *enemylife
\
skillname ""
if %skill_sub>1 return
goto *common_attack_end



*skill7

mov %mp_charge,0
mov %before_action,43
mov %count_wind,%count_wind+1
rnd2 %ransu,1,3
mov $sel1,"Sylph, lend me your power!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill7","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill7","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill7","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov %mp,%mp-2
gosub *mp
skillname "Wind Protection"
mov %wind,1:mov %wind_turn,8
if %skill01<9 mov %earth,0:mov %earth_turn,0
mov %aqua,0:mov %aqua_turn,0
dwave 2,"se\wind2.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
mov $sel6,"Powerful winds blow around "+$ori_name+"!"
``$sel6\
skillname ""
goto *common_a



*skill7b

mov %mp_charge,0
mov %before_action,43
mov %count_wind,%count_wind+1
rnd2 %ransu,1,3
mov $sel1,"Summon a gale itself into my body...!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill7","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill7","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill7","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov %mp,%mp-2
gosub *mp
skillname "Playful Wind"
mov %wind,2:mov %wind_turn,12
if %skill01<9 mov %earth,0:mov %earth_turn,0
mov %aqua,0:mov %aqua_turn,0
dwave 2,"se\wind2.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
mov $sel6,"Powerful winds infuse "+$ori_name+"'s body, dramatically increasing his speed!"
``$sel6\
skillname ""
goto *common_a



*skill7c

mov %mp_charge,0
mov %before_action,43
mov %count_wind,%count_wind+1
rnd2 %ransu,1,3
mov $sel1,"Sylph, rage around as you please!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill7","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill7","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill7","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov %mp,%mp-1
gosub *mp
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
mov $sel6,$ori_name+"'s movements become as fast and powerful as a devastating gale!"
``$sel6\
skillname ""
goto *common_a



*skill8

mov %mp_charge,0
mov %before_action,44
mov %count_earth,%count_earth+1
rnd2 %ransu,1,3
mov $sel1,"Gnome, lend me your power!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill8","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill8","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill8","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov %mp,%mp-2
gosub *mp
skillname "Strength of the Earth"
mov %earth,1:mov %earth_turn,8
if %skill01<9 mov %wind,0:mov %wind_turn,0
mov %aqua,0:mov %aqua_turn,0
dwave 2,"se\earth4.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
mov $sel6,"The power of the Earth floods into "+$ori_name+"'s body!"
``$sel6\
skillname ""
goto *common_a



*skill8b

mov %mp_charge,0
mov %before_action,44
mov %count_earth,%count_earth+1
rnd2 %ransu,1,3
mov $sel1,"Take the breath of the earth into my body...!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill8","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill8","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill8","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov %mp,%mp-2
gosub *mp
skillname "Breath of the Earth"
mov %earth,2:mov %earth_turn,12
if %skill01<9 mov %wind,0:mov %wind_turn,0
mov %aqua,0:mov %aqua_turn,0
dwave 2,"se\earth1.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
mov $sel6,"The breath of the Earth takes hold in "+$ori_name+"'s body!"
``$sel6\
skillname ""
goto *common_a



*skill8c

mov %mp_charge,0
mov %before_action,44
mov %count_earth,%count_earth+1
rnd2 %ransu,1,3
mov $sel1,"Gnome, infuse me with the unmoving power of the earth!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill8","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill8","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill8","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
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
mov $sel6,"The unmoving power of the Earth takes hold in "+$ori_name+"'s body!"
``$sel6\
skillname ""
goto *common_a

*skill8_ng4	

mov %mp_charge,0
mov %before_action,44
mov %count_earth,%count_earth+1
name "Luka"
rnd2 %ransu,1,3
>Gnome, let your unmatched power and strength rage through me!\
skillname "Gaia's Wrath"
mov %earth,4:mov %earth_turn,24
dwave 2,"se\earth4.ogg"
mov %earth_mogaku,90
rnd2 %ransu,1,100
lsp2 0,":c;2Q\effectOG\cutin_ruka_earth.png",600,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_earth.png",200,150,100,100,0,10
gosub *skill_cutin
vspl 3,650,1
csp 0:csp 1
skillname "Gaia's Wrath"
gosub *syoukan_effect
gosub *elm_print
>Gnome's true power over the Earth courses through Luka's body!\
skillname ""
goto *common_a

*skill10

mov %mp_charge,0
mov %before_action,45
mov %count_aqua,%count_aqua+1
rnd2 %ransu,1,3
mov $sel1,"Undine, lend me your power!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill10","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill10","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill10","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov %mp,%mp-2
gosub *mp
skillname "Water Wall"
mov %aqua,1:mov %aqua_turn,8
mov %wind,0:mov %wind_turn,0:mov %earth,0:mov %earth_turn,0:mov %fire,0:mov %fire_turn,0
dwave 2,"se\aqua2.ogg"
lsp2 0,":a;chara\undine_st11.bmp",200,300,100,100,0,200
gosub *syoukan_effect
gosub *elm_print
mov $sel6,"A thin wall of water surrounds "+$ori_name+"!"
``$sel6\
skillname ""
goto *common_a



*skill10b

if %skill_serenegale>0 && %wind!=0 && %wind!=4 && %used_serenegale<1 goto *skill10d

*skill10bb

mov %mp_charge,0
mov %before_action,45
mov %count_aqua,%count_aqua+1
rnd2 %ransu,1,3
mov $sel1,"Take the flow into my heart...!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill10","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill10","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill10","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
if %ng<1 skillname "Serene Mind"
if %ng>0 skillname "Serene Mind: Level 2"
mov %aqua,2
mov %wind,0:mov %wind_turn,0:mov %earth,0:mov %earth_turn,0:mov %fire,0:mov %fire_turn,0
dwave 2,"se\aqua.ogg"
lsp2 0,":a;chara\undine_st11.bmp",200,300,100,100,0,200
gosub *syoukan_effect
mov %enemy_aqua,0:gosub *elm_print
bgmstop
bg black,10,1500
bgm"bgm\aqua.ogg"
mov $sel6,$ori_name+" entrusts his heart to the flow of water!"
``$sel6\
skillname ""
goto *common_a



*skill10c

if %aqua=2 mov %aqua_end,1
mov %mp_charge,0
mov %before_action,45
mov %count_aqua,%count_aqua+1
rnd2 %ransu,1,3
mov $sel1,"Calm my heart and mind..."
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill10","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill10","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill10","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
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
mov $sel6,$ori_name+" clears his mind and connects with the flow of the world!"
``$sel6\
skillname ""
goto *common_a

*skill10d

wait 500
name "Sylph"
>Luka!@
>Do you want to use my power of wind, or just the Serene Mind?\
csel "Serene Mind: Gale",*skill10db, "Serene Mind Level 2", *skill10bb

*skill10db

mov %mp_charge,0
mov %before_action,45
mov %count_aqua,%count_aqua+1
mov %used_serenegale,1
rnd2 %ransu,1,3
mov $sel1,"Take the flow of the wind into my heart...!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill10","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill10","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill10","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
skillname "Serene Mind: Gale"
mov %aqua,2:mov %wind,5
mov %aqua_turn,%mp:mov %wind_turn,%mp
mov %earth,0:mov %earth_turn,0:mov %fire,0:mov %fire_turn,0
dwave 2,"se\aqua.ogg"
bgmstop
lsp 699,":c;system\ef_white.jpg",0,0:print 10,500
wait 1500
lsp 699,":a;2Q\effectOG\wind.png",0,0
bg black,10,1500
mov %enemy_aqua,0:gosub *elm_print
bg black,10,1500
bgm "2Q\bgm\serenegale.ogg"
mov $sel6,$ori_name+" becomes one with the flow of the wind!"
``$sel6\
skillname ""
goto *common_a

*skill11

if %enemy_num>1 gosub *enemy_target
mov %mp_charge,0
mov %is_attack,1
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 && %sylph_get>0 mov $sel1,"With Sylph's power...! Lightning Sword Flash!"
if %ransu=2 && %sylph_get<1 mov $sel1,"With the wind guiding my sword... Lightning Sword Flash!"
if %ransu=3 mov $sel1,"Here I come! Lightning Sword Flash!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill11","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill11","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill11","skill_sel3"
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
if %ng<1 || %aqua<2 || %undine_get<1 || %wind<1 || %wind=4 || %sylph_get<1 skillname "Lightning Sword Flash"
if %ng>0 && %aqua>1 && %undine_get>0 && %wind>0 && %wind!=4 && %wind!=5 && %sylph_get>0 skillname "Lightning Sword Flash * Hurricane"
if %ng>0 && %aqua=2 && %undine_get>0 && %wind=5 && %sylph_get>0 skillname "Lightning Sword Flash * Thundercrash"
vspl 3,589,0
vspl 592,650,0
dwave 2,"se\wind2.ogg"

if %aqua>1 && %wind>0 && %wind!=4 && %ng>0 skip 6
if %wind=0 | %player=99 | %sylph_get<1 skip 4
lsp2 0,":c;2Q\effectOG\cutin_ruka_wind.png",600,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_wind.png",200,150,100,100,0,10
gosub *skill_cutin
vspl 3,650,1

if %aqua<2 | %wind<1 | %wind=4 | %ng<1 | %sylph_get<1 | %undine_get<1 skip 9
lsp2 0,":c;2Q\effectOG\cutin_ruka_wind.png",650,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_wind.png",200,150,100,100,0,10
gosub *skill_cutin
dwave 3,"se\aqua2.ogg"
lsp2 0,":c;2Q\effectOG\cutin_ruka_aqua.png",650,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_aqua.png",200,150,100,100,0,10
gosub *skill_cutin
vspl 3,650,1

csp 0:csp 1

if %ng<1 | %aqua<2 skillname "Lightning Sword Flash"
if %ng>0 && %aqua>1 && %undine_get>0 && %wind>0 && %wind!=4 && %wind!=5 && %sylph_get>0 skillname "Lightning Sword Flash * Hurricane"
if %ng>0 && %aqua=2 && %undine_get>0 && %wind=5 && %sylph_get>0 skillname "Lightning Sword Flash * Thundercrash"

if %wind<5 mov $sel6,"Moving like a powerful gale, "+$ori_name+" thrusts his sword forward as fast as lightning!"
if %wind=5 mov $sel6,"Carried on the current of wind, "+$ori_name+" thrusts his sword forward and pierces    through his opponent in a sonic boom!"
``$sel6\
if %turn>1 && %wind=0 gosub *skill11a
if %turn=1 gosub *skill11b
if %wind>0 && %wind!=5 gosub *skill11c
if %wind=5 gosub *skill11d
csp 2:print 1
if %skill_sub=1 return
gosub *enemylife
skillname ""
if %skill_sub>1 return
goto *common_attack_end



*skill11a

mov %mp_charge,0
dwave 1,"se\tuki.ogg":mov %abairitu,220+%mylv*11/5
if %aqua>1 && %undine_get>0 && %wind>0 && %wind!=4 && %sylph_get>0 mov %abairitu,%abairitu*4/3
if %fire>1 mov %abairitu,%abairitu*3/2
lsp 1,":a;2Q\effectOG\wind.png",0,0:print 10,12
lsp 2,":a/5,30,1;2Q\effectOG\009a.png",%tukix,%tukiy:print 1
wait 150
csp 1:csp 2:print 10,12
return



*skill11b

mov %mp_charge,0
>The early attack lands a powerful blow!\
dwave 1,"se\slash3.ogg":mov %abairitu,350+%mylv*7/2
if %aqua>1 && %undine_get>0 && %wind>0 && %wind!=4 && %sylph_get>0 mov %abairitu,%abairitu*4/3
if %fire>1 mov %abairitu,%abairitu*3/2
lsp 1,":a;2Q\effectOG\wind.png",0,0:print 10,12
lsp 2,":a/5,30,1;2Q\effectOG\009b.png",%tukix,%tukiy:print 10,12
wait 150
csp 1:csp 2:print 10,12
return



*skill11c

mov %mp_charge,0
dwave 1,"se\slash3.ogg":mov %abairitu,350+%mylv*7/2
if %aqua>1 && %undine_get>0 && %wind>0 && %wind!=4 && %sylph_get>0 mov %abairitu,%abairitu*4/3
if %fire>1 mov %abairitu,%abairitu*3/2
lsp 1,":a;2Q\effectOG\wind.png",0,0:print 10,12
lsp 2,":a/5,30,1;2Q\effectOG\009b.png",%tukix,%tukiy:print 10,12
wait 150
csp 1:csp 2:print 10,12
return

*skill11d

mov %mp_charge,0
dwave 1,"se\slash3.ogg":mov %abairitu,420+%mylv*7/2
lsp 1,":a;2Q\effectOG\wind.png",0,0:print 10,12
lsp 2,":a/5,30,1;2Q\effectOG\009b.png",%tukix,%tukiy:print 10,12
wait 150
csp 1:print 10,12
csp 2:print 1
gosub *enemylife
>A second shockwave tears through his opponent in the wake of his thrust!\
dwave 1,"se\slash3.ogg":mov %abairitu,420+%mylv*7/2
return



*skill12

if %enemy_num>1 gosub *enemy_target
mov %mp_charge,0
mov %is_attack,1
mov %before_action,26
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Oh Earth, infuse my sword with your weight! Earth Rumbling Decapitation!"
if %ransu=2 && %gnome_get>0 mov $sel1,"Gnome, lend me your power! Earth Rumbling Decapitation!"
if %ransu=2 && %gnome_get<1 mov $sel1,"Oh Earth, infuse my sword with your weight! Earth Rumbling Decapitation!"
if %ransu=3 mov $sel1,"Feel the weight of the Earth itself! Earth Rumbling Decapitation!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill12","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill12","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill12","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov %mp,%mp-3
gosub *mp
if %wind=5 skip 3
if %fire<1 || %salamander_get<1 || %ng<1 || %gnome_get<1 || %earth<1 skillname "Earth Rumbling Decapitation"
if %fire>0 && %salamander_get>0 && %ng>0 && %gnome_get>0 && %earth>0 skillname "Earth Rumbling Decapitation * Magma"
if %ng>0 && %wind=5 && %sylph_get>0 && %aqua=2 && %undine_get>0 skillname "Earth Rumbling Decapitation * Windcrash"
vspl 3,589,0
vspl 592,650,0
dwave 2,"se\earth1.ogg"

if %fire>0 && %salamander_get>0 && %ng>0 skip 5
if %earth=0 | %player=99 | %gnome_get<1 skip 4
lsp2 0,":c;2Q\effectOG\cutin_ruka_earth.png",600,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_earth.png",200,150,100,100,0,10
gosub *skill_cutin

if %fire<1 || %salamander_get<1 || %ng<1 || %earth<1 || %gnome_get<1 skip 8
lsp2 0,":c;2Q\effectOG\cutin_ruka_earth.png",650,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_earth.png",200,150,100,100,0,10
dwave 3,"se\fire2.ogg"
gosub *skill_cutin
lsp2 0,":c;2Q\effectOG\cutin_ruka_fire.png",650,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_fire.png",200,150,100,100,0,10
gosub *skill_cutin

vspl 3,650,1
csp 0:csp 1

if %wind=5 skip 3
if %fire<1 || %salamander_get<1 || %ng<1 skillname "Earth Rumbling Decapitation"
if %fire>0 && %salamander_get>0 && %ng>0 && %gnome_get>0 && %earth>0 skillname "Earth Rumbling Decapitation * Magma"
if %ng>0 && %wind=5 && %sylph_get>0 && %aqua=2 && %undine_get>0 skillname "Earth Rumbling Decapitation * Windcrash"

print 1
dwave 1,"se\karaburi.ogg"
lsp 2,":c;2Q\effectOG\earth.png",0,0:print 1
wait 300
csp 2:print 18,500,"system\mask01.jpg"
dwave 1,"se\bom2.ogg"
quake 10,1000
mov $sel6,"The power of the Earth infuses "+$ori_name+"'s body as he jumps in the air!"
``$sel6\
mov $sel6,$ori_name+" slams down, shaking the Earth itself as he lands!"
``$sel6
if %skill_sub=1 return
if %aqua>0 && %enemy_wind!=1 skip 2
if %enemy_wind>0 && %enemy_holy<1  && %wind<1 gosub *enemy_windguard:goto *common_attack_end
dwave 1,"se\damage2.ogg"
mov %abairitu,450+%mylv*9/2
if %earth>0 mov %abairitu,%abairitu*4/3
if %fire>1 && %earth>0 mov %abairitu,%abairitu*180/100
if %fire>1 && %earth<1 mov %abairitu,%abairitu*125/100

if %enemy_num>1 skip 7
mov %damage_keigenb,%damage_keigen
mov %damage_keigenc,100-%damage_keigen
mov %damage_keigenc,%damage_keigenc/2
mov %damage_keigen,%damage_keigen+%damage_keigenc
if %damage_keigen>100 mov %damage_keigen,100
skip 57

if %enemy_target!=1 skip 6
mov %damage_keigen1b,%damage_keigen1					
mov %damage_keigen1c,100-%damage_keigen1
mov %damage_keigen1c,%damage_keigen1c/2
mov %damage_keigen1,%damage_keigen1+%damage_keigen1c
if %damage_keigen1>100 mov %damage_keigen1,100

if %enemy_target!=2 skip 6
mov %damage_keigen2b,%damage_keigen2			
mov %damage_keigen2c,100-%damage_keigen2
mov %damage_keigen2c,%damage_keigen2c/2
mov %damage_keigen2,%damage_keigen2+%damage_keigen2c
if %damage_keigen2>100 mov %damage_keigen2,100

if %enemy_target!=3 skip 6
mov %damage_keigen3b,%damage_keigen3			
mov %damage_keigen3c,100-%damage_keigen3
mov %damage_keigen3c,%damage_keigen3c/2
mov %damage_keigen3,%damage_keigen3+%damage_keigen3c
if %damage_keigen3>100 mov %damage_keigen3,100

if %enemy_target!=4 skip 6
mov %damage_keigen4b,%damage_keigen4		
mov %damage_keigen4c,100-%damage_keigen4
mov %damage_keigen4c,%damage_keigen4c/2
mov %damage_keigen4,%damage_keigen4+%damage_keigen4c
if %damage_keigen4>100 mov %damage_keigen4,100

if %enemy_target!=5 skip 6
mov %damage_keigen5b,%damage_keigen5		
mov %damage_keigen5c,100-%damage_keigen5
mov %damage_keigen5c,%damage_keigen5c/2
mov %damage_keigen5,%damage_keigen5+%damage_keigen5c
if %damage_keigen5>100 mov %damage_keigen5,100

if %enemy_target!=6 skip 6
mov %damage_keigen6b,%damage_keigen6		
mov %damage_keigen6c,100-%damage_keigen6
mov %damage_keigen6c,%damage_keigen6c/2
mov %damage_keigen6,%damage_keigen6+%damage_keigen6c
if %damage_keigen6>100 mov %damage_keigen6,100

if %enemy_target!=7 skip 6
mov %damage_keigen7b,%damage_keigen7
mov %damage_keigen7c,100-%damage_keigen7
mov %damage_keigen7c,%damage_keigen7c/2
mov %damage_keigen7,%damage_keigen7+%damage_keigen7c
if %damage_keigen7>100 mov %damage_keigen7,100

if %enemy_target!=8 skip 6
mov %damage_keigen8b,%damage_keigen8		
mov %damage_keigen8c,100-%damage_keigen8
mov %damage_keigen8c,%damage_keigen8c/2
mov %damage_keigen8,%damage_keigen8+%damage_keigen8c
if %damage_keigen8>100 mov %damage_keigen8,100

gosub *enemylife

if %wind!=5 skip 10

mov $sel6,"Following the current of wind, an afterimage of "+$ori_name+" comes crashing down on   his opponent!"
``$sel6\
dwave 1,"se\damage2.ogg"
mov %abairitu,450+%mylv*9/2
if %earth>0 mov %abairitu,%abairitu*4/3
if %fire>1 && %earth>0 mov %abairitu,%abairitu*180/100
if %fire>1 && %earth<1 mov %abairitu,%abairitu*125/100
gosub *enemylife

if %ng<1 || %earth<1 || %gnome_get<1 skip 10
if %enemy_num<2 mov %damage_keigen,%damage_keigenb
if %enemy_target=1 mov %damage_keigen1,%damage_keigen1b
if %enemy_target=2 mov %damage_keigen2,%damage_keigen2b
if %enemy_target=3 mov %damage_keigen3,%damage_keigen3b
if %enemy_target=4 mov %damage_keigen4,%damage_keigen4b
if %enemy_target=5 mov %damage_keigen5,%damage_keigen5b
if %enemy_target=6 mov %damage_keigen6,%damage_keigen6b
if %enemy_target=7 mov %damage_keigen7,%damage_keigen7b
if %enemy_target=8 mov %damage_keigen8,%damage_keigen8b

skillname ""
if %skill_sub>1 return
goto *common_attack_end



*skill13

if %enemy_num>1 gosub *enemy_target
mov %mp_charge,0
mov %is_attack,1
mov %before_action,27
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Along the flow... Serene Demon Sword!"
if %ransu=2 && %undine_get>0 mov $sel1,"Undine, lend me your power... Serene Demon Sword!"
if %ransu=2 && %undine_get<1 mov $sel1,"Along the flow... Serene Demon Sword!"
if %ransu=3 mov $sel1,"I shall cut everything in my path... Serene Demon Sword!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill13","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill13","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill13","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
if %aqua!=2 skip 3
mov %aqua_turn,0
mov %aqua_end,1
mov %mp,%mp-2
gosub *mp
if %earth<1 || %gnome_get<1 || %ng<1 || %aqua<1 || %undine_get<1 skillname "Serene Demon Sword"
if %earth>0 && %gnome_get>0 && %ng>0 && %aqua>0 && %undine_get>0 skillname "Serene Demon Sword * Quake"
if %wind=5 && %sylph_get>0 && %ng>0 && %aqua=2 && %undine_get>0 skillname "Serene Demon Sword * Squall"
vspl 3,589,0
vspl 592,650,0
dwave 2,"se\aqua2.ogg"

if %earth>0 || %gnome_get>0 || %ng<1 skip 5
if %aqua=0 | %player=99 | %undine_get<1 skip 4
lsp2 0,":c;2Q\effectOG\cutin_ruka_aqua.png",600,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_aqua.png",200,150,100,100,0,10
gosub *skill_cutin

if %earth<1 || %aqua<1 || %undine_get<1 || %gnome_get<1 || %ng<1 skip 9
lsp2 0,":c;2Q\effectOG\cutin_ruka_aqua.png",650,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_aqua.png",200,150,100,100,0,10
gosub *skill_cutin
dwave 3,"se\earth1.ogg"
lsp2 0,":c;2Q\effectOG\cutin_ruka_earth.png",650,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_earth.png",200,150,100,100,0,10
gosub *skill_cutin
vspl 3,650,1

dwave 3,"se\karaburi.ogg"
lsp 2,":c;2Q\effectOG\006a.png",0,0:print 1
wait 300
csp 2:print 18,500,"system\mask01.jpg"
vspl 3,650,1
csp 0:csp 1

if %earth<1 || %gnome_get<1 || %ng<1 skillname "Serene Demon Sword"
if %earth>0 && %gnome_get>0 && %ng>0 && %aqua>0 && %undine_get>0 skillname "Serene Demon Sword * Quake"
if %wind=5 && %sylph_get>0 && %ng>0 && %aqua=2 && %undine_get>0 skillname "Serene Demon Sword * Squall"

mov $sel6,$ori_name+" sheathes his sword, and rests his hand on the hilt!"
``$sel6
if %wind!=5 >Drawing it in a fluid slash, he slices straight through everything in his     path!\
if %wind=5 >Like a blade of wind, it flashes from his sheath in a devastating shockwave!\
if %skill_sub=1 return
if %aqua>0 && %enemy_wind!=1 skip 2
if %enemy_wind>0 && %enemy_holy<1 && %wind<1 gosub *enemy_windguard:goto *common_attack_end
if %earth<1 || %gnome_get<1 || %ng<1 dwave 4,"se\slash4.ogg"
mov %abairitu,300+%mylv*3
if %aqua>0 mov %abairitu,%abairitu*2
if %earth>0 && %aqua>0 mov %abairitu,%abairitu*115/100
if %fire>1 mov %abairitu,%abairitu*3/2

if %ng<1 || %earth<1 || %aqua<1 || %undine_get<1 || %gnome_get<1 skip 69

name ""
>With Gnome's power, Luka crushes the enemy's defense!\
dwave 4,"se\slash4.ogg"

if %enemy_num>1 skip 7
mov %damage_keigenb,%damage_keigen
mov %damage_keigenc,100-%damage_keigen
mov %damage_keigenc,%damage_keigenc/2
mov %damage_keigen,%damage_keigen+%damage_keigenc
if %damage_keigen>100 mov %damage_keigen,100
skip 57

if %enemy_target!=1 skip 6
mov %damage_keigen1b,%damage_keigen1					
mov %damage_keigen1c,100-%damage_keigen1
mov %damage_keigen1c,%damage_keigen1c/2
mov %damage_keigen1,%damage_keigen1+%damage_keigen1c
if %damage_keigen1>100 mov %damage_keigen1,100

if %enemy_target!=2 skip 6
mov %damage_keigen2b,%damage_keigen2			
mov %damage_keigen2c,100-%damage_keigen2
mov %damage_keigen2c,%damage_keigen2c/2
mov %damage_keigen2,%damage_keigen2+%damage_keigen2c
if %damage_keigen2>100 mov %damage_keigen2,100

if %enemy_target!=3 skip 6
mov %damage_keigen3b,%damage_keigen3			
mov %damage_keigen3c,100-%damage_keigen3
mov %damage_keigen3c,%damage_keigen3c/2
mov %damage_keigen3,%damage_keigen3+%damage_keigen3c
if %damage_keigen3>100 mov %damage_keigen3,100

if %enemy_target!=4 skip 6
mov %damage_keigen4b,%damage_keigen4		
mov %damage_keigen4c,100-%damage_keigen4
mov %damage_keigen4c,%damage_keigen4c/2
mov %damage_keigen4,%damage_keigen4+%damage_keigen4c
if %damage_keigen4>100 mov %damage_keigen4,100

if %enemy_target!=5 skip 6
mov %damage_keigen5b,%damage_keigen5		
mov %damage_keigen5c,100-%damage_keigen5
mov %damage_keigen5c,%damage_keigen5c/2
mov %damage_keigen5,%damage_keigen5+%damage_keigen5c
if %damage_keigen5>100 mov %damage_keigen5,100

if %enemy_target!=6 skip 6
mov %damage_keigen6b,%damage_keigen6		
mov %damage_keigen6c,100-%damage_keigen6
mov %damage_keigen6c,%damage_keigen6c/2
mov %damage_keigen6,%damage_keigen6+%damage_keigen6c
if %damage_keigen6>100 mov %damage_keigen6,100

if %enemy_target!=7 skip 6
mov %damage_keigen7b,%damage_keigen7
mov %damage_keigen7c,100-%damage_keigen7
mov %damage_keigen7c,%damage_keigen7c/2
mov %damage_keigen7,%damage_keigen7+%damage_keigen7c
if %damage_keigen7>100 mov %damage_keigen7,100

if %enemy_target!=8 skip 6
mov %damage_keigen8b,%damage_keigen8		
mov %damage_keigen8c,100-%damage_keigen8
mov %damage_keigen8c,%damage_keigen8c/2
mov %damage_keigen8,%damage_keigen8+%damage_keigen8c
if %damage_keigen8>100 mov %damage_keigen8,100

gosub *enemylife

if %wind!=5 skip 9

>A second shockwave tears through his opponent in the wake of the first!\
dwave 4,"se\slash4.ogg"
mov %abairitu,300+%mylv*3
if %aqua>0 mov %abairitu,%abairitu*2
if %earth>0 && %aqua>0 mov %abairitu,%abairitu*115/100
if %fire>1 mov %abairitu,%abairitu*3/2
gosub *enemylife

if %ng<1 || %earth<1 || %gnome_get<1 skip 10
if %enemy_num<2 mov %damage_keigen,%damage_keigenb
if %enemy_target=1 mov %damage_keigen1,%damage_keigen1b
if %enemy_target=2 mov %damage_keigen2,%damage_keigen2b
if %enemy_target=3 mov %damage_keigen3,%damage_keigen3b
if %enemy_target=4 mov %damage_keigen4,%damage_keigen4b
if %enemy_target=5 mov %damage_keigen5,%damage_keigen5b
if %enemy_target=6 mov %damage_keigen6,%damage_keigen6b
if %enemy_target=7 mov %damage_keigen7,%damage_keigen7b
if %enemy_target=8 mov %damage_keigen8,%damage_keigen8b

skillname ""
if %skill_sub>1 return
goto *common_attack_end



*skill14

mov %mp_charge,0
mov %before_action,46
mov %count_fire,%count_fire+1
rnd2 %ransu,1,3
mov $sel1,"Salamander, lend me your power...!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill14","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill14","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill14","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov %mp,%mp-2
gosub *mp
skillname "Blade of Flame"
mov %fire,1:mov %fire_turn,5
dwave 2,"se\fire1.ogg"
lsp2 0,":a;2Q\chara\salamander_st02.png",200,300,100,100,0,200
gosub *syoukan_effect
gosub *elm_print
mov $sel6,"Flames spread across "+$ori_name+"'s sword!"
``$sel6\
skillname ""
goto *common_a



*skill14b

mov %mp_charge,0
mov %before_action,46
mov %count_fire,%count_fire+1
mov $sel1,"Infuse my sword with the flames of hell itself!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill14","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill14","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill14","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
mov %mp,%max_mp
gosub *mp
skillname "Hellfire Sword"
mov %wind,0:mov %wind_turn,0:mov %earth,0:mov %earth_turn,0
mov %fire,2:mov %fire_turn,5
dwave 2,"se\fire2.ogg"
lsp2 0,":a;2Q\chara\salamander_st02.png",200,300,100,100,0,200
gosub *syoukan_effect
gosub *elm_print
mov $sel6,"Licks of flame run up and down "+$ori_name+"'s sword, ready to ignite with his skills!"
``$sel6\
skillname ""
goto *common_a



*skill14c

mov %mp_charge,0
mov %before_action,46
mov %count_fire,%count_fire+1
mov $sel1,"Salamander, purify everything with the flames of purgatory!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill14","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill14","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill14","skill_sel3"
name $ori_name
mov $sel6,$sel1
``$sel6\
name ""
if %enviro_fire=0 mov %mp,%max_mp
if %enviro_fire=1 mov %mp,%max_mp*120/100
if %enviro_fire=2 mov %mp,%max_mp*135/100
if %enviro_fire=3 mov %mp,%max_mp*150/100
gosub *mp
skillname "Purgatory Flame"
mov %fire,3:mov %fire_turn,6
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
mov $sel6,"Licks of flame run up and down "+$ori_name+"'s sword, ready to ignite with his skills!"
``$sel6\
skillname ""
goto *common_a



*skill15

mov %mp_charge,0
mov %before_action,47
mov %kadora,1
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
if %aqua=2 gosub *musicplay
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 $ori_name
>Come, Sylph!\
name ""
skillname "Sylph"
dwave 2,"se\wind2.ogg"
lsp2 0,":a;chara\sylph_st12.bmp",200,300,100,100,0,200
gosub *syoukan_effect
mov $sel6,"The power of wind takes hold in "+$ori_name+"'s sword!"
``$sel6\
skillname ""
goto *common_a



*skill15a

mov %mp_charge,0
mov %before_action,47
mov %kadora,2
name $ori_name
>Come, Gnome!\
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
mov $sel6,"The power of earth takes hold in "+$ori_name+"'s sword!"
``$sel6\
skillname ""
goto *common_a



*skill15b

mov %mp_charge,0
mov %before_action,47
mov %kadora,3
name $ori_name
>Come, Undine!\
name ""
skillname "Undine"
dwave 2,"se\aqua2.ogg"
lsp2 0,":a;chara\undine_st11.bmp",200,300,100,100,0,200
gosub *syoukan_effect
mov $sel6,"The power of water takes hold in "+$ori_name+"'s sword!"
``$sel6\
skillname ""
goto *common_a



*skill15c

mov %mp_charge,0
mov %before_action,47
mov %kadora,4
name $ori_name
>Come, Salamander!\
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
mov $sel6,"The power of fire takes hold in "+$ori_name+"'s sword!"
``$sel6\
skillname ""
goto *common_a



*skill15d

mov %mp_charge,0
mov %is_attack,1
mov %before_action,28
mov %kadora,0
mov %count_kadora,1
name $ori_name
>It's over! Quadruple Giga!\
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;2Q\effectOG\cutin_wind.png",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;2Q\effectOG\cutin_wind.png",0,0:print 1
dwave 3,"se\earth1.ogg"
lsp2 2,":c;2Q\effectOG\cutin_earth.png",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;2Q\effectOG\cutin_earth.png",200,0:print 1
dwave 4,"se\aqua2.ogg"
lsp2 3,":c;2Q\effectOG\cutin_aqua.png",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;2Q\effectOG\cutin_aqua.png",400,0:print 1
dwave 5,"se\fire2.ogg"
lsp2 4,":c;2Q\effectOG\cutin_fire.png",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;2Q\effectOG\cutin_fire.png",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;2Q\effectOG\003.png",0,0:print 1
wait 300
dwave 3,"se\earth1.ogg"
lsp 2,":a;2Q\effectOG\earth.png",0,0:print 1
wait 100
dwave 5,"se\fire2.ogg"
lsp 2,":a;2Q\effectOG\fire.png",0,0:print 1
wait 100
dwave 4,"se\aqua2.ogg"
lsp 2,":a;2Q\effectOG\aqua.png",0,0:print 1
wait 100
dwave 2,"se\wind2.ogg"
lsp 2,":a;2Q\effectOG\wind.png",0,0:print 1
wait 100
csp 2:print 18,500,"system\mask01.jpg"
dwave 1,"se\bom3.ogg"
quake 10,2000
mov $sel6,"The power to smash anything is thrown off of "+$ori_name+"'s sword!"
``$sel6\
if %skill_sub=1 return
dwave 1,"se\damage2.ogg"
rnd2 %damage,40000,50000:gosub *enemylifeb
skillname ""
if %skill_sub>1 return
goto *common_attack_end




*skill16

if %enemy_num>1 gosub *enemy_target
mov %mp_charge,0
mov %is_attack,1
mov %before_action,29
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"I'll purify you in the flames of purgatory... Vaporizing Rebellion Sword!"
if %ransu=2 && %salamander_get>0 mov $sel1,"Lend me your power, Salamander! Vaporizing Rebellion Sword!"
if %ransu=2 && %salamander_get<1 mov $sel1,"Everything in my path shall be purged in flames! Vaporizing Rebellion Sword!"
if %ransu=3 mov $sel1,"Everything in my path shall be purged in flames! Vaporizing Rebellion Sword!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill16","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill16","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill16","skill_sel3"
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
if %ng<1 || %wind<1 || %wind=4 || %fire<1 || %sylph_get<1 || %salamander_get<1 skillname "Vaporizing Rebellion Sword"
if %ng>0 && %wind>0 && %wind!=4 && %wind!=5 && %fire>0 && %sylph_get>0 && %salamander_get>0 skillname "Vaporizing Rebellion Sword * Typhoon"
if %ng>0 && %wind=5 && %sylph_get>0 && %aqua=2 && %undine_get>0 skillname "Vaporizing Rebellion Sword * Ten Winds"
vspl 3,589,0
vspl 592,650,0
dwave 2,"se\fire2.ogg"
if %fire>2 && %wind>2 && %wind!=4 && %ng>0 skip 6
if %fire=0 | %player=99 | %salamander_get<1 skip 4
lsp2 0,":c;2Q\effectOG\cutin_ruka_fire.png",600,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_fire.png",200,150,100,100,0,10
gosub *skill_cutin
gosub *skill16a

if %fire<3 | %wind<3 | %wind=4 | %ng<1 | %sylph_get<1 | %salamander_get<1 skip 9
lsp2 0,":c;2Q\effectOG\cutin_ruka_fire.png",650,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_fire.png",200,150,100,100,0,10
gosub *skill_cutin
dwave 3,"se\wind2.ogg"
lsp2 0,":c;2Q\effectOG\cutin_ruka_wind.png",650,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_wind.png",200,150,100,100,0,10
gosub *skill_cutin
gosub *skill16c

vspl 3,650,1
csp 0:csp 1:csp 2
if %ng<1 | %wind=4 | %wind<3 skillname "Vaporizing Rebellion Sword"
if %ng>0 && %wind>0 && %wind!=4 && %wind!=5 && %fire>0 && %sylph_get>0 && %salamander_get>0 skillname "Vaporizing Rebellion Sword * Typhoon"
if %ng>0 && %wind=5 && %sylph_get>0 && %aqua=2 && %undine_get>0 skillname "Vaporizing Rebellion Sword * Ten Winds"
print 1
mov $sel6,"Burning with the flames of purgatory, "+$ori_name+" slashes in a whirlwind of fire!"
``$sel6\
if %skill_sub=1 return
if %aqua>0 && %enemy_wind!=1 skip 2
if %enemy_wind>0 && %enemy_holy<1 && %wind<1 gosub *enemy_windguard:goto *common_attack_end
if %enemy_wind>0 && %enemy_holy<1 && %wind=4 gosub *enemy_windguard:goto *common_attack_end
dwave 1,"se\slash.ogg"
if %fire<2 rnd2 %abairitu,150+%mylv*3/2,200+%mylv*2
if %fire>1 rnd2 %abairitu,200+%mylv*2,300+%mylv*3
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
if %fire<2 rnd2 %abairitu,150+%mylv*3/2,200+%mylv*2
if %fire>1 rnd2 %abairitu,200+%mylv*2,300+%mylv*3
mov %damage_nobr,2:gosub *enemylife
textclear
dwave 1,"se\slash.ogg"
if %fire<2 rnd2 %abairitu,150+%mylv*3/2,200+%mylv*2
if %fire>1 rnd2 %abairitu,200+%mylv*2,300+%mylv*3
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
if %fire<2 rnd2 %abairitu,150+%mylv*3/2,200+%mylv*2
if %fire>1 rnd2 %abairitu,200+%mylv*2,300+%mylv*3
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
if %fire<2 rnd2 %abairitu,150+%mylv*3/2,200+%mylv*2
if %fire>1 rnd2 %abairitu,200+%mylv*2,300+%mylv*3
mov %damage_nobr,2:gosub *enemylife
if %wind=5 && %aqua=2 skip 18
if %fire>2 && %wind>2 && %wind!=4 && %ng>0 skip 4
skillname ""
if %skill_sub>1 return
goto *common_attack_end
textclear
dwave 1,"se\slash.ogg"
rnd2 %abairitu,125+%mylv*3/2,180+%mylv*2
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
rnd2 %abairitu,125+%mylv*3/2,180+%mylv*2
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
rnd2 %abairitu,125+%mylv*3/2,180+%mylv*2
mov %damage_nobr,2:gosub *enemylife
skillname ""
if %skill_sub>1 return
goto *common_attack_end
textclear
dwave 1,"se\slash.ogg"
rnd2 %abairitu,125+%mylv*3/2,180+%mylv*2
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
rnd2 %abairitu,125+%mylv*3/2,180+%mylv*2
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
rnd2 %abairitu,125+%mylv*3/2,180+%mylv*2
mov %damage_nobr,2:gosub *enemylife
textclear
dwave 1,"se\slash.ogg"
rnd2 %abairitu,125+%mylv*3/2,180+%mylv*2
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
rnd2 %abairitu,125+%mylv*3/2,180+%mylv*2
mov %damage_nobr,1:gosub *enemylife
skillname ""
if %skill_sub>1 return
goto *common_attack_end


*skill16a

mov %mp_charge,0
dwave 1,"se\slash.ogg"
dwave 9,"se\fire2.ogg"
skipoff
lsp 2,":a/8,15,0;2Q\effectOG\005flicker.png",0,0:print 1
dwave 2,"se\slash.ogg"
wait 15
lsp 3,":a/2,15,0;2Q\effectOG\fireflicker.png",0,0:print 1


for %move=0 to 5
wait 45*2
dwave %move+3,"se\slash.ogg"		;Ensures the audio doesn't overlap
next
wait 30*2
csp 2 : csp 3 : print 10,1000
return


*skill16c
mov %mp_charge,0
dwave 1,"se\slash.ogg"
dwave 9,"se\fire2.ogg"
skipoff
lsp 2,":a/8,15,0;2Q\effectOG\005flicker.png",0,0:print 1
dwave 2,"se\slash.ogg"
wait 15
lsp 3,":a/2,7,0;2Q\effectOG\fireflicker.png",0,0:print 1
wait 7
lsp 4,":a/2,8,0;2Q\effectOG\windflicker.png",0,0:print 1
wait 8

wait 45*2
dwave 3,"se\slash.ogg"
lsp 2,":a/8,15,0;2Q\effect\005gflicker.png",0,0:print 1
wait 45*2
dwave 4,"se\slash.ogg"
wait 15*2
lsp 2,":a/8,15,0;2Q\effectOG\005flicker.png",0,0:print 1
wait 30*2
dwave 5,"se\slash.ogg"
wait 45*2
dwave 6,"se\slash.ogg"
wait 45*2
dwave 7,"se\slash.ogg"
lsp 2,":a/8,15,0;2Q\effect\005gflicker.png",0,0:print 1
wait 45*2
dwave 8,"se\slash.ogg"
wait 15*2
lsp 2,":a/8,15,0;2Q\effectOG\005flicker.png",0,0:print 1
wait 30*2
dwave 9,"se\slash.ogg"
wait 45*2
dwave 10,"se\slash.ogg"
wait 45*2
dwave 11,"se\slash.ogg"
lsp 2,":a/8,15,0;2Q\effect\005gflicker.png",0,0:print 1
wait 45*2
dwave 12,"se\slash.ogg"
wait 15*2
lsp 2,":a/8,15,0;2Q\effectOG\005flicker.png",0,0:print 1
wait 30*2
dwave 13,"se\slash.ogg"
wait 30*2
cspl 2,4 : print 10,1000
return

*skill17

mov %mp_charge,0
mov %before_action,55
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!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill17","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill17","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill17","skill_sel3"
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 ""
gosub *face2
goto "*"+$lavel+"_main"


*skill18

mov %mp_charge,0
mov %before_action,45
if %aqua=2 mov %aqua_end,1
name "Luka"
>Calm my heart and mind...!\
name ""
if %ng<1 || %undine_get<1 skillname "Serene Mind"
if %ng>0 && %undine_get>0 skillname "Serene Mind: Level 3"
if %aqua!=2 mov %mp,%mp-2
gosub *mp
if %ng<1 | %skill04<2 mov %aqua,4:mov %aqua_turn,12
if %skill02<1 mov %wind,0:mov %wind_turn,0
dwave 2,"se\aqua.ogg"
if %skill04=0 skip 4
mov %count_aqua,%count_aqua+1
lsp2 0,":a;chara\undine_st11.bmp",200,300,100,100,0,200
gosub *syoukan_effect
if %aqua=2 gosub *aqua_sel
if %ng>0 && %skill04>1 mov %aqua,3:mov %aqua_turn,16
gosub *elm_print
>Luka clears his mind and connects to the flow of the world!\
skillname ""
goto *common_a



*skill19

if %enemy_num>1 gosub *enemy_target
mov %mp_charge,0
mov %is_attack,1
mov %before_action,30
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"The blade of judgement comes for you!"
if %ransu=2 mov $sel1,"Cutting through space, time and reason!"
name "Luka"
``$sel1
>\
name ""
mov %mp,%mp-2
gosub *mp
lsp 1,":a/2,0,3;system\select_window2.jpg",150,20
if %wind=3 skip 2
skillname "Flash Kill"
if %sylph_get<1 || %wind<3 skip 2
skillname "Flash Kill: Tornado"
vspl 3,589,0
vspl 592,650,0
if %wind<3 skip 5
dwave 2,"se\wind2.ogg"
lsp2 0,":c;2Q\effectOG\cutin_ruka_wind.png",600,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_wind.png",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
if %wind>0 skip 2
skillname "Flash Kill"
if %wind<3 skip 2
skillname "Flash Kill: Tornado"
dwave 3,"se\tuki.ogg"
lsp 2,":c;2Q\effectOG\007.png",0,0:print 1
wait 100
csp 2:print 18,300,"system\mask01.jpg"
>Luka's blade cuts through even space and time!
if %skill_sub=1 return
dwave 1,"se\slash4.ogg"
if %wind<3 && %fire=0 mov %abairitu,250+%mylv*5/2
if %wind>2 && %fire=0 mov %abairitu,400+%mylv*7/2
if %wind<3 && %fire>0 mov %abairitu,300+%mylv*11/4
if %wind>2 && %fire>0 mov %abairitu,500+%mylv*4
itoa $damage_keigenc,%damage_keigen
mov %damage_keigen,%damage_keigen*70/100
gosub *enemylife
if %wind<3 skip 8
dwave 1,"se\slash4.ogg"
if $lavel="kraken_ng" mov %damage_keigen,100
if %wind<3 && %fire=0 mov %abairitu,250+%mylv*5/2
if %wind>2 && %fire=0 mov %abairitu,400+%mylv*7/2
if %wind<3 && %fire>0 mov %abairitu,300+%mylv*11/4
if %wind>2 && %fire>0 mov %abairitu,500+%mylv*4
gosub *enemylife

skillname ""
atoi %damage_keigen,$damage_keigenc
goto *common_attack_end



*skill20

if %enemy_num>1 gosub *enemy_target
mov %mp_charge,0
mov %is_attack,1
mov %before_action,31
name "Luka"
if %wind!=5 >The jaws of the Rakshasa come to make the wicked pay!\
if %wind=5 >The blessed blades of wind will tear evil asunder!\
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill20","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill20","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill20","skill_sel3"
name ""
mov %mp,%mp-6
gosub *mp
lsp 1,":a/2,0,3;system\select_window2.jpg",150,20
if %wind!=5 skip 3
skillname "Eighteen Divine Gales"
skip 5
if %fire=3 && %salamander_get>0 skip 2
skillname "Ninefold Rakshasa"
if %fire<3 || %salamander_get<1 skip 2
skillname "Ninefold Rakshasa: Asura"
vspl 3,650,0
if %fire<3 skip 5
dwave 2,"se\fire2.ogg"
lsp2 0,":c;2Q\effectOG\cutin_ruka_fire.png",600,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_fire.png",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
if %wind!=5 skip 3
skillname "Eighteen Divine Gales"
skip 5
if %fire=3 && %salamander_get>0 skip 2
skillname "Ninefold Rakshasa"
if %fire<3 || %salamander_get<1 skip 2
skillname "Ninefold Rakshasa: Asura"
wait 500
lsp 2,":a/4,15,0;2Q\effectOG\005.png",0,0:print 1
dwave 1,"se\slash3.ogg"
wait 15
dwave 2,"se\slash3.ogg"
wait 45
dwave 3,"se\slash3.ogg"
wait 60
dwave 4,"se\slash3.ogg"
wait 60
dwave 5,"se\slash3.ogg"
wait 60
dwave 6,"se\slash3.ogg"
wait 60
dwave 7,"se\slash3.ogg"
wait 60
csp 2:print 10,1000
>Luka's sword flashes in a blaze of holy light!\
if %wind=5 >With the speed of wind, it flashes twice with each stroke, increasing the     damage!\
if %skill_sub=1 return
if %fire>0 || %aqua>0 skip 2
if %enemy_wind>0 && %enemy_holy<1 gosub *enemy_windguard:goto *common_attack_end
dwave 1,"se\slash.ogg"
if %fire=0 rnd2 %abairitu,100+%mylv,130+%mylv*13/10
if %fire=2 rnd2 %abairitu,120+%mylv*6/5,150+%mylv*3/2
if %fire=3 rnd2 %abairitu,140+%mylv*7/5,170+%mylv*17/10
if %wind=5 rnd2 %abairitu,180+%mylv*8/5,210+%mylv*2
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
if %fire=0 rnd2 %abairitu,100+%mylv,130+%mylv*13/10
if %fire=2 rnd2 %abairitu,120+%mylv*6/5,150+%mylv*3/2
if %fire=3 rnd2 %abairitu,140+%mylv*7/5,170+%mylv*17/10
if %wind=5 rnd2 %abairitu,180+%mylv*8/5,210+%mylv*2
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
if %fire=0 rnd2 %abairitu,100+%mylv,130+%mylv*13/10
if %fire=2 rnd2 %abairitu,120+%mylv*6/5,150+%mylv*3/2
if %fire=3 rnd2 %abairitu,140+%mylv*7/5,170+%mylv*17/10
if %wind=5 rnd2 %abairitu,180+%mylv*8/5,210+%mylv*2
mov %damage_nobr,2:gosub *enemylife
textclear
dwave 1,"se\slash.ogg"
if %fire=0 rnd2 %abairitu,100+%mylv,130+%mylv*13/10
if %fire=2 rnd2 %abairitu,120+%mylv*6/5,150+%mylv*3/2
if %fire=3 rnd2 %abairitu,140+%mylv*7/5,170+%mylv*17/10
if %wind=5 rnd2 %abairitu,180+%mylv*8/5,210+%mylv*2
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
if %fire=0 rnd2 %abairitu,100+%mylv,130+%mylv*13/10
if %fire=2 rnd2 %abairitu,120+%mylv*6/5,150+%mylv*3/2
if %fire=3 rnd2 %abairitu,140+%mylv*7/5,170+%mylv*17/10
if %wind=5 rnd2 %abairitu,180+%mylv*8/5,210+%mylv*2
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
if %fire=0 rnd2 %abairitu,100+%mylv,130+%mylv*13/10
if %fire=2 rnd2 %abairitu,120+%mylv*6/5,150+%mylv*3/2
if %fire=3 rnd2 %abairitu,140+%mylv*7/5,170+%mylv*17/10
if %wind=5 rnd2 %abairitu,180+%mylv*8/5,210+%mylv*2
mov %damage_nobr,2:gosub *enemylife
textclear
dwave 1,"se\slash.ogg"
if %fire=0 rnd2 %abairitu,100+%mylv,130+%mylv*13/10
if %fire=2 rnd2 %abairitu,120+%mylv*6/5,150+%mylv*3/2
if %fire=3 rnd2 %abairitu,140+%mylv*7/5,170+%mylv*17/10
if %wind=5 rnd2 %abairitu,180+%mylv*8/5,210+%mylv*2
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
if %fire=0 rnd2 %abairitu,100+%mylv,130+%mylv*13/10
if %fire=2 rnd2 %abairitu,120+%mylv*6/5,150+%mylv*3/2
if %fire=3 rnd2 %abairitu,140+%mylv*7/5,170+%mylv*17/10
if %wind=5 rnd2 %abairitu,180+%mylv*8/5,210+%mylv*2
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
if %fire=0 rnd2 %abairitu,100+%mylv,130+%mylv*13/10
if %fire=2 rnd2 %abairitu,120+%mylv*6/5,150+%mylv*3/2
if %fire=3 rnd2 %abairitu,140+%mylv*7/5,170+%mylv*17/10
if %wind=5 rnd2 %abairitu,180+%mylv*8/5,210+%mylv*2
mov %damage_nobr,2:gosub *enemylife
skillname ""
if %skill_sub>1 return
goto *common_attack_end



*skill21

if %enemy_num>1 mov %target_all,1
mov %mp_charge,0
mov %is_attack,1
mov %before_action,32
name "Luka"
>All life returns to the nature from whence it came!\
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill21","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill21","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill21","skill_sel3"
name ""
mov %mp,%mp-4
gosub *mp
lsp 1,":a/2,0,3;system\select_window2.jpg",150,20
if %wind!=5 skip 3
skillname "Heavenly Demon Revival: Apollo"
skip 5
if %earth=3 skip 2
skillname "Heavenly Demon Revival"
if %gnome_get<1 || %earth<3 skip 2
skillname "Heavenly Demon Revival: Gaia"
vspl 3,650,0
if %earth<3 skip 5
dwave 2,"se\earth1.ogg"
lsp2 0,":c;2Q\effectOG\cutin_ruka_earth.png",600,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_earth.png",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
if %wind!=5 skip 3
skillname "Heavenly Demon Revival: Apollo"
skip 5
if %earth=3 skip 2
skillname "Heavenly Demon Revival"
if %earth<3 skip 2
skillname "Heavenly Demon Revival: Gaia"
wait 300
dwave 1,"se\bom2.ogg"
lsp 2,":c;2Q\effectOG\001.png",0,0:print 18,1000,"system\mask01.jpg"
csp 2:print 18,500,"system\mask01.jpg"
>Luka condenses powerful magic energy around him!\
dwave 1,"se\damage2.ogg"
if %earth<3 && %fire=0 mov %abairitu,700+%mylv*6
if %earth=3 && %fire=0 mov %abairitu,900+%mylv*10
if %earth<3 && %fire>0 mov %abairitu,800+%mylv*8
if %earth=3 && %fire>0 mov %abairitu,1000+%mylv*12
if %alive_num>1 mov %abairitu,%abairitu*70/100
if %alive_num>2 mov %abairitu,%abairitu*70/100
if %alive_num>3 mov %abairitu,%abairitu*70/100
if %alive_num>4 mov %abairitu,%abairitu*70/100
if %alive_num>5 mov %abairitu,%abairitu*70/100
if %alive_num>6 mov %abairitu,%abairitu*70/100
if %alive_num>7 mov %abairitu,%abairitu*70/100

if %ng<1 || %earth<1 skip 65

if %enemy_num>1 skip 7
mov %damage_keigenb,%damage_keigen					; Dragon Butcher Attack eats defense like Demon Revival, damage_keigenb is a temp variable to hold damage_keigen
mov %damage_keigenc,100-%damage_keigen
mov %damage_keigenc,%damage_keigenc/2
mov %damage_keigen,%damage_keigen+%damage_keigenc
if %damage_keigen>100 mov %damage_keigen,100
skip 57

if %enemy_num<2 skip 6
mov %damage_keigen1b,%damage_keigen1					
mov %damage_keigen1c,100-%damage_keigen1
mov %damage_keigen1c,%damage_keigen1c/2
mov %damage_keigen1,%damage_keigen1+%damage_keigen1c
if %damage_keigen1>100 mov %damage_keigen1,100

if %enemy_num<2 skip 6
mov %damage_keigen2b,%damage_keigen2			
mov %damage_keigen2c,100-%damage_keigen2
mov %damage_keigen2c,%damage_keigen2c/2
mov %damage_keigen2,%damage_keigen2+%damage_keigen2c
if %damage_keigen2>100 mov %damage_keigen2,100

if %enemy_num<3 skip 6
mov %damage_keigen3b,%damage_keigen3			
mov %damage_keigen3c,100-%damage_keigen3
mov %damage_keigen3c,%damage_keigen3c/2
mov %damage_keigen3,%damage_keigen3+%damage_keigen3c
if %damage_keigen3>100 mov %damage_keigen3,100

if %enemy_num<4 skip 6
mov %damage_keigen4b,%damage_keigen4		
mov %damage_keigen4c,100-%damage_keigen4
mov %damage_keigen4c,%damage_keigen4c/2
mov %damage_keigen4,%damage_keigen4+%damage_keigen4c
if %damage_keigen4>100 mov %damage_keigen4,100

if %enemy_num<5 skip 6
mov %damage_keigen5b,%damage_keigen5		
mov %damage_keigen5c,100-%damage_keigen5
mov %damage_keigen5c,%damage_keigen5c/2
mov %damage_keigen5,%damage_keigen5+%damage_keigen5c
if %damage_keigen5>100 mov %damage_keigen5,100

if %enemy_num<6 skip 6
mov %damage_keigen6b,%damage_keigen6		
mov %damage_keigen6c,100-%damage_keigen6
mov %damage_keigen6c,%damage_keigen6c/2
mov %damage_keigen6,%damage_keigen6+%damage_keigen6c
if %damage_keigen6>100 mov %damage_keigen6,100

if %enemy_num<7 skip 6
mov %damage_keigen7b,%damage_keigen7
mov %damage_keigen7c,100-%damage_keigen7
mov %damage_keigen7c,%damage_keigen7c/2
mov %damage_keigen7,%damage_keigen7+%damage_keigen7c
if %damage_keigen7>100 mov %damage_keigen7,100

if %enemy_num<8 skip 6
mov %damage_keigen8b,%damage_keigen8		
mov %damage_keigen8c,100-%damage_keigen8
mov %damage_keigen8c,%damage_keigen8c/2
mov %damage_keigen8,%damage_keigen8+%damage_keigen8c
if %damage_keigen8>100 mov %damage_keigen8,100

gosub *enemylife ;handle defense code here

if %ng<1 || %earth<1 skip 10
if %enemy_num<2 mov %damage_keigen,%damage_keigenb:skip 9
mov %damage_keigen1,%damage_keigen1b
mov %damage_keigen2,%damage_keigen2b
mov %damage_keigen3,%damage_keigen3b
mov %damage_keigen4,%damage_keigen4b
mov %damage_keigen5,%damage_keigen5b
mov %damage_keigen6,%damage_keigen6b
mov %damage_keigen7,%damage_keigen7b
mov %damage_keigen8,%damage_keigen8b

if %wind!=5 skip 14

>A second blast of energy follows in the wake of the first!\

dwave 1,"se\damage2.ogg"
mov %abairitu,700+%mylv*6
if %alive_num>1 mov %abairitu,%abairitu*70/100
if %alive_num>2 mov %abairitu,%abairitu*70/100
if %alive_num>3 mov %abairitu,%abairitu*70/100
if %alive_num>4 mov %abairitu,%abairitu*70/100
if %alive_num>5 mov %abairitu,%abairitu*70/100
if %alive_num>6 mov %abairitu,%abairitu*70/100
if %alive_num>7 mov %abairitu,%abairitu*70/100
gosub *enemylife

skillname ""
if %ng>0 && %earth>0 && $lavel!="kraken_ng" mov %damage_keigen,%damage_keigenb
if %skill_sub>1 return
mov %target_all,0
goto *common_attack_end



*skill22;

mov %mp_charge,0
mov %before_action,33
name "Luka"
>............\
name ""
mov %mp,%mp-4
gosub *mp
skillname "Magic Concentration"
dwave 1,"se\power.ogg"
>Luka's eyes close as overwhelming magical energy fills the air!\
skillname ""
if %skill_sub>1 return
mov %daten,1
goto *common_attack_end



*skill22x;

if %enemy_num>1 mov %target_all,1
mov %is_attack,1
mov %guard_break,0
mov %used_daystar,1
mov %daten,0
csp 690
csp 699
gosub *face3
gosub *counter
textclear
if %aqua<>3 && %ng<1 skillname "Daystar"
if %aqua=3 && %ng<1 skillname "Infallible Daystar"
if %aqua<2 && %ng<1 skillname "Daystar"
if %aqua>1 && %undine_get>0 && %ng<1 skillname "Infallible Daystar"

if %undine_get<1 && %ng>0 skillname "Daystar"
if %undine_get>0 && %aqua>1 && %ng>0 skillname "Infallible Daystar"

rnd2 %ransu,1,3
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill22","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill22","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill22","skill_sel3"
name $ori_name
if %player=99 skip 4
>My mother is the Star of Morning, the child of dawn.
mov %mp,%mp-4:gosub *mp
>The star thrown to the Earth shall obtain victory!\
skip 2
``$sel1\
name ""
vspl 3,650,0
if %aqua<2 skip 7
if %ng>0 && %undine_get<1 skip 6
if %aqua<>3 && %ng<1 skip 5
dwave 2,"se\aqua2.ogg"
lsp2 0,":c;2Q\effectOG\cutin_ruka_aqua.png",600,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_aqua.png",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
if %aqua<>3 skillname "Daystar"
if %aqua=3 && %ng<1 skillname "Infallible Daystar"
if %aqua>1 && %ng>0 && %undine_get>0 skillname "Infallible Daystar"
>A dazzling star falls into hell!
wait 300
dwave 1,"se\bom3.ogg"
lsp 2,":c;2Q\effectOG\002.png",0,0:print 18,1000,"system\mask01.jpg"
flushout 1000
csp 2
bg white,10,1000
if %aqua!=2 && %SQ2=0 bg "bg\"+$haikei+".bmp",10,1000
if %aqua!=2 && %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,1000
if %aqua=2 bg black,10,1000
textclear
if %nostar=1 goto "*"+$lavel+"_nostar"
if %nostar>1 mov %nostar,%nostar-1
dwave 1,"se\damage2.ogg"
if %aqua=0 && %fire=0 mov %abairitu,450+%mylv*9/2
if %aqua>0 && %fire=0 mov %abairitu,600+%mylv*6
if %aqua=0 && %fire>0 mov %abairitu,600+%mylv*6
if %aqua>0 && %fire>0 mov %abairitu,700+%mylv*7
if %aqua>0 && %undine_get>0 && %fire=0 mov %abairitu,750+%mylv*6
if %aqua>0 && %undine_get>0 && %fire>0 mov %abairitu,850+%mylv*8
if %enemy_num>1 mov %abairitu,%abairitu*70/100
if %enemy_num>2 mov %abairitu,%abairitu*70/100
if %enemy_num>3 mov %abairitu,%abairitu*70/100
if %enemy_num>4 mov %abairitu,%abairitu*70/100
if %enemy_num>5 mov %abairitu,%abairitu*70/100
if %enemy_num>6 mov %abairitu,%abairitu*70/100
if %enemy_num>7 mov %abairitu,%abairitu*70/100
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\damage2.ogg"
if %aqua=0 && %fire=0 mov %abairitu,450+%mylv*9/2
if %aqua>0 && %fire=0 mov %abairitu,500+%mylv*5
if %aqua=0 && %fire>0 mov %abairitu,600+%mylv*6
if %aqua>0 && %fire>0 mov %abairitu,700+%mylv*7
if %aqua>0 && %undine_get>0 && %fire=0 mov %abairitu,750+%mylv*6
if %aqua>0 && %undine_get>0 && %fire>0 mov %abairitu,850+%mylv*8
if %enemy_num>1 mov %abairitu,%abairitu*80/100
if %enemy_num>2 mov %abairitu,%abairitu*80/100
if %enemy_num>3 mov %abairitu,%abairitu*80/100
if %enemy_num>4 mov %abairitu,%abairitu*80/100
if %enemy_num>5 mov %abairitu,%abairitu*80/100
if %enemy_num>6 mov %abairitu,%abairitu*80/100
if %enemy_num>7 mov %abairitu,%abairitu*80/100
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\damage2.ogg"
if %aqua=0 && %fire=0 mov %abairitu,450+%mylv*9/2
if %aqua>0 && %fire=0 mov %abairitu,600+%mylv*6
if %aqua=0 && %fire>0 mov %abairitu,600+%mylv*6
if %aqua>0 && %fire>0 mov %abairitu,700+%mylv*7
if %aqua>0 && %undine_get>0 && %fire=0 mov %abairitu,750+%mylv*6
if %aqua>0 && %undine_get>0 && %fire>0 mov %abairitu,850+%mylv*8
if %enemy_num>1 mov %abairitu,%abairitu*80/100
if %enemy_num>2 mov %abairitu,%abairitu*80/100
if %enemy_num>3 mov %abairitu,%abairitu*80/100
if %enemy_num>4 mov %abairitu,%abairitu*80/100
if %enemy_num>5 mov %abairitu,%abairitu*80/100
if %enemy_num>6 mov %abairitu,%abairitu*80/100
if %enemy_num>7 mov %abairitu,%abairitu*80/100
mov %damage_nobr,2:gosub *enemylife
skillname ""
if %enemylife=0 return "*"+$lavel+"_v"
gosub *face1
mov %cmd1,44
mov %target_all,0
return



*skill23

mov %mp_charge,0
mov %before_action,56
name "Luka"
>Infallible and unfailing... The Dance of the Fallen!\
name ""
skillname "Fallen Angel Dance"
mov %mp,%mp-2
gosub *mp
mov %wind,4:mov %wind_turn,12
if %ng<1 mov %earth,0:mov %earth_turn,0
if %ng<1 | %skill04<2 mov %aqua,0:mov %aqua_turn,0
if %ng<1 mov %fire,0:mov %fire_turn,0
dwave 1,"se\bun.ogg"
bg "bg\"+$haikei+".bmp",99,700,"system\lngtwave.dll/vwi"
gosub *elm_print
>Luka becomes one with a sacred wave!\
skillname ""
goto *common_a



*skill7d

mov %before_action,43
mov %count_wind,%count_wind+1
name "Luka "
>Infallible and unfailing... The Dance of the Fallen! \
name ""
mov %mp,%mp-2
gosub *mp
skillname "Fallen Angel Dance "
wait 500
mov %wind,4:mov %wind_turn,12
dwave 2,"se\bun.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
if %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,99,700,"system\lngtwave.dll/vwi":skip 2
bg "bg\"+$haikei+".bmp",99,700,"system\lngtwave.dll/vwi"
gosub *elm_print
>Luka becomes one with a sacred wave!\
skillname ""
goto *common_a



*skill7e

mov %before_action,43
mov %count_wind,%count_wind+1
rnd2 %ransu,1,3
mov $sel1,"Infallible and unfailing... The Dance of the Fallen!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill23","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill23","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill23","skill_sel3"
name $ori_name
``$sel1\
name ""
mov %mp,%mp-1
gosub *mp
skillname "Fallen Angel Dance: Gale "
wait 500
mov %wind,3:mov %wind_turn,16
dwave 2,"se\bun.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
if %mon_labo_on=1 && %bg_ori=1 bg $mon_labo_mon_folder+"\"+$haikei,99,700,"system\lngtwave.dll/vwi":skip 2
bg "BG\"+$haikei+".bmp",99,700,"system\lngtwave.dll/vwi"
gosub *elm_print
>Luka becomes one with a sacred wave!\
skillname ""
goto *common_a



*skill24

if %enemy_num>1 gosub *enemy_target
mov %mp_charge,0
mov %is_attack,1
mov %before_action,34
rnd2 %ransu,1,3
mov $sel1,"The power of the Four Spirits, in my hand!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill24","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill24","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill24","skill_sel3"
name $ori_name
``$sel1
>\
name ""
mov %mp,%mp-10
gosub *mp
lsp 1,":a/2,0,3;system\select_window2.jpg",150,20
lsp 0,":s/24,24,0;#FFFFFFElement Spica",292,33:print 1
vspl 3,650,0
dwave 2,"se\wind2.ogg"
lsp2 2,":c;2Q\effectOG\cutin_wind.png",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;2Q\effectOG\cutin_wind.png",0,0:print 1
dwave 3,"se\earth1.ogg"
lsp2 2,":c;2Q\effectOG\cutin_earth.png",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;2Q\effectOG\cutin_earth.png",200,0:print 1
dwave 4,"se\aqua2.ogg"
lsp2 3,":c;2Q\effectOG\cutin_aqua.png",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;2Q\effectOG\cutin_aqua.png",400,0:print 1
dwave 5,"se\fire2.ogg"
lsp2 4,":c;2Q\effectOG\cutin_fire.png",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;2Q\effectOG\cutin_fire.png",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
lsp 590,":s/24,24,0;#FFFFFFElement Spica",292,33:print 1
print 1
>The power of the Four Spirits infuses Luka's right arm as he swings with       destructive force!
wait 500
lsp 2,":a/8,80,1;2Q\effectOG\029.png",0,0:print 1
dwave 1,"se\karaburi.ogg"
wait 160
dwave 3,"se\earth1.ogg"
wait 160
dwave 5,"se\fire2.ogg"
wait 160
dwave 2,"se\wind2.ogg"
wait 160
csp 2:print 10,10
if %skill_sub=1 return
textclear

if %enemy_num>1 skip 5
if %enemy_earth<1 && %enemy_wind<1 && %enemy_aqua<1 && %enemy_fire<1 skip 44
mov $sel1,"But "+$name+"'s elemental power weakened the blow!"
``$sel1\
skip 41

if %enemy_target!=1 skip 4
if %enemy1_earth<1 && %enemy1_wind<1 && %enemy1_aqua<1 && %enemy1_fire<1 skip 3
mov $sel1,"But "+$name1+"'s elemental power weakened the blow!" 
``$sel1\

if %enemy_target!=2 skip 4
if %enemy2_earth<1 && %enemy2_wind<1 && %enemy2_aqua<1 && %enemy2_fire<1 skip 3
mov $sel1,"But "+$name2+"'s elemental power weakened the blow!" 
``$sel1\

if %enemy_target!=3 skip 4
if %enemy3_earth<1 && %enemy3_wind<1 && %enemy3_aqua<1 && %enemy3_fire<1 skip 3
mov $sel1,"But "+$name3+"'s elemental power weakened the blow!" 
``$sel1\

if %enemy_target!=4 skip 4
if %enemy4_earth<1 && %enemy4_wind<1 && %enemy4_aqua<1 && %enemy4_fire<1 skip 3
mov $sel1,"But "+$name4+"'s elemental power weakened the blow!" 
``$sel1\

if %enemy_target!=5 skip 4
if %enemy5_earth<1 && %enemy5_wind<1 && %enemy5_aqua<1 && %enemy5_fire<1 skip 3
mov $sel1,"But "+$name5+"'s elemental power weakened the blow!" 
``$sel1\

if %enemy_target!=6 skip 4
if %enemy6_earth<1 && %enemy6_wind<1 && %enemy6_aqua<1 && %enemy6_fire<1 skip 3
mov $sel1,"But "+$name6+"'s elemental power weakened the blow!" 
``$sel1\

if %enemy_target!=7 skip 4
if %enemy7_earth<1 && %enemy7_wind<1 && %enemy7_aqua<1 && %enemy7_fire<1 skip 3
mov $sel1,"But "+$name7+"'s elemental power weakened the blow!" 
``$sel1\

if %enemy_target!=8 skip 4
if %enemy8_earth<1 && %enemy8_wind<1 && %enemy8_aqua<1 && %enemy8_fire<1 skip 3
mov $sel1,"But "+$name8+"'s elemental power weakened the blow!" 
``$sel1\


dwave 1,"se\damage2.ogg"
if $lavel="kraken_ng" && %enemy_aqua>0 mov %damage_keigen,50
mov %abairitu,3000+%mylv*20

if %enemy_num>1 skip 6
if %enemy_wind>0 mov %abairitu,%abairitu/2
if %enemy_earth>0 mov %abairitu,%abairitu/2
if %enemy_aqua>0 mov %abairitu,%abairitu/2
if %enemy_fire>0 mov %abairitu,%abairitu/2
skip 49

if %enemy_target!=1 skip 5
if %enemy1_wind>0 mov %abairitu,%abairitu/2
if %enemy1_earth>0 mov %abairitu,%abairitu/2
if %enemy1_aqua>0 mov %abairitu,%abairitu/2
if %enemy1_fire>0 mov %abairitu,%abairitu/2

if %enemy_target!=2 skip 5
if %enemy2_wind>0 mov %abairitu,%abairitu/2
if %enemy2_earth>0 mov %abairitu,%abairitu/2
if %enemy2_aqua>0 mov %abairitu,%abairitu/2
if %enemy2_fire>0 mov %abairitu,%abairitu/2

if %enemy_target!=3 skip 5
if %enemy3_wind>0 mov %abairitu,%abairitu/2
if %enemy3_earth>0 mov %abairitu,%abairitu/2
if %enemy3_aqua>0 mov %abairitu,%abairitu/2
if %enemy3_fire>0 mov %abairitu,%abairitu/2

if %enemy_target!=4 skip 5
if %enemy4_wind>0 mov %abairitu,%abairitu/2
if %enemy4_earth>0 mov %abairitu,%abairitu/2
if %enemy4_aqua>0 mov %abairitu,%abairitu/2
if %enemy4_fire>0 mov %abairitu,%abairitu/2

if %enemy_target!=5 skip 5
if %enemy5_wind>0 mov %abairitu,%abairitu/2
if %enemy5_earth>0 mov %abairitu,%abairitu/2
if %enemy5_aqua>0 mov %abairitu,%abairitu/2
if %enemy5_fire>0 mov %abairitu,%abairitu/2

if %enemy_target!=6 skip 5
if %enemy6_wind>0 mov %abairitu,%abairitu/2
if %enemy6_earth>0 mov %abairitu,%abairitu/2
if %enemy6_aqua>0 mov %abairitu,%abairitu/2
if %enemy6_fire>0 mov %abairitu,%abairitu/2

if %enemy_target!=7 skip 5
if %enemy7_wind>0 mov %abairitu,%abairitu/2
if %enemy7_earth>0 mov %abairitu,%abairitu/2
if %enemy7_aqua>0 mov %abairitu,%abairitu/2
if %enemy7_fire>0 mov %abairitu,%abairitu/2

if %enemy_target!=8 skip 5
if %enemy8_wind>0 mov %abairitu,%abairitu/2
if %enemy8_earth>0 mov %abairitu,%abairitu/2
if %enemy8_aqua>0 mov %abairitu,%abairitu/2
if %enemy8_fire>0 mov %abairitu,%abairitu/2

gosub *enemylife
skillname ""
if %skill_sub>1 return
goto *common_attack_end

*skill25

if %skillset=1 mov %sentaku,1:goto *skill25b
wait 500
name "Sylph"
>Luka!@
>Do you just want my wind, or do you want to combine it with your holy power?\
name ""
csel "Devastating Gale",*skill25b,"Fallen Angel Dance",*skill25b

*skill25b

if %aqua=2 mov %aqua_end,1
mov %before_action,57
mov %count_wind,%count_wind+1
mov %count_earth,%count_earth+1
mov %count_aqua,%count_aqua+1
mov %count_fire,%count_fire+1
rnd2 %ransu,1,3
mov $sel1,"Here we go, everyone!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill7","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill7","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill7","skill_sel3"
name $ori_name
``$sel1
>\
name ""
mov %mp,%mp-6
gosub *mp
if %sentaku=1 mov %wind,3:mov %wind_turn,16
if %sentaku=2 mov %wind,4:mov %wind_turn,12
mov %earth,3:mov %earth_turn,16
mov %aqua,3:mov %aqua_turn,16
mov %fire,3:mov %fire_turn,5
lsp 1,":a/2,0,3;system\select_window2.jpg",150,20
lsp 0,":s/24,24,0;#FFFFFFQuad Spirit Summon",312,33:print 1
vspl 3,650,0
dwave 2,"se\wind2.ogg"
lsp2 2,":c;2Q\effectOG\cutin_wind.png",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;2Q\effectOG\cutin_wind.png",0,0:print 1
dwave 3,"se\earth1.ogg"
lsp2 2,":c;2Q\effectOG\cutin_earth.png",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;2Q\effectOG\cutin_earth.png",200,0:print 1
dwave 4,"se\aqua2.ogg"
lsp2 3,":c;2Q\effectOG\cutin_aqua.png",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;2Q\effectOG\cutin_aqua.png",400,0:print 1
dwave 5,"se\fire2.ogg"
lsp2 4,":c;2Q\effectOG\cutin_fire.png",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;2Q\effectOG\cutin_fire.png",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
lsp 590,":s/24,24,0;#FFFFFFQuad Spirit Summon",312,33:print 1
print 1
gosub *elm_print
>Luka summons all four spirits at once!\
skillname ""
goto *common_a

*gt2_spcharge

saveoff
textoff
cspl 3,7:cspl 600,610
btndef clear
gosub *setwindow_02p
mov %before_action,1
name $ori_name
>........................\
dwave 1,"se\power.ogg"
name ""
if %enemy_wind<2 >Luka focuses his magic!@
if %enemy_wind>1 >Luka focuses his magic!\
if %enemy_wind>1 && %enemy_holy!=1 && %enemy_holy!=2 && %bougyo<1 textclear:goto "*"+$lavel+"_chargecancel"
if %enemy_wind>1 && %enemy_holy!=1 && %skill01<27 textclear:goto "*"+$lavel+"_chargecancel"
if %nocharge>0 textclear:goto "*"+$lavel+"_chargecancel"

; special cases
if $lavel="bess_ng" && %hanyo2>0 goto *bess_ng_chargecancel

mov %mp,%mp+2
mov %mp,%mp+%mp_charge
mov %mp_charge,%mp_charge+1
if %mp_charge<2 mov %mp_charge,1
if %mp>%max_mp mov %mp,%max_mp
gosub *mp
>Luka regained SP!\
if %guard_on=1 && %skill01>26 && %fire<1 mov %bougyo,2
goto *common_attack_end

*skill_salafinal

rnd2 %ransu,1,3
if %ransu=%ren skip -1
mov %ren,%ransu
mov %mp,%mp-10:gosub *mp
if %ransu=1 mov $sel1,"Our white fire shall burn everything in our path!"
if %ransu=2 mov $sel1,"Oh mighty spirit of the flame, guide my blade of light to victory!"
if %ransu=3 mov $sel1,"Disappear in the burning white light!"
name "Luka"
``$sel1
>\
name ""
skillname "Holy Hellfire Slash"
dwave 2,"se\fire2.ogg"
lsp2 0,":c;2Q\effectOG\cutin_ruka_fire.png",600,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_fire.png",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
dwave 1,"se\bom3.ogg"
skillname "Holy Hellfire Slash"
>Holy energy erupts from Luka's blade in a white explosion while Salamander    creates a mighty fire!\
dwave 1,"se\power.ogg"
lsp 4,":c;system\ef_white.jpg",0,0:print 1,200
wait 500
lsp 2,":a/7,40,1;2Q\effectOG\014-01.png",0,0:print 1
dwave 10,"se\fire4.ogg"
wait 280
lsp 2,":a/7,40,1;2Q\effectOG\014-02.png",0,0:print 1
wait 280
lsp 3,":a;2Q\effectOG\fire.png",0,0:print 1,500
csp 2:csp 3:csp 4:print 1
dwave 1,"se\power.ogg"
>The white hot fire takes hold in Luka's blade as he strikes!\
mov %mp_charge,0
dwave 1,"se\slash.ogg"
dwave 9,"se\fire2.ogg"
skipoff
lsp 4,":a;2Q\effectOG\fire.png",0,0:print 1
lsp 2,":a/8,15,0;2Q\effectOG\005flicker.png",0,0:print 1
dwave 2,"se\slash.ogg"
wait 15
lsp 3,":a/2,15,0;2Q\effectOG\014_14flicker.png",0,0:print 1


for %move=0 to 5
wait 45*2
dwave %move+2,"se\slash.ogg"		;Ensures the audio doesn't overlap
next
wait 30*2
cspl 2,4:print 1,1000
return

rnd2 %abairitu,8000+%mylv*10,8000+%mylv*15
dwave 2,"se\damage2.ogg"
mov %damage_nobr,2:gosub *enemylife
dwave 1,"se\slash.ogg"
rnd2 %abairitu,5000+%mylv*8,5000+%mylv*15
mov %damage_nobr,2:gosub *enemylife
dwave 1,"se\slash.ogg"
rnd2 %abairitu,5000+%mylv*8,5000+%mylv*15
mov %damage_nobr,2:gosub *enemylife
dwave 1,"se\slash.ogg"
rnd2 %abairitu,5000+%mylv*8,5000+%mylv*15
mov %damage_nobr,2:gosub *enemylife
skillname ""
return

*spirit_skill

if %sylph_rep<=%undine_rep skip 16
if %sylph_rep<=%salamander_rep skip 15
if %sylph_rep<%gnome_rep skip 14
dwave 3,"se\tuki.ogg"
lsp 2,":c;2Q\effectOG\007.png",0,0:print 1
wait 100
csp 2:print 18,300,"system\mask01.jpg"
if %skill_sub=1 return
dwave 1,"se\slash4.ogg"
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15

if %salamander_rep<%sylph_rep skip 29
if %salamander_rep<%gnome_rep skip 28
if %salamander_rep<%undine_rep skip 27
gosub *skill16a
dwave 1,"se\slash.ogg"
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
dwave 1,"se\slash.ogg"
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
dwave 1,"se\slash.ogg"
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
dwave 1,"se\slash.ogg"
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
dwave 1,"se\slash.ogg"
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15

if %undine_rep<=%salamander_rep skip 15
if %undine_rep<%sylph_rep skip 14
if %undine_rep<%gnome_rep skip 13
dwave 3,"se\karaburi.ogg"
lsp 2,":c;2Q\effectOG\006a.png",0,0:print 1
wait 300
csp 2:print 18,500,"system\mask01.jpg"
vspl 3,650,1
dwave 4,"se\slash4.ogg"
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15

if %gnome_rep<=%salamander_rep skip 16
if %gnome_rep<=%sylph_rep skip 15
if %gnome_rep<=%undine_rep skip 14
dwave 1,"se\karaburi.ogg"
lsp 2,":c;2Q\effectOG\earth.png",0,0:print 1
wait 300
csp 2:print 18,500,"system\mask01.jpg"
dwave 1,"se\bom2.ogg"
quake 10,1000
dwave 1,"se\damage2.ogg"
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
return


*aliskill1b

if %enemy_num>1 skip 4
mov %burn_turn,8
mov $sel1,$name+" has gotten burned!"
``$sel1\

if %enemy_num<2 skip 11
if %enemy_target=1 mov %burn_target1,1:mov %burn_turn1,8:mov $sel1,$name1+" has gotten burned!":if %freeze_turn1>0 mov %freeze_turn1,0
if %enemy_target=2 mov %burn_target2,1:mov %burn_turn2,8:mov $sel1,$name2+" has gotten burned!":if %freeze_turn2>0 mov %freeze_turn2,0
if %enemy_target=3 mov %burn_target3,1:mov %burn_turn3,8:mov $sel1,$name3+" has gotten burned!":if %freeze_turn3>0 mov %freeze_turn3,0
if %enemy_target=4 mov %burn_target4,1:mov %burn_turn4,8:mov $sel1,$name4+" has gotten burned!":if %freeze_turn4>0 mov %freeze_turn4,0
if %enemy_target=5 mov %burn_target5,1:mov %burn_turn5,8:mov $sel1,$name5+" has gotten burned!":if %freeze_turn5>0 mov %freeze_turn5,0
if %enemy_target=6 mov %burn_target6,1:mov %burn_turn6,8:mov $sel1,$name6+" has gotten burned!":if %freeze_turn6>0 mov %freeze_turn6,0
if %enemy_target=7 mov %burn_target7,1:mov %burn_turn7,8:mov $sel1,$name7+" has gotten burned!":if %freeze_turn7>0 mov %freeze_turn7,0
if %enemy_target=8 mov %burn_target8,1:mov %burn_turn8,8:mov $sel1,$name8+" has gotten burned!":if %freeze_turn8>0 mov %freeze_turn8,0
if %enemy_target=9 mov %burn_target9,1:mov %burn_turn9,8:mov $sel1,$name9+" has gotten burned!":if %freeze_turn9>0 mov %freeze_turn9,0
``$sel1\
return

*aliskill1

cspl 601,610:print 10,1
if %enemy_num>1 gosub *enemy_target
gosub *setwindow_02
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"Your flesh will be seared from your bones!"
if %ransu=2 mov $sel1,"Burn to ash!"
name "Alice"
lsp 699,":a;2Q\chara\"+$alice_st+"03b.png",-133,0:gosub *face3
``$sel1
> \
name ""
mov %alicemp,%alicemp-4
gosub *mp
skillname "Omega Blaze"
if %enemy_num>1 csp 699:print 10,500
>Alice unleashes a storm of fire! 
dwave 2,"se\fire1.ogg"
lsp 699,":a;2Q\effectOG\fire.png",0,0:print 10,1000
dwave 1,"2Q\se\omegablaze.ogg"
lsp 698,":a/7,40,1;2Q\effectOG\014-01.png",0,0:print 1
wait 280
lsp 698,":a/7,40,1;2Q\effectOG\014-02.png",0,0:print 1
wait 280
cspl 698,699:print 10,1
dwave 1,"se\tuki.ogg"
mov %abairitu,500+%mylv*7
dwave 1,"se\damage2.ogg"
mov $ori_name,"Alice"
gosub *enemylife
mov $ori_name,"Luka"

rnd2 %ransu,1,100
if %ransu<101 gosub *aliskill1b

skillname ""
csp 699
if %enemylife=0 return "*"+$lavel+"_v"
csp 699:gosub *face1:return


*aliskill2b

dwave 1,"2Q\se\iceeffect_freeze.ogg"
wait 1000
if %enemy_num>1 skip 4
mov %freeze_turn,4
mov $sel1,$name+" has been frozen solid!"
``$sel1\

if %enemy_num<2 skip 11
if %enemy_target=1 mov %freeze_target1,1:mov %freeze_turn1,3:mov $sel1,$name1+" has been frozen solid!":if %burn_turn1>0 mov %burn_turn1,0
if %enemy_target=2 mov %freeze_target2,1:mov %freeze_turn2,3:mov $sel1,$name2+" has been frozen solid!":if %burn_turn2>0 mov %burn_turn2,0
if %enemy_target=3 mov %freeze_target3,1:mov %freeze_turn3,3:mov $sel1,$name3+" has been frozen solid!":if %burn_turn3>0 mov %burn_turn3,0
if %enemy_target=4 mov %freeze_target4,1:mov %freeze_turn4,3:mov $sel1,$name4+" has been frozen solid!":if %burn_turn4>0 mov %burn_turn4,0
if %enemy_target=5 mov %freeze_target5,1:mov %freeze_turn5,3:mov $sel1,$name5+" has been frozen solid!":if %burn_turn5>0 mov %burn_turn5,0
if %enemy_target=6 mov %freeze_target6,1:mov %freeze_turn6,3:mov $sel1,$name6+" has been frozen solid!":if %burn_turn6>0 mov %burn_turn6,0
if %enemy_target=7 mov %freeze_target7,1:mov %freeze_turn7,3:mov $sel1,$name7+" has been frozen solid!":if %burn_turn7>0 mov %burn_turn7,0
if %enemy_target=8 mov %freeze_target8,1:mov %freeze_turn8,3:mov $sel1,$name8+" has been frozen solid!":if %burn_turn8>0 mov %burn_turn8,0
if %enemy_target=9 mov %freeze_target9,1:mov %freeze_turn9,3:mov $sel1,$name9+" has been frozen solid!":if %burn_turn9>0 mov %burn_turn9,0
``$sel1\
return

*aliskill2

cspl 601,610:print 10,1
if %enemy_num>1 gosub *enemy_target
gosub *setwindow_02
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"Now...Freeze to death."
if %ransu=2 mov $sel1,"The sheer cold will destroy your body..."
name "Alice"
lsp 699,":a;2Q\chara\"+$alice_st+"03b.png",-133,0:gosub *face3
``$sel1
> \
name ""
mov %alicemp,%alicemp-4
gosub *mp
skillname "Frost Ozma"
if %enemy_num>1 csp 699:print 10,500
>Pure magic flows off of Alice, freezing the air around her! 
dwave 2,"se\wind3.ogg"
wait 1500
dwave 1,"2Q\se\frostozma.ogg"
lsp 698,":a/8,<0,300,300,300,300,300,300,300>,1;2Q\effectOG\025.png",0,0:print 10,1
wait 2800
cspl 698,699:print 10,1
>\
mov %abairitu,500+%mylv*7
dwave 1,"se\damage2.ogg"
mov $ori_name,"Alice"
gosub *enemylife
mov $ori_name,"Luka"

rnd2 %ransu,1,100
if %ransu<101 gosub *aliskill2b

skillname ""
csp 699
if %enemylife=0 return "*"+$lavel+"_v"
csp 699:gosub *face1:return


*aliskill3

cspl 601,610:print 10,1
if %enemy_num>1 gosub *enemy_target
gosub *setwindow_02
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"I'll show you the true power of darkness!"
if %ransu=2 mov $sel1,"This is the Monster Lord's true power!"
name "Alice"
lsp 699,":a;2Q\chara\"+$alice_st+"03b.png",-133,0:gosub *face3
``$sel1
> \
name ""
mov %alicemp,%alicemp-6
gosub *mp
skillname "Monster Lord's Cruelty "
csp 699:print 10,500
dwave 1,"se\bom1.ogg"
>The power of darkness radiates from Alice!
wait 300
flushout 1000
;vsp 700,0
;vsp 701,0
;vsp 702,0
mov $ori_name,"Alice"
lsp 612,":c;system\ef_white.jpg",0,0:print 10,1000
mov %abairitu,300+%mylv*9/2
dwave 2,"se\damage2.ogg"
quake 10,600
gosub *enemylife
mov %abairitu,300+%mylv*9/2
dwave 2,"se\damage2.ogg"
quake 10,600
gosub *enemylife
mov %abairitu,300+%mylv*9/2
dwave 2,"se\damage2.ogg"
quake 10,600
gosub *enemylife
mov $ori_name,"Luka"
skillname ""
if %SQ2=0 bg "bg\"+$haikei+".bmp",7,1500
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",7,1500
csp 699:csp 612
if %enemylife=0 return "*"+$lavel+"_v"
csp 699:gosub *face1:return


*aliskill4

cspl 601,610:print 10,1
gosub *setwindow_02
name "Alice"
lsp 699,":a;2Q\chara\"+$alice_st+"03b.png",-133,0:gosub *face3
>You want me to heal you?@
>I'm not going to kiss you...\
mov %alicemp,%alicemp-8
name ""
skillname "Eye of Recovery "
wait 200
>The power of restoration fills Alice's eyes as she stares into Luka's eyes!@
dwave 2,"se\kaihuku.ogg"
mov %damage,%max_mylife
>Luka has been completely healed! \
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 %max_mylife<%mylife*5 gosub *face1

if %status!=9 skip 6
mov %poison,-1
mov %status,0
dwave 1,"se\item.ogg"
gosub *status_print:gosub *elm_print
>...And the poison fades from Luka's body!\

if %enemylife=0 return "*"+$lavel+"_v"
csp 699:gosub *face1:return


*grskill1

cspl 601,610:print 10,1
if %enemy_num>1 gosub *enemy_target
mov %support_turn,1

lsp 699,":a;chara\granberia_st41.bmp",-200,0:gosub *face3
gosub *setwindow_02
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"With the strength to cut through a mountain...!"
if %ransu=2 mov $sel1,"Eat this!"
if %ransu=3 mov $sel1,"Take this!"
if %enemy_earth>0 mov $sel1,"Your defense is useless!"
name "Granberia"
``$sel1\
name ""
mov %knightmp,%knightmp-3
skillname "Dragon Butcher Attack "
if %enemy_num>1 csp 699:print 10,500
mov $sel1,"Granberia swings down her sword with crushing force!"
``$sel1\

dwave 1,"se\karaburi.ogg"
lsp 2,":c;2Q\effectOG\003.png",0,0:print 1
wait 1000
csp 2:print 10,500
rnd2 %ransu,1,100
mov %a_effect,1
rnd2 %ransu,1,201
mov %abairitu,899+%ransu
if %abairitu<1 rnd2 %ransu,1,10
if %abairitu<1 mov %damage,%ransu
if %abairitu<1 mov %abairitu,%ransu
if %enemy_num>1 skip 7
mov %damage_keigenb,%damage_keigen
mov %damage_keigenc,100-%damage_keigen
mov %damage_keigenc,%damage_keigenc/2
mov %damage_keigen,%damage_keigen+%damage_keigenc
if %damage_keigen>100 mov %damage_keigen,100
skip 57

if %enemy_target!=1 skip 6
mov %damage_keigen1b,%damage_keigen1					
mov %damage_keigen1c,100-%damage_keigen1
mov %damage_keigen1c,%damage_keigen1c/2
mov %damage_keigen1,%damage_keigen1+%damage_keigen1c
if %damage_keigen1>100 mov %damage_keigen1,100

if %enemy_target!=2 skip 6
mov %damage_keigen2b,%damage_keigen2			
mov %damage_keigen2c,100-%damage_keigen2
mov %damage_keigen2c,%damage_keigen2c/2
mov %damage_keigen2,%damage_keigen2+%damage_keigen2c
if %damage_keigen2>100 mov %damage_keigen2,100

if %enemy_target!=3 skip 6
mov %damage_keigen3b,%damage_keigen3			
mov %damage_keigen3c,100-%damage_keigen3
mov %damage_keigen3c,%damage_keigen3c/2
mov %damage_keigen3,%damage_keigen3+%damage_keigen3c
if %damage_keigen3>100 mov %damage_keigen3,100

if %enemy_target!=4 skip 6
mov %damage_keigen4b,%damage_keigen4		
mov %damage_keigen4c,100-%damage_keigen4
mov %damage_keigen4c,%damage_keigen4c/2
mov %damage_keigen4,%damage_keigen4+%damage_keigen4c
if %damage_keigen4>100 mov %damage_keigen4,100

if %enemy_target!=5 skip 6
mov %damage_keigen5b,%damage_keigen5		
mov %damage_keigen5c,100-%damage_keigen5
mov %damage_keigen5c,%damage_keigen5c/2
mov %damage_keigen5,%damage_keigen5+%damage_keigen5c
if %damage_keigen5>100 mov %damage_keigen5,100

if %enemy_target!=6 skip 6
mov %damage_keigen6b,%damage_keigen6		
mov %damage_keigen6c,100-%damage_keigen6
mov %damage_keigen6c,%damage_keigen6c/2
mov %damage_keigen6,%damage_keigen6+%damage_keigen6c
if %damage_keigen6>100 mov %damage_keigen6,100

if %enemy_target!=7 skip 6
mov %damage_keigen7b,%damage_keigen7
mov %damage_keigen7c,100-%damage_keigen7
mov %damage_keigen7c,%damage_keigen7c/2
mov %damage_keigen7,%damage_keigen7+%damage_keigen7c
if %damage_keigen7>100 mov %damage_keigen7,100

if %enemy_target!=8 skip 6
mov %damage_keigen8b,%damage_keigen8		
mov %damage_keigen8c,100-%damage_keigen8
mov %damage_keigen8c,%damage_keigen8c/2
mov %damage_keigen8,%damage_keigen8+%damage_keigen8c
if %damage_keigen8>100 mov %damage_keigen8,100

>\
mov $ori_name,"Granberia"
dwave 1,"se\damage2.ogg"
gosub *enemylife
mov $ori_name,"Luka"

if %enemy_num<2 mov %damage_keigen,%damage_keigenb
if %enemy_target=1 mov %damage_keigen1,%damage_keigen1b
if %enemy_target=2 mov %damage_keigen2,%damage_keigen2b
if %enemy_target=3 mov %damage_keigen3,%damage_keigen3b
if %enemy_target=4 mov %damage_keigen4,%damage_keigen4b
if %enemy_target=5 mov %damage_keigen5,%damage_keigen5b
if %enemy_target=6 mov %damage_keigen6,%damage_keigen6b
if %enemy_target=7 mov %damage_keigen7,%damage_keigen7b
if %enemy_target=8 mov %damage_keigen8,%damage_keigen8b

skillname ""
csp 699
if %enemylife=0 return "*"+$lavel+"_v"
if %skill_sub>1 return
csp 699:gosub *face1:return


*grskill2

cspl 601,610:print 10,1
if %enemy_num>1 gosub *enemy_target
mov %support_turn,1

if %enemy_num=1 mov $temp_name,$name
if %enemy_target=1 mov $temp_name,$name1
if %enemy_target=2 mov $temp_name,$name2
if %enemy_target=3 mov $temp_name,$name3
if %enemy_target=4 mov $temp_name,$name4
if %enemy_target=5 mov $temp_name,$name5
if %enemy_target=6 mov $temp_name,$name6
if %enemy_target=7 mov $temp_name,$name7
if %enemy_target=8 mov $temp_name,$name8

lsp 699,":a;chara\granberia_st41.bmp",-200,0:gosub *face3
gosub *setwindow_02
mov %before_action,22
rnd2 %ransu,1,1
if %ransu=1 mov $sel1,"Here I come!"
if %ransu=2 mov $sel1,"Can you dodge this!?"
if %ransu=3 mov $sel1,"Let's see how tough you really are!"
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill1","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill1","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill1","skill_sel3"
name "Granberia"
``$sel1\
name ""
mov %knightmp,%knightmp-2
skillname "Cursed Sword * Decapitation "
if %enemy_num>1 csp 699:print 10,500
mov $sel1,"Granberia quickly steps forward and aims a powerful slash at "+$temp_name+"'s neck!"
``$sel1\
dwave 1,"se\tuki.ogg"
lsp 2,":c;2Q\effectOG\006.png",0,0:print 1
csp 2:print 10,500
dwave 1,"se\damage.ogg"
rnd2 %ransu,1,301
mov %abairitu,799+%ransu
if %abairitu<1 rnd2 %ransu,1,10
if %abairitu<1 mov %damage,%ransu
if %abairitu<1 mov %abairitu,%ransu
mov $ori_name,"Granberia"
gosub *enemylife
mov $ori_name,"Luka"
skillname ""
csp 699
if %enemylife=0 return "*"+$lavel+"_v"
if %skill_sub>1 return
csp 699:gosub *face1:return


*grskill3

cspl 601,610:print 10,1
if %enemy_num>1 gosub *enemy_target
mov %support_turn,1
lsp 699,":a;chara\granberia_st41.bmp",-200,0:gosub *face3
gosub *setwindow_02
rnd2 %ransu,1,1
mov $sel1,"You won't dodge this! "
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill1","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill1","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill1","skill_sel3"
name "Granberia"
``$sel1\
name ""
mov %knightmp,%knightmp-2
skillname "Bloody Fissure Thunder Thrust * Gale "
if %enemy_num>1 csp 699:print 10,500
mov $sel1,"Granberia steps in like thunder, and quickly thrusts!"
``$sel1\
dwave 1,"se\tuki.ogg"
lsp 2,":a/10,30,0;2Q\effectOG\009flicker.png",%tukix,%tukiy:print 1
wait 30
lsp 3,":a/2,30,0;2Q\effectOG\windflicker.png",0,0:print 1
wait 30
wait 30*4*2
csp 2:csp 3:print 10,300
dwave 1,"se\damage.ogg"
rnd2 %ransu,1,201
if %turn>1 mov %abairitu,699+%ransu
if %turn<2 mov %abairitu,999+%ransu
if %abairitu<1 rnd2 %ransu,1,10
if %abairitu<1 mov %damage,%ransu
if %abairitu<1 mov %abairitu,%ransu
mov $ori_name,"Granberia"
gosub *enemylife
mov $ori_name,"Luka"
skillname ""
csp 699
if %skill_sub>1 return
if %enemylife=0 return "*"+$lavel+"_v"
mov %enemy_aqua,0
csp 699:gosub *face1:return


*grskill4

cspl 601,610:print 10,1
if %enemy_num>1 gosub *enemy_target
mov %support_turn,1

lsp 699,":a;chara\granberia_st41.bmp",-200,0:gosub *face3
gosub *setwindow_02
rnd2 %ransu,1,1
mov $sel1,"I'll crush you! "
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill1","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill1","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill1","skill_sel3"
name "Granberia"
``$sel1\
name ""
mov %knightmp,%knightmp-3
skillname "Demon Skull Beheading * Purgatory "
if %enemy_num>1 csp 699:print 10,500
mov $sel1,"Granberia jumps into the air and slams her blade down!"
``$sel1\
dwave 1,"se\karaburi.ogg"
lsp 2,":c;2Q\effectOG\003.png",0,0:print 1
wait 500
csp 2:print 10,500
rnd2 %ransu,1,100
dwave 1,"se\bom2.ogg"
rnd2 %ransu,1,301
mov %abairitu,1199+%ransu
if %abairitu<1 rnd2 %ransu,1,10
if %abairitu<1 mov %damage,%ransu
if %abairitu<1 mov %abairitu,%ransu
mov $ori_name,"Granberia"
gosub *enemylife
mov $ori_name,"Luka"
skillname ""
csp 699
if %enemylife=0 return "*"+$lavel+"_v"
if %skill_sub>1 return
csp 699:gosub *face1:return

*grskill5

cspl 601,610:print 10,1
if %enemy_num>1 gosub *enemy_target
mov %support_turn,1

lsp 699,":a;chara\granberia_st41.bmp",-200,0:gosub *face3
gosub *setwindow_02
mov %before_action,24
rnd2 %ransu,1,1
if %ransu=1 mov $sel1,"Like a shooting star...! "
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill6","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill6","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill6","skill_sel3"
name "Granberia"
``$sel1\
name ""
mov %knightmp,%knightmp-3
skillname "Death Sword Chaos Star "
if %enemy_num>1 csp 699:print 10,500
mov $sel1,"Granberia's sword flashes like a chaotic shooting star!"\
``$sel1\
mov $ori_name,"Granberia"
wait 500
lsp 2,":a/4,15,0;2Q\effectOG\005.png",0,0:print 1
dwave 1,"se\slash.ogg"
wait 15
dwave 2,"se\slash.ogg"
wait 85
dwave 3,"se\slash.ogg"
wait 120
csp 2:print 10,1000
mov %damage_keigenb,%damage_keigen					
mov %damage_keigenc,100-%damage_keigen
mov %damage_keigenc,%damage_keigenc/2
mov %damage_keigen,%damage_keigen-%damage_keigenc
if %damage_keigen<1 mov %damage_keigen,1
dwave 1,"se\slash.ogg"
mov %abairitu,120+%mylv*2
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
mov %abairitu,120+%mylv*2
mov %damage_nobr,1:gosub *enemylife
textclear
dwave 1,"se\slash.ogg"
mov %abairitu,120+%mylv*2
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
mov %abairitu,120+%mylv*2
mov %damage_nobr,1:gosub *enemylife
textclear
dwave 1,"se\slash.ogg"
mov %abairitu,120+%mylv*2
mov %damage_nobr,2:gosub *enemylife
\
mov %damage_keigen,%damage_keigenb
mov $ori_name,"Luka"
csp 699
skillname ""
if %enemylife=0 return "*"+$lavel+"_v"
if %skill_sub>1 return
csp 699:gosub *face1:return

*grskill6

if %grskill_typhoon<1 goto *grskill6a
if %grskill_typhoon>0 goto *grskill6b

*grskill6a

cspl 601,610:print 10,1
if %enemy_num>1 gosub *enemy_target
mov %support_turn,1

lsp 699,":a;chara\granberia_st41.bmp",-200,0:gosub *face3
gosub *setwindow_02
mov %before_action,29
name "Granberia"
mov $sel1,"Everything in my path shall be purged in flames! Vaporizing Rebellion Sword! "
``$sel1\
name ""
mov %knightmp,%knightmp-4
lsp 1,":a/2,0,3;system\select_window2.jpg",150,20
if %enemy_num>1 csp 699:print 10,500
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"
lsp 3,":a;2Q\effectOG\008.png",0,0:print 10,500
wait 500
gosub *skill16a
vspl 3,650,1
csp 0:csp 1
csp 3:print 10,500
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 $sel1,"With the flames of purgatory greatly amplifying the attack, Granberia slashes in a whirlwind of fire! "
``$sel1\
mov $ori_name,"Granberia"
dwave 1,"se\slash.ogg"
mov %abairitu,150+%mylv*3
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
mov %abairitu,150+%mylv*3
mov %damage_nobr,1:gosub *enemylife
textclear
dwave 1,"se\slash.ogg"
mov %abairitu,150+%mylv*3
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
mov %abairitu,150+%mylv*3
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
mov %abairitu,150+%mylv*3
mov %damage_nobr,2:gosub *enemylife
\
mov $ori_name,"Luka"
csp 699
skillname ""
if %enemylife=0 return "*"+$lavel+"_v"
if %skill_sub>1 return
csp 699:gosub *face1:return

*grskill6b

cspl 601,610:print 10,1
if %enemy_num>1 gosub *enemy_target
mov %support_turn,1

lsp 699,":a;chara\granberia_st41.bmp",-200,0:gosub *face3
gosub *setwindow_02
mov %before_action,29
name "Granberia"
mov $sel1,"Everything in my path shall be purged in flames! Vaporizing Rebellion Sword! "
``$sel1\
name ""
mov %knightmp,%knightmp-4
lsp 1,":a/2,0,3;system\select_window2.jpg",150,20
if %enemy_num>1 csp 699:print 10,500
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"
lsp 3,":a;2Q\effectOG\008.png",0,0:print 10,500
wait 500
gosub *skill16c
vspl 3,650,1
csp 0:csp 1
csp 3:print 10,500
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 $sel1,"With the flames of purgatory greatly amplifying the attack, Granberia slashes in a whirlwind of fire! "
``$sel1\
mov $ori_name,"Granberia"
dwave 1,"se\slash.ogg"
mov %abairitu,150+%mylv*3
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
mov %abairitu,150+%mylv*3
mov %damage_nobr,1:gosub *enemylife
textclear
dwave 1,"se\slash.ogg"
mov %abairitu,150+%mylv*3
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
mov %abairitu,150+%mylv*3
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
mov %abairitu,150+%mylv*3
mov %damage_nobr,2:gosub *enemylife
dwave 1,"se\slash.ogg"
mov %abairitu,100+%mylv*3
mov %damage_nobr,2:gosub *enemylife
dwave 1,"se\slash.ogg"
mov %abairitu,100+%mylv*3
mov %damage_nobr,2:gosub *enemylife
dwave 1,"se\slash.ogg"
mov %abairitu,100+%mylv*3
mov %damage_nobr,2:gosub *enemylife
\
mov $ori_name,"Luka"
csp 699
skillname ""
if %enemylife=0 return "*"+$lavel+"_v"
if %skill_sub>1 return
csp 699:gosub *face1:return

*grskill7

mov $temp_name,$name

cspl 601,610:print 10,1
if %enemy_num>1 mov %target_all,1
mov %support_turn,1
lsp 699,":a;chara\granberia_st41.bmp",-200,0:gosub *face3
gosub *setwindow_02
rnd2 %ransu,1,1
name "Granberia"
>Luka!@
>Use that star attack!\
name "Luka"
>Eh!?\
name "Granberia"
>Just trust me...\
name "Luka"
>A-alright!\
if %enemy_num>1 csp 699:print 10,500
if %aqua<1 skillname "Starblade"
if %aqua>0 skillname "Starblade * Tsunami"
mov %knightmp,%knightmp-10
mov %mp,%mp-8:gosub *mp
name ""
vspl 3,650,0
if %aqua<2 skip 7
if %ng>0 && %undine_get<1 skip 6
if %aqua<>3 && %ng<1 skip 5
dwave 2,"se\aqua2.ogg"
lsp2 0,":c;2Q\effectOG\cutin_ruka_aqua.png",600,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_aqua.png",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
if %aqua<>3 lsp 590,":s/24,24,0;#FFFFFFStarblade",340,33:print 1
if %aqua=3 && %ng<1 lsp 590,":s/24,24,0;#FFFFFFStarblade * Tsunami",304,33:print 1
if %aqua>1 && %ng>0 && %undine_get>0 lsp 590,":s/24,24,0;#FFFFFFStarblade * Tsunami",304,33:print 1
>A dazzling star falls into hell!
wait 300
dwave 1,"se\bom3.ogg"
lsp 2,":c;2Q\effectOG\002.png",0,0:print 18,1000,"system\mask01.jpg"
flushout 1000
csp 2
bg white,10,1000
if %aqua!=2 && %SQ2=0 bg "bg\"+$haikei+".bmp",10,1000
if %aqua!=2 && %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,1000
if %aqua=2 bg black,10,1000
if %ransu=1 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill10","skill_sel1"
if %ransu=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill10","skill_sel2"
if %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_skill10","skill_sel3"
>\
name "Granberia"
dwave 1,"se\fire2.ogg"
lsp 699,":a;chara\granberia_st42.bmp",-200,0:print 10,500
>Here we go!\
name ""
>Granberia jumps up toward the star!\
dwave 3,"se\karaburi.ogg"
csp 699:print 10,300
dwave 3,"se\karaburi.ogg"
lsp 699,":c;2Q\effectOG\006a.png",0,0:print 1
csp 699
lsp 2,":c;2Q\effectOG\002.png",0,0:print 18,1000,"system\mask01.jpg"
csp 2
wait 300
dwave 1,"se\karaburi.ogg"
if %enemy_num=1 csp 700:print 10,300
if %enemy_num>1 cspl 700,708:print 10,300
>She swings her flaming blade right into it!
dwave 1,"se\bom2.ogg"
quake 10,2000
>@
dwaveloop 6,"se\fire2.ogg"
dwave 1,"se\power.ogg"
>The light of the star reacts to the flames in the blade!\
>The powers of light and fire combine in Granberia's sword!\
dwave 1,"se\power.ogg"
wait 1000
dwave 1,"se\karaburi.ogg"
mov $sel1,"She slams the blade of light down on "+$temp_name+"!"
``$sel1\
name ""
dwavestop 6
dwave 1,"se\bom2.ogg"
wait 400
dwave 1,"se\bom3.ogg"
lsp 699,":c;system\ef_white.jpg",0,0:print 10,300
quake 10,2000
mov %a_effect1,1
if %aqua=0 && %fire=0 mov %abairitu,3500+%mylv*7
if %aqua=0 && %fire>0 mov %abairitu,3800+%mylv*8
if %aqua>0 && %fire=0 mov %abairitu,4000+%mylv*9
if %aqua>0 && %fire>0 mov %abairitu,4500+%mylv*10

if %enemy_num>1 skip 7
mov %damage_keigenb,%damage_keigen					; Dragon Butcher Attack eats defense like Demon Revival, damage_keigenb is a temp variable to hold damage_keigen
mov %damage_keigenc,100-%damage_keigen
mov %damage_keigenc,%damage_keigenc/2
mov %damage_keigen,%damage_keigen+%damage_keigenc
if %damage_keigen>100 mov %damage_keigen,100
skip 57

if %enemy_num<2 skip 6
mov %damage_keigen1b,%damage_keigen1					
mov %damage_keigen1c,100-%damage_keigen1
mov %damage_keigen1c,%damage_keigen1c/2
mov %damage_keigen1,%damage_keigen1+%damage_keigen1c
if %damage_keigen1>100 mov %damage_keigen1,100

if %enemy_num<2 skip 6
mov %damage_keigen2b,%damage_keigen2			
mov %damage_keigen2c,100-%damage_keigen2
mov %damage_keigen2c,%damage_keigen2c/2
mov %damage_keigen2,%damage_keigen2+%damage_keigen2c
if %damage_keigen2>100 mov %damage_keigen2,100

if %enemy_num<3 skip 6
mov %damage_keigen3b,%damage_keigen3			
mov %damage_keigen3c,100-%damage_keigen3
mov %damage_keigen3c,%damage_keigen3c/2
mov %damage_keigen3,%damage_keigen3+%damage_keigen3c
if %damage_keigen3>100 mov %damage_keigen3,100

if %enemy_num<4 skip 6
mov %damage_keigen4b,%damage_keigen4		
mov %damage_keigen4c,100-%damage_keigen4
mov %damage_keigen4c,%damage_keigen4c/2
mov %damage_keigen4,%damage_keigen4+%damage_keigen4c
if %damage_keigen4>100 mov %damage_keigen4,100

if %enemy_num<5 skip 6
mov %damage_keigen5b,%damage_keigen5		
mov %damage_keigen5c,100-%damage_keigen5
mov %damage_keigen5c,%damage_keigen5c/2
mov %damage_keigen5,%damage_keigen5+%damage_keigen5c
if %damage_keigen5>100 mov %damage_keigen5,100

if %enemy_num<6 skip 6
mov %damage_keigen6b,%damage_keigen6		
mov %damage_keigen6c,100-%damage_keigen6
mov %damage_keigen6c,%damage_keigen6c/2
mov %damage_keigen6,%damage_keigen6+%damage_keigen6c
if %damage_keigen6>100 mov %damage_keigen6,100

if %enemy_num<7 skip 6
mov %damage_keigen7b,%damage_keigen7
mov %damage_keigen7c,100-%damage_keigen7
mov %damage_keigen7c,%damage_keigen7c/2
mov %damage_keigen7,%damage_keigen7+%damage_keigen7c
if %damage_keigen7>100 mov %damage_keigen7,100

if %enemy_num<8 skip 6
mov %damage_keigen8b,%damage_keigen8		
mov %damage_keigen8c,100-%damage_keigen8
mov %damage_keigen8c,%damage_keigen8c/2
mov %damage_keigen8,%damage_keigen8+%damage_keigen8c
if %damage_keigen8>100 mov %damage_keigen8,100

mov $ori_name,"Granberia"
gosub *enemylife
mov $ori_name,"Luka"
csp 699

if %enemy_num<2 mov %damage_keigen,%damage_keigenb:skip 9
if %enemy_num>1 mov %damage_keigen1,%damage_keigen1b
if %enemy_num>1 mov %damage_keigen2,%damage_keigen2b	
if %enemy_num>2 mov %damage_keigen3,%damage_keigen3b	
if %enemy_num>3 mov %damage_keigen4,%damage_keigen4b	
if %enemy_num>4 mov %damage_keigen5,%damage_keigen5b	
if %enemy_num>5 mov %damage_keigen6,%damage_keigen6b	
if %enemy_num>6 mov %damage_keigen7,%damage_keigen7b	
if %enemy_num>7 mov %damage_keigen8,%damage_keigen8b		

skillname ""
csp 699:print 10,1000
if %enemylife=0 return "*"+$lavel+"_v"
gosub *face1
mov %target_all,0
return


*taskill1

cspl 601,610:print 10,1
if %enemy_num>1 gosub *enemy_target

if %enemy_num=1 mov $temp_name,$name
if %enemy_target=1 mov $temp_name,$name1
if %enemy_target=2 mov $temp_name,$name2
if %enemy_target=3 mov $temp_name,$name3
if %enemy_target=4 mov $temp_name,$name4
if %enemy_target=5 mov $temp_name,$name5
if %enemy_target=6 mov $temp_name,$name6
if %enemy_target=7 mov $temp_name,$name7
if %enemy_target=8 mov $temp_name,$name8

gosub *setwindow_02
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"Take this! My fluffy tail! "
if %ransu=2 mov $sel1,"Have a taste of my tail! "
name "Tamamo "
lsp 699,":a;chara\tamamo_st01.bmp",-200,0:gosub *face3
``$sel1
> \
name ""
mov %knightmp,%knightmp-2
gosub *mp
skillname "Tail Attack "
if %enemy_num>1 csp 699:print 10,500
mov $sel1,"Filling her tail with the power of the earth, Tamamo slams it into "+$temp_name+"!" 
``$sel1\
dwave 1,"se\tuki.ogg"
lsp 2,":a/4,60,1;2Q\effectOG\023.png",0,0:print 10,50
wait 240
csp 2:print 10,50
mov %abairitu,360+%mylv*3
dwave 1,"se\damage2.ogg"

if %enemy_num>1 skip 7
mov %damage_keigenb,%damage_keigen
mov %damage_keigenc,100-%damage_keigen
mov %damage_keigenc,%damage_keigenc/2
mov %damage_keigen,%damage_keigen+%damage_keigenc
if %damage_keigen>100 mov %damage_keigen,100
skip 57

if %enemy_target!=1 skip 6
mov %damage_keigen1b,%damage_keigen1					
mov %damage_keigen1c,100-%damage_keigen1
mov %damage_keigen1c,%damage_keigen1c/2
mov %damage_keigen1,%damage_keigen1+%damage_keigen1c
if %damage_keigen1>100 mov %damage_keigen1,100

if %enemy_target!=2 skip 6
mov %damage_keigen2b,%damage_keigen2			
mov %damage_keigen2c,100-%damage_keigen2
mov %damage_keigen2c,%damage_keigen2c/2
mov %damage_keigen2,%damage_keigen2+%damage_keigen2c
if %damage_keigen2>100 mov %damage_keigen2,100

if %enemy_target!=3 skip 6
mov %damage_keigen3b,%damage_keigen3			
mov %damage_keigen3c,100-%damage_keigen3
mov %damage_keigen3c,%damage_keigen3c/2
mov %damage_keigen3,%damage_keigen3+%damage_keigen3c
if %damage_keigen3>100 mov %damage_keigen3,100

if %enemy_target!=4 skip 6
mov %damage_keigen4b,%damage_keigen4		
mov %damage_keigen4c,100-%damage_keigen4
mov %damage_keigen4c,%damage_keigen4c/2
mov %damage_keigen4,%damage_keigen4+%damage_keigen4c
if %damage_keigen4>100 mov %damage_keigen4,100

if %enemy_target!=5 skip 6
mov %damage_keigen5b,%damage_keigen5		
mov %damage_keigen5c,100-%damage_keigen5
mov %damage_keigen5c,%damage_keigen5c/2
mov %damage_keigen5,%damage_keigen5+%damage_keigen5c
if %damage_keigen5>100 mov %damage_keigen5,100

if %enemy_target!=6 skip 6
mov %damage_keigen6b,%damage_keigen6		
mov %damage_keigen6c,100-%damage_keigen6
mov %damage_keigen6c,%damage_keigen6c/2
mov %damage_keigen6,%damage_keigen6+%damage_keigen6c
if %damage_keigen6>100 mov %damage_keigen6,100

if %enemy_target!=7 skip 6
mov %damage_keigen7b,%damage_keigen7
mov %damage_keigen7c,100-%damage_keigen7
mov %damage_keigen7c,%damage_keigen7c/2
mov %damage_keigen7,%damage_keigen7+%damage_keigen7c
if %damage_keigen7>100 mov %damage_keigen7,100

if %enemy_target!=8 skip 6
mov %damage_keigen8b,%damage_keigen8		
mov %damage_keigen8c,100-%damage_keigen8
mov %damage_keigen8c,%damage_keigen8c/2
mov %damage_keigen8,%damage_keigen8+%damage_keigen8c
if %damage_keigen8>100 mov %damage_keigen8,100

mov $ori_name,"Tamamo"
gosub *enemylife
mov $ori_name,"Luka"
skillname ""

if %enemy_num<2 mov %damage_keigen,%damage_keigenb
if %enemy_target=1 mov %damage_keigen1,%damage_keigen1b
if %enemy_target=2 mov %damage_keigen2,%damage_keigen2b
if %enemy_target=3 mov %damage_keigen3,%damage_keigen3b
if %enemy_target=4 mov %damage_keigen4,%damage_keigen4b
if %enemy_target=5 mov %damage_keigen5,%damage_keigen5b
if %enemy_target=6 mov %damage_keigen6,%damage_keigen6b
if %enemy_target=7 mov %damage_keigen7,%damage_keigen7b
if %enemy_target=8 mov %damage_keigen8,%damage_keigen8b

csp 699
if %enemylife=0 return "*"+$lavel+"_v"
csp 699:gosub *face1:return



*taskill2

cspl 601,610:print 10,1
if %enemy_num>1 gosub *enemy_target

if %enemy_num=1 mov $temp_name,$name
if %enemy_target=1 mov $temp_name,$name1
if %enemy_target=2 mov $temp_name,$name2
if %enemy_target=3 mov $temp_name,$name3
if %enemy_target=4 mov $temp_name,$name4
if %enemy_target=5 mov $temp_name,$name5
if %enemy_target=6 mov $temp_name,$name6
if %enemy_target=7 mov $temp_name,$name7
if %enemy_target=8 mov $temp_name,$name8

gosub *setwindow_02
lsp 699,":a;chara\tamamo_st04.bmp",-200,0:print 10,500
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"I'll crush you with the power of the earth! "
if %ransu=2 mov $sel1,"Hya! A true punch! "
name "Tamamo "
``$sel1
> \
name ""
mov %knightmp,%knightmp-3
gosub *mp
skillname "Tamamo Punch "
if %enemy_num>1 csp 699:print 10,500
mov $sel1,"Filling her fist with the power of the earth, Tamamo slams it into "+$temp_name+"!" 
``$sel1\
dwave 1,"se\dageki.ogg"
lsp 2,":a/5,30,1;2Q\effectOG\016.png",180,80:print 10,50
wait 150
csp 2:print 10,50
mov %abairitu,480+%mylv*3
dwave 1,"se\damage2.ogg"

if %enemy_num>1 skip 7
mov %damage_keigenb,%damage_keigen
mov %damage_keigenc,100-%damage_keigen
mov %damage_keigenc,%damage_keigenc/2
mov %damage_keigen,%damage_keigen+%damage_keigenc
if %damage_keigen>100 mov %damage_keigen,100
skip 57

if %enemy_target!=1 skip 6
mov %damage_keigen1b,%damage_keigen1					
mov %damage_keigen1c,100-%damage_keigen1
mov %damage_keigen1c,%damage_keigen1c/2
mov %damage_keigen1,%damage_keigen1+%damage_keigen1c
if %damage_keigen1>100 mov %damage_keigen1,100

if %enemy_target!=2 skip 6
mov %damage_keigen2b,%damage_keigen2			
mov %damage_keigen2c,100-%damage_keigen2
mov %damage_keigen2c,%damage_keigen2c/2
mov %damage_keigen2,%damage_keigen2+%damage_keigen2c
if %damage_keigen2>100 mov %damage_keigen2,100

if %enemy_target!=3 skip 6
mov %damage_keigen3b,%damage_keigen3			
mov %damage_keigen3c,100-%damage_keigen3
mov %damage_keigen3c,%damage_keigen3c/2
mov %damage_keigen3,%damage_keigen3+%damage_keigen3c
if %damage_keigen3>100 mov %damage_keigen3,100

if %enemy_target!=4 skip 6
mov %damage_keigen4b,%damage_keigen4		
mov %damage_keigen4c,100-%damage_keigen4
mov %damage_keigen4c,%damage_keigen4c/2
mov %damage_keigen4,%damage_keigen4+%damage_keigen4c
if %damage_keigen4>100 mov %damage_keigen4,100

if %enemy_target!=5 skip 6
mov %damage_keigen5b,%damage_keigen5		
mov %damage_keigen5c,100-%damage_keigen5
mov %damage_keigen5c,%damage_keigen5c/2
mov %damage_keigen5,%damage_keigen5+%damage_keigen5c
if %damage_keigen5>100 mov %damage_keigen5,100

if %enemy_target!=6 skip 6
mov %damage_keigen6b,%damage_keigen6		
mov %damage_keigen6c,100-%damage_keigen6
mov %damage_keigen6c,%damage_keigen6c/2
mov %damage_keigen6,%damage_keigen6+%damage_keigen6c
if %damage_keigen6>100 mov %damage_keigen6,100

if %enemy_target!=7 skip 6
mov %damage_keigen7b,%damage_keigen7
mov %damage_keigen7c,100-%damage_keigen7
mov %damage_keigen7c,%damage_keigen7c/2
mov %damage_keigen7,%damage_keigen7+%damage_keigen7c
if %damage_keigen7>100 mov %damage_keigen7,100

if %enemy_target!=8 skip 6
mov %damage_keigen8b,%damage_keigen8		
mov %damage_keigen8c,100-%damage_keigen8
mov %damage_keigen8c,%damage_keigen8c/2
mov %damage_keigen8,%damage_keigen8+%damage_keigen8c
if %damage_keigen8>100 mov %damage_keigen8,100

mov $ori_name,"Tamamo"
gosub *enemylife
mov $ori_name,"Luka"
skillname ""

if %enemy_num<2 mov %damage_keigen,%damage_keigenb
if %enemy_target=1 mov %damage_keigen1,%damage_keigen1b
if %enemy_target=2 mov %damage_keigen2,%damage_keigen2b
if %enemy_target=3 mov %damage_keigen3,%damage_keigen3b
if %enemy_target=4 mov %damage_keigen4,%damage_keigen4b
if %enemy_target=5 mov %damage_keigen5,%damage_keigen5b
if %enemy_target=6 mov %damage_keigen6,%damage_keigen6b
if %enemy_target=7 mov %damage_keigen7,%damage_keigen7b
if %enemy_target=8 mov %damage_keigen8,%damage_keigen8b

csp 699
if %enemylife=0 return "*"+$lavel+"_v"
csp 699:gosub *face1:return



*taskill3

cspl 601,610:print 10,1
if %enemy_num>1 gosub *enemy_target

if %enemy_num=1 mov $temp_name,$name
if %enemy_target=1 mov $temp_name,$name1
if %enemy_target=2 mov $temp_name,$name2
if %enemy_target=3 mov $temp_name,$name3
if %enemy_target=4 mov $temp_name,$name4
if %enemy_target=5 mov $temp_name,$name5
if %enemy_target=6 mov $temp_name,$name6
if %enemy_target=7 mov $temp_name,$name7
if %enemy_target=8 mov $temp_name,$name8

gosub *setwindow_02
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"Here we gooooo~! "
if %ransu=2 mov $sel1,"I'll blast you with my powerful move! "
name "Tamamo "
lsp 699,":a;2Q\chara\tamamo_st06.png",-200,0:gosub *face3
``$sel1
> \
name ""
mov %knightmp,%knightmp-5
gosub *mp
skillname "Nine Moons "
if %enemy_num>1 csp 699:print 10,500
mov $sel1,"All nine of Tamamo's tails race toward "+$temp_name+"!"
``$sel1\ 
wait 100
lsp 2,":a/4,60,0;2Q\effectOG\023.png",0,0:print 1
dwave 1,"se\tuki.ogg"
wait 240
amsp 2,200,100,255:print 1
dwave 1,"se\tuki.ogg"
wait 240
amsp 2,50,-50,255:print 1
dwave 1,"se\tuki.ogg"
wait 240
amsp 2,-200,100,255:print 1
dwave 1,"se\tuki.ogg"
wait 240
amsp 2,-50,-50,255:print 1
dwave 1,"se\tuki.ogg"
wait 240
csp 2:print 10,50
\
mov $ori_name,"Tamamo"
dwave 1,"se\damage.ogg"
mov %abairitu,100+%mylv*2

if %enemy_num>1 skip 7
mov %damage_keigenb,%damage_keigen
mov %damage_keigenc,100-%damage_keigen
mov %damage_keigenc,%damage_keigenc/2
mov %damage_keigen,%damage_keigen+%damage_keigenc
if %damage_keigen>100 mov %damage_keigen,100
skip 57

if %enemy_target!=1 skip 6
mov %damage_keigen1b,%damage_keigen1					
mov %damage_keigen1c,100-%damage_keigen1
mov %damage_keigen1c,%damage_keigen1c/2
mov %damage_keigen1,%damage_keigen1+%damage_keigen1c
if %damage_keigen1>100 mov %damage_keigen1,100

if %enemy_target!=2 skip 6
mov %damage_keigen2b,%damage_keigen2			
mov %damage_keigen2c,100-%damage_keigen2
mov %damage_keigen2c,%damage_keigen2c/2
mov %damage_keigen2,%damage_keigen2+%damage_keigen2c
if %damage_keigen2>100 mov %damage_keigen2,100

if %enemy_target!=3 skip 6
mov %damage_keigen3b,%damage_keigen3			
mov %damage_keigen3c,100-%damage_keigen3
mov %damage_keigen3c,%damage_keigen3c/2
mov %damage_keigen3,%damage_keigen3+%damage_keigen3c
if %damage_keigen3>100 mov %damage_keigen3,100

if %enemy_target!=4 skip 6
mov %damage_keigen4b,%damage_keigen4		
mov %damage_keigen4c,100-%damage_keigen4
mov %damage_keigen4c,%damage_keigen4c/2
mov %damage_keigen4,%damage_keigen4+%damage_keigen4c
if %damage_keigen4>100 mov %damage_keigen4,100

if %enemy_target!=5 skip 6
mov %damage_keigen5b,%damage_keigen5		
mov %damage_keigen5c,100-%damage_keigen5
mov %damage_keigen5c,%damage_keigen5c/2
mov %damage_keigen5,%damage_keigen5+%damage_keigen5c
if %damage_keigen5>100 mov %damage_keigen5,100

if %enemy_target!=6 skip 6
mov %damage_keigen6b,%damage_keigen6		
mov %damage_keigen6c,100-%damage_keigen6
mov %damage_keigen6c,%damage_keigen6c/2
mov %damage_keigen6,%damage_keigen6+%damage_keigen6c
if %damage_keigen6>100 mov %damage_keigen6,100

if %enemy_target!=7 skip 6
mov %damage_keigen7b,%damage_keigen7
mov %damage_keigen7c,100-%damage_keigen7
mov %damage_keigen7c,%damage_keigen7c/2
mov %damage_keigen7,%damage_keigen7+%damage_keigen7c
if %damage_keigen7>100 mov %damage_keigen7,100

if %enemy_target!=8 skip 6
mov %damage_keigen8b,%damage_keigen8		
mov %damage_keigen8c,100-%damage_keigen8
mov %damage_keigen8c,%damage_keigen8c/2
mov %damage_keigen8,%damage_keigen8+%damage_keigen8c
if %damage_keigen8>100 mov %damage_keigen8,100

mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\damage.ogg"
mov %abairitu,100+%mylv*2
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\damage.ogg"
mov %abairitu,100+%mylv*2
mov %damage_nobr,2:gosub *enemylife
textclear
dwave 1,"se\damage.ogg"
mov %abairitu,100+%mylv*2
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\damage.ogg"
mov %abairitu,100+%mylv*2
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\damage.ogg"
mov %abairitu,100+%mylv*2
mov %damage_nobr,2:gosub *enemylife
textclear
dwave 1,"se\damage.ogg"
mov %abairitu,100+%mylv*2
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\damage.ogg"
mov %abairitu,100+%mylv*2
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\damage.ogg"
mov %abairitu,100+%mylv*2
mov %damage_nobr,2:gosub *enemylife
\
mov $ori_name,"Luka"
skillname ""

if %enemy_num<2 mov %damage_keigen,%damage_keigenb
if %enemy_target=1 mov %damage_keigen1,%damage_keigen1b
if %enemy_target=2 mov %damage_keigen2,%damage_keigen2b
if %enemy_target=3 mov %damage_keigen3,%damage_keigen3b
if %enemy_target=4 mov %damage_keigen4,%damage_keigen4b
if %enemy_target=5 mov %damage_keigen5,%damage_keigen5b
if %enemy_target=6 mov %damage_keigen6,%damage_keigen6b
if %enemy_target=7 mov %damage_keigen7,%damage_keigen7b
if %enemy_target=8 mov %damage_keigen8,%damage_keigen8b

csp 699
if %enemylife=0 return "*"+$lavel+"_v"
csp 699:gosub *face1:return



*taskill4

cspl 601,610:print 10,1
if %enemy_num>1 gosub *enemy_target
gosub *setwindow_02
name "Tamamo "
lsp 699,":a;2Q\chara\tamamo_st09.png",-200,0:gosub *face3
>Charge with the power of the moon... @
>This is my final skill! \
name ""
mov %knightmp,%knightmp-8
gosub *mp
skillname "Moonlight Cannon "
if %enemy_num>1 csp 699:print 10,500
>A laser of moonlight energy shoots off from the tip of Tamamo's tail! 
dwave 1,"se\laser2.ogg"
lsp 2,":c;2Q\effectOG\019.png",0,0:print 10,500
flushout 1000
vsp 700,0
csp 2
vsp 700,1
if %SQ2!=1 bg "bg\"+$haikei+".bmp",10,1000
if %SQ2=1 bg "2Q\bg\"+$haikei+".bmp",10,1000
dwave 1,"se\damage2.ogg"
mov %abairitu,2800+%mylv*3

if %enemy_num>1 skip 7
mov %damage_keigenb,%damage_keigen
mov %damage_keigenc,100-%damage_keigen
mov %damage_keigenc,%damage_keigenc/2
mov %damage_keigen,%damage_keigen+%damage_keigenc
if %damage_keigen>100 mov %damage_keigen,100
skip 57

if %enemy_target!=1 skip 6
mov %damage_keigen1b,%damage_keigen1					
mov %damage_keigen1c,100-%damage_keigen1
mov %damage_keigen1c,%damage_keigen1c/2
mov %damage_keigen1,%damage_keigen1+%damage_keigen1c
if %damage_keigen1>100 mov %damage_keigen1,100

if %enemy_target!=2 skip 6
mov %damage_keigen2b,%damage_keigen2			
mov %damage_keigen2c,100-%damage_keigen2
mov %damage_keigen2c,%damage_keigen2c/2
mov %damage_keigen2,%damage_keigen2+%damage_keigen2c
if %damage_keigen2>100 mov %damage_keigen2,100

if %enemy_target!=3 skip 6
mov %damage_keigen3b,%damage_keigen3			
mov %damage_keigen3c,100-%damage_keigen3
mov %damage_keigen3c,%damage_keigen3c/2
mov %damage_keigen3,%damage_keigen3+%damage_keigen3c
if %damage_keigen3>100 mov %damage_keigen3,100

if %enemy_target!=4 skip 6
mov %damage_keigen4b,%damage_keigen4		
mov %damage_keigen4c,100-%damage_keigen4
mov %damage_keigen4c,%damage_keigen4c/2
mov %damage_keigen4,%damage_keigen4+%damage_keigen4c
if %damage_keigen4>100 mov %damage_keigen4,100

if %enemy_target!=5 skip 6
mov %damage_keigen5b,%damage_keigen5		
mov %damage_keigen5c,100-%damage_keigen5
mov %damage_keigen5c,%damage_keigen5c/2
mov %damage_keigen5,%damage_keigen5+%damage_keigen5c
if %damage_keigen5>100 mov %damage_keigen5,100

if %enemy_target!=6 skip 6
mov %damage_keigen6b,%damage_keigen6		
mov %damage_keigen6c,100-%damage_keigen6
mov %damage_keigen6c,%damage_keigen6c/2
mov %damage_keigen6,%damage_keigen6+%damage_keigen6c
if %damage_keigen6>100 mov %damage_keigen6,100

if %enemy_target!=7 skip 6
mov %damage_keigen7b,%damage_keigen7
mov %damage_keigen7c,100-%damage_keigen7
mov %damage_keigen7c,%damage_keigen7c/2
mov %damage_keigen7,%damage_keigen7+%damage_keigen7c
if %damage_keigen7>100 mov %damage_keigen7,100

if %enemy_target!=8 skip 6
mov %damage_keigen8b,%damage_keigen8		
mov %damage_keigen8c,100-%damage_keigen8
mov %damage_keigen8c,%damage_keigen8c/2
mov %damage_keigen8,%damage_keigen8+%damage_keigen8c
if %damage_keigen8>100 mov %damage_keigen8,100

mov $ori_name,"Tamamo"
gosub *enemylife
mov $ori_name,"Luka"
skillname ""

if %enemy_num<2 mov %damage_keigen,%damage_keigenb
if %enemy_target=1 mov %damage_keigen1,%damage_keigen1b
if %enemy_target=2 mov %damage_keigen2,%damage_keigen2b
if %enemy_target=3 mov %damage_keigen3,%damage_keigen3b
if %enemy_target=4 mov %damage_keigen4,%damage_keigen4b
if %enemy_target=5 mov %damage_keigen5,%damage_keigen5b
if %enemy_target=6 mov %damage_keigen6,%damage_keigen6b
if %enemy_target=7 mov %damage_keigen7,%damage_keigen7b
if %enemy_target=8 mov %damage_keigen8,%damage_keigen8b

csp 699
if %enemylife=0 return "*"+$lavel+"_v"
csp 699:gosub *face1:return


*taskill5

cspl 601,610:print 10,1
gosub *setwindow_02
name "Tamamo"
lsp 699,":a;chara\tamamo_st04.bmp",-200,0:print 10,500
>Hehehe...@
>You want a heal, huh?\
mov %knightmp,%knightmp-6
gosub *mp
skillname "Angel's Kiss"
wait 500
dwave 1,"se\ero_chupa4.ogg"
name "Luka"
>Mmmphm...
wait 500
dwave 1,"se\ero_chupa5.ogg"
>\
name ""
>Tamamo grabs Luka and forces him into a kiss!\
wait 500
dwave 1,"se\ero_chupa5.ogg"
wait 500
dwave 1,"se\ero_chupa5.ogg"
wait 500
dwave 1,"se\ero_chupa2.ogg"
>Her rough tongue wiggles around in his mouth as Luka's forced to swallow her  saliva...\
wait 500
dwave 2,"se\kaihuku.ogg"
mov %damage,%max_mylife/2
mov $sel6,$ori_name+" recovers half his health!"
``$sel6
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 ""
csp 699:gosub *face1:return


*taskill6

if %enemy_num=1 mov %monster_x,%monster_x+200:gosub *face3
cspl 601,610:print 10,1
if %enemy_num>1 gosub *enemy_target
gosub *setwindow_02
name "Tamamo"
lsp 699,":a;chara\tamamo_st01.bmp",-200,0:print 10,500
>Hey, Luka!@
>Try using Flash Kill!\

if %skill_quake>0 skip 8
mov %skill_quake,1
name "Luka"
>Flash Kill...?\
name "Tamamo"
lsp 699,":a;2Q\chara\tamamo_st06.png",-200,0:print 10,500
>I got an idea...@
>Just trust me.\

name "Luka"
>Okay!\
skillname "Flash Kill: Quake"
name ""
mov %knightmp,%knightmp-4
mov %mp,%mp-2
gosub *mp
dwave 1,"se\power.ogg"
>Tamamo chants a spell under her breath!@
dwave 2,"se\earth2.ogg"
>Luka's blade is given the full power and weight of the Earth!\
vspl 3,589,0
vspl 592,650,0
if %wind<3 skip 5
dwave 2,"se\wind2.ogg"
lsp2 0,":c;2Q\effectOG\cutin_ruka_wind.png",600,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_wind.png",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
dwave 3,"se\tuki.ogg"
lsp 2,":c;2Q\effectOG\007.png",0,0:print 1
wait 100
csp 2:print 18,300,"system\mask01.jpg"
>Luka's blade cuts through space and time!@
>And with Tamamo's power, he cuts through the enemy's defense!\

if %enemy_num>1 skip 7
mov %damage_keigenb,%damage_keigen
mov %damage_keigenc,100-%damage_keigen
mov %damage_keigenc,%damage_keigenc/2
mov %damage_keigen,%damage_keigen+%damage_keigenc
if %damage_keigen>100 mov %damage_keigen,100
skip 57

if %enemy_target!=1 skip 6
mov %damage_keigen1b,%damage_keigen1					
mov %damage_keigen1c,100-%damage_keigen1
mov %damage_keigen1c,%damage_keigen1c/2
mov %damage_keigen1,%damage_keigen1+%damage_keigen1c
if %damage_keigen1>100 mov %damage_keigen1,100

if %enemy_target!=2 skip 6
mov %damage_keigen2b,%damage_keigen2			
mov %damage_keigen2c,100-%damage_keigen2
mov %damage_keigen2c,%damage_keigen2c/2
mov %damage_keigen2,%damage_keigen2+%damage_keigen2c
if %damage_keigen2>100 mov %damage_keigen2,100

if %enemy_target!=3 skip 6
mov %damage_keigen3b,%damage_keigen3			
mov %damage_keigen3c,100-%damage_keigen3
mov %damage_keigen3c,%damage_keigen3c/2
mov %damage_keigen3,%damage_keigen3+%damage_keigen3c
if %damage_keigen3>100 mov %damage_keigen3,100

if %enemy_target!=4 skip 6
mov %damage_keigen4b,%damage_keigen4		
mov %damage_keigen4c,100-%damage_keigen4
mov %damage_keigen4c,%damage_keigen4c/2
mov %damage_keigen4,%damage_keigen4+%damage_keigen4c
if %damage_keigen4>100 mov %damage_keigen4,100

if %enemy_target!=5 skip 6
mov %damage_keigen5b,%damage_keigen5		
mov %damage_keigen5c,100-%damage_keigen5
mov %damage_keigen5c,%damage_keigen5c/2
mov %damage_keigen5,%damage_keigen5+%damage_keigen5c
if %damage_keigen5>100 mov %damage_keigen5,100

if %enemy_target!=6 skip 6
mov %damage_keigen6b,%damage_keigen6		
mov %damage_keigen6c,100-%damage_keigen6
mov %damage_keigen6c,%damage_keigen6c/2
mov %damage_keigen6,%damage_keigen6+%damage_keigen6c
if %damage_keigen6>100 mov %damage_keigen6,100

if %enemy_target!=7 skip 6
mov %damage_keigen7b,%damage_keigen7
mov %damage_keigen7c,100-%damage_keigen7
mov %damage_keigen7c,%damage_keigen7c/2
mov %damage_keigen7,%damage_keigen7+%damage_keigen7c
if %damage_keigen7>100 mov %damage_keigen7,100

if %enemy_target!=8 skip 6
mov %damage_keigen8b,%damage_keigen8		
mov %damage_keigen8c,100-%damage_keigen8
mov %damage_keigen8c,%damage_keigen8c/2
mov %damage_keigen8,%damage_keigen8+%damage_keigen8c
if %damage_keigen8>100 mov %damage_keigen8,100

if %skill_sub=1 return
dwave 1,"se\slash4.ogg"
if %wind<3 && %fire=0 mov %abairitu,550+%mylv*3
if %wind>2 && %fire=0 mov %abairitu,600+%mylv*5
if %wind<3 && %fire>0 mov %abairitu,500+%mylv*4
if %wind>2 && %fire>0 mov %abairitu,700+%mylv*6
gosub *enemylife
if %wind<3 skip 8
dwave 1,"se\slash4.ogg"
if $lavel="kraken_ng" mov %damage_keigen,100
if %wind<3 && %fire=0 mov %abairitu,550+%mylv*3
if %wind>2 && %fire=0 mov %abairitu,600+%mylv*5
if %wind<3 && %fire>0 mov %abairitu,500+%mylv*4
if %wind>2 && %fire>0 mov %abairitu,700+%mylv*6
gosub *enemylife
skillname ""
if %enemy_num<2 mov %damage_keigen,%damage_keigenb
if %enemy_target=1 mov %damage_keigen1,%damage_keigen1b
if %enemy_target=2 mov %damage_keigen2,%damage_keigen2b
if %enemy_target=3 mov %damage_keigen3,%damage_keigen3b
if %enemy_target=4 mov %damage_keigen4,%damage_keigen4b
if %enemy_target=5 mov %damage_keigen5,%damage_keigen5b
if %enemy_target=6 mov %damage_keigen6,%damage_keigen6b
if %enemy_target=7 mov %damage_keigen7,%damage_keigen7b
if %enemy_target=8 mov %damage_keigen8,%damage_keigen8b
if %enemy_num=1 mov %monster_x,%monster_x-200

csp 699
if %enemylife=0 return "*"+$lavel+"_v"
csp 699:gosub *face1:return


*taskill7

cspl 601,610:print 10,1
gosub *setwindow_02
name "Tamamo"
lsp 699,":a;chara\tamamo_st01.bmp",-200,0:print 10,500
>The curse?@
>Well, if you insist...\
mov %knightmp,%knightmp-8
gosub *mp
skillname "Beast Lord's Curse"
dwave 1,"se\power.ogg"
name ""
>Tamamo mutters an incantation under her breath as she charges her magic!\
wait 1000
name "Tamamo"
>Curb your lust and desires...@
>Awaken your true power!\
name ""
dwave 1,"se\yami.ogg"
>A chill runs down Luka's spine as the dark energy envelops him.\
mov %max_mylife,%max_mylife*2
mov %mylife,%mylife*2
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 %mp,%mp/2
if %mp>%max_mp mov %mp,%max_mp
gosub *mp
>Luka's max SP has been cut in half!@
>Luka's max HP has doubled!@
>Luka's attack decreased!@
>Luka's defense increased!\
print 10,500
name "Tamamo"
>The rest is up to you.@
>Good luck~!\
csp 699:gosub *face1:return



*alskill1

cspl 601,610:print 10,1
gosub *setwindow_02
name "Alma Elma"
lsp 699,":a;2Q\chara\arumaeruma_st13.png",-200,0:print 10,500
>Oh...@
lsp 699,":a;chara\arumaeruma_st22.bmp",-200,0:print 10,500
>Does Luka-boy need a kiiiiss~?\
lsp 699,":a;chara\arumaeruma_st21.bmp",-200,0:print 10,500
>Just close your eyes, sweetie. I'll make it aaaaaall better~.\
mov %knightmp,%knightmp-6
gosub *mp
skillname "Angel's Kiss"
wait 500
dwave 1,"se\ero_chupa4.ogg"
name "Luka"
>Mmmphm...
wait 500
dwave 1,"se\ero_chupa5.ogg"
>\
name ""
>Alma Elma sticks her tongue out and forces Luka into a deep kiss!\
wait 500
dwave 1,"se\ero_chupa5.ogg"
wait 1000
dwave 1,"se\ero_chupa5.ogg"
wait 1000
dwave 1,"se\ero_chupa2.ogg"
>Luka's forced to swallow her saliva...\
wait 500
dwave 2,"se\kaihuku.ogg"
mov %damage,%max_mylife
mov $sel6,$ori_name+" fully recovers his health!"
``$sel6\
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 ""
csp 699:gosub *face1:return


*alskill2

cspl 601,610:print 10,1
if %enemy_num>1 gosub *enemy_target
gosub *setwindow_02
name "Alma Elma"
lsp 699,":a;2Q\chara\arumaeruma_st19.png",-200,0:gosub *face3
>Wind, rage as you please! \
name ""
mov %knightmp,%knightmp-3
gosub *mp
skillname "Shamshir "
if %enemy_num>1 csp 699:print 10,500
dwave 1,"se\wind3.ogg"
>Alma Elma summons a squall of wind blades! 
wait 2000
dwave 2,"se\slash.ogg"
lsp 2,":a/4,30,1;2Q\effect\015.png",0,0:print 10,10
wait 120
csp 2:print 10,1
dwave 2,"se\slash.ogg"
lsp 2,":a/5,30,1;2Q\effect\017.png",0,0:print 10,10
wait 150
csp 2:print 10,1
>\
mov %abairitu,550+%mylv*5/2
mov $ori_name,"Alma Elma"
dwave 1,"se\slash3.ogg"
gosub *enemylife
mov $ori_name,"Luka"
skillname ""
csp 699
if %enemylife=0 return "*"+$lavel+"_v"
csp 699:gosub *face1:return



*alskill3b

cspl 601,610:print 10,1
if %enemy_num>1 gosub *enemy_target
; The reason I'm coding it like this is so it doesn't crash if there isn't a result.
if $lavel="chrome_ng" gosub *chrome_ng_alskill3b
if $lavel="amira_ng" gosub *amira_ng_alskill3b
if $lavel="morrigan_ng" gosub *morrigan_ng_alskill3b
if $lavel="astaroth_ng" gosub *astaroth_ng_alskill3b
if $lavel="beelzebub_ng" gosub *beelzebub_ng_alskill3b
if $lavel="sphinx_ng" gosub *sphinx_ng_alskill3b
return



*alskill3

cspl 601,610:print 10,1
gosub *setwindow_02
name "Alma Elma"
lsp 699,":a;2Q\chara\arumaeruma_st13.png",-200,0:gosub *face3
>Mmmhmhmhm...~@
>Okaaaaay...~\
skillname "Seduce Monster"
mov %knightmp,%knightmp-8
gosub *mp
gosub *alskill3b
skillname ""
name ""
csp 699:return



*alskill4

cspl 601,610:print 10,1
if %enemy_num>1 gosub *enemy_target
gosub *setwindow_02
name "Alma Elma"
lsp 699,":a;2Q\chara\arumaeruma_st11.png",-200,0:gosub *face3
>Hey, Luka-boy!@
>Use that fire attack!\

if %skill_wildfire>0 skip 9
mov %skill_wildfire,1
name "Luka"
>Huh?\
name "Alma Elma"
>You know, that fire attack that hits a bunch of times!@
>I have an idea...~\
name "Luka"
>Uh, okay!\

if %skill_Wildfire<1 skip 3
name "Luka"
>Right!\

name ""
if %fire<1 || %salamander_get<1 skillname "Rakshasa: Wildfire"
if %fire>0 && %salamander_get>0 skillname "Rakshasa: Wildfire: Asura"

dwave 1,"se\wind1.ogg"
lsp 697,":a;2Q\effectOG\wind.png",0,0:print 1000
>Alma uses her magic to empower Luka's blade with a mighty wind!\
dwave 1,"se\fire2.ogg"
lsp 696,":a;2Q\effectOG\fire.png",0,0:print 1000
>At the same time, Luka's sword becomes engulfed in a hot fire, fed by Alma's  wind!\
name "Alma Elma"
lsp 699,":a;2Q\chara\arumaeruma_st19.png",-200,0:gosub *face3
>Readyyy!\
name "Luka"
mov %knightmp,%knightmp-5
mov %mp,%mp-6
>Okay! Here we go!\
name ""
gosub *mp
lsp 1,":a/2,0,3;system\select_window2.jpg",150,20
if %fire=3 && %salamander_get>0 skip 2
skillname "Ninefold Rakshasa * Wildfire"
if %fire<3 || %salamander_get<1 skip 2
skillname "Ninefold Rakshasa * Wildfire: Asura"
if %enemy_num>1 csp 699:print 10,500
vspl 3,650,0
if %fire<3 skip 5
dwave 2,"2Q\se\fire2.ogg"
lsp2 0,":c;2Q\effectOG\cutin_ruka_fire.png",600,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_fire.png",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
if %fire=3 && %salamander_get>0 skip 2
skillname "Ninefold Rakshasa * Wildfire"
if %fire<3 || %salamander_get<1 skip 2
skillname "Ninefold Rakshasa * Wildfire: Asura"
wait 500
dwave 1,"se\power.ogg"
wait 1500
lsp 2,":a/8,15,0;2Q\effectOG\005flicker.png",0,0:print 1
dwave 2,"se\slash.ogg"
wait 15
lsp 3,":a/2,15,0;2Q\effectOG\fireflicker.png",0,0:print 1
wait 15

for %move=0 to 5
wait 45*2
dwave %move+2,"se\slash.ogg"		;Ensures the audio doesn't overlap
next
wait 30*2
csp 2:csp 3:cspl 696,697:print 10,1000
>Luka's sword flashes in a blaze of holy light!\
if %skill_sub=1 return
if %fire>0 || %aqua>0 skip 2
if %enemy_wind>0 && %enemy_holy<1 gosub *enemy_windguard:goto *common_attack_end
dwave 1,"se\slash.ogg"
if %fire=0 rnd2 %abairitu,150+%mylv*11/10,180+%mylv*14/10
if %fire=2 rnd2 %abairitu,190+%mylv*7/5,220+%mylv*8/5
if %fire=3 rnd2 %abairitu,240+%mylv*9/5,270+%mylv*20/10
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
if %fire=0 rnd2 %abairitu,150+%mylv*11/10,180+%mylv*14/10
if %fire=2 rnd2 %abairitu,190+%mylv*7/5,220+%mylv*8/5
if %fire=3 rnd2 %abairitu,240+%mylv*9/5,270+%mylv*20/10
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
if %fire=0 rnd2 %abairitu,150+%mylv*11/10,180+%mylv*14/10
if %fire=2 rnd2 %abairitu,190+%mylv*7/5,220+%mylv*8/5
if %fire=3 rnd2 %abairitu,240+%mylv*9/5,270+%mylv*20/10
mov %damage_nobr,2:gosub *enemylife
textclear
dwave 1,"se\slash.ogg"
if %fire=0 rnd2 %abairitu,150+%mylv*11/10,180+%mylv*14/10
if %fire=2 rnd2 %abairitu,190+%mylv*7/5,220+%mylv*8/5
if %fire=3 rnd2 %abairitu,240+%mylv*9/5,270+%mylv*20/10
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
if %fire=0 rnd2 %abairitu,150+%mylv*11/10,180+%mylv*14/10
if %fire=2 rnd2 %abairitu,190+%mylv*7/5,220+%mylv*8/5
if %fire=3 rnd2 %abairitu,240+%mylv*9/5,270+%mylv*20/10
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
if %fire=0 rnd2 %abairitu,150+%mylv*11/10,180+%mylv*14/10
if %fire=2 rnd2 %abairitu,190+%mylv*7/5,220+%mylv*8/5
if %fire=3 rnd2 %abairitu,240+%mylv*9/5,270+%mylv*20/10
mov %damage_nobr,2:gosub *enemylife
textclear
dwave 1,"se\slash.ogg"
if %fire=0 rnd2 %abairitu,150+%mylv*11/10,180+%mylv*14/10
if %fire=2 rnd2 %abairitu,190+%mylv*7/5,220+%mylv*8/5
if %fire=3 rnd2 %abairitu,240+%mylv*9/5,270+%mylv*20/10
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
if %fire=0 rnd2 %abairitu,150+%mylv*11/10,180+%mylv*14/10
if %fire=2 rnd2 %abairitu,190+%mylv*7/5,220+%mylv*8/5
if %fire=3 rnd2 %abairitu,240+%mylv*9/5,270+%mylv*20/10
mov %damage_nobr,1:gosub *enemylife
dwave 1,"se\slash.ogg"
if %fire=0 rnd2 %abairitu,150+%mylv*11/10,180+%mylv*14/10
if %fire=2 rnd2 %abairitu,190+%mylv*7/5,220+%mylv*8/5
if %fire=3 rnd2 %abairitu,240+%mylv*9/5,270+%mylv*20/10
mov %damage_nobr,2:gosub *enemylife
\
skillname ""
csp 699
if %enemylife=0 return "*"+$lavel+"_v"
cspl 696,699:gosub *face1:return



*alskill5

cspl 601,610:print 10,1
gosub *setwindow_02
name "Alma Elma"
lsp 699,":a;2Q\chara\arumaeruma_st13.png",-200,0:print 10,500
>Oooooh...@
>Feeling brave?\
>Okaaaaaaaay~!\
mov %knightmp,%knightmp-8
gosub *mp
skillname "Demon Lord's Curse"
dwave 1,"se\power.ogg"
name ""
>Alma mutters an incantation under her breath as she charges her magic!\
wait 1000
name "Alma Elma"
>Now, give into your lust...@
>And awaken your true power!\
name ""
dwave 1,"se\yami.ogg"
>A chill runs down Luka's spine as the dark energy envelops him.\
mov %max_mylife,%max_mylife/2
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 %mp,%mp*2
mov %max_mp,%max_mp*2
gosub *mp
>Luka's max HP has been cut in half!@
>Luka's max SP has doubled!\
print 10,500
name "Alma Elma"
>Hehehehe...@
>Good luuuuuck...~\
csp 699:gosub *face1:return



*erskill1

cspl 601,610:print 10,1
gosub *setwindow_02
name "Erubetie"
lsp 699,":a;chara\erbetie_st01.bmp",-0,0:print 10,500
>Hmph.@
>Very well...\
mov %knightmp,%knightmp-8
gosub *mp
skillname "Slime's Kiss"
dwave 1,"se\ero_slime3.ogg"
name ""
>Erubetie quickly wraps Luka up in her slime.\
name "Erubetie"
>Open wide...\
name ""
wait 500
dwave 1,"se\ero_chupa4.ogg"
name "Luka"
>Mmmphm...
wait 1000
dwave 1,"se\ero_chupa5.ogg"
>\
name ""
>Erubetie presses her lips against Luka's in a kiss.@
wait 500
dwave 1,"se\aqua3.ogg"
>The next moment, liquid slime rushes into Luka's mouth.\
name "Erubetie"
>Swallow...\
name "Luka"
>Mmm...\
name ""
wait 500
dwave 1,"se\ero_chupa2.ogg"
wait 1000
dwave 1,"se\ero_chupa2.ogg"
wait 500
>Luka swallows Erubetie's slime.\
dwave 2,"se\kaihuku.ogg"
mov %damage,%max_mylife
mov $sel6,"And slowly, his health fully restores!"
``$sel6\
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 ""
csp 699:gosub *face1:return



*erskill2

cspl 601,610:print 10,1
gosub *setwindow_02
name "Erubetie"
lsp 699,":a;chara\erbetie_st01.bmp",-0,0:print 10,500
>Aqua Pentagram, you say?@
>Very well...\
mov %knightmp,%knightmp-8
gosub *mp
skillname "Aqua Pentagram"
dwave 1,"se\aqua1.ogg"
name ""
>Erubetie charges her water magic!\
wait 1000
name ""
dwave 1,"se\aqua2.ogg"
lsp 699,":a;2Q\effect\aqua_pentagram.bmp",-0,0:print 10,1500
skillname "Aqua Pentagram"
>The water swirls around in the form of a magical pentagram!\
skillname ""
name "Erubetie"
>This will protect you...\
name ""
dwave 2,"se\aqua.ogg"
>Luka's being guarded by Erubetie!\
mov %erpentagram_turn,6
print 10,500
csp 699:gosub *face1:return



*erskill3b

cspl 601,610:print 10,1
gosub *setwindow_02
lsp 699,":a;chara\erbetie_st01.bmp",-0,0
if $lavel="chrome_ng" gosub *chrome_ng_erskill3b
if $lavel="amira_ng" gosub *amira_ng_erskill3b
if $lavel="morrigan_ng" gosub *morrigan_ng_erskill3b
if $lavel="astaroth_ng" gosub *astaroth_ng_erskill3b
if $lavel="beelzebub_ng" gosub *beelzebub_ng_erskill3b
skillname ""
return

*erskill3

if %enemy_num>1 gosub *enemy_target
if %enemy_num=1 mov $temp_name,$name
if %enemy_target=1 mov $temp_name,$name1
if %enemy_target=2 mov $temp_name,$name2
if %enemy_target=3 mov $temp_name,$name3
if %enemy_target=4 mov $temp_name,$name4
if %enemy_target=5 mov $temp_name,$name5
if %enemy_target=6 mov $temp_name,$name6
if %enemy_target=7 mov $temp_name,$name7
if %enemy_target=8 mov $temp_name,$name8

if %enemy_num=1 mov %monster_x,%monster_x+200:gosub *face3:skip 9
if %enemy_target=1 mov %monster1_x,%monster1_x+200:gosub *face13
if %enemy_target=2 mov %monster2_x,%monster2_x+200:gosub *face23
if %enemy_target=3 mov %monster3_x,%monster3_x+200:gosub *face33
if %enemy_target=4 mov %monster4_x,%monster4_x+200:gosub *face43
if %enemy_target=5 mov %monster5_x,%monster5_x+200:gosub *face53
if %enemy_target=6 mov %monster6_x,%monster6_x+200:gosub *face63
if %enemy_target=7 mov %monster7_x,%monster7_x+200:gosub *face73
if %enemy_target=8 mov %monster8_x,%monster8_x+200:gosub *face83

cspl 601,610:print 10,1
gosub *setwindow_02
name "Erubetie"
lsp 699,":a;chara\erbetie_st01.bmp",-0,0:print 10,500
>Hehe...@
>Hold still...\
skillname "Slime Hold"
dwave 1,"se\ero_slime3.ogg"
name ""
wait 1000
mov $sel1,"Erubetie's slime slowly surrounds "+$temp_name+", and rises around her!"
``$sel1\
wait 500
dwave 1,"se\aqua4.ogg"
mov %knightmp,%knightmp-8
gosub *mp
gosub *erskill3b

if %enemy_num<2 mov %monster_x,%monster_x-200:skip 9
if %enemy_target=1 mov %monster1_x,%monster1_x-200
if %enemy_target=2 mov %monster2_x,%monster2_x-200
if %enemy_target=3 mov %monster3_x,%monster3_x-200
if %enemy_target=4 mov %monster4_x,%monster4_x-200
if %enemy_target=5 mov %monster5_x,%monster5_x-200
if %enemy_target=6 mov %monster6_x,%monster6_x-200
if %enemy_target=7 mov %monster7_x,%monster7_x-200
if %enemy_target=8 mov %monster8_x,%monster8_x-200

csp 699:gosub *face3:return



*erskill4

if %enemy_num=1 mov %monster_x,%monster_x+200:gosub *face3
cspl 601,610:print 10,1
if %enemy_num>1 mov %target_all,1
gosub *setwindow_02
name "Erubetie"
lsp 699,":a;chara\erbetie_st01.bmp",-0,0:print 10,500
>Luka...@
>Use your Earth attack.\

if %skill_blizzard>0 skip 7
mov %skill_blizzard,1
name "Luka"
>My Earth attack?\
name "Erubetie"
>Yes...@
>The attack you use with Gnome, the holy skill.\

name "Luka"
>Okay!\
skillname "Heavenly Demon Revival: Blizzard"
if %enemy_num>1 csp 699:print 10,500
name ""
mov %knightmp,%knightmp-5
mov %mp,%mp-4
gosub *mp
dwave 1,"se\wind1.ogg"
wait 500
dwave 2,"2Q\se\iceeffect_freeze.ogg"
>A chill sweeps across the area as the air goes cold around Luka!\
name "Luka"
>All life returns to the nature from whence it came!\
wait 1000
lsp 1,":a/2,0,3;system\select_window2.jpg",150,20
vspl 3,650,0
if %earth<3 skip 5
dwave 2,"se\earth1.ogg"
lsp2 0,":c;2Q\effectOG\cutin_ruka_earth.png",600,150,100,100,0,10
lsp2 1,":c;2Q\effectOG\cutin_earth.png",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 "Heavenly Demon Revival: Blizzard"
name ""
wait 300
dwave 1,"se\power.ogg"
>Luka condenses powerful magic energy around him!\
dwave 2,"se\bom2.ogg"
lsp 2,":c;2Q\effectOG\001.png",0,0:print 18,1000,"system\mask01.jpg"
csp 2:print 18,500,"system\mask01.jpg"
dwave 1,"se\damage2.ogg"
if %earth<3 && %fire=0 mov %abairitu,1000+%mylv*11
if %earth=3 && %fire=0 mov %abairitu,1200+%mylv*15
if %earth<3 && %fire>0 mov %abairitu,1100+%mylv*14
if %earth=3 && %fire>0 mov %abairitu,1500+%mylv*18

if %ng<1 || %earth<1 skip 65

if %enemy_num>1 skip 7
mov %damage_keigenb,%damage_keigen					; Dragon Butcher Attack eats defense like Demon Revival, damage_keigenb is a temp variable to hold damage_keigen
mov %damage_keigenc,100-%damage_keigen
mov %damage_keigenc,%damage_keigenc/2
mov %damage_keigen,%damage_keigen+%damage_keigenc
if %damage_keigen>100 mov %damage_keigen,100
skip 57

if %enemy_num<2 skip 6
mov %damage_keigen1b,%damage_keigen1					
mov %damage_keigen1c,100-%damage_keigen1
mov %damage_keigen1c,%damage_keigen1c/2
mov %damage_keigen1,%damage_keigen1+%damage_keigen1c
if %damage_keigen1>100 mov %damage_keigen1,100

if %enemy_num<2 skip 6
mov %damage_keigen2b,%damage_keigen2			
mov %damage_keigen2c,100-%damage_keigen2
mov %damage_keigen2c,%damage_keigen2c/2
mov %damage_keigen2,%damage_keigen2+%damage_keigen2c
if %damage_keigen2>100 mov %damage_keigen2,100

if %enemy_num<3 skip 6
mov %damage_keigen3b,%damage_keigen3			
mov %damage_keigen3c,100-%damage_keigen3
mov %damage_keigen3c,%damage_keigen3c/2
mov %damage_keigen3,%damage_keigen3+%damage_keigen3c
if %damage_keigen3>100 mov %damage_keigen3,100

if %enemy_num<4 skip 6
mov %damage_keigen4b,%damage_keigen4		
mov %damage_keigen4c,100-%damage_keigen4
mov %damage_keigen4c,%damage_keigen4c/2
mov %damage_keigen4,%damage_keigen4+%damage_keigen4c
if %damage_keigen4>100 mov %damage_keigen4,100

if %enemy_num<5 skip 6
mov %damage_keigen5b,%damage_keigen5		
mov %damage_keigen5c,100-%damage_keigen5
mov %damage_keigen5c,%damage_keigen5c/2
mov %damage_keigen5,%damage_keigen5+%damage_keigen5c
if %damage_keigen5>100 mov %damage_keigen5,100

if %enemy_num<6 skip 6
mov %damage_keigen6b,%damage_keigen6		
mov %damage_keigen6c,100-%damage_keigen6
mov %damage_keigen6c,%damage_keigen6c/2
mov %damage_keigen6,%damage_keigen6+%damage_keigen6c
if %damage_keigen6>100 mov %damage_keigen6,100

if %enemy_num<7 skip 6
mov %damage_keigen7b,%damage_keigen7
mov %damage_keigen7c,100-%damage_keigen7
mov %damage_keigen7c,%damage_keigen7c/2
mov %damage_keigen7,%damage_keigen7+%damage_keigen7c
if %damage_keigen7>100 mov %damage_keigen7,100

if %enemy_num<8 skip 6
mov %damage_keigen8b,%damage_keigen8		
mov %damage_keigen8c,100-%damage_keigen8
mov %damage_keigen8c,%damage_keigen8c/2
mov %damage_keigen8,%damage_keigen8+%damage_keigen8c
if %damage_keigen8>100 mov %damage_keigen8,100

gosub *enemylife
skillname ""

if %ng<1 || %earth<1 skip 10
mov %damage_keigen,%damage_keigenb
mov %damage_keigen1,%damage_keigen1b
mov %damage_keigen2,%damage_keigen2b
mov %damage_keigen3,%damage_keigen3b
mov %damage_keigen4,%damage_keigen4b
mov %damage_keigen5,%damage_keigen5b
mov %damage_keigen6,%damage_keigen6b
mov %damage_keigen7,%damage_keigen7b
mov %damage_keigen8,%damage_keigen8b

if %skill_sub>1 return
mov %target_all,0
csp 699
if %enemylife=0 return "*"+$lavel+"_v"
mov %monster_x,%monster_x-200:csp 699:gosub *face3:return



*chskill0

cspl 601,610:print 10,1
gosub *setwindow_02
name "Chrome"
lsp 699,":a;chara\chrom_st26.bmp",-200,0:print 10,500
>You...@ >Want me to kiss you?\
>I mean...I guess I can try it...\
if $party1="Chrome" mov %party1mp,%party1mp-2
if $party2="Chrome" mov %party2mp,%party2mp-2
gosub *mp
skillname "Angel's Kiss"
wait 500
dwave 1,"se\ero_chupa4.ogg"
name "Luka"
>Mmmphm...
wait 500
dwave 1,"se\ero_chupa5.ogg"
>\
name ""
>Chrome nervously sticks her tongue out and forces Luka into a deep kiss!\
wait 500
dwave 1,"se\ero_chupa5.ogg"
wait 1000
dwave 1,"se\ero_chupa5.ogg"
wait 1000
dwave 1,"se\ero_chupa2.ogg"
>Luka's forced to swallow her saliva...\
wait 500
dwave 2,"se\kaihuku.ogg"
mov %damage,%max_mylife/4
mov $sel6,$ori_name+" recovers some health!"
``$sel6\
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
csp 699:skillname "":gosub *face1:return



*chskill1

cspl 601,610:print 10,1
gosub *setwindow_02
name "Chrome"
lsp 699,":a;chara\chrom_st27.bmp",-200,0:print 10,500
>I'll use my spirit's power to help you!@
skillname "Corrupted Earth"
>Come, Gnomaren! Protect Luka!\
if $party1="Chrome" mov %party1mp,%party1mp-5
if $party2="Chrome" mov %party2mp,%party2mp-5
gosub *mp
name ""
dwave 1,"se\earth1.ogg"
lsp2 0,":a;chara\gnomaren_st01.bmp",200,300,100,100,0,200
gosub *syoukan_effect
wait 500
>Gnomaren uses her Earth magic to put an invisible barrier around Luka!\
mov %gnomaren,1
mov %gnomaren_turn,1
csp 699:skillname "":gosub *face1:return


*chskill2

cspl 601,610:print 10,1
gosub *setwindow_02
name "Chrome"
lsp 699,":a;chara\chrom_st27.bmp",-200,0:print 10,500
>I'll use my spirit's power to help you!@
skillname "Tainted Wind"
>Come, Zylphe! Strengthen Luka!\
if $party1="Chrome" mov %party1mp,%party1mp-5
if $party2="Chrome" mov %party2mp,%party2mp-5
gosub *mp
name ""
dwave 1,"se\wind2.ogg"
lsp2 0,":a;chara\zylphe_st01.bmp",200,300,100,100,0,200
gosub *syoukan_effect
wait 500
>Zylphe lends Luka her power!\
>Luka's speed greatly increases!\
mov %zylphe,1
mov %zylphe_turn,2
mov %luka_maxturn,2
mov %luka_turn,0
csp 699:skillname "":gosub *face1:return


*chpotion

cspl 601,610:print 10,1
gosub *setwindow_02
name "Chrome"
lsp 699,":a;chara\chrom_st22.bmp",-200,0:print 10,500
>Okay!@
>I'll do my best!\
name ""
lsp 699,":a;chara\chrom_st21.bmp",-200,0:print 10,500
skillname "I'll Make a Potion!"
>Chrome quickly gathers ingredients together!\
dwave 1,"se\power.ogg"
>She uses her alchemical skills to make a potion for Luka!\
return


*chskill_st

name ""
mov %potion,1
mov %potion_turn,3
>Luka drinks the potion!\
wait 500
skillname "Strength Potion"
dwave 1,"se\item.ogg"
>Luka's body is strengthened with a powerful magic!@
>His attack power is increased!\
mov $ori_name,"Luka"
skillname ""
csp 699:gosub *face1:return


*chskill_gu

name ""
mov %potion,2
mov %potion_turn,8
>Luka drinks the potion!\
wait 500
skillname "Guard Potion"
dwave 1,"se\item.ogg"
>Luka's body is strengthened with a powerful magic!@
>His defense is increased!\
mov $ori_name,"Luka"
skillname ""
csp 699:gosub *face1:return


*chskill_fu

name ""
mov %potion,3
>Luka drinks the potion!\
wait 500
skillname "Full Cure Potion"
dwave 1,"se\item.ogg"
>Luka's body is fully healed!\
mov %damage,%max_mylife
mov $sel6,$ori_name+" fully recovers his health!"
``$sel6\
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 %status,0
gosub *status_print
mov $ori_name,"Luka"
skillname ""
csp 699:gosub *face1:return


*chskill_mp

name ""
mov %potion,4
>Luka drinks the potion!\
wait 500
skillname "SP Restore Potion"
dwave 1,"se\item.ogg"
>Luka's SP is fully restored!\
mov $sel6,$ori_name+" fully recovers his SP!"
``$sel6
if %mp<%max_mp mov %mp,%max_mp
gosub *mp
>\
mov $ori_name,"Luka"
skillname ""
csp 699:gosub *face1:return


*chskill_in

name ""
mov %potion,5
mov %potion_turn,6
>Luka drinks the potion!\
wait 500
skillname "Invincibility Potion"
dwave 1,"se\item.ogg"
name "Luka"
>Ah!\
name ""
>Luka's body is infused with a mighty power!@
>Luka's invincible!\
mov %status,0
gosub *status_print
mov $ori_name,"Luka"
skillname ""
csp 699:gosub *face1:return


*chskill_fi

name ""
mov %potion,6
mov %target_all,1
wait 500
dwave 1,"se\fire2.ogg"
skillname "Fire Potion"
>The potion suddenly catches fire!\

if %fipotion_first>0 skip 10
mov %fipotion_first,1
name "Luka"
>Wah!\
name "Chrome"
>Luka!@
>Throw it at the enemy!\
name "Luka"
>!?@
>Uh, okay!\

name ""
dwave 1,"se\karaburi.ogg"
>Luka throws the potion at the enemy!\
dwave 1,"Se\break.ogg"
mov $sel1,"The potion breaks against " +$name1+"'s body, causing the whole group to erupt into flames for a moment before quickly burning out!"
``$sel1\
mov %abairitu,550+%mylv*5/2
mov $ori_name,"Luka"
dwave 1,"se\slash3.ogg"
gosub *enemylife
mov $ori_name,"Luka"
skillname ""
csp 699
if %enemylife=0 return "*"+$lavel+"_v"
mov %target_all,0
csp 699:gosub *face1:return


*chskill_po

name ""
mov %potion,7
>Luka drinks the potion!\
wait 500
skillname "Poison Potion"
dwave 1,"se\ero_Slime3.ogg"
name "Luka"
>Ghh!\
name ""
>Luka suddenly feels sick...\
mov %status,9:gosub *status_print
name ""
>Luka's poisoned!\
mov %poison,8
mov $ori_name,"Luka"
skillname ""
name "Chrome"
lsp 699,":a;chara\chrom_st26.bmp",-200,0:print 10,500
>Wah!@
>S-sorry, Luka...@ > I think I screwed that one up...\
csp 699:gosub *face1:return


*chskill_lo

name ""
mov %potion,8
>Luka drinks the potion!\
wait 500
skillname "Aphrodisiac Potion"
dwave 1,"se\yami.ogg"
name "Luka"
>Nnnn...\
name ""
>The potion contained a powerful aphrodisiac...\
mov %damage,%mylife/2
mov $sel6,$ori_name+" loses half his health!"
``$sel6\
mov %mylife,%mylife-%damage
if %mylife<1 mov %mylife,1
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 $ori_name,"Luka"
skillname ""
name "Chrome"
lsp 699,":a;chara\chrom_st26.bmp",-200,0:print 10,500
>Wah!@
>S-sorry, Luka...@ > I think I screwed that one up...\
textclear
csp 699:gosub *face1:return


*chskill3

gosub *chpotion
wait 1000
if $party1="Chrome" mov %party1mp,%party1mp-1
if $party2="Chrome" mov %party2mp,%party2mp-1
gosub *mp
name ""
mov %seed_in,1
mov %seed_po,5
mov %seed_fu,3
mov %seed_lo,1
mov %seed_mp,3
mov %seed_st,5
mov %seed_gu,5
mov %seed_fi,5

;Determine chance of full cure potion
if %mylife>%max_mylife/2 skip 4
mov %seed,%mylife*100/%max_mylife
mov %seed,100-%seed
mov %seed_fu,%seed_fu+%seed

;Determine chance of invincibility potion
if %mylife>%max_mylife/2 || %mp>%max_mp/2 skip 7
mov %seed,%mylife*100/%max_mylife
mov %seed,100-%seed
mov %seed,%seed/3
mov %seed_in,%seed_in+%seed
mov %seed,%max_mp-%mp
mov %seed_in,%seed_in+%seed

;Determine chance of SP restore potion
if %mp>%max_mp/2 skip 4
mov %seed,*mp*100/%max_mp
mov %seed,100-%seed
mov %seed_mp,%seed_mp+%seed

;Determine chance of Strength Potion
if %enemy_earth<1 && %enemy_fire<1 skip 8
if %enemy_fire>0 && %enemy_earth<1 mov %seed_st,%seed_st+25
if %enemy_fire>0 && %enemy_earth>0 mov %seed_st,%seed_st+50
if %enemy_fire<1 && %enemy_earth>0 mov %seed_st,%seed_st+25
if %fire<1 mov %seed_gu,%seed_gu+30
if %earth<1 mov %seed_gu,%seed_gu+10
if %aqua<1 mov %seed_gu,%seed_gu+10
if %wind<1 mov %seed_gu,%seed_gu+5

;Determine chance of Guard Potion
if %enemy_fire<1 && %enemy_wind<1 skip 8
if %enemy_fire>0 && %enemy_wind<1 mov %seed_gu,%seed_gu+25
if %enemy_fire>0 && %enemy_wind>0 mov %seed_gu,%seed_gu+50
if %enemy_fire<1 && %enemy_wind>0 mov %seed_gu,%seed_gu+25
if %wind<1 mov %seed_gu,%seed_gu+10
if %earth<1 mov %seed_gu,%seed_gu+30
if %aqua<1 mov %seed_gu,%seed_gu+10
if %fire<1 mov %seed_gu,%seed_gu+5

;Determine chance of Fire Potion
if %enemy_fire<1 && %enemy_aqua<1 skip 8
if %enemy_fire>0 && %enemy_aqua<1 mov %seed_fi,%seed_fi+25
if %enemy_fire<1 && %enemy_aqua>0 mov %seed_fi,%seed_fi+25
if %enemy_fire>0 && %enemy_aqua>0 mov %seed_fi,%seed_fi+50
if %wind<1 mov %seed_fi,%seed_fi+10
if %aqua<1 mov %seed_fi,%seed_fi+30
if %fire<1 mov %seed_fi,%seed_fi+10
if %earth<1 mov %seed_fi,%seed_fi+5

;Determine chance of Love Potion and Poison Potion
if %enemylife>%max_enemylife/2 skip 4
mov %seed,%enemylife*100/%max_enemylife
mov %seed,100-%seed
mov %seed_lo,%seed_lo+%seed
mov %seed_lo,%seed_po+%seed

mov %seed,%seed_st
mov %seed,%seed+%seed_gu
mov %seed,%seed+%seed_fi
mov %seed,%seed+%seed_in
mov %seed,%seed+%seed_po
mov %seed,%seed+%seed_lo
mov %seed,%seed+%seed_mp
mov %seed,%seed+%seed_fu

rnd2 %ransu,1,%seed

mov %seed,%seed_st
if %ransu<%seed mov %skill_st,1:goto *chskill_st
mov %seed,%seed+%seed_gu
if %ransu<%seed mov %skill_gu,1:goto *chskill_gu
mov %seed,%seed+%seed_fi
if %ransu<%seed mov %skill_fi,1:goto *chskill_fi
mov %seed,%seed+%seed_in
if %ransu<%seed goto *chskill_in
mov %seed,%seed+%seed_po
if %ransu<%seed goto *chskill_po
mov %seed,%seed+%seed_lo
if %ransu<%seed goto *chskill_lo
mov %seed,%seed+%seed_mp
if %ransu<%seed mov %skill_mp,1:goto *chskill_mp
mov %seed,%seed+%seed_fu
if %ransu<=%seed mov %skill_fu,1:goto *chskill_fu
goto *chskill3_error

*chskill3_error

name ""
>Error at chskill3.\
goto *chskill_mp

*chskill4

gosub *chpotion
if $party1="Chrome" mov %party1mp,%party1mp-3
if $party2="Chrome" mov %party2mp,%party2mp-3
goto *chskill_st


*chskill5

gosub *chpotion
if $party1="Chrome" mov %party1mp,%party1mp-3
if $party2="Chrome" mov %party2mp,%party2mp-3
goto *chskill_gu


*chskill6

gosub *chpotion
if $party1="Chrome" mov %party1mp,%party1mp-4
if $party2="Chrome" mov %party2mp,%party2mp-4
goto *chskill_fi


*chskill7

gosub *chpotion
if $party1="Chrome" mov %party1mp,%party1mp-8
if $party2="Chrome" mov %party2mp,%party2mp-8
goto *chskill_fu


*chskill8

gosub *chpotion
if $party1="Chrome" mov %party1mp,%party1mp-8
if $party2="Chrome" mov %party2mp,%party2mp-8
goto *chskill_mp


*moskill1b

if %enemy_num>1 mov %target_all,1
name ""
wait 500
mov %darkness_turn,%darkness_turn-1
dwave 1,"2Q\se\darkness.ogg"
monocro #5555CE
quakex 2,1500
monocro off:print 10,1
mov $sel1,"The aura around "+$name+" sucks their energy away!"
``$sel1\
mov %abairitu,150
dwave 1,"se\damage2.ogg"
mov $ori_name,"Morrigan"
gosub *enemylife
mov $ori_name,"Luka"
skillname ""
if %enemylife=0 return "*"+$lavel+"_v"
if %darkness_turn=0 gosub *moskill1c
mov %target_all,0
return

*moskill1c

name ""
wait 500
mov $sel1,"The aura around "+$name2+" fades away!"
return

*moskill1

cspl 601,610:print 10,1
if %enemy_num>1 mov %target_all,1
gosub *setwindow_02
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"Fall into darkness! "
if %ransu=2 mov $sel1,"I won't even have to touch you~! "
name "Morrigan "
lsp 699,":a;2Q\chara\morrigan_st01.png",-200,0:gosub *face3
``$sel1
> \
name ""
if $guest1="Morrigan" mov %guest1mp,%guest1mp-3
if $guest2="Morrigan" mov %guest2mp,%guest2mp-3
gosub *mp
skillname "Aura of Darkness "
dwave 1,"se\power.ogg"
mov $sel1,"Morrigan holds out her hands toward "+$name+" as they glow in an eerie blue light!" 
``$sel1\
mov %darkness_turn,8
mov $sel1,"A dark blue aura surrounds "+$name+"' bodies!"
dwave 1,"2Q\se\darkness.ogg"
monocro #5555CE
quakex 2,1500
monocro off:print 10,1
``$sel1\
skillname ""
if %enemylife=0 return "*"+$lavel+"_v"
mov %target_all,0
csp 699:gosub *face1:return


*moskill2

if %enemy_num>1 gosub *enemy_target
if %enemy_num=1 mov $temp_name,$name
if %enemy_target=1 mov $temp_name,$name1
if %enemy_target=2 mov $temp_name,$name2
if %enemy_target=3 mov $temp_name,$name3
if %enemy_target=4 mov $temp_name,$name4
if %enemy_target=5 mov $temp_name,$name5
if %enemy_target=6 mov $temp_name,$name6
if %enemy_target=7 mov $temp_name,$name7
if %enemy_target=8 mov $temp_name,$name8

cspl 601,610:print 10,1
gosub *setwindow_02
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"Take this!"
if %ransu=2 mov $sel1,"I hope this hurts..."
name "Morrigan "
lsp 699,":a;2Q\chara\morrigan_st01.png",-200,0:gosub *face3
``$sel1
> \
name ""
if $guest1="Morrigan" mov %guest1mp,%guest1mp-2
if $guest2="Morrigan" mov %guest2mp,%guest2mp-2
gosub *mp
skillname "Dark Energy Blast"
dwave 1,"se\power.ogg"
>Morrigan charges dark energy...@
lsp 2,":c;system\ef_white.jpg",0,0:print 10,200
wait 100
dwave 1,"2Q\se\darkness.ogg"
csp 2:monocro #33336E:print 10,1
wait 1000
dwave 2,"se\karaburi.ogg"
monocro off:print 10,1000
mov $sel1,"...And launches it at "+$temp_name+"!"
``$sel1\
wait 500
mov %abairitu,700
dwave 1,"se\damage2.ogg"
mov $ori_name,"Morrigan"
gosub *enemylife
mov $ori_name,"Luka"
skillname ""
csp 699
if %enemylife=0 return "*"+$lavel+"_v"
csp 699:gosub *face1:return


*moskill3

if %enemy_num>1 gosub *enemy_target
if %enemy_num=1 mov $temp_name,$name
if %enemy_target=1 mov $temp_name,$name1
if %enemy_target=2 mov $temp_name,$name2
if %enemy_target=3 mov $temp_name,$name3
if %enemy_target=4 mov $temp_name,$name4
if %enemy_target=5 mov $temp_name,$name5
if %enemy_target=6 mov $temp_name,$name6
if %enemy_target=7 mov $temp_name,$name7
if %enemy_target=8 mov $temp_name,$name8

cspl 601,610:print 10,1
gosub *setwindow_02
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"Now...Burn!"
if %ransu=2 mov $sel1,"Let the flames of darkness consume you..."
name "Morrigan "
lsp 699,":a;2Q\chara\morrigan_st01.png",-200,0:gosub *face3
``$sel1
> \
name ""
if $guest1="Morrigan" mov %guest1mp,%guest1mp-3
if $guest2="Morrigan" mov %guest2mp,%guest2mp-3
gosub *mp
skillname "Black Flame"
dwave 1,"se\power.ogg"
>Morrigan makes an incantation under her breath...\
wait 500
dwave 1,"2Q\se\fire2.ogg"
lsp 698,":a;2Q\effect\008.png",0,0:print 10,300
mov $sel1,"The area around "+$temp_name+" erupts in a powerful blaze of black fire!" 
``$sel1\
mov %abairitu,900
dwave 1,"se\damage2.ogg"

if %enemy_num>1 skip 7
mov %damage_keigenb,%damage_keigen
mov %damage_keigenc,100-%damage_keigen
mov %damage_keigenc,%damage_keigenc/2
mov %damage_keigen,%damage_keigen+%damage_keigenc
if %damage_keigen>100 mov %damage_keigen,100
skip 57

if %enemy_target!=1 skip 6
mov %damage_keigen1b,%damage_keigen1					
mov %damage_keigen1c,100-%damage_keigen1
mov %damage_keigen1c,%damage_keigen1c/2
mov %damage_keigen1,%damage_keigen1+%damage_keigen1c
if %damage_keigen1>100 mov %damage_keigen1,100

if %enemy_target!=2 skip 6
mov %damage_keigen2b,%damage_keigen2			
mov %damage_keigen2c,100-%damage_keigen2
mov %damage_keigen2c,%damage_keigen2c/2
mov %damage_keigen2,%damage_keigen2+%damage_keigen2c
if %damage_keigen2>100 mov %damage_keigen2,100

if %enemy_target!=3 skip 6
mov %damage_keigen3b,%damage_keigen3			
mov %damage_keigen3c,100-%damage_keigen3
mov %damage_keigen3c,%damage_keigen3c/2
mov %damage_keigen3,%damage_keigen3+%damage_keigen3c
if %damage_keigen3>100 mov %damage_keigen3,100

if %enemy_target!=4 skip 6
mov %damage_keigen4b,%damage_keigen4		
mov %damage_keigen4c,100-%damage_keigen4
mov %damage_keigen4c,%damage_keigen4c/2
mov %damage_keigen4,%damage_keigen4+%damage_keigen4c
if %damage_keigen4>100 mov %damage_keigen4,100

if %enemy_target!=5 skip 6
mov %damage_keigen5b,%damage_keigen5		
mov %damage_keigen5c,100-%damage_keigen5
mov %damage_keigen5c,%damage_keigen5c/2
mov %damage_keigen5,%damage_keigen5+%damage_keigen5c
if %damage_keigen5>100 mov %damage_keigen5,100

if %enemy_target!=6 skip 6
mov %damage_keigen6b,%damage_keigen6		
mov %damage_keigen6c,100-%damage_keigen6
mov %damage_keigen6c,%damage_keigen6c/2
mov %damage_keigen6,%damage_keigen6+%damage_keigen6c
if %damage_keigen6>100 mov %damage_keigen6,100

if %enemy_target!=7 skip 6
mov %damage_keigen7b,%damage_keigen7
mov %damage_keigen7c,100-%damage_keigen7
mov %damage_keigen7c,%damage_keigen7c/2
mov %damage_keigen7,%damage_keigen7+%damage_keigen7c
if %damage_keigen7>100 mov %damage_keigen7,100

if %enemy_target!=8 skip 6
mov %damage_keigen8b,%damage_keigen8		
mov %damage_keigen8c,100-%damage_keigen8
mov %damage_keigen8c,%damage_keigen8c/2
mov %damage_keigen8,%damage_keigen8+%damage_keigen8c
if %damage_keigen8>100 mov %damage_keigen8,100

mov $ori_name,"Morrigan"
gosub *enemylife
mov $ori_name,"Luka"
skillname ""
mov %damage_keigen,%damage_keigenb
csp 699
if %enemylife=0 return "*"+$lavel+"_v"
csp 699:csp 698:gosub *face1:return


*moskill4

if $knight="Alma" mov %alma_rep,%alma_rep-2
cspl 601,610:print 10,1
gosub *setwindow_02
name "Morrigan"
lsp 699,":a;2Q\chara\morrigan_st02.png",-200,0:print 10,500
>Ahahaha...@
>You want a kiiiiiiss~?\
>Okay~!\
if $guest1="Morrigan" mov %guest1mp,%guest1mp-8
if $guest2="Morrigan" mov %guest2mp,%guest2mp-8
gosub *mp
skillname "Angel's Kiss"
wait 500
dwave 1,"se\ero_chupa4.ogg"
name "Luka"
>Mmmphm...
wait 500
dwave 1,"se\ero_chupa5.ogg"
>\
name ""
>Morrigan sticks her tongue out and forces Luka into a deep kiss!\
wait 500
dwave 1,"se\ero_chupa5.ogg"
wait 1000
dwave 1,"se\ero_chupa5.ogg"
wait 1000
dwave 1,"se\ero_chupa2.ogg"
>Luka's forced to swallow her saliva...\
wait 500
dwave 2,"se\kaihuku.ogg"
mov %damage,%max_mylife
mov $sel6,$ori_name+" fully recovers his health!"
``$sel6\
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 ""
csp 699:gosub *face1:return


*common_alice_skill

gosub *cmd_skill_alice
if %cmd1=21 goto *skill_al1
if %cmd1=22 goto *skill_al2
if %cmd1=23 goto *skill_al3
if %cmd1=24 goto *skill_al4
if %cmd1=-1 goto "*"+$lavel+"_main"
goto *common_alice_skill



*cmd_skill_alice

saveoff
textoff
cspl 3,7:cspl 600,610
btndef clear
mov %skill_page,1
mov %sinkoumode,0 : skipoff : autoclick 0
gosub *setwindow_04
lsp 601,":s/20,20,0;#FFFFFF#FF4444Omega Blaze ",70,418:spbtn 601,21
lsp 602,":s/20,20,0;#FFFFFF#FF4444Frost Ozma ",70,445:spbtn 602,22
lsp 603,":s/20,20,0;#FFFFFF#FF4444Monster Lord's Cruelty ",70,472:spbtn 603,23
lsp 604,":s/20,20,0;#FFFFFF#FF4444Eye of Recovery ",70,499:spbtn 604,24
goto *cmd_skill_alice3



*cmd_skill_alice3

btnwait2 %cmd1
if %zukanon>0 && %cmd1=4 textoff:return *zukan_commonkaisou0
if %mon_labo_on=1 && %cmd1=4 textoff: screen_clear: return *monster_labo
if %cmd1=3 mov %saveorload,0:gosub *saveload:goto *cmd_skill_alice
if %cmd1=4 mov %saveorload,1:gosub *saveload:goto *cmd_skill_alice
if %cmd1=7 gosub *window_delete2:goto *cmd_skill_alice
if %cmd1=0 goto *cmd_skill_alice3
cspl 3,7
cspl 601,610
gosub *setwindow_02p
texton
btndef clear
return



*skill_al1

mov %alice_skill,0
mov %before_action,35
skillname "Word?@of?@Dispel"
lsp 690,":a;chara\alice_st74.bmp",-240,50:print 10,500
name "Alice "
>I ask thee, eternal time... 
>Reveal my body, yoked in twilight... \
dwave 1,"se\flash.ogg"
lsp 2,":c;system\ef_white.jpg",0,0:print 10,300
lsp 690,":a;2Q\chara\"+$alice_st+"03b.png",-163,0
csp 2:print 10,300
>Return my true body to me! \
name ""
skillname ""
csp 690:print 10,500
skillname "Omega Blaze "
>Alice unleashes a storm of fire! 
dwave 1,"se\fire1.ogg"
if %effectspeed=2 skip 2
mpegplay "effect\movie01.mpg",1
if %alice_skill1=0 goto *skill_al_miss
rnd2 %damage,40*%alice_skill1,45*%alice_skill1
dwave 2,"se\damage2.ogg"
gosub *alice_enemylifeb
skillname ""
if %enemylife=0 mov %count_alice1,1:goto "*"+$lavel+"_v"
goto "*"+$lavel+"_a"



*skill_al2

mov %alice_skill,0
mov %before_action,36
skillname "Word?@of?@Dispel"
lsp 690,":a;chara\alice_st74.bmp",-240,50:print 10,500
name "Alice "
>I ask thee, eternal time... 
>Reveal my body, yoked in twilight... \
dwave 1,"se\flash.ogg"
lsp 2,":c;system\ef_white.jpg",0,0:print 10,300
lsp 690,":a;2Q\chara\"+$alice_st+"03b.png",-163,0
csp 2:print 10,300
>Return my true body to me! \
name ""
csp 690:print 10,500
skillname "Frost Ozma "
>Pure magic flows off of Alice, freezing the air around her! 
dwave 1,"se\wind3.ogg"
if %effectspeed=2 skip 2
mpegplay "effect\movie02.mpg",1
if %alice_skill1=0 goto *skill_al_miss
rnd2 %damage,40*%alice_skill2,45*%alice_skill2
dwave 2,"se\damage2.ogg"
gosub *alice_enemylifeb
skillname ""
if %enemylife=0 mov %count_alice1,1:goto "*"+$lavel+"_v"
goto "*"+$lavel+"_a"



*skill_al3

mov %alice_skill,0
mov %before_action,37
skillname "Word?@of?@Dispel"
lsp 690,":a;chara\alice_st74.bmp",-240,50:print 10,500
name "Alice "
>I ask thee, eternal time... 
>Reveal my body, yoked in twilight... \
dwave 1,"se\flash.ogg"
lsp 2,":c;system\ef_white.jpg",0,0:print 10,300
lsp 690,":a;2Q\chara\"+$alice_st+"03b.png",-163,0
csp 2:print 10,300
>Return my true body to me! \
name ""
csp 690:print 10,500
skillname "Monster Lord's?@Cruelty "
dwave 1,"se\bom1.ogg"
>The power of darkness radiates from Alice! \
wait 300
flushout 1000
vsp 700,0
vsp 701,0
vsp 702,0
bg white,10,1000
if %alice_skill3=0 goto *skill_al_miss
rnd2 %damage,10*%alice_skill3,12*%alice_skill3
dwave 2,"se\damage2.ogg"
quake 10,600

itoa $sel1,%damage
mov $sel6,"Alice deals "+$sel1+" damage!"
$sel6

mov %enemylife,%enemylife-%damage
if %enemylife>%max_enemylife mov %enemylife,%max_enemylife
if %enemylife<0 mov %enemylife,0
if %enemylife=0 mov %gage,0 skip 3
mov %gage,%enemylife*100/%max_enemylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
print 10,500
rnd2 %damage,10*%alice_skill3,12*%alice_skill3
dwave 2,"se\damage2.ogg"
quake 10,600

itoa $sel1,%damage
mov $sel6,"Alice deals "+$sel1+" damage!"
$sel6

mov %enemylife,%enemylife-%damage
if %enemylife>%max_enemylife mov %enemylife,%max_enemylife
if %enemylife<0 mov %enemylife,0
if %enemylife=0 mov %gage,0 skip 3
mov %gage,%enemylife*100/%max_enemylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
print 10,500
textclear
rnd2 %damage,10*%alice_skill3,12*%alice_skill3
dwave 2,"se\damage2.ogg"
quake 10,600

itoa $sel1,%damage
mov $sel6,"Alice deals "+$sel1+" damage!"
$sel6

mov %enemylife,%enemylife-%damage
if %enemylife>%max_enemylife mov %enemylife,%max_enemylife
if %enemylife<0 mov %enemylife,0
if %enemylife=0 mov %gage,0 skip 3
mov %gage,%enemylife*100/%max_enemylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
print 10,500
rnd2 %damage,10*%alice_skill3,12*%alice_skill3
dwave 2,"se\damage2.ogg"
quake 10,600

itoa $sel1,%damage
mov $sel6,"Alice deals "+$sel1+" damage!"
$sel6

mov %enemylife,%enemylife-%damage
if %enemylife>%max_enemylife mov %enemylife,%max_enemylife
if %enemylife<0 mov %enemylife,0
if %enemylife=0 mov %gage,0 skip 3
mov %gage,%enemylife*100/%max_enemylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
print 10,500
\
skillname ""
vsp 700,1
vsp 701,1
vsp 702,1
bg "bg\"+$haikei+".bmp",10,2000
if %enemylife=0 mov %count_alice1,1:goto "*"+$lavel+"_v"
goto "*"+$lavel+"_a"



*skill_al_miss

vsp 700,1
vsp 701,1
vsp 702,1
bg "bg\"+$haikei+".bmp",10,500
>But Alice's attack had no effect! \
skillname ""
goto "*"+$lavel+"_a"



*skill_al4

mov %alice_skill,0
mov %before_action,58
skillname "Word?@of?@Dispel"
lsp 690,":a;chara\alice_st74.bmp",-240,50:print 10,500
name "Alice "
>I ask thee, eternal time... 
>Reveal my body, yoked in twilight... \
dwave 1,"se\flash.ogg"
lsp 2,":c;system\ef_white.jpg",0,0:print 10,300
lsp 690,":a;2Q\chara\"+$alice_st+"03b.png",-163,0
csp 2:print 10,300
>Return my true body to me! \
name ""
csp 690:print 10,500
skillname "Eye of?@Recovery "
wait 200
>The power of restoration fills Alice's eyes! @
dwave 2,"se\kaihuku.ogg"
mov %damage,%max_mylife
>Luka has been completely healed! \
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 %max_mylife<%mylife*5 gosub *face1
goto "*"+$lavel+"_a"



*alice_skillx

rnd2 %ransu,1,4
if %ransu=1 goto *alice_skillx1
if %ransu=2 goto *alice_skillx2
if %ransu=3 goto *alice_skillx3
if %ransu=4 && %owaza_count3h>3 goto *alice_skillx4
skip -5



*alice_skillx1

rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Haa! "
if %ransu=2 mov $sel1,"Eat this! "
if %ransu=3 mov $sel1,"Hya! "
name "Alice "
$sel1
> \
name ""
>Alice attacks! 
dwave 1,"se\dageki.ogg"
mov $ori_name,"Alice "
rnd2 %damage,1000,1200
gosub *enemylifeb
mov $ori_name,"Luka "
skillname ""
if %enemylife=0 mov %count_alice2,1:return "*"+$lavel+"_v"
return



*alice_skillx2

rnd2 %ransu,1,6
if %ransu=%ren skip -1
mov %ren,%ransu
if %ransu=1 mov $sel1,"I call forth the fires of hell! "
if %ransu=2 mov $sel1,"Can you endure this scorching heat!? "
if %ransu=3 mov $sel1,"Eat the flames of the Monster Lord! "
if %ransu=4 mov $sel1,"Burn in my flames! "
if %ransu=5 mov $sel1,"Taste the hellfire of a Monster Lord! "
if %ransu=6 mov $sel1,"Burn to ashes! "
name "Alice "
$sel1
> \
name ""
skillname "Omega Blaze "
>Alice creates a storm of fire! \
dwave 1,"se\fire1.ogg"
if %effectspeed=2 skip 2
mpegplay "effect\movie01.mpg",1
dwave 2,"se\damage2.ogg"
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
mov $ori_name,"Alice "
rnd2 %damage,3000,3500
gosub *enemylifeb
mov $ori_name,"Luka "
skillname ""
if %enemylife=0 mov %count_alice2,1:return "*"+$lavel+"_v"
return



*alice_skillx3

rnd2 %ransu,1,6
if %ransu=%ren skip -1
mov %ren,%ransu
if %ransu=1 mov $sel1,"I call forth the icy touch of death! "
if %ransu=2 mov $sel1,"Go numb to your very bones! "
if %ransu=3 mov $sel1,"Freeze in a block of ice! "
if %ransu=4 mov $sel1,"Can you endure the chill of death!? "
if %ransu=5 mov $sel1,"I'll freeze even the air itself! "
if %ransu=6 mov $sel1,"Freeze! "
name "Alice "
$sel1
> \
name ""
skillname "Frost Ozma "
>Alice's magical power freezes the air! \
dwave 1,"se\wind3.ogg"
if %effectspeed=2 skip 2
mpegplay "effect\movie02.mpg",1
dwave 2,"se\damage2.ogg"
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
vsp 700,0:print 10,15
vsp 700,1:print 10,15
mov $ori_name,"Alice "
rnd2 %damage,3000,3500
gosub *enemylifeb
mov $ori_name,"Luka "
skillname ""
if %enemylife=0 mov %count_alice2,1:return "*"+$lavel+"_v"
return



*alice_skillx4

mov %owaza_count3h,0
rnd2 %ransu,1,6
if %ransu=%ren skip -1
mov %ren,%ransu
if %ransu=1 mov $sel1,"This is the power of a Monster Lord! "
if %ransu=2 mov $sel1,"Taste my power! "
if %ransu=3 mov $sel1,"I'll show you the power of darkness! "
if %ransu=4 mov $sel1,"Taste the secret art of my family! "
if %ransu=5 mov $sel1,"The power of darkness shall destroy everything! "
if %ransu=6 mov $sel1,"Perish in the darkness! "
name "Alice "
$sel1
> \
name ""
skillname "Monster Lord's?@Cruelty "
dwave 1,"se\bom1.ogg"
>Alice lets loose the power of darkness! \
wait 300
flushout 1000
vsp 700,0
bg white,10,1000
rnd2 %damage,1000,1200
dwave 2,"se\damage2.ogg"
quake 10,600

itoa $sel1,%damage
mov $sel6,"Alice deals "+$sel1+" damage!"
$sel6

mov %enemylife,%enemylife-%damage
if %enemylife>%max_enemylife mov %enemylife,%max_enemylife
if %enemylife<0 mov %enemylife,0
if %enemylife=0 mov %gage,0 skip 3
mov %gage,%enemylife*100/%max_enemylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
print 10,500
rnd2 %damage,1000,1200
dwave 2,"se\damage2.ogg"
quake 10,600

itoa $sel1,%damage
mov $sel6,"Alice deals "+$sel1+" damage!"
$sel6

mov %enemylife,%enemylife-%damage
if %enemylife>%max_enemylife mov %enemylife,%max_enemylife
if %enemylife<0 mov %enemylife,0
if %enemylife=0 mov %gage,0 skip 3
mov %gage,%enemylife*100/%max_enemylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
print 10,500
textclear
rnd2 %damage,1000,1200
dwave 2,"se\damage2.ogg"
quake 10,600

itoa $sel1,%damage
mov $sel6,"Alice deals "+$sel1+" damage!"
$sel6

mov %enemylife,%enemylife-%damage
if %enemylife>%max_enemylife mov %enemylife,%max_enemylife
if %enemylife<0 mov %enemylife,0
if %enemylife=0 mov %gage,0 skip 3
mov %gage,%enemylife*100/%max_enemylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
print 10,500
rnd2 %damage,1000,1200
dwave 2,"se\damage2.ogg"
quake 10,600

itoa $sel1,%damage
mov $sel6,"Alice deals "+$sel1+" damage!"
$sel6

mov %enemylife,%enemylife-%damage
if %enemylife>%max_enemylife mov %enemylife,%max_enemylife
if %enemylife<0 mov %enemylife,0
if %enemylife=0 mov %gage,0 skip 3
mov %gage,%enemylife*100/%max_enemylife+1
if %gage=101 mov %gage,100
itoa $gagenum,%gage
lsp 561,":a;system\gagee"+$gagenum+".bmp",421,556
print 10,500
\
skillname ""
vsp 700,1
bg "bg\"+$haikei+".bmp",10,2000
if %enemylife=0 mov %count_alice2,1:return "*"+$lavel+"_v"
return



*aruma_skillx

rnd2 %ransu,1,4
if %ransu=1 goto *aruma_skillx1
if %ransu=2 goto *aruma_skillx2
if %ransu=3 goto *aruma_skillx3
if %ransu=4 goto *aruma_skillx4



*aruma_skillx1

rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Haa! "
if %ransu=2 mov $sel1,"Ha! "
if %ransu=3 mov $sel1,"Hya! "
name "Alma?@Elma "
$sel1
> \
name ""
>Alma Elma attacks! \
dwave 1,"se\dageki.ogg"
mov $ori_name,"Alma?@Elma "
rnd2 %damage,800,1000
gosub *enemylifeb
mov $ori_name,"Luka "
return



*aruma_skillx2

rnd2 %ransu,1,4
if %ransu=1 mov $sel1,"Take this! "
if %ransu=2 mov $sel1,"Prepare for violence! "
if %ransu=3 mov $sel1,"My fist... Taste it! "
if %ransu=4 mov $sel1,"I'll pound you to dust! "
name "Alma?@Elma "
$sel1
> \
name ""
skillname "Diamond Plated?@Fist "
dwave 10,"se\dageki2.ogg"
lsp 2,":a/5,30,1;2Q\effectOG\017.png",180,80:print 10,10
wait 150
csp 2:print 10,10
>Alma Elma's fist slams into Ilias! 
dwave 2,"se\damage2.ogg"
mov $ori_name,"Alma?@Elma "
rnd2 %damage,4000,4500:gosub *enemylifeb
mov $ori_name,"Luka "
skillname ""
return



*aruma_skillx3

rnd2 %ransu,1,4
if %ransu=1 mov $sel1,"Eat this! "
if %ransu=2 mov $sel1,"Break! "
if %ransu=3 mov $sel1,"Hiiiya! "
if %ransu=4 mov $sel1,"This knee can even destroy a Dragon! "
name "Alma?@Elma "
$sel1
> \
name ""
skillname "Dragon?@Knee "
dwave 1,"se\dageki2.ogg"
lsp 2,":a/5,30,1;2Q\effectOG\016.png",180,80:print 10,10
wait 150
csp 2:print 10,10
>Alma Elma jumps forward as fast as lightning, kneeing Ilias! 
dwave 2,"se\damage2.ogg"
mov $ori_name,"Alma?@Elma "
rnd2 %damage,2000,2500:gosub *enemylifeb
mov $ori_name,"Luka "
skillname ""
return



*aruma_skillx4

rnd2 %ransu,1,4
if %ransu=1 mov $sel1,"With my very heart and soul! "
if %ransu=2 mov $sel1,"My final attack! "
if %ransu=3 mov $sel1,"With all of my fighting spirit...! "
if %ransu=4 mov $sel1,"With everything I've got...! "
name "Alma?@Elma "
$sel1
> \
name ""
skillname "Palm?@of?@Pure?@Violence "
lsp 2,":a/8,<40,40,40,120,120,120,120,120,120>,1;2Q\effectOG\025.png",0,0:print 1
dwave 1,"se\dageki2.ogg"
wait 120
dwave 2,"se\light.ogg"
wait 600
csp 2:print 10,10
>With all of her strength and spirit, Alma Elma slams her palm into Ilias! 
dwave 2,"se\damage2.ogg"
mov $ori_name,"Alma?@Elma "
rnd2 %damage,5000,5500:gosub *enemylifeb
mov $ori_name,"Luka "
skillname ""
return



*tamamo_skillx

rnd2 %ransu,1,3
if %ransu=1 goto *tamamo_skillx1
if %ransu=2 goto *tamamo_skillx2
if %ransu=3 goto *tamamo_skillx3



*tamamo_skillx1

rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Ha! "
if %ransu=2 mov $sel1,"Hya! "
if %ransu=3 mov $sel1,"Haa! "
name "Tamamo?@no?@Mae "
$sel1
> \
name ""
>Tamamo attacks! 
dwave 1,"se\dageki.ogg"
mov $ori_name,"Tamamo "
rnd2 %damage,2000,2500
gosub *enemylifeb
mov $ori_name,"Luka "
return



*tamamo_skillx2

rnd2 %ransu,1,4
if %ransu=1 mov $sel1,"Taste my power! "
if %ransu=2 mov $sel1,"It has been a while since the last time I punched you! "
if %ransu=3 mov $sel1,"It has been a thousand years... But taste the power of my tails! "
if %ransu=4 mov $sel1,"I know you haven't forgotten the power of my tails! "
name "Tamamo?@no?@Mae "
$sel1
> \
name ""
gosub *mp
skillname "Nine?@Moons "
>All nine of Tamamo's tails slam into Ilias! 
wait 100
lsp 2,":a/4,60,0;2Q\effectOG\023.png",0,0:print 1
dwave 1,"se\tuki.ogg"
wait 240
amsp 2,200,100,255:print 1
dwave 1,"se\tuki.ogg"
wait 240
amsp 2,50,-50,255:print 1
dwave 1,"se\tuki.ogg"
wait 240
amsp 2,-200,100,255:print 1
dwave 1,"se\tuki.ogg"
wait 240
amsp 2,-50,-50,255:print 1
dwave 1,"se\tuki.ogg"
wait 240
csp 2:print 10,50
\
mov $ori_name,"Tamamo "
dwave 1,"se\damage.ogg"
rnd2 %damage,900,1100
mov %damage_nobr,1:gosub *enemylifeb
dwave 1,"se\damage.ogg"
rnd2 %damage,900,1100
mov %damage_nobr,1:gosub *enemylifeb
dwave 1,"se\damage.ogg"
rnd2 %damage,900,1100
mov %damage_nobr,2:gosub *enemylifeb
textclear
dwave 1,"se\damage.ogg"
rnd2 %damage,900,1100
mov %damage_nobr,1:gosub *enemylifeb
dwave 1,"se\damage.ogg"
rnd2 %damage,900,1100
mov %damage_nobr,1:gosub *enemylifeb
dwave 1,"se\damage.ogg"
rnd2 %damage,900,1100
mov %damage_nobr,2:gosub *enemylifeb
textclear
dwave 1,"se\damage.ogg"
rnd2 %damage,900,1100
mov %damage_nobr,1:gosub *enemylifeb
dwave 1,"se\damage.ogg"
rnd2 %damage,900,1100
mov %damage_nobr,1:gosub *enemylifeb
dwave 1,"se\damage.ogg"
rnd2 %damage,900,1100
mov %damage_nobr,2:gosub *enemylifeb
\
skillname ""
mov $ori_name,"Luka "
return



*tamamo_skillx3

rnd2 %ransu,1,4
if %ransu=1 mov $sel1,"I'll remind you of the pain I can bring. "
if %ransu=2 mov $sel1,"You shall never forget the pain of my claws again! "
if %ransu=3 mov $sel1,"I'll slice you to pieces! "
if %ransu=4 mov $sel1,"A dance of death! "
name "Tamamo?@no?@Mae "
$sel1
> \
name ""
skillname "Dance of?@Death "
>Tamamo begins a dance of death, her claws slicing everything around her! 
wait 100
lsp 2,":a/8,80,0;2Q\effectOG\024.png",0,0:print 1
dwave 1,"se\slash5.ogg"
wait 160
dwave 2,"se\slash5.ogg"
wait 160
dwave 3,"se\slash5.ogg"
wait 160
dwave 4,"se\slash5.ogg"
wait 160
dwave 1,"se\slash5.ogg"
wait 160
dwave 2,"se\slash5.ogg"
wait 160
dwave 3,"se\slash5.ogg"
wait 160
dwave 4,"se\slash5.ogg"
wait 160
csp 2:print 10,30
textclear
mov $ori_name,"Tamamo "
dwave 1,"se\damage2.ogg"
rnd2 %damage,2500,3000
mov %damage_nobr,1:gosub *enemylifeb
dwave 1,"se\damage2.ogg"
rnd2 %damage,2500,3000
mov %damage_nobr,1:gosub *enemylifeb
dwave 1,"se\damage2.ogg"
rnd2 %damage,2500,3000
mov %damage_nobr,2:gosub *enemylifeb
\
skillname ""
mov $ori_name,"Luka "
return



*gran_skillx

rnd2 %ransu,1,4
if %ransu=1 goto *gran_skillx1
if %ransu=2 goto *gran_skillx2
if %ransu=3 goto *gran_skillx3
if %ransu=4 goto *gran_skillx4



*gran_skillx1

rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Here I come! "
if %ransu=2 mov $sel1,"Haa! "
if %ransu=3 mov $sel1,"Hya! "
name "Granberia "
$sel1
> \
name ""
>Granberia attacks! 
dwave 1,"se\slash.ogg"
mov $ori_name,"Granberia "
rnd2 %damage,1000,1100
gosub *enemylifeb
mov $ori_name,"Luka "
return



*gran_skillx2

rnd2 %ransu,1,4
if %ransu=1 mov $sel1,"Taste the power of a Dragon! "
if %ransu=2 mov $sel1,"How about this!? "
if %ransu=3 mov $sel1,"Break! "
if %ransu=4 mov $sel1,"Cut into pieces! "
name "Granberia "
$sel1
> \
name ""
skillname "Dragon?@Butcher Attack "
>Granberia swings down her huge sword! 
dwave 1,"se\karaburi.ogg"
lsp 2,":a/4,60,1;2Q\effectOG\010.png",150,30:print 1
wait 240
csp 2:print 10,30
dwave 2,"se\damage2.ogg"
mov $ori_name,"Granberia "
rnd2 %damage,2500,2800
gosub *enemylifeb
mov $ori_name,"Luka "
skillname ""
return



*gran_skillx3

rnd2 %ransu,1,4
if %ransu=1 mov $sel1,"I'll pierce you through! "
if %ransu=2 mov $sel1,"Can you keep up!? "
if %ransu=3 mov $sel1,"I'll cut you through! "
if %ransu=4 mov $sel1,"A flurry of pierces! "
name "Granberia "
$sel1
> \
name ""
skillname "Bloody?@Fissure Thunder Thrust?@* Gale "
>Granberia steps forward like lightning, her sword creating a thunderous boom! 
dwave 1,"se\slash3.ogg"
lsp 2,":a/5,30,1;2Q\effectOG\009b.png",%tukix,%tukiy:print 10,12
wait 150
csp 2:print 10,12
dwave 2,"se\damage.ogg"
mov $ori_name,"Granberia "
rnd2 %damage,2500,2800
gosub *enemylifeb
mov $ori_name,"Luka "
skillname ""
return



*gran_skillx4

rnd2 %ransu,1,4
if %ransu=1 mov $sel1,"A speed greater than the Gods! "
if %ransu=2 mov $sel1,"I'll cut you to bits! "
if %ransu=3 mov $sel1,"I'll attack faster than you can defend! "
if %ransu=4 mov $sel1,"Haaaaaaaaaaaaaaa!!! "
name "Granberia "
$sel1
> \
name ""
skillname "Death Sword Chaos Star "
>Granberia slashes out with countless blows, too many to see! 
wait 500
lsp 2,":a/4,15,0;2Q\effectOG\005.png",0,0:print 1
dwave 1,"se\slash.ogg"
wait 15
dwave 2,"se\slash.ogg"
wait 85
dwave 3,"se\slash.ogg"
wait 120
csp 2:print 10,1000
dwave 1,"se\slash.ogg"
mov $ori_name,"Granberia "
rnd2 %damage,600,700
mov %damage_nobr,1:gosub *enemylifeb
dwave 1,"se\slash.ogg"
rnd2 %damage,600,700
mov %damage_nobr,2:gosub *enemylifeb
textclear
dwave 1,"se\slash.ogg"
rnd2 %damage,600,700
mov %damage_nobr,1:gosub *enemylifeb
dwave 1,"se\slash.ogg"
rnd2 %damage,600,700
mov %damage_nobr,1:gosub *enemylifeb
dwave 1,"se\slash.ogg"
rnd2 %damage,600,700
mov %damage_nobr,2:gosub *enemylifeb
\
mov $ori_name,"Luka "
skillname ""
return



*gran_skillx5

skillname "Vaporizing?@Rebellion Sword "
gosub *skill16a
>Wreathed in flames, Granberia lets loose an endless flurry of attacks!
wait 500
textclear
mov $ori_name,"Granberia "
dwave 1,"se\slash.ogg"
rnd2 %damage,1200,1500
mov %damage_nobr,1:gosub *enemylifeb
dwave 1,"se\slash.ogg"
rnd2 %damage,1200,1500
mov %damage_nobr,2:gosub *enemylifeb
textclear
dwave 1,"se\slash.ogg"
rnd2 %damage,1200,1500
mov %damage_nobr,1:gosub *enemylifeb
dwave 1,"se\slash.ogg"
rnd2 %damage,1200,1500
mov %damage_nobr,1:gosub *enemylifeb
dwave 1,"se\slash.ogg"
rnd2 %damage,1200,1500
mov %damage_nobr,2:gosub *enemylifeb
\
skillname ""
mov $ori_name,"Luka "
return




*badend

mov %hsean,0
mov %hseanwave,0:hseanwave
bgmstop
csp -1
skipoff
monocro #000000
print 10,2000
wait 1000
monocro off
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0
if %SQ=0 lsp 700,":a;chara\"+$tatie2+".bmp",%zmonster_x,%monster_y
if %SQ=1 lsp 700,":a;2Q\chara\"+$tatie2+".png",%zmonster_x,%monster_y
bg black,10,2000
gosub *setwindow_03
itoa $sel1,%count_end
mov $sel6,"Times Defeated: "+$sel1
``$sel6
mov $sel6,$bad1
``$sel6
mov $sel6,$bad2
``$sel6
wait 2000
lrclick
textoff
textclear
csp -1
bg black,10,2000
if %zukanon=1 mov %end_n,100
if %mylv_sin>%mylv mov %mylv,%mylv_sin:gosub *maxhp:gosub *maxmp
gosub *syokika

*badend_b

mov %nobtn,0
gosub *vanish_sprite
btndef clear
exbtn_d "P553,0P555,0P557,0P559,0P561,0P563,0"

if %end_n=0 lsp 553,":s/24,24,1;#FFFFFF#FF4444Retry ",172,153
if %end_n=0 lsp 554,":a/2,0,3;system\select_window2.jpg",150,140:exbtn 554,554,"P553,1"	
if %end_n=0 lsp 559,":s/24,24,1;#FFFFFF#FF4444Title ",172,213
if %end_n=0 lsp 560,":a/2,0,3;system\select_window2.jpg",150,200:exbtn 560,560,"P559,1"	

if %end_n=1 lsp 553,":s/24,24,1;#FFFFFF#FF4444Retry ",172,153
if %end_n=1 lsp 554,":a/2,0,3;system\select_window2.jpg",150,140:exbtn 554,554,"P553,1"	
if %end_n=1 lsp 555,":s/24,24,1;#FFFFFF#FF4444Evaluation ",172,213
if %end_n=1 lsp 556,":a/2,0,3;system\select_window2.jpg",150,200:exbtn 556,556,"P555,1"
if %end_n=1 lsp 561,":s/24,24,1;#FFFFFF#FF4444Change Difficulty ",172,273
if %end_n=1 lsp 562,":a/2,0,3;system\select_window2.jpg",150,260:exbtn 562,562,"P561,1"
if %end_n=1 lsp 559,":s/24,24,1;#FFFFFF#FF4444Title ",172,333
if %end_n=1 lsp 560,":a/2,0,3;system\select_window2.jpg",150,320:exbtn 560,560,"P559,1"	

if %end_n=2 lsp 553,":s/24,24,1;#FFFFFF#FF4444Re-Fight ",172,153
if %end_n=2 lsp 554,":a/2,0,3;system\select_window2.jpg",150,140:exbtn 554,554,"P553,1"
if %end_n=2 lsp 555,":s/24,24,1;#FFFFFF#FF4444Evaluation ",172,213
if %end_n=2 lsp 556,":a/2,0,3;system\select_window2.jpg",150,200:exbtn 556,556,"P555,1"
if %end_n=2 lsp 561,":s/24,24,1;#FFFFFF#FF4444Change Difficulty ",172,273
if %end_n=2 lsp 562,":a/2,0,3;system\select_window2.jpg",150,260:exbtn 562,562,"P561,1"
if %end_n=2 lsp 559,":s/24,24,1;#FFFFFF#FF4444Title ",172,333
if %end_n=2 lsp 560,":a/2,0,3;system\select_window2.jpg",150,320:exbtn 560,560,"P559,1"	

if %end_n>2 && %end_n<100 lsp 553,":s/24,24,1;#FFFFFF#FF4444Re-Fight ",172,153
if %end_n>2 && %end_n<100 lsp 554,":a/2,0,3;system\select_window2.jpg",150,140:exbtn 554,554,"P553,1"
if %end_n>2 && %end_n<100 lsp 555,":s/24,24,1;#FFFFFF#FF4444Evaluation ",172,213
if %end_n>2 && %end_n<100 lsp 556,":a/2,0,3;system\select_window2.jpg",150,200:exbtn 556,556,"P555,1"
if %end_n>2 && %ng<1 && %end_n<100 lsp 557,":s/24,24,1;#FFFFFF#FF4444Go back one decision ",172,273
if %end_n>2 && %ng<1 && %end_n<100 lsp 558,":a/2,0,3;system\select_window2.jpg",150,260:exbtn 558,558,"P557,1"
if %end_n>2 && %end_n<100 lsp 561,":s/24,24,1;#FFFFFF#FF4444Change Difficulty ",172,333
if %end_n>2 && %end_n<100 lsp 562,":a/2,0,3;system\select_window2.jpg",150,320:exbtn 562,562,"P561,1"
if %end_n>2 && %end_n<100 lsp 559,":s/24,24,1;#FFFFFF#FF4444Title ",172,393
if %end_n>2 && %end_n<100 lsp 560,":a/2,0,3;system\select_window2.jpg",150,380:exbtn 560,560,"P559,1"

if %end_n=100 lsp 553,":s/24,24,1;#FFFFFF#FF4444Re-Fight ",172,153
if %end_n=100 lsp 554,":a/2,0,3;system\select_window2.jpg",150,140:exbtn 554,554,"P553,1"
if %end_n=100 lsp 555,":s/24,24,1;#FFFFFF#FF4444Evaluation ",172,213
if %end_n=100 lsp 556,":a/2,0,3;system\select_window2.jpg",150,200:exbtn 556,556,"P555,1"
if %end_n=100 lsp 563,":s/24,24,1;#FFFFFF#FF4444Back to Monsterpedia ",172,273
if %end_n=100 lsp 564,":a/2,0,3;system\select_window2.jpg",150,260:exbtn 564,564,"P563,1"

print 10,100

btnwait %bwait
if %bwait=554 btndef clear : barclear : cspl 553,564 :print 1:goto *afterend_return
if %bwait=556 btndef clear : barclear : cspl 553,564 :print 1:gosub *hansei:goto *afterend_return
if %bwait=558 btndef clear : barclear : cspl 553,564 :print 1:goto *afterend_goback
if %bwait=560 btndef clear : barclear : cspl 553,564 :print 1:goto *afterend_reset
if %bwait=562 btndef clear : barclear : cspl 553,564 :print 1:goto *nanido_henkou
if %bwait=564 btndef clear : barclear : cspl 553,564 :print 1:goto *zukan_commonkaisou0
goto *badend_b

*doppel_badend

mov $zlavel,"irias2"
mov %hseanwave,0:hseanwave
mov %hsean,0
bgmstop
csp -1
skipoff
monocro #000000
print 10,2000
wait 1000
monocro off
if %zukanon=2 mov %zukanon,1:goto *zukan_commonkaisou0
lsp 700,"Doppel\doppelstand.png",0,0
bg black,10,2000
gosub *setwindow_03
itoa $sel1,%count_end
mov $sel6,"Times Defeated: "+$sel1
$sel6
mov $sel6,$bad1
$sel6
mov $sel6,$bad2
$sel6
wait 2000
lrclick
textoff
textclear
csp -1
bg black,10,2000
mov %end_n,100
if %mylv_sin>%mylv mov %mylv,%mylv_sin:gosub *maxhp:gosub *maxmp
gosub *syokika
goto *badend_b

*badend2

bgmstop
textoff
textclear
skipoff
monocro off
csp -1
bg black,10,2000
gosub *syokika
mov %end_n,0
goto *badend_b



*afterend_return

gosub *setwindow_01
mov %continue,1
if %end_n<2 goto "*"+$end_go

; I hate having to write it like this, but fuck it.
if $lavel="tamamo_ng" && %zukanon<1 mov $lavel,"tamamo_pre_ng"

goto "*"+$lavel+"_start"



*afterend_goback

mov %exp,%exp-%exp_minus
gosub *lvup_check
gosub *setwindow_01

if %ivent04=0 mov %item04,0
if %end_n=7 && %item15=1 mov %item11,1:mov %item15,0
if %end_n=8 && %item08=0 mov %item04,0:mov %item07,0

if %end_n=3 mov %skill01,2:mov %genzaiti,1:bgm"2Q\bgmfix\field1.ogg":goto *map1			;?C???A?X?x???N?E?s?e
if %end_n=4 mov %skill01,5:mov %item12,0:mov %genzaiti,5:bgm"bgm\field3.ogg":goto *map2		;?T??E?C???A?E?s?e
if %end_n=5 mov %genzaiti,7:bgm"bgm\sabaku.ogg":goto *map3
if %end_n=6 mov %genzaiti,9:bgm"bgm\field3.ogg":goto *map4			;?O???h?m?A?E?s?e
if %end_n=7 mov %genzaiti,12:bgm"bgm\field3.ogg":goto *map5			;?O???S???h?E?s?e
if %end_n=8 mov %genzaiti,19:bgm"bgm\field3.ogg":goto *map6			;?S???h?|?[?g?E?s?e
if %end_n=9 mov %skill01,14:mov %skill02,2:mov %skill03,2:mov %skill04,2:mov %skill05,2:mov %genzaiti,16:bgm"bgm\manotairiku.ogg":goto *map7		;???Ia???E?s?e
if %end_n=10 bgm"bgm\field4.ogg":goto *map8	;?C???A?Xa???E?s?e
if %end_n=11 bgm"bgm\field4.ogg":goto *map9	;?i?^???A?E?s?e
if %end_n=12 bgm"bgm\field4.ogg":goto *map10	;?T?o?T?E?s?e
if %end_n=13 bgm"bgm\field4.ogg":goto *map11	;?m?A?E?s?e
if %end_n=14 bgm"bgm\field4.ogg":goto *map12	;?S???h?E?s?e
if %end_n=15 bgm"bgm\field4.ogg":goto *map13	;????e?E?s?e



*nanido_henkou

bg black,1
wait 500
lsp 700,":s/24,24,1;#FFFFFFDifficulty? ",172,143:print 10,1

if %ng<1 skip 2
csel "Normal",*nanido_henkou_ng,"Hard",*nanido_henkou_ng

if %ng>0 skip 3
csel "Normal ",*nanido_henkou1,"Hard ",*nanido_henkou1
if %game_clear=3 csel "Normal ",*nanido_henkou1,"Hard ",*nanido_henkou1,"EX (One-hit-kills) ",*nanido_henkou1

*nanido_henkou_ng

if %sentaku=1 mov %nanido,1
if %sentaku=2 mov %nanido,2
if %sentaku=3 mov %nanido,0
csp 700:print 10,500
wait 500
gosub *setwindow_01
mov %continue,1
if %end_n<2 goto "*"+$end_go
goto "*"+$lavel+"_start"

*nanido_henkou1

if %sentaku=1 mov %nanido,1
if %sentaku=2 mov %nanido,2
if %sentaku=3 mov %nanido,0
csp 700:print 10,500
wait 500
gosub *setwindow_01
mov %continue,1
if %end_n<2 goto "*"+$end_go
goto "*"+$lavel+"_start"



*afterend_reset

gosub *setwindow_01
gosub *reset
goto *badend_b


*waifu_count

mov %waifu_count,0
if %salamander_rep>20 mov %waifu_count,%waifu_count+1
if %sylph_rep>20  mov %waifu_count,%waifu_count+1
if %undine_rep>20 mov %waifu_count,%waifu_count+1
if %gnome_rep>20 mov %waifu_count,%waifu_count+1
if %granberia_rep>20 mov %waifu_count,%waifu_count+1
if %alma_rep>20  mov %waifu_count,%waifu_count+1
if %erubetie_rep>20 mov %waifu_count,%waifu_count+1
if %tamamo_rep>20 mov %waifu_count,%waifu_count+1
if %alice_rep>20 mov %waifu_count,%waifu_count+1
if %harpy_rep>20  mov %waifu_count,%waifu_count+1
if %kitsune_rep>20 mov %waifu_count,%waifu_count+1
if %chrome_rep>20 mov %waifu_count,%waifu_count+1
if %kuria_rep>20 mov %waifu_count,%waifu_count+1

return
