HSPTV!掲示板

マウスが白いところだけを進めるようにして、
黒いところに入るとはじめの場所に戻るという、
いらいら棒みたいなゲームを作ろうと思ったのですが、
うまく動きません。

	#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

（ＥＳＣキーで終了できます）
どうしてうまく動かないのかがわからないので教えてください。

pget

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

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

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

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

解決

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

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

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

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

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