HSPTV!掲示板

前回の質問で、ちゃんと自機を狙ってくれる弾を打てるようにするのは組めたのですが、
今度は4，5機ぐらいの頻度で打たない奴が出てきてしまいます。何が原因なのかわかりません。
教えてください。

screen 0,500,500


jiki_x = 250.0
jiki_y = 400.0

enemy_max = 500

dim enemy_f,enemy_max
ddim enemy_x,enemy_max
ddim enemy_y,enemy_max

dim e_shot_f,enemy_max
ddim e_shot_x,enemy_max
ddim e_shot_y,enemy_max
ddim e_shot_vx,enemy_max
ddim e_shot_vy,enemy_max

frame = 0
*main
	color 255,255,255 : boxf


	stick k,15
		if k&1:jiki_x-2.0
		if k&2:jiki_y-2.0
		if k&4:jiki_x+2.0
		if k&8:jiki_y+2.0
		
	if jiki_x>492:jiki_x = 492.0
	if jiki_x<8:jiki_x = 8.0
	if jiki_y>492:jiki_y = 492.0
	if jiki_y<8:jiki_y = 8.0
	
	
	if frame\60=1{
			gosub*enemy_search
			
		}
	
	repeat enemy_max
	if enemy_y(cnt) = 100.0{
	
		gosub*e_shot_search
		}
	
	loop
	
	repeat enemy_max
	
	if enemy_f(cnt) = 1{
		enemy_y(cnt) + 2.0
		color 255,0,0
		pos enemy_x(cnt)-8.0,enemy_y(cnt)-8.0
		mes"▼"
		}
	if enemy_y(cnt)>500.0:enemy_f(cnt)=0
	if e_shot_f(cnt) = 1{
		e_shot_x(cnt) = e_shot_x(cnt) + e_shot_vx(cnt)
		e_shot_y(cnt) = e_shot_y(cnt) + e_shot_vy(cnt)		
		color 255,0,0
		pos e_shot_x(cnt)-8.0,e_shot_y(cnt)-8.0
		mes"弾"
	}
	if e_shot_x(cnt)>500.0 or e_shot_x(cnt)<0.0 or e_shot_y(cnt)>500.0 or e_shot_y(cnt)<0.0 : e_shot_f(cnt) = 0
	loop
	
	color 0,0,255
	pos jiki_x-8.0,jiki_y-8.0
	mes"▲"


	redraw 1
	redraw 0
	await 7
frame++
goto*main

*enemy_search
	repeat enemy_max
if enemy_f(cnt) =0{
		enemy_f(cnt) = 1
		enemy_x(cnt) = 1.0+rnd(500)
		enemy_y(cnt) = -8.0
		break
	}
	loop
return

*e_shot_search
	repeat enemy_max
if e_shot_f(cnt) = 0{
	e_shot_f(cnt) = 1
		e_shot_x(cnt) = enemy_x(cnt)
		e_shot_y(cnt) = enemy_y(cnt)
		t = atan(jiki_y-e_shot_y(cnt),jiki_x-e_shot_x(cnt))
		e_shot_vx(cnt) = cos(t) * 2.0
		e_shot_vy(cnt) = sin(t) * 2.0
	break
	}
	loop
return

弾の発射するときの
敵の番号の数値が変わってしまってますね

if enemy_y(cnt) = 100.0{
		enemy_num=cnt
		gosub*e_shot_search
}

　　　・
　　　・
　　　・

*e_shot_search
	repeat enemy_max
if e_shot_f(cnt) = 0{
	e_shot_f(cnt) = 1
		e_shot_x(cnt) = enemy_x(enemy_num)
		e_shot_y(cnt) = enemy_y(enemy_num)

enemy_numを追加してみました

できました