HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2015
1109
スクリプトの書き方2解決


リンク

2015/11/9(Mon) 23:19:50|NO.72899

前回の質問で、ちゃんと自機を狙ってくれる弾を打てるようにするのは組めたのですが、
今度は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



この記事に返信する


k

リンク

2015/11/9(Mon) 23:53:23|NO.72904

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

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を追加してみました



ζ

リンク

2015/11/11(Wed) 22:58:29|NO.72949

できました



ONION software Copyright 1997-2021(c) All rights reserved.