HSPTV!掲示板

はじめまして。
僕は今縦シューティングを作成しています。
とても簡素ながら大まかなシューティングの要素は抑え、
残すところは敵のバリエーションや動きの考察、敵を配置しステージを構成するのみとなりました。
まぁここからが本当のヤマ場かもしれませんが・・・

前置きはこの辺にして、今回投稿させて頂いた理由はタイトルにもあるように、敵の動きについてです。
敵が現れたら自機の方向を向く様にしたいのですが、良い方法が思いつきません。
一つ二つ考えたのですが、角度やラジアンとか言うのがちんぷんかんぷんで、どうもうまくいきません。
皆様、良いアドバイスをお願いします。
出来れば下のソースを、画像の頭が赤い●を常に遅れて向くように書き改めて頂ければ、至極幸です。


buffer 3
picload dir_exe+"/sample/game/face.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

mx=320.0 ; X座標
my=240.0 ; Y座標
msp=4.0 ; スピード
mr=0.0 ; 角度
mrsp=0.1 ; 角度回転スピード
zix=310
ziy=320
*main
redraw 0 ; 描画始め

color 0,0,64
boxf ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,mr ; 画像コピー
color 255,0,0
pos zix,ziy
mes "●"

redraw 1 ; 描画終わり
await 20
stick key,15


if key&1 : zix-5 //
if key&4 : zix+5 // 赤い丸を動かす
if key&2 : ziy-5 //
if key&8 : ziy+5 //
//
//
//
//加筆するのはこの辺りでしょうか？
//
//
//

;if key&1 : mr-=mrsp // 一応保留
;if key&4 : mr+=mrsp //
;if key&2 : mgo=msp : goto *main2 //
;if key&8 : mgo=-msp : goto *main2 //

goto *main
*main2 ; 直進
rot=mr-1.57079632
mx=limitf( mx+cos(rot)*mgo, x1, x2 )
my=limitf( my+sin(rot)*mgo, y1, y2 )

goto *main


完全HSP付属のサンプルからのパクリで、相違点も多くは無いのですが・・・

HSP開発Wikiには敵をある方向に追いかけさせるためのモジュールが幾つか公開されてますよ。

目的の点を追いかける
http://hspwiki.nm.land.to/?cmd=read&page=%BE%AE%A5%EF%A5%B6%2F%B2%E8%C1%FC%BD%E8%CD%FD%2F%CC%DC%C5%AA%A4%CE%C5%C0%A4%F2%C4%C9%A4%A4%A4%AB%A4%B1%A4%EB&word=Forrow

敵がマウスを追跡する
http://hspwiki.nm.land.to/?%C5%A8%A4%AC%A5%DE%A5%A6%A5%B9%A4%F2%C4%C9%C0%D7%A4%B9%A4%EB

追跡騨
http://hspwiki.nm.land.to/?%C4%C9%C0%D7%C2%CD





追跡騨が一番すばらしいかもしれません。

>Yuさん
質問するだけでいっぱいいっぱいなのかも知れませんが、投稿した後も自分の投稿は見直してください。
スクリプトの投稿するときの三ヶ条(削除用パスワードの左側の 1, 2, 3 です)の特に3番目を実施してください。

余談：
三ヶ条の3番目の書き方って「HTMLなどの書き方を知ってる人なら分かるだろう」というのが前提にあるような気がします。
「囲う」ではなく、囲った状態のものを見せたほうが手っ取り早い気がしますが、ほとんどの場合、やっぱり質問するので頭がいっぱいだとか、面倒だとかなのでしょうか...。
閉じ忘れて失敗することもありますが、私はその都度、本文コピー -> 投稿削除 -> コピーしたものを修正して再投稿、というようにやってます。

kz3さんすいません。
急いでたのか寝ぼけてたのか分かりませんが、見落としていました。
今度から心がけたいと思います。
Asさん、違うのです・・・
今回は、誘導弾とか自機を追尾するとかではないのです。
読み辛くてすみません・・・
探すのが下手なだけかもしれませんが、自分が探した中では、
ネット上でこの質問に対する答えは見つかりませんでした。
確か、この掲示板のログにもそれに類するようなものはありませんでした。
もしかするとこの質問の内容は、説明するほどでも無い、とても初歩的な事だったりするのでしょうか・・・
まぁそれは良いとして、今度は詳しく分かりやすいように例で説明します。

▼の形をした敵機がいたとし、下を向いてる頂点が弾を発射する銃口だとします。
●の形をした自機が敵機▼の右下45度にいたとします。
敵機▼は弾を自機●に当てるため、随時自機●の方向を向いていなければなりません！
その敵機▼が、自機●の方向を向いているにはどうすれば良いのかが分からないのです。
どうか、何か直接的なヒントをお願いします。

ematanという命令を使えばできます。
でも古いパソコンだと動作が重くなるかも。

mes "●"

の前に

mr=atan(ziy-my,zix-mx)+2

を追加してみてください。

補足ですが、Googleで検索するとき、

"*の方向を*かせる"

という風に検索すると、「*」のところがなんでもいい文字列でもマッチするように
なります。

おぉ 皆さんありがとうございます。
とても参考になります。
Asさんの方法で、遅らせて●の方向を向かせたいと思った自分は、mes "●"の下の部分を

	mr2=atan(ziy-my,zix-mx)+2

	if mr<mr2 : mr+mrsp
	if mr>mr2 : mr-mrsp

としてみたのですが、一回転したところで数が変わってしまうので、うまくいきません。
どのようにすれば、滑らかについていくのか、これもまたお願いします・・・

*main の前に

ex=zix-mx
ey=ziy-my

mes "●"

redraw 1

の間に

mes "●"
title ""+(ex)+" "+(ey)

if (ex>zix-mx+2)|(ex<zix-mx){

	if ex<zix-mx{
		ex+2
	}else{
		ex-2
	}
}
if (ey>ziy-my+2)|(ey<ziy-my){
	if ey<ziy-my{
		ey+2
	}else{
		ey-2
	}

}
mr=atan(ey,ex)+2

なるほどぉ Asさん、ありがとうございます。
問題は解決しました。
他にも色々と参考になりました。
質問にお答え頂いた皆様、どうもありがとうございました。
またわからない事等がありましたら、ちょくちょくここを利用したいと思うので、これからもよろしくお願します。