>実は、このスクリプトの前に、ボタンなどの命令があるのですが、
そのボタンは何処に配置してるの?
> repeat でループしてしまうと、ボタンが表示されなくなってしまいます。
それはrepeatの問題ではなくスクリプトの流れに問題があるんじゃ?
何故repeatを無くす方向に行くのか・・・
wsx=80
bgscr 0,wsx,ginfo_dispy,2,ginfo_dispx-wsx,0
syscolor 4
boxf
buffer 1
picload dir_exe+"\\sample\\hsp3dish\\hsplogo8.png"
bsx=ginfo_sx
bsy=ginfo_sy
gsel 0
pos 0,20
button "終了",*exit
objimage 1,0,0,0,0,0,0
objsize bsx,bsy
button gosub "",*sm
hxy=10
repeat
mx=ginfo_mx
my=ginfo_my
if (mx\(ginfo_dispx-hxy))<hxy or (my\(ginfo_dispy-hxy))<hxy {
if (gsel_mode ! 2) {gsel_mode=2:gsel 0,gsel_mode}
wait_fps=100
}else{
if wait_fps>0 {
if mx<(ginfo_dispx-wsx) {
redraw 0
syscolor 4
boxf
pos 4,4
color
mes wait_fps
redraw 1
wait_fps--
}
}else{
if gsel_mode=2 {gsel_mode=-1:gsel 0,gsel_mode:syscolor 4:boxf}
}
}
await 10
loop
*sm
dialog "画像です"
return
*exit
end
waitじゃ無くawait使ってるのはwaitにバグがあるっぽく
wait 1 だとウェイト時間が不安定になる事があるので・・・(3.32β2ごろには既におかしい・・・)