HSPTV!掲示板

最近初めて「getkey」を知って作ってみたプログラムなのですが、実行している間ずっとちかちか
と点滅するのですが、いったいどうしたらいいのでしょうか？教えてください。
ちなみに↓が僕の考えたプログラムです。

A = 20 : B = 30
*HATA
REPEAT
GETKEY UE, 37
GETKEY HIDA, 38
GETKEY MIGI, 39
GETKEY SITA, 40

POS A, B : color 255, 0, 255 : mes "●"

boxf 100, 50, 200, 100
boxf 300, 10, 360, 100
color 0, 0, 255
boxf 100, 300, 300, 400

IF (UE == 1) : A = A-10
IF (HIDA == 1) : B = B-10
IF (MIGI == 1) : A = A+10
IF (SITA == 1) : B = B+10

if (A>100)and(A<200)and(B>49)and(B<100) : end
if (A>300)and(A<360)and(B>9)and(B<100) : end
if (A>90)and(A<300)and(B>299)and(B<400) : end
WAIT 1
CLS 4
LOOP

こんにちわ、りさです。

「ちらつき」や「ちらつく」で検索なさって貰えれば、
過去ログに色々出てくると思います。

repeat命令の中でredraw命令を使って描画スイッチを変えることと、
cls命令ではなく、color命令とboxf命令を使って背景色を変更すればよいと思います。
あと、背景色を初期化する位置にも注意なさって下さい。

りささんが書き込まれた処理の方が適切だと思いますが、
このような手段もあります。複雑になると使えませんが・・・。

A = 20 : B = 30
cls 4
*HATA 
REPEAT
GETKEY UE, 37 
GETKEY HIDA, 38
GETKEY MIGI, 39
GETKEY SITA, 40

pos C,D : color 0,0,0
IF (UE == 1) : A = A-10 : mes "●"
IF (HIDA == 1) : B = B-10 : mes "●"
IF (MIGI == 1) : A = A+10 : mes "●"
IF (SITA == 1) : B = B+10 : mes "●"

POS A, B : color 255, 0, 255 : mes "●"
C=A : D=B

boxf 100, 50, 200, 100
boxf 300, 10, 360, 100
color 0, 0, 255
boxf 100, 300, 300, 400

if (A>100)and(A<200)and(B>49)and(B<100) : end
if (A>300)and(A<360)and(B>9)and(B<100) : end
if (A>90)and(A<300)and(B>299)and(B<400) : end
wait 1
LOOP

※ミスがあったので直しました

ありがとうございました。これでやっとちらつきがなくなりました。

チェック忘れました。