HSP狙い撃ち弾 修正版

buffer 2,640,480
screen 0,640,480

bx=320.0
by=240.0

tx=rnd(640)
ty=rnd(480)

rad=atan(tx-bx, ty-by)  //計算箇所1

repeat
 gsel 2,0
 cls 4
 await 1

 color 255, 255, 255
 mes rad

// rad=atan(tx-bx, ty-by)  //計算箇所2
 
 circle tx, ty, tx+16, ty+16, 1

 circle bx, by, bx+16, by+16, 1

 bx=bx+sin(rad)*10
 by=by+cos(rad)*10

 if abs(tx-bx)<16 and abs(ty-by)<16 {
  tx=rnd(640)
  ty=rnd(480)
  rad=atan(tx-bx, ty-by)
 }

 gsel 0,1
 gcopy 2,0,0,640,480 
loop