HSPTV!掲示板

下がソースです、ID1のウィンドウで定義した変数が、ID0に適用されません汗
どうすれば適用されるのでしょうか？？教えてください。

*setting
linewidth=0
*set
screen 1, 300, 500, screen_normal, 1000, 200
button gosub "線の太さ：１",*line1
button gosub "線の太さ：３",*line3
button gosub "線の太さ：５",*line5
gsel 1, 1
*create
onclick goto *createdrawing
stop
*createdrawing
onclick goto *create
mfx=mousex : mfy=mousey
pset mfx, mfy
line mousex, mousey, mfx, mfy
if linewidth=3 or linewidth=5{
	line mousex+1, mousey+1, mfx+1, mfy+1
	line mousex-1, mousey-1, mfx-1, mfy-1
	if linewidth=5{
		line mousex+2, mousey+2, mfx+2, mfy+2
		line mousex-2, mousey-2, mfx-2, mfy-2
	}
}
repeat
mx=mousex : my=mousey 
	line mx, my
	wait 1
	loop
stop
*line1
linewidth=1
gsel 0, 1
return
*line3
linewidth=3
gsel 0, 1
return
*line5
linewidth=5
gsel 0, 1
return

*createdrawingの直後にlinewidth=5と書いても適用されませんよね？
つまり線を描画する処理に問題があります。
14行目でmfx=mousex:mfy=mouseyとしている為、
17~24行目は意図したとおりには描画されないと思います。
おそらく点が描画されるのではないでしょうか。
25~29行目、これは1本の細い線が描画されるだけかと。
さらにループ中にonclickの割り込み発生した場合、ネストが深くなるような・・・

回答ありがとうございます、一応コンパイルエラーは無し、実行してもちゃんとマウスの軌道に線が描画されます。
ただただなぜかlinewidthが機能しないのですよね、、、
ちなみにこのソースはHSP命令リファレンスのソースをアレンジしたものです。

16行目の　line mousex, mousey, mfx, mfy　と　17行目の　if文の間に
mes linewidhth
stop
を挟んで確認したところ、linewidthの値はちゃんと取得されていることが分かりました。

＞No.76636
mes linewidthです
手書きなので誤字りました汗

一応この線の太さが変えられない問題に関しては自己解決できました、お騒がせしました。
if文の位置が間違っていました。また、色々と修正しました。