*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
if $lavel!="tamamo_ng" 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

*hanlist_reset ;Resets choices for prompts

mov $hanlist1,""
mov $hanlist2,""
mov $hanlist3,""
mov $hanlist4,""
mov $hanlist5,""
mov $hanlist6,""
mov $hanlist7,""
mov $hanlist8,""

return

*gloval_reset ; resets global variables for the record

mov %count_ko,0
mov %count_koenemy,0
mov %count_end,0
mov %count_kousan,0
mov %count_onedari,0
mov %count_hanseikai,0
mov %count_hanseikai2,0
mov %count_drainhp,0
mov %count_drainlv,0
mov %count_bouhatu,0
mov %count_most,0
mov $count_mostname,""
mov %count_wind,0
mov %count_earth,0
mov %count_aqua,0
mov %count_fire,0
mov %count_nakadashi,0
mov %count_sakuseikikan,0
mov %count_sumata,0
mov %count_fera,0
mov %count_paizuri,0
mov %count_tekoki,0
mov %count_ashikoki,0
mov %count_kami,0
mov %count_zenshin,0
mov %count_kiss,0
mov %count_analsex,0
mov %count_tikubi,0
mov %count_analseme,0
mov %count_zensin,0
mov %count_kusuguri,0
mov %count_ganmenkizyou,0
mov %count_tissoku,0
mov %count_onani,0
mov %count_syokusyu,0
mov %count_slime,0
mov %count_nenmaku,0
mov %count_sipppo,0
mov %count_ito,0
mov %count_role,0
mov %count_plant,0
mov %count_wing,0
mov %count_ihuku,0
mov %count_kaze,0
mov %count_marunomi,0
mov %count_buturi,0
mov %count_yuuwaku,0
mov %count_sonota,0
mov %count_kousoku,0
mov %count_koukotu,0
mov %count_mahi,0
mov %count_yuwaku,0
mov %count_kuppuku,0
mov %count_sekika,0
mov %count_konran,0
mov %count_lick,0
mov %count_poison,0
mov %count_surrender,0
mov %count_sirikoki,0
mov %count_curse,0
mov %count_fukutsu,0
mov %count_b001,0
mov %count_b002,0
mov %count_b003,0
mov %count_b004,0
mov %count_b005,0
mov %count_b006,0
mov %count_b007,0
mov %count_b008,0
mov %count_b009,0
mov %count_b010,0
mov %count_b011,0
mov %count_b012,0
mov %count_b013,0
mov %count_b014,0
mov %count_b015,0
mov %count_b016,0
mov %count_b017,0
mov %count_oskillng,0

return

*enemy_reset ; Resets enemy most defeated variables

mov %30001,0
mov %30002,0
mov %30003,0
mov %30004,0
mov %30005,0
mov %30006,0
mov %30007,0
mov %30008,0
mov %30009,0
mov %30010,0
mov %30011,0
mov %30012,0
mov %30013,0
mov %30014,0
mov %30015,0
mov %30016,0
mov %30017,0
mov %30018,0
mov %30019,0
mov %30020,0
mov %30021,0
mov %30022,0
mov %30023,0
mov %30024,0
mov %30025,0
mov %30026,0
mov %30027,0
mov %30028,0

return

*enemyskill_reset ; Resets skillcounts

mov %12001,0
mov %12002,0
mov %12003,0
mov %12004,0
mov %12005,0
mov %12006,0
mov %12007,0
mov %12008,0
mov %12009,0
mov %12010,0
mov %12011,0
mov %12012,0
mov %12013,0
mov %12014,0
mov %12015,0
mov %12016,0
mov %12017,0
mov %12018,0
mov %12019,0
mov %12020,0
mov %12021,0
mov %12022,0
mov %12023,0
mov %12024,0
mov %12025,0
mov %12026,0
mov %12027,0
mov %12028,0
mov %12029,0
mov %12030,0
mov %12031,0
mov %12032,0
mov %12033,0
mov %12034,0
mov %12035,0
mov %12036,0
mov %12037,0
mov %12038,0
mov %12039,0
mov %12040,0
mov %12041,0
mov %12042,0
mov %12043,0
mov %12044,0
mov %12045,0
mov %12046,0
mov %12047,0
mov %12048,0
mov %12049,0
mov %12050,0
mov %12051,0
mov %12052,0
mov %12053,0
mov %12054,0
mov %12055,0
mov %12056,0
mov %12057,0
mov %12058,0
mov %12059,0
mov %12060,0
mov %12061,0
mov %12062,0
mov %12063,0
mov %12064,0
mov %12065,0
mov %12066,0
mov %12067,0
mov %12068,0
mov %12069,0
mov %12070,0
mov %12071,0
mov %12072,0
mov %12073,0
mov %12074,0
mov %12075,0
mov %12076,0
mov %12077,0
mov %12078,0
mov %12079,0
mov %12080,0
mov %12081,0
mov %12082,0
mov %12083,0
mov %12084,0
mov %12085,0
mov %12086,0
mov %12087,0
mov %12088,0
mov %12089,0
mov %12090,0
mov %12091,0
mov %12092,0
mov %12093,0
mov %12094,0
mov %12095,0
mov %12096,0
mov %12097,0
mov %12098,0
mov %12099,0
mov %12100,0
mov %12101,0
mov %12102,0
mov %12103,0
mov %12104,0
mov %12105,0
mov %12106,0
mov %12107,0
mov %12108,0
mov %12109,0
mov %12110,0
mov %12111,0
mov %12112,0
mov %12113,0
mov %12114,0
mov %12115,0
mov %12116,0
mov %12117,0
mov %12118,0
mov %12119,0
mov %12120,0
mov %12121,0
mov %12122,0
mov %12123,0
mov %12124,0
mov %12125,0
mov %12126,0
mov %12127,0
mov %12128,0
mov %12129,0
mov %12130,0
mov %12131,0
mov %12132,0
mov %12133,0
mov %12134,0
mov %12135,0
mov %12136,0
mov %12137,0
mov %12138,0
mov %12139,0
mov %12140,0
mov %12141,0
mov %12142,0
mov %12143,0

mov %14001,0
mov %14002,0
mov %14003,0
mov %14004,0
mov %14005,0
mov %14006,0
mov %14007,0
mov %14008,0
mov %14009,0
mov %14010,0
mov %14011,0
mov %14012,0
mov %14013,0
mov %14014,0
mov %14015,0
mov %14016,0
mov %14017,0
mov %14018,0
mov %14019,0
mov %14020,0
mov %14021,0
mov %14022,0
mov %14023,0
mov %14024,0
mov %14025,0
mov %14026,0
mov %14027,0
mov %14028,0
mov %14029,0
mov %14030,0
mov %14031,0
mov %14032,0
mov %14033,0
mov %14034,0
mov %14035,0
mov %14036,0
mov %14037,0
mov %14038,0
mov %14039,0
mov %14040,0
mov %14041,0
mov %14042,0
mov %14043,0
mov %14044,0
mov %14045,0
mov %14046,0
mov %14047,0
mov %14048,0
mov %14049,0
mov %14050,0
mov %14051,0
mov %14052,0
mov %14053,0
mov %14054,0
mov %14055,0
mov %14056,0
mov %14057,0
mov %14058,0
mov %14059,0
mov %14060,0
mov %14061,0
mov %14062,0
mov %14063,0
mov %14064,0
mov %14065,0
mov %14066,0
mov %14067,0
mov %14068,0
mov %14069,0
mov %14070,0
mov %14071,0
mov %14072,0
mov %14073,0
mov %14074,0
mov %14075,0
mov %14076,0
mov %14077,0
mov %14078,0
mov %14079,0
mov %14080,0
mov %14081,0
mov %14082,0
mov %14083,0
mov %14084,0
mov %14085,0
mov %14086,0
mov %14087,0
mov %14088,0
mov %14089,0
mov %14090,0
mov %14091,0
mov %14092,0
mov %14093,0
mov %14094,0
mov %14095,0
mov %14096,0
mov %14097,0
mov %14098,0
mov %14099,0
mov %14100,0
mov %14101,0
mov %14102,0
mov %14103,0
mov %14104,0
mov %14105,0
mov %14106,0
mov %14107,0
mov %14108,0
mov %14109,0
mov %14110,0
mov %14111,0
mov %14112,0
mov %14113,0
mov %14114,0
mov %14115,0
mov %14116,0
mov %14117,0
mov %14118,0
mov %14119,0
mov %14120,0
mov %14121,0
mov %14122,0
mov %14123,0
mov %14124,0
mov %14125,0
mov %14126,0
mov %14127,0
mov %14128,0
mov %14129,0
mov %14130,0
mov %14131,0
mov %14132,0
mov %14133,0
mov %14134,0
mov %14135,0
mov %14136,0
mov %14137,0
mov %14138,0
mov %14139,0
mov %14140,0
mov %14141,0
mov %14142,0
mov %14143,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>0 && %kousoku<1 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 %sdaten>0 && %kousoku<1 gosub *saraskill1x: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 %fetish=0 || %damage_type=1 skip 3
if %fetish!=%damage_type && %kousan=0 mov %damage,%damage*9/10
if %fetish=%damage_type mov %damage,%damage*13/10

if %damage_kotei=1 mov %damage_kotei,0:skip 29
if %poison_damage>0 skip 28
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 %status=1 && %damage_type!=1 && %kousan!=2 mov %damage,%damage*11/10

if %bougyo=1 mov %damage,%damage/2
if %bougyo=2 mov %damage,%damage*10/15

if %status=1 && %damage_type!=1 skip 11
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!"
if %damage_nobr=1 skip 3
``$sel6
if %battle=0 skip 13
mov %mylife,%mylife-%damage
if %mylife_boost<1 && %mylife>%max_mylife mov %mylife,%max_mylife
if %mylife_boost>0 && %mylife<%max_mylife mov %mylife_boost,0
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
mov %damage_type,0
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<1 mov %damage,1

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_boost<1 && %mylife>%max_mylife mov %mylife,%max_mylife
if %mylife_boost>0 && %mylife<%max_mylife mov %mylife_boost,0
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 $haikei
cspl 3,7
csp 611
cspl 697,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_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
if %finish1!=14 && %finish1!=36 && %finish1!=37 && %finish1!=38 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 %finish1=35 mov %count_lick,%count_lick+1
if %finish1=36 mov %count_surrender,%count_surrender+1
if %finish1=37 mov %count_poison,%count_poison+1
if %finish1=38 mov %count_curse,%count_curse+1
if %finish1=39 mov %count_fukutsu,%count_fukutsu+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 %finish2=16 mov %count_b016,%count_b016+1
if %finish2=17 mov %count_b017,%count_b017+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
cspl 301,312
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

*dwaveplay

if %dwaveset=0 return
if %dwaveset=1 dwave 1,"se\slash.ogg"
if %dwaveset=2 dwave 1,"se\slash3.ogg"
if %dwaveset=3 dwave 1,"se\slash4.ogg"
if %dwaveset=4 dwave 1,"se\damage.ogg"
if %dwaveset=5 dwave 1,"se\damage2.ogg"
if %dwaveset=6 dwave 1,"se\bom2.ogg"
if %dwaveset=7 dwave 1,"se\bom3.ogg"
if %dwaveset=8 dwave 1,"se\dageki.ogg"
if %dwaveset=9 dwave 1,"se\slash2.ogg"
if %dwaveset=10 dwave 1,"se\sio.ogg"
if %dwaveset=11 dwave 1,"se\dageki2.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

*skillcountng

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

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


*vanish_sprite

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



*appear_sprite

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



*clear_sprite

for %sub1=3 to 670 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

*sara_lvup_check

if %sara_exp<10 mov %saralv,1:gosub *sara_maxmp:return
if %sara_exp<20 mov %saralv,2:gosub *sara_maxmp:return
if %sara_exp<40 mov %saralv,3:gosub *sara_maxmp:return
if %sara_exp<80 mov %saralv,4:gosub *sara_maxmp:return
if %sara_exp<160 mov %saralv,5:gosub *sara_maxmp:return
if %sara_exp<320 mov %saralv,6:gosub *sara_maxmp:return
if %sara_exp<530 mov %saralv,7:gosub *sara_maxmp:return
if %sara_exp<800 mov %saralv,8:gosub *sara_maxmp:return
if %sara_exp<1200 mov %saralv,9:gosub *sara_maxmp:return
if %sara_exp<1800 mov %saralv,10:gosub *sara_maxmp:return
if %sara_exp<2800 mov %saralv,11:gosub *sara_maxmp:return
if %sara_exp<4000 mov %saralv,12:gosub *sara_maxmp:return
if %sara_exp<6000 mov %saralv,13:gosub *sara_maxmp:return
if %sara_exp<9000 mov %saralv,14:gosub *sara_maxmp:return
if %sara_exp<12000 mov %saralv,15:gosub *sara_maxmp:return
if %sara_exp<15000 mov %saralv,16:gosub *sara_maxmp:return
if %sara_exp<19000 mov %saralv,17:gosub *sara_maxmp:return
if %sara_exp<24000 mov %saralv,18:gosub *sara_maxmp:return
if %sara_exp<29000 mov %saralv,19:gosub *sara_maxmp:return
if %sara_exp<35000 mov %saralv,20:gosub *sara_maxmp:return
if %sara_exp<41000 mov %saralv,21:gosub *sara_maxmp:return
if %sara_exp<47000 mov %saralv,22:gosub *sara_maxmp:return
if %sara_exp<53000 mov %saralv,23:gosub *sara_maxmp:return
if %sara_exp<61000 mov %saralv,24:gosub *sara_maxmp:return
if %sara_exp<70000 mov %saralv,25:gosub *sara_maxmp:return
if %sara_exp<81000 mov %saralv,26:gosub *sara_maxmp:return
if %sara_exp<93000 mov %saralv,27:gosub *sara_maxmp:return
if %sara_exp<105000 mov %saralv,28:gosub *sara_maxmp:return
if %sara_exp<117000 mov %saralv,29:gosub *sara_maxmp:return
if %sara_exp>116999 mov %saralv,30:gosub *sara_maxmp: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

*sara_maxmp

if %saralv<6 mov %sara_max_mp,1:return
if %saralv>5 && %saralv<14 mov %sara_max_mp,2:return
if %saralv>13 && %saralv<22 mov %sara_max_mp,3:return
if %saralv>21 && %saralv<30 mov %sara_max_mp,4:return
if %saralv>29 mov %sara_max_mp,5: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 %kousoku,0
mov %status,0
mov %sinkou,0
mov %sel_hphalf,0
mov %sel_kiki,0
mov %bougyo,0
if $lavel!="queenharpy_ng" mov %kousan,0
if %zukanon>0 mov %fetish,0
mov %dwaveset,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 %enemydisable,0
mov %enemy1disable,0
mov %enemy2disable,0
mov %enemy3disable,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
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 %enviro_wind,0
mov %enviro_earth,0
mov %enviro_water,0
mov %enviro_fire,0
mov %potion,0
mov %potion_turn,-1
mov %immune,0
mov %continue,0
mov %kousoku_hp,0
mov %enemy_target,0
mov %damage_type,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
if $party1="Sara" && %party1sup>0 gosub *sara_reset
if $party2="Sara" && %party2sup>0 gosub *sara_reset
if $party1="Lucia" && %party1sup>0 mov %lupotion,0
if $party2="Lucia" && %party2sup>0 mov %lupotion,0
return

*sara_reset
if %skill_co>0 mov %sdaten,0
if %skill_sk<1 skip 9
mov %skullcount,0
mov %skullcount1,0
mov %skullcount2,0
mov %skullcount3,0
mov %skulldebuff,0
mov %skulldebuff1,0
mov %skulldebuff2,0
mov %skulldebuff3,0
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

mov %target_all,0
;chrome
mov %potion,-1
mov %potion_turn,-1
mov %no_hit,0
gosub *status_reset
if %ng=1 mov %enemy_num,1
mov %used_daystar,0
mov %luka_maxturn,1
mov %enemy_spiritcount,0
gosub *support

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 697,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

if %party1sup>0 mov %party1_attack,0
if %party2sup>0 mov %party2_attack,0
mov %mylv_sin,%mylv
mov %fetish_sin,%fetish
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+" appears!"
``$sel6\

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



*syutugen_plural

;bugfix
csp 2
csp2 2
print 10,1
mov %debug,0

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

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 697,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
mov %fetish_sin,%fetish
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
cspl 697,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 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
mov %fetish_sin,%fetish
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

mov %surrender,0
mov %no_hit,0
mov %target_all,0
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 697,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

if %party1sup>0 mov %party1_attack,0
if %party2sup>0 mov %party2_attack,0
mov %mylv_sin,%mylv
mov %fetish_sin,%fetish
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,-1
mov %zylphe_turn,-1
mov %gnomaren,-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 %potion_turn,-1
mov %potion,0
mov %immune,0
mov %mylife_boost,0
mov %luka_maxturn,1
mov %lift_turn,-1
mov %harpy_windbuff,0
mov %windbuff_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 %lubind_turn,-1
mov %lubind_turn1,-1
mov %lubind_turn2,-1
mov %lubind_turn3,-1
mov %tabind_turn,-1
mov %tabind_turn1,-1
mov %tabind_turn2,-1
mov %tabind_turn3,-1
mov %enemy_barrier,0
mov %enemy1_barrier,0
mov %enemy2_barrier,0
mov %enemy3_barrier,0
mov %enemy4_barrier,0
mov %enemy5_barrier,0
mov %enemy6_barrier,0
mov %enemy7_barrier,0
mov %enemy8_barrier,0
mov %enemy9_barrier,0
mov %paralyze_turn,-1
mov %paralyze_turn1,-1
mov %paralyze_turn2,-1
mov %paralyze_turn3,-1
mov %paralyze_turn4,-1
mov %paralyze_turn5,-1
mov %paralyze_turn6,-1
mov %paralyze_turn7,-1
mov %paralyze_turn8,-1
mov %paralyze_turn9,-1
mov %enemydisable,0
mov %enemy1disable,0
mov %enemy2disable,0
mov %enemy3disable,0
return

*kousan_status_reset

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,-1
mov %zylphe_turn,-1
mov %gnomaren,-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 %potion_turn,-1
mov %potion,0
mov %immune,0
mov %mylife_boost,0
mov %luka_maxturn,1
mov %lift_turn,-1
mov %harpy_windbuff,0
mov %windbuff_turn,-1
mov %enrage_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 %lubind_turn,-1
mov %lubind_turn1,-1
mov %lubind_turn2,-1
mov %lubind_turn3,-1
mov %tabind_turn,-1
mov %tabind_turn1,-1
mov %tabind_turn2,-1
mov %tabind_turn3,-1
mov %paralyze_turn,-1
mov %paralyze_turn1,-1
mov %paralyze_turn2,-1
mov %paralyze_turn3,-1
mov %paralyze_turn4,-1
mov %paralyze_turn5,-1
mov %paralyze_turn6,-1
mov %paralyze_turn7,-1
mov %paralyze_turn8,-1
mov %paralyze_turn9,-1
mov %enemydisable,0
mov %enemy1disable,0
mov %enemy2disable,0
mov %enemy3disable,0
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
mov %surrender,0
mov %no_hit,0
mov %target_all,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_windturn,0:mov %enemy_fireturn,0:mov %enemy_aquaturn,0:mov %enemy_earthturn,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 697,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

if %party1sup>0 mov %party1_attack,0
if %party2sup>0 mov %party2_attack,0
mov %mylv_sin,%mylv
mov %fetish_sin,%fetish
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 %target_all,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 697,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

if %party1sup>0 mov %party1_attack,0
if %party2sup>0 mov %party2_attack,0
mov %mylv_sin,%mylv
mov %fetish_sin,%fetish
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
cspl 697,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,"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
mov %fetish_sin,%fetish
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"bgm\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"bgm\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
;if %enemy_num>1 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 lsp 608,":s/20,20,0;#FFFFFF#FF4444Party",285,499:spbtn 608,19
if %support>0 && %support_turn>0 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 600,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_hanyox

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


*cmd_hanyox2

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_hanyox
if %cmd1=4 mov %saveorload,1:gosub *saveload:goto *cmd_hanyox
if %cmd1=7 gosub *window_delete2:goto *cmd_hanyox
if %cmd1=0 goto *cmd_hanyox2
if %cmd1<=-2 goto *cmd_hanyox2
csp 3:csp 4:csp 7
csp 601:csp 602:csp 603:csp 604:csp 605:csp 606:csp 607:csp 608
texton
btndef clear
return

*cmd_onedari_multiple

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 lsp 600,":s/20,20,0;#FFFFFF#FF4444$name1",70,%y:spbtn 600,1000:mov %y,%y+27
if %enemy_num>1 && %enemy1life=0 lsp 600,":s/20,20,0;#bbbbbb$name1",70,%y:mov %y,%y+27
if %enemy_num>1 && %enemy2life>0 lsp 601,":s/20,20,0;#FFFFFF#FF4444$name2",70,%y:spbtn 601,1001:mov %y,%y+27
if %enemy_num>1 && %enemy2life=0 lsp 601,":s/20,20,0;#bbbbbb$name2",70,%y:mov %y,%y+27
if %enemy_num>2 && %enemy3life>0 lsp 602,":s/20,20,0;#FFFFFF#FF4444$name3",70,%y:spbtn 602,1002:mov %y,%y+27
if %enemy_num>2 && %enemy3life=0 lsp 602,":s/20,20,0;#bbbbbb$name3",70,%y:mov %y,%y+27
if %enemy_num>3 && %enemy4life>0 lsp 603,":s/20,20,0;#FFFFFF#FF4444$name4",70,%y:spbtn 603,1003:mov %y,%y+27
if %enemy_num>3 && %enemy4life=0 lsp 603,":s/20,20,0;#bbbbbb$name4",70,%y:mov %y,%y+27
mov %y,418
if %enemy_num>4 && %enemy5life>0 lsp 604,":s/20,20,0;#FFFFFF#FF4444$name5",370,%y:spbtn 604,1004:mov %y,%y+27
if %enemy_num>4 && %enemy5life=0 lsp 604,":s/20,20,0;#bbbbbb$name5",370,%y:mov %y,%y+27
if %enemy_num>5 && %enemy6life>0 lsp 605,":s/20,20,0;#FFFFFF#FF4444$name6",370,%y:spbtn 605,1005:mov %y,%y+27
if %enemy_num>5 && %enemy6life=0 lsp 605,":s/20,20,0;#bbbbbb$name6",370,%y:mov %y,%y+27
if %enemy_num>6 && %enemy7life>0 lsp 606,":s/20,20,0;#FFFFFF#FF4444$name7",370,%y:spbtn 606,1006:mov %y,%y+27
if %enemy_num>6 && %enemy7life=0 lsp 606,":s/20,20,0;#bbbbbb$name7",370,%y:mov %y,%y+27
if %enemy_num>7 && %enemy8life>0 lsp 607,":s/20,20,0;#FFFFFF#FF4444$name8",370,%y:spbtn 607,1007:mov %y,%y+27
if %enemy_num>7 && %enemy8life=0 lsp 607,":s/20,20,0;#bbbbbb$name8",370,%y:mov %y,%y+27

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_multiple
if %cmd1=4 mov %saveorload,1:gosub *saveload:goto *cmd_onedari_multiple
if %cmd1=7 gosub *window_delete2:goto *cmd_onedari_multiple
if %cmd1=0 goto *cmd_onedari_multiple
if %cmd1<=-2 goto *cmd_onedari_multiple
cspl 600,607:print 10,1
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 %poseidoncave>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


*location_randomizer

mov %hanyo1,0
if %pyramid>0 mov %hanyo1,%hanyo1+1
if %portnatlia>1 mov %hanyo1,%hanyo1+1
if %undinesspring>0 mov %hanyo1,%hanyo1+1
if %svillage>0 mov %hanyo1,%hanyo1+1
if %goldport>0 mov %hanyo1,%hanyo1+1

if %hanyo1<1 mov $Eventlocation,"":return

rnd2 %ransu,1,5
if %ransu=1 && %pyramid>0 mov $Eventlocation,"Pyramid":return
if %ransu=2 && %portnatalia>1 mov $Eventlocation,"Natalia":return
if %ransu=3 && %undinesspring>0 mov $Eventlocation,"Spring":return
if %ransu=4 && %svillage>0 mov $Eventlocation,"SVillage":return
if %ransu=5 && %goldport>0 mov $Eventlocation,"Gold Port":return
skip -6



*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 %item17,1
mov %item19,0
mov %item20,0
mov %skill01,25
mov %red_orb,0
mov %green_orb,0
mov %yellow_orb,0
mov %silver_orb,0
mov %purple_orb,0
mov %blue_orb,0
mov %orb_count,0
mov %mon_labo_on,0
mov %skillset,1
mov %check01,1
mov %ruka_tati,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 %harpy_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 %queenharpy_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 %queenharpy_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 %cupidsuccubus_event,0
mov %salamander_cold,0
mov %sara_join,0
mov %sara_exit,0
mov %alice_form,0
mov %sara_preexit,0
mov %sara_rep,0
mov %saralv,1
mov %sara_exp,0
mov %skill_co,0
mov %skill_sk,0
mov %skill_pa,0
mov %skill_he,0
mov %sara_train,0
mov %sara_firstbattle,0
mov %sara_benchcount,0
mov %koakgiga,0
mov %pyramidversion,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 %poseidoncave,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
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

print 10,500
return


*status_print;

if %damage_kotei=1 mov %damage_kotei,0:skip 3
rnd2 %ransu,1,100
if $knight="Erubetie" && %kousoku<1 && %kousan<1 && %erubetie_rep>9 && %ransu<((%erubetie_rep*3/5)/100)+%undine_buff gosub *aqua_guard3:return
mov %bougyo,0
itoa $statusnum,%status
cspl 596,597
if %player=0 && %kousoku=0 lsp 598,":a;system\face_0"+$statusnum+".bmp",34,534
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:csp 690
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;

if %kousan>0 skip 14
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 csp 592
if %earth>0 lsp 593,":a;system\elm_earth.bmp",5,461
if %earth=0 csp 593
if %aqua>0 lsp 594,":a;system\elm_aqua.bmp",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 665,":a;system\elm_wind.bmp",775,436
if %enemy_holy=1 || %enemy_holy=2 lsp 665,":a;system\elm_wind2.bmp",775,436
if %enemy_earth>0 lsp 664,":a;system\elm_earth.bmp",775,461
if %enemy_aqua>0 lsp 663,":a;system\elm_aqua.bmp",775,486
if %enemy_fire>0 lsp 662,":a;system\elm_fire.bmp",775,511
if %enemy_wind<1 csp 665
if %enemy_earth<1 csp 664
if %enemy_aqua<1 && %poison<1 csp 663
if %enemy_fire<1 csp 662

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

if %poison>0 lsp 663,":a;2Q\system\elm_poison.bmp",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

*enemy_barrier

name ""
dwave 2,"2Q\se\Reflection.ogg"
gosub *face2
mov %enemy_barrier,%enemy_barrier-1
if %enemy_barrier<0 mov %enemy_barrier,0
mov $sel1,"But "+$name+"'s barrier blocks the attack!"
``$sel1\
gosub *face1
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,608:print 10,1:return
if %cmd1=1001 mov %enemy_target,2:gosub *setwindow_02:cspl 600,608:print 10,1:return
if %cmd1=1002 mov %enemy_target,3:gosub *setwindow_02:cspl 600,608:print 10,1:return
if %cmd1=1003 mov %enemy_target,4:gosub *setwindow_02:cspl 600,608:print 10,1:return
if %cmd1=1004 mov %enemy_target,5:gosub *setwindow_02:cspl 600,608:print 10,1:return
if %cmd1=1005 mov %enemy_target,6:gosub *setwindow_02:cspl 600,608:print 10,1:return
if %cmd1=1006 mov %enemy_target,7:gosub *setwindow_02:cspl 600,608:print 10,1:return
if %cmd1=1007 mov %enemy_target,8:gosub *setwindow_02:cspl 600,608:print 10,1:return
if %cmd1=-1 && %previous_menu=1 cspl 600,608:return "*"+$lavel+"_main"
if %cmd1=-1 && %previous_menu=2 cspl 600,608:return *common_skill
if %cmd1=-1 && %previous_menu=3 cspl 600,608:return *common_support

goto *enemy_target

*enemy_targetx

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 && %enemy1disable<1 lsp 600,":s/20,20,0;#FFFFFF#FF4444$name1",70,%y:spbtn 600,1000:mov %y,%y+27
if %enemy_num>1 && %enemy1life>0 && %enemy1disable>0 lsp 600,":s/20,20,0;#bbbbbb$name1",70,%y:mov %y,%y+27
if %enemy_num>1 && %enemy2life>0 && %enemy2disable<1 lsp 601,":s/20,20,0;#FFFFFF#FF4444$name2",70,%y:spbtn 601,1001:mov %y,%y+27
if %enemy_num>1 && %enemy2life>0 && %enemy2disable>0 lsp 601,":s/20,20,0;#bbbbbb$name2",70,%y:mov %y,%y+27
if %enemy_num>2 && %enemy3life>0 && %enemy3disable<1 lsp 602,":s/20,20,0;#FFFFFF#FF4444$name3",70,%y:spbtn 602,1002:mov %y,%y+27
if %enemy_num>2 && %enemy3life>0 && %enemy3disable>0 lsp 602,":s/20,20,0;#bbbbbb$name3",70,%y:mov %y,%y+27
if %enemy_num>3 && %enemy4life>0 && %enemy4disable<1 lsp 603,":s/20,20,0;#FFFFFF#FF4444$name4",70,%y:spbtn 603,1003:mov %y,%y+27
if %enemy_num>3 && %enemy4life>0 && %enemy4disable>0 lsp 603,":s/20,20,0;#bbbbbb$name4",70,%y:mov %y,%y+27
mov %y,418
if %enemy_num>4 && %enemy5life>0 && %enemy5disable<1 lsp 604,":s/20,20,0;#FFFFFF#FF4444$name5",370,%y:spbtn 604,1004:mov %y,%y+27
if %enemy_num>4 && %enemy5life>0 && %enemy5disable>0 lsp 604,":s/20,20,0;#bbbbbb$name5",370,%y:mov %y,%y+27
if %enemy_num>5 && %enemy6life>0 && %enemy6disable<1 lsp 605,":s/20,20,0;#FFFFFF#FF4444$name6",370,%y:spbtn 605,1005:mov %y,%y+27
if %enemy_num>5 && %enemy6life>0 && %enemy6disable>0 lsp 605,":s/20,20,0;#bbbbbb$name6",370,%y:mov %y,%y+27
if %enemy_num>6 && %enemy7life>0 && %enemy7disable<1 lsp 606,":s/20,20,0;#FFFFFF#FF4444$name7",370,%y:spbtn 606,1006:mov %y,%y+27
if %enemy_num>6 && %enemy7life>0 && %enemy7disable>0 lsp 606,":s/20,20,0;#bbbbbb$name7",370,%y:mov %y,%y+27
if %enemy_num>7 && %enemy8life>0 && %enemy8disable<1 lsp 607,":s/20,20,0;#FFFFFF#FF4444$name8",370,%y:spbtn 607,1007:mov %y,%y+27
if %enemy_num>7 && %enemy8life>0 && %enemy8disable>0 lsp 607,":s/20,20,0;#bbbbbb$name8",370,%y: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_targetx

*spirit_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 && %enemy1_spiritcount>0 lsp 600,":s/20,20,0;#FFFFFF#FF4444$name1",70,%y:spbtn 600,1008:mov %y,%y+27
if %enemy_num>1 && %enemy1life>0 && %enemy1_spiritcount<1 lsp 600,":s/20,20,0;#bbbbbb$name1",70,%y:mov %y,%y+27
if %enemy_num>1 && %enemy2life>0 && %enemy2_spiritcount>0 lsp 601,":s/20,20,0;#FFFFFF#FF4444$name2",70,%y:spbtn 601,1009:mov %y,%y+27
if %enemy_num>1 && %enemy2life>0 && %enemy2_spiritcount<1 lsp 601,":s/20,20,0;#bbbbbb$name2",70,%y:mov %y,%y+27
if %enemy_num>2 && %enemy3life>0 && %enemy3_spiritcount>0 lsp 602,":s/20,20,0;#FFFFFF#FF4444$name3",70,%y:spbtn 602,1010:mov %y,%y+27
if %enemy_num>2 && %enemy3life>0 && %enemy3_spiritcount<1 lsp 602,":s/20,20,0;#bbbbbb$name3",70,%y:mov %y,%y+27
if %enemy_num>3 && %enemy4life>0 && %enemy4_spiritcount>0 lsp 603,":s/20,20,0;#FFFFFF#FF4444$name4",70,%y:spbtn 603,1011:mov %y,%y+27
if %enemy_num>3 && %enemy4life>0 && %enemy4_spiritcount<1 lsp 603,":s/20,20,0;#bbbbbb$name4",70,%y:mov %y,%y+27
mov %y,418
if %enemy_num>4 && %enemy5life>0 && %enemy5_spiritcount>0 lsp 604,":s/20,20,0;#FFFFFF#FF4444$name5",370,%y:spbtn 604,1012:mov %y,%y+27
if %enemy_num>4 && %enemy5life>0 && %enemy5_spiritcount<1 lsp 604,":s/20,20,0;#bbbbbb$name5",370,%y:mov %y,%y+27
if %enemy_num>5 && %enemy6life>0 && %enemy6_spiritcount>0 lsp 605,":s/20,20,0;#FFFFFF#FF4444$name6",370,%y:spbtn 605,1013:mov %y,%y+27
if %enemy_num>5 && %enemy6life>0 && %enemy6_spiritcount<1 lsp 605,":s/20,20,0;#bbbbbb$name6",370,%y:mov %y,%y+27
if %enemy_num>6 && %enemy7life>0 && %enemy7_spiritcount>0 lsp 606,":s/20,20,0;#FFFFFF#FF4444$name7",370,%y:spbtn 606,1014:mov %y,%y+27
if %enemy_num>6 && %enemy7life>0 && %enemy7_spiritcount<1 lsp 606,":s/20,20,0;#bbbbbb$name7",370,%y:mov %y,%y+27
if %enemy_num>7 && %enemy8life>0 && %enemy8_spiritcount>0 lsp 607,":s/20,20,0;#FFFFFF#FF4444$name8",370,%y:spbtn 607,1015:mov %y,%y+27
if %enemy_num>7 && %enemy8life>0 && %enemy8_spiritcount<1 lsp 607,":s/20,20,0;#bbbbbb$name8",370,%y:mov %y,%y+27

btnwait2 %cmd1
if %cmd1=1008 mov %enemy_target,1:gosub *setwindow_02:cspl 600,607:print 10,1:return
if %cmd1=1009 mov %enemy_target,2:gosub *setwindow_02:cspl 600,607:print 10,1:return
if %cmd1=1010 mov %enemy_target,3:gosub *setwindow_02:cspl 600,607:print 10,1:return
if %cmd1=1011 mov %enemy_target,4:gosub *setwindow_02:cspl 600,607:print 10,1:return
if %cmd1=1012 mov %enemy_target,5:gosub *setwindow_02:cspl 600,607:print 10,1:return
if %cmd1=1013 mov %enemy_target,6:gosub *setwindow_02:cspl 600,607:print 10,1:return
if %cmd1=1014 mov %enemy_target,7:gosub *setwindow_02:cspl 600,607:print 10,1:return
if %cmd1=1015 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 *spirit_target

*cmd_spiritcancel

if %enemy_num>1 skip 10
if %enemy_wind>0 lsp 600,":s/20,20,0;#FFFFFF#FF4444Wind",70,418:spbtn 600,1016
if %enemy_wind<1 lsp 600,":s/20,20,0;#bbbbbbWind",70,418
if %enemy_earth>0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Earth",70,445:spbtn 600,1017
if %enemy_earth<1 lsp 601,":s/20,20,0;#bbbbbbEarth",70,445
if %enemy_aqua>0 lsp 602,":s/20,20,0;#FFFFFF#FF4444Water",70,472:spbtn 600,1018
if %enemy_aqua<1 lsp 602,":s/20,20,0;#bbbbbbWater",70,472
if %enemy_fire>0 lsp 603,":s/20,20,0;#FFFFFF#FF4444Fire",70,499:spbtn 600,1019
if %enemy_fire<1 lsp 603,":s/20,20,0;#bbbbbbFire",70,499
skip 31

if %enemy_target!=1 skip 9
if %enemy1_wind>0 lsp 600,":s/20,20,0;#FFFFFF#FF4444Wind",70,418:spbtn 600,1016
if %enemy1_wind<1 lsp 600,":s/20,20,0;#bbbbbbWind",70,418
if %enemy1_earth>0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Earth",70,445:spbtn 600,1017
if %enemy1_earth<1 lsp 601,":s/20,20,0;#bbbbbbEarth",70,445
if %enemy1_aqua>0 lsp 602,":s/20,20,0;#FFFFFF#FF4444Water",70,472:spbtn 600,1018
if %enemy1_aqua<1 lsp 602,":s/20,20,0;#bbbbbbWater",70,472
if %enemy1_fire>0 lsp 603,":s/20,20,0;#FFFFFF#FF4444Fire",70,499:spbtn 600,1019
if %enemy1_fire<1 lsp 603,":s/20,20,0;#bbbbbbFire",70,499

if %enemy_target!=2 skip 9
if %enemy2_wind>0 lsp 600,":s/20,20,0;#FFFFFF#FF4444Wind",70,418:spbtn 600,1016
if %enemy2_wind<1 lsp 600,":s/20,20,0;#bbbbbbWind",70,418
if %enemy2_earth>0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Earth",70,445:spbtn 600,1017
if %enemy2_earth<1 lsp 601,":s/20,20,0;#bbbbbbEarth",70,445
if %enemy2_aqua>0 lsp 602,":s/20,20,0;#FFFFFF#FF4444Water",70,472:spbtn 600,1018
if %enemy2_aqua<1 lsp 602,":s/20,20,0;#bbbbbbWater",70,472
if %enemy2_fire>0 lsp 603,":s/20,20,0;#FFFFFF#FF4444Fire",70,499:spbtn 600,1019
if %enemy2_fire<1 lsp 603,":s/20,20,0;#bbbbbbFire",70,499

if %enemy_target!=3 skip 9
if %enemy3_wind>0 lsp 600,":s/20,20,0;#FFFFFF#FF4444Wind",70,418:spbtn 600,1016
if %enemy3_wind<1 lsp 600,":s/20,20,0;#bbbbbbWind",70,418
if %enemy3_earth>0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Earth",70,445:spbtn 600,1017
if %enemy3_earth<1 lsp 601,":s/20,20,0;#bbbbbbEarth",70,445
if %enemy3_aqua>0 lsp 602,":s/20,20,0;#FFFFFF#FF4444Water",70,472:spbtn 600,1018
if %enemy3_aqua<1 lsp 602,":s/20,20,0;#bbbbbbWater",70,472
if %enemy3_fire>0 lsp 603,":s/20,20,0;#FFFFFF#FF4444Fire",70,499:spbtn 600,1019
if %enemy3_fire<1 lsp 603,":s/20,20,0;#bbbbbbFire",70,499

btnwait2 %cmd1
if %cmd1=1016 mov %spirit_target,1:gosub *setwindow_02:cspl 600,607:print 10,1:return
if %cmd1=1017 mov %spirit_target,2:gosub *setwindow_02:cspl 600,607:print 10,1:return
if %cmd1=1018 mov %spirit_target,3:gosub *setwindow_02:cspl 600,607:print 10,1:return
if %cmd1=1019 mov %spirit_target,4: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 *cmd_spiritcancel

*enemylife_multiple

;special cases
if $lavel="chrome_ng" && %enemy2life=0 skip 4
if $lavel="chrome_ng" && %before_action=30 skip 3
if $lavel="chrome_ng" && %target_all=1 && %hanyo1=0 && %enemy1life>0 && %freeze_turn1<0 && %erbind_turn1<0 && %tabind_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 && %tabind_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 %bind_damage=1 skip 18
if %no_hit>0 gosub *no_hit:return
if %enemy_barrier>0 gosub *enemy_barrier: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
if %enemy_holy=2 && %cmd1=42 return *enemy_holyguard

gosub *dwaveplay

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 %bind_damage=1 skip 7
if $ori_name="Sara" mov %damage,%abairitu*%saralv*6/5*%damage_keigen/2000
if $ori_name!="Sara" mov %damage,%abairitu*%mylv*%damage_keigen/2000
if $ori_name="Luka" && %enrage_turn>0 mov %damage,%damage*2
rnd2 %damage,%damage*9/10,%damage*11/10
if $ori_name="Luka" && $knight="Granberia" && %granberia_rep>9 gosub *enemylife_gran
if $ori_name="Luka" && %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 %bind_damage=1 skip 18
if %no_hit>0 gosub *no_hit:return
if %enemy1_barrier>0 gosub *enemy_mult_barrier: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
gosub *dwaveplay

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 %bind_damage=1 skip 7
if $ori_name="Sara" mov %damage,%abairitu*%saralv*6/5*%damage_keigen1/2000
if $ori_name!="Sara" mov %damage,%abairitu*%mylv*%damage_keigen1/2000
if $ori_name="Luka" && %enrage_turn>0 mov %damage,%damage*2
rnd2 %damage,%damage*9/10,%damage*11/10
if $ori_name="Luka" && $knight="Granberia" && %granberia_rep>9 gosub *enemylife_gran
if $ori_name="Luka" && %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 %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 %bind_damage=1 skip 18
if %no_hit>0 gosub *no_hit:return
if %enemy2_barrier>0 gosub *enemy_mult_barrier: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
name ""
if %enemy2_holy=1 gosub *enemy_mult_holyguard:return
if %enemy2_holy=2 && %cmd1=42 gosub *enemy_mult_holyguard:return
gosub *dwaveplay

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
if %bind_damage=1 skip 7
if $ori_name="Sara" mov %damage,%abairitu*%saralv*6/5*%damage_keigen2/2000
if $ori_name!="Sara" mov %damage,%abairitu*%mylv*%damage_keigen2/2000
if $ori_name="Luka" && %enrage_turn>0 mov %damage,%damage*2
rnd2 %damage,%damage*9/10,%damage*11/10
if $ori_name="Luka" && $knight="Granberia" && %granberia_rep>9 gosub *enemylife_gran
if $ori_name="Luka" && %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 %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 %bind_damage=1 skip 18
if %no_hit>0 gosub *no_hit:return
if %enemy3_barrier>0 gosub *enemy_mult_barrier: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
gosub *dwaveplay

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
if %bind_damage=1 skip 7
if $ori_name="Sara" mov %damage,%abairitu*%saralv*6/5*%damage_keigen3/2000
if $ori_name!="Sara" mov %damage,%abairitu*%mylv*%damage_keigen3/2000
if $ori_name="Luka" && %enrage_turn>0 mov %damage,%damage*2
rnd2 %damage,%damage*9/10,%damage*11/10
if $ori_name="Luka" && $knight="Granberia" && %granberia_rep>9 gosub *enemylife_gran
if $ori_name="Luka" && %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 %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

*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_water=1 mov %damage,%damage*90/100
if %enviro_water=2 mov %damage,%damage*85/100
if %enviro_water=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	;??????

gosub *dwaveplay

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 %mylife_boost<1 && %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 %mylife_boost<1 && %max_mylife>%mylife*5 && %sel_kiki=1 goto *face2
if %mylife_boost>0 && %max2_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 %mylife_boost<1 && %max_mylife>%mylife*5 && %sel_kiki=1 goto *face2
if %mylife_boost>0 && %max2_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 %mylife_boost<1 && %max_mylife>%mylife*5 && %sel_kiki=1 goto *face2
if %mylife_boost>0 && %max2_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 %kousoku>0 return
if %kousan>0 goto *face2
if %enemy_num<2 skip 18
if %enemy_num>1 && %SQ=0 && %enemy1life>0 && %enemy1disable<1 lsp 700,":a;chara\"+$tatie11+".bmp",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=1 && %enemy1life>0 && %enemy1disable<1 lsp 700,":a;2Q\chara\"+$tatie11+".png",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=0 && %enemy1life>0 && %enemy1disable>0 lsp 700,":a;chara\"+$tatie13+".bmp",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=1 && %enemy1life>0 && %enemy1disable>0 lsp 700,":a;2Q\chara\"+$tatie13+".png",%monster1_x,%monster1_y

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

if %enemy_num>2 && %SQ=0 && %enemy3life>0 && %enemy3disable<1 lsp 702,":a;chara\"+$tatie31+".bmp",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=1 && %enemy3life>0 && %enemy3disable<1 lsp 702,":a;2Q\chara\"+$tatie31+".png",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=0 && %enemy3life>0 && %enemy3disable>0 lsp 702,":a;chara\"+$tatie33+".bmp",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=1 && %enemy3life>0 && %enemy3disable>0 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 %mylife_boost<1 && %max_mylife>%mylife*5 && %sel_kiki=1 goto *face2
if %mylife_boost>0 && %max2_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 5
if %SQ=0 && %enemydisable<1 lsp 700,":a;chara\"+$tatie1+".bmp",%monster_x,%monster_y
if %SQ=1 && %enemydisable<1 lsp 700,":a;2Q\chara\"+$tatie1+".png",%monster_x,%monster_y
if %SQ=0 && %enemydisable>0 lsp 700,":a;chara\"+$tatie3+".bmp",%monster_x,%monster_y
if %SQ=1 && %enemydisable>0 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 %kousoku>0 return
if %enemy_num<2 skip 18
if %enemy_num>1 && %SQ=0 && %enemy1life>0 && %enemy1disable<1 lsp 700,":a;chara\"+$tatie12+".bmp",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=1 && %enemy1life>0 && %enemy1disable<1 lsp 700,":a;2Q\chara\"+$tatie12+".png",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=0 && %enemy1life>0 && %enemy1disable>0 lsp 700,":a;chara\"+$tatie13+".bmp",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=1 && %enemy1life>0 && %enemy1disable>0 lsp 700,":a;2Q\chara\"+$tatie13+".png",%monster1_x,%monster1_y

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

if %enemy_num>2 && %SQ=0 && %enemy3life>0 && %enemy3disable<1 lsp 702,":a;chara\"+$tatie32+".bmp",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=1 && %enemy3life>0 && %enemy3disable<1 lsp 702,":a;2Q\chara\"+$tatie32+".png",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=0 && %enemy3life>0 && %enemy3disable>0 lsp 702,":a;chara\"+$tatie33+".bmp",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=1 && %enemy3life>0 && %enemy3disable>0 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 5
if %SQ=0 && %enemydisable<1 lsp 700,":a;chara\"+$tatie2+".bmp",%monster_x,%monster_y
if %SQ=1 && %enemydisable<1 lsp 700,":a;2Q\chara\"+$tatie2+".png",%monster_x,%monster_y
if %SQ=0 && %enemydisable>0 lsp 700,":a;chara\"+$tatie3+".bmp",%monster_x,%monster_y
if %SQ=1 && %enemydisable>0 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 lsp 700,":a;chara\"+$tatie13+".bmp",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=1 && %enemy1life>0 lsp 700,":a;2Q\chara\"+$tatie13+".png",%monster1_x,%monster1_y
if %enemy_num>1 && %SQ=0 && %enemy2life>0 lsp 701,":a;chara\"+$tatie23+".bmp",%monster2_x,%monster2_y
if %enemy_num>1 && %SQ=1 && %enemy2life>0 lsp 701,":a;2Q\chara\"+$tatie23+".png",%monster2_x,%monster2_y
if %enemy_num>2 && %SQ=0 && %enemy3life>0 lsp 702,":a;chara\"+$tatie33+".bmp",%monster3_x,%monster3_y
if %enemy_num>2 && %SQ=1 && %enemy3life>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

mov %surrender,1
mov %daten,0
mov %sdaten,0
mov %before_action,53
mov %kousan,1
mov %count_kousan,%count_kousan+1
mov %sel_hphalf,1
mov %sel_kiki,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:gosub *elm_print
gosub *kousan_status_reset
cspl 592,595
cspl 667,670:print 1
return



*onedari_syori

mov %before_action,54
mov %kousan,2
mov %daten,0
mov %sdaten,0
mov %count_onedari,%count_onedari+1
mov %sel_hphalf,1
mov %sel_kiki,1
if %fetish_sin!=%fetish mov %fetish_sin,%fetish
mov %fetish,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
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:gosub *elm_print
gosub *kousan_status_reset
cspl 592,595
cspl 667,670: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_mult

mov %before_action,54
mov %kousan,2
mov %daten,0
mov %sdaten,0
mov %count_onedari,%count_onedari+1
mov %sel_hphalf,1
mov %sel_kiki,1
if %fetish_sin!=%fetish mov %fetish_sin,%fetish
mov %fetish,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
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:gosub *elm_print
gosub *kousan_status_reset
cspl 592,595
cspl 667,670: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
gosub *face2
print 10,500
return


*onedari_syori_k

mov %before_action,54
mov %kousan,2
mov %daten,0
mov %sdaten,0
mov %count_onedari,%count_onedari+1
mov %sel_hphalf,1
mov %sel_kiki,1
if %fetish_sin!=%fetish mov %fetish_sin,%fetish
mov %fetish,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
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:gosub *elm_print
gosub *kousan_status_reset
cspl 592,595
cspl 667,670: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

*onedari_syori_mult_k

mov %before_action,54
mov %kousan,2
mov %daten,0
mov %sdaten,0
mov %count_onedari,%count_onedari+1
mov %sel_hphalf,1
mov %sel_kiki,1
if %fetish_sin!=%fetish mov %fetish_sin,%fetish
mov %fetish,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
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:gosub *elm_print
gosub *kousan_status_reset
cspl 592,595
cspl 667,670: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
gosub *face2
print 10,500
return

*ikigoe

rnd2 %ransu,1,5
if %ikigoe<2 && %ransu=1 mov $sel1,"Aaa... Cumming!"
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=5 mov $sel1,"Nnnnnn!"

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=2 && %ransu=5 mov $sel1,"In...Incredible... Aaaaahh!"

if %ikigoe=3 && %ransu=1 mov $sel1,"Ahg! I'm going to cum!"
if %ikigoe=3 && %ransu=2 mov $sel1,"Cu...Cumming!"
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=3 && %ransu=5 mov $sel1,"Ghh! Aa...Ahhhh!"

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 && %ransu=5 mov $sel1,"Uguh... Nnngh..."

if %ikigoe=4 skip 6
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 %status=1 && %ransu=5 mov $sel1,"Nnnn..."

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=5 && %ikigoe<2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose1_5"

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=5 && %ikigoe=2 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose2_5"

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=5 && %ikigoe=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose3_5"

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 %ransu=5 && %ikigoe=4 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose4_5"

if %ikigoe=4 skip 6
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_2"
if %status=1 && %ransu=3 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose5_3"
if %status=1 && %ransu=4 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose5_4"
if %status=1 && %ransu=4 && %player=99 getini $sel1,$mon_labo_mon_ini,"hero_sel","hero_lose5_5"

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

*victory_notext

mov %mp_charge,0
mov %daten,0
mov %SQ,0
mov %ruka_tati,1
mov %skillset,1
mov %saveoff,0
mov %nobtn,0
mov %nocharge,0
mov %alicesup,0
mov %support,0
mov %knightsup,0
mov %nostar,0
mov %target_all,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 $fight_hold,""
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 662,698
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
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 2
mov %mylv,%mylv_sin
mov %poison,-1
mov %enemy_num,1
return

*victoryx

mov %mp_charge,0
mov %daten,0
mov %SQ,0
mov %ruka_tati,1
mov %skillset,1
mov %saveoff,0
mov %nobtn,0
mov %alicesup,0
mov %support,0
mov %knightsup,0
mov %nostar,0
mov %target_all,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 $fight_hold,""
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 662,698
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 %ruka_tati,1
mov %skillset,1
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
mov $fight_hold,""
mov %target_all,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 662,698
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=2 mov %zukanon,1
if %zukanon=1 return *zukan_commonkaisou0
if %mylv_sin=%mylv skip 3
mov %mylv,%mylv_sin
>Level up!\
return


*victory

mov %mp_charge,0
mov %daten,0
mov %SQ,0
mov %ruka_tati,1
mov %skillset,1
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 $fight_hold,""
mov %target_all,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 662,698
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"
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 %mp_charge,0
mov %nostar,0
mov %daten,0
mov %SQ,0
mov %ruka_tati,1
mov %skillset,1
mov %nocharge,0
mov %nobtn,0
mov %target_all,0
mov %saveoff,0
mov $tatie1b,""
mov $tatie2b,""
mov $tatie3b,""
mov %tekikazu,1
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 662,698
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
mov %sdaten,0
if %battle_auto=1 skipoff
wait 1000
mov %nocharge,0
mov %battle,0
if %fetish!=%fetish_sin mov %fetish,%fetish_sin
mov %enemy_wind,0:mov %enemy_earth,0:mov %enemy_aqua,0:mov %enemy_fire,0:gosub *elm_print
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 662,670
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"bgm\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

mov %daten,0
mov %sdaten,0
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:mov %wind_turn,0:mov %earth_turn,0:mov %aqua_turn,0:mov %fire_turn,0:gosub *elm_print
gosub *elm_print
if %fetish!=%fetish_sin mov %fetish,%fetish_sin
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"bgm\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_sara

saveoff
mov %getexp,%getexp/20
mov %sara_exp,%sara_exp+%getexp
mov %saralv_before,%saralv
gosub *sara_lvup_check
itoa $getexp,%getexp
itoa $saralv,%saralv
mov $sel1,"Sara earned "+$getexp+" experience points!"
mov $sel2,"Sara is now level "+$saralv+"!"
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 %saralv=%saralv_before skip 3
``$sel1\
skip 4
``$sel1\
dwave 1,"se\lvup.ogg"
``$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 mov %mp,%mp-1: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
mov %dwaveset,0
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 gosub *face1:mov %freeze_turn,%freeze_turn-1:mov %enemydisable,0: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,-1:mov %enemy1disable,0: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,-1:mov %enemy2disable,0: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,-1:mov %enemy3disable,0: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,-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,-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,-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,-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,-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,-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

*spirit_buff

if %gnome_get<1 mov %gnome_buff,0:skip 2
mov %gnome_buff,%gnome_rep/2
if %undine_get<1 mov %undine_buff,0:skip 2
mov %undine_buff,%undine_rep/2
if %sylph_get<1 mov %sylph_buff,0:skip 2
mov %sylph_buff,%sylph_rep/2
if %salamander_get<1 mov %salamander_buff,0:skip 2
mov %salamander_buff,%salamander_rep/2
if %enviro_wind=0 && %enviro_earth=0 && %enviro_water=0 && %enviro_fire=0 return
gosub *enviro_buff
return

*enviro_buff

if %gnome_get<1 skip 4
if %enviro_earth=1 mov %gnome_buff,%gnome_buff*(115/100)
if %enviro_earth=2 mov %gnome_buff,%gnome_buff*(130/100)
if %enviro_earth=3 mov %gnome_buff,%gnome_buff*(150/100)
if %undine_get<1 skip 7
if %enviro_water=1 mov %undine_buff,%undine_buff+10
if %enviro_water=2 mov %undine_buff,%undine_buff+20
if %enviro_water=3 mov %undine_buff,%undine_buff+30
if %enviro_fire=1 mov %undine_buff,%undine_buff-10
if %enviro_fire=2 mov %undine_buff,%undine_buff-20
if %enviro_fire=3 mov %undine_buff,%undine_buff-30
return

*common_main; Adding the ; to easily find it

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

if $party1="Sara" && %party1sup>0 && %sara_firstbattle<1 gosub *sara_help
if $party2="Sara" && %party2sup>0 && %sara_firstbattle<1 gosub *sara_help
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 %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 %mylife_boost<1 && %max_mylife>%mylife*5 && %kousoku=0 && %sel_kiki=1 gosub *face2
if %mylife_boost>0 && %max2_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 mov %mp,%mp-1:gosub *mp
if %aqua=2 && %mp<1 gosub *aqua_sel
if %aqua=2 mov %aqua_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 %status>0 && %immune>0 mov %status,0:gosub *status_print
if %poison>0 && %immune>0 mov %poison,-1:gosub *status_print

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 %lift_turn=1 gosub *lift_end
if %windbuff_turn=0 gosub *windbuff_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 %potion>0 && %potion_turn=0 gosub *potion_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:mov %enemydisable,0:gosub "*"+$lavel+"_endseduce"
if %seduce_turn1>0 gosub "*"+$lavel+"_seduce1"
if %seduce_turn1=0 mov %seduce_turn1,-1:mov %enemy1disable,0:gosub "*"+$lavel+"_endseduce1"
if %seduce_turn2>0 gosub "*"+$lavel+"_seduce2"
if %seduce_turn2=0 mov %seduce_turn2,-1:mov %enemy2disable,0:gosub "*"+$lavel+"_endseduce2"
if %seduce_turn3>0 gosub "*"+$lavel+"_seduce3"
if %seduce_turn3=0 mov %seduce_turn3,-1:mov %enemy3disable,0: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:mov %enemydisable,0:gosub "*"+$lavel+"_endbind"
if %erbind_turn1>0 gosub "*"+$lavel+"_bind1"
if %erbind_turn1=0 mov %erbind_turn1,-1:mov %enemy1disable,0:gosub "*"+$lavel+"_endbind1"
if %erbind_turn2>0 gosub "*"+$lavel+"_bind2"
if %erbind_turn2=0 mov %erbind_turn2,-1:mov %enemy2disable,0:gosub "*"+$lavel+"_endbind2"
if %erbind_turn3>0 gosub "*"+$lavel+"_bind3"
if %erbind_turn3=0 mov %erbind_turn3,-1:mov %enemy3disable,0: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 %lubind_turn>0 gosub "*"+$lavel+"_bind":mov %bind_damage,1:gosub *luskill2c:mov %bind_damage,0
if %lubind_turn=0 mov %lubind_turn,-1:mov %enemydisable,0:gosub "*"+$lavel+"_endbind"
if %lubind_turn1>0 gosub "*"+$lavel+"_bind1":mov %enemy_target,1:mov %bind_damage,1:gosub *luskill2c:mov %bind_damage,0
if %lubind_turn1=0 mov %lubind_turn1,-1:mov %enemy1disable,0:gosub "*"+$lavel+"_endbind1"
if %lubind_turn2>0 gosub "*"+$lavel+"_bind2":mov %enemy_target,2:mov %bind_damage,1:gosub *luskill2c:mov %bind_damage,0
if %lubind_turn2=0 mov %lubind_turn2,-1:mov %enemy2disable,0:gosub "*"+$lavel+"_endbind2"
if %lubind_turn3>0 gosub "*"+$lavel+"_bind3":mov %enemy_target,3:mov %bind_damage,1:gosub *luskill2c:mov %bind_damage,0
if %lubind_turn3=0 mov %lubind_turn3,-1:mov %enemy3disable,0:gosub "*"+$lavel+"_endbind3"

if %tabind_turn>0 gosub "*"+$lavel+"_bind":mov %bind_damage,1:gosub *taskill7c:mov %bind_damage,0
if %tabind_turn=0 mov %tabind_turn,-1:mov %enemydisable,0:gosub "*"+$lavel+"_endbind"
if %tabind_turn1>0 gosub "*"+$lavel+"_bind1":mov %enemy_target,1:mov %bind_damage,1:gosub *taskill7c:mov %bind_damage,0
if %tabind_turn1=0 mov %tabind_turn1,-1:mov %enemy1disable,0:gosub "*"+$lavel+"_endbind1"
if %tabind_turn2>0 gosub "*"+$lavel+"_bind2":mov %enemy_target,2:mov %bind_damage,1:gosub *taskill7c:mov %bind_damage,0
if %tabind_turn2=0 mov %tabind_turn2,-1:mov %enemy2disable,0:gosub "*"+$lavel+"_endbind2"
if %tabind_turn3>0 gosub "*"+$lavel+"_bind3":mov %enemy_target,3:mov %bind_damage,1:gosub *taskill7c:mov %bind_damage,0
if %tabind_turn3=0 mov %tabind_turn3,-1:mov %enemy3disable,0:gosub "*"+$lavel+"_endbind3"

if %paralyze_turn>0 mov %paralyze_turn,%paralyze_turn-1
if %paralyze_turn1>0 mov %paralyze_turn1,%paralyze_turn1-1
if %paralyze_turn2>0 mov %paralyze_turn2,%paralyze_turn2-1
if %paralyze_turn3>0 mov %paralyze_turn3,%paralyze_turn3-1
if %paralyze_turn4>0 mov %paralyze_turn4,%paralyze_turn4-1
if %paralyze_turn5>0 mov %paralyze_turn5,%paralyze_turn5-1
if %paralyze_turn6>0 mov %paralyze_turn6,%paralyze_turn6-1
if %paralyze_turn7>0 mov %paralyze_turn7,%paralyze_turn7-1
if %paralyze_turn8>0 mov %paralyze_turn8,%paralyze_turn8-1
if %paralyze_turn9>0 mov %paralyze_turn9,%paralyze_turn9-1

if %paralyze_turn>0 gosub "*"+$lavel+"_paralyze"
if %paralyze_turn=0 mov %paralyze_turn,-1:gosub "*"+$lavel+"_endparalyze"
if %paralyze_turn1>0 gosub "*"+$lavel+"_paralyze1"
if %paralyze_turn1=0 mov %paralyze_turn1,-1:gosub "*"+$lavel+"_endparalyze1"
if %paralyze_turn2>0 gosub "*"+$lavel+"_paralyze2"
if %paralyze_turn2=0 mov %paralyze_turn2,-1:gosub "*"+$lavel+"_endparalyze2"
if %paralyze_turn3>0 gosub "*"+$lavel+"_paralyze3"
if %paralyze_turn3=0 mov %paralyze_turn3,-1:gosub "*"+$lavel+"_endparalyze3"
if %paralyze_turn4>0 gosub "*"+$lavel+"_paralyze4"
if %paralyze_turn4=0 mov %paralyze_turn4,-1:gosub "*"+$lavel+"_endparalyze4"
if %paralyze_turn5>0 gosub "*"+$lavel+"_paralyze5"
if %paralyze_turn5=0 mov %paralyze_turn5,-1:gosub "*"+$lavel+"_endparalyze5"
if %paralyze_turn6>0 gosub "*"+$lavel+"_paralyze6"
if %paralyze_turn6=0 mov %paralyze_turn6,-1:gosub "*"+$lavel+"_endparalyze6"
if %paralyze_turn7>0 gosub "*"+$lavel+"_paralyze7"
if %paralyze_turn7=0 mov %paralyze_turn7,-1:gosub "*"+$lavel+"_endparalyze7"
if %paralyze_turn8>0 gosub "*"+$lavel+"_paralyze8"
if %paralyze_turn8=0 mov %paralyze_turn8,-1:gosub "*"+$lavel+"_endparalyze8"
if %paralyze_turn9>0 gosub "*"+$lavel+"_paralyze9"
if %paralyze_turn9=0 mov %paralyze_turn9,-1:gosub "*"+$lavel+"_endparalyze9"

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 %lift_turn>0 mov %lift_turn,%lift_turn-1
if %windbuff_turn>0 mov %windbuff_turn,%windbuff_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 %potion>0 && %potion_turn>0 mov %potion_turn,%potion_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 %lubind_turn>0 mov %lubind_turn,%lubind_turn-1
if %lubind_turn1>0 mov %lubind_turn1,%lubind_turn1-1
if %lubind_turn2>0 mov %lubind_turn2,%lubind_turn2-1
if %lubind_turn3>0 mov %lubind_turn3,%lubind_turn3-1
if %tabind_turn>0 mov %tabind_turn,%tabind_turn-1
if %tabind_turn1>0 mov %tabind_turn1,%tabind_turn1-1
if %tabind_turn2>0 mov %tabind_turn2,%tabind_turn2-1
if %tabind_turn3>0 mov %tabind_turn3,%tabind_turn3-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 9
mov %enemy_wind,0
mov %enemy_windturn,0
mov %enemy_spiritcount,%enemy_spiritcount-1
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,0:mov %enemy1_windturn,0:mov %enemy1_spiritcount,%enemy1_spiritcount-1:mov $temp_name,$name1
if %enemy_target=2 mov %enemy2_wind,0:mov %enemy2_windturn,0:mov %enemy2_spiritcount,%enemy2_spiritcount-1:mov $temp_name,$name2
if %enemy_target=3 mov %enemy3_wind,0:mov %enemy3_windturn,0:mov %enemy3_spiritcount,%enemy3_spiritcount-1:mov $temp_name,$name3
if %enemy_target=4 mov %enemy4_wind,0:mov %enemy4_windturn,0:mov %enemy4_spiritcount,%enemy4_spiritcount-1:mov $temp_name,$name4
if %enemy_target=5 mov %enemy5_wind,0:mov %enemy5_windturn,0:mov %enemy5_spiritcount,%enemy5_spiritcount-1:mov $temp_name,$name5
if %enemy_target=6 mov %enemy6_wind,0:mov %enemy6_windturn,0:mov %enemy6_spiritcount,%enemy6_spiritcount-1:mov $temp_name,$name6
if %enemy_target=7 mov %enemy7_wind,0:mov %enemy7_windturn,0:mov %enemy7_spiritcount,%enemy7_spiritcount-1:mov $temp_name,$name7
if %enemy_target=8 mov %enemy8_wind,0:mov %enemy8_windturn,0:mov %enemy8_spiritcount,%enemy8_spiritcount-1:mov $temp_name,$name8
if %enemy_target=9 mov %enemy9_wind,0:mov %enemy9_windturn,0:mov %enemy9_spiritcount,%enemy9_spiritcount-1:mov $temp_name,$name9
gosub *elm_print
mov $sel1,""+$temp_name+"'s power of Wind fades!"
``$sel1\
return

*enemy_element_earthfade

if %enemy_num>1 skip 10
mov %enemy_earth,0
mov %enemy_earthturn,0
mov %enemy_spiritcount,%enemy_spiritcount-1
gosub *elm_print
mov $temp_name,$name
mov $sel1,""+$temp_name+"'s power of Earth fades!"
``$sel1\
if $lavel="ririmu_ng" mov %damage_keigen,80
return

if %enemy_target=1 mov %enemy1_earth,0:mov %enemy1_earthturn,0:mov %enemy1_spiritcount,%enemy1_spiritcount-1:mov $temp_name,$name1
if %enemy_target=2 mov %enemy2_earth,0:mov %enemy2_earthturn,0:mov %enemy2_spiritcount,%enemy2_spiritcount-1:mov $temp_name,$name2
if %enemy_target=3 mov %enemy3_earth,0:mov %enemy3_earthturn,0:mov %enemy3_spiritcount,%enemy3_spiritcount-1:mov $temp_name,$name3
if %enemy_target=4 mov %enemy4_earth,0:mov %enemy4_earthturn,0:mov %enemy4_spiritcount,%enemy4_spiritcount-1:mov $temp_name,$name4
if %enemy_target=5 mov %enemy5_earth,0:mov %enemy5_earthturn,0:mov %enemy5_spiritcount,%enemy5_spiritcount-1:mov $temp_name,$name5
if %enemy_target=6 mov %enemy6_earth,0:mov %enemy6_earthturn,0:mov %enemy6_spiritcount,%enemy6_spiritcount-1:mov $temp_name,$name6
if %enemy_target=7 mov %enemy7_earth,0:mov %enemy7_earthturn,0:mov %enemy7_spiritcount,%enemy7_spiritcount-1:mov $temp_name,$name7
if %enemy_target=8 mov %enemy8_earth,0:mov %enemy8_earthturn,0:mov %enemy8_spiritcount,%enemy8_spiritcount-1:mov $temp_name,$name8
if %enemy_target=9 mov %enemy9_earth,0:mov %enemy9_earthturn,0:mov %enemy9_spiritcount,%enemy9_spiritcount-1:mov $temp_name,$name9
gosub *elm_print
mov $sel1,""+$temp_name+"'s power of Earth fades!"
``$sel1\
return

*enemy_element_aquafade

if %enemy_num>1 skip 9
mov %enemy_aqua,0
mov %enemy_aquaturn,0
mov %enemy_spiritcount,%enemy_spiritcount-1
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 %enemy1_aquaturn,0:mov %enemy1_spiritcount,%enemy1_spiritcount-1:mov $temp_name,$name1
if %enemy_target=2 mov %enemy2_aqua,0:mov %enemy2_aquaturn,0:mov %enemy2_spiritcount,%enemy2_spiritcount-1:mov $temp_name,$name2
if %enemy_target=3 mov %enemy3_aqua,0:mov %enemy3_aquaturn,0:mov %enemy3_spiritcount,%enemy3_spiritcount-1:mov $temp_name,$name3
if %enemy_target=4 mov %enemy4_aqua,0:mov %enemy4_aquaturn,0:mov %enemy4_spiritcount,%enemy4_spiritcount-1:mov $temp_name,$name4
if %enemy_target=5 mov %enemy5_aqua,0:mov %enemy5_aquaturn,0:mov %enemy5_spiritcount,%enemy5_spiritcount-1:mov $temp_name,$name5
if %enemy_target=6 mov %enemy6_aqua,0:mov %enemy6_aquaturn,0:mov %enemy6_spiritcount,%enemy6_spiritcount-1:mov $temp_name,$name6
if %enemy_target=7 mov %enemy7_aqua,0:mov %enemy7_aquaturn,0:mov %enemy7_spiritcount,%enemy7_spiritcount-1:mov $temp_name,$name7
if %enemy_target=8 mov %enemy8_aqua,0:mov %enemy8_aquaturn,0:mov %enemy8_spiritcount,%enemy8_spiritcount-1:mov $temp_name,$name8
if %enemy_target=9 mov %enemy9_aqua,0:mov %enemy9_aquaturn,0:mov %enemy9_spiritcount,%enemy9_spiritcount-1:mov $temp_name,$name9
gosub *elm_print
mov $sel1,""+$temp_name+"'s power of Water fades!"
``$sel1\
return

*enemy_element_firefade

if %enemy_num>1 skip 10
mov %enemy_fire,0
mov %enemy_fireturn,0
mov %enemy_spiritcount,%enemy_spiritcount-1
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 %enemy1_fireturn,0:mov %enemy1_spiritcount,%enemy1_spiritcount-1:mov $temp_name,$name1
if %enemy_target=2 mov %enemy2_fire,0:mov %enemy2_fireturn,0:mov %enemy2_spiritcount,%enemy2_spiritcount-1:mov $temp_name,$name2
if %enemy_target=3 mov %enemy3_fire,0:mov %enemy3_fireturn,0:mov %enemy3_spiritcount,%enemy3_spiritcount-1:mov $temp_name,$name3
if %enemy_target=4 mov %enemy4_fire,0:mov %enemy4_fireturn,0:mov %enemy4_spiritcount,%enemy4_spiritcount-1:mov $temp_name,$name4
if %enemy_target=5 mov %enemy5_fire,0:mov %enemy5_fireturn,0:mov %enemy5_spiritcount,%enemy5_spiritcount-1:mov $temp_name,$name5
if %enemy_target=6 mov %enemy6_fire,0:mov %enemy6_fireturn,0:mov %enemy6_spiritcount,%enemy6_spiritcount-1:mov $temp_name,$name6
if %enemy_target=7 mov %enemy7_fire,0:mov %enemy7_fireturn,0:mov %enemy7_spiritcount,%enemy7_spiritcount-1:mov $temp_name,$name7
if %enemy_target=8 mov %enemy8_fire,0:mov %enemy8_fireturn,0:mov %enemy8_spiritcount,%enemy8_spiritcount-1:mov $temp_name,$name8
if %enemy_target=9 mov %enemy9_fire,0:mov %enemy9_fireturn,0:mov %enemy9_spiritcount,%enemy9_spiritcount-1:mov $temp_name,$name9
gosub *elm_print
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

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

mov $temp_name,$name2
if %status!=4 || %enemy_num<2 skip 10
if %surrender_target=1 mov $temp_name,$name1
if %surrender_target=2 mov $temp_name,$name2
if %surrender_target=3 mov $temp_name,$name3
if %surrender_target=4 mov $temp_name,$name4
if %surrender_target=5 mov $temp_name,$name5
if %surrender_target=6 mov $temp_name,$name6
if %surrender_target=7 mov $temp_name,$name7
if %surrender_target=8 mov $temp_name,$name8
if %surrender_target=9 mov $temp_name,$name9

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 "+$temp_name+"'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 senses!"
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 && %mylife_boost<1 && %max_mylife<%mylife*5 gosub *attack_kaisin:goto *common_attack_end
if %ransu>7 && %mylife_boost>0 && %max2_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
mov %dwaveset,1
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
mov %dwaveset,2
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
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
mov %dwaveset,3
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\
mov %dwaveset,3
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		;???&???????

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			;???????

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 5
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
mov %dwaveset,1
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
mov %dwaveset,2
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 %harpy_windbuff=1 mov %wind_kakuritu,%wind_kakuritu+10

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 && %sylph_get<1 skillname "Fallen Angel Dance"
if %wind=4 && %sylph_get>0 skillname "Fallen Angel Dance: Gale"
if %enviro_water>1 dwave 3,"se\aqua4.ogg":skip 5
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
if %wind<4 && %wind>0 mov $sel1,"But Luka moves like the wind and dodges! "
if %wind=4 mov $sel1,"But Luka senses the holy energy and nimbly dodges!"
if %enviro_water>1 mov $sel1,"But Luka quickly darts through the water and dodges! "
``$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 && %sylph_get<1 skillname "Fallen Angel Dance"
if %wind=4 && %sylph_get>0 skillname "Fallen Angel Dance: Gale"
if %enviro_water>1 dwave 3,"se\aqua4.ogg":skip 5
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

*lift_guard

wait 500
skillname "Air Lift"
dwave 3,"se\miss_wind.ogg"
csp 690
mov $sel1,"But Luka avoids the attack while being lifted high in the air! "
``$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

*enemy_mult_barrier

name ""
dwave 2,"2Q\se\Reflection.ogg"
gosub *face2
if %enemy_target=1 mov %enemy1_barrier,%enemy1_barrier-1
if %enemy1_barrier<0 mov %enemy1_barrier,0
if %enemy_target=1 mov $sel1,"But "+$name1+"'s barrier blocks the attack!"
if %enemy_target=2 mov %enemy2_barrier,%enemy2_barrier-1
if %enemy2_barrier<0 mov %enemy2_barrier,0
if %enemy_target=2 mov $sel1,"But "+$name2+"'s barrier blocks the attack!"
if %enemy_target=3 mov %enemy3_barrier,%enemy3_barrier-1
if %enemy3_barrier<0 mov %enemy3_barrier,0
if %enemy_target=3 mov $sel1,"But "+$name3+"'s barrier blocks the attack!"
if %enemy_target=4 mov %enemy4_barrier,%enemy4_barrier-1
if %enemy4_barrier<0 mov %enemy4_barrier,0
if %enemy_target=4 mov $sel1,"But "+$name4+"'s barrier blocks the attack!"
if %enemy_target=5 mov %enemy5_barrier,%enemy5_barrier-1
if %enemy5_barrier<0 mov %enemy5_barrier,0
if %enemy_target=5 mov $sel1,"But "+$name5+"'s barrier blocks the attack!"
if %enemy_target=6 mov %enemy6_barrier,%enemy6_barrier-1
if %enemy6_barrier<0 mov %enemy6_barrier,0
if %enemy_target=6 mov $sel1,"But "+$name6+"'s barrier blocks the attack!"
if %enemy_target=7 mov %enemy7_barrier,%enemy7_barrier-1
if %enemy7_barrier<0 mov %enemy7_barrier,0
if %enemy_target=7 mov $sel1,"But "+$name7+"'s barrier blocks the attack!"
if %enemy_target=8 mov %enemy8_barrier,%enemy8_barrier-1
if %enemy8_barrier<0 mov %enemy8_barrier,0
if %enemy_target=8 mov $sel1,"But "+$name8+"'s barrier blocks the attack!"
if %enemy_target=9 mov %enemy9_barrier,%enemy9_barrier-1
if %enemy9_barrier<0 mov %enemy9_barrier,0
if %enemy_target=9 mov $sel1,"But "+$name9+"'s barrier blocks the attack!"
``$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 ""
return

*aqua_guard3

name "Luka"
>.............\
name ""
wait 500
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 summons all his resolve, and purges the status from his body!"
``$sel1\
wait 500
if %poison>0 mov %poison,-1:gosub *elm_print
mov %status,0:mov %status_turn,0
skillname ""
return

*common_s1

if %mylife_boost<1 && %max_mylife>%mylife*5 mov %sel_hphalf,1:goto *common_s2
if %mylife_boost>0 && %max2_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

*sara_help

mov %sara_firstbattle,1
gosub *setwindow_02
name "Sara"
lsp 699,":a;chara\sara_st05r.bmp",-200,0:print 10,500
>I'll back you up, Luka!\
name "Luka"
>Sara? @ >No! @
>This is too much for you right now. Stay back!\
name "Sara"
lsp 699,":a;chara\sara_st03r.bmp",-200,0:print 10,500
>I know that...@
lsp 699,":a;chara\sara_st01r.bmp",-200,0:print 10,500
>That's why I'm staying behind you. @ >You handle the heavy fighting and give me a signal when there's an opening for me to help.\
name ""
>...I guess I can handle this myself if I don't want Sara getting involved...@
>...but it looks like she really wants to help.\
csp 699:print 10,500
return

*salamander_water

mov %salamander_cold,1
name "Luka"
>What the-!?\
name ""
>She only recovered half my SP!\
wait 500
lsp2 0,":a;2Q\chara\salamander_st24.png",200,300,100,100,0,200
gosub *syoukan_effect
name "Salamander"
>Uggh...@
>It's too cold down here...\
>I can't get fired up at all...\
name ""
>What!? @ >Is she serious? @
>I need her power!!\
lsp2 0,":a;chara\undine_st01.bmp",200,300,100,100,0,200
gosub *syoukan_effect
name "Undine"
>Concentrate, Luka.@
>Salamander may be a big baby when it comes to fighting underwater, but I'm in top shape right now.\
>It should be much easier to evade attacks using my power like this, so use    that extra time to charge your SP rather than relying on Salamander's power.\
name "Luka"
>Uhh... Got it.\
name ""
>It looks like I'll have to count on Undine for now.\
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+(%queenharpy_rep/2)
if $party1="Micaela" mov %party1mp,36+(%micaela_rep/2)
if $party1="Elle" mov %party1mp,8+(%elle_rep/2)
if $party1="Sara" mov %party1mp,%sara_max_mp
if $party1="Lucia" mov %party1mp,12+(%lucia_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+(%queenharpy_rep/2)
if $party2="Micaela" mov %party2mp,36+(%micaela_rep/2)
if $party2="Elle" mov %party2mp,8+(%elle_rep/2)
if $party2="Sara" mov %party2mp,%sara_max_mp
if $party2="Lucia" mov %party2mp,12+(%lucia_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" && %tabind_turn>-1 lsp 601,":s/20,20,0;#bbbbbbTamamo",70,%y:mov %y,%y+27:skip 5
if %knightsup>0 && $knight="Tamamo" && %tabind_turn1>-1 lsp 601,":s/20,20,0;#bbbbbbTamamo",70,%y:mov %y,%y+27:skip 4
if %knightsup>0 && $knight="Tamamo" && %tabind_turn2>-1 lsp 601,":s/20,20,0;#bbbbbbTamamo",70,%y:mov %y,%y+27:skip 3
if %knightsup>0 && $knight="Tamamo" && %tabind_turn3>-1 lsp 601,":s/20,20,0;#bbbbbbTamamo",70,%y:mov %y,%y+27:skip 2
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" && %erbind_turn>-1 lsp 601,":s/20,20,0;#bbbbbbErubetie",70,%y:mov %y,%y+27:skip 5
if %knightsup>0 && $knight="Erubetie" && %erbind_turn1>-1 lsp 601,":s/20,20,0;#bbbbbbErubetie",70,%y:mov %y,%y+27:skip 4
if %knightsup>0 && $knight="Erubetie" && %erbind_turn2>-1 lsp 601,":s/20,20,0;#bbbbbbErubetie",70,%y:mov %y,%y+27:skip 3
if %knightsup>0 && $knight="Erubetie" && %erbind_turn3>-1 lsp 601,":s/20,20,0;#bbbbbbErubetie",70,%y:mov %y,%y+27:skip 2
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 && $party1="Sara" lsp 602,":s/20,20,0;#FFFFFF#FF4444Sara",70,%y:spbtn 602,102:mov %y,%y+27
if %party1sup>0 && $party1="Lucia" && %lubind_turn>-1 lsp 602,":s/20,20,0;#bbbbbbLucia",70,%y:mov %y,%y+27:skip 5
if %party1sup>0 && $party1="Lucia" && %lubind_turn1>-1 lsp 602,":s/20,20,0;#bbbbbbLucia",70,%y:mov %y,%y+27:skip 4
if %party1sup>0 && $party1="Lucia" && %lubind_turn2>-1 lsp 602,":s/20,20,0;#bbbbbbLucia",70,%y:mov %y,%y+27:skip 3
if %party1sup>0 && $party1="Lucia" && %lubind_turn3>-1 lsp 602,":s/20,20,0;#bbbbbbLucia",70,%y:mov %y,%y+27:skip 2
if %party1sup>0 && $party1="Lucia" lsp 602,":s/20,20,0;#FFFFFF#FF4444Lucia",70,%y:spbtn 602,103: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 && $party2="Sara" lsp 603,":s/20,20,0;#FFFFFF#FF4444Sara",70,%y:spbtn 603,102:mov %y,%y+27
if %party2sup>0 && $party2="Lucia" && %lubind_turn>-1 lsp 603,":s/20,20,0;#bbbbbbLucia",70,%y:mov %y,%y+27:skip 5
if %party2sup>0 && $party2="Lucia" && %lubind_turn1>-1 lsp 603,":s/20,20,0;#bbbbbbLucia",70,%y:mov %y,%y+27:skip 4
if %party2sup>0 && $party2="Lucia" && %lubind_turn2>-1 lsp 603,":s/20,20,0;#bbbbbbLucia",70,%y:mov %y,%y+27:skip 3
if %party2sup>0 && $party2="Lucia" && %lubind_turn3>-1 lsp 603,":s/20,20,0;#bbbbbbLucia",70,%y:mov %y,%y+27:skip 2
if %party2sup>0 && $party2="Lucia" lsp 603,":s/20,20,0;#FFFFFF#FF4444Lucia",70,%y:spbtn 603,103: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=102 goto *cmd_support_sa
if %cmd1=103 goto *cmd_support_lu
if %cmd1=120 goto *cmd_support_mo
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 *common_support
if %cmd1=4 mov %saveorload,1:gosub *saveload:goto *common_support
if %cmd1=7 gosub *window_delete2:goto *common_support
if %cmd1=0 goto *common_support
if %cmd1<=-2 goto *common_support
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 %knight_attack,0:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=901 gosub *grskill2:mov %support_turn,1:mov %knight_attack,0:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=902 gosub *grskill3:mov %support_turn,1:mov %knight_attack,0:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=903 gosub *grskill4:mov %support_turn,1:mov %knight_attack,0:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=904 gosub *grskill5:mov %support_turn,1:mov %knight_attack,0:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=905 gosub *grskill6:mov %support_turn,1:mov %knight_attack,0:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=906 gosub *grskill7:mov %support_turn,1:mov %knight_attack,0:mov $ori_name,"Luka":goto "*"+$lavel+"_main"

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

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

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

if $party1!="Harpy" skip 5
if %cmd1=964 gosub *haskill1:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=965 gosub *haskill2:mov %support_turn,1:mov $ori_name,"Luka":goto *common_attack_end
if %cmd1=966 gosub *haskill3:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=967 gosub *haskill4:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"

if $party2!="Harpy" skip 5
if %cmd1=964 gosub *haskill1:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=965 gosub *haskill2:mov %support_turn,1:mov $ori_name,"Luka":goto *common_attack_end
if %cmd1=966 gosub *haskill3:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=967 gosub *haskill4: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 $party1!="Sara" skip 7
if %cmd1=958 gosub *saraskill1:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=959 gosub *saraskill2:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=960 gosub *saraskill3:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=961 gosub *saraskill4:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=962 gosub *saraskill5:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=963 gosub *saraskill6:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"

if $party2!="Sara" skip 7
if %cmd1=958 gosub *saraskill1:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=959 gosub *saraskill2:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=960 gosub *saraskill3:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=961 gosub *saraskill4:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=962 gosub *saraskill5:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=963 gosub *saraskill6:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"

if $party1!="Lucia" skip 8
if %cmd1=968 gosub *luskill1:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=969 gosub *luskill2:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=970 gosub *luskill3:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=971 gosub *luskill4:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=972 gosub *luskill5:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=973 gosub *luskill6:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=974 gosub *luskill7:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"

if $party2!="Lucia" skip 8
if %cmd1=968 gosub *luskill1:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=969 gosub *luskill2:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=970 gosub *luskill3:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=971 gosub *luskill4:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=972 gosub *luskill5:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=973 gosub *luskill6:mov %support_turn,1:mov $ori_name,"Luka":goto "*"+$lavel+"_main"
if %cmd1=974 gosub *luskill7: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
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_support_ali
if %cmd1=4 mov %saveorload,1:gosub *saveload:goto *cmd_support_ali
if %cmd1=7 gosub *window_delete2:goto *cmd_support_ali
if %cmd1=0 goto *cmd_support_ali
if %cmd1<=-2 goto *cmd_support_ali
gosub *cmd_support_main

;cspl 3,7
;cspl 600,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,608
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 %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 %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
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_support_gr
if %cmd1=4 mov %saveorload,1:gosub *saveload:goto *cmd_support_gr
if %cmd1=7 gosub *window_delete2:goto *cmd_support_gr
if %cmd1=0 goto *cmd_support_gr
if %cmd1<=-2 goto *cmd_support_gr
gosub *cmd_support_main

;cspl 3,7
;cspl 600,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,608
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 607,":s/20,20,0;#FFFFFF#FF4444Tail Squeeze - 8",400,472:spbtn 607,916
if %knightmp<8 lsp 607,":s/20,20,0;#bbbbbbTail Squeeze - 8",400,472

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

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_support_ta
if %cmd1=4 mov %saveorload,1:gosub *saveload:goto *cmd_support_ta
if %cmd1=7 gosub *window_delete2:goto *cmd_support_ta
if %cmd1=0 goto *cmd_support_ta
if %cmd1<=-2 goto *cmd_support_ta
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,608
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
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_support_al
if %cmd1=4 mov %saveorload,1:gosub *saveload:goto *cmd_support_al
if %cmd1=7 gosub *window_delete2:goto *cmd_support_al
if %cmd1=0 goto *cmd_support_al
if %cmd1<=-2 goto *cmd_support_al
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,608
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
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_support_er
if %cmd1=4 mov %saveorload,1:gosub *saveload:goto *cmd_support_er
if %cmd1=7 gosub *window_delete2:goto *cmd_support_er
if %cmd1=0 goto *cmd_support_er
if %cmd1<=-2 goto *cmd_support_er
gosub *cmd_support_main

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

goto *cmd_support_er

*cmd_support_ha2a

cspl 600,610:print 10,1
if $party1!="Harpy" skip 3
mov %party1sup_num,%party1sup_num+1
mov %party1_attack,1

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


gosub *setwindow_02
name "Ipeia"
lsp 699,":a;chara\hapy_a_st12.bmp",-200,0:print 10,500
>Ooooh! @ >Is it my turn now?\
lsp 699,":a;chara\hapy_a_st13.bmp",-200,0:print 10,500
>This is gonna be sooooo cool ~ !\
name ""
return

*cmd_support_ha0

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

*cmd_support_ha

if $party1="Harpy" && %party1sup_num<1 gosub *cmd_support_ha2a
if $party2="Harpy" && %party2sup_num<1 gosub *cmd_support_ha2a

gosub *setwindow_04

cspl 600,610:print 10,1

if $party1="Harpy" mov %partymp,%party1mp
if $party2="Harpy" mov %partymp,%party2mp


if %partymp>1 lsp 601,":s/20,20,0;#FFFFFF#FF4444Divebomb Kick - 2 ",70,418:spbtn 601,964
if %partymp<2 lsp 601,":s/20,20,0;#bbbbbbDivebomb Kick - 2 ",70,418

if %partymp>3 && %kousoku<1 lsp 602,":s/20,20,0;#FFFFFF#FF4444Air Lift - 4 ",70,445:spbtn 602,965
if %partymp<4 || %kousoku>0 lsp 602,":s/20,20,0;#bbbbbbAir Lift - 4 ",70,445

if %partymp>5 lsp 603,":s/20,20,0;#FFFFFF#FF4444Harpy Gale - 6 ",70,472:spbtn 603,966
if %partymp<6 lsp 603,":s/20,20,0;#bbbbbbHarpy Gale - 6 ",70,472

if %partymp>2 && %skill_phoenixwing>0 lsp 606,":s/20,20,0;#FFFFFF#FF4444Phoenix Wing - 3",370,445:spbtn 606,967
if %partymp<3 && %skill_phoenixwing>0 lsp 606,":s/20,20,0;#bbbbbbPhoenix Wing - 3 ",370,445

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_support_ha
if %cmd1=4 mov %saveorload,1:gosub *saveload:goto *cmd_support_ha
if %cmd1=7 gosub *window_delete2:goto *cmd_support_ha
if %cmd1=0 goto *cmd_support_ha
if %cmd1<=-2 goto *cmd_support_ha
gosub *cmd_support_main

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

goto *cmd_support_ha


*cmd_support_ku

;if %knightsup_num<1 gosub *cmd_support_ku2a

gosub *setwindow_04

cspl 600,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
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_support_ku
if %cmd1=4 mov %saveorload,1:gosub *saveload:goto *cmd_support_ku
if %cmd1=7 gosub *window_delete2:goto *cmd_support_ku
if %cmd1=0 goto *cmd_support_ku
if %cmd1<=-2 goto *cmd_support_ku
gosub *cmd_support_main

;cspl 3,7
;cspl 600,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 Potion - 8 ",400,499
if %skill_mp<1 lsp 608,":s/20,20,0;#bbbbbb??? ",400,499

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_support_ch
if %cmd1=4 mov %saveorload,1:gosub *saveload:goto *cmd_support_ch
if %cmd1=7 gosub *window_delete2:goto *cmd_support_ch
if %cmd1=0 goto *cmd_support_ch
if %cmd1<=-2 goto *cmd_support_ch
gosub *cmd_support_main

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

goto *cmd_support_ch

*cmd_support_sa2a

cspl 600,610:print 10,1


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

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

gosub *setwindow_02
name "Sara"
lsp 699,":a;chara\sara_st02r.bmp",-200,0:print 10,500
>Ready to send me in?\
name "Luka"
>Just don't get yourself hurt...\
name "Sara"
csp 699
lsp 699,":a;chara\sara_st03r.bmp",-200,0:print 10,500
>Hmph.@
csp 699
lsp 699,":a;chara\sara_st05r.bmp",-200,0:print 10,500
>Just watch me!\
name ""
return

*cmd_support_sa0

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

*cmd_support_sa

if $party1="Sara" && %party1sup_num<1 gosub *cmd_support_sa2a
if $party2="Sara" && %party2sup_num<1 gosub *cmd_support_sa2a

gosub *setwindow_04

cspl 600,610:print 10,1

if $party1="Sara" mov %partymp,%party1mp
if $party2="Sara" mov %partymp,%party2mp


if %partymp>1 && %skill_co>0 lsp 601,":s/20,20,0;#FFFFFF#FF4444Counter - 2 ",70,418:spbtn 601,958
if %partymp<2 && %skill_co>0 lsp 601,":s/20,20,0;#bbbbbbCounter - 2 ",70,418

if %partymp>2 && %skill_sk>0 lsp 602,":s/20,20,0;#FFFFFF#FF4444Skull Crusher - 3 ",70,445:spbtn 602,959
if %partymp<3 && %skill_sk>0 lsp 602,":s/20,20,0;#bbbbbbSkull Crusher - 3 ",70,445

if %partymp>1 && %skill_pa>0 lsp 603,":s/20,20,0;#FFFFFF#FF4444Paralyzing Blow - 2 ",70,472:spbtn 603,960
if %partymp<2 && %skill_pa>0 lsp 603,":s/20,20,0;#bbbbbbParalyzing Blow - 2 ",70,472

if %partymp>3 && %skill_he>0 lsp 604,":s/20,20,0;#FFFFFF#FF4444Heavy Overdrive - 4 ",70,499:spbtn 604,961
if %partymp<4 && %skill_he>0 lsp 604,":s/20,20,0;#bbbbbbHeavy Overdrive - 4 ",70,499

if %partymp>0 && %skill_fin>0 lsp 605,":s/20,20,0;#FFFFFF#FF4444Final Measure - ALL ",400,418:spbtn 605,962
if %partymp<1 && %skill_fin>0 lsp 605,":s/20,20,0;#bbbbbbFinal Measure - ALL ",400,418

lsp 606,":s/20,20,0;#FFFFFF#FF4444Attack - 0",370,445:spbtn 606,963

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_support_sa
if %cmd1=4 mov %saveorload,1:gosub *saveload:goto *cmd_support_sa
if %cmd1=7 gosub *window_delete2:goto *cmd_support_sa
if %cmd1=0 goto *cmd_support_sa
if %cmd1<=-2 goto *cmd_support_sa
gosub *cmd_support_main

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

goto *cmd_support_sa

*cmd_support_lu2a

cspl 600,610:print 10,1
if $party1!="Lucia" skip 3
mov %party1sup_num,%party1sup_num+1
mov %party1_attack,1

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


gosub *setwindow_02
name "Lucia"
lsp 699,":a;chara\lusia_st21.bmp",-200,0:print 10,500
>...You require my assistance?\
name "Luka"
>Yes...please!\
name "Lucia"
lsp 699,":a;chara\lusia_st22.bmp",-200,0:print 10,500
>Ha ha... Just watch what I can do.\
name ""
return

*cmd_support_lu0

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

*cmd_support_lu

if $party1="Lucia" && %party1sup_num<1 gosub *cmd_support_lu2a
if $party2="Lucia" && %party2sup_num<1 gosub *cmd_support_lu2a

mov %skill_page,1
gosub *setwindow_04

cspl 600,610:print 10,1

if $party1="Lucia" mov %partymp,%party1mp
if $party2="Lucia" mov %partymp,%party2mp


if %partymp>1 lsp 601,":s/20,20,0;#FFFFFF#FF4444Tentacle Attack - 2 ",70,418:spbtn 601,968
if %partymp<2 lsp 601,":s/20,20,0;#bbbbbbTentacle Attack - 2 ",70,418

if %partymp>7 lsp 602,":s/20,20,0;#FFFFFF#FF4444Tentacle Bind - 8 ",70,445:spbtn 602,969
if %partymp<8 lsp 602,":s/20,20,0;#bbbbbbTentacle Bind - 8 ",70,445

if %partymp>5 && %enemy_spiritcount>0 lsp 603,":s/20,20,0;#FFFFFF#FF4444Spirit Cancel - 6 ",70,472:spbtn 603,970
if %partymp<6 || %enemy_spiritcount<1 lsp 603,":s/20,20,0;#bbbbbbSpirit Cancel - 6 ",70,472

if %partymp>4 lsp 604,":s/20,20,0;#FFFFFF#FF4444Tentacle Blitz - 5",70,499:spbtn 604,971
if %partymp<5 lsp 604,":s/20,20,0;#bbbbbbTentacle Blitz - 5 ",70,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_support_lu3

*cmd_support_lu2

if $party1="Lucia" && %party1sup_num<1 gosub *cmd_support_lu2a
if $party2="Lucia" && %party2sup_num<1 gosub *cmd_support_lu2a

mov %skill_page,2
gosub *setwindow_04

cspl 600,610:print 10,1

if $party1="Lucia" mov %partymp,%party1mp
if $party2="Lucia" mov %partymp,%party2mp


if %lupotion<1 lsp 601,":s/20,20,0;#FFFFFF#FF4444Vita-Boost Potion ",70,418:spbtn 601,972
if %lupotion>0 lsp 601,":s/20,20,0;#bbbbbbVita-Boost Potion ",70,418

if %lupotion<1 lsp 602,":s/20,20,0;#FFFFFF#FF4444Adrenaline Potion ",70,445:spbtn 602,973
if %lupotion>0 lsp 602,":s/20,20,0;#bbbbbbAdrenaline Potion ",70,445

if %lupotion<1 && %status=0 && %poison<0 lsp 603,":s/20,20,0;#FFFFFF#FF4444Immuno-Boost Potion ",70,472:spbtn 603,974
if %lupotion>0 || %status>0 || %poison>-1 lsp 603,":s/20,20,0;#bbbbbbImmuno-Boost Potion ",70,472

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_support_lu3

*cmd_support_lu3

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_support_lu
if %cmd1=3 && %skill_page=2 mov %saveorload,0:gosub *saveload:goto *cmd_support_lu2
if %cmd1=4 && %skill_page=1 mov %saveorload,1:gosub *saveload:goto *cmd_support_lu
if %cmd1=4 && %skill_page=2 mov %saveorload,1:gosub *saveload:goto *cmd_support_lu2
if %cmd1=7 && %skill_page=1 gosub *window_delete2:goto *cmd_support_lu
if %cmd1=7 && %skill_page=2 gosub *window_delete2:goto *cmd_support_lu2
if %cmd1=0 goto *cmd_support_lu3
if %cmd1<=-2 goto *cmd_support_lu3
if %cmd1=40 && %skill_page=1 goto *cmd_support_lu2
if %cmd1=40 && %skill_page=2 goto *cmd_support_lu
if %cmd1=41 && %skill_page=1 goto *cmd_support_lu2
if %cmd1=41 && %skill_page=2 goto *cmd_support_lu
gosub *cmd_support_main
;cspl 3,7
;cspl 600,610
;gosub *setwindow_02p
;texton
;btndef clear

goto *cmd_support_lu3


*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
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_support_mo
if %cmd1=4 mov %saveorload,1:gosub *saveload:goto *cmd_support_mo
if %cmd1=7 gosub *window_delete2:goto *cmd_support_mo
if %cmd1=0 goto *cmd_support_mo
if %cmd1<=-2 goto *cmd_support_mo
gosub *cmd_support_main

;cspl 3,7
;cspl 600,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#FF4444Element Spica - 10",370,418:spbtn 605,43
if %skill01>21 && %mp<10 lsp 605,":s/20,20,0;#bbbbbbElement 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 600,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 Cancel - 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;#bbbbbbWater Cancel - 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;#bbbbbbElement 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#FF4444Element 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

if %sylph_get<1 || %gnome_get<1 || %undine_get<1 || %salamander_get<1 || %skillset!=2 skip 3
if %skill01>18 && %mp>0 lsp 608,":s/20,20,0;#FFFFFF#FF4444Quadruple Giga - 1",370,472:spbtn 608,29
if %skill01>18 && %mp<1 lsp 608,":s/20,20,0;#bbbbbbQuadruple Giga - 1",370,472

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 600,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;									//Element 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_boost<1 && %mylife>%max_mylife mov %mylife,%max_mylife
if %mylife_boost>0 && %mylife>%max2_mylife mov %mylife,%max2_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 %mylife_boost<1 && %max_mylife<%mylife*5 gosub *face1
if %mylife_boost>0 && %max2_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 %mylife_boost<1 && %max_mylife<%mylife*5 gosub *face1
if %mylife_boost>0 && %max2_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

*potion_end

mov %potion_turn,-1
if %potion=10 mov $sel1,"Luka's speed returns to normal."
if %potion=11 mov $sel1,"Luka loses his protection from status effects."
name ""
``$sel1\
if %potion=10 mov %luka_maxturn,1
if %potion=11 mov %immune,0
mov %potion,0
return

*lift_end

mov %lift_turn,%lift_turn-1
name ""
>Ipeia gently sets Luka back down on the ground.\
return

*windbuff_end

mov %windbuff_turn,%windbuff_turn-1
mov %harpy_windbuff,0
name ""
>The gale of wind blowing around Luka dies down!\
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_boost<1 && %mylife>%max_mylife mov %mylife,%max_mylife
if %mylife_boost>0 && %mylife>%max2_mylife mov %mylife,%max2_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_boost<1 && %mylife>%max_mylife mov %mylife,%max_mylife
if %mylife_boost>0 && %mylife>%max2_mylife mov %mylife,%max2_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_boost<1 && %mylife>%max_mylife mov %mylife,%max_mylife
if %mylife_boost>0 && %mylife>%max2_mylife mov %mylife,%max2_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
dwave 1,"se\tuki.ogg"
lsp 2,":a;effect\009_01.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009_02.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009_03.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009_04.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009_05.bmp",%tukix,%tukiy:print 10,12
csp 2
if %aqua>0 && %enemy_wind!=1 skip 2
if %enemy_wind>0 && %enemy_holy<1 && %wind<1 gosub *enemy_windguard:goto *common_attack_end
mov %dwaveset,4
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
mov %dwaveset,4
gosub *enemylife
skillname ""
if %skill_sub>1 return
goto *common_attack_end



*skill3a

mov %mp_charge,0
dwave 1,"se\tuki.ogg":mov %abairitu,120+%mylv*6/5
lsp 2,":a;effect\009a_01.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009a_02.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009a_03.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009a_04.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009a_05.bmp",%tukix,%tukiy:print 10,12
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;effect\009b_01.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009b_02.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009b_03.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009b_04.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009b_05.bmp",%tukix,%tukiy:print 10,12
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_boost<1 && %mylife>%max_mylife mov %mylife,%max_mylife
if %mylife_boost>0 && %mylife>%max2_mylife mov %mylife,%max2_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 %mylife_boost<1 && %max_mylife<%mylife*5 gosub *face1
if %mylife_boost>0 && %max2_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;effect\003.bmp",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 && %wind<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
mov %dwaveset,5
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
dwave 1,"se\slash.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
dwave 2,"se\slash.ogg"
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
dwave 3,"se\slash.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
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 && %wind<1 gosub *enemy_windguard:goto *common_attack_end
mov %dwaveset,1
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
mov %dwaveset,1
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
mov %dwaveset,1
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
mov %dwaveset,1
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
mov %dwaveset,1
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;effect\cutin_ruka_earth.bmp",600,150,100,100,0,10
lsp2 1,":c;effect\cutin_earth.bmp",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

mov %mp_charge,0
mov %before_action,45
mov %count_aqua,%count_aqua+1
;if %ng>1 mov %mp,%mp-2:gosub *mp
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



*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 skillname "Lightning Sword Flash"
if %ng>0 && %aqua>1 && %undine_get>0 && %wind>0 && %wind!=4 && %sylph_get>0 skillname "Lightning Sword Flash * Hurricane"
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;effect\cutin_ruka_wind.bmp",600,150,100,100,0,10
lsp2 1,":c;effect\cutin_wind.bmp",200,150,100,100,0,10
gosub *skill_cutin
vspl 3,650,1

if %aqua<2 || %wind<1 || %wind=4 || %ng<1 || %sylph_get<1 || %undine_get<1 skip 9
lsp2 0,":c;effect\cutin_ruka_wind.bmp",650,150,100,100,0,10
lsp2 1,":c;effect\cutin_wind.bmp",200,150,100,100,0,10
gosub *skill_cutin
dwave 3,"se\aqua2.ogg"
lsp2 0,":c;effect\cutin_ruka_aqua.bmp",650,150,100,100,0,10
lsp2 1,":c;effect\cutin_aqua.bmp",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 && %sylph_get>0 skillname "Lightning Sword Flash * Hurricane"

mov $sel6,"Moving like a powerful gale, "+$ori_name+" thrusts his sword forward as fast as lightning!"
``$sel6\
if %turn>1 && %wind=0 gosub *skill11a
if %turn=1 gosub *skill11b
if %wind!=0 && %wind!=4 gosub *skill11c
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 %fire>1 mov %abairitu,%abairitu*3/2
if %harpy_windbuff=1 mov %abairitu,%abairitu*12/10
lsp 1,":a;effect\wind.bmp",0,0:print 10,12
lsp 2,":a;effect\009a_01.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009a_02.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009a_03.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009a_04.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009a_05.bmp",%tukix,%tukiy:print 10,12
csp 1:print 10,12
return



*skill11b

mov %mp_charge,0
>The early attack lands a powerful blow!\
mov %dwaveset,2:mov %abairitu,350+%mylv*7/2
lsp 1,":a;effect\wind.bmp",0,0:print 10,12
lsp 2,":a;effect\009b_01.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009b_02.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009b_03.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009b_04.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009b_05.bmp",%tukix,%tukiy:print 10,12
csp 1:print 10,12
return



*skill11c

mov %mp_charge,0
mov %dwaveset,2:mov %abairitu,350+%mylv*7/2
if %aqua>1 && %undine_get>0 && %sylph_get>0 mov %abairitu,%abairitu*4/3
if %fire>1 mov %abairitu,%abairitu*3/2
if %harpy_windbuff=1 mov %abairitu,%abairitu*12/10
lsp 1,":a;effect\wind.bmp",0,0:print 10,12
lsp 2,":a;effect\009b_01.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009b_02.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009b_03.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009b_04.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\009b_05.bmp",%tukix,%tukiy:print 10,12
csp 1:print 10,12
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 %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"
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;effect\cutin_ruka_earth.bmp",600,150,100,100,0,10
lsp2 1,":c;effect\cutin_earth.bmp",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;effect\cutin_ruka_earth.bmp",650,150,100,100,0,10
lsp2 1,":c;effect\cutin_earth.bmp",200,150,100,100,0,10
gosub *skill_cutin
dwave 3,"se\fire2.ogg"
lsp2 0,":c;effect\cutin_ruka_fire.bmp",650,150,100,100,0,10
lsp2 1,":c;effect\cutin_fire.bmp",200,150,100,100,0,10
gosub *skill_cutin

vspl 3,650,1
csp 0:csp 1

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"

print 1
dwave 1,"se\karaburi.ogg"
lsp 2,":c;effect\earth.bmp",0,0:print 1
wait 300
csp 2:print 18,500,"system\mask01.jpg"
dwave 1,"se\bom2.ogg"
quake 10,1000
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
mov %dwaveset,5
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 %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 skillname "Serene Demon Sword"
if %earth>0 && %gnome_get>0 && %ng>0 && %aqua>0 && %undine_get>0 skillname "Serene Demon Sword * Quake"
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;effect\cutin_ruka_aqua.bmp",600,150,100,100,0,10
lsp2 1,":c;effect\cutin_aqua.bmp",200,150,100,100,0,10
gosub *skill_cutin

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

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

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"

mov $sel6,$ori_name+" sheathes his sword, and rests his hand on the hilt!"
``$sel6
>Drawing it in a fluid slash, he slices straight through everything in his     path!\
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
mov %dwaveset,3
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 || %gnome_get<1 || %aqua<1 || %undine_get<1 skip 68

name ""
>With Gnome's power, Luka crushes 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

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_water<2 skip 4
mov %mp,%mp+(%max_mp/2)
if %mp>%max_mp mov %mp,%max_mp
skip 5
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
if %enviro_water<2 dwave 2,"se\fire4.ogg"
if %enviro_water>1 dwave 2,"se\fire1.ogg"
if %enviro_water<2 lsp2 0,":a;2Q\chara\salamander_st02.png",200,300,100,100,0,200
if %enviro_water>1 lsp2 0,":a;2Q\chara\salamander_st24.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 ""
if %enviro_water>1 && %salamander_cold<1 gosub *salamander_water
goto *common_a



*skill15

mov %mp_charge,0
mov %daten,0:mov %sdaten,0
mov %before_action,47
mov %kadora,1
mov %kadora_damage,0
mov %luka_maxturn,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 ""
if %skill_sub>1 return
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
if %enemy_num>1 && %skill_sub=0 mov %target_all,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;effect\cutin_wind.bmp",100,150,100,100,0,10
for %move=0 to 200 step 20
msp2 2,0,20,0,0,0,24
print 1:wait 5
next
csp2 2
lsp 10,":c;effect\cutin_wind.bmp",0,0:print 1
dwave 3,"se\earth1.ogg"
lsp2 2,":c;effect\cutin_earth.bmp",300,150,100,100,0,10
for %move=0 to 200 step 20
msp2 2,0,20,0,0,0,24
print 1:wait 5
next
csp2 2
lsp 11,":c;effect\cutin_earth.bmp",200,0:print 1
dwave 4,"se\aqua2.ogg"
lsp2 3,":c;effect\cutin_aqua.bmp",500,150,100,100,0,10
for %move=0 to 200 step 20
msp2 3,0,20,0,0,0,24
print 1:wait 5
next
csp2 3
lsp 12,":c;effect\cutin_aqua.bmp",400,0:print 1
dwave 5,"se\fire2.ogg"
lsp2 4,":c;effect\cutin_fire.bmp",700,150,100,100,0,10
for %move=0 to 200 step 20
msp2 4,0,20,0,0,0,24
print 1:wait 5
next
csp2 4
lsp 13,":c;effect\cutin_fire.bmp",600,0:print 1
cspl 10,13:print 10,600
vspl 3,650,1
csp 0:csp 1
lsp 591,":a/2,0,3;system\select_window2.jpg",150,20
skillname "Quadruple Giga "	;lsp 590,":s/24,24,0;#FFFFFFQuadruple Giga",316,33:print 1
print 1
>The power of the four spirits amplify each other, and explode in a torrent of magical energy!\
wait 500
dwave 1,"se\karaburi.ogg"
lsp 2,":c;effect\003.bmp",0,0:print 1
wait 300
dwave 3,"se\earth1.ogg"
lsp 2,":a;effect\earth.bmp",0,0:print 1
wait 100
dwave 5,"se\fire2.ogg"
lsp 2,":a;effect\fire.bmp",0,0:print 1
wait 100
dwave 4,"se\aqua2.ogg"
lsp 2,":a;effect\aqua.bmp",0,0:print 1
wait 100
dwave 2,"se\wind2.ogg"
lsp 2,":a;effect\wind.bmp",0,0:print 1
wait 100
csp 2:print 18,500,"system\mask01.jpg"
dwave 1,"se\bom3.ogg"
quake 10,2000
;mov $sel6,"The power to smash anything is thrown off of "+$ori_name+"'s sword!"
mov $sel6,"The power to crush anything slams into "+$name+"!"
``$sel6\
if %skill_sub=1 return
mov %dwaveset,5
mov %abairitu,10000+(%sylph_rep*5)+(%gnome_rep*5)+(%undine_rep*5)+(%salamander_rep*5)+%mylv*50

if %enemy_num>1 skip 3
mov %damage_keigenb,%damage_keigen
if %damage_keigen<100 mov %damage_keigen,100

if %enemy_num<2 skip 6
mov %damage_keigen1b,%damage_keigen1			
if %damage_keigen1<100 mov %damage_keigen1,100

mov %damage_keigen2b,%damage_keigen2			
if %damage_keigen2<100 mov %damage_keigen2,100

if %enemy_num<3 skip 3
mov %damage_keigen3b,%damage_keigen3			
if %damage_keigen3<100 mov %damage_keigen3,100

if %enemy_num<4 skip 3
mov %damage_keigen4b,%damage_keigen4		
if %damage_keigen4<100 mov %damage_keigen4,100

if %enemy_num<5 skip 3
mov %damage_keigen5b,%damage_keigen5
if %damage_keigen5<100 mov %damage_keigen5,100

if %enemy_num<6 skip 3
mov %damage_keigen6b,%damage_keigen6		
if %damage_keigen6<100 mov %damage_keigen6,100

if %enemy_num<7 skip 3
mov %damage_keigen7b,%damage_keigen7
if %damage_keigen7<100 mov %damage_keigen7,100

if %enemy_num<8 skip 3
mov %damage_keigen8b,%damage_keigen8
if %damage_keigen8<100 mov %damage_keigen8,100

gosub *enemylife
;rnd2 %damage,40000,50000:gosub *enemylifeb
skillname ""
if %enemy_num<2 mov %damage_keigen,%damage_keigenb:skip 9
mov %damage_keigen1,%damage_keigen1b
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
mov %target_all,0
if %skill_sub=2 return
if %zukanon>0 skip 5
mov %sylph_rep,%sylph_rep+2
mov %gnome_rep,%gnome_rep+2
mov %undine_rep,%undine_rep+2
mov %salamander_rep,%salamander_rep+2
if %skill_sub>2 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 && %fire>0 && %sylph_get>0 && %salamander_get>0 skillname "Vaporizing Rebellion Sword * Typhoon"
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;effect\cutin_ruka_fire.bmp",600,150,100,100,0,10
lsp2 1,":c;effect\cutin_fire.bmp",200,150,100,100,0,10
gosub *skill_cutin
gosub *skill16a

if %fire<3 | %wind<3 | %wind=4 | %ng<1 | %sylph_get<1 | %salamander_get<1 skip 9
lsp2 0,":c;effect\cutin_ruka_fire.bmp",650,150,100,100,0,10
lsp2 1,":c;effect\cutin_fire.bmp",200,150,100,100,0,10
gosub *skill_cutin
dwave 3,"se\wind2.ogg"
lsp2 0,":c;effect\cutin_ruka_wind.bmp",650,150,100,100,0,10
lsp2 1,":c;effect\cutin_wind.bmp",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 && %fire>0 && %sylph_get>0 && %salamander_get>0 skillname "Vaporizing Rebellion Sword * Typhoon"
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
mov %dwaveset,1
if %fire<2 rnd2 %abairitu,150+%mylv*3/2,200+%mylv*2
if %fire>1 rnd2 %abairitu,200+%mylv*2,300+%mylv*3
if %ng>0 && %wind>0 && %wind!=4 && %sylph_get>0 && harpy_windbuff=1 mov %abairitu,%abairitu*12/10
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,1
if %fire<2 rnd2 %abairitu,150+%mylv*3/2,200+%mylv*2
if %fire>1 rnd2 %abairitu,200+%mylv*2,300+%mylv*3
if %ng>0 && %wind>0 && %wind!=4 && %sylph_get>0 && harpy_windbuff=1 mov %abairitu,%abairitu*12/10
mov %damage_nobr,2:gosub *enemylife
textclear
mov %dwaveset,1
if %fire<2 rnd2 %abairitu,150+%mylv*3/2,200+%mylv*2
if %fire>1 rnd2 %abairitu,200+%mylv*2,300+%mylv*3
if %ng>0 && %wind>0 && %wind!=4 && %sylph_get>0 && harpy_windbuff=1 mov %abairitu,%abairitu*12/10
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,1
if %fire<2 rnd2 %abairitu,150+%mylv*3/2,200+%mylv*2
if %fire>1 rnd2 %abairitu,200+%mylv*2,300+%mylv*3
if %ng>0 && %wind>0 && %wind!=4 && %sylph_get>0 && harpy_windbuff=1 mov %abairitu,%abairitu*12/10
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,1
if %fire<2 rnd2 %abairitu,150+%mylv*3/2,200+%mylv*2
if %fire>1 rnd2 %abairitu,200+%mylv*2,300+%mylv*3
if %ng>0 && %wind>0 && %wind!=4 && %sylph_get>0 && harpy_windbuff=1 mov %abairitu,%abairitu*12/10
mov %damage_nobr,2:gosub *enemylife
if %fire>2 && %wind>2 && %wind!=4 && %ng>0 skip 5
skillname ""
if %skill_sub>1 return
goto *common_attack_end
textclear
mov %dwaveset,1
rnd2 %abairitu,125+%mylv*3/2,180+%mylv*2
if %sylph_get>0 && harpy_windbuff=1 mov %abairitu,%abairitu*12/10
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,1
rnd2 %abairitu,125+%mylv*3/2,180+%mylv*2
if %sylph_get>0 && harpy_windbuff=1 mov %abairitu,%abairitu*12/10
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,1
rnd2 %abairitu,125+%mylv*3/2,180+%mylv*2
if %sylph_get>0 && harpy_windbuff=1 mov %abairitu,%abairitu*12/10
mov %damage_nobr,2: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,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 2,"se\slash.ogg"
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 3,"se\slash.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 4,"se\slash.ogg"
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 5,"se\slash.ogg"
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 6,"se\slash.ogg"
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 7,"se\slash.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
csp 2:print 10,1000
return



*skill16c

mov %mp_charge,0
dwave 1,"se\slash.ogg"
dwave 9,"se\fire2.ogg"
skipoff
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 2,"se\slash.ogg"
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 3,"se\slash.ogg"
lsp 2,":c;2Q\effect\005_02.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;2Q\effect\005_03.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;2Q\effect\005_04.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 3,"se\slash.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 4,"se\slash.ogg"
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 5,"se\slash.ogg"
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;2Q\effect\005_01.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;2Q\effect\005_02.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;2Q\effect\005_03.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;2Q\effect\005_04.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 3,"se\slash.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 6,"se\slash.ogg"
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 7,"se\slash.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;2Q\effect\005_01.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;2Q\effect\005_02.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;2Q\effect\005_03.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;2Q\effect\005_04.jpg",0,0:print 1
lsp 3,":a;effect\wind.bmp",0,0
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 3,"se\slash.ogg"
csp 2:csp 3: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
if %mylife_boost>0 && %mylife<%max_mylife mov %mylife_boost,0
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 judgment 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>2 && %sylph_get>0 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 || %sylph_get<1 skip 5
dwave 2,"se\wind2.ogg"
lsp2 0,":c;effect\cutin_ruka_wind.bmp",600,150,100,100,0,10
lsp2 1,":c;effect\cutin_wind.bmp",200,150,100,100,0,10
gosub *skill_cutin
vspl 3,650,1
csp 0:csp 1
lsp 591,":a/2,0,3;system\select_window2.jpg",150,20
if %wind>2 && %sylph_get<0 skip 2
skillname "Flash Kill"
if %sylph_get<1 || %wind<3 skip 2
skillname "Flash Kill: Tornado"
dwave 3,"se\tuki.ogg"
lsp 2,":c;effect\007.bmp",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
mov %dwaveset,3
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
if %wind>2 && %sylph_get>0 && %harpy_windbuff=1 mov %abairitu,%abairitu*12/10
itoa $damage_keigenc,%damage_keigen
mov %damage_keigen,%damage_keigen*70/100
gosub *enemylife
if %wind<3 || %sylph_get<1 skip 9
mov %dwaveset,3
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
if %wind>2 && %sylph_get>0 && %harpy_windbuff=1 mov %abairitu,%abairitu*12/10
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"
>The jaws of the Rakshasa come to make the wicked pay!\
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 %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;effect\cutin_ruka_fire.bmp",600,150,100,100,0,10
lsp2 1,":c;effect\cutin_fire.bmp",200,150,100,100,0,10
gosub *skill_cutin
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"
if %fire<3 || %salamander_get<1 skip 2
skillname "Ninefold Rakshasa: Asura"
wait 500
dwave 1,"se\slash3.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
dwave 2,"se\slash3.ogg"
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
dwave 3,"se\slash3.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
dwave 4,"se\slash3.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
dwave 5,"se\slash3.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
dwave 6,"se\slash3.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
dwave 7,"se\slash3.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
csp 2: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 && %wind<1 gosub *enemy_windguard:goto *common_attack_end
mov %dwaveset,1
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
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,1
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
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,1
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
mov %damage_nobr,2:gosub *enemylife
textclear
mov %dwaveset,1
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
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,1
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
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,1
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
mov %damage_nobr,2:gosub *enemylife
textclear
mov %dwaveset,1
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
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,1
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
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,1
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
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 %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;effect\cutin_ruka_earth.bmp",600,150,100,100,0,10
lsp2 1,":c;effect\cutin_earth.bmp",200,150,100,100,0,10
gosub *skill_cutin
vspl 3,650,1
csp 0:csp 1
lsp 591,":a/2,0,3;system\select_window2.jpg",150,20
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;effect\001.bmp",0,0:print 18,1000,"system\mask01.jpg"
csp 2:print 18,500,"system\mask01.jpg"
>Luka condenses powerful magic energy around him!\
mov %dwaveset,5
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 || $lavel="kraken_ng" 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 || $lavel="kraken_ng" 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

skillname ""
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;effect\cutin_ruka_aqua.bmp",600,150,100,100,0,10
lsp2 1,":c;effect\cutin_aqua.bmp",200,150,100,100,0,10
gosub *skill_cutin
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;effect\002.bmp",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
mov %dwaveset,5
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
mov %dwaveset,5
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
mov %dwaveset,5
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;effect\cutin_wind.bmp",100,150,100,100,0,10
for %move=0 to 200 step 20
msp2 2,0,20,0,0,0,24
print 1:wait 5
next
csp2 2
lsp 10,":c;effect\cutin_wind.bmp",0,0:print 1
dwave 3,"se\earth1.ogg"
lsp2 2,":c;effect\cutin_earth.bmp",300,150,100,100,0,10
for %move=0 to 200 step 20
msp2 2,0,20,0,0,0,24
print 1:wait 5
next
csp2 2
lsp 11,":c;effect\cutin_earth.bmp",200,0:print 1
dwave 4,"se\aqua2.ogg"
lsp2 3,":c;effect\cutin_aqua.bmp",500,150,100,100,0,10
for %move=0 to 200 step 20
msp2 3,0,20,0,0,0,24
print 1:wait 5
next
csp2 3
lsp 12,":c;effect\cutin_aqua.bmp",400,0:print 1
dwave 5,"se\fire2.ogg"
lsp2 4,":c;effect\cutin_fire.bmp",700,150,100,100,0,10
for %move=0 to 200 step 20
msp2 4,0,20,0,0,0,24
print 1:wait 5
next
csp2 4
lsp 13,":c;effect\cutin_fire.bmp",600,0:print 1
cspl 10,13:print 10,600
vspl 3,650,1
csp 0:csp 1
lsp 591,":a/2,0,3;system\select_window2.jpg",150,20
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
dwave 1,"se\karaburi.ogg"
lsp 2,":a;effect\029_01.bmp",0,0:print 10,40
lsp 2,":a;effect\029_02.bmp",0,0:print 10,40
dwave 3,"se\earth1.ogg"
lsp 2,":a;effect\029_03.bmp",0,0:print 10,40
lsp 2,":a;effect\029_04.bmp",0,0:print 10,40
dwave 5,"se\fire2.ogg"
lsp 2,":a;effect\029_05.bmp",0,0:print 10,40
lsp 2,":a;effect\029_06.bmp",0,0:print 10,40
dwave 2,"se\wind2.ogg"
lsp 2,":a;effect\029_07.bmp",0,0:print 10,40
lsp 2,":a;effect\029_08.bmp",0,0:print 10,40
csp 2:print 10,10
if %skill_sub=1 return
textclear

if %enemy_num>1 skip 5
if %enemy_spiritcount<1 skip 4
mov $sel1,"But "+$name+"'s elemental power weakened the blow!"
``$sel1\
skip 41

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

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

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

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

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

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

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

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


mov %dwaveset,5
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?\
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;effect\cutin_wind.bmp",100,150,100,100,0,10
for %move=0 to 200 step 20
msp2 2,0,20,0,0,0,24
print 1:wait 5
next
csp2 2
lsp 10,":c;effect\cutin_wind.bmp",0,0:print 1
dwave 3,"se\earth1.ogg"
lsp2 2,":c;effect\cutin_earth.bmp",300,150,100,100,0,10
for %move=0 to 200 step 20
msp2 2,0,20,0,0,0,24
print 1:wait 5
next
csp2 2
lsp 11,":c;effect\cutin_earth.bmp",200,0:print 1
dwave 4,"se\aqua2.ogg"
lsp2 3,":c;effect\cutin_aqua.bmp",500,150,100,100,0,10
for %move=0 to 200 step 20
msp2 3,0,20,0,0,0,24
print 1:wait 5
next
csp2 3
lsp 12,":c;effect\cutin_aqua.bmp",400,0:print 1
dwave 5,"se\fire2.ogg"
lsp2 4,":c;effect\cutin_fire.bmp",700,150,100,100,0,10
for %move=0 to 200 step 20
msp2 4,0,20,0,0,0,24
print 1:wait 5
next
csp2 4
lsp 13,":c;effect\cutin_fire.bmp",600,0:print 1
cspl 10,13:print 10,600
vspl 3,650,1
csp 0:csp 1
lsp 591,":a/2,0,3;system\select_window2.jpg",150,20
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;effect\cutin_ruka_fire.bmp",600,150,100,100,0,10
lsp2 1,":c;effect\cutin_fire.bmp",200,150,100,100,0,10
gosub *skill_cutin
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 10,200
wait 500
dwave 10,"se\fire4.ogg"
lsp 2,":a;effect\014_01.bmp",0,0:print 10,10
lsp 2,":a;effect\014_02.bmp",0,0:print 10,10
lsp 2,":a;effect\014_03.bmp",0,0:print 10,10
lsp 2,":a;effect\014_04.bmp",0,0:print 10,10
lsp 2,":a;effect\014_05.bmp",0,0:print 10,10
lsp 2,":a;effect\014_06.bmp",0,0:print 10,10
lsp 2,":a;effect\014_07.bmp",0,0:print 10,10
lsp 2,":a;effect\014_08.bmp",0,0:print 10,10
lsp 2,":a;effect\014_09.bmp",0,0:print 10,10
lsp 2,":a;effect\014_10.bmp",0,0:print 10,10
lsp 2,":a;effect\014_11.bmp",0,0:print 10,10
lsp 2,":a;effect\014_12.bmp",0,0:print 10,10
lsp 2,":a;effect\014_13.bmp",0,0:print 10,10
lsp 2,":a;effect\014_14.bmp",0,0:print 10,10
lsp 3,":a;effect\fire.bmp",0,0:print 10,500
csp 2:csp 3:csp 4:print 100
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 3,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
dwave 2,"se\slash.ogg"
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
dwave 3,"se\slash.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
dwave 4,"se\slash.ogg"
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
dwave 5,"se\slash.ogg"
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
dwave 6,"se\slash.ogg"
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
dwave 7,"se\slash.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 2,":a;effect\014_14.bmp",0,0:print 1
csp 2:print 10,1000
return
rnd2 %abairitu,8000+%mylv*10,8000+%mylv*15
mov %dwaveset,5
mov %damage_nobr,2:gosub *enemylife
mov %dwaveset,1
rnd2 %abairitu,5000+%mylv*8,5000+%mylv*15
mov %damage_nobr,2:gosub *enemylife
mov %dwaveset,1
rnd2 %abairitu,5000+%mylv*8,5000+%mylv*15
mov %damage_nobr,2:gosub *enemylife
mov %dwaveset,1
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;effect\007.bmp",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;effect\006a.bmp",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;effect\earth.bmp",0,0:print 1
wait 300
csp 2:print 18,500,"system\mask01.jpg"
dwave 1,"se\bom2.ogg"
quake 10,1000
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 600,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"
if %alice_bow>0 lsp 698,":a;chara\alice_st91b.bmp",-133,0
lsp 699,":a;chara\alice_st03b.bmp",-133,0:gosub *face3
``$sel1
> \
name ""
mov %alicemp,%alicemp-4
gosub *mp
skillname "Omega Blaze"
if %enemy_num>1 cspl 698,699:print 10,500
>Alice unleashes a storm of fire! 
dwave 2,"se\fire1.ogg"
lsp 699,":a;effect\fire.bmp",0,0:print 10,1000
dwave 1,"2Q\se\omegablaze.ogg"
lsp 698,":a;effect\014_01.bmp",0,0:print 10,1
wait 20
lsp 698,":a;effect\014_02.bmp",0,0:print 10,1
wait 20
lsp 698,":a;effect\014_03.bmp",0,0:print 10,1
wait 20
lsp 698,":a;effect\014_04.bmp",0,0:print 10,1
wait 20
lsp 698,":a;effect\014_05.bmp",0,0:print 10,1
wait 20
lsp 698,":a;effect\014_06.bmp",0,0:print 10,1
wait 20
lsp 698,":a;effect\014_07.bmp",0,0:print 10,1
wait 20
lsp 698,":a;effect\014_08.bmp",0,0:print 10,1
wait 20
lsp 698,":a;effect\014_09.bmp",0,0:print 10,1
wait 20
lsp 698,":a;effect\014_10.bmp",0,0:print 10,1
wait 20
lsp 698,":a;effect\014_11.bmp",0,0:print 10,1
wait 20
lsp 698,":a;effect\014_12.bmp",0,0:print 10,1
wait 20
lsp 698,":a;effect\014_13.bmp",0,0:print 10,1
wait 20
lsp 698,":a;effect\014_14.bmp",0,0:print 10,1
wait 200
cspl 698,699:print 10,1
dwave 1,"se\tuki.ogg"
mov %abairitu,500+%mylv*7
mov %dwaveset,5
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 10
mov %freeze_turn,4
if %enemydisable<1 mov %enemydisable,1
if %burn_turn>-1 mov %burn_turn,-1
if %seduce_turn>-1 mov %seduce_turn,-1
if %tabind_turn>-1 mov %tabind_turn,-1
if %erbind_turn>-1 mov %erbind_turn,-1
if %lubind_turn>-1 mov %lubind_turn,-1
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 %enemy1disable,1:mov $sel1,$name1+" has been frozen solid!":if %burn_turn1>-1 mov %burn_turn1,-1:if %seduce_turn1>-1 mov %seduce_turn1,-1:if %tabind_turn1>-1 mov %tabind_turn1,-1:if %erbind_turn1>-1 mov %erbind_turn1,-1:if %lubind_turn1>-1 mov %lubind_turn1,-1
if %enemy_target=2 mov %freeze_target2,1:mov %freeze_turn2,3:mov %enemy2disable,1:mov $sel1,$name2+" has been frozen solid!":if %burn_turn2>-1 mov %burn_turn2,-1:if %seduce_turn2>-1 mov %seduce_turn2,-1:if %tabind_turn2>-1 mov %tabind_turn2,-1:if %erbind_turn2>-1 mov %erbind_turn2,-1:if %lubind_turn2>-1 mov %lubind_turn2,-1
if %enemy_target=3 mov %freeze_target3,1:mov %freeze_turn3,3:mov %enemy3disable,1:mov $sel1,$name3+" has been frozen solid!":if %burn_turn3>-1 mov %burn_turn3,-1:if %seduce_turn3>-1 mov %seduce_turn3,-1:if %tabind_turn3>-1 mov %tabind_turn3,-1:if %erbind_turn3>-1 mov %erbind_turn3,-1:if %lubind_turn3>-1 mov %lubind_turn3,-1
if %enemy_target=4 mov %freeze_target4,1:mov %freeze_turn4,3:mov $sel1,$name4+" has been frozen solid!":if %burn_turn4>-1 mov %burn_turn4,-1:if %seduce_turn4>-1 mov %seduce_turn4,-1:if %erbind_turn4>-1 mov %erbind_turn4,-1
if %enemy_target=5 mov %freeze_target5,1:mov %freeze_turn5,3:mov $sel1,$name5+" has been frozen solid!":if %burn_turn5>-1 mov %burn_turn5,-1:if %seduce_turn5>-1 mov %seduce_turn5,-1:if %erbind_turn5>-1 mov %erbind_turn5,-1
if %enemy_target=6 mov %freeze_target6,1:mov %freeze_turn6,3:mov $sel1,$name6+" has been frozen solid!":if %burn_turn6>-1 mov %burn_turn6,-1:if %seduce_turn6>-1 mov %seduce_turn6,-1:if %erbind_turn6>-1 mov %erbind_turn6,-1
if %enemy_target=7 mov %freeze_target7,1:mov %freeze_turn7,3:mov $sel1,$name7+" has been frozen solid!":if %burn_turn7>-1 mov %burn_turn7,-1:if %seduce_turn7>-1 mov %seduce_turn7,-1:if %erbind_turn7>-1 mov %erbind_turn7,-1
if %enemy_target=8 mov %freeze_target8,1:mov %freeze_turn8,3:mov $sel1,$name8+" has been frozen solid!":if %burn_turn8>-1 mov %burn_turn8,-1:if %seduce_turn8>-1 mov %seduce_turn8,-1:if %erbind_turn8>-1 mov %erbind_turn8,-1
if %enemy_target=9 mov %freeze_target9,1:mov %freeze_turn9,3:mov $sel1,$name9+" has been frozen solid!":if %burn_turn9>-1 mov %burn_turn9,-1:if %seduce_turn9>-1 mov %seduce_turn9,-1:if %erbind_turn9>-1 mov %erbind_turn9,-1
``$sel1\
return

*aliskill2

cspl 600,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"
if %alice_bow>0 lsp 698,":a;chara\alice_st91b.bmp",-133,0
lsp 699,":a;chara\alice_st03b.bmp",-133,0:gosub *face3
``$sel1
> \
name ""
mov %alicemp,%alicemp-4
gosub *mp
skillname "Frost Ozma"
if %enemy_num>1 cspl 698,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;effect\025_02.bmp",0,0:print 10,1
wait 300
lsp 698,":a;effect\025_03.bmp",0,0:print 10,1
wait 300
lsp 698,":a;effect\025_04.bmp",0,0:print 10,1
wait 300
lsp 698,":a;effect\025_05.bmp",0,0:print 10,1
wait 300
lsp 698,":a;effect\025_06.bmp",0,0:print 10,1
wait 300
lsp 698,":a;effect\025_07.bmp",0,0:print 10,1
wait 300
lsp 698,":a;effect\025_08.bmp",0,0:print 10,1
wait 1000
cspl 698,699:print 10,1
>\
mov %abairitu,500+%mylv*7
mov %dwaveset,5
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 600,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"
if %alice_bow>0 lsp 698,":a;chara\alice_st91b.bmp",-133,0
lsp 699,":a;chara\alice_st03b.bmp",-133,0:gosub *face3
``$sel1
> \
name ""
mov %alicemp,%alicemp-6
gosub *mp
skillname "Monster Lord's Cruelty "
cspl 698,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
mov %dwaveset,5
quake 10,600
gosub *enemylife
mov %abairitu,300+%mylv*9/2
mov %dwaveset,5
quake 10,600
gosub *enemylife
mov %abairitu,300+%mylv*9/2
mov %dwaveset,5
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 698:csp 699:csp 612
if %enemylife=0 return "*"+$lavel+"_v"
csp 699:gosub *face1:return


*aliskill4

cspl 600,610:print 10,1
gosub *setwindow_02
name "Alice"
if %alice_bow>0 lsp 698,":a;chara\alice_st91b.bmp",-133,0
lsp 699,":a;chara\alice_st03b.bmp",-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"
if %mylife_boost<1 mov %damage,%max_mylife
if %mylife_boost>0 mov %damage,%max2_mylife
>Luka has been completely healed! \
mov %mylife,%mylife+%damage
if %mylife_boost<1 && %mylife>%max_mylife mov %mylife,%max_mylife
if %mylife_boost>0 && %mylife>%max2_mylife mov %mylife,%max2_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 %mylife_boost<1 && %max_mylife<%mylife*5 gosub *face1
if %mylife_boost>0 && %max2_mylife<%mylife*5 gosub *face1

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

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


*grskill1

cspl 600,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;effect\003.bmp",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"
mov %dwaveset,5
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

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 600,610:print 10,1
mov %support_turn,1

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;effect\006.bmp",0,0:print 1
csp 2:print 10,500
mov %dwaveset,4
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 600,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;effect\009_01.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\wind.bmp",0,0:print 1
lsp 2,":a;effect\009_02.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\wind.bmp",0,0:print 1
lsp 2,":a;effect\009_03.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\wind.bmp",0,0:print 1
lsp 2,":a;effect\009_04.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\wind.bmp",0,0:print 1
lsp 2,":a;effect\009_05.bmp",%tukix,%tukiy:print 10,12
lsp 2,":a;effect\wind.bmp",0,0:print 1
csp 2:print 10,300
mov %dwaveset,4
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 600,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;effect\003.bmp",0,0:print 1
wait 500
csp 2:print 10,500
rnd2 %ransu,1,100
mov %dwaveset,6
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 600,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
dwave 1,"se\slash.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
dwave 2,"se\slash.ogg"
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
dwave 3,"se\slash.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
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
mov %dwaveset,1
mov %abairitu,120+%mylv*2
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,1
mov %abairitu,120+%mylv*2
mov %damage_nobr,1:gosub *enemylife
textclear
mov %dwaveset,1
mov %abairitu,120+%mylv*2
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,1
mov %abairitu,120+%mylv*2
mov %damage_nobr,1:gosub *enemylife
textclear
mov %dwaveset,1
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

cspl 600,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;effect\008.bmp",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"
mov %dwaveset,1
mov %abairitu,150+%mylv*3
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,1
mov %abairitu,150+%mylv*3
mov %damage_nobr,1:gosub *enemylife
textclear
mov %dwaveset,1
mov %abairitu,150+%mylv*3
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,1
mov %abairitu,150+%mylv*3
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,1
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

*grskill7

mov $temp_name,$name

cspl 600,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;effect\cutin_ruka_aqua.bmp",600,150,100,100,0,10
lsp2 1,":c;effect\cutin_aqua.bmp",200,150,100,100,0,10
gosub *skill_cutin
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;effect\002.bmp",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;effect\006a.bmp",0,0:print 1
csp 699
lsp 2,":c;effect\002.bmp",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 2,"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 %dwaveset,5
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 600,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;effect\023_01.bmp",0,0:print 10,50
lsp 2,":a;effect\023_02.bmp",0,0:print 10,50
lsp 2,":a;effect\023_03.bmp",0,0:print 10,50
lsp 2,":a;effect\023_04.bmp",0,0:print 10,50
csp 2:print 10,50
mov %abairitu,360+%mylv*3
mov %dwaveset,5

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 600,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;effect\016_01.bmp",180,80:print 10,50
lsp 2,":a;effect\016_02.bmp",180,80:print 10,50
lsp 2,":a;effect\016_03.bmp",180,80:print 10,50
lsp 2,":a;effect\016_04.bmp",180,80:print 10,50
lsp 2,":a;effect\016_05.bmp",180,80:print 10,50
csp 2:print 10,50
mov %abairitu,480+%mylv*3
mov %dwaveset,5

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 600,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
dwave 1,"se\tuki.ogg"
lsp 2,":a;effect\023_01.bmp",0,0:print 10,50
lsp 2,":a;effect\023_02.bmp",0,0:print 10,50
lsp 2,":a;effect\023_03.bmp",0,0:print 10,50
lsp 2,":a;effect\023_04.bmp",0,0:print 10,50
dwave 1,"se\tuki.ogg"
lsp 2,":a;effect\023_01.bmp",200,100:print 10,50
lsp 2,":a;effect\023_02.bmp",200,100:print 10,50
lsp 2,":a;effect\023_03.bmp",200,100:print 10,50
lsp 2,":a;effect\023_04.bmp",200,100:print 10,50
dwave 1,"se\tuki.ogg"
lsp 2,":a;effect\023_01.bmp",50,-50:print 10,50
lsp 2,":a;effect\023_02.bmp",50,-50:print 10,50
lsp 2,":a;effect\023_03.bmp",50,-50:print 10,50
lsp 2,":a;effect\023_04.bmp",50,-50:print 10,50
dwave 1,"se\tuki.ogg"
lsp 2,":a;effect\023_01.bmp",-200,100:print 10,50
lsp 2,":a;effect\023_02.bmp",-200,100:print 10,50
lsp 2,":a;effect\023_03.bmp",-200,100:print 10,50
lsp 2,":a;effect\023_04.bmp",-200,100:print 10,50
dwave 1,"se\tuki.ogg"
lsp 2,":a;effect\023_01.bmp",-50,-50:print 10,50
lsp 2,":a;effect\023_02.bmp",-50,-50:print 10,50
lsp 2,":a;effect\023_03.bmp",-50,-50:print 10,50
lsp 2,":a;effect\023_04.bmp",-50,-50:print 10,50
csp 2:print 10,50
\
mov $ori_name,"Tamamo"
mov %dwaveset,4
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
mov %dwaveset,4
mov %abairitu,100+%mylv*2
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,4
mov %abairitu,100+%mylv*2
mov %damage_nobr,2:gosub *enemylife
textclear
mov %dwaveset,4
mov %abairitu,100+%mylv*2
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,4
mov %abairitu,100+%mylv*2
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,4
mov %abairitu,100+%mylv*2
mov %damage_nobr,2:gosub *enemylife
textclear
mov %dwaveset,4
mov %abairitu,100+%mylv*2
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,4
mov %abairitu,100+%mylv*2
mov %damage_nobr,1:gosub *enemylife
mov %dwaveset,4
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 600,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;effect\019.bmp",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
mov %dwaveset,5
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 600,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"
if %mylife_boost<1 mov %damage,%max_mylife/2
if %mylife_boost>0 mov %damage,%max2_mylife/2
mov $sel6,$ori_name+" recovers half his health!"
``$sel6\
mov %mylife,%mylife+%damage
if %mylife_boost<1 && %mylife>%max_mylife mov %mylife,%max_mylife
if %mylife_boost>0 && %mylife>%max2_mylife mov %mylife,%max2_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 600,610:print 10,1
if %enemy_num>1 gosub *enemy_target
gosub *setwindow_02
mov %before_action,30
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 %sylph_get<1 || %wind<3 skip 5
dwave 2,"se\wind2.ogg"
lsp2 0,":c;effect\cutin_ruka_wind.bmp",600,150,100,100,0,10
lsp2 1,":c;effect\cutin_wind.bmp",200,150,100,100,0,10
gosub *skill_cutin
vspl 3,650,1
csp 0:csp 1
lsp 591,":a/2,0,3;system\select_window2.jpg",150,20
dwave 3,"se\tuki.ogg"
lsp 2,":c;effect\007.bmp",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
mov %dwaveset,3
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
if %wind>2 && %sylph_get>0 && %harpy_windbuff=1 mov %abairitu,%abairitu*12/10
gosub *enemylife
if %wind=0 skip 9
mov %dwaveset,3
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
if %wind>2 && %sylph_get>0 && %harpy_windbuff=1 mov %abairitu,%abairitu*12/10
gosub *enemylife
skillname ""
if %enemy_num<2 && $lavel!="kraken_ng" 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:gosub *face1
if %enemylife=0 return "*"+$lavel+"_v"
return



*taskill7b

cspl 600,610:print 10,1
gosub *setwindow_02
lsp 699,":a;2Q\chara\tamamo_st06.png",-200,0
if $lavel="amira_ng" gosub *amira_ng_taskill7b
if $lavel="ririmu_ng" gosub *ririmu_ng_taskill7b
if $lavel="koakuma_ng" gosub *koakuma_ng_taskill7b
if $lavel="lilith_ng" gosub *lilith_ng_taskill7b
if $lavel="beelzebub_ng" gosub *beelzebub_ng_taskill7b
if $lavel="chrome_ng" gosub *chrome_ng_taskill7b
skillname ""
return

*taskill7c

if %enemy_num=1 mov $temp_name,$name:skip 4
if %enemy_target=1 mov $temp_name,$name1
if %enemy_target=2 mov $temp_name,$name2
if %enemy_target=3 mov $temp_name,$name3

cspl 600,610:print 10,1
gosub *setwindow_02
mov $sel1,"Tamamo's tail tightens around "+$temp_name+", crushing her!"
if $lavel="lilith_ng" mov $sel1,"Tamamo's tail tightens around the sisters, crushing them together! "
skillname "Tail Squeeze"
name ""
dwave 1,"se\ero_simetuke1.ogg"
``$sel1\
if %enemy_num=1 rnd2 %damage,%max_enemylife/16,%max_enemylife/12:skip 4
if %enemy_target=1 rnd2 %damage,%max_enemy1life/16,%max_enemy1life/12
if %enemy_target=2 rnd2 %damage,%max_enemy2life/16,%max_enemy2life/12
if %enemy_target=3 rnd2 %damage,%max_enemy3life/16,%max_enemy3life/12
mov %dwaveset,4
mov $ori_name,"Tamamo"
gosub *enemylife
mov $ori_name,"Luka"
skillname ""
if %enemylife=0 return "*"+$lavel+"_v"
return

*taskill7

if %enemy_num>1 skip 7
if %enemydisable<1 skip 6
name ""
cspl 600,610:print 10,1
gosub *setwindow_02
>That enemy can't be bound now!\
csp 699:return *cmd_support_ta

if %enemy_num>1 gosub *enemy_targetx
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 600,610:print 10,1
gosub *setwindow_02
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"I'll wrap my tail around you! "
if %ransu=2 mov $sel1,"Hehe... Watch out for my fluffy tail~! "
name "Tamamo"
lsp 699,":a;2Q\chara\tamamo_st06.png",-200,0:print 10,500
``$sel1\
skillname "Tail Entangle"
dwave 1,"se\ero_makituki3.ogg"
name ""
wait 1000
mov $sel1,"Tamamo's tail coils around "+$temp_name+"'s body! "
``$sel1\
wait 500
mov %knightmp,%knightmp-8
gosub *mp
gosub *taskill7b

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 *face1:return

*taskill8

cspl 600,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 HP has doubled! @
>Luka's max SP has been cut in half! @
>Luka's attack increased!@
>Luka's defense increased!\
print 10,500
name "Tamamo"
>The rest is up to you.@
>Good luck~!\
csp 699:gosub *face1:return



*alskill1

cspl 600,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"
if %mylife_boost<1 mov %damage,%max_mylife
if %mylife_boost>0 mov %damage,%max2_mylife
mov $sel6,$ori_name+" fully recovers his health!"
``$sel6\
mov %mylife,%mylife+%damage
if %mylife_boost<1 && %mylife>%max_mylife mov %mylife,%max_mylife
if %mylife_boost>0 && %mylife>%max2_mylife mov %mylife,%max2_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 600,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;2Q\effect\015_01.bmp",0,0:print 10,10
wait 20
lsp 2,":a;2Q\effect\015_02.bmp",0,0:print 10,10
wait 20
lsp 2,":a;2Q\effect\015_03.bmp",0,0:print 10,10
wait 20
lsp 2,":a;2Q\effect\015_04.bmp",0,0:print 10,10
wait 20
csp 2:print 10,1
dwave 2,"se\slash.ogg"
lsp 2,":a;2Q\effect\017_01.bmp",0,0:print 10,10
wait 20
lsp 2,":a;2Q\effect\017_02.bmp",0,0:print 10,10
wait 20
lsp 2,":a;2Q\effect\017_03.bmp",0,0:print 10,10
wait 20
lsp 2,":a;2Q\effect\017_04.bmp",0,0:print 10,10
wait 20
lsp 2,":a;2Q\effect\017_05.bmp",0,0:print 10,10
wait 20
csp 2:print 10,1
>\
mov %abairitu,550+%mylv*5/2
mov $ori_name,"Alma Elma"
mov %dwaveset,2
gosub *enemylife
mov $ori_name,"Luka"
skillname ""
csp 699
if %enemylife=0 return "*"+$lavel+"_v"
csp 699:gosub *face1:return



*alskill3b

cspl 600,610:print 10,1
if %enemy_num>1 gosub *enemy_targetx
; 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="kraken_ng" gosub *kraken_ng_alskill3b
if $lavel="sphinx_ng" gosub *sphinx_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
return



*alskill3

cspl 600,610:print 10,1
gosub *setwindow_02
if %enemy_num>1 skip 5
if %enemydisable<1 skip 4
name ""
>That enemy can't be seduced now!\
csp 699:gosub *face1:return *cmd_support_al
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:gosub *face1:return



*alskill4

cspl 600,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;effect\wind.bmp",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;effect\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;effect\cutin_ruka_fire.bmp",600,150,100,100,0,10
lsp2 1,":c;effect\cutin_fire.bmp",200,150,100,100,0,10
gosub *skill_cutin
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;effect\fire.bmp",0,0:print 1
dwave 1,"se\slash3.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 2,"se\slash3.ogg"
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 3,"se\slash3.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 4,"se\slash3.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 5,"se\slash3.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 6,"se\slash3.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
dwave 7,"se\slash3.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":a;effect\fire.bmp",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
csp 2: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 && %wind<1 gosub *enemy_windguard:goto *common_attack_end
mov %dwaveset,1
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
mov %dwaveset,1
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
mov %dwaveset,1
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
mov %dwaveset,1
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
mov %dwaveset,1
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
mov %dwaveset,1
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
mov %dwaveset,1
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
mov %dwaveset,1
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
mov %dwaveset,1
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 ""
cspl 696,699:print 10,500
if %enemylife=0 return "*"+$lavel+"_v"
gosub *face1:return



*alskill5

cspl 600,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 600,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"
if %mylife_boost<1 mov %damage,%max_mylife
if %mylife_boost>0 mov %damage,%max2_mylife
mov $sel6,"And slowly, his health fully restores!"
``$sel6\
mov %mylife,%mylife+%damage
if %mylife_boost<1 && %mylife>%max_mylife mov %mylife,%max_mylife
if %mylife_boost>0 && %mylife>%max2_mylife mov %mylife,%max2_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 600,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 600,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 skip 7
if %enemydisable<1 skip 6
name ""
cspl 600,610:print 10,1
gosub *setwindow_02
>That enemy can't be bound now!\
csp 699:return *cmd_support_er

if %enemy_num>1 gosub *enemy_targetx
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 600,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 *face1:return



*erskill4

if %enemy_num=1 mov %monster_x,%monster_x+200:gosub *face3
cspl 600,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;effect\cutin_ruka_earth.bmp",600,150,100,100,0,10
lsp2 1,":c;effect\cutin_earth.bmp",200,150,100,100,0,10
gosub *skill_cutin
vspl 3,650,1
csp 0:csp 1
lsp 591,":a/2,0,3;system\select_window2.jpg",150,20
skillname "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;effect\001.bmp",0,0:print 18,1000,"system\mask01.jpg"
csp 2:print 18,500,"system\mask01.jpg"
mov %dwaveset,5
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
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 %skill_sub>1 return
mov %target_all,0
mov %monster_x,%monster_x-200:csp 699:gosub *face1
if %enemylife=0 return "*"+$lavel+"_v"
return

*haskill1

cspl 600,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\hapy_a_st11.bmp",-200,0:print 10,500
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"My talons are sharp! "
if %ransu=2 mov $sel1,"Hyaaaaa! "
name "Ipeia "
``$sel1
> \
name ""
if $party1="Harpy" mov %party1_attack,1
if $party2="Harpy" mov %party2_attack,1
if $party1="Harpy" mov %party1mp,%party1mp-2
if %party1mp<0 mov %party1mp,0
if $party2="Harpy" mov %party2mp,%party2mp-2
if %party2mp<0 mov %party2mp,0
skillname "Divebomb Kick "
if %enemy_num>1 csp 699:print 10,500
dwave 1,"se\bird.ogg"
wait 500
dwave 2,"se\miss_wind.ogg"
wait 500
mov $sel1,"Ipeia dives through the air and rakes her talons across "+$temp_name+"!" 
``$sel1\
dwave 2,"se\slash5.ogg"
wait 600
mov %abairitu,50
mov %dwaveset,2
mov $ori_name,"Ipeia"
gosub *enemylife
mov $ori_name,"Luka"
skillname ""
csp 699
if %enemylife=0 return "*"+$lavel+"_v"
csp 699:gosub *face1:return

*haskill2

cspl 600,610:print 10,1
gosub *setwindow_02
lsp 699,":a;chara\hapy_a_st11.bmp",-200,0:print 10,500
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"Hey, watch out! "
if %ransu=2 mov $sel1,"Need a lift? "
name "Ipeia "
``$sel1
> \
name ""
if $party1="Harpy" mov %party1_attack,1
if $party2="Harpy" mov %party2_attack,1
if $party1="Harpy" mov %party1mp,%party1mp-4
if %party1mp<0 mov %party1mp,0
if $party2="Harpy" mov %party2mp,%party2mp-4
if %party2mp<0 mov %party2mp,0
skillname "Air Lift"
dwave 1,"se\bird.ogg"
>Ipeia uses her talons to grab Luka by his shoulders and lift him high into the air!\
mov %lift_turn,1
skillname ""
csp 699:gosub *face1:return

*haskill3

cspl 600,610:print 10,1
gosub *setwindow_02
lsp 699,":a;chara\hapy_a_st11.bmp",-200,0:print 10,500
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"How about my wiiiind ~ ? "
if %ransu=2 mov $sel1,"This is a harpy's skill ~ ! "
name "Ipeia "
``$sel1
> \
name ""
if $party1="Harpy" mov %party1_attack,1
if $party2="Harpy" mov %party2_attack,1
if $party1="Harpy" mov %party1mp,%party1mp-6
if %party1mp<0 mov %party1mp,0
if $party2="Harpy" mov %party2mp,%party2mp-6
if %party2mp<0 mov %party2mp,0
skillname "Harpy Gale"
dwave 1,"se\bird.ogg"
wait 600
dwave 2,"se\bird.ogg"
wait 300
>Ipeia flaps her wings furiously and creates a gale around Luka!\
dwave 3,"se\wind2.ogg"
lsp 2,":a;effect\wind.bmp",0,0:print 10,500
wait 1000
csp 2:print 10,500
>The power of wind increased!\
mov %harpy_windbuff,1
mov %windbuff_turn,2+%harpy_rep/2
skillname ""
csp 699:gosub *face1:return

*haskill4

cspl 600,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\hapy_a_st11.bmp",-200,0:print 10,500
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"Here I coooooome! Phoenix Wing! "
if %ransu=2 mov $sel1,"I'll show you my new skill! "
name "Ipeia "
``$sel1
> \
name ""
if $party1="Harpy" mov %party1_attack,1
if $party2="Harpy" mov %party2_attack,1
if $party1="Harpy" mov %party1mp,%party1mp-3
if %party1mp<0 mov %party1mp,0
if $party2="Harpy" mov %party2mp,%party2mp-3
if %party2mp<0 mov %party2mp,0
skillname "Phoenix Wing "
if %enemy_num>1 csp 699:print 10,500
>Ipeia focuses her energy and engulfs her wing in flames!\
dwave 1,"se\power.ogg"
wait 1000
dwave 1,"se\fire2.ogg"
lsp 698,":a;effect\008.bmp",0,0:print 10,500
wait 400
mov $sel1,"She swings her flaming wing at "+$temp_name+"!" 
``$sel1\
dwave 1,"se\slash6.ogg"
wait 500
mov %abairitu,80
mov %dwaveset,2
mov $ori_name,"Ipeia"
gosub *enemylife
mov $ori_name,"Luka"
skillname ""
cspl 698,699:print 10,500
if %enemylife=0 return "*"+$lavel+"_v"
csp 699:gosub *face1:return


*chskill0

if $party1="Chrome mov %party1_attack,1
if $party2="Chrome mov %party2_attack,1
cspl 600,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"
if %mylife_boost<1 mov %damage,%max_mylife/4
if %mylife_boost>0 mov %damage,%max2_mylife/4
mov $sel6,$ori_name+" recovers some health!"
``$sel6\
mov %mylife,%mylife+%damage
if %mylife_boost<1 && %mylife>%max_mylife mov %mylife,%max_mylife
if %mylife_boost>0 && %mylife>%max2_mylife mov %mylife,%max2_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

if $party1="Chrome mov %party1_attack,1
if $party2="Chrome mov %party2_attack,1
cspl 600,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

if $party1="Chrome mov %party1_attack,1
if $party2="Chrome mov %party2_attack,1
cspl 600,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

if $party1="Chrome mov %party1_attack,1
if $party2="Chrome mov %party2_attack,1
cspl 600,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!\
if %mylife_boost<1 mov %damage,%max_mylife
if %mylife_boost>0 mov %damage,%max2_mylife
mov $sel6,$ori_name+" fully recovers his health!"
``$sel6\
mov %mylife,%mylife+%damage
if %mylife_boost<1 && %mylife>%max_mylife mov %mylife,%max_mylife
if %mylife_boost>0 && %mylife>%max2_mylife mov %mylife,%max2_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"
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
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!\

if %enemy_num=1 mov $temp_name,$name:skip 11
rnd2 %ransu,1,%enemy_num
if %ransu=1 && %enemy1life>0 mov $temp_name,$name1:mov %enemy_target,1:skip 9
if %ransu=2 && %enemy2life>0 mov $temp_name,$name2:mov %enemy_target,2:skip 8
if %ransu=3 && %enemy3life>0 mov $temp_name,$name3:mov %enemy_target,3:skip 7
if %ransu=4 && %enemy4life>0 mov $temp_name,$name4:mov %enemy_target,4:skip 6
if %ransu=5 && %enemy5life>0 mov $temp_name,$name5:mov %enemy_target,5:skip 5
if %ransu=6 && %enemy6life>0 mov $temp_name,$name6:mov %enemy_target,6:skip 4
if %ransu=7 && %enemy7life>0 mov $temp_name,$name7:mov %enemy_target,7:skip 3
if %ransu=8 && %enemy8life>0 mov $temp_name,$name8:mov %enemy_target,8:skip 2
skip -9

name ""
dwave 1,"se\karaburi.ogg"
>Luka throws the potion at the enemy!\
dwave 1,"se\break.ogg"
mov $sel1,"The potion breaks against " +$temp_name+"'s body, causing it to erupt into flames for a moment before quickly burning out!"
mov %abairitu,550+%mylv*5/2
mov %dwaveset,2
gosub *enemylife
skillname ""
csp 699
if %enemylife=0 return "*"+$lavel+"_v"
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_boost<1 && %mylife>%max_mylife mov %mylife,%max_mylife
if %mylife_boost>0 && %mylife>%max2_mylife mov %mylife,%max2_mylife
if %mylife_boost>0 && %mylife<%max_mylife mov %mylife_boost,0
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_boost>0 && %mylife>%max2_mylife/2 skip 6
if %mylife_boost<1 && %mylife>%max_mylife/2 skip 5
if %mylife_boost<1 mov %seed,%mylife*100/%max_mylife
if %mylife_boost>0 mov %seed,%mylife*100/%max2_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

*saraskill1

cspl 600,610:print 10,1
csp 699:print 10,500
mov %support_turn,1
gosub *setwindow_02
name "Sara"
>............\
name ""
if $party1="Sara" mov %party1mp,%party1mp-2
if %party1mp<0 mov %party1mp,0
if $party2="Sara" mov %party2mp,%party2mp-2
if %party2mp<0 mov %party2mp,0
dwave 1,"se\karaburi.ogg"
>Sara holds her sword in front of her and watches carefully...\
skillname ""
if %skill_sub>1 return
mov %sdaten,1
return

*saraskill1x

mov %support_turn,0
if $party1="Sara" mov %party1_attack,1
if $party2="Sara" mov %party2_attack,1
name ""
dwave 1,"se\miss.ogg"
>...but Sara quickly steps in and intercepts the attack!\
;dwave 2,"se\damage.ogg":quakex 2,440
;>Sara tries to take damage, but has no health bar!\
mov %sdaten,0
csp 690
csp 699
if %enemy_num=1 gosub *face3:skip 4
if %enemy_target=1 gosub *face13
if %enemy_target=2 gosub *face23
if %enemy_target=3 gosub *face33
gosub *counter
textclear
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"Ha, now I've got you! "
if %ransu=2 mov $sel1,"Big mistake! "
name "Sara "
``$sel1
> \
name ""
skillname "Counter "
>Sara pushes back and forcefully lashes out with her sword!\
dwave 1,"se\slash3.ogg"
lsp 2,":a;effect\009_01.bmp",200,80:print 10,12
lsp 2,":a;effect\009_02.bmp",200,80:print 10,12
lsp 2,":a;effect\009_03.bmp",200,80:print 10,12
lsp 2,":a;effect\009_04.bmp",200,80:print 10,12
lsp 2,":a;effect\009_05.bmp",200,80:print 10,12
csp 2:print 10,12
if $lavel="ghost" skillname "":csp 699:gosub *ghost002:gosub *face1:return
mov %dwaveset,4
mov %abairitu,170+%saralv*2
mov $ori_name,"Sara"
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

*saraskill2

cspl 600,610:print 10,1
csp 699:print 10,500
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_target=9 mov $temp_name,$name9
gosub *setwindow_02
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"I'll crush you! "
if %ransu=2 mov $sel1,"Can you withstand this attack? "
if %ransu=3 mov $sel1,"This will soften you up! "
name "Sara "
``$sel1
> \
name ""
if $party1="Sara" mov %party1_attack,1
if $party2="Sara" mov %party2_attack,1
if $party1="Sara" mov %party1mp,%party1mp-3
if %party1mp<0 mov %party1mp,0
if $party2="Sara" mov %party2mp,%party2mp-3
if %party2mp<0 mov %party2mp,0
skillname "Skull Crusher "
mov $sel1,"Sara attacks with a heavy overhead swing and cracks right into the top of     "+$temp_name+"'s head! "
``$sel1\
dwave 2,"se\karaburi.ogg"
lsp 2,":a;effect\010_01.bmp",150,30:print 10,30
lsp 2,":a;effect\010_02.bmp",150,30:print 10,30
lsp 2,":a;effect\010_03.bmp",150,30:print 10,30
lsp 2,":a;effect\010_04.bmp",150,30:print 10,30
csp 2:print 10,30
if $lavel="ghost" skillname "":csp 699:gosub *ghost002:gosub *face1:return
mov %dwaveset,5
mov %abairitu,270+%saralv*3
mov $ori_name,"Sara"
gosub *enemylife
mov $ori_name,"Luka"
skillname ""
if %enemy_num<2 && %enemy_earth>0 skip 46
if %enemy_target=1 && %enemy1_earth>0 skip 45
if %enemy_target=2 && %enemy2_earth>0 skip 44
if %enemy_target=3 && %enemy3_earth>0 skip 43

if %enemy_num>1 skip 8
if %skullcount=0 mov %skulldebuff,20
if %skullcount=1 mov %skulldebuff,%skulldebuff+15
if %skullcount=2 mov %skulldebuff,%skulldebuff+10
if %skullcount=3 mov %skulldebuff,%skulldebuff+5
mov %damage_keigen,%damage_keigen+%skulldebuff
mov %skullcount,%skullcount+1
if %skullcount>3 mov %skullcount,3

if %enemy_num<2 skip 28

if %enemy_target!=1 skip 8
if %skullcount1=0 mov %skulldebuff1,20
if %skullcount1=1 mov %skulldebuff1,%skulldebuff1+15
if %skullcount1=2 mov %skulldebuff1,%skulldebuff1+10
if %skullcount1=3 mov %skulldebuff1,%skulldebuff1+5
mov %damage_keigen1,%damage_keigen1+%skulldebuff1
mov %skullcount1,%skullcount1+1
if %skullcount1>3 mov %skullcount1,3

if %enemy_target!=2 skip 8
if %skullcount2=0 mov %skulldebuff2,20
if %skullcount2=1 mov %skulldebuff2,%skulldebuff2+15
if %skullcount2=2 mov %skulldebuff2,%skulldebuff2+10
if %skullcount2=3 mov %skulldebuff2,%skulldebuff2+5
mov %damage_keigen2,%damage_keigen2+%skulldebuff2
mov %skullcount2,%skullcount2+1
if %skullcount2>3 mov %skullcount2,3

if %enemy_target!=3 skip 8
if %skullcount3=0 mov %skulldebuff3,20
if %skullcount3=1 mov %skulldebuff3,%skulldebuff3+15
if %skullcount3=2 mov %skulldebuff3,%skulldebuff3+10
if %skullcount3=3 mov %skulldebuff3,%skulldebuff3+5
mov %damage_keigen3,%damage_keigen3+%skulldebuff3
mov %skullcount3,%skullcount3+1
if %skullcount3>3 mov %skullcount3,3

dwave 1,"se\lvdown.ogg"
mov $sel1,$temp_name+"'s defense dropped! "
``$sel1\

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

*saraskill3

cspl 600,610:print 10,1
csp 699:print 10,500
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_target=9 mov $temp_name,$name9
gosub *setwindow_02
rnd2 %ransu,1,3
if %ransu=1 mov $sel1,"Hold still! "
if %ransu=2 mov $sel1,"Hii-Ya! "
if %ransu=3 mov $sel1,"Aim for the head...! "
name "Sara "
``$sel1
> \
name ""
if $party1="Sara" mov %party1_attack,1
if $party2="Sara" mov %party2_attack,1
if $party1="Sara" mov %party1mp,%party1mp-2
if %party1mp<0 mov %party1mp,0
if $party2="Sara" mov %party2mp,%party2mp-2
if %party2mp<0 mov %party2mp,0
skillname "Paralyzing Blow "
mov $sel1,"Sara sharply strikes "+$temp_name+"'s head with the hilt of her sword! "
``$sel1\
dwave 2,"se\dageki2.ogg"
lsp 2,":a;effect\017_01.bmp",250,150:print 10,10
lsp 2,":a;effect\017_02.bmp",250,150:print 10,10
lsp 2,":a;effect\017_03.bmp",250,150:print 10,10
lsp 2,":a;effect\017_04.bmp",250,150:print 10,10
lsp 2,":a;effect\017_05.bmp",250,150:print 10,10
csp 2:print 1 
wait 500
if $lavel="ghost" skillname "":csp 699:gosub *ghost002:gosub *face1:return
mov %dwaveset,5
mov %abairitu,150+%saralv*3/2
mov $ori_name,"Sara"
gosub *enemylife
mov $ori_name,"Luka"
skillname ""
csp 699
if %enemy_num<2 && %enemydisable>0 skip 20
if %enemy_target=1 && %enemy1disable>0 skip 19
if %enemy_target=2 && %enemy2disable>0 skip 18
if %enemy_target=3 && %enemy3disable>0 skip 17
if %enemy_num<2 gosub *face3:skip 4
if %enemy_target=1 gosub *face13
if %enemy_target=2 gosub *face23
if %enemy_target=3 gosub *face33
if %enemy_num=1 mov %paralyze_turn,1:gosub "*"+$lavel+"_paralyzeeffect
if %enemy_target=1 mov %paralyze_turn1,1:gosub "*"+$lavel+"_paralyzeeffect1
if %enemy_target=2 mov %paralyze_turn2,1:gosub "*"+$lavel+"_paralyzeeffect2
if %enemy_target=3 mov %paralyze_turn3,1:gosub "*"+$lavel+"_paralyzeeffect3
if %enemy_target=4 mov %paralyze_turn4,1:gosub "*"+$lavel+"_paralyzeeffect4
if %enemy_target=5 mov %paralyze_turn5,1:gosub "*"+$lavel+"_paralyzeeffect5
if %enemy_target=6 mov %paralyze_turn6,1:gosub "*"+$lavel+"_paralyzeeffect6
if %enemy_target=7 mov %paralyze_turn7,1:gosub "*"+$lavel+"_paralyzeeffect7
if %enemy_target=8 mov %paralyze_turn8,1:gosub "*"+$lavel+"_paralyzeeffect8
if %enemy_target=9 mov %paralyze_turn9,1:gosub "*"+$lavel+"_paralyzeeffect9
mov $sel1,$temp_name+" is paralyzed! "
``$sel1\
if %enemylife=0 return "*"+$lavel+"_v"
if %skill_sub>1 return
csp 699:return

*saraskill4

cspl 600,610:print 10,1
csp 699:print 10,500
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_target=9 mov $temp_name,$name9
gosub *setwindow_02
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"With all my strength...! "
if %ransu=2 mov $sel1,"My strongest attack! "
name "Sara "
``$sel1
> \
name ""
if $party1="Sara" mov %party1_attack,1
if $party2="Sara" mov %party2_attack,1
if $party1="Sara" mov %party1mp,%party1mp-4
if %party1mp<0 mov %party1mp,0
if $party2="Sara" mov %party2mp,%party2mp-4
if %party2mp<0 mov %party2mp,0
skillname "Heavy Overdrive "
mov $sel1,"Sara uses her full strength and strikes at "+$temp_name+" with a heavy upwards swing! "
``$sel1\
if $lavel="ghost" skillname "":csp 699:gosub *ghost002:gosub *face1:return
mov %dwaveset,2
mov %abairitu,200+%saralv*3
mov $ori_name,"Sara"
mov %damage_nobr,1:gosub *enemylife
mov $sel1,"Following the force of gravity back down at the peak of her swing, Sara       strikes "+$temp_name+" with a powerful follow-up downwards swing! "
``$sel1\
mov %dwaveset,2
mov %abairitu,200+%saralv*3
mov %damage_nobr,1:gosub *enemylife
mov $ori_name,"Luka"
skillname ""
csp 699
if %enemylife=0 return "*"+$lavel+"_v"
if %skill_sub>1 return
csp 699:return

*saraskill6

csp 699:print 10,500
cspl 600,610:print 10,1
if %enemy_num>1 gosub *enemy_target
gosub *setwindow_02
if $party1="Sara" mov %party1_attack,1
if $party2="Sara" mov %party2_attack,1
if $party1!="Sara" skip 3
mov %party1mp,%party1mp+1
if %party1mp>%sara_max_mp mov %party1mp,%sara_max_mp
if $party2!="Sara" skip 3
mov %party2mp,%party2mp+1
if %party2mp>%sara_max_mp mov %party2mp,%sara_max_mp
rnd2 %ransu,1,10
if %ransu<3 gosub *sara_attack_miss
if %ransu>2 && %ransu<9 gosub *sara_attack_normal
if %ransu>8 gosub *sara_attack_crit
return

*sara_attack_miss

name "Sara"
>Oof!\
name ""
>Sara attacks! @
dwave 1,"se\miss.ogg"
>Miss!\
return

*sara_attack_normal

name "Sara"
>Here I come!\
name ""
>Sara attacks! @
if $lavel="ghost" skillname "":csp 699:gosub *ghost002:gosub *face1:return
mov %dwaveset,1
mov %abairitu,100+%saralv
mov $ori_name,"Sara"
gosub *enemylife
mov $ori_name,"Luka"
csp 699
if %enemylife=0 return "*"+$lavel+"_v"
if %skill_sub>1 return
csp 699:gosub *face1:return

*sara_attack_crit

name "Sara"
>Uuuuuoooohh-!\
name ""
mov %abairitu,170+%saralv*7/4
>Critical Hit!\
if $lavel="ghost" skillname "":csp 699:gosub *ghost002:gosub *face1:return
mov %dwaveset,2
mov $ori_name,"Sara"
gosub *enemylife
mov $ori_name,"Luka"
csp 699
if %enemylife=0 return "*"+$lavel+"_v"
if %skill_sub>1 return
csp 699:gosub *face1:return

*luskill1

if %enemy_num=1 mov $temp_name,$name:skip 10
if %enemy_num>1 gosub *enemy_target
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 600,610:print 10,1
gosub *setwindow_02
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"Eat this! "
if %ransu=2 mov $sel1,"I'll blast you with my tentacle! "
name "Lucia"
``$sel1
> \
name ""
if $party1="Lucia" mov %party1_attack,1
if $party2="Lucia" mov %party2_attack,1
if $party1="Lucia" mov %party1mp,%party1mp-2
if %party1mp<0 mov %party1mp,0
if $party2="Lucia" mov %party2mp,%party2mp-2
if %party2mp<0 mov %party2mp,0
skillname "Tentacle Attack "
dwave 2,"se\karaburi.ogg"
mov $sel1,"Lucia slams one of her tentacles into "+$temp_name+"!" 
``$sel1\
mov %abairitu,360+%mylv*3
mov %dwaveset,11
mov $ori_name,"Lucia"
gosub *enemylife
mov $ori_name,"Luka"
skillname ""
csp 699
if %enemylife=0 return "*"+$lavel+"_v"
gosub *face1:return

*luskill2b

cspl 600,610:print 10,1
gosub *setwindow_02
if $lavel="amira_ng" gosub *amira_ng_luskill2b
skillname ""
return

*luskill2c

if %enemy_num=1 mov $temp_name,$name:skip 4
if %enemy_target=1 mov $temp_name,$name1
if %enemy_target=2 mov $temp_name,$name2
if %enemy_target=3 mov $temp_name,$name3

cspl 600,610:print 10,1
gosub *setwindow_02
mov $sel1,"Lucia's tentacles tighten around "+$temp_name+", crushing her!"
skillname "Tentacle Bind"
name ""
dwave 1,"se\ero_simetuke1.ogg"
``$sel1\
if %enemy_num=1 rnd2 %damage,%max_enemylife/15,%max_enemylife/9:skip 4
if %enemy_target=1 rnd2 %damage,%max_enemy1life/15,%max_enemy1life/9
if %enemy_target=2 rnd2 %damage,%max_enemy2life/15,%max_enemy2life/9
if %enemy_target=3 rnd2 %damage,%max_enemy3life/15,%max_enemy3life/9
mov %dwaveset,4
mov $ori_name,"Lucia"
gosub *enemylife
mov $ori_name,"Luka"
skillname ""
if %enemylife=0 return "*"+$lavel+"_v"
return



*luskill2

if %enemy_num>1 skip 7
if %enemydisable<1 skip 6
name ""
cspl 600,610:print 10,1
gosub *setwindow_02
>That enemy can't be bound now!\
csp 699:return *cmd_support_lu

if %enemy_num>1 gosub *enemy_targetx
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 600,610:print 10,1
gosub *setwindow_02
name "Lucia"
>Hold still...\
skillname "Tentacle Bind"
dwave 1,"se\ero_makituki3.ogg"
name ""
if %enemy_num=1 gosub *face3:skip 9
if %enemy_target=1 gosub *face13
if %enemy_target=2 gosub *face23
if %enemy_target=3 gosub *face33
if %enemy_target=4 gosub *face43
if %enemy_target=5 gosub *face53
if %enemy_target=6 gosub *face63
if %enemy_target=7 gosub *face73
if %enemy_target=8 gosub *face83
wait 1000
mov $sel1,"Lucia's tentacles extend around "+$temp_name+"'s body, binding her!"
``$sel1\
wait 500
if $party1="Lucia" mov %party1_attack,1
if $party2="Lucia" mov %party2_attack,1
if $party1="Lucia" mov %party1mp,%party1mp-8
if %party1mp<0 mov %party1mp,0
if $party2="Lucia" mov %party2mp,%party2mp-8
if %party2mp<0 mov %party2mp,0
gosub *luskill2b
csp 699:gosub *face3:return

*luskill3

cspl 600,610:print 10,1
if %enemy_num>1 gosub *spirit_target
gosub *cmd_spiritcancel
gosub *setwindow_02
name "Lucia"
>I can easily neutralize that power...\
if %spirit_target=1 skillname "Wind Cancel"
if %spirit_target=2 skillname "Earth Cancel"
if %spirit_target=3 skillname "Water Cancel"
if %spirit_target=4 skillname "Fire Cancel"
if $party1="Lucia" mov %party1_attack,1
if $party2="Lucia" mov %party2_attack,1
if $party1="Lucia" mov %party1mp,%party1mp-6
if %party1mp<0 mov %party1mp,0
if $party2="Lucia" mov %party2mp,%party2mp-6
if %party2mp<0 mov %party2mp,0
name ""
dwave 1,"se\yami.ogg"
>Lucia mutters an incantation...\
dwave 1,"se\cancelar.ogg"
if %spirit_target=1 gosub *enemy_element_windfade
if %spirit_target=2 gosub *enemy_element_earthfade
if %spirit_target=3 gosub *enemy_element_aquafade
if %spirit_target=4 gosub *enemy_element_firefade
skillname ""
csp 699:gosub *face1:return

*luskill4

cspl 600,610:print 10,1
csp 699:print 10,500
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_target=9 mov $temp_name,$name9
gosub *setwindow_02
rnd2 %ransu,1,2
if %ransu=1 mov $sel1,"I won't go easy on you! "
if %ransu=2 mov $sel1,"Behold my power! "
name "Lucia "
``$sel1
> \
name ""
if $party1="Lucia" mov %party1_attack,1
if $party2="Lucia" mov %party2_attack,1
if $party1="Lucia" mov %party1mp,%party1mp-5
if %party1mp<0 mov %party1mp,0
if $party2="Sara" mov %party2mp,%party2mp-5
if %party2mp<0 mov %party2mp,0
skillname "Tentacle Blitz "
dwave 1,"se\ero_makituki4.ogg"
mov $sel1,"All of Lucia's tentacles race at "+$temp_name+" at once! "
``$sel1\
dwave 1,"se\dageki2.ogg"
gosub *face3
>They slam directly into her and knock her to the ground!\
mov %dwaveset,5
mov %abairitu,140+%mylv*3
mov $ori_name,"Lucia"
gosub *enemylife
dwave 1,"se\ero_simetuke1.ogg"
mov $sel1,"Lucia's tentacles wind around "+$temp_name+" while she's on the ground and squeeze     hard! "
``$sel1\
mov %dwaveset,4
mov %abairitu,140+%mylv*3
gosub *enemylife
dwave 1,"se\karaburi.ogg"
>Lucia swings her up into the air and violently slams her back into the ground!\
mov %dwaveset,5
mov %abairitu,200+%mylv*3
gosub *enemylife
dwave 1, "se\karaburi.ogg"
mov $sel1,"Lucia tosses "+$temp_name+" away and sends her flying! "
``$sel1\
dwave 1,"se\dageki.ogg"
>She forcefully hits the ground again!\
mov %dwaveset,5
mov %abairitu,140+%mylv*3
gosub *enemylife
mov $ori_name,"Luka"
skillname ""
csp 699
gosub *face1
if %enemylife=0 return "*"+$lavel+"_v"
if %skill_sub>1 return
return

*luskill5

if $party1="Lucia" mov %party1_attack,1
if $party2="Lucia" mov %party2_attack,1
cspl 600,610:print 10,1
mov %lupotion,1
gosub *setwindow_02
name "Lucia"
>Here, drink this...\
skillname "Vita-Boost Potion"
name ""
dwave 1,"se\aqua3.ogg"
>Lucia quickly mixes some potion ingredients together and passes the blend to  Luka!\
dwave 1,"se\ero_eat2.ogg"
>Luka drinks the potion!\
wait 500
dwave 1,"se\power.ogg"
wait 800
dwave 2,"se\item.ogg"
mov %potion,9
mov %mylife_boost,1
mov %max2_mylife,%max_mylife*(3/2)
>Luka's maximum health received a temporary boost!\
dwave 1,"se\kaihuku.ogg"
mov %damage,%max2_mylife/2
>Luka recovers half his health!\
mov %mylife,%mylife+%damage
if %mylife>%max2_mylife mov %mylife,%max2_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 %max2_mylife<%mylife*5 gosub *face1
csp 699:return

*luskill6

if $party1="Lucia" mov %party1_attack,1
if $party2="Lucia" mov %party2_attack,1
cspl 600,610:print 10,1
mov %lupotion,1
gosub *setwindow_02
name "Lucia"
>Here, drink this...\
skillname "Adrenaline Potion"
name ""
dwave 1,"se\aqua3.ogg"
>Lucia quickly mixes some potion ingredients together and passes the blend to  Luka!\
dwave 1,"se\ero_eat2.ogg"
>Luka drinks the potion!\
wait 500
dwave 1,"se\power.ogg"
>Luka's speed greatly increased!\
mov %potion,10
mov %potion_turn,4
mov %luka_maxturn,2
mov %luka_turn,0
csp 699:skillname "":gosub *face1:return

*luskill7

if $party1="Lucia" mov %party1_attack,1
if $party2="Lucia" mov %party2_attack,1
cspl 600,610:print 10,1
mov %lupotion,1
gosub *setwindow_02
name "Lucia"
>Here, drink this...\
skillname "Immuno-Boost Potion"
name ""
dwave 1,"se\aqua3.ogg"
>Lucia quickly mixes some potion ingredients together and passes the blend to  Luka!\
dwave 1,"se\ero_eat2.ogg"
>Luka drinks the potion!\
wait 500
dwave 2,"se\item.ogg"
>Luka became immune to status effects!\
mov %potion,11
mov %potion_turn,16
mov %immune,1
csp 699:skillname "":gosub *face1:return

*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
mov %dwaveset,5
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 "+$name+" fades away!"
return

*moskill1

cspl 600,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 600,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
mov %dwaveset,5
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 600,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.bmp",0,0:print 10,300
mov $sel1,"The area around "+$temp_name+" erupts in a powerful blaze of black fire!" 
``$sel1\
mov %abairitu,900
mov %dwaveset,5

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 ""

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:csp 698:gosub *face1:return


*moskill4

if $knight="Alma" mov %alma_rep,%alma_rep-2
cspl 600,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"
if %mylife_boost<1 mov %damage,%max_mylife
if %mylife_boost>0 mov %damage,%max2_mylife
mov $sel6,$ori_name+" fully recovers his health!"
``$sel6\
mov %mylife,%mylife+%damage
if %mylife_boost<1 && %mylife>%max_mylife mov %mylife,%max_mylife
if %mylife_boost>0 && %mylife>%max2_mylife mov %mylife,%max2_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 600,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;chara\alice_st03b.bmp",-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;chara\alice_st03b.bmp",-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;chara\alice_st03b.bmp",-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;chara\alice_st03b.bmp",-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! 
mov %dwaveset,8
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 2,"se\fire1.ogg"
if %effectspeed=2 skip 2
mpegplay "effect\movie01.mpg",1
mov %dwaveset,5
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 2,"se\wind3.ogg"
if %effectspeed=2 skip 2
mpegplay "effect\movie02.mpg",1
mov %dwaveset,5
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! \
mov %dwaveset,8
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;effect\017_01.bmp",180,80:print 10,10
lsp 2,":a;effect\017_02.bmp",180,80:print 10,10
lsp 2,":a;effect\017_03.bmp",180,80:print 10,10
lsp 2,":a;effect\017_04.bmp",180,80:print 10,10
lsp 2,":a;effect\017_05.bmp",180,80:print 10,10
csp 2:print 10,10
>Alma Elma's fist slams into Ilias! 
mov %dwaveset,5
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 2,"se\dageki2.ogg"
lsp 2,":a;effect\016_01.bmp",180,80:print 10,10
lsp 2,":a;effect\016_02.bmp",180,80:print 10,10
lsp 2,":a;effect\016_03.bmp",180,80:print 10,10
lsp 2,":a;effect\016_04.bmp",180,80:print 10,10
lsp 2,":a;effect\016_05.bmp",180,80:print 10,10
csp 2:print 10,10
>Alma Elma jumps forward as fast as lightning, kneeing Ilias! 
mov %dwaveset,5
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 "
dwave 2,"se\dageki2.ogg"
lsp 2,":a;effect\025_01.bmp",0,0:print 10,20
lsp 2,":a;effect\025_02.bmp",0,0:print 10,20
lsp 2,":a;effect\025_03.bmp",0,0:print 10,20
dwave 2,"se\light.ogg"
lsp 2,":a;effect\025_04.bmp",0,0:print 10,60
lsp 2,":a;effect\025_05.bmp",0,0:print 10,60
lsp 2,":a;effect\025_06.bmp",0,0:print 10,60
lsp 2,":a;effect\025_07.bmp",0,0:print 10,60
lsp 2,":a;effect\025_08.bmp",0,0:print 10,60
csp 2:print 10,10
>With all of her strength and spirit, Alma Elma slams her palm into Ilias! 
mov %dwaveset,5
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! 
mov %dwaveset,8
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
dwave 1,"se\tuki.ogg"
lsp 2,":a;effect\023_01.bmp",0,0:print 10,50
lsp 2,":a;effect\023_02.bmp",0,0:print 10,50
lsp 2,":a;effect\023_03.bmp",0,0:print 10,50
lsp 2,":a;effect\023_04.bmp",0,0:print 10,50
dwave 1,"se\tuki.ogg"
lsp 2,":a;effect\023_01.bmp",200,100:print 10,50
lsp 2,":a;effect\023_02.bmp",200,100:print 10,50
lsp 2,":a;effect\023_03.bmp",200,100:print 10,50
lsp 2,":a;effect\023_04.bmp",200,100:print 10,50
dwave 1,"se\tuki.ogg"
lsp 2,":a;effect\023_01.bmp",50,-50:print 10,50
lsp 2,":a;effect\023_02.bmp",50,-50:print 10,50
lsp 2,":a;effect\023_03.bmp",50,-50:print 10,50
lsp 2,":a;effect\023_04.bmp",50,-50:print 10,50
dwave 1,"se\tuki.ogg"
lsp 2,":a;effect\023_01.bmp",-200,100:print 10,50
lsp 2,":a;effect\023_02.bmp",-200,100:print 10,50
lsp 2,":a;effect\023_03.bmp",-200,100:print 10,50
lsp 2,":a;effect\023_04.bmp",-200,100:print 10,50
dwave 1,"se\tuki.ogg"
lsp 2,":a;effect\023_01.bmp",-50,-50:print 10,50
lsp 2,":a;effect\023_02.bmp",-50,-50:print 10,50
lsp 2,":a;effect\023_03.bmp",-50,-50:print 10,50
lsp 2,":a;effect\023_04.bmp",-50,-50:print 10,50
csp 2:print 10,50
\
mov $ori_name,"Tamamo "
mov %dwaveset,4
rnd2 %damage,900,1100
mov %damage_nobr,1:gosub *enemylifeb
mov %dwaveset,4
rnd2 %damage,900,1100
mov %damage_nobr,1:gosub *enemylifeb
mov %dwaveset,4
rnd2 %damage,900,1100
mov %damage_nobr,2:gosub *enemylifeb
textclear
mov %dwaveset,4
rnd2 %damage,900,1100
mov %damage_nobr,1:gosub *enemylifeb
mov %dwaveset,4
rnd2 %damage,900,1100
mov %damage_nobr,1:gosub *enemylifeb
mov %dwaveset,4
rnd2 %damage,900,1100
mov %damage_nobr,2:gosub *enemylifeb
textclear
mov %dwaveset,4
rnd2 %damage,900,1100
mov %damage_nobr,1:gosub *enemylifeb
mov %dwaveset,4
rnd2 %damage,900,1100
mov %damage_nobr,1:gosub *enemylifeb
mov %dwaveset,4
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
dwave 1,"se\slash5.ogg"
lsp 2,":a;effect\024_01.bmp",0,0:print 10,10
lsp 2,":a;effect\024_02.bmp",0,0:print 10,10
dwave 2,"se\slash5.ogg"
lsp 2,":a;effect\024_03.bmp",0,0:print 10,10
lsp 2,":a;effect\024_04.bmp",0,0:print 10,10
dwave 3,"se\slash5.ogg"
lsp 2,":a;effect\024_05.bmp",0,0:print 10,10
lsp 2,":a;effect\024_06.bmp",0,0:print 10,10
dwave 4,"se\slash5.ogg"
lsp 2,":a;effect\024_07.bmp",0,0:print 10,10
lsp 2,":a;effect\024_08.bmp",0,0:print 10,10
dwave 1,"se\slash5.ogg"
lsp 2,":a;effect\024_01.bmp",0,0:print 10,10
lsp 2,":a;effect\024_02.bmp",0,0:print 10,10
dwave 2,"se\slash5.ogg"
lsp 2,":a;effect\024_03.bmp",0,0:print 10,10
lsp 2,":a;effect\024_04.bmp",0,0:print 10,10
dwave 3,"se\slash5.ogg"
lsp 2,":a;effect\024_05.bmp",0,0:print 10,10
lsp 2,":a;effect\024_06.bmp",0,0:print 10,10
dwave 4,"se\slash5.ogg"
lsp 2,":a;effect\024_07.bmp",0,0:print 10,10
lsp 2,":a;effect\024_08.bmp",0,0:print 10,10
csp 2:print 10,30
textclear
mov $ori_name,"Tamamo "
mov %dwaveset,5
rnd2 %damage,2500,3000
mov %damage_nobr,1:gosub *enemylifeb
mov %dwaveset,5
rnd2 %damage,2500,3000
mov %damage_nobr,1:gosub *enemylifeb
mov %dwaveset,5
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! 
mov %dwaveset,1
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 2,"se\karaburi.ogg"
lsp 2,":a;effect\010_01.bmp",150,30:print 10,30
lsp 2,":a;effect\010_02.bmp",150,30:print 10,30
lsp 2,":a;effect\010_03.bmp",150,30:print 10,30
lsp 2,":a;effect\010_04.bmp",150,30:print 10,30
csp 2:print 10,30
mov %dwaveset,5
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 2,"se\slash3.ogg"
lsp 2,":a;effect\009b_01.bmp",200,80:print 10,12
lsp 2,":a;effect\009b_02.bmp",200,80:print 10,12
lsp 2,":a;effect\009b_03.bmp",200,80:print 10,12
lsp 2,":a;effect\009b_04.bmp",200,80:print 10,12
lsp 2,":a;effect\009b_05.bmp",200,80:print 10,12
csp 2:print 10,12
mov %dwaveset,4
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
dwave 1,"se\slash.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
dwave 2,"se\slash.ogg"
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
dwave 3,"se\slash.ogg"
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
lsp 2,":c;effect\005_01.jpg",0,0:print 1
lsp 2,":c;effect\005_02.jpg",0,0:print 1
lsp 2,":c;effect\005_03.jpg",0,0:print 1
lsp 2,":c;effect\005_04.jpg",0,0:print 1
csp 2:print 10,1000
mov %dwaveset,1
mov $ori_name,"Granberia "
rnd2 %damage,600,700
mov %damage_nobr,1:gosub *enemylifeb
mov %dwaveset,1
rnd2 %damage,600,700
mov %damage_nobr,2:gosub *enemylifeb
textclear
mov %dwaveset,1
rnd2 %damage,600,700
mov %damage_nobr,1:gosub *enemylifeb
mov %dwaveset,1
rnd2 %damage,600,700
mov %damage_nobr,1:gosub *enemylifeb
mov %dwaveset,1
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 "
mov %dwaveset,1
rnd2 %damage,1200,1500
mov %damage_nobr,1:gosub *enemylifeb
mov %dwaveset,1
rnd2 %damage,1200,1500
mov %damage_nobr,2:gosub *enemylifeb
textclear
mov %dwaveset,1
rnd2 %damage,1200,1500
mov %damage_nobr,1:gosub *enemylifeb
mov %dwaveset,1
rnd2 %damage,1200,1500
mov %damage_nobr,1:gosub *enemylifeb
mov %dwaveset,1
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+%count_buturi+%count_surrender+%count_poison+%count_curse
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
if %fetish!=%fetish_sin mov %fetish,%fetish_sin
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
if %fetish!=%fetish_sin mov %fetish,%fetish_sin
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"bgm\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

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

mov %nanido,1
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
