06/06/12 01:22:30 nerkduc3
*define
game
*start
erasetextwindow 0
lsph 1,"1.jpg",300,240:lsph 2,"2.jpg",300,240:lsph 3,"3.jpg",300,240
lsph 4,"4.jpg",340,240:lsph 5,"5.jpg",340,240:lsph 6,"6.jpg",340,240
btndef "":exbtn_d "P1C2C3P4C5C6":exbtn 1,1,"C1P2":exbtn 4,4,"C4P5":btndown 1
*textbtnloop
textbtnwait %0
if %0=1 vsp 2,0:vsp 3,1:mov3 %2,1,300,240:gosub *onlclick:goto *a
if %0=4 vsp 5,0:vsp 6,1:mov3 %2,4,340,240:gosub *onlclick:goto *b
goto *textbtnloop
*onlclick
print 1:getspsize %2,%7,%8
*onlclick2
isdown %1:getmousepos %5,%6
if %1=1 & %5>=%3 & %5<=%3+%7 & %6>=%4 & %6<=%4+%8 wait 20:goto *onlclick2
if %1=1 mov %10,1:return
mov %10,0:return
*a
if %10=1 goto *text_lb
「Ａ」
goto *text_lb
*b
if %10=1 goto *text_lb
「Ｂ」
goto *text_lb