HSPTV!掲示板

知恵袋で質問が付かなかった為、こちらにマルチで申し訳ありませんが
やはりこちらの方が的確な回答が頂けると思ったので質問させて下さい

円同士の当たり判定を取りたいのですが、変な所で当たり判定が出ます、間違っている個所を教えて下さい
やっている事は円Ａがマウスで自由に動かせる、円Ｂは固定です
よろしくお願いします
;一辺の長さを設定 100
yoko = 100
tate = 100

*main
redraw 0
;マウスの座標
mouse_x = mousex : mouse_y = mousey

;画面を消去
color 255,255,255
boxf



;------------------------------------
;マウスにくっついてくる円Aを描画する
;-------------------------------------
color 0,255,255
circle mouse_x ,mouse_y ,mouse_x + yoko , mouse_y + tate
;円Ａの中心点を描画する
color 255,0,0
tyuusinntenn_Ax = mouse_x + yoko / 2
tyuusinntenn_Ay = mouse_y + tate / 2
;円Ａの中心座標↓
pset tyuusinntenn_Ax, tyuusinntenn_Ay
;円Ａの半径を求める。円の半径＝中心点xかyどちらでも可＋横か縦の長さ
enn_Ar = tyuusinntennAx + yoko

;-------------------
;固定の円Bを描画する
;-------------------
color 100,100,100
circle 400 ,250 ,500 , 350
;円の中心座標
tyuusinntenn_Bx = 450
tyuusinntenn_By = 300
color 255,0,0
pset tyuusinntenn_Bx,tyuusinntenn_By


;円Ｂの半径を求める。円の半径＝中心点xかyどちらでも可＋横か縦の長さ
enn_Br = tyuusinntennBx + yoko

;----------------------------
;中心点Ａと中心点Ｂに線を引く
;----------------------------
color 0,0,0
line tyuusinntennAx,tyuusinntennAy,tyuusinntenn_Bx,tyuusinntenn_By
;↑何故かリアルタイムに更新されない

;------------
;当たり判定
;------------
kyori = sqrt( ( (tyuusinntenn_Bx - tyuusinntenn_Ax) * (tyuusinntenn_Bx - tyuusinntenn_Ax) ) + ( (tyuusinntenn_By - tyuusinntenn_Ay) * (tyuusinntenn_By - tyuusinntenn_Ay) ) )
ans = (enn_Ar + enn_Br)

;判定
if (kyori >= ans){
pos 300,0
mes "当たり"
} else {
pos 300,0
mes "当たってない"
}

pos 0,0
color 0,0,0
mes "円Ａから円Ｂまでの距離" + kyori
mes "円Ａの半径" + enn_Ar
mes "円Ｂの半径" + enn_Br
mes mouse_x
mes mouse_y



redraw
wait 1
goto *main

enn_Ar、enn_Brが半径ではなく直径が入ってるから判定距離が倍になってる
（表示してるのに・・・）
更にif (kyori >= ans){　の不等号が逆

>tyuusinntennAx,tyuusinntennAy,tyuusinntenn_Bx,tyuusinntenn_By
> ;↑何故かリアルタイムに更新されない

↓ん？
>tyuusinntenn_Ax
>tyuusinntennAx
>tyuusinntenn_Ay
>tyuusinntennAy

>tyuusinntennBx
>tyuusinntenn_Bx

レスありがとうございます！！
何度見直しても分からない時って自分では分からないものなんですね（＞＜；）
ご指摘頂いた部分を修正したら、あんなに時間を掛けて悩んでいた時間が一瞬で…！
ありがとうございました
一応修正したコードは残しておきます（＾＾）

yoko = 100
tate = 100

*main
redraw 0
;マウスの座標
mouse_x = mousex : mouse_y = mousey

;画面を消去
color 255,255,255
boxf



;------------------------------------
;マウスにくっついてくる円Aを描画する
;-------------------------------------
color 0,255,255
circle mouse_x ,mouse_y ,mouse_x + yoko , mouse_y + tate
;円Ａの中心点を描画する
color 255,0,0
tyuusinntenn_Ax = mouse_x + yoko / 2
tyuusinntenn_Ay = mouse_y + tate / 2
;円Ａの中心座標↓
pset tyuusinntenn_Ax, tyuusinntenn_Ay
;円Ａの半径を求める。円の半径＝中心点xかyどちらでも可＋横か縦の長さ
enn_Ar = tyuusinntennAx + (yoko/2)

;-------------------
;固定の円Bを描画する
;-------------------
color 100,100,100
circle 400 ,250 ,500 , 350
;円の中心座標
tyuusinntenn_Bx = 450
tyuusinntenn_By = 300
color 255,0,0
pset tyuusinntenn_Bx,tyuusinntenn_By


;円Ｂの半径を求める。円の半径＝中心点xかyどちらでも可＋横か縦の長さ
enn_Br = tyuusinntennBx + (yoko/2)

;----------------------------
;中心点Ａと中心点Ｂに線を引く
;----------------------------
color 0,0,0
line tyuusinntenn_Ax,tyuusinntenn_Ay,tyuusinntenn_Bx,tyuusinntenn_By

;------------
;当たり判定
;------------
kyori = sqrt( ( (tyuusinntenn_Bx - tyuusinntenn_Ax) * (tyuusinntenn_Bx - tyuusinntenn_Ax) ) + ( (tyuusinntenn_By - tyuusinntenn_Ay) * (tyuusinntenn_By - tyuusinntenn_Ay) ) )
ans = (enn_Ar + enn_Br)

;判定
if (kyori <= ans){
pos 300,0
mes "当たり"
} else {
pos 300,0
mes "当たってない"
}

pos 0,0
color 0,0,0
mes "円Ａから円Ｂまでの距離" + kyori
mes "円Ａの半径" + enn_Ar
mes "円Ｂの半径" + enn_Br
mes mouse_x
mes mouse_y



redraw
wait 1
goto *main

ちょっと気になったので

>円の半径＝中心点xかyどちらでも可＋横か縦の長さ
>enn_Ar = tyuusinntennAx + (yoko/2)


円の半径は、「横か縦の長さの半分」だけです tyuusinntennAx　は要りませんよ