
;gameid test

*define
windowback
textgosub *text_lb
textbtnstart 100
usewheel
game


*text_lb
;eLXg{^p̐ݒ
mov %3,0
*text_1b_loop
btndef clear
for %0=0 to 10
gettextbtnstr $0,%0+100
if $0="" goto *next_lp;玟
mov $1,"y"
add $1,$0
add $1,"z\"
mov %1,%0+50
notif $%1="" mov %3,1
add $1,$%1
strsp %0+10,$1,10,20,30,5,20,20,0,0,1,1
vsp %0+10,0
mov $2,"C10-20P"
itoa $3,%0+10
add $2,$3
textexbtn %0+100,$2
*next_lp
next

print 1
delay 1000
exbtn_d "C10-20"
if %3 = 0 textbtnoff
*tbloop
delay 500
textbtnwait %0
if %0=-1 && %3=0 erasetextbtn : mov %3,1 : goto *text_1b_loop
if %0=-1 && %3=1 erasetextbtn : mov %3,0 : goto *text_1b_loop
notif %0=-2 jumpf
for %1=10 to 20
  vsp %1,0
next
systemcall lookback
~
if %0<=-2 goto *tbloop
if %0>=100 erasetextbtn : wait 500
texec
erasetextbtn
for %0=10 to 20:csp %0:next
print 1
saveon
return

*start
setwindow 26,344,26,5,22,22,0,0,0,1,1,#2266BB,0,320,639,479
erasetextwindow 0
linkcolor #FF2222,#8888FF
;i\{}ɁAϐ,liGCAX͎g܂jƏƂŁA̒lł܂Bł́Awv̓ei[̂ɎgĂ܂B

<eLXg{^>gāÂ悤ɁA/
<c[qg>̂悤ȂƂo܂B@
linkcolor #FFFF22,#88FFFF
<c[qg>̂悤ȂƂo܂B\
ϐ\
<eLXg{^>{$50,eLXg{^̂悤Ɉ@\łB}gāÂ悤ɁA<c[qg>{$51,}EXd˂Ƃ̂悤Ɏ\܂B}̂悤ȂƂo܂B\
linkcolor #FF2222,#8888FF
<eLXg{^>{$50,}gāÂ悤ɁA/
linkcolor #FFFF22,#88FFFF
<c[qg>{$51,}̂悤ȂƂo܂B\
<rsqro>{$50,rsqro߂́As̕XvCg܂B\[܂ŗ邩p}[Nŉs܂AcOȂ֑͂܂Ă܂B}̎˂Ă܂B@
ƓłA܂p<uXv>{$51,`\tg̃TEhmxłB}<s_>{$52,{\tgEFÃz[Ahx`[Q[łB}ŎgĂshor@\̂悤Ȍʂo͂łB\
end