HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2007
0413
ショーグンpgetの使い方について。4解決


ショーグン

リンク

2007/4/13(Fri) 22:02:03|NO.7382

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)の形で書いてもダメでした・・・。



この記事に返信する


KENTA

リンク

2007/4/13(Fri) 22:14:30|NO.7384

これでいけるはずです。

;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



KENTA

リンク

2007/4/13(Fri) 23:16:56|NO.7404

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

;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
長いのを書き直してしまってすいません。



ハテナ

リンク

2007/4/14(Sat) 02:09:04|NO.7424

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



ショーグン

リンク

2007/4/14(Sat) 13:42:19|NO.7440

できたー!できました!

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



ONION software Copyright 1997-2021(c) All rights reserved.