HSPTV!掲示板

ほとんど空けずの質問ですみません

マウスがある位置に移動した時にある場所に
メッセージを表示するプログラムを作っていて

repeat
if mousex>540&mousex<640&mousey>40&mousey<90:pos 10,300:mes "aa"
loop

こうしたところ、実行すると重すぎる（？）のかフリーズします。
原因と解決方法が分かる人がいれば宜しくお願いします。

ループのし続けだと、CPUが独占され、他プロセスがCPUを使えづらくなります。
repeatとloopの間の必ず実行されるところにwaitを入れましょう。

連レスすいません。
要は、

repeat

if mousex>540&mousex<640&mousey>40&mousey<90:pos 10,300:mes "aa"
wait 10
loop

にしましょう。ということです。

repeat
loop

のなかに、waitがないから。

フリーズはしなくなったんですが…
　　
pre
pos 540,40:objsize 100,50
button gosub "ＡＡ",*kaiten
repeat
if mousex>540&mousex<640&mousey>40&mousey<90:mes "aa"
wait 10
loop
/pre

上の時、ボタンにマウスを持っていっても表示されません。
どうしてですか？

予想ですが、オブジェクトの上ではmousexとmouseyは取得できないのではないでしょうか？
理由はまぁ、詳しくはわかりませんが多分違うウィンドウの上だからとかそんな感じだと思います。
ウィンドウの外の座標も取得できないので。

mousexとmouseyは直感的ですが、こういった不便なところが多いです。
マウスの座標を取得するなら、以下の方法をお勧めします。

pos 540,40:objsize 100,50
button gosub "ＡＡ",*kaiten
WinFrameX = ( ginfo_sizex - ginfo_sx ) / 2		;※ウィンドウの左フレームサイズ
WinFrameY = ginfo_sizey - ginfo_sy - WinFrameX	;※ウィンドウの上フレームサイズ
repeat
WinMouseX = ginfo_mx - ginfo_wx1 - WinFrameX		;※マウスのＸ座標
WinMouseY = ginfo_my - ginfo_wy1 - WinFrameY		;※マウスのＹ座標
title "MouseX=" + WinMouseX + "MouseY=" + WinMouseY	;※マウスの座標をタイトルバーに表示
if WinMouseX>540&WinMouseX<640&WinMouseY>40&WinMouseY<90 :mes "aa" 
wait 10
loop

*kaiten	;※
return	;※

※のある行が追加した行です。

ありがとうございました。
その場所から離れたとき、その表示されたaaだけを消去する方法はありますか？

boxfで塗りつぶすか、おんなじ文字（aa）を白文字で書くかくらいしか僕にはわかりません。

ケースバイケースで と言いたいところですが
参考にしていただければありがたいです。

#include "user32.as"

#enum IDWND_MAIN	= 0	// メイン
#enum IDWND_BKBASE		// バックグラウンドベース

#const wx 640
#const wy 480

// 背景用のウィンドウ
bgscr  IDWND_BKBASE , wx,wy
gradf ,,,,0,0xFF7A00,0x7A7AFF
rc = 100,100,200,200
color
boxf rc ,rc.1,rc.2,rc.3
color 255,255,255
boxf rc +1,rc.1 +1,rc.2 -1,rc.3 -1
pos rc+1 , rc.1 +1
color 
mes "　マウスポイ\nンタ乗せて下\nさい"

// メインウィンドウ
screen IDWND_MAIN , wx, wy
title "メインウィンドウ"
pos 0,0:gcopy IDWND_BKBASE,0,0,wx,wy

*@
// ディスブレイの座標から
//	マウス座標に変換
//	それが、判定する四角形の中に入っているか？
pt = ginfo_mx , ginfo_my
ScreenToClient hwnd,varptr(pt)
PtInRect varptr(rc) , pt , pt.1
	IsInRect = stat

if (IsInRect) {
	// もし入っている場合 
	if (flg_viewthankyou ==0) {
		color
		pos pt , pt.1
		mes "ありがとう！！"
		flg_viewthankyou=1
		vtypos = pt , pt.1 , ginfo_mesx , ginfo_mesy
	}
}else{
	// 入っていない場合 
	if (flg_viewthankyou) {
		pos vtypos,vtypos.1
		gcopy IDWND_BKBASE , vtypos,vtypos.1 , vtypos.2,vtypos.3
		flg_viewthankyou=0
	}
}
wait 10
goto*@b

boxfを使おうと思い
pre
repeat
if WinMouseX>700&WinMouseX<800&WinMouseY>40&WinMouseY<90 :pos 700,290:mes "aa"
if (WinMouseX<700)or(WinMouseX>800)or(WinMouseY<40)or(WinMouseY>90):color 250,250,250:boxf 700,290,800,340
wait 10
loop
/pre
としたのですが、今度は、aaが表示されなくなりました。

mesで描かれる文字の色は何になっていると思いますか？
スクリプトを何ループか追いかけてみてください。


ところで、スクリプトの色が変わらないのはpreタグの使い方が間違っているからです。
「pre」は「<」と「>」で囲んでください。
また「/pre」も同様に「<」と「>」で囲んでください。
詳しくはこの掲示板の「使い方」を読んで下さい。

ありがとうございました。