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


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0920
かっぺいうまく動かない11解決


かっぺい

リンク

2008/9/20(Sat) 10:27:43|NO.19596

マウスが白いところだけを進めるようにして、
黒いところに入るとはじめの場所に戻るという、
いらいら棒みたいなゲームを作ろうと思ったのですが、
うまく動きません。
	#uselib "user32"
#func ClipCursor "ClipCursor" int sute=2 onexit *owari *start cls if sute=2 : mox=ginfo_wx2-530 : moy=ginfo_wy2-480 mouse mox,moy *mainloop gsel 0,2 limit_=ginfo_wx1+2,ginfo_wy1-2,ginfo_wx2+2,ginfo_wy2-2 ClipCursor varptr(limit_) redraw 0 color 0,0,0 boxf if sute=2 : color 255,255,255 : boxf 100,0,200,100 : boxf 150,100,250,200 : boxf 100,200,350,230 pget mousex,mousex if ginfo_r=0 : if ginfo_g=0 : if ginfo_b=0 : mouse mox,moy stick key if key&128 : end await 16 redraw 1 goto *mainloop *owari ClipCursor 0 end
(ESCキーで終了できます)
どうしてうまく動かないのかがわからないので教えてください。



この記事に返信する


SYAM

リンク

2008/9/20(Sat) 10:47:15|NO.19597

pget



かっぺい

リンク

2008/9/20(Sat) 10:53:14|NO.19598

pgetだけだとわからないのですけど・・・



SYAM

リンク

2008/9/20(Sat) 10:56:47|NO.19599

ほとんど答え同然のヒントですよ。
pget命令のとこ 見直しましたか?
分からないのは、
理解できないからですか?
それとも、
自分で何とかする意志が希薄だからですか?



Quiet

リンク

2008/9/20(Sat) 10:59:02|NO.19600

pget mousex,mousexじゃなくて
pget mousex,mouseyですよ。



かっぺい

リンク

2008/9/20(Sat) 11:21:39|NO.19601

がーん!そ、そんな簡単なことを見落としていたなんて・・・
すみません。お手数かけました。



かっぺい

リンク

2008/9/20(Sat) 11:21:52|NO.19602

解決



あり

リンク

2008/9/20(Sat) 11:29:06|NO.19603

いずれ気付くとは思いますが、今のままだとESCキーで終了した時に
ClipCursorの開放が出来てないので、不具合が発生してしまいますよ。
if key&128 : end

if key&128 : goto *owari
にして下さい。



S&R(楓)

リンク

2008/9/20(Sat) 11:34:08|NO.19604

過去にそのようなパクリ作品は何度も出ているのでコンテストには応募できませんね!!



あり

リンク

2008/9/20(Sat) 11:38:56|NO.19605

S&Rさん>>
>過去にそのようなパクリ作品は何度も出ているのでコンテストには応募できませんね!!
明らかに人を侮蔑している発言ですね。
何でここであえてその発言をしたのですか?
発言を撤回して削除をするべきです。



かっぺい

リンク

2008/9/20(Sat) 11:44:38|NO.19606

まあ、コンテストに応募する気はさらさらないのですけどね。
(出したってできの低さに恥をかくだけですしね・・・。)



SYAM

リンク

2008/9/20(Sat) 12:51:19|NO.19607

これだけだとただイジわるいだけになりそなので、すこしだけ助言になるかもしれない話します
HSPはスクリプト中の大文字小文字を区別しないことを利用して
mouseX, mouseY
のようにする習慣でもつけておくと、間違いを減らせるかも しれませんね。



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