HSPTV!掲示板

randomize
	my=100
	x=100
repeat
	await 30
	if x>mousex:x-=2:gosub *draw
	if my>mousey:my-=2:gosub *draw
	if x<mousex:x+=2:gosub *draw
	if my<mousey:my+=2:gosub *draw
	gosub *draw
loop

*draw
	redraw 0,0,0,30,30
	color 255,255,255
	boxf 0,0,30,30
	pos 0,0
	color
	mes a
	redraw 1,0,0,30,30
	color rnd(255),rnd(255),rnd(255)
	circle x-15,my-15,x+15,my+15
return

このスクリプトは、マウスについていく芋虫みたいなものをイメージしてるのですが、
動きがカクカクになってしまいます。
動きに丸みをつけるにはどうすればいいのでしょうか？

randomize
	my=100
	x=100
	d=5
repeat
	await 30

	
	gosub *check
	
	gosub *draw
loop

*draw
	redraw 0,0,0,30,30
	color 255,255,255
	boxf 0,0,30,30
	pos 0,0
	color
	mes a
	redraw 1,0,0,30,30
	color rnd(255),rnd(255),rnd(255)
	circle x-15,my-15,x+15,my+15
return

*idou
	a=x-mousex : b=my-mousey
	e=a : f=b
	
	if a<0 : a=0-a
	if b<0 : b=0-b
	c=a : if c<b : c=b
	if c=0 : return
	
	e=e*d/c
	f=f*d/c

	x=x-e:my=my-f

	return

dが速さで、eがＸ方向への移動量、fがＹ方向への移動量、
a,b,cは処理に使っている変数です。

カクカクになるのは
マウス座標と表示座標に差があるときに、
決まった速度と角度で移動させているからだね

	my=100	:	x=100
	speed = 5
repeat
	await 30
	angle = atan(mousey - my,mousex - x)
	x+=cos(angle)*speed
	my+=sin(angle)*speed
	gosub *draw
loop
//drawラベル以降はそのまま

atanとかはこの掲示板を検索するといいよ

randomize

	y=100
	x=100
	speed=5
repeat
	a = mousex - x
	b = mousey - y
	c = double( sqrt( a*a + b*b ) )
	if c {
		x + double(a)/c * speed ; ｘ座標に移動量を加える
		y + double(b)/c * speed ; ｙ座標に移動量を加える
	}

	gosub *draw
	await 30
loop

*draw
	redraw 0,0,0,30,30
	color 255,255,255
	boxf 0,0,30,30
	pos 0,0
	color
	mes a
	redraw 1,0,0,30,30
	color rnd(255),rnd(255),rnd(255)
	circle x-15,y-15,x+15,y+15
return

　現在の座標に、計算式を使って、移動量をリアルタイムに加えてやれば
滑らかに動きます。

　そのためにはまず、現在の座標(x,y)から、マウス座標(mousex,mousey)
までの距離を　変数 c として、その c を「ピタゴラスの定理」で求めます。

/|
c / | a
/ |
/)θ|┐
-------
b

　c*c = a*a + b*b
　c = √(a*a + b*b)

　ピタゴラスの定理で、c の値を求めたら
この値を使って　sinθ　cosθ　を求めます。
sinθ　cosθ　は、それぞれ
　sinθ = a/c
　cosθ = b/c
で求められます。
これらの値は、x座標の移動量と,y座標の移動量の「最小の値」を意味します。

　さらに、この最小の値に任意のスピードの値を掛け合わせれば
現在の座標(x,y)から、マウス座標(mousex,mousey)までの完全な移動が求められます。

（ 計算式をよく見てくだされば分かると思います ）

アークタンジェントを使うのがもっとも無難かもしれません。

    /|

 c / | a
  /  |
 /)θ|┐
 -------
   b

kjさん,774さん,Shinyaさん、ご回答ありがとうございます。

アークタンジェントについては後にしっかり勉強したいと思います。