HSPTV!掲示板

pgetの動作がどう考えても変です。
使い方は間違っていないはずなのに正しく動作しません・・・。

以下、その問題のソースです。


;test
screen 0,480,100,4
title "STG STAGE EDITER...[BMP 2 STG v1.00] by WorkShop."


dialog "bmp",16,"標準（推奨）BMPファイル"
if stat=0 :end
screen 3,640,480,0
picload refstr

*start

gsel 3
pget 0,0
gsel 0
color ginfo_r,ginfo_g,ginfo_b
mes "test message"

repeat
stick kk
if kk=32 {
pget mousex,mousey
goto *start
}
await 17
loop

ちなみにginfo(n)の形で書いてもダメでした・・・。

これでいけるはずです。

;test
screen 0,480,100,4
title "STG STAGE EDITER...[BMP 2 STG v1.00] by WorkShop."


dialog "bmp",16,"標準（推奨）BMPファイル"
if stat=0 :end
screen 3,640,480,0
picload refstr

*start
gsel 0
color r,g,b
mes "test message"
gsel 3
repeat
stick kk
if kk=32 {
pget mousex,mousey
r=ginfo_r
g=ginfo_g
b=ginfo_b
title ""+looplev
goto *start
}
await 17
loop

すいません。
ネストレベルでエラーを出さないようにするのを
忘れました。

;test
screen 0,480,100,4
title "STG STAGE EDITER...[BMP 2 STG v1.00] by WorkShop."


dialog "bmp",16,"標準（推奨）BMPファイル"
if stat=0 :end
screen 3,640,480,0
picload refstr

*start

gsel 0
color r,g,b
mes "test message"
gsel 3
repeat
stick kk
if kk=32 {
pget mousex,mousey
r=ginfo_r
g=ginfo_g
b=ginfo_b
title ""+looplev
gosub *prints
}
await 17
loop
*prints
	gsel 0
color r,g,b
mes "test message"
gsel 3
return

長いのを書き直してしまってすいません。

repeat の中で goto は使わない方が良いです。
こんな風にすれば一応ネストレベルはごまかせますが普通はしません。

repeat
	wait 10
	goto *label
loop

repeat
*label
	title ""+cnt+","+looplev
	continue
loop

今回の場合、ラベルは特に必要なさそうなので、
無くして見ました。

screen 0,130,300,4,50,100
title "STG STAGE EDITER...[BMP 2 STG v1.00] by WorkShop."

dialog "bmp",16,"標準（推奨）BMPファイル"
if stat=0 :end
exist refstr
if strsize=-1 :end
screen 3,,,,190,100  :picload refstr

repeat
	stick kk
	if kk=256 { //左クリック
		gsel 3
		pget mousex,mousey
		r=ginfo_r  :g=ginfo_g  :b=ginfo_b
		gsel 0
		color r,g,b  :mes "test message"
	}
	await 17
loop

できたー！できました！

ユーザーの皆さん本当にありがとうございました。
ここに載せてもらったサンプルのほか、知人からの技術支援もあり、
無事完成しそうです！！
そもそもながら自分の経験不足が祟ったバグだったのですが、
助けていただくことができて本当に感謝しています！
またお世話になることがあるかもしれませんがそのときは
またよろしくお願いします！