HSPTV!掲示板

シューティングゲームを作るとき、点Ａと点Ｂの間の距離が２０とか３０で命中にしたいです
新規関数でどうすればいいですか？？？

2点の座標は分かっているんですよね。
それならあとは計算です。単純な式なので新規関数として定義するまでもないでしょう。

ピタゴラスの定理で検索してみましょう。
(いつ頃習うものだったかな...?)

hspmathに命令があります。
まずは調べる癖をつけて、どうしても分からないときだけ質問しましょう。
自作関数にするにしても、特にこのような簡単な内容は
まず自分で考えてみてください。

#include "hspmath.as"
	point_a = 100, 50       // 点A
	point_b = 500, 400      // 点B
	mes "2点間の距離は" + distance2(point_a, point_b) + "です。"
	line point_a(0), point_a(1), point_b(0), point_b(1)
	color 255  : pset point_a(0), point_a(1)    // 点A
	color ,255 : pset point_b(0), point_b(1)    // 点B
	stop

その、簡単な式が分かりません。
if x1:y1,x2:y2>50
みたいな感じでしたらエラーが出ます。
いッパン的なパラメーターが…
手やつです

>その、簡単な式が分かりません。

数学の教科書でも探しましたか？

しょうがないので教えますが...。

直交座標系上の2点A(xa,ya),B(xb,yb)の距離dは次式で与えられます。

d = sqrt( (xa-xb)^2 + (ya-yb)^2 )

sqrtは平方根を表し、^はべき乗を表します。例えばxの2乗ならx^2です。

証明は大したことはありません。
それより、三平方の定理を知った後に方眼用紙と鉛筆と定規を用意して格子点に2点をとってそれを結ぶ線分を斜辺とする直角三角形を描きまくってみましょう。
きっと上式の意味が分かりますよ。


>if x1:y1,x2:y2>50 みたいな感じでしたらエラーが出ます。

HSPの文法が分かっていないのではないですか？
その行は
if sqrt(powf(x1-x2,2)+powf(y1-y2,2)) > 50
とするべきです。

とりあえずサンプルスクリプトをみながら一通り基本を勉強することを強く勧めます。

そうでないと、つまづくたんびに質問だらけになってしまい
質問者も回答者もシアワセになれませんので。

ちなみにプラグインを使わずに標準命令だけで
２点間の距離を用いた当たり判定したいのならば、
ルートを使わないように両辺を二乗して判定する方法があります。

dx=X1-X2 ;Ｘ方向の差分を求める
dy=Y1-Y2 ;Ｙ方向の差分を求める

if dx*dx + dy*dy < 50*50 {
　（ここに当たったときの処理を書く）
}

といった感じです。

ピタゴラスの定理で検索してもちょっとむずかしい話ばっかりでよくわからないような気がします。
「三平方の定理」は中学3年の数学で学習する範囲のようです。
もし教科書をお持ちなら開いてみてください。
持ってないならGoogleなどで検索してみてください。図入りの解説がいくつか見つかります。

それでも理解できないならdistance2を使うことをおすすめします。
仕組みがわからなければパッケージ化されたものをそのまま使えばいいんですよ。（もちろん理解して使うのが一番いいのですが。）


でももし授業で習ったのに忘れてしまった、理解できなかった、ついていけなかった。
というのでしたら数学の復習を強くおすすめします。あれはこれから必要になる強力な武器です。

直角三角形の斜辺の長さは、「底辺の二乗＋高さの二乗」の平方根。
それを利用して斜めの距離を割り出すのが、ZAPさん方が書いている方法。

	r=100					;半径
	ang=0.0					;角度
	ox=ginfo_winx/2.0		;中心x
	oy=ginfo_winy/2.0		;中心y

	repeat
		vx=ox+cos(ang)*r	;頂点x	
		vy=oy+sin(ang)*r	;頂点y
		ang+=0.01			;角度を加算
	
		
		color 255,255,255 : boxf : color
		circle ox-r,oy-r,ox+r,oy+r,0
		line ox,oy,vx,vy
		line ox,oy,vx,oy
		line ox,oy,ox,vy
		line vx,oy,vx,vy
		line ox,vy,vx,vy	

		await 10 : redraw 1 : redraw 0
	loop

蛇足感否めないけど作りたかったんです。