HSPTV!掲示板

line命令とgetkey命令を使って
クリックした場所から線が伸びて、
もう一度クリックすると、
クリックしたところからもう一度クリックしたところまでの線が書ける。
というスプリクトを書きたいのですが、
ラインの始点をクリックしたところに持っていくことができません。
どうかやり方を教えてください。

作ってみたが…

onclick goto *draw
stop
*draw
if mode=1 :gx=mousex :gy=mousey :mode=2
if mode=0 :sx=mousex :sy=mousey :mode=1
color ,,255
if mode=2 :line sx,sy,gx,gy
color ,255,
circle sx-5,sy-5,sx+5,sy+5
color 255,,
circle gx-5,gy-5,gx+5,gy+5
if mode=2 :mode=0

getkeyを使ってなかった…
気を取り直して…

repeat
getkey key
if key=1 :gosub *draw
wait 10
loop
*draw
if mode=1 :gx=mousex :gy=mousey :mode=2
if mode=0 :sx=mousex :sy=mousey :mode=1
color ,,255
if mode=2 :line sx,sy,gx,gy
color ,255,
circle sx-5,sy-5,sx+5,sy+5
color 255,,
circle gx-5,gy-5,gx+5,gy+5
if mode=2 :mode=0
return

こんなんでいいのだろうか…

ラインがすべてつながっているようにするにはどうしたらいいのですか？

buffer 1
screen 0
mx=0:my=0
sx=0:sy=0
*main
	redraw 0

	gsel 1
	color 220,50,150
	if k=1:k=2:line mx,my,sx,sy
	gsel 0
	pos 0,0:gmode 0,640,480:gcopy 1
	getkey ky,1
	
	if k=0 & ky=1:mx=mousex:my=mousey:k=1
	if k=2:sx=mx:sy=my
	if k=2 & ky=0:k=0
	
	color 220,50,150
	line mousex,mousey,sx,sy
	
	
	redraw 1

	await 1
	goto *main

こんな感じですか？

上のやり方だとラインの始点がクリックしたところに来ないのですけど。

buffer 1
screen 0
mx=0:my=0
sx=0:sy=0

*main
	redraw 0

	gsel 1
	color 220,50,150
	if k=1:k=2:line mx,my,sx,sy
	
	gsel 0
	pos 0,0:gmode 0,640,480:gcopy 1
	getkey ky,1
	if kk=0:sx=mousex:sy=mousey
	if k=0 & ky=1:kk=1:mx=mousex:my=mousey:k=1
	if k=2:sx=mx:sy=my
	if k=2 & ky=0:k=0
	
	color 220,50,150
	line mousex,mousey,sx,sy
	
	
	redraw 1

	await 1
	goto *main

ちょっと修正しただけですが、こういう意味ですかね？
（すいません、物分り悪くて。）

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