


*pos_setting

int strMesM0=80,strMesM1=80
int strMes0N0=0,strMes0N1=2
int strMes1N0=0,strMes1N1=2
int strMes0I0=1,strMes0I1=1
int strMes1I0=1,strMes1I1=1
int strMes0WN=33,strMes0HN=2
int strMes1WN=33,strMes1HN=2
int strMes0WH=20,strMes0IW=0,strMes0IH=16
int strMes1WH=20,strMes1IW=0,strMes1IH=16
int strNameX=290,strNameY=412
int strMes0X=180,strMes0Y=442
int strMes1X=180,strMes1Y=442
int SelectY=-80,SelectSize=28

int spFaceX=90,spFaceY=540
int spFaceW=256,spFaceH=0,spFaceWH=100
int spName00X=214,spName00Y=368
int spName01X=214,spName01Y=368
int spName10X=214,spName10Y=368
int spName11X=214,spName11Y=368
int spWin00X=15,spWin00Y=389
int spWin01X=15,spWin01Y=389
int spWin10X=15,spWin10Y=389
int spWin11X=15,spWin11Y=389
int spBer1X=494,spBer1Y=511,spBerH=21
int spBer2X=0,spBer2Y=0

int spCell1=2,spCell2=2

int spBtn00X=510         ,spBtn00Y=509
int spBtn07X=%spBtn00X+21,spBtn07Y=509
int spBtn08X=%spBtn07X+57,spBtn08Y=509
int spBtn09X=%spBtn08X+57,spBtn09Y=509
int spBtn10X=%spBtn09X+47,spBtn10Y=509
int spBtn11X=%spBtn10X+47,spBtn11Y=509
int spBtn01X=%spBtn11X+54,spBtn01Y=509
int spBtn02X=%spBtn01X+21,spBtn02Y=509
int spBtn03X=%spBtn02X+21,spBtn03Y=509
int spBtn04X=%spBtn03X+21,spBtn04Y=509
int spBtn05X=%spBtn04X+21,spBtn05Y=509
int spBtn06X=%spBtn05X+21,spBtn06Y=509
int spBtn12X=%spBtn06X+21,spBtn12Y=509

int spIconX=910,spIconY=492,IconMax=9,IconItv=100,IconCell=0x9
int spModeX=876,spModeY=436
int spReadX=876,spReadY=414


int LogSize=20,LogLineH=96,LogLine=5
int LogMessX=190,LogMessY=54
int LogNameX=%LogMessX+10,LogNameY=%LogMessY+%LogSize/2-4
int LogJumpX=%LogMessX-108,LogJumpY=%LogMessY+%LogSize*2+12
int LogVoiceX=%LogJumpX-36,LogVoiceY=%LogJumpY
int LogLightX=0,LogLightY=48
int LogBarX=928,LogBarY=94,LogBarM=22
int LogBackX=928,LogBackY=20


int SaveSize=16,SaveSizeM=2,SaveMod=5,SaveMax=10
int SaveSSW=192,SaveSSH=108,SaveSSWH=100*%Width/%Width2
int SaveDataX=195,SaveDataY=38,SaveDataW=382,SaveDataH=84
int SaveNewX=2,SaveNewY=8
int SaveThmX=10,SaveThmY=16
int SaveComX=114,SaveComY=11,SaveComM=26,SaveComN=0
int SaveDelX=338,SaveDelY=8
int SaveProX=338,SaveProY=28
int SavePageX=402,SavePageY=474,SavePageW=42,SavePageH=0,SavePageL=1
int SavePageX2=%SavePageX+%SavePageW*10,SavePageX3=%SavePageX2+%SavePageW
int SavePrevX=%SavePageX-%SavePageW,SavePrevY=474
int SaveNextX=%SavePageX3+%SavePageW,SaveNextY=474

int SaveTimeX=228,SaveTimeY=483,SaveTimeW=18
int SavePlayX=-160,SavePlayY=540,SavePlayM=1

int SaveSwapX=0,SaveSwapY=264
int SaveConfigX=0,SaveConfigY=309
int SaveTitleX=8,SaveTitleY=468
int SaveExitX=62,SaveExitY=468
int SaveBackX=116,SaveBackY=468





string FontFile2="lr SVbN"
int FontBold2=1

int FontColer21=0x091A78,FontColer22=0xFFFFFF


int ConfigFormatX=9,ConfigFormatY=428
int ConfigPageX=0,ConfigPageY=39,ConfigPageW=0,ConfigPageH=45,ConfigPageM=1
int ConfigPageMax=2,ConfigPageVoice=2

cal %ConfigPageMax=3,%ConfigPageVoice=3


int ConfigScreenX=218, ConfigScreenY=96, ConfigScreenW=135
int ConfigAspectX=218, ConfigAspectY=141, ConfigAspectW=135
int ConfigWallX=218, ConfigWallY=186, ConfigWallW=90
int ConfigCursorX=218, ConfigCursorY=231, ConfigCursorW=90

int ConfigPage1ex1X=218, ConfigPage1ex1Y=276, ConfigPage1ex1W=135




int ConfigEffect0X=218, ConfigEffect0Y=381, ConfigEffect0W=135
int ConfigEffect1X=218, ConfigEffect1Y=426, ConfigEffect1W=135
int ConfigEffect2X=218, ConfigEffect2Y=471, ConfigEffect2W=135
int ConfigConfirmX=675,ConfigConfirmY=78,ConfigConfirmW=205,ConfigConfirmH=70,ConfigConfirmM=6

int ConfigMes0X=263,ConfigMes0Y=109
int ConfigMes1X=330,ConfigMes1Y=289
int ConfigMes2X=505,ConfigMes2Y=289
int ConfigAuto0X=263,ConfigAuto0Y=179
int ConfigAuto1X=330,ConfigAuto1Y=359
int ConfigAuto2X=505,ConfigAuto2Y=359
int ConfigSkip0X=233,ConfigSkip0Y=254,ConfigSkip0W=161
int ConfigSkip1X=330,ConfigSkip1Y=429
int ConfigSkip2X=505,ConfigSkip2Y=429
int FontListBox=8,ConfigFontH=24-4,ConfigFontH2=24+2
int ConfigFontStrX=8,ConfigFontStr0Y=1
int ConfigFontX=593,ConfigFontY=115
int ConfigBoldX=705,ConfigBoldY=154
int ConfigShadowX=880,ConfigShadowY=154
int ConfigOutlineX=705,ConfigOutlineY=224
int ConfigGradationX=880,ConfigGradationY=224
int ConfigAlphaX=638,ConfigAlphaY=389
int ConfigSimpleX=880,ConfigSimpleY=428

int ConfigVolume0X=263,ConfigVolume0Y=129,ConfigVolumeW=375,ConfigVolumeH=105,ConfigVolumeM=4
int ConfigVolume1X=488,ConfigVolume1Y=96
int ConfigDown0X=880,ConfigDown0Y=289
int ConfigDown1X=880,ConfigDown1Y=359
int ConfigCancelX=880,ConfigCancelY=429

int ConfigCharaVolumeM=1,ConfigCharaVolumeL=5
int ConfigCharaVolume0X=240,ConfigCharaVolume0Y=159
int ConfigCharaVolumeW=147,ConfigCharaVolumeH=106
int ConfigCharaVolume1X=275,ConfigCharaVolume1Y=78
int ConfigCharaVolume2X=279,ConfigCharaVolume2Y=126
int ConfigCharaVolume3X=275,ConfigCharaVolume3Y=102


int ExtraVisible=1|2|4|0|0
int cgBtnW=5,cgBtnH=4,cgBtnMax=%cgBtnW*%cgBtnH
int cgDataX=210,cgDataY=93,cgDataW=140,cgDataH=89
int rpBtnW=5,rpBtnH=4,rpBtnMax=%rpBtnW*%rpBtnH
int rpDataX=210,rpDataY=93,rpDataW=140,rpDataH=89
int sdBtnW=2,sdBtnH=11,sdBtnMax=%sdBtnW*%sdBtnH,sdNameW=20
int sdDataX=209,sdDataY=90,sdDataW=348,sdDataH=32,sdDataX2=4,sdDataY2=1
int ExtraPageX=0,ExtraPageY=39,ExtraPageW=0,ExtraPageH=45,ExtraPageM=1
int ExtraBarX=906,ExtraBarY=110,ExtraBarM=-24,ExtraBarI=-22
int ExtraBackX=116,ExtraBackY=468

int PlayerX=344,PlayerY=457,PlayBtnX=382, PlayBtnY=20, PlayBtnW=29
int PlaySeek1X=6,PlaySeek1Y=43,PlaySeek1W=0,PlaySeek2X=268,PlaySeek2Y=43
int PlayText1X=170,PlayText1Y=38,PlayText1W=12,PlayStyle1=4
int PlayText2X=198,PlayText2Y=21,PlayText2W=24,PlayStyle2=20


int ExtraPerX=270,ExtraPerY=494,ExtraPerW=24,ExtraPerStyle=20



int diaLog0X=360,diaLog0Y=272
int diaLog1X=482,diaLog1Y=272
int diaLog2X=282,diaLog2Y=306
int diaLogMX=0,diaLogMY=-340
return




*ConfigPage1ex1_c
if($g_time!="") sp_a 356,255*%s_ConfigPage1ex1
return

*ConfigPage1ex1_l
if($g_time!="") goto *DATA2
sp_exist 356,%n
if(%n) sp_a 356,0
return














*DAY_load
cal $g_time=""

for %0,900,920
sp_rot %0,0
next
sp_dx 900,920,0
draw

sp 900,"sys/day/ch"+$(%g_chap)2+$ext,4,0
sp_xy 900,254,270:sp_a 900,0:sp_rxyz 900,0,270,0:sp_ref 900

sp 901,"sys/day/than"+$ext,4,0
sp_xy 901,546,408:sp_cxy 901,0,0:sp_a 901,0:sp_ref 901

sp 902,"sys/day/"+$(%g_mon)2+$ext,4,0
sp_xy 902,590,386:sp_cxy 902,0,0:sp_a 902,0:sp_ref 902

sp 903,"sys/day/slash"+$ext,4,0
sp_xy 903,650+57*(9<%g_mon),380:sp_cxy 903,0,0:sp_a 903,0:sp_ref 903

sp 904,"sys/day/"+$(%g_day)2+$ext,4,0
sp_xy 904,710+57*(9<%g_mon),386:sp_cxy 904,0,0:sp_a 904,0:sp_ref 904

for %0,0,6
sp 905+%0,"sys/day/week"+$(%0)+"0"+$ext,4,0
sp_xy 905+%0,488+60*%0,472:sp_cxy 905+%0,0,0:sp_a 905+%0,0:sp_ref 905+%0
next
sp 905+%2,"sys/day/week"+$(%2)+"1"+$ext,4,0:sp_ref 905+%2

sp 912,"sys/day/base_flower"+$ext,4,0
sp_xy 912,-480,270:sp_rxyz 912,0,0,-180:sp_ref 912

sp 913,"sys/day/base_line"+$ext,4,0
sp_xy 913,-480,440:sp_wh 913,100,10:sp_ref 913

sp 914,"sys/day/base_upper"+$ext,4,0
sp_xy 914,0,-120:sp_cxy 914,0,0:sp_ref 914
sp 915,"sys/day/base_under"+$ext,4,0
sp_xy 915,0,540:sp_cxy 915,0,0:sp_ref 915

sp 916,"sys/day/base"+$ext,4,0

sp 917,"bg/BLACK"+$ext,4,0
sp_wh 917,120,120:sp_ref 917
sp 917,"bg/BG_200_00_0"+$ext,4,0


sp_aa 900,0,1000,0,0x10
sp_aa 900,255,100,0,0x11
sp_ary 900,270,1000,0,0x10
sp_ary 900,0,500,0,0x11

for %0,0,3
sp_aa 901+%0,0,1000+75*%0,0,0x10
sp_aa 901+%0,255,250,0,0x11
next

for %0,0,6
sp_aa 905+%0,0,1000+50*%0,0,0x10
sp_aa 905+%0,255,250,0,0x11
next

sp_ax 912,268,1000,2,0x10
sp_arz 912,0,1000,2,0x10
sp_ax 913,480,500,2,0x10
sp_ah 913,10,500,0,0x10
sp_ah 913,100,500,0,0x11
sp_ay 914,0,1000,2,0x10
sp_ay 915,420,1000,2,0x10

sp_awh 917,100,100,3000,0,0x10
return

*CHAP
getParam %g_chap
return

*DATA
getParam $g_time,%1=1000
if($g_time=="") goto *DATA3
*DATA2
sp 356,"sys/chapter/"+$(%g_chap)2+"_"+$(%g_mon)2+$(%g_day)2+"_"+$g_time+$ext,13,0
sp_cxy 356,0,0
sp_xy 356,0,-40
draw
sp_axya 356,0,0,255*%s_ConfigPage1ex1,%1*((%EffectSkip&2)==0),2,0x100
return

*DATA3
sp_exist 356,%0:if(%0) sp_axya 356,0,-40,0,%1*((%EffectSkip&2)==0),-2,0x100
return



*logo
systemEffect 500

rand %54,0,2
if(%54==0) cal $255="006"
elseif(%54==1) cal $255="007"
elseif(%54==2) cal $255="020"
systemVo 1,,$255,,500

if(%EffectSkip&3) goto *logo_skip1



sp_ani 997,"sys/title/logo.avi",0,1,1,0,0

if(!(%EffectSkip&2)) goto *logo_skip2
*logo_skip1
sp 997,"sys/title/logo"+$ext,4,0
sp_a 997,0:sp_ref 997
sp_aa 997,255,1000*((%EffectSkip&2)!=2),0,0x100
*logo_skip2
systemWait 3100,,,0
soundWait
sp_d 997,0


rand %0,0,100
sp 998,"sys/title/Attention"+$(%0\25)+$ext,4,0
systemEffect 1000
systemWait 2000,,,0

sp 998,"bg/WHITE"+$ext,0,0
systemEffect 1000
return



*title
string title_bgm="BGM_902"








int extra=0

cal %0=462,%1=260,%2=74+18*%extra
existSave 999,1,%Continue
loadButton 320,"sys/title/continue",%1,%0,14:sp_a 320,0:cal %1+=%2
loadButton 321,"sys/title/start",%1,%0,14:sp_a 321,0:cal %1+=%2
loadButton 322,"sys/title/load",%1,%0,14:sp_a 322,0:cal %1+=%2
loadButton 323,"sys/title/config",%1,%0,14:sp_a 323,0:cal %1+=%2
if(!%extra) loadButton 324,"sys/title/extra",%1,%0,14:sp_a 324,0:cal %1+=%2
loadButton 325,"sys/title/exit",%1,%0,14:sp_a 325,0:cal %1+=%2
cal %1=260,%2=74+24+22*%extra
loadButton 328,"sys/title/cgmode",%1,%0,14:sp_a 328,0:cal %1+=%2
loadButton 329,"sys/title/rpmode",%1,%0,14:sp_a 329,0:cal %1+=%2
loadButton 330,"sys/title/sdmode",%1,%0,14:sp_a 330,0:cal %1+=%2
loadButton 331,"sys/title/back",%1,%0,14:sp_a 331,0:cal %1+=%2

sp 310,"sys/title/chara0"+$ext,14,0:sp_o 310,1
sp_xy 310,1060,0:sp_cxy 310,2,0:sp_a 310,0
sp 311,"sys/title/chara1"+$ext,14,0:sp_o 311,1
sp_xy 311,-100,0:sp_cxy 311,0,0:sp_a 311,0

sp 317,"sys/title/flower"+$ext,14,0:sp_o 317,1
sp_xy 317,480,270:sp_cxy 317,1,1:sp_a 317,0:sp_wh 317,200,200
sp 318,"sys/title/title_logo"+$(%trial)+$ext,14,0
sp_xy 318,570,330:sp_cxy 318,0,0:sp_a 318,0
loadButton 335,"sys/title/shop",16,440,14:sp_a 335,0
loadButton 337,"sys/title/ohp",754,436,14:sp_a 337,0
draw3

cal %t=(%EffectSkip&2)==0
sp_axy 310,960,0,750*%t,2,0x110:sp_aa 310,255,750*%t,0,0x110
sp_axy 311,0,0,750*%t,2,0x110:sp_aa 311,255,750*%t,0,0x110
sp_awh 317,100,100,750*%t,2,0x110:sp_aa 317,255,750*%t,0,0x110
sp_axy 318,520,280,750*%t,2,0x110:sp_aa 318,255,750*%t,0,0x110
sp_aa 335,0,750*%t,0,0x110:sp_aa 335,255,750*%t,0,0x111
sp_aa 337,0,750*%t,0,0x110:sp_aa 337,255,750*%t,0,0x111

cal %0=0
sp_awh 320,200,200,%0*%t,0,0x110:sp_awh 320,100,100,500*%t,2,0x111
sp_aa 320,0,%0*%t,0,0x110:sp_aa 320,127+128*%Continue,250*%t,0,0x111:cal %0+=100
sp_awh 321,200,200,%0*%t,0,0x110:sp_awh 321,100,100,500*%t,2,0x111
sp_aa 321,0,%0*%t,0,0x110:sp_aa 321,255,250*%t,0,0x111:cal %0+=100
sp_awh 322,200,200,%0*%t,0,0x110:sp_awh 322,100,100,500*%t,2,0x111
sp_aa 322,0,%0*%t,0,0x110:sp_aa 322,255,250*%t,0,0x111:cal %0+=100
sp_awh 323,200,200,%0*%t,0,0x110:sp_awh 323,100,100,500*%t,2,0x111
sp_aa 323,0,%0*%t,0,0x110:sp_aa 323,255,250*%t,0,0x111:cal %0+=100
if(%extra) goto *titleX
sp_awh 324,200,200,%0*%t,0,0x110:sp_awh 324,100,100,500*%t,2,0x111
sp_aa 324,0,%0*%t,0,0x110:sp_aa 324,255,250*%t,0,0x111:cal %0+=100
*titleX
sp_awh 325,200,200,%0*%t,0,0x110:sp_awh 325,100,100,500*%t,2,0x111
sp_aa 325,0,%0*%t,0,0x110:sp_aa 325,255,250*%t,0,0x111:cal %0+=100

rand %54,0,3
if($255!="") cal $255=$255
elseif(%54==0) cal $255="006"
elseif(%54==1) cal $255="007"
elseif(%54==2) cal $255="020"
elseif(%54==3) cal $255="032"
systemVo 2,%VoiceChara-2,$255:cal $255=""

sp 339,"sys/title/base"+$ext,14,0:sp_o 339,1
BGM $title_bgm, , 120
systemEffect 1000

*title2
cal %Title=1
if(%Continue) setBtn 0,320,0x1
setBtn 1,321,0x1
setBtn 2,322,0x1
setBtn 3,323,0x1
if(!%extra) setBtn 4,324,0x1
setBtn 5,325,0x1
setBtn 7,335,0x1
setBtn 9,337,0x1
cal $50="*title_loop",$51="*title2"

*title_loop




eventWait %0,%1,%2

if(%0==0 && %1<2) actionButton3 %0,%2,*title_continue,,-10
if(%0==1 && %1<2) actionButton3 %0,%2,*title_start,4,-10
if(%0==2 && %1<2) actionButton3 %0,%2,*title_load,,-10
if(%0==3 && %1<2) actionButton3 %0,%2,*title_config,,-10
if(%0==4 && %1<2) actionButton3 %0,%2,*title_extra,,-10
if(%0==5 && %1<2) actionButton3 %0,%2,*title_exit,,-10
if(%0==6 && %1<2) actionButton3 %0,%2,*title_update,,-10
if(%0==7 && %1<2) actionButton %0,%2,*title_shop,4
if(%0==8 && %1<2) actionButton %0,%2,*title_enquete
if(%0==9 && %1<2) actionButton %0,%2,*title_ohp
if(%0 == 261) goto "*execute_exit"+$(%2)
if(%0 == 262) gosub *execute_aspect
if(%0 == 256) draw2




if(%1==0x01 && %2==3) sleep 1

goto *title_loop

*title_clear
gosub *execute_aspect
sp_dx 310,339,0
return

*title_update
sp_ay 327,452,250,2,0x110
variableExist %0,$updateCheck:if(!%0) goto *title_update2
if($updateCheck=="") goto *title_update2
isNetworkAlive %0:if(!%0) inform "޷ӵ":goto *title_update2
fileDownload $updateCheck,$0:if($0=="") inform "޷汾£Ƿɱֹ":goto *title_update2
split $0,",",%1,$1
cal %2=%($Version)*100:if(%1<=%2) inform "ǰΪ°汾":goto *title_update2
confirm "⵽汾£Ƿ򿪸ҳ棿",%0:if(%0) shellExecute $1,"",%0:goto *title_update2
cal %s_update=%1
*title_update2
sp_ay 327,462,250,2,0x110
goto $50

*title_shop
shellExecute "http://store.broccoli.co.jp/ec/cmShopTopPage7.html","",%0
goto $50

*title_ohp
shellExecute "http://www.mirai-soft.net/","",%0
goto $50

*title_enquete




shellExecute "http://www.mirai-soft.net/hanahime/enquete.html","",%0

goto $50

*title_continue
sp_ay 320,452,250,2,0x110

systemVo 12,%VoiceChara-2

existSave 999,1,%2
if(!%2) goto *title_loop
gosub *title_clear
cal %1=999
goto *execute_load

*title_back3
systemSe "se/sysse_03.ogg"
gosub *title_clear
systemEffect 500
goto *title

*title_start
sp_ay 321,452,250,2,0x110

systemVo 11,%VoiceChara-2
sd_totalTime 15,%50

gosub *sound_clear
gosub *title_clear
systemEffect %50
systemWait 1000
cal %Title=0
clearBtn:setBtnNow -1
setPosition 0
gosub *flag_format
pushSave 0,*start
goto *start
















*title_load
sp_ay 322,452,250,2,0x110

systemVo 14,%VoiceChara-2








saveFunc 0, 0, %0
if(%0==1) goto *execute_exit2

sp_ay 322,462,250,2,0x110
goto *title2

*title_config
sp_ay 323,452,250,2,0x110

systemVo 15,%VoiceChara-2






configFunc 0, %0
if(%0==1) goto *execute_exit2

sp_ay 323,462,250,2,0x110
goto *title2

*title_tutorial
BGM , 1000
gosub *title_clear
systemEffect 1000
cal %Title=0,%Replay=1,%Terminate=0
clearBtn:setBtnNow -1
gosub *flag_format
setPosition 0

sp_a %spMenuS+07,128:sp_a %spMenuS+08,128:sp_a %spMenuS+09,128:sp_a %spMenuS+10,128




if(4<%s_tutorial) cal %s_tutorial=4
cal $0="*X1_000000_"+$(%s_tutorial)

pushSave 0,$0
goto $0

*title_exit
sp_ay 325,452,250,2,0x110
cal $51="*title_exit2"
goto *execute_exit0
*title_exit2
sp_ay 325,462,250,2,0x110
goto *title2

*title_extra
sp_ay 324,462,250,2,0x110
















clearBtn
for %0,320,325:sp_l %0,0:sp_ae %0:sp_c %0,0,0:sp_a %0,0:next
for %0,328,331:sp_a %0,255:next
systemEffect 250

*title3

setBtn 0,328,0x1
setBtn 1,329,0x1
setBtn 2,330,0x1
setBtn 3,331,0x1
setBtn 7,335,0x1
setBtn 9,337,0x1
cal $50="*title_loop2",$51="*title3"

*title_loop2
eventWait %0,%1,%2
if((%1==0x02 || %1==0x08 || %1==0x1B) && %2==3) goto *title_back2
if(%0==0 && %1<2) actionButton3 %0,%2,*title_cgmode,,-10
if(%0==1 && %1<2) actionButton3 %0,%2,*title_rpmode,,-10
if(%0==2 && %1<2) actionButton3 %0,%2,*title_sdmode,,-10
if(%0==3 && %1<2) actionButton3 %0,%2,*title_back,,-10
if(%0==7 && %1<2) actionButton %0,%2,*title_shop,4
if(%0==9 && %1<2) actionButton %0,%2,*title_ohp
if(%0 == 261) goto "*execute_exit"+$(%2)
if(%0 == 262) gosub *execute_aspect
if(%0 == 256) draw2




if(%1==0x01 && %2==3) sleep 1

goto *title_loop2

*title_return
BGM $title_bgm
sp_ay 328,462,250,2,0x110
sp_ay 329,462,250,2,0x110
sp_ay 330,462,250,2,0x110
sp_ay 331,462,250,2,0x110
goto *title3

*title_cgmode
sp_ay 328,452,250,2,0x110

systemVo 31,%VoiceChara-2

BGM , 1000
goto *cgmode

*title_rpmode
sp_ay 329,452,250,2,0x110

systemVo 32,%VoiceChara-2

BGM , 1000
goto *rpmode

*title_sdmode
sp_ay 330,452,250,2,0x110

systemVo 34,%VoiceChara-2

BGM , 1000
goto *sdmode

*title_exmode
sp_ay 331,452,250,2,0x110

systemVo 35,%VoiceChara-2

BGM , 1000
goto *exmode

*title_back2
systemSe "se/sysse_03.ogg"
setBtnNow -1
*title_back
sp_ay 331,452,250,2,0x110
clearBtn
for %0,320,325:sp_a %0,255:next
sp_a 320,127+128*%Continue
for %0,328,331:sp_a %0,0:sp_l %0,0:sp_ae %0:sp_c %0,0,0:next
systemEffect 250
sp_ay 331,462,250,2,0x110
goto *title2



*execute_exit3

cal %Terminate=1
return

if(!%s_ConfigPage1ex1) return
formatMess:clearSave
cal %Title=0,%Replay=1,%Terminate=1
cal %50=250:gosub *execute_clear
gosub *execute_clear2
setPosition 0

sp_a %spMenuS+07,128:sp_a %spMenuS+08,128:sp_a %spMenuS+09,128:sp_a %spMenuS+10,128

cal %g_TextSize=0:setMessWH 25,3,%strMes0WH,%strMes0WH,%strMes0IW,%strMes0IH



rand %0,0,28
cal $0="s_ez"+$(%0/32)
variableExist %1,%$0
if(%1) if(%$0&(1<<(%0%32))) rand %0,0,28

pushSave 0,"*Y1_000000_"+$(%0)
return "*Y1_000000_"+$(%0)



*saveload_voice2














return



*config_voicetest
cal %VoiceTest=%0,%1=%VoiceNum+%0
cal $2="vo/"+$%1+"/S"+$%1+$sysVoStr+"04.ogg",$3="s_v"+$%1,$4="s_m"+$%1
existFile $2,%3
if(%3 || !%debug) sd 20,$2,0,0,%$3*%$4,0,1,0
goto *config_loop


*config_load4

return

*config_move4

return

*config_btn4

return



*LEVEL
getMode %mode
if(31<%mode) return
stopMode
setWindowVisible 0

loadButton 120,"sys/select/level1",0,100,10,1
loadButton 121,"sys/select/level2",295,100,10,1




loadButton 122,"sys/select/level3",590,100,10,1


sp 129,"sys/select/txt04"+$ext,10,0
sp_xy 129,480,104
sp 130,"sys/select/base"+$ext,10,0
systemEffect 500

*level_lb2
setBtn 0,120,1
setBtn 1,121,1

setBtn 2,122,1

cal $50="*level_loop",$51="*level_lb2",$52="*level_lb2"

*level_loop
eventWait %0,%1,%2
if(%0==0 && %1<2) actionButton3 %0,%2,*level_lb_level1,,-50,600,1
if(%0==1 && %1<2) actionButton3 %0,%2,*level_lb_level2,,-50,600,1
if(%0==2 && %1<2) actionButton3 %0,%2,*level_lb_level3,,-50,600,1
if(%0 == 261) goto "*execute_exit"+$(%2)
if(%0 == 262) gosub *execute_aspect
if(%0==256 || %0==260 || (%1==0x01 && %2==3)) draw2
goto *level_loop

return

*level_lb_level1
cal %s_BattleSetting=(%s_BattleSetting&0x73)|4
goto *level_lb_end

*level_lb_level2
cal %s_BattleSetting=(%s_BattleSetting&0x73)|8
goto *level_lb_end

*level_lb_level3
cal %s_BattleSetting|=12
goto *level_lb_end

*level_lb_end
sp_dx 120,130,0
systemEffect 500
clearBtn
return



*select2_load0
sp %121-1,"sys/select/txt02"+$ext,10,0
goto "*select2_load0"+$(%s_clear&1)

*select2_load00
cal %120=7,%0=140,%1=33
loadButton %spSlct+0,"sys/select/chara1",%1,120,10,1:cal %1+=%0
loadButton %spSlct+1,"sys/select/chara2",%1,290,10,1:cal %1+=%0
loadButton %spSlct+2,"sys/select/chara3",%1,120,10,1:cal %1+=%0
loadButton %spSlct+3,"sys/select/chara4",%1,290,10,1:cal %1+=%0
sp %spSlct+4,"sys/dummy"+$ext,10,0:sp_a %spSlct+4,0
loadButton %spSlct+5,"sys/select/chara6",%1,120,10,1:cal %1+=%0
loadButton %spSlct+6,"sys/select/chara7",%1,290,10,1
return

*select2_load01
cal %120=7,%0=120,%1=23
loadButton %spSlct+0,"sys/select/chara1",%1,120,10,1:cal %1+=%0
loadButton %spSlct+1,"sys/select/chara2",%1,290,10,1:cal %1+=%0
loadButton %spSlct+2,"sys/select/chara3",%1,120,10,1:cal %1+=%0
loadButton %spSlct+3,"sys/select/chara4",%1,290,10,1:cal %1+=%0
loadButton %spSlct+4,"sys/select/chara5",%1,120,10,1:cal %1+=%0
loadButton %spSlct+5,"sys/select/chara6",%1,290,10,1:cal %1+=%0
loadButton %spSlct+6,"sys/select/chara7",%1,120,10,1
return

*select2_load1
cal %120=2
loadButton %spSlct+0,"sys/select/team1",64,120,10,1
loadButton %spSlct+1,"sys/select/team2",448,120,10,1

sp %121-1,"sys/select/txt03"+$ext,10,0
return


*SELECT2
getParam $100,$101,$102,$103,$104,$105,$106,$107,$108,$109




sp_a %strName,0:sp_a %spFace,0

getMode %mode



stopMode
getAlreadyRead %0
sp_a %spAlr,255*%0
if(!(%mode & 51)) gosub *mode_stop2:draw
elseif(%mode & 16) cal %LoadFlag=0

setWindowVisible %g_Visible
for %120,0,9
cal %1=100+%120,%2=110+%120
if($%1 == "") break
split $%1,",",$%1,$%2,%%1=1
next
cal %121=%spSlct+%120+1

gosub "*select2_load"+$(%120==2)

sp_xy %121-1,480,104
sp %121,"sys/select/base"+$ext,10,0
systemEffect 500
setLog "ѡ񡿣 ",1,0

if(!%LoadFlag && !%Replay && !%Title) gosub *AS

*select2_lb2




setBtn 0,%spMenuS+00,0:setBtnTool 0," /  ˵"

if(!(%Replay&16)) setBtn 1,%spMenuS+01,0:setBtnTool 1,"ط"
if(!(%Replay&16)) setBtn 2,%spMenuS+02,0:setBtnTool 2,"һѡ"
if(!(%Replay&16)) setBtn 3,%spMenuS+03,0:setBtnTool 3,"ʷԻ"
if(!(%Replay&16)) setBtn 4,%spMenuS+04,0:setBtnTool 4,"Զ"
if(!(%Replay&16)) setBtn 5,%spMenuS+05,0:setBtnTool 5,""
if(!(%Replay&16)) setBtn 6,%spMenuS+06,0:setBtnTool 6,"һѡ"
if(!%Replay) setBtn 7,%spMenuS+07,0:setBtnTool 7,"ٴ浵"
if(!%Replay) setBtn 8,%spMenuS+08,0:setBtnTool 8,"ٶ"
if(!%Replay) setBtn 9,%spMenuS+09,0:setBtnTool 9,"浵"
if(!%Replay) setBtn 10,%spMenuS+10,0:setBtnTool 10,""
setBtn 11,%spMenuS+11,0:setBtnTool 11,""
setBtn 12,%spMenuS+12,0:setBtnTool 12,"رղ˵"





for %0,0,%120-1
cal %1=100+%0
if(%%1 && (%120==2 || %0!=4 || %s_clear)) setBtn 20+%0,%spSlct+%0,0
next
cal $50="*select2_loop",$51="*select2_lb2",$52="*select2_lb2"

*select2_loop
eventWait %0,%1,%2
if((%1==0x02 || %1==0x08 || %1==0x1B) && %2==3) goto *text_lb_close
if(%2==5 || (%1==0x21 && %2==2)) goto *text_lb_log
if(%0==0 && %1<2) actionButton %0,%2,*text_lb_lock
if(%0==1 && %1<2) actionButton %0,%2,*text_lb_voice
if(%0==2 && %1<2) actionButton %0,%2,*text_lb_back
if(%0==3 && %1<2) actionButton %0,%2,*text_lb_log
if(%0==4 && %1<2) actionButton %0,%2,*text_lb_auto
if(%0==5 && %1<2) actionButton %0,%2,*text_lb_skip
if(%0==6 && %1<2) actionButton %0,%2,*map_next
if(%0==7 && %1<2) actionButton %0,%2,*text_lb_qsave
if(%0==8 && %1<2) actionButton %0,%2,*text_lb_qload
if(%0==9 && %1<2) actionButton %0,%2,*map_save
if(%0==10 && %1<2) actionButton %0,%2,*map_load
if(%0==11 && %1<2) actionButton %0,%2,*map_config
if(%0==12 && %1<2) actionButton %0,%2,*text_lb_close



if(%0 == 257) cal %stop=%1,%mode=%2:goto *text_lb_mode
if(20<=%0 && %0<=29 && %1<2) cal %0-=20:actionButton %0+20,%2,*SELECT_END
if(%0 == 261) goto "*execute_exit"+$(%2)
if(%0 == 262) gosub *execute_aspect
if(%0==256 || %0==260 || (%1==0x01 && %2==3)) goto *select_draw
goto *select2_loop



*map_over
sp_gn %spSlct+%0,$0
getBaseName $0,$0
split $0,"_",$1,$2
sp_gxy %spSlct+%0,0,0,%1,%2

sp %spSlct-1,"sys/map/tc_"+$2+"_1"+$ext,10,0
sp_cxy %spSlct-1,1,1
sp_gsz %spSlct-1,%3,%4
sp_xy %spSlct-1,-%3/2+(960+%3)*(%1<480),270
sp_ref %spSlct-1

sp %spSlct-2,"sys/map/"+$(%g_mon)2+$(%g_day)2+"_"+$2+$ext,10,0
sp_cxy %spSlct-2,1,1
sp_xy %spSlct-2,-%3/2+(960+%3)*(%1<480),376
sp_ref %spSlct-2

sp %spSlct-3,"sys/map/new"+$ext,10,0
sp_cxy %spSlct-3,1,1
sp_xy %spSlct-3,-%3/2+(960+%3)*(%1<480),394
cal %4=110+%0,$0="s_"+($%4+1):variableExist %5,$$0
sp_a %spSlct-3,255*(1-%5)
sp_ref %spSlct-3

sp_ax %spSlct-3,-172+%3/2+(960-%3)*(%1<480),400,2,0x110
sp_ax %spSlct-2,%3/2+(960-%3)*(%1<480),400,2,0x110
sp_ax %spSlct-1,%3/2+(960-%3)*(%1<480),400,2,0x110
sp_awh %spSlct+%0,110,110,250,2,0x110
return

*map_remove
sp_exist %spSlct-1,%1:if(!%1) return
sp_gxy %spSlct+%0,0,0,%1,%2
sp_gsz %spSlct-1,%3,%4
sp_ax %spSlct-3,-%3/2+(960+%3)*(%1<480),400,2,0x120
sp_ax %spSlct-2,-%3/2+(960+%3)*(%1<480),400,2,0x120
sp_ax %spSlct-1,-%3/2+(960+%3)*(%1<480),400,2,0x120
sp_awh %spSlct+%0,100,100,250,2,0x110
return

*map_view
sp_qy %spSlct+%10,-10,250*%t,1,2,0,250*%t
sp_aa %spSlct+%10,0,250*%t,0,0x110
sp_aa %spSlct+%10,255,250*%t,0,0x111

sp_qy %spSlct+%11,-10,250*%t,1,2,0,500*%t
sp_aa %spSlct+%11,0,500*%t,0,0x110
sp_aa %spSlct+%11,255,250*%t,0,0x111

sp_qy %spSlct+%12,-10,250*%t,1,2,0,750*%t
sp_aa %spSlct+%12,0,750*%t,0,0x110
sp_aa %spSlct+%12,255,250*%t,0,0x111

sp_qy %spSlct+%13,-10,250*%t,1,2,0,1000*%t
sp_aa %spSlct+%13,0,1000*%t,0,0x110
sp_aa %spSlct+%13,255,250*%t,0,0x111

sp_qy %spSlct+%14,-10,250*%t,1,2,0,1250*%t
sp_aa %spSlct+%14,0,1250*%t,0,0x110
sp_aa %spSlct+%14,255,250*%t,0,0x111

if(%15==-1) return
sp_exist %spSlct+%15,%9:if(!%9) return
sp_qy %spSlct+%15,-10,250*%t,1,2,0,1500*%t
sp_aa %spSlct+%15,0,1500*%t,0,0x110
sp_aa %spSlct+%15,255,250*%t,0,0x111

if(%16==-1) return
sp_exist %spSlct+%16,%9:if(!%9) return
sp_qy %spSlct+%16,-10,250*%t,1,2,0,1750*%t
sp_aa %spSlct+%16,0,1750*%t,0,0x110
sp_aa %spSlct+%16,255,250*%t,0,0x111
return

*map_load0610
loadButton %spSlct+0,"sys/map/sd_me",600,68,10,1:sp_wh %spSlct+0,94,94
loadButton %spSlct+1,"sys/map/sd_re",380,200,10,1:sp_wh %spSlct+1,100,100
loadButton %spSlct+2,"sys/map/sd_po",240,38,10,1:sp_wh %spSlct+2,91,91
loadButton %spSlct+3,"sys/map/sd_hi",714,142,10,1:sp_wh %spSlct+3,97,97
loadButton %spSlct+4,"sys/map/sd_eve",664,8,10,1:sp_wh %spSlct+4,88,88
cal %120=5,%10=1,%11=3,%12=0,%13=2,%14=4,%15=-1
return

*map_load0612
loadButton %spSlct+0,"sys/map/sd_me",704,180,10,1:sp_wh %spSlct+0,91,91
loadButton %spSlct+1,"sys/map/sd_re",486,234,10,1:sp_wh %spSlct+1,94,94
loadButton %spSlct+2,"sys/map/sd_po",826,326,10,1:sp_wh %spSlct+2,97,97
loadButton %spSlct+3,"sys/map/sd_hi",584,394,10,1:sp_wh %spSlct+3,100,100
loadButton %spSlct+4,"sys/map/sd_eve",664,8,10,1:sp_wh %spSlct+4,88,88
cal %120=5,%10=3,%11=2,%12=1,%13=0,%14=4,%15=-1
return

*map_load0629
loadButton %spSlct+0,"sys/map/sd_me",704,180,10,1:sp_wh %spSlct+0,88,88
loadButton %spSlct+1,"sys/map/sd_re",518,354,10,1:sp_wh %spSlct+1,97,97
loadButton %spSlct+2,"sys/map/sd_po",826,326,10,1:sp_wh %spSlct+2,94,94
loadButton %spSlct+3,"sys/map/sd_hi",584,394,10,1:sp_wh %spSlct+3,100,100
loadButton %spSlct+4,"sys/map/sd_eve",380,200,10,1:sp_wh %spSlct+4,91,91
cal %120=5,%10=3,%11=1,%12=2,%13=4,%14=0,%15=-1
return

*map_load0701
loadButton %spSlct+0,"sys/map/sd_me",240,38,10,1:sp_wh %spSlct+0,94,94
loadButton %spSlct+1,"sys/map/sd_re",380,200,10,1:sp_wh %spSlct+1,100,100
loadButton %spSlct+2,"sys/map/sd_po",714,142,10,1:sp_wh %spSlct+2,97,97
loadButton %spSlct+3,"sys/map/sd_hi",664,8,10,1:sp_wh %spSlct+3,91,91
loadButton %spSlct+4,"sys/map/sd_eve",714,8,10,1:sp_wh %spSlct+4,91,91
cal %120=5,%10=1,%11=2,%12=0,%13=3,%14=4,%15=-1
return

*map_load0711
loadButton %spSlct+0,"sys/map/sd_me",384,412,10,1:sp_wh %spSlct+0,100,100
loadButton %spSlct+1,"sys/map/sd_re",454,412,10,1:sp_wh %spSlct+1,100,100
loadButton %spSlct+2,"sys/map/sd_po",596,234,10,1:sp_wh %spSlct+2,97,97
loadButton %spSlct+3,"sys/map/sd_hi",332,186,10,1:sp_wh %spSlct+3,94,94
loadButton %spSlct+4,"sys/map/sd_eve",656,234,10,1:sp_wh %spSlct+4,97,97
loadButton %spSlct+5,"sys/map/sd_aya",382,186,10,1:sp_wh %spSlct+5,94,94
cal %120=6,%10=0,%11=1,%12=2,%13=4,%14=3,%15=5,%16=-1
return

*map_load0716
loadButton %spSlct+0,"sys/map/sd_me",714,142,10,1:sp_wh %spSlct+0,97,97
loadButton %spSlct+1,"sys/map/sd_re",774,142,10,1:sp_wh %spSlct+1,97,97
loadButton %spSlct+2,"sys/map/sd_po",314,196,10,1:sp_wh %spSlct+2,100,100
loadButton %spSlct+3,"sys/map/sd_hi",664,8,10,1:sp_wh %spSlct+3,91,91
loadButton %spSlct+4,"sys/map/sd_eve",380,196,10,1:sp_wh %spSlct+4,100,100
loadButton %spSlct+5,"sys/map/sd_an",600,68,10,1:sp_wh %spSlct+5,94,94
loadButton %spSlct+6,"sys/map/sd_aya",724,8,10,1:sp_wh %spSlct+6,91,91
cal %120=7,%10=2,%11=4,%12=0,%13=1,%14=5,%15=3,%16=6
return

*map_load0718
loadButton %spSlct+0,"sys/map/sd_me",668,190,10,1:sp_wh %spSlct+0,91,91
loadButton %spSlct+1,"sys/map/sd_re",534,394,10,1:sp_wh %spSlct+1,100,100
loadButton %spSlct+2,"sys/map/sd_po",184,305,10,1:sp_wh %spSlct+2,97,97
loadButton %spSlct+3,"sys/map/sd_hi",244,307,10,1:sp_wh %spSlct+3,97,97
loadButton %spSlct+4,"sys/map/sd_eve",486,234,10,1:sp_wh %spSlct+4,94,94
loadButton %spSlct+5,"sys/map/sd_an",584,394,10,1:sp_wh %spSlct+5,100,100
loadButton %spSlct+6,"sys/map/sd_aya",712,190,10,1:sp_wh %spSlct+6,91,91
cal %120=7,%10=1,%11=5,%12=2,%13=3,%14=4,%15=0,%16=6
return

*map_load0719
loadButton %spSlct+0,"sys/map/sd_me",284,412,10,1:sp_wh %spSlct+0,100,100
loadButton %spSlct+1,"sys/map/sd_re",334,412,10,1:sp_wh %spSlct+1,100,100
loadButton %spSlct+2,"sys/map/sd_po",404,412,10,1:sp_wh %spSlct+2,100,100
loadButton %spSlct+3,"sys/map/sd_hi",464,412,10,1:sp_wh %spSlct+3,100,100
loadButton %spSlct+4,"sys/map/sd_eve",486,234,10,1:sp_wh %spSlct+4,97,97
loadButton %spSlct+5,"sys/map/sd_an",574,412,10,1:sp_wh %spSlct+5,100,100
loadButton %spSlct+6,"sys/map/sd_aya",624,412,10,1:sp_wh %spSlct+6,100,100
cal %120=7,%10=0,%11=1,%12=2,%13=3,%14=5,%15=6,%16=4
return

*MAP
getParam $100,$101,$102,$103,$104,$105,$106,$107,$108,$109




sp_a %strName,0:sp_a %spFace,0

getMode %mode



stopMode
getAlreadyRead %0
sp_a %spAlr,255*%0
if(!(%mode & 51)) gosub *mode_stop2:draw
elseif(%mode & 16) cal %LoadFlag=0

for %120,0,9
cal %1=100+%120,%2=110+%120
if($%1 == "") break
split $%1,",",$%1,$%2,%%1=1
next
cal %121=%spSlct+%120+2


gosub "*map_load"+$(%g_mon)2+$(%g_day)2
for %1,%spSlct,%spSlct+%120-1
sp_a %1,0
next

sp %121-2,"sys/map/name"+$ext,10,0
sp_a %121-2,0

sp %121-1,"sys/map/"+$(%g_mon)2+$(%g_day)2+"_fukidashi"+$ext,10,0
sp_a %121-1,0

sp %121,"sys/map/base"+$ext,10,0
sp_wh %121,200,200:sp_a %121,0:sp_ref %121

cal %t=(%EffectSkip&2)==0

sp_awh %121,100,100,500*%t,2,0x110
sp_a %121,255

sc_mb 1, 64
systemEffect 500

sp_aa %121-2,255,250*%t,0,0x110

sp_aa %121-1,255,250*%t,0,0x110

gosub *map_view

systemWait 1500

sp %spSlct-3,"sys/map/intro_txt"+$ext,10,0
sp_xy %spSlct-3,480,-65:sp_ref %spSlct-3

sp_ay %spSlct-3,270,500*%t,9,0x110
systemWait 500
sc_mb 0, 0
systemWait 50

sp_awh %spSlct-3,200,200,1000*%t,-9,0x120
sp_aa %spSlct-3,0,1000*%t,-4,0x120
systemWait 1000

setWindowVisible %g_Visible

setLog "ѡ񡿣 ",1,0
if(!%LoadFlag && !%Replay && !%Title) gosub *AS

*map_lb2




setBtn 0,%spMenuS+00,0:setBtnTool 0," /  ˵"

if(!(%Replay&16)) setBtn 1,%spMenuS+01,0:setBtnTool 1,"ط"
if(!(%Replay&16)) setBtn 2,%spMenuS+02,0:setBtnTool 2,"һѡ"
if(!(%Replay&16)) setBtn 3,%spMenuS+03,0:setBtnTool 3,"ʷԻ"
if(!(%Replay&16)) setBtn 4,%spMenuS+04,0:setBtnTool 4,"Զ"
if(!(%Replay&16)) setBtn 5,%spMenuS+05,0:setBtnTool 5,""
if(!(%Replay&16)) setBtn 6,%spMenuS+06,0:setBtnTool 6,"һѡ"
if(!%Replay) setBtn 7,%spMenuS+07,0:setBtnTool 7,"ٴ浵"
if(!%Replay) setBtn 8,%spMenuS+08,0:setBtnTool 8,"ٶ"
if(!%Replay) setBtn 9,%spMenuS+09,0:setBtnTool 9,"浵"
if(!%Replay) setBtn 10,%spMenuS+10,0:setBtnTool 10,""
setBtn 11,%spMenuS+11,0:setBtnTool 11,""
setBtn 12,%spMenuS+12,0:setBtnTool 12,"رղ˵"





for %0,0,%120-1
cal %1=100+%0
if(%%1) setBtn 20+%0,%spSlct+%0,1
next
cal $50="*map_loop",$51="*map_lb2",$52="*map_lb2"

*map_loop
eventWait %0,%1,%2
if((%1==0x02 || %1==0x08 || %1==0x1B) && %2==3) goto *text_lb_close
if(%2==5 || (%1==0x21 && %2==2)) goto *text_lb_log
if(%0==0 && %1<2) actionButton %0,%2,*text_lb_lock
if(%0==1 && %1<2) actionButton %0,%2,*text_lb_voice
if(%0==2 && %1<2) actionButton %0,%2,*text_lb_back
if(%0==3 && %1<2) actionButton %0,%2,*text_lb_log
if(%0==4 && %1<2) actionButton %0,%2,*text_lb_auto
if(%0==5 && %1<2) actionButton %0,%2,*text_lb_skip
if(%0==6 && %1<2) actionButton %0,%2,*map_next
if(%0==7 && %1<2) actionButton %0,%2,*text_lb_qsave
if(%0==8 && %1<2) actionButton %0,%2,*text_lb_qload
if(%0==9 && %1<2) actionButton %0,%2,*map_save
if(%0==10 && %1<2) actionButton %0,%2,*map_load
if(%0==11 && %1<2) actionButton %0,%2,*map_config
if(%0==12 && %1<2) actionButton %0,%2,*text_lb_close



if(%0 == 257) cal %stop=%1,%mode=%2:goto *text_lb_mode
if(20<=%0 && %0<=26 && %1<2) cal %0-=20:actionButton %0+20,%2,*map_end,,*map_over,*map_remove
if(%0 == 261) goto "*execute_exit"+$(%2)
if(%0 == 262) gosub *execute_aspect
if(%0==256 || %0==260 || (%1==0x01 && %2==3)) goto *select_draw
goto *map_loop

*map_end
sp_gn %spSlct+%0,$0
getBaseName $0,$0
split $0,"_",$1,$2
sp %spSlct-1,"sys/map/tc_"+$2+"_2"+$ext,10,0
setWindowVisible 0
systemEffect 250

clearSave
sp_dx %spSlct-3,%121,1
systemEffect 3000
cal %1=100+%0,%2=110+%0,%120=0,%121=0,%LoadFlag=0
clearBtn
if($%2=="") return
if(%Replay&16) return $%2
string "s_"+($%2+1)

setLog "ѡ񡿣 "+$%1,2,0
clearMess %Replay&16
pushSave 1,$%2
return $%2

*map_next
goto $52

*map_save

systemVo 13,%VoiceChara-2

gosub *text_lb_menu_hide
gosub *text_lb_clear

saveFunc 1, 1, %0
if(%0==1) goto *execute_exit2
elseif(%0==2) goto *execute_title2

draw
goto $52

*map_load

systemVo 14,%VoiceChara-2

gosub *text_lb_menu_hide
gosub *text_lb_clear

saveFunc 0, 1, %0
if(%0==1) goto *execute_exit2
elseif(%0==2) goto *execute_title2

draw
goto $52

*map_config

systemVo 15,%VoiceChara-2

gosub *text_lb_menu_hide
gosub *text_lb_clear

configFunc 1, %0
if(%0==1) goto *execute_exit2
elseif(%0==2) goto *execute_title2
elseif(%0==4) return *rpmode_view3

draw
goto $52



*exmode
clearBtn
int diffMax=0,listMax,listCnt=0,pageMax,pageNow=0,Extra,Extra2=3
*exmodeX

loadText "sys/mode/exlist.csv",%listMax
cal %10=0
for %0,0,%listMax-1
getText $0,%0+1
if(*$0 == 0x3B) continue
len %2,$0:if(%2 < 3) continue
split $0,",",$1,$2,$3,$4,$5,$6,$7,$8,$9
cal $90="ex"+$(%10)2,%3=0
for %1,1,9
if($%1 == "") cal %1-=1:break
string $90+$(%1)=$%1
cal $91="s_"+$%1
variableExist %2,%$91
cal %3+=%2
next
int $90=%1,$90+"v"=%3
cal %10+=1,%listCnt+=%3,%diffMax+=%1
next
clearText
cal %listMax=%10

cal %pageMax=(%listMax+(%cgBtnW-1))/%cgBtnW
if(%cgBtnH<%pageMax) cal %pageMax-=%cgBtnH
else cal %pageMax=0

gosub *sdload

sp_dx 50,119,0
gosub *exmode_update


cal $0=$(100*%listCnt\%diffMax),%1=2:gosub *percent


sp 120,"sys/mode/exmode"+$ext,10,0
systemEffect 250

*exmode2
gosub *sdbtn
for %0,0,%cgBtnMax-1
cal $2="ex"+$(%cgBtnW*%pageNow+%0)2+"v"
variableExist %2,%$2:if(!%2) continue
if(%$2) setBtn 20+%0,52+%0*3,0
else eraseBtn 52+%0*3
next
cal $50="*exmode_loop",$51="*exmode2",$52="*exmode"
cal %SliderWheel=0

*exmode_loop
eventWait %0,%1,%2
if(20<=%0 && %0<=19+%sdBtnMax && %1<2) cal %0-=20:actionButton %0+20,%2,*exmode_view
goto *mode_loop

*exmode_update
ssp_set "lr SVbN",16,4,0xFFFFFF,0xFFFFFF,0x000000
for %0,0,%cgBtnMax-1
cal %1=%0*3,$20="ex"+$(%cgBtnW*%pageNow+%0)2,$21=$20+"v"
variableExist %2,%$20:if(!%2) sp_dx 50+%1,52+%1,0:continue
if(%$21) cal $0=$20+"1",$0="cg/"+$$0,$1=$(%$21)+"/"+$(%$20)
else cal $0="cgno",$1=""
cal %2=%cgDataW*(%0%%cgBtnW),%3=%cgDataH*(%0\%cgBtnW)

loadButton2 50+%1,"sys/mode/",$1,"cgframe",$0,%cgDataX+%2,%cgDataY+%3,10
if(%$21) setBtn 20+%0,52+%1,0
else eraseBtn 52+%1:sp_l 52+%1,0:sp_c 52+%1,0,0
next
return

*exmode_view
clearBtn
cal $10="ex"+$(%cgBtnW*%pageNow+%0)2,%11=1
for %10,0,%$10,0
cal %10+=%11
if(!%10 || %$10<%10) break
cal $11=$10+$(%10), $12="s_"+$$11
variableExist %2,%$12
if(!%2) continue
cal $exbg="ev/"+$$11+$ext
sp 9,$exbg,10,0
sp_gsz 9,%w,%h
split $$11,"_",$1,$2,$3,%y
cal %w=(%w-%Width)\2,%h=(%h-%Height)\2,%x=0
sp_xy 9,%WidthH+%x,%HeightH+%y
existFile "sys/mode/cgbase"+$ext,%2
if(%2) sp 10,"sys/mode/cgbase"+$ext,10,0
systemEffect 250
*exmode_view2
cal $50="*exmode_view_loop",$51="*exmode_view2",$52="*exmode_view2"
*exmode_view_loop
eventWait %0,%1,%2
if(%1==0x01 && %2==2) getCursorPos %3,%4:gosub *exmode_move:cal %x=%7,%y=%8:if(!%0 && %3==%5 && %4==%6) continue
if((%1==0x0D && %2==3) || %2==4 || ((%1==0x20 || %1==0x22) && %2==2)) cal %11=1:continue
if((%1==0x02 || %1==0x08 || %1==0x1B) && %2==3) break
if(%2==5 || (%1==0x21 && %2==2)) cal %11=-1:continue
if(%1==0x24 && %2==2) cal %10=0,%11=1:continue
if(%1==0x23 && %2==2) cal %10=%$10-2,%11=1:continue
if(%0 == 261) goto "*execute_exit"+$(%2)
if(%0 == 262) gosub *execute_aspect
if(%0 == 256) goto *sdmode_timer
if(%1==0x01 && %2==3) sleep 1
goto *exmode_view_loop
next
sp_d 9,1
systemEffect 250
goto *exmode2

*exmode_move
getCursorPos %5,%6
getPushKey 0x01,%0:if(!%0) return
cal %7=%x+%5-%3,%8=%y+%6-%4
if(%w<%7) cal %7=%w
elseif(%7<-%w) cal %7=-%w
if(%h<%8) cal %8=%h
elseif(%8<-%h) cal %8=-%h
sp_xy 9,%WidthH+%7,%HeightH+%8
draw:sleep 0
goto *exmode_move



*ezmode
clearBtn
int listMax,listCnt=0,pageMax,pageNow=0,Extra,Extra2=4
*ezmodeX

loadText "sys/mode/ezlist.csv",%listMax
cal %10=0,%listCnt=0
for %0,0,%listMax-1
getText $0,%0+1
if(*$0 == 0x3B) continue
len %2,$0:if(%2 < 3) continue
split $0,",",$1,$2
cal $10="ez"+$(%10),%3=0,$11="s_ez"+$(%10/32)
variableExist %2,%$11:if(%2) cal %2=(%$11&(1<<(%10%32)))!=0
if(!%2) cal $1="",$2=""
string $10+"0"=$1, $10+"1"=$2
cal %listCnt+=%2,%10+=1
next
clearText
cal %listMax=%10

cal %pageMax=(%listMax+(%sdBtnW-1))/%sdBtnW
if(%sdBtnH<%pageMax) cal %pageMax-=%sdBtnH
else cal %pageMax=0

gosub *sdload

sp_dx 50,119,0
if(%pageMax) gosub *mode_slider
gosub *ezmode_update


cal $0=$(100*%listCnt\%listMax),%1=2:gosub *percent


sp 120,"sys/mode/ezmode"+$ext,10,0
systemEffect 250

*ezmode2
gosub *sdbtn
for %0,0,%sdBtnMax-1
cal $2="ez"+$(%sdBtnW*%pageNow+%0)+"0"
variableExist %2,$$2:if(!%2) continue
if($$2!="") setBtn 20+%0,51+%0*2,0
else eraseBtn 51+%0*2
next
cal $50="*ezmode_loop",$51="*ezmode2",$52="*ezmode"
cal %SliderWheel=0

*ezmode_loop
eventWait %0,%1,%2
if(20<=%0 && %0<=19+%sdBtnMax && %1<2) cal %0-=20:actionButton %0+20,%2,*ezmode_view
goto *mode_loop

*ezmode_update
ssp_set $FontFile2,%sdNameW,29,0x091A78,0x091A78,0xFFFFFF
for %0,0,%sdBtnMax-1
cal %1=%0*2,$1="ez"+$(%sdBtnW*%pageNow+%0),$0=$1+"0"
variableExist %2,$$0:if(!%2) sp_dx 50+%1,51+%1,0:continue
cal %2=%sdDataW*(%0%%sdBtnW),%3=%sdDataH*(%0\%sdBtnW)
sp_exist 51+%1,%4:if(%4<2) loadButton 51+%1,"sys/mode/sdbar",%sdDataX+%2,%sdDataY+%3,10,3
ssp 50+%1,$$0,10:sp_xy 50+%1,%sdDataX2+%2,%sdDataY2+%3:sp_cxy 50+%1,0,0
if($$0!="") setBtn 20+%0,51+%1,0
else eraseBtn 51+%1:sp_l 51+%1,0:sp_c 51+%1,0,0
next
return

*ezmode_view
gosub *mode_stop
clearBtn:setBtnNow -1
cal %Title=0,%Replay=8,$Replay="*ezmodeX"
cal $10="ez"+$(%sdBtnW*%pageNow+%0)+"1"
sd_stop 1,500,0
gosub *title_clear
sp_dx 10,121,0
systemEffect 500

sp_a %spMenuS+07,128:sp_a %spMenuS+08,128:sp_a %spMenuS+09,128:sp_a %spMenuS+10,128

pushSave 0,$$10
goto $$10


