HSPTV!掲示板

	width 200,200

*main
	getkey Home,37 ;Home
	getkey Pgup,38 ;PgUp
	getkey Endo,39 ;End
	getkey Pgdn,40 ;PgDn
	if Home=1 : pos ginfo_cx-1,ginfo_cy
	if PgUp=1 : pos ginfo_cx,ginfo_cy+1
	if Endo=1 : pos ginfo_cx+1,ginfo_cy
	if PgDn=1 : pos ginfo_cx,ginfo_cy-1
	redraw 2
	color 255,255,255:boxf
	color 255,255,0:boxf 100,0,200,200
	color 0,0,0
	print "(^^)"
	redraw 1
	wait 10
	goto *main

質問もうまくいってない気がしますが…
おかしな点を挙げます
?getkeyに指定しているキーコードが違います。これらはカーソルキーです。
?posなどで指定するカレントポジションは、mes命令の後にフォントの縦幅ぶん下にズレます。それを意図していますか？

>>エレキ掃除機さん
結局何が訊きたいのかわかりません。
「getkeyでうまくいかない」とのことですが、「何がうまくいかない」んですか？
ソースの内容と実行結果を踏まえると、「カーソルで『(^^)』を移動して表示するって
ことがしたいけど、うまくいかない」と考えられます。
もしそうなら、SYAMさんのような回答になるかと思います。

このスレの質問はソースの内容と実行結果からある程度何が訊きたいのかわかりますから
いいかと思いますが、今後はもっと具体的に書いたほうがいいと思います。
SYAMさんは自分でおかしいと思った点を挙げていますが、
あくまでもこれはSYAMさんの見解。
エレキ掃除機さんが意図した内容とは限りません(俺の回答もそう)。
もし、この回答が違う場合、「また新たに説明→回答」という流れになり、
望む答えが返ってくるまでに時間がかかります。
タイトルはこれでいいと思いますが、本文に

「○○がしたいんだけど、××になってしまってうまくできない。

どうしたらいいのか？何がおかしいのか教えてくれ。」

って書けば、勘違いされることも減るし、望む回答が返ってくるまでの時間も
短くなると思います。

もしかして、こんなことがやりたかった？

	width 200,200
	color 255,255,255:boxf
	color 255,255,0:boxf 100,0,200,200
	char="(^^)"
	lx=strlen(char)*8
	ly=lx*2
	speed=4

*main
	px=x: py=y
	stick c,15,1
	if c&1: x-=speed	;←
	if c&2: y-=speed	;↑
	if c&4: x+=speed	;→
	if c&8: y+=speed	;↓
	redraw 2
	color 255,255,255
	pos px,py
	print char
	color 0,0,0
	pos x,y
	print char
	redraw 1
	wait 10
	goto *main

＞＞ANTRESさん
そうです。
>>SYAMさん、レヴィンさん
(^^)君をPgupとかで1ドットずつ移動させたかったのです。
ミスでソースだけ投稿したまま、放置してしまいすいませんでした。

あ、でも黄色いほうへいくと(^^)君が壊しますね。
直しに行って見ます。

ループ内にboxfを入れたら直りました。有難う御座いました。