;$V2000G1000S800,600L10000
*define
;sځAwG1000xȊO̐l͕ύX
;iO[oϐ1000ȍ~ɐݒ肵Ē΂njj

caption "D̗R"
resetmenu
insertmenu "I",END
insertmenu "o[W",VERSION
insertmenu "I܂ŊǃXLbv",SKIP
insertmenu "I[g[h",AUTO

versionstr "D̗R","2017/12/28 (c)тI"

exec_dll "dll\szpd.dll/mkdir savedata" ;savedatatH_
savedir "savedata" ;Z[uf[^͂̒ցBenvdata͊OɏoĂ

humanz 100
windowback
effectcut
mode_wave_demo
addkinsoku "hz","yg"
usewheel
useescspc

textgosub *text_lb
pretextgosub *name

maxkaisoupage 50 ;Cӂ̐
kidokuskip ;ǃXLbvI

globalon
;;clickstr "vBIHj",2 ;sȂꍇ͒OɔpA_[C_@y[Wꍇ͒\

stralias lss1,":a;image\chara\lss1.png" ;G摜GCAX open͌J
stralias lss2,":a;image\chara\lss2.png" ;Ί1͖ڂAΊ2͖ڕJ̑΂AΊ3͖ڊJ̔΂ Ί4͖ڊJJ̔΂
stralias lss3,":a;image\chara\lss3.png"
stralias lss4,":a;image\chara\lss4.png"
stralias lhss1,":a;image\chara\lhss1.png"
stralias lhss2,":a;image\chara\lhss2.png"
stralias lhss3,":a;image\chara\lhss3.png"
stralias lhss4,":a;image\chara\lhss4.png"

stralias nlss1,":a;image\chara\nlss1.png" ;G摜GCAX open͌J
stralias nlss2,":a;image\chara\nlss2.png" ;Ί1͖ڂAΊ2͖ڕJ̑΂AΊ3͖ڊJ̔΂ Ί4͖ڊJJ̔΂
stralias nlss3,":a;image\chara\nlss3.png"
stralias nlss4,":a;image\chara\nlss4.png"
stralias nlhss1,":a;image\chara\nlhss1.png"
stralias nlhss2,":a;image\chara\nlhss2.png"
stralias nlhss3,":a;image\chara\nlhss3.png"
stralias nlhss4,":a;image\chara\nlhss4.png"

stralias ho,":a;image\chara\hoho_oko.png" ;G摜GCAX open͌J
stralias hk,":a;image\chara\hoho_komari.png" ;Ί1͖ڂAΊ2͖ڕJ̑΂AΊ3͖ڊJ̔΂
stralias hm,":a;image\chara\hoho_mazime.png"
stralias hod,":a;image\chara\hoho_odoroki.png"
stralias hs1,":a;image\chara\hoho_smile1.png"
stralias hs2,":a;image\chara\hoho_smile2.png"
stralias hs3,":a;image\chara\hoho_smile3.png"

stralias no,":a;image\chara\n_oko.png" ;G摜GCAX open͌J
stralias nk,":a;image\chara\n_komari.png" ;Ί1͖ڂAΊ2͖ڕJ̑΂AΊ3͖ڊJ̔΂
stralias nm,":a;image\chara\n_mazime.png"
stralias nod,":a;image\chara\n_odoroki.png"
stralias ns1,":a;image\chara\n_smile1.png"
stralias ns2,":a;image\chara\n_smile2.png"
stralias ns3,":a;image\chara\n_smile3.png"


stralias nho,":a;image\chara\nhoho_oko.png" ;G摜GCAX open͌J
stralias nhk,":a;image\chara\nhoho_komari.png" ;Ί1͖ڂAΊ2͖ڕJ̑΂AΊ3͖ڊJ̔΂
stralias nhm,":a;image\chara\nhoho_mazime.png"
stralias nhod,":a;image\chara\nhoho_odoroki.png"
stralias nhs1,":a;image\chara\nhoho_smile1.png"
stralias nhs2,":a;image\chara\nhoho_smile2.png"
stralias nhs3,":a;image\chara\nhoho_smile3.png"

stralias nno,":a;image\chara\nn_oko.png" ;G摜GCAX open͌J
stralias nnk,":a;image\chara\nn_komari.png" ;Ί1͖ڂAΊ2͖ڕJ̑΂AΊ3͖ڊJ̔΂
stralias nnm,":a;image\chara\nn_mazime.png"
stralias nnod,":a;image\chara\nn_odoroki.png"
stralias nns1,":a;image\chara\nn_smile1.png"
stralias nns2,":a;image\chara\nn_smile2.png"
stralias nns3,":a;image\chara\nn_smile3.png"



stralias sho,":a;image\chara\shoho_oko.png" ;G摜GCAX open͌J
stralias shk,":a;image\chara\shoho_komari.png" ;Ί1͖ڂAΊ2͖ڕJ̑΂AΊ3͖ڊJ̔΂
stralias shm,":a;image\chara\shoho_mazime.png"
stralias shod,":a;image\chara\shoho_odoroki.png"
stralias shs1,":a;image\chara\shoho_smile1.png"
stralias shs2,":a;image\chara\shoho_smile2.png"
stralias shs3,":a;image\chara\shoho_smile3.png"

stralias so,":a;image\chara\s_oko.png" ;G摜GCAX open͌J
stralias sk,":a;image\chara\s_komari.png" ;Ί1͖ڂAΊ2͖ڕJ̑΂AΊ3͖ڊJ̔΂
stralias sm,":a;image\chara\s_mazime.png"
stralias sod,":a;image\chara\s_odoroki.png"
stralias ss1,":a;image\chara\s_smile1.png"
stralias ss2,":a;image\chara\s_smile2.png"
stralias ss3,":a;image\chara\s_smile3.png"



stralias lhn,":a;image\chara\left_hoho_normal.png" ;G摜GCAX open͌J
stralias lhno,":a;image\chara\left_hoho_normal_open.png"
stralias lhs,":a;image\chara\left_hoho_smile.png"
stralias lhso,":a;image\chara\left_hoho_smile_open.png"

stralias lnn,":a;image\chara\left_n_normal.png"
stralias lnno,":a;image\chara\left_n_normal_open.png" 
stralias lns,":a;image\chara\left_n_smile.png"
stralias lnso,":a;image\chara\left_n_smile_open.png"



stralias nlhn,":a;image\chara\nleft_hoho_normal.png" ;G摜GCAX open͌J
stralias nlhno,":a;image\chara\nleft_hoho_normal_open.png"
stralias nlhs,":a;image\chara\nleft_hoho_smile.png"
stralias nlhso,":a;image\chara\nleft_hoho_smile_open.png"

stralias nlnn,":a;image\chara\nleft_n_normal.png"
stralias nlnno,":a;image\chara\nleft_n_normal_open.png" 
stralias nlns,":a;image\chara\nleft_n_smile.png"
stralias nlnso,":a;image\chara\nleft_n_smile_open.png"


effect 20,10,300 ;G\pGtFNg`

game

*start
if %1009!=1 gosub *configset1st ;vC̏ꍇ̊elݒ
bgmfadeout 2000 ;BGM̃tF[h Cӂ̐Asv̏ꍇ͍폜
bgmfadein 2000

saveoff

if %1010=1 goto *logojump
bg "image\logotop.jpg",10,1500  ;S\ Zbgɂ͔΂
delay 200
;;dwave 1,"sound\jingle.ogg"  ;WO
bgm "sound\title.ogg";;^Cg
delay 1800 ;WO̒ɍ킹ĕύX
*logojump
bg black,10,500 ;Uʂ
delay 500
mov %1010,0
bg "image\top.jpg",10,1000


*title
;ver.2.01CB
;[hʂRtBOʂƃXvCgԍdȂȂ悤ɂ܂B

lsp 40,":a;image\start_01.png",550,305
lsph 41,":a;image\start_02.png",550,305
lsp 42,":a;image\load_01.png",550,365
lsph 43,":a;image\load_02.png",550,365
lsp 44,":a;image\config_01.png",550,425
lsph 45,":a;image\config_02.png",550,425
lsp 46,":a;image\exit_01.png",550,485
lsph 47,":a;image\exit_02.png",550,485


;lsp 40,":a;image\start_01.png",140,120
;lsph 41,":a;image\start_02.png",140,120
;lsp 42,":a;image\load_01.png",140,170
;lsph 43,":a;image\load_02.png",140,170
;lsp 44,":a;image\config_01.png",140,220
;lsph 45,":a;image\config_02.png",140,220
;lsp 46,":a;image\exit_01.png",140,270
;lsph 47,":a;image\exit_02.png",140,270

print 1

*title_loop
;ver.2.01CBbspŌʉĐB

bclear

bsp 40,"P40C41","P41C40","S10,(sound\finger_snap.wav)"
bsp 42,"P42C43","P43C42","S10,(sound\finger_snap.wav)"
bsp 44,"P44C45","P45C44","S10,(sound\finger_snap.wav)"
bsp 46,"P46C47","P47C46",""

bexec $0

if $0=="S40" stop:goto *story_start
if $0=="S42" gosub *loadset:goto *title
if $0=="S44" gosub *config:goto *title
if $0=="S46" gosub *enddal:goto *title

goto *title_loop

*story_start
csp -1:print 1



bg black,10,4000;;wiFob
;;bgm "sound\nichijo1.ogg";;aflF󂷂鉤̃e[}
;;bg black,10,3000;;wiFobN/؂ւ3b@ҋ@2b
;;bg "image\bg\gyokuy.jpg",10,1000


setwindow 40,440,30,4,24,24,0,3,%1000,0,1,":a;image\window.png",20,420 ;eLXgXs[h̓RtBOʂŐݒ肵
lsp 33,":a;image\tojiru.png",757,557 ;EBhE\{^\
print 1

lsp 35,":a;image\namewindow.png",20,378 ;OEBhE̕\
print 1

;;wD̗Rx

bg "image\bg\class.jpg",10,1000 ;;wiFij/؂ւ3b@ҋ@2b
bgm "sound\nichijo.ogg";;aflF̃e[}

\\fQARVAT痹B\
񘰓T@vYIfB\
[HHH]uCH@R狎ߘIv\
[]uccC̍vߘHvHv\

;;ld c,nnm,20;;GFiʒuFʁ@@^ʖځ@F߁j

ƉIoFC|QbB\
}iZlsYa䙀Ðl݈NIКFB\
YCƗaʎqXH\
sms噀́CZ\kCݖB͘jXApYB\
OC~_IvH\
cc\s\yOH\

[b]uvߘHvccv\
[b]uH@L_WHv\
[b]uaInskDHv\
[]uccsCCہCIv\
[b]uOCߖHv\

ŊIہC|ً^ʐT@I籖`B\
A^옱CmƉIܕ헢fېB\
ccAߘ튈AD\

[]ucc틡Hv\
[b]uOCߘOv\
[b]uSsƗC݈Ӂ`v\
[]uIHAUqHv\

×ߐltEINCR푼șJ՝{H\

[b]u啔ss_Iwqv`v\
[b]u퍐\ƘHv\
[]uccsC@ʐIwqIfIHv\
[b]uOCP͉\dIv\
[b]uvC@ʗLɘə~IlIfC|ss\l[Hv\
[]uccOCɘɎP͋QOv\

|s와Ɖdx`YIB\
RI͐CƉIɘɏAlIwb付VkxB\
ߙIfROᗹCO\pSAccB\
ccvCeÒnsk_|𙂊IB\

[b]uHv\
[b]uvCv\aɘɛ󌨓Ifccv\
[b]uTAĖړw`v\
[]uccccCOv\

\\Ėڏ铯wB\
wGCi_D^CFkB\
g叫叫~QSIlVˁB\
NwZ_AsJZċIƊaB\
ccOCֈƊqaCAƉH\

[]uCCʑRCCݑŏ铯wIӘHv\

cc^ʔzIlB\

[b]ucc@ʉ쐥IfHv\
[]uccccv\

ccSٌڋ߂OB\
\\AB\

[]u\\֔@CvrSmv\

֔@CzvrSmB\
eRm~Lkcc\
䙀ÐlsfTITcc\
A֔@CWAPvDH\

[b]ueRL_ߘv\
[b]uCHv\

^IƉ쎩Ȋ犮SsZl]sccB\
EClI\
ccsfCvnB\

[]ucc֔@v\
[b]uccccv\
[]uccccv\

p\♀}_^xI_C߉~TIEB\

[b]uccO@ߏΓIPv\
[]ucccccccccccccHv\

ccH@ƉYH\

[b]uMށCsv\
[b]uÒnCʑR~kdv\
[]uccHv\
[b]uv\

sCmsߘIPH\
VOfIYIOH\

[b]uccߕCivrSmCHv\
[]uA엹CAccv\
[b]uߕCTߓVCvCHv\
[]uccH@s]ۏYIHv\
[b]u`CkLjqTR@AnEEdv\
[]uAAAemzzOHv\
[]uRvffHv\
[]uccʗCsm䙀lHv\

ccvB\
bi˖엹OB\
s_IwqC\ƁccB\

[b]usg搶Hv\
[b]uӎuxkgdIv\
[]uccv\
[b]uARlКFbNc`v\
[]u`ccv\
[b]uƊ@II@jlAvERCHv\
[]uccccƉC݊ŕΙHv\
[b]uDPDPC~~ŚvH@Hv\
[]uccCPŊ㗈쐥ōDIdv\

AZ틑Ɩv䗹CQ䕽ŗvꍱccC畺B\

[]uccDC~ov\
[b]uGCv\
[]uRr藹CߔV@ꉺv\
[]uccOCřYIv\
[]u`I@JooӁIv\
[b]uMށC^TFIKd`v\
[b]unjIv\
[b]usfC\fHv\
[b]uݘVnI閒ʁv\
[]uccssCA䙖qOHv\
[]uvwIfCvLHv\
[b]uvʙICI@_`v\

cc^^IƉB\
sfvCƉ~MsIB\
ONCnaƉ݈NCvLwfC^svacc\

[]uDDDCmC^I`Iv\

ccbȊOCvLȈϓIjFOB\

[b]uDDD`CߕCΙZ`v\
[]uv\

ݔoFIڑCw@IccccB\


bg black,10,3000;;wiFobN/؂ւ3b@ҋ@2b


bgmstop;;afl~
bg "image\bg\class.jpg",10,1000;;wiF

\\bゖ\\\

[b]uccdv\

ccߕCdH\

[b]uvYICHv\

䘸ەoVw@Cw^lxߗ㝾ICʙJIہccB\

[b]uccCIS|RICvY^I]n`v\

꒼݈NIfCR\B\
吥ߍÜkDדIC^B\
㒴lIC瑴ʓIjCAB\
AC͙fCMIlccccB\

[b]ucc^IȑMHv\

ccp͒xv`H\
vzCR@LSIƁccB\
sCsC̍옺H\
ߙIǘIwxNB\

[b]ucc`P_ꉺ搶ISӁC@ʑvLIŎZAcJCDHv\

R@C@ʌLIŎZA~CccB\
͙fC@ʕsxIfƊsڎ󙀘pFB\
ṔCwZ召IۙØCsTǗIfZlSSB\
C嗹Ivsw_CŋNݕIzVccB\

[b]uccāCDDv\

͙fC_^ZlޙOccB\
CÒxIfCISӑT^IccB\

[b]uccsv\

IRC䊮S̕sΙUccB\
ZCRccC㘼H\
R_^Cs\ӖB\
ccsfC@ʛQIfCZ󑊘̓I֘̓IB\
劤䗈AdvIFB\
ccAȕIliŁC̍spSSÎB\

[b]uccCƊhIGHv\

Cݙ~joFICDDH옺B\

[b]uccCOv\

aɘɍD]㑊IccCIH\
쓖Ř񐥎RRҁCɘə~ccB\

[b]ucc~C~ʈ_I}DH@Ifccv\

SnzvaʓIwqfʓIccB\

;;aflF̃e[}/tF[hAEg/5b
bg black,10,3000;;wiFobN/؂ւ3b@ҋ@2b

\\bゖ@dmc\\\

bgm "sound\saya.ogg";;aflF̃e[}
bg "image\bg\class_b.jpg",10,1000;;wiFi[j/؂ւ3b@ҋ@2b
ld c,nnm,20;;GFiʒuFʁ@@^ʖځ@F߁j

[]uߘccCNH@R@CvIfHv\
[]uCII@fI@vIv\
[]uLCLLLLdvIfCvĖړwIv\

ld c,nnk,20;;GFiʒuFʁ@@@F߁j

[]uccHv\

\\LQlIB\
䋥ss򕺓IwđCĖڏB\

[]u߁CߘI@v`I@ȁccv\
[]uccȁHv\

喔IᓵCÊΓIccB\
\\ssoB\
eRco@ęLCAaSsʔzB\
sCzNC߉ƉIfI\
wƊ@II@jlAvEtCsHx\
ccH@\
zsŕsKIOH@bH\
C͙fCsz퓳OccB\

ld c,nlnno,20;;GFiʒuFʁ@@^ʖځ@F߁j

[]uCNCIv\

GC퍐ۈԗccB\
ߙICz\
C铯w^VgccB\
ccOI\
R@Aj㣎qjqI\
^NlCs@Z铯wݙ[ZI\

[]uĖڏ铯wIv\

ld c,nhod,20;;GFiʒuFʁ@@@j߁@F߁j

[]uCIIv\
[]uC䘸kvȑOAIv\
[]uOOOOOOOOOOOOOC`C`aIv\

cc_B\
Sבvy㘱󒵘B\

ld c,nhs3,20;;GFiʒuFʁ@@΂ށ@j߁@F߁j


[]ucc琥CkvȑOANv\

ld c,nlhso,20;;GFiʒuFʁ@@Ί@j߁@F߁j

[]u}ːC`ƁIv\
[]uOCH@䙀Ðlkۘv\
[]uhHv\

ccH\
YvH\

ld c,nhk,20;;GFiʒuFʁ@@@j߁@F߁j

[]u߁CߘH@LDDߘH@I񓚁Hv\
[]uCsNIv\
[]uccߘC\՘Hv\
[]uI߁CۖDj\ߓߗIv\
[]u߁CߘIfAZՁCvpccHv\
[]uOOOOI@ۖDIv\
[]uߙIĐOOOOOOOIv\
[]u`Iv\
[]uDCDICC㘼Hv\
[]uAIv\
[]uDCDQ㵁C`DDߒGHv\

ld c,nhm,20;;GFiʒuFʁ@@΂ށ@j߁@F߁j

[]ucc琥CkvȑOANv\
[]uC}ːC`Ɓv\
[]unClIHv\

ld c,nlhs,20;;GFiʒuFʁ@@΂ށ@j߁@F߁j

[]u^Iv\
[]uCsNv\
[]uvʘIʙccv\
[]u䙀ÐlCDOHv\

ld c,nhk,20;;GFiʒuFʁ@@@j߁@F߁j

[]uCccv\
[]uccJVIŌCJH}NPILCzvpSSnܕԉ񗈁Cō@~cLƓInCTHv\

RœlNTInIH\

[]uccߘCИHv\

ld c,nlnn,20;;GFiʒuFʁ@@^ʖځ@F߁j

[]uvLHv\

ccH\

ld c,nhs3,20;;GFiʒuFʁ@@΂ށ@j߁@F߁j

[]usfCP͙]_Ildv\

cc^IC㵓vؘ{B\

ld c,nlhn,20;;GFiʒuFʁ@@^ʖځ@j߁@F߁j

[]uccCTA㘺Hv\
[]uAIHv\

ld c,nhs3,20;;GFiʒuFʁ@@Ί@j߁@F߁j

[]uIv\
[]uIccCcccc\
[]uccW]LsÐSOHv\
[]uvCsDIHv\
[]ueRCA䊤ȓIee~kLMICk}GHv\
[]u\ZISCe쐥RCAkQdIv\
[]uRn]ꉺsADv\
[]uccvCeRPH@AʙÎoHv\

ld c,nhk,20;;GFiʒuFʁ@@^ʖځ@Ί@F߁j

[]ucc~CzsWdHv\
[]uSSSvLʙIOIv\

bg white,10,3000;;wiFobN/؂ւ3b@ҋ@2b
bg "image\bg\cg1.jpg",10,1000;;CxgbfOPiʂ̏΂݂ŖjԂ߂鏬̃Abvj/؂ւ3b@ҋ@2b

[]uߏADv\

ccOOC呾򗹁CZ\
\\eRLsCADccZwđ嗹IFccccH\

;;aflF̃e[}/tF[hAEg15b
bg black,10,3000;;wiFobN/؂ւ10b@ҋ@5b

\\Ėڏ邖\\\

bgm "sound\saya org.ogg";;aflF̃e[}iIS[AWj
bg "image\bg\roka.jpg",10,1000;;wiFLi[j/؂ւ3b@ҋ@2b
ld c,nhs3,20;;GFiʒuFʁ@@΂ށ@j߁@F߁j

[]uCsNI@芾kQHv\
[]uލލC`sv݈Ӂv\

\\ڎ󗹌哯wICݐa蒩woB\

[]uC\K^IDH@sVA{Hv\

ld c,nhk,20;;GFiʒuFʁ@@@j߁@F߁j

[]u߉AۗBDseՐlccv\
[]uߏΓIPI@䎀IŌƊVIIv\

ld c,nlhs,20;;GFiʒuFʁ@@΂ށ@j߁@F߁j

[]u@ߕCDDWō@Iv\

䙀㍐bC@@ZIB\
R@CI瓯p͉fccB\

[]uGCBccHv\
[]uccsqv\
[偕]uuccccvv\

R@`ҁB\
LlIr萺ݗ[hILB\
cćCVO~LD{lCAs拑ƗCR@B\
\\OIŒTCmLߘӎv\
ÍÓw͓sLց\\B\

ld c,nhod,20;;GFiʒuFʁ@@@j߁@F߁j

[]uICDccv\
[]usCߘccI@劤sNIHv\

ld c,nhs2,20;;GFiʒuFʁ@@΂ށ@j߁@F߁j

[]uOCYvݓߗ]dHv\
[]uߘI@ߘccCsNccv\
[]u]dHv\

\\䌒݁CKB\
C݈ӒCZ䍂]sm[B\

[]uCʑRZIRCsHv\

ld c,nho,20;;GFiʒuFʁ@@X˂@j߁@F߁j

cc^II\
Dse՟DI\
lW݈ӈꍱsKvII\

[]uYvߕA`d`Hv\
[]usCsBW]L݈Ӂccv\

ṔC\L_כDdccB\
LIߌP͐ZSIfVB\
snfB\
\\C@ʕʓߐےڐ嗹򊴏ICĐmnB\
YCݓߍÔ\ڈ䓞LIndH\
ߍÎRRICʓIĎdccB\
\\ACIvsRB\
\\꒼ݓ񒍒B\
@ʍ݉ƘHœ݈ӓIjwqdH\
琥lccB\
\\\L_뙍Iwqd\
vCWVCwh򊴏IYxC䌒ݙ~vŎZbB\

[]uccṔC~Ldv\
[]u^IIH@ߏAcߘb\\v\

ld c,nlhso,20;;GFiʒuFʁ@@Ί@j߁@F߁j

[]u\\閧CGv\
[]uhhhhIHv\

\\CQ㵗sov\

bg black,10,3000;;wiFobN/؂ւ3b@ҋ@2b
;;aflF̃e[}iIS[AWj/tF[hAEg5b

\\Ėڏ邖@dmc\\\

bgm "sound\date.ogg";;aflFf[g̃e[}
bg "image\bg\town.jpg",10,1000;;wiFXij/؂ւ3b@ҋ@2b

[]u]I@ZvIHv\

\\VCߎV@IB\
Ɗs\yB\
řIPTOB\
n_C⋑O߈ʍIVƑlICSl󟃈֎qIΑOB\
FzXB\
zڌIT^召B\

ld c,ss3,20;;GFiʒuFʁ@@Ί@Fj

[]uvLI@iIv\
[]u߁CߏADccv\

\\_ssDOCHH\
{Ic̍䗈IccB\
́CꏬőOAfnꎟCAݓIŌccB\
\\ꏬőOP͗L_fΗH\
ccdCs_呾}ؗH\
nz@CAƗwB\
R@A݁B\
ΑOTRITIn_C̍ݓlIjj}Œř}⋍ݓߗB\

[`]uccߘCeR\ǙCA`Zv\
[`]uߘwqCߙIݓߗ⋗sQŗGHv\

ld c,shod,20;;GFiʒuFʁ@@@Fj

[`]uaCȔEsZvccv\

虐I刷슮f@C鉷anΗ΁C񓞗ғIpNccB\

[]ucchHv\
[]uccCsNCTnv\

ccQŁH\
ACŏIŌ󕹏AߙIccH\

[]uccCPőOfIHv\

ld c,shk,20;;GFiʒuFʁ@@΂@Fj

[]uccIBmv\
[]uYsŏOIHv\

f񗈁C䜃vӓOIH\

[]u虈񗈍@CœNݓߗC{zŏēIccv\
[]uߘCsz]䐥\Ilccv\

C}\\pڙE\@ITFC}ؘ؝ssIq͍ݐ򗹁B\

[]u˕sߘzIv\
[]u̍䓹]ˊBvӓccv\
[]ucc琥C]ȉ\}NCȓŌ񋎗v\
[]u߁CߘccCꎟAˑR포`Ifccv\

ld c,shod,20;;GFiʒuFʁ@@΂ށ@Fj

[]uOIv\
[]u~ȏ吥YYdv\
[]uccARލލCHv\
[]uŋNCdv\

ld c,lss3,20;;GFiʒuFʁ@@΂@Fj

[違]uuccccvv\

ld c,shs3,20;;GFiʒuFʁ@@Ί@Fj
ld c,lhss2,20;;GFiʒuFʁ@@Ί@Fj


[違]uucc`AOvv\
[]u\Ηv\
[]udv\

sm剽SClNΗNB\
WZa𗹁B\
ccAAA܍˘iinI\

[]u߁AߕCRHv\
[]uDADIv\

Cl󌨋nNB\

ld c,sm,20;;GFiʒuFʁ@@^ʖځ@Fj

[]u߁AߕCRdHv\
[]uLYzInHv\

ld c,lss1,20;;GFiʒuFʁ@@Ί@Fj

[]uܖfʓXXϚƓXfnjیňHfIv\
[]uYeOIHv\
[]u@IOIHv\
[]u`ccCWVv\
[]uߕC`ccC昸ܖnv\

ld c,sk,20;;GFiʒuFʁ@@@Fj

[]uAsNccv\
[]uCaÒnsLccv\
[]uȁCzŊŁv\
[]usaFNHv\
[]uƍDskqv\
[]uȁCvL籖`ccv\
[]uO`C鐥召vv\
[]uIccv\
[]uƓI̙qkSCA͙fC~L_⛋Iv\
[]uzf嘳籖`ƁCAW]烙mƓIЍDӁccv\
[]u`BvC琥v@Iccv\
[]usf݉ʑOAspߕqGHv\

ld c,lss2,20;;GFiʒuFʁ@@Ί@Fj

[]umv\

ld c,shk,20;;GFiʒuFʁ@@@j߁@Fj

[]ucc߁AߘCiˋnCICߘCccv\

ccB\

[]u铁ꋟnAڋICȉzIv\
[]uccʑRCˑR㋩~sDHv\

ld c,shod,20;;GFiʒuFʁ@@Ί@j߁@Fj

[]uccSvL߉񎖁v\
[]uW]Ȋ搶쐥IC틟Sv\

ld c,lhss3,20;;GFiʒuFʁ@@Ί@j߁@Fj

[]uȁC`VM㋩䘺v\

cchH͘H\
YvHSIOIH\

[]u߁AߏADIv\
[]uccsvAIHv\

ld c,shs1,20;;GFiʒuFʁ@@Ί@j߁@F߁j
;;ʉ:ςwӂɂx/Vbg

uC]_zIGccB\

ld c,lhss1,20;;GFiʒuFʁ@@Ί@j߁@Fj
[]uccsAsp[CHv\
[]uARIv\

咅]ICD_zccB\
zHIdH\
뙍B\
K^IDH\

ld c,shk,20;;GFiʒuFʁ@@΂@j߁@F߁j

[]uA~CQ㵓Idccv\
[]ucckKv\
[]uccߘIfCLÑz@Av\

ccRݟܖYdH\

[]uWAWVIMIv\

]IC͟cDꍱB\

ld c,sho,20;;GFiʒuFʁ@@^ʖځ@F߁j

[]uAII@㗹Iv\
[]uszڎfIڍCvKvߕ@PHv\
[]uccsCs\{꣐SIv\

ÊIXICAxlCILccB\
lB\

[]uvnIv\

ld c,shod,20;;GFiʒuFʁ@@@j߁@F߁j

[]uhIHv\
[]uA搶IHv\

f_CߙIݘٖ̒IΗB\
_GIGZlv㑤ccB\
ٖ@蘸IΏڋCsnٖ̒B\

ld c,shk,20;;GFiʒuFʁ@@@j߁@F߁j

[]uccv\

{ȏRCA铁pߒʓnCRzccB\

[X`]ucc]v\
[X`]uqlBWݓOTΉWVIccv\

ccvsfIfCR꒼WV䉺B\

cl c,20;;
bg "image\bg\game.jpg",10,1000;;wiFQ[Z^[ij/؂ւ3b@ҋ@2b
ld c,sk,20;;GFiʒuFʁ@@@F߁j

[]uccW]CDOv\
[]uߓsvoʙv\
[]uCߗcEψꉺccv\
[]uߕCLYz~~IHv\
[]uʑRΙqHv\

ld c,sm,20;;GFiʒuFʁ@@^ʖځ@F߁j

[]uRCkғߘCsfNߘcCߘIv\

ld c,so,20
[]uz~~ߘIv\
[]uߘcccv\

iMXAwIccB\

bg white,10,3000;;wiFobN/؂ւ3b@ҋ@2b
bg "image\bg\cg2sune.jpg",10,1000;;CxgbfOQiGA[zbP[@X˂j/؂ւ3b@ҋ@2b
;;ʉFGAzbP[wpRbx/Vbg

[]u`Iv\
[]uvCvC퐥ꎟvHv\

ŏoIJ[YnMIgB\
AlwLNis\󘣎ICCB\

[]uIv\

;;ʉFGAzbP[wpRbx/Vbg

[]uɁv\
[]uIv\

YQccCuH\
p᳏͈ߋŏoIWWIQB\

[]uccY\ړdHv\
[]uvėp_͟ōˍsccCIv\

;;ʉFGAzbP[wpRbx/Vbg
bg "image\bg\cg2odo.jpg",10,1000;;CxgbfOQiGA[zbP[@j

[]uށIv\

ccWH\
]ߙIk͗ccB\

bg "image\bg\cg2sune.jpg",10,1000;;CxgbfOQiGA[zbP[@X˂j

[]ucc`艺v\

铁ےGӎqC៣n}ccB\
cceRk]CA򓾘Zl㑤B\

[]u]]IߕCdVnHv\
[]uڏIv\

;;ʉFGAzbP[wpRbx/Vbg

ccWWnŏoC~𑥓IdB\

bg "image\bg\cg2odo.jpg",10,1000;;CxgbfOQiGA[zbP[@j

[]uOIHv\

铁pËȑŒqB\
XiccB\

[]uÓ_IvʙII铁If\ړv\

;;ʉFGAzbP[wpRbx/Vbg

[]uccOv\
[]uccccv\

救IږWWIuB\
`ʁccCuߙ}IgccB\

bg "image\bg\cg2sune.jpg",10,1000;;CxgbfOQiGA[zbP[@X˂j

H\

[]ucc搶^Iv\

cchH㗈IH\
ccACY]H\
zvœXؓI\I\
eRzccB\

[]uA݁IIv\

;;ʉFGAzbP[wpRbx/Vbg

P_psŚCᒅ󌄒oIߋWWIuB\

[]uځCڏOIIv\

In旹ꉺCQZovIqCnҌȓIgB\

bg "image\bg\cg2smile.jpg",10,1000;;CxgbfOQiGA[zbP[@Ίj

[]uIv\
[]uAŕyCYHv\
[]u@_^N琥ȘIIv\

B\
ICʑRXdB\

bg "image\bg\game.jpg",10,1000;;wiFQ[Z^[ij/؂ւ2b@ҋ@1b
ld c,nlss2,20;;GFiʒuFʁ@@Ί@F߁j

[]uډߓߘIv\
[]uusߗHv\
[]uSv\
[]uƋwIfĐڎ󒧘ځ`v\

IFCӊOnks\IB\

[]uߕLIfC`wv\
[]u^v@d`v\

SDnf]IB\
䐳ΒŒIŁC^܊OB\

[]ucc݌ݙ~^Zv\

ld c,sm,20;;GFiʒuFʁ@@^ʖځ@F߁j

[]u㘼Hv\

TOH@R~LÒnOB\

[]uccØvHv\
[]uCkHHv\
[]uTHv\

RIccԎzρB\
CŋN~VIߍÁccB\

[]u@ccv\

ld c,lss1,20;;GFiʒuFʁ@@Ί@F߁j

[]uCWV~~ŘIv\

鍿ݟ܊OCTOdˁCÊB\

ld c,shk,20;;GFiʒuFʁ@@@F߁j

[]u`Cϝ{Hv\

cc琥ꎟߘB\

[]u@ʔ\cnrCϏAv\
[]uR@CsIfϏA͗b[C܏A`v\

ld c,so,20;;GFiʒuFʁ@@^ʖځ@F߁j

[]u@ccv\

ld c,lss3,20;;GFiʒuFʁ@@Ί@F߁j

[]uOC{I{G搶Iv\
[]uGIAYtIv\

ld c,ss3,20
[]uDIIv\

}nWC}@B\

ld c,so,20;;GFiʒuFʁ@@^ʖځ@F߁j

[]uccL_v\
[]uC㓙I@AlI{HCHv\
[]uvv\
[]uBߍCSC͗bA{ߖ@v\

c߈ꉺks\IXHB\

[]uccߘIfCk֎dv\
[]uvC{Aß܁v\
[]uIfCsXLHv\

쒅IŁCI܍܊iB\

[]uccv\

ccUᙈCϕsfB\

ld c,lss1,20;;GFiʒuFʁ@@Ί@F߁j

[]uCnXv\

ϙ{s͗bRiȏB\
CIxnccB\
eRv큙CAccB\

[]uccߘH͕sꎟ߁CVCIHv\

ld c,sm,20;;GFiʒuFʁ@@^ʖځ@F߁j

[]usGHSZʁv\
[]uƗ{AvLC܁ccv\

ccsCH\

[]uccÑCwҘ̍sטHv\

wݕϗn_IuCfYϛƓƎؙQIZIB\

[]u@ʘsÑIfCܕsAٖ@Hv\
[]u]s\oϕsA`IvCȉ~ꉺccv\
[]uccv\

eRsYCALꌏ䖾B\
NlIVˑUCvNHa䙀ÐlSs݈꘢B\

ld c,sk,20;;GFiʒuFʁ@@@F߁j

[]ucc哯wCs]֘Hv\
[]uSsH@LIOHv\

ȊIwqߓSB\
\]ցB\

[]uk]Csfccv\

ld c,ss3,20;;GFiʒuFʁ@@Ί@F߁j

[]uOI@I@N獿Iv\

陀쒅C֎qӉ䍿ә}B\

[]usssC߈֎qlpIv\

ld c,sk,20;;GFiʒuFʁ@@@F߁j

[]ucc݉ә}Ck`Hv\

p^IƋÊccB\

[]uOIv\

ld c,lss3,20
uC䏫g̕UMWoI󙈗B\

ld c,shk,20;;GFiʒuFʁ@@@j߁@F߁j

[]ucckߎdv\
[]uOccv\

^ICYL[IH\
]sƒnݐGCỈ~LccB\

[]uccNCSkHv\
[]uccAs琥ccv\

ލISגB\
嗹TUn΁C䉿{B\

[]u߁AߕCvHv\

ld c,sho,20;;GFiʒuFʁ@@^ʖځ@j߁@F߁j

[]uAIIv\
[]upaWϓIC哯wpߙ}IaW͗bρv\
[]usf㑾֗CȉRĉ꘢}jCܒލs\JowIv\
[]uA@ccCݍlTIҌ_Hv\

cciiPnAlҌ_sH\

ld c,lhss1,20;;GFiʒuFʁ@@Ί@j߁@F߁j

[]uAv\

ŗvtUSIz@ʁCĎTOdˁC܋nI\

ld c,shod,20;;GFiʒuFʁ@@@j߁@F߁j

[]uccOv\
[]uccv\

ld c,shk,20;;GFiʒuFʁ@@@j߁@F߁j

[]uccWH@ߍÒnIfccv\
[]uccccv\
ld c,shod,20;;GFiʒuFʁ@@@j߁@F߁j
[]ucc^ICvߍÒnHv\
[]uccccccv\

ld c,sho,20;;GFiʒuFʁ@@@j߁@F߁j

[]uߗCssOOOOIv\
[]u쓾ߕFOOOOIHv\

ݎ}와ÙfZlIz@OI\
ݓߍÏN{ٖ@W_ߟ܁CᙈA`ccB\

ld c,sm,20;;GFiʒuFʁ@@^ʖځ@F߁j

[]uFISccCv\

ld c,shs1,20;;GFiʒuFʁ@@Ί@j߁@F߁j

[]uā`@搶zۗYdHv\
[]uYAYIHv\
[]u߁AߐccIv\
[]uC搶IccCFSv\

;;ʉFOTbiR~Jj/Vbg

[]ucc`IIIIIIv\

cc铁CFI\
EI@\rގUI\

ld c,shk,20;;GFiʒuFʁ@@΂@F߁j

[]ueRk]ݓ\IŌŘہccv\

ccŗC铁EC^IdB\

[]u]̍l[ꉺډvoIύđ͘}Dv\
[]uOCmBӓIv\

\\ACRߗ꘢ōEIԎzρB\

cl c,20;;
bg black,10,3000;;wiFobN/؂ւ3b@ҋ@2b
bg "image\bg\town.jpg",10,1000;;wiFXij/؂ւ3b@ҋ@2b
ld c,shs2,20;;GFiʒuFʁ@@Ί@j߁@F߁j

[]u틟SIv\
[]ukSIv\

V@CRΙqCqCܖB\

[]usfCʑR~dVꉿ}DHv\

ld c,so,20;;GFiʒuFʁ@@^ʖځ@F߁j

[]uYdHv\
[]uYccv\

铁iˋnA꒼ȎIwʁCꕛSӑIqB\
|vYcc\

[]uꎟΙqAߘC铁s]`Hv\

RލsΙqIVB\
CݏYssIvA`ZCIiccB\

ld c,ss1,20;;GFiʒuFʁ@@Ί@F߁j

[]u@vnIv\
[]up^͓IRꎟΙqdIv\
[]u㘼Hv\
[]uAv\

cclNfnÊʓIYCqS`XIΙqqݗB\
铁ɒn݋OB\

ld c,sho,20;;GFiʒuFʁ@@΂@j߁@F߁j

[]uC搶sqHv\
[]u߁AߓRCA퐥aIlꎟΙqIv\

ld c,shod,20
ld c,shk,20;;GFiʒuFʁ@@@j߁@F߁j

[]uAOccv\

R@CĎqIDMB\
ًQ㵁Csٖ@ߏ_zIGccB\

[]uAOv\

\񓚛ߙIccB\
߈ȍ@CRAĖsofB\
ccAsm剽CÊ]pZlٔ䘮SB\
ݍKI`ҒCl󌨒꘢ړInB\

cl c,20;;
bg "image\bg\ramen.jpg",10,1000;;wiF[ij/؂ւ3b@ҋ@2b@;;łȂꍇ́wiFXQXXij炢őΉB\
ld c,so,20;;GFiʒuFʁ@@^ʖځ@F߁j

[]uAC쒆Iccv\

ROInC̕IvޓIfʓXB\

[]uccCspߕ@vnIGHv\

aݟܖňC閔ML͎B\

ld c,shk,20;;GFiʒuFʁ@@@j߁@F߁j

[]ucc`svCN꘢lGHv\

Ό䑣IqC^쐥LC|s@XB\

[]uƊsN꘢lIccCSv\

ۋNECZIB\
AlICwPIlB\
cc~ݑz@ʔIf\LodccB\

ld c,lhss3,20;;GFiʒuFʁ@@Ί@j߁@F߁j

[]uccWv\

CVEsL΍{c_OH\
KZ䘧Ñz@B\

[X`]uDII@ʋql`䗈Iv\

ΒCjXRfB\

ld c,shk,20;;GFiʒuFʁ@@@j߁@F߁j

[偕]uuccccccvv\

OClRIf`@ffIOccB\
ZRls`җB\
R݊YdH\
֔@sz@ICXIҁCA㗈S[OB\

ld c,sm,20;;GFiʒuFʁ@@@F߁j

[]uʁCAȗHv\
[]uBˑR@ޑzhIv\
[]uccccABkXHv\

}쒅C}猳ˁCCR@cLQoB\
ڒCosI`B\
A㉉ꋥIB\

ld c,so,20;;GFiʒuFʁ@@^ʖځ@F߁j

[]uccv\
[]uߕCvnIv\

ۋNSC猳˓˓B\
RccB\

ld c,sk,20;;GFiʒuFʁ@@@F߁j

[]uOCWHv\

cc猳˖ޗ񗈁B\

[]uCYHv\

@ʔrIqlI铊\IEB\

ld c,shk,20;;GFiʒuFʁ@@@j߁@F߁j

[]uOCccv\
[]uvnIC˓IAccv\

䏫ȓI菶᳍ݕI菶C琮˓ICLLҒ˓B\

ld c,shod,20;;GFiʒuFʁ@@@j߁@F߁j

[]uIHv\
[]uccŘH@vʙIHv\

ld c,shm,20;;GFiʒuFʁ@@^ʖځ@j߁@F߁j

[]uccډdHv\
[]uOCv\
[]uzhIؘAsv\

ld c,lhss1,20;;GFiʒuFʁ@@Ί@j߁@F߁j

[]ucc݉dHv\
[]uCH@^C^v@d`v\

ccÒxICs\sH\
CYݏ΁ccH\
ZCWVݓ@ˍsB\
ccsC@ʑfߍÁw_OxIEL_B\
ĎCZIB\

[]uccv\
[]uHv\
[]ucc]DKdv\

ccOB\
CˈӌȍsI_B\

[]uCsNI@ߘccCˑRTssDIHv\

ld c,sho,20;;GFiʒuFʁ@@@j߁@F߁j

[]ucc`Tꍱv\
ld c,shk,20
[]u䐥CIFCsHv\

ߙICAZVُlBvLYIB\

[Xa]uccsDӎvv\
[Xa]uޔrkC`W_ccv\

ٖ@p^ƋIgڋEB\

[Xa]uccWH@vߙZH@߈ʋqlIHv\
[]uccv\
[]uccv\
[Xa]ucc߁CߕajF_I`ȘHv\
[]uccC꒼za݈Nv\
[]ucczaNv\
[Xa]uDII@vʙI@✒`TQʁC`䗈Iv\

XfCRғʏB\

ld c,sm,20;;GFiʒuFʁ@@^ʖځ@F߁j

[]uccdCƓX~^XpdHv\

iꍿCA}]nŗʒX}쓹B\

[]uAIOHv\
[]uCfʓXCZ}ܓIv\

ld c,sod,20;;GFiʒuFʁ@@@F߁j

[]u㘼Hv\
[]uBX@IXIfCXvLƁCʖLȁCAߍÊ]v\

啹ޓIƋIIܐIfʓXB\
zm薔ꎟÒnB\
ȁCߍÖIVCIdnccB\
ccݙƓXsZXpCH\
IFœsݏYIXp`IdH\
^I]KDDwꉺccB\

ld c,lss2,20;;GFiʒuFʁ@@Ί@F߁j

[]uߕCzߍÁC@HCIfʓXŊŁIv\
[]uʘʙI옺v\
[]u@ʊIfCAVv\
[]uDIIv\

cchfʓsꎟI召OB\
fʙÍHi{gAssI\
É\琥SݓIB\

[Xa]uZWvIv\
[Xa]uW_ICVXʁChIv\
[Xa]uWIcvLʙHv\
[]uCvʙv\
[Xa]uߕC痹Iv\

XŏyŊC[lhIB\

ld c,sod,20;;GFiʒuFʁ@@@F߁j

[]uAfʁIv\

ʊOU薡IC\NqCᒆB\

[]uk̓ICS_hHv\
[]uDII@cćIv\
[]us엹ccv\

p蒆IِNʏChfʁCČĒny@B\

ld c,lhss1,20;;GFiʒuFʁ@@Ί@F߁j

[]u@Iv\

wIqCٗIʏČĒnB\
R@Cʏ𑗓ߏI{B\

[]uDhI@RLIHIv\
[]uߏADCh_v\
[]uDIIv\

Tm쒅Ηe񓚍@CnS𚐝fʁB\
cc꘢SXČĐIq^痹B\
\CƐ蕹I͘C䐥KOH\
cc㉺VvݗMB\
A݉䙀Œ`ZݍKIŌccB\

[q`]uccQBߘwYlH@IIv\
[qa]u͓Hv\
[qa]ucc߁CߘjIHv\
[qb]uccCjFIHv\
[qa]us`C̍FFHv\
[q`]u`CsRߍÙF{s\OIHv\

uǌwFIfIB\
ccsCCmIB\
asʔzÎ~mIB\
ߕCv䜃H\
КFIH\
cceCsl[ꉺH\
~CO\IʙH\
\\ߍÉ䙀Il{{ڐGsICwēlxʓIƔB\
IC݋pCajFR֒ߘkVCfIǉZIʒjccB\
ccCnߛB\

ld c,sk,20;;GFiʒuFʁ@@@F߁j

[]ucc搶v\

ccssssB\
\ߓIfC얾\ߓccB\
f_C鐳SSnŒB\

[]usCsIIv\
[]uʑRasʔzdIv\
[]uccCvXw͍ˍsHv\
[]uKa⋍݈NsLaIjlIv\
[]u`CeHv\
[]uO\n琥꘢@dIv\

ccCvLTH\
KCc\o_s݈ӓIqB\
sRIfCAs\DDfʗB\
O`OC^NTccB\

ld c,so,20;;GFiʒuFʁ@@^ʖځ@F߁j

[]uccDIv\
[]uccAH@Hv\

cci˙~ˑRS\IC݋pmꍪʏŒB\

[]uccߘHv\

ccccB\
ˍDH\

[]uI@Iv\

n⋒IŌCpqяZʏvLmݚ{I߈[C䙀}fB\
H\
ccccH\

[]uvmZߘHv\

ld c,shm,20;;GFiʒuFʁ@@^ʖځ@j߁@F߁j

TU铭C__΁B\
cc^IIB\
YˑRIH\
ŁC䒍ӓ؋NB\

[q`]uccH@kOH@iFIƉIHv\
[qa]uAAACsʔzOIv\
[qb]uccsC~sv\
[qb]usߘw͐dxZTCzaFFߕS܁CccsCfʟ܎߁v\

ccC鐥ݏ䒅zH\

bg white,10,3000;;wiFobN/؂ւ3b@ҋ@2b
bg "image\bg\cg3.jpg",10,1000;;CxgbfORiA˂AĂȂ̑o@ܖځj/؂ւ3b@ҋ@2b

鋥ߓsCܒ^IƙZʏCÊ䙀}B\
ZÒnC䓞LvpOccB\
ACݕs`Zݎ䋞EIŌB\

[]uccAmI@I@Iv\

T΁C__΁B\
ccICCꐥVgOH\
嗹sZIĉNXsKvITCZfIʏ𘷈[B\
R@ccccB\

bgmstop;;aflF~

[]uOIv\

bgm "sound\happ.ogg";;aflFnvjÕe[}
;;bg "image\bg\cg3.jpg",10,1000;;CxgbfORiA˂AĂȂ̑o@ܖځ@PiKY[j

[]uIHv\
[]uOOIv\

;;bg "image\bg\cg3.jpg",10,1000;;CxgbfORiA˂AĂȂ̑o@ܖځ@QiKY[j

NߎIʓUccB\
ˁClIccCssI\
ccݙC@ʕsWjqTIfCA^IvL~iҍݕg}OHI\

[]uIv\

;;bg "image\bg\cg3.jpg",10,1000;;CxgbfORiA˂AĂȂ̑o@ܖځ@RiKY[j

[]uIHv\

uaI}OZB\
ߙI\󓞕ċzIB\
铁oݕG᳏㈬Ts߁CTʓnKZB\
RލÊI{OB\
\\ęB\
CA\߉I{OI\
cc㘺I\

[]uccOIv\
[]uIHv\

\\R@GClI{OdݗNB\
OIEB\
꣐GʓIC꣏_IB\
AC|ً^ʐSIڐGC_z{OIGxzIB\
ccڐGICk΁B\
lAK{bB\
cćCv㎝MYŌH\
ߙ}ccOCݛZċzdB\
cc꘢LCIT瘵ʓCȉrfғ{}IʏCB\

bg "image\bg\ramen.jpg",10,1000;;wiF[ij/؂ւ2b@ҋ@1b
ld c,shod,20;;GFiʒuFʁ@@@j߁@F߁j

[]uccęIv\
[]ucc߁AߘCsNCv\

ld c,sho,20;;GFiʒuFʁ@@X˂@j߁@F߁j

[]ucc^II@搶vėL_MˍsIv\

ld c,shm,20;;GFiʒuFʁ@@^ʖځ@j߁@F߁j

[]usǈlYCsA搶IIv\

ld c,shk,20;;GFiʒuFʁ@@@j߁@F߁j

[]uccIfCISӑⓞHv\

ccEQ㵁CÒxB\
嗹ZLMccB\

[]ucc^ICv\

cc_v]CAsB\
WZݍō@ΉB\

[Xa]uhIv\
[Xa]uRC^p^͓IIv\
[Xa]uiMXIŌC~zICAVAZ`qIv\
[Xa]us@C`Z`qIv\
[Xa]u^ICZœDI@✒`TŖ_Iv\

IꐺĚ^CXNB\
ŗsms]ߙI嗹XIœ_B\
Zl\ቺ΋B\
spCލITsssccB\
ACoƘCRtI`C݉RhIŁCX蒆ԙ~JRB\

cl c,20;;
;;aflFnvjÕe[}/tF[hAEg5b
bg black,10,3000;;wiFobN/؂ւ3b@ҋ@2b
bgm "sound\date.ogg";;aflFf[g̃e[}
bg "image\bg\eki.jpg",10,1000;;wiFij/؂ւ3b@ҋ@2b
ld c,shk,20;;GFiʒuFʁ@@@j߁@F߁j

[]uccߘCsNB]Iv\

嗹HcUUCXo@݈ژŋߓIāB\
ˑR쒅ቺ΁B\

[]uOCNΗIv\
[]uvL߉񎖁Iv\
[]ucc˘̍]v\
[]u߁CߘccClSccCIv\

ld c,shod,20;;GFiʒuFʁ@@@j߁@F߁j

[]uC㘼I@߁Cߐ^CCDccv\

ld c,shk,20;;GFiʒuFʁ@@@j߁@F߁j

[偕]uuccccc`IHvv\

cćCzNB\
TCߙ}琥ISB\
ccC扴CIIII\

[]uCIv\
[]uI@䋎OIv\

ld c,shod,20;;GFiʒuFʁ@@@j߁@F߁j

[]uOCߙ}DLSpCRNIv\
[]ussssIv\
[]uCݗIHv\
[]uݓߙ}I֏cxꉺIv\
[]uhCAv\
[]uݓsv\ojFIqdIv\
[]uA嗹I@`IHv\

ld c,shk,20;;GFiʒuFʁ@@@j߁@F߁j

[]uA㘼Hv\
[]uAOIv\
[]uAR搶s엹ccCߏAC\Ov\
[]uDDIv\
[]u߉䋎AIv\

@CeNB\

;;ʉ:ijECj/Vbg
ld c,shod,20;;GFiʒuFʁ@@@j߁@Fj

[]uOC搶I@dIHv\
[]u҉҉IIv\

䒩g@吺^I旹C񓚒CSpB\

cl c,20;;

ccDC̍AŕsZH\
Œ◽搮crIsCrB\

[]uccNC䓞݊YOHv\

ccaڕB\
C~ݓߍß|٘QIvccB\

[]uOOOOOOOOOOI䙀✒`Iv\

C~ȑ˙s鉷_I`ccB\

[]ucc񋎍@CvčDD]ꎟv\

]DՖDNTDccB\
eÏOS΁CEsZAeccB\

[]usCsIHIv\
[]uLuIřCs@zzZ鋟SIv\

I\
~v`dI\

bgmstop;;aflF~

݋nCvZXSIIIII\

[]uhHccHv\
[j`]ucccccv\
[]ucccccv\

䘸Is񒆖oȓIsŁC^ߘߘIjlڑccB\

bgm "sound\happ.ogg";;aflFnvjÕe[}

[j`]uccOv\

ڒCߘIjŒęivʓ|IsRccB\
R@ccB\

[j`]uxřCs`ccv\

ŗŎ\C엹ccB\
H\
ccccHNH@݁CݑzYH\
݁CݘaߘۓIwqCĖڏ铁GH\
vcfPOOIss}NCVsv엹GH\
✒`IH\
IH\

[]ucccc`ccCv\

ccccOC䙀✒`B\

[j`]uhIH@ACIHv\
[]ucccc`ccC`Iv\
[j`]uݚLdIHv\
[]uHI@s񋎘`IHv\
[j`]ueAeRI@A\NLIjwqsǒv\
[]uRvZI៣IHv\
[j`]uhIHv\
[]uvřIv\
[j`]uPAP͐IHv\

ɒnŒ\aITMs}IjccB\

[j`]u߁AߘC`J䏞nI@֓IIv\
[]uHI@Iv\
[j`]usAsvv\
[]uccę㉺AvsZC\`Hv\
[]uCs\ÎSsǁHv\
[]uAIiOOOOOIv\
[j`]uAmI@HNCIv\
[j`]uQ։Iv\
[]uOOOOOOOOOIv\
[j`]uAOOOOOOOIHv\

ccō@Csm剽RlsʁB\
m营l_^IDl`B\
}zC}ڑS͐sIweccB\

[]ucccccccC`v\

bgmstop;;aflF~

ccNCpǗÝ֓IB\
qsijFIl琥RIccB\
厸y\
cc\nꉺCZ񋎗B\
ߙInᒆC\oyØݑŘiiITB\

[]uccC`v\

ld c,lss1,20;;GFiʒuFʁ@@΂@Fj

[]ucc@H@Hv\

cccchH\
~v]fdH\
CA⋍݉ʑOH\
]VCIH\
s\
䎩ȓs]Uq{I\

bgm "sound\date org.ogg";;aflFf[g̃e[}iIS[AWj


ld c,shk,20;;GFiʒuFʁ@@΂@j߁@F߁j

[]u^IccC^v@Ild`v\
[]uLccCTsk͗GHv\

ld c,shs1,20;;GFiʒuFʁ@@΂@j߁@F߁j

}쒅IfCI]}\oS䑖B\
R@CRnC@ߘ៣a@ITccB\
^쐸ǓI]ccccccB\

[]uIH@\OIIIv\

ld c,lhss2,20;;GFiʒuFʁ@@Ί@j߁@F߁j

[]uIfdv\
[]uAIH@sZݙ֏xIHv\

ld c,shk,20;;GFiʒuFʁ@@X˂@j߁@F߁j

[]uccICp^lJNv\
[]uccAsNv\

ld c,lhss1,20;;GFiʒuFʁ@@΂@j߁@F߁j

[]uȁCfv\
[]ucchHv\

ld c,shk,20;;GFiʒuFʁ@@@j߁@F߁j

[]uccCzv__řsa݈Nv\
[]uIlk`dccHv\
[]ul꣓II@꣓VgIHшIv\

ld c,sho,20;;GFiʒuFʁ@@X˂@j߁@F߁j

[]uccCsߍ꣕Ilv\
[]uOIH@sIH@sߘӎvccIv\

ld c,shs2,20;;GFiʒuFʁ@@Ί@F߁j

[]uOv\
[]ucc`C䘺````v\

ccŗCnܘMԁB\

ld c,lhss3,20;;GFiʒuFʁ@@΂@j߁@F߁j

[]usNv\
[]u搶͍ݑ򗹁CEsZAv\

ccECː{Iߘ````B\

[]u`CzvWПIʁ`v\

ld c,shs3,20;;GFiʒuFʁ@@Ί@j߁@F߁j

[]u@䊤@CkҚGv\

ld c,lhss2,20;;GFiʒuFʁ@@΂@j߁@F߁j

[]uH@IMсCnHv\
[]uccOC铁C񘰓ߘccv\

ccKDDoˍsB\

[]uߙ}|IśccCCv@uVsv\

ld c,sm,20;;GFiʒuFʁ@@^ʖځ@Fj

[]uWIH@铁IH@݊YOIHv\

vVMIB\

ld c,lhss1,20;;GFiʒuFʁ@@Ί@j߁@Fj

[]uYH@AwIMсxOHv\

L蒩s͑B\

[]uccC铁``````ICŊ```````CsNO````Iv\

ld c,shk,20;;GFiʒuFʁ@@΂@j߁@Fj

[]u^C^II@搶CݙÑVccv\
[]uCRlNHv\
[]u```v\
[]usN```v\
[]uDDCsp]CDHv\
[]uI```````Iv\

ߙISZOOOOOOOOOOOOI\

cl c,20;;
bg black,10,3000;;;;obN/؂ւ3b@ҋ@2b

Ėڏ邖\

bg "image\bg\eki.jpg",10,1000;;wiFij/؂ւ3b@ҋ@2b
ld c,shm,20;;GFiʒuFʁ@@^ʖځ@j߁@F߁j

ߙISZ\
lOCYgdH\
za҈XCAsnǗfC`ʏAߘCH\

[]uccCʑRCAlvCdv\
[]uH@铁H@ݗHv\

ld c,shk,20;;GFiʒuFʁ@@΂@j߁@Fj

[]uccsCsC~\VMIv\
[]uH@sfsvכDGHv\

ld c,lhss1,20;;GFiʒuFʁ@@Ί@j߁@Fj

[]uDIv\

ccāCIeCDvߓdB\
搶f@CdVҒn񓞗䒆ccB\

[]uOOOOC^_Cd`v\

ld c,shm,20

ccŒߘICďoΟB\
\
C뙍Iwqd\
ccsCsfC_IlC~LIH\
ߕCLʙB\
œݙvIOҁCzdH\

[ja]u^IC_`v\
[a]uM^s\d`v\
[]uO`CsDӎvI@^Iccv\

ꉺCʐœRI@CLoIDSldB\
vB\
Llsʈg𐬁w搶csM|xccB\
ccB\

[]u~ݘaFIŌdHv\
[]ucc^Izv\
[ja]uccvDDGHv\
[a]uCÏvvwYICݍlXIT}p`}Ŗiˍsdv\
[ja]uÎכDHv\
[a]uAvLÙ]˔\DDOv\
[]uAO`Cccw͓ICccv\

lOCssdB\
ccmIB\
搶֓ߘǑjCݘHccB\
OOCAInZdIC搶I\

ld c,lhss3,20;;GFiʒuFʁ@@Ί@j߁@Fj

[]uccwD`DiDssvv\

\\vW\݉g}C@AC\

cl c,20;;
;;aflFtF[hAEg/5b
bg black,10,3000;;wiFobN/؂ւ3b@ҋ@2b

\\Ėڏ邖@dmc\\\

bgm "sound\saya.ogg";;aflF̃e[}
bg "image\bg\eki_b.jpg",10,1000;;;;wiFXi[j/؂ւ3b@ҋ@2b
ld c,shk,20;;GFiʒuFʁ@@@j߁@F߁j

[]uccV^]v\
[]u엹sp݈ӓIv\

엹ߕsNIfC`ʋp힍sccB\
ō@RݏC|IsH\
ccLIH\
\\^ICzB\
㉺CsXw͓IfccC^IIB\

[]uccw͓IBw͐z㏬Il\\v\

;;GFiʒuFʁ@@@j߁@F߁j

If핹V_^eIŒfB\

[]u\\搶Hv\
[]uNCiˍݝfʓXCWY`VCICHv\
[]uOCBeRLꔼߏ΁v\
[]uccC萬`H@ʐߘIf\\v\

ld c,sho,20;;GFiʒuFʁ@@^ʖځ@F߁j

[]u\\AZߏ΁C`svߍÙfv\
[]uI搶CAݓI搶v\
[]uًlYsvLIKvv\
[]uAjlLSccv\
[]u䙀WC~s\搶IHv\

ld c,shk,20;;GFiʒuFʁ@@@j߁@F߁j

[]uIHv\

xNrB\
cczYߙIk엹B\
RC䍪{ٖ@RccccB\
\\řC~B\
pOIS_I󒅏IOB\
TIIOC~IOH\
~Cғs݌TH\
ccccsvCߊ]iPʓIb疋CĎ쓹B\

[]ucc~sCiHv\

\\ƊsLߍÎB\
g@꒛CTAÊ]B\

ld c,shod,20;;GFiʒuFʁ@@@j߁@F߁j

[]uIHv\

ps֌eC⒅SӁB\
\\CÓώ敹IOB\
@CÊ^IoƁCŋ쓹B\

[]uccB铁䙀ߙI[J䗹v\
[]usfC琥jlOv\
[]uccʑRC~zvẃv\
[]uzvZș]C\C⋍ݏ铁g}琥ȓIv\

ld c,lhss3,20;;GFiʒuFʁ@@Ί@j߁@F߁j

[]ucc^ZlۓIjldBsfCk_v\
[]u\a铁IwqC^KsIv\

\\OOCDK\
ccccsfCgnC~LZ݈ӓIB\

[]uccf񗈁v\

ld c,shm,20;;GFiʒuFʁ@@@j߁@F߁j

[]ucchHv\
[]uccIŌfC䙀IlꉼDCZ㗹Hv\

ld c,sho,20;;GFiʒuFʁ@@X˂@j߁@F߁j

[]uccfHv\
[]uA䖔s݌^铁IHv\
[]uccACWk݈Ӂv\
[]uCA݉JVœH}NPILJzvASSܕԉ񋎍ō@~cLƓI߈_CsfHv\
[]u߁Aߍ×RsvO`v\
[]u`IAZIDC`J꘢_IRIv\

cczvXߕ񎖁AXП_IRO`B\

ld c,shs1,20;;GFiʒuFʁ@@@j߁@F߁j

[]uccAZnCȘHv\
[]uDIv\

ld c,shk,20

[]ucc߁AߕCZCHv\
[]ucccccchv\

ld c,sho,20;;GFiʒuFʁ@@X˂@j߁@F߁j

[]ucc搶I✒`Iv\

铁䙀슮CAanOccB\

cl c,20;;

[]uhIH@nlIH@YIH@铁Iv\

떽nǍݍ@ʁccB\

ld c,sho,20;;GFiʒuFʁ@@X˂@j߁@Fj

[]u搶^ʐnIv\
[]uʐnIHv\
[]usmIv\

\\V@CyˌWZdB\

cl c,20;;
;;aflF̃e[}/tF[hAEg5b
;;bg black,10,3000;;wiFobN/؂ւ3b@ҋ@2b


bg white,10,3000;;wiFobN/؂ւ6b@ҋ@5b
bg black,10,3000;;wiFobN/؂ւ6b@ҋ@5b

;;X^bt[------------
btndef "image\staff.jpg"

for %0=0 to 1920

blt 200,100,400,380,0,%0,400,380
wait 20

next
ofscpy

;;GfBO摜pɒǉs------------

;click
bg white,10,3000;;wiFobN/؂ւ6b@ҋ@5b
;;bg "image\end.jpg",10,5000;;

;;܂ŁiGfBO摜pɒǉsj------------

\\Ėڏ邖\\\

bgm "sound\saya org.ogg";;aflF̃e[}iIS[AWj
bg "image\bg\eki_b.jpg",10,1000;;;;wiFXi[j/؂ւ3b@ҋ@2b
ld c,sho,20;;GFiʒuFʁ@@X˂@j߁@F߁j

[]uccWmHv\

OyI搶B\

[]ucc엹YZ铁s]IfHv\
[]uIBߕCYdHv\
[]uccv\

ld c,shk,20

[]uNccv\

sCe푼𗹖kہccB\
^ƎؓISccB\
ccՁCss\𑼑߈_ISB\
{CaA{vffInB\
AݓߍÏNCT`@Cc䋩w@I󋳎䍐ccB\
퍂]CAڎ󗹁B\
ccACߊm营sRsB\
Llڎ{vffIۓIdH\
ccccAL꘢B\

ld c,shm,20

[]u݁C䐥@搶v\
[]uWVCADHv\
[]uDIIv\

ccƊsIB\
sfCInkCkccB\

ld c,shk,20

[]u߁AߘCInC^IߕsDHv\
[]uHIRߌHv\

ld c,lhss1,20

[]uccIv\
[]uCP͑ȒuMv\
[]uZÎ^IݘHv\
[]uߍÎC݋f̎svLHv\

ld c,shs3,20

r藹B\
ʑR~Vȕ既ccB\
ݑLCfIߘŌCߘuCA]AlB\
ᐥ㎧߁ccB\
AC䗈dvIC@䏊ғIߘccCsCoғIlB\
ŋNsρC͒pk˙sB\
ȏ吥vlC͜kbB\
ȏkʐnccC͔퉷_B\
ҍݐg}CWVAkg\
sǌ_@C䌒݊IB\

bg "image\bg\cg4.jpg",10,1000;;CxgbfOSirɑg݁AΊŌ߂鏬j/؂ւ3b@ҋ@2b

;;bg white,10,3000;;wiFobN/؂ւ5b@ҋ@3b

[]ukmdH@dHv\

Ŋ\

bg "image\bg\cg5.jpg",10,1000;;Cxgbf

;;\\Ėڏview@dmc\\\

;;aflF̃e[}iIS[AWj/tF[hAEg15b
;;bg black,10,3000;;wiFobN/؂ւ10b@ҋ@5b


dmc\


;;Gh[


click
delay 800

bgmstop
bg white,10,5000;;
bg black,10,5000;;

delay 800
reset

;---------EBhE\----------
*windowoff
vsp 33,0:vsp 34,0:vsp 35,0:vsp 0,0 ;{^AOAOEBhEAJ[\摜\
for %9=36 to %18+2 ;IEBhE\
 vsp %9,0
next
print 1
textoff ;eLXgEBhE\

lrclick ;ENbNōĕ\

texton
vsp 33,1:vsp 34,1:vsp 35,1:vsp 0,1
for %9=36 to %18+2
 vsp %9,1
next
print 1

return
;---------O\------------------
*name
gettag $3  ;[]̒liOj擾 
lsp 34,":s/24,24,0;#ffffff"+$3,45,381  ;O̕\24,24,0
print 1
return
;------------------VXeJX^}CY------------------
*text_lb
    texton
    erasetextwindow 0
    ispage %0
    if %0==0 && %1002==1 goto *text_end ;y[W܂ňCɕ\@\ON̏ꍇ
    isskip %1
    btndef clear
    getpage
    spbtn 33,3 ;{^`
    if %0=0 goto *curP ;s҂֔
    getcursorpos %0,%2 ;y[W҂
    if %1=2 lsp 0,":a;image\menu\cursor2.png",%0,%2 ;I[g[h̃J[\
    if %1=0 lsp 0,":a/6,150,2;image\menu\cursor1.png",%0,%2 ;ʏ̉y[W҂J[\
    goto *tb_loop
  *curP ;s҂
    getcursorpos %0,%2
    if %1=2 lsp 0,":a;image\menu\cursor2.png",%0,%2 ;I[g[h̃J[\
    if %1=0 lsp 0,":a/6,150,2;image\menu\cursor0.png",%0,%2;ʏ̉s҂J[\
  *tb_loop
    getskipoff
    textbtnwait %0
    if %0=  3 gosub *windowoff:goto *text_lb ;{^NbN
    if %0==0 | %0==-3 | %0==-13 goto *text_end ; ʂ̃NbNEzC[EPageDownL[œǂݐi
    if %0==-1 | %0==-10 gosub *menu:goto *text_lb ;ENbNEEscL[ŉENbNj[
    if %0==-2 | %0==-12 gosub *past:goto *text_lb ;zC[EPageUpL[ŃobNO
    if %0=-60 goto *text_lb               ; XLbvIt
    if %0=-61 goto *text_lb               ; I[g[hIt
goto *tb_loop

*text_end
    ispage %0  ;y[WȂ1ÃNbNisjȂ0Ԃ
    if %0==1 mov %10,1 ;xły[W΃`FbNIiobNOŎgpj
    csp 0
    print 1
    nextcsel %1 
    if %1==1 texec2 ;̍sIȂ炻̎_ŕ\ĂeLXgȂ
    if %1==0 texec
    if %0==1 && %1==0 csp 34 ;y[WIłȂꍇO
    saveon
return

;--------------------\----------------------
*past
    if %10==0 return ;xy[WĂȂꍇȂ
    lsph 1,":a/2;image\menu\uocur.png",760,410
    lsph 2,":a/2;image\menu\docur.png",760,565
    vsp 34,0 ;O^O\
    vsp 0,0 ;NbN҂J[\\
    print 1
    texthide ;eLXg\
    mov %11,1
    *past_check
      checkpage %12,%11 ;i%11jy[WỎz擾\ׂ
      if %12==0 goto *past_return ;s\Ȃ烊^[
      getlog $10,%11 ;i%11jy[WỎz擾
      gettaglog $11,%11 ;i%11jy[WỎzO^O擾

      strsp 6,$10,40,440,30,4,24,24,0,3,0,1,#0073a8 ;z\
      strsp 7,$11,45,381,10,1,24,24,0,0,0,1,#0073a8 ;zO^O\

      checkpage %12,%11+1 ;Py[WỎz擾\
      checkpage %13,%11+2 ;Qy[WO
      getlog $13,1 ;ݕ\ĂẑPy[WO擾
      bclear
      if %12==1 vsp 1,1:print 1:bsp 1 ;Py[WO擾\Ȃ灣{^\
      if %13==0 vsp 1,0:print 1 ;Qy[WO擾s\Ȃ灣{^\
      if $10!=$13 vsp 2,1:print 1:bsp 2 ;i%12jy[WOƂPy[WOႤeȂ灥{^\
      if $10==$13 vsp 2,0:print 1 ;Ȃ灥{^\

      bexec $12
      
      if $12=="S1" goto *past_up ;{^
      if $12=="WHEELUP" goto *past_up ;XN[
      if $12=="PAGEUP" wait 100:goto *past_up ;PageUpL[iwaitAj
      if $12=="S2" goto *past_down ;{^
      if $12=="WHEELDOWN" goto *past_down ;XN[
      if $12=="PAGEDOWN" wait 100:goto *past_down ;PageDownL[iwaitAj
      
    *past_return
    vsp 34,1
    csp 1:csp 2
    csp 6:csp 7
    print 1
    textshow
    wait 200
return

    *past_up
    add %11,1
    checkpage %12,%11
    if %12==0 sub %11,1
    goto *past_check
    
    *past_down
    sub %11,1
    if %11==0 goto *past_return
    goto *past_check

;----------------IJX^}CY--------------------
*customsel
     skipoff
   *csel_st
     getcselnum %7 ;I̐擾
     if %7<=5 goto *csel_5
     if %7>=6 goto *csel_6
;------------------ITȉ-----------------     
     *csel_5
       mov %17,4 ;I̊i[ꏊ$4`
       mov %18,36 ;XvCgԍ36ԁ`
       mov %19,104 ;ڂ̑I̕񂘍W
       mov %20,100 ;ڂ̑IEBhEW
       for %9=0 to %7-1
        getcselstr $%17,%9
        lsp %18,":s/23,23,0;#ffffff#194b9a"+$%17,170,%19 ;I\
        lsp %18+1,":a;image\selwindow.png",150,%20 ;IEBhE\
        add %17,1
        add %18,2
	add %19,50
	add %20,50
       next
       print 1
     *csel_loop5
       bclear
       mov %18,36
       for %9=0 to %7-1
        bsp %18
	add %18,2
       next
       sub %18,2
       bsp 33
       
       bexec $8,%8
     
       if $8=="WHEELUP" gosub *past:goto *csel_loop5  ;zC[̓obNO
       if $8=="RCLICK" gosub *menu:goto *csel_loop5  ;ENbN̓j[
       if $8=="PAGEUP" wait 100:gosub *past:goto *csel_loop5 ;PageUpL[obNOiwaitAj
       if $8=="RCLICK" | $8=="ESC" wait 200:gosub *menu:goto *csel_loop5  ;ENbNEEscL[̓j[iwaitAj

       if %8>=36 & %8<=%18 saveon:sub %8,36:div %8,2:goto *csel_go5 
       if %8==33 gosub *windowoff:goto *csel_loop5
     goto *csel_loop5

*csel_go5
for %9=36 to %18+1 ;IEBhE
 csp %9
next
csp 34 ;O
print 1
cselgoto %8
;------------------IUȏ----------------- 
     *csel_6
       mov %21,%7/5
       mov %22,%7 mod 5
       mov %23,1
       mov %9,0
       *csel_6_2
       mov %17,4 ;I̊i[ꏊ$4`
       mov %18,36 ;XvCgԍ36ԁ`
       mov %19,104 ;ڂ̑I̕񂘍W
       mov %20,100 ;ڂ̑IEBhEW
       for %9=%9 to %9+4
	getcselstr $%17,%9
        if $%17=="" break
	lsp %18,":s/23,23,0;#ffffff#194b9a"+$%17,170,%19 ;I\
        lsp %18+1,":a;image\selwindow.png",150,%20 ;IEBhE\
        add %17,1
        add %18,2
	add %19,50
	add %20,50
       next
       if %23<%21 lsp %18,":s/23,23,0;#ffffff#194b9a"+"",550,%19
       if %23==%21 && %22>=1 lsp %18,":s/23,23,0;#ffffff#194b9a"+"",550,%19
       if %23!=1 && %23<=%21 lsp %18+1,":s/23,23,0;#ffffff#194b9a"+"O",170,%19
       if %23==%21+1 && %22>=1 lsp %18+1,":s/23,23,0;#ffffff#194b9a"+"O",170,%19
       lsp %18+2,":a;image\selwindow.png",150,%20
       print 1
     *csel_loop6
       bclear
       mov %25,36
       for %6=0 to 4
        bsp %25
	add %25,2
       next
       bsp %18
       bsp %18+1
       bsp 33
       
       bexec $8,%8
     
       if $8=="WHEELUP" gosub *past:goto *csel_loop6  ;zC[̓obNO
       if $8=="PAGEUP" wait 100:gosub *past:goto *csel_loop5 ;PageUpL[obNOiwaitAj
       if $8=="RCLICK" | $8=="ESC" wait 200:gosub *menu:goto *csel_loop6  ;ENbNEESCL[̓j[iwaitAj

       if %8==%18 gosub *csel_clear:add %23,1:goto *csel_6_2 ;uցv
       if %8==%18+1 gosub *csel_clear:gosub *csel_cal:goto *csel_6_2 ;uOցv
       if %8>=36 && %8<=%18-2 saveon:sub %8,36:div %8,2:sub %23,1:mul %23,5:add %8,%23:goto *csel_go6 
       if %8==33 gosub *windowoff:goto *csel_loop6
goto *csel_loop6

*csel_clear
for %6=36 to %18+2
 csp %6
next
print 1
return
*csel_cal
if %23==%21+1 && %22!=0 sub %9,%22+5:sub %23,1:return
sub %9,10
sub %23,1
return
*csel_go6
for %6=36 to %18+2 ;IEBhE
 csp %6
next
csp 34 ;O
print 1
cselgoto %8

;------------ENbNj[----------------
*menu
deletescreenshot
getscreenshot 144,108
*menuset
    bclear
    btrans
    lsp 0,":a;image\menu\msave1.png",  670, 70 ;Z[u
    lsp 1,":a;image\menu\msave2.png",  670, 70
    lsp 2,":a;image\menu\mload1.png",  670,115 ;[h
    lsp 3,":a;image\menu\mload2.png",  670,115
    lsp 4,":a;image\menu\mconfig1.png",670,160 ;RtBO
    lsp 5,":a;image\menu\mconfig2.png",670,160
    lsp 6,":a;image\menu\past1.png",   670,220 ;\
    lsp 7,":a;image\menu\past2.png",   670,220
    lsp 8,":a;image\menu\auto1.png",   670,265 ;I[g[h
    lsp 9,":a;image\menu\auto2.png",   670,265
    lsp 10,":a;image\menu\skip1.png",  670,310 ;I܂ŊǃXLbv
    lsp 11,":a;image\menu\skip2.png",  670,310
    lsp 12,":a;image\menu\mtitle1.png",670,370 ;Zbg
    lsp 13,":a;image\menu\mtitle2.png",670,370
    lsp 14,":a;image\menu\mend1.png",  670,415 ;I
    lsp 15,":a;image\menu\mend2.png",  670,415
    lsp 16,":a;image\menu\mback1.png", 670,480 ;߂
    lsp 17,":a;image\menu\mback2.png", 670,480
    lsp 18,":a;image\menu\menu.png",0,0     ;j[ʂ̔wi
    print 1
    
    bsp 0,"P0C1","P1C0",""
    bsp 2,"P2C3","P3C2",""
    bsp 4,"P4C5","P5C4",""
    bsp 6,"P6C7","P7C6",""
    bsp 8,"P8C9","P9C8",""
    bsp 10,"P10C11","P11C10",""
    bsp 12,"P12C13","P13C12",""
    bsp 14,"P14C15","P15C14",""
    bsp 16,"P16C17","P17C16",""
  *menu_loop
    bexec $0,%0
    if $0="WHEELUP" | $0="WHEELDOWN" goto *menu_loop
    if $0="LCLICK" | $0="MCLICK" | $0="CTRL" goto *menu_loop
    if %0=12 gosub *resetdal:goto *menuset
    if %0=14 gosub *enddal:goto *menuset
    for %1=0 to 18
        csp %1
    next
    if %0=0 gosub *saveset:goto *menuset
    if %0=2 gosub *loadset:goto *menuset
    if %0=4 gosub *config:goto *menuset
    print 1
    if %0=6 deletescreenshot:goto *past
    if %0=8 deletescreenshot:systemcall automode:wait 100:return
    if %0=10 deletescreenshot:systemcall skip:return
    deletescreenshot
    dwave 10,"sound\finger_snap.wav" ;j[甲鎞̌ʉ
    wait 200
return

*resetdal
    okcancelbox %0,"^Cg֖߂܂H","ZbgmF"
    if %0=0 return
mov %1009,1
reset

*enddal
    okcancelbox %0,"I܂H","ImF"
    if %0=0 return
mov %1009,0
end

;------------------Z[u------------------
*saveset
    bclear
    if %1011=0 mov %1011,1
    mov %0,(%1011-1)/12
    if %0==0 lsp 0,":a;image\menu\save1_3.png",670,70
    if %0!=0 lsp 0,":a;image\menu\save1_1.png",670,70:lsp 1,":a;image\menu\save1_2.png",670,70:bsp 0,"P0C1","P1C0",""
    if %0==1 lsp 2,":a;image\menu\save2_3.png",670,115
    if %0!=1 lsp 2,":a;image\menu\save2_1.png",670,115:lsp 3,":a;image\menu\save2_2.png",670,115:bsp 2,"P2C3","P3C2",""
    if %0==2 lsp 4,":a;image\menu\save3_3.png",670,160
    if %0!=2 lsp 4,":a;image\menu\save3_1.png",670,160:lsp 5,":a;image\menu\save3_2.png",670,160:bsp 4,"P4C5","P5C4",""
    if %0==3 lsp 6,":a;image\menu\save4_3.png",670,205
    if %0!=3 lsp 6,":a;image\menu\save4_1.png",670,205:lsp 7,":a;image\menu\save4_2.png",670,205:bsp 6,"P6C7","P7C6",""
    if %0==4 lsp 8,":a;image\menu\save5_3.png",670,250
    if %0!=4 lsp 8,":a;image\menu\save5_1.png",670,250:lsp 9,":a;image\menu\save5_2.png",670,250:bsp 8,"P8C9","P9C8",""
    if %0==5 lsp 10,":a;image\menu\save6_3.png",670,295
    if %0!=5 lsp 10,":a;image\menu\save6_1.png",670,295:lsp 11,":a;image\menu\save6_2.png",670,295:bsp 10,"P10C11","P11C10",""
    lsp 12,":a;image\menu\mback1.png",670,480
    lsp 13,":a;image\menu\mback2.png",670,480
    bsp 12,"P12C13","P13C12",""
    lsp 14,":a;image\menu\msave1.png",500,530
    lsp 15,":a;image\menu\msave2.png",500,530
    bsp 14,"P14C15","P15C14",""
    mov %1,%0*12
    for %2=1 to 12
        mov %3,%1+%2
        itoa $0,%3
        mov $1,"savedata\save"+$0+".jpg"
        fileexist %0,$1
        mov %3,(%2-1) mod 4
        mov %3,%3*152+25
        mov %4,(%2-1)/4
        mov %4,%4*116+80
        if  %1011=%1+%2 lsp 29,":c;image\menu\blue.jpg",%3-3,%4-3
        if %0=1 lsp %2+15,":c;"+$1,%3,%4
        if %0=0 lsp %2+15,":c;image\menu\nodata.jpg",%3,%4
        bsp %2+15
    next
    gosub *sadispdata
    lsp 32,":a;image\menu\savemenu.png",0,0
    print 1
  *save_loop
    bexec $0,%0
    if $0="WHEELUP" | $0="WHEELDOWN" goto *save_loop
    if $0="LCLICK" | $0="MCLICK" | $0="CTRL" goto *save_loop
    if %0=0 mov %1011, 1:goto *saveset
    if %0=2 mov %1011,13:goto *saveset
    if %0=4 mov %1011,25:goto *saveset
    if %0=6 mov %1011,37:goto *saveset
    if %0=8 mov %1011,49:goto *saveset
    if %0=10 mov %1011,61:goto *saveset
    if %0=14 goto *dosave
    if %0>15 goto *samove
    for %0=0 to 32
        csp %0
    next
    dwave 10,"sound\finger_snap.wav" ;Z[uʂ甲鎞̌ʉ
    wait 200
return

*dosave
    itoa $0,%1011
    mov $0,"savedata\save"+$0+".jpg"
    savescreenshot2 $0
    if $3!="" mov $1,$3:mov $1,$1+"F":gettext $2:add $1,$2:goto *saveskip
    gettext $1
    *saveskip
    len %14,$1
    if %14>=39 mid $1,$1,0,36:mov $1,$1+"c" ;39ȏȂA36o"c"ǉđ
    savegame2 %1011,$1
    dwave 10,"sound\finger_snap.wav" ;Z[u܂Ǐʉ
    for %0=15 to 32
        csp %0
    next
goto *saveset

*samove
    mov %0,%0-15
    mov %1,(%1011-1)/12
    mov %1011,%1*12+%0
    mov %1,(%0-1) mod 4
    mov %1,%1*152+22
    mov %2,(%0-1)/4
    mov %2,%2*116+77
    amsp 29,%1,%2,255
    gosub *sadispdata
    print 1    
goto *save_loop

*sadispdata
    itoa2 $0,%1011
    mov $0,"mD"+$0
    csp 30
    lsp 30,":s/16,16,0;#FFFFFF$0",197,450
    itoa $0,%1011
    mov $0,"savedata\save"+$0+".jpg"
    fileexist %0,$0
    if %0=1 lsp 28,":c;"+$0,27,456
    if %0=0 lsp 28,":c;image\menu\nodata.jpg",27,456
    savetime %1011,%0,%1,%2,%3
    if %0=0 mov $0,"||@||\|||||||||||||"
    notif %0=0 gosub *sagetdata
    strsp 31,$0,287,477,100,2,16,16,0,11,0,0,#FFFFFF
return

*sagetdata
    itoa2 $0,%0
    itoa2 $1,%1
    mov $0,$0+""+$1+"@"
    itoa2 $1,%2
    mov $0,$0+$1+""
    itoa2 $1,%3
    mov $0,$0+$1+"\"
    getsavestr $1,%1011
    mov $0,$0+$1
return


;------------------[h------------------
*loadset
    bclear
    if %1011=0 mov %1011,1
    mov %0,(%1011-1)/12
    if %0==0 lsp 0,":a;image\menu\save1_3.png",670,70
    if %0!=0 lsp 0,":a;image\menu\save1_1.png",670,70:lsp 1,":a;image\menu\save1_2.png",670,70:bsp 0,"P0C1","P1C0",""
    if %0==1 lsp 2,":a;image\menu\save2_3.png",670,115
    if %0!=1 lsp 2,":a;image\menu\save2_1.png",670,115:lsp 3,":a;image\menu\save2_2.png",670,115:bsp 2,"P2C3","P3C2",""
    if %0==2 lsp 4,":a;image\menu\save3_3.png",670,160
    if %0!=2 lsp 4,":a;image\menu\save3_1.png",670,160:lsp 5,":a;image\menu\save3_2.png",670,160:bsp 4,"P4C5","P5C4",""
    if %0==3 lsp 6,":a;image\menu\save4_3.png",670,205
    if %0!=3 lsp 6,":a;image\menu\save4_1.png",670,205:lsp 7,":a;image\menu\save4_2.png",670,205:bsp 6,"P6C7","P7C6",""
    if %0==4 lsp 8,":a;image\menu\save5_3.png",670,250
    if %0!=4 lsp 8,":a;image\menu\save5_1.png",670,250:lsp 9,":a;image\menu\save5_2.png",670,250:bsp 8,"P8C9","P9C8",""
    if %0==5 lsp 10,":a;image\menu\save6_3.png",670,295
    if %0!=5 lsp 10,":a;image\menu\save6_1.png",670,295:lsp 11,":a;image\menu\save6_2.png",670,295:bsp 10,"P10C11","P11C10",""
    lsp 12,":a;image\menu\mback1.png",670,480
    lsp 13,":a;image\menu\mback2.png",670,480
    bsp 12,"P12C13","P13C12",""
    lsp 14,":a;image\menu\mload1.png",500,530
    lsp 15,":a;image\menu\mload2.png",500,530
    bsp 14,"P14C15","P15C14",""
    mov %1,%0*12
    for %2=1 to 12
        mov %3,%1+%2
        itoa $0,%3
        mov $1,"savedata\save"+$0+".jpg"
        fileexist %0,$1
        mov %3,(%2-1) mod 4
        mov %3,%3*152+25
        mov %4,(%2-1)/4
        mov %4,%4*116+80
        if  %1011=%1+%2 lsp 29,":c;image\menu\blue.jpg",%3-3,%4-3
        if %0=1 lsp %2+15,":c;"+$1,%3,%4
        if %0=0 lsp %2+15,":c;image\menu\nodata.jpg",%3,%4
        bsp %2+15
    next
    gosub *sadispdata
    lsp 32,":a;image\menu\loadmenu.png",0,0
    print 1
  *load_loop
    bexec $0,%0
    if $0="WHEELUP" | $0="WHEELDOWN" goto *load_loop
    if $0="LCLICK" | $0="MCLICK" | $0="CTRL" goto *load_loop
    if %0=0 mov %1011, 1:goto *loadset
    if %0=2 mov %1011,13:goto *loadset
    if %0=4 mov %1011,25:goto *loadset
    if %0=6 mov %1011,37:goto *loadset
    if %0=8 mov %1011,49:goto *loadset
    if %0=10 mov %1011,61:goto *loadset
    if %0=14 goto *doload
    if %0>15 goto *lomove
    for %0=0 to 32
        csp %0
    next
    dwave 10,"sound\finger_snap.wav" ;[hʂ甲鎞̌ʉ
    wait 200
return

*doload
    lookbackflush
    dwave 10,"sound\finger_snap.wav" ;[h܂Ǐʉ
    delay 1300 ;ʉ̒ɉĕύX
    loadgame %1011
goto *loadset

*lomove
    mov %0,%0-15
    mov %1,(%1011-1)/12
    mov %1011,%1*12+%0
    mov %1,(%0-1) mod 4
    mov %1,%1*152+22
    mov %2,(%0-1)/4
    mov %2,%2*116+77
    amsp 29,%1,%2,255
    gosub *sadispdata
    print 1    
goto *load_loop

;---------------RtBOI--------------------------
*config
    bclear
    isfull %1 ;1ȂtXN[

    lsp 23,":a;image\configback.jpg",0,0 ;wiݒiconfig.pngƍĈ̉摜ɂĂBĂBj
    lsp 22,":a;image\config.png",0,0
    lsp 0,":a;image\menu\syoki1.png",400,30 ;ݒ{^
    lsp 1,":a;image\menu\syoki2.png",400,30
    lsp 2,":a;image\menu\back1.png",600,30 ;߂{^
    lsp 3,":a;image\menu\back2.png",600,30

    lsp 4,":a/2;image\menu\dial.png",%1001,190 ;ʏ핶͕\Xs[h
    itoa $0,%1001-74
    lsp 12,":c;>"+$0+",8,#191970",75,198
    itoa2 $1,%1000
    lsp 18,":s/14,14,0;#FFFFFF"+$1,85,220
    lsp 5,":a/2;image\menu\dial.png",%1004,190 ;I[g[h͕\Xs[h
    itoa $0,%1004-484
    lsp 13,":c;>"+$0+",8,#191970",485,198
    itoa2 $1,%1003
    lsp 19,":s/14,14,0;#FFFFFF"+$1,495,220
    lsp 6,":a/2;image\menu\dial.png",%1006,501 ;BGM{[
    itoa $0,%1006-74
    lsp 14,":c;>"+$0+",8,#191970",75,508
    itoa2 $1,%1005
    lsp 20,":s/14,14,0;#FFFFFF"+$1,85,530
    lsp 7,":a/2;image\menu\dial.png",%1008,501 ;SE{[
    itoa $0,%1008-484
    lsp 15,":c;>"+$0+",8,#191970",485,508
    itoa2 $1,%1007
    lsp 21,":s/14,14,0;#FFFFFF"+$1,495,530

    if %1002==0 csp 8:lsp 9,":a;image\menu\masu.png",150,240 ;y[W܂ňC
    if %1002==1 csp 9:lsp 8,":a;image\menu\masure.png",150,240
        
    if %1==0 lsp 10,":a;image\menu\marumaru.png",300,340:lsp 11,":a;image\menu\maru.png",500,340 ;ʃTCYݒ
    if %1==1 lsp 10,":a;image\menu\maru.png",300,340:lsp 11,":a;image\menu\marumaru.png",500,340 
        
    print 1
    
    bsp 0,"P0C1","P1C0","P0C1"
    bsp 2,"P2C3","P3C2",""
    bsp 4:bsp 5:bsp 6:bsp 7
    bsp 8:bsp 9
    bsp 10:bsp 11
    bdown ;{^̘A\Ɂi_ChbO邽߁j
  *con_loop
    bexec $8,%8
    
    if $8=="LCLICK" goto *speed ;ǂ̃{^łȂƂNbN*speed
    if %8==4 goto *speed
    if %8==5 goto *autospeed
    if %8==6 goto *bgmvol
    if %8==7 goto *sevol 
    if %8==8 mov %1002,0:wait 200:goto *config ;bdown߂gpĂ邽߁As\ȎԂށiAj
    if %8==9 mov %1002,1:wait 200:goto *config
    if %8==10 && %1==1 menu_window:goto *config
    if %8==11 && %1==0 menu_full:goto *config
    if %8==0 dwave 10,"sound\finger_snap.wav":wait 500:gosub *configset1st:goto *config ;lɖ߂Ǐʉ
    if %8==2 | $8=="RCLICK" | $8=="ESC" wait 500:goto *conreturn ;ENbNEESCL[ł߂
goto *con_loop

;----------͕\Xs[hݒ-----------------------
*speed
    getmousepos %2,%3
    if %8==4 goto *sp ;_CNbNŗꍇ΂
    if %2<75 | %2>307 goto *autospeed
    if %3<198 | %3>206 goto *autospeed
    *sp
    wait 1
    isdown %2
    if %2==0 goto *config ;hbO߂*config
    getmousepos %2,%3
    if %2<86 mov %2,86
    if %2>296 mov %2,296
    mov %1000,%2-86
    mul %1000,48
    div %1000,100 ;0`100܂Œ߉\
    mov %1001,%2-11 ;WO[oϐ֋L^i_C摜22~22px̂-11j
    itoa $0,%1001-74
    lsp 12,":c;>"+$0+",8,#191970",75,198
    amsp 4,%1001,190,255
    itoa2 $1,%1000
    lsp 18,":s/14,14,0;#FFFFFF"+$1,85,220
    print 1
    textspeed %1000
goto *speed

;----------I[g[hXs[hݒ-------------------
*autospeed
    getmousepos %2,%3
    if %8==5 goto *au
    if %2<485 | %2>717 goto *bgmvol
    if %3<196 | %3>206 goto *bgmvol
    *au 
    wait 1
    isdown %2
    if %2==0 goto *config
    getmousepos %2,%3  
    if %2<496 mov %2,496
    if %2>706 mov %2,706
    mov %1003,%2-496
    mul %1003,10 ;0`2100܂Œ߉\
    mov %1004,%2-11
    itoa $0,%1004-484
    lsp 13,":c;>"+$0+",8,#191970",485,198
    amsp 5,%1004,190,255
    itoa2 $1,%1003
    lsp 19,":s/14,14,0;#FFFFFF"+$1,495,220
    print 1
    automode_time %1003
goto *autospeed

;----------afl{[ݒ-----------------------
*bgmvol
    getmousepos %2,%3
    if %8==6 goto *bgm
    if %2<75 | %2>307 goto *sevol
    if %3<508 | %3>516 goto *sevol
    *bgm
    wait 1
    isdown %2
    if %2==0 goto *config
    getmousepos %2,%3
    if %2<86 mov %2,86
    if %2>296 mov %2,296
    mov %1005,%2-86
    mul %1005,48
    div %1005,100
    mov %1006,%2-11
    itoa $0,%1006-74
    lsp 14,":c;>"+$0+",8,#191970",75,508
    amsp 6,%1006,501,255
    itoa2 $1,%1005
    lsp 20,":s/14,14,0;#FFFFFF"+$1,85,530
    print 1
    bgmvol %1005
goto *bgmvol

;----------rd{[ݒ-----------------------
*sevol
    getmousepos %2,%3
    if %8==7 goto *se
    if %2<485 | %2>717 goto *config
    if %3<508 | %3>516 goto *config
    *se
    wait 1
    isdown %2
    if %2==0 dwave 10,"sound\finger_snap.wav":goto *config ;_C𓮂xɌʉ炷
    getmousepos %2,%3
    if %2<496 mov %2,496
    if %2>706 mov %2,706
    mov %1007,%2-496
    mul %1007,48
    div %1007,100
    mov %1008,%2-11
    itoa $0,%1008-484
    lsp 15,":c;>"+$0+",8,#2a83a2",486,508
    amsp 7,%1008,501,255
    itoa2 $1,%1007
    lsp 21,":s/14,14,0;#FFFFFF"+$1,495,530
    print 1
    sevol %1007
goto *sevol

;----------RtBOʂ߂------------------
*conreturn
    dwave 10,"sound\finger_snap.wav" ;RtBOʂ甲鎞̌ʉ
      for %0=0 to 23
          csp %0
      next   
return

;----------񁕃ftHg̐ݒ-----------------------
*configset1st
    mov %1000,10 ;ʏ핶͕\Xs[h25
    mov %1001,97 ;ʏ핶͕\Xs[ĥW
    mov %1002,0 ;y[W܂ňCɕ\Ȃ
    mov %1003,1050 ;I[g[h\Xs[h1050
    mov %1004,590 ;I[g[h\Xs[ĥW
    mov %1005,70 ;BGM{[100iőj
    mov %1006,222 ;BGM{[̂Wiőj
    mov %1007,100 ;SE{[100iőj
    mov %1008,695 ;SE{[̂Wiőj
    textspeed %1000
    automode_time %1003
    bgmvol %1005
    sevol %1007
    mov %1009,1 ;񎞂̔f̂߂̕ϐ
return
