HSP - Hot Soup Processor [13]

**名前は開発中のものです。** · 2006/08/08(火) 04:26:45

　　　　　　 (　 ,,,)
　　　　　　 .( 　,,)　　　　　　スクリプト言語 HotSoupProcessor について
　　　　　　　 ( ,,).　　　　　ゲーム製作の視点から、また～りと語り合うスレ。
　　　　　, -──- ､
　　　　（,;::-──-; ）-､
　　　 .|｀￣￣￣´;;|ヽ l　　　* 質問する前に検索してみる事
　　　　 l;　　　　:::;;;l-' /　　　* ｦﾁ、ﾈﾀなどはスレ違い
　　　 ,-ヽ───.'-､´..　　　* 歴代スレ、関連サイトは >>2-4 あたり
　　　ヽ ──── '

　　ONION software　（本家）
　　　http://www.onionsoft.net/

**名前は開発中のものです。** · 2006/09/05(火) 02:36:36

>>261
馬鹿か？

>おにたまも対応するようにすべき。
だから各アンチウイルスソフトに対応を求めたんだろうが。
アンチウイルスソフトはウイルスを駆除するソフト。
ウイルスではないソフトが誤検知されてしまうから対応してほしいとフィードバックしただけだ。

>こんなに多くのアンチウィルスソフトでウィルスと検知されてしまうというのは
>ある意味、欠陥品だろ。
逆だ。そのアンチウイルスソフトが欠陥品なんだよ。
理由は上に書いたが、アンチウイルスソフトはウイルスを検知するソフトだから。

**名前は開発中のものです。** · 2006/09/05(火) 03:48:34

>>261
何も問題ないコードを、ウイルスとして検出するのが
問題だってのが分からないのか・・・
同じコードがある他のソフトが出てきたら今度はどうすんだ？
定義ファイルに合わせてソフト開発しろとでも言う気か？

>フリーだからその辺大目に見るが、これが市販品ならクレームもんだ。
クレームに対応して対策を求めたんだろアホ？
それに市販品なら尚更アンチウイルス開発会社は
定義ファイルを修正するつーの

対応しないアンチウイルス開発会社は、HSP使用者に返金するって言ってるじゃん
HSP側が対応するべきならこんな事しねーだろ

**名前は開発中のものです。** · 2006/09/05(火) 05:26:36

ウィルスじゃないものをウィルスと誤認するアンチウィルスが問題だろ。
対策するしないは会社側の自由だが少なくともHSP側に責任はない。

**名前は開発中のものです。** · 2006/09/05(火) 06:49:41

3.0以降で作った分には問題ないんじゃなかったっけ？

**名前は開発中のものです。** · 2006/09/05(火) 13:01:28

3は別に問題ない。

>おにたま自身フリーだから自分は直さない
仮にHSP側が対策をしたとしてどうなるんですか？アンチウイルス
ソフト側も対応しないと、ウイルスでもなんでもない誤反応実行
ファイル自体はネット上にずっと存在し続けることになりますよ。

**名前は開発中のものです。** · 2006/09/05(火) 16:01:23

どうみても261が釣りとしか思えないのは俺だけか。

**名前は開発中のものです。** · 2006/09/05(火) 16:12:41

アンチウィルスというより、アンチＨＳＰですな

**名前は開発中のものです。** · 2006/09/05(火) 16:29:20

>>268
・・・え？

**名前は開発中のものです。** · 2006/09/05(火) 16:45:39

残念だけど、世の中には致命的に頭の悪い輩というものが、確実に存在するんだ。

**名前は開発中のものです。** · 2006/09/05(火) 19:10:56

まあ、アンチウィルスソフトについて、「変なプログラムを自動的に判定するツール」とでも思ってるんだろうね。
ｶﾜｲｿｰｽﾈｸｽﾄ

**名前は開発中のものです。** · 2006/09/05(火) 19:13:25

↑自動的に（予備的データなしで）判定するツール　ってニュアンスで

**名前は開発中のものです。** · 2006/09/05(火) 21:51:58

もしかして内緒（ハート）でディレクトリ構造を送信するコードでも
入ってるのでは・・・なんつって
どんなウイルスと同じだと判断されてるんでしょう。

**名前は開発中のものです。** · 2006/09/05(火) 22:05:19

HSPで作られたウィルスを対策したから…とかが理由なんだろうか

**名前は開発中のものです。** · 2006/09/05(火) 22:53:24

>>274
そうだよ。
中学生が作った簡単なトロイだけどね

**名前は開発中のものです。** · 2006/09/05(火) 22:59:06

ZGP使いとかは大変そうだな

**名前は開発中のものです。** · 2006/09/06(水) 18:02:29

HSPでDirectX使えますか

**名前は開発中のものです。** · 2006/09/06(水) 18:49:21

プラグインでありますた

**名前は開発中のものです。** · 2006/09/06(水) 23:42:45

HSPでXBOX360のゲームが作れるプラグインを作ろうと頑張っているのですが、
まずはどうやってMSに侵入すれば良いでしょう？
わかりあｍせん＞＜

**名前は開発中のものです。** · 2006/09/06(水) 23:45:37

良い大学卒業して、技術を身につけてＭＳに入社すればいいと思うよ！

**名前は開発中のものです。** · 2006/09/06(水) 23:46:04

#include "XNA.dll"

**細木数子** · 2006/09/08(金) 20:00:53

>>279
あなたは火星人＋だから無理ね

**名前は開発中のものです。** · 2006/09/08(金) 20:03:06

人種差別ｷﾀｽ

**名前は開発中のものです。** · 2006/09/08(金) 22:15:24

私は火星人刑事（30）ッ！

**名前は開発中のものです。** · 2006/09/13(水) 11:23:10

hspで作ったゲームにネットランキング機能実装させるにはどうしたらいいんだぜ？
ヒントだけでもいいんだぜ？もし暇があればでいいから教えてほしいんだぜ？

**名前は開発中のものです。** · 2006/09/13(水) 11:50:01

hspsock もしくは hspinet　で HTTPプロトコル使いなされ。
サンプルはhsp3のフォルダにあるから。

**名前は開発中のものです。** · 2006/09/13(水) 16:42:27

PACKFILEを作るときにincludeしたファイルも選択する必要があるんでしょうか？

**名前は開発中のものです。** · 2006/09/13(水) 19:02:16

ないよ

**名前は開発中のものです。** · 2006/09/14(木) 19:31:53

ないあるよ

**名前は開発中のものです。** · 2006/09/14(木) 22:48:44

>>289
あるのかないのかどっちなんだ

**名前は開発中のものです。** · 2006/09/14(木) 23:00:11

そもそもID:4HOORoqoはソースファイルはインクルードするものだと思っているのだろうか。

**287** · 2006/09/14(木) 23:20:16

ないんですよね、ありがとうございました

**287** · 2006/09/14(木) 23:25:10

>>291
内容ごとに分けて.hspファイルを何個も作って
main.hspにincludeして見やすくしているんですがおかしいんでしょうか？

**名前は開発中のものです。** · 2006/09/14(木) 23:40:25

どう見ても書き間違いです。
本当に有難うございました。

**名前は開発中のものです。** · 2006/09/15(金) 19:16:33

それはメインじゃなくてスクリプトインテグレータだ！
si.hspってファイル名を変えろ！
謝れ！

**名前は開発中のものです。** · 2006/09/15(金) 23:25:39

その名はこのスレでしか見たことがないのだが、
一般的なのか？

**名前は開発中のものです。** · 2006/09/16(土) 00:45:27

emsinの命令が文法が間違っていますのエラーではじかれます
操作するキャラクターを回転させて、前進させたいのですが、
emsin以外の方法、もしくはエラーの解決法はありますか？
OSはXP、hspext.asは同じフォルダに入れています

**名前は開発中のものです。** · 2006/09/16(土) 02:52:35

>>297へ適当レス
変数の型や配列の要素に問題は無い？

**名前は開発中のものです。** · 2006/09/16(土) 16:40:49

>>297へ適当レス
それemsinの前に全角スペース入ってんだよ。

**名前は開発中のものです。** · 2006/09/16(土) 18:19:18

>>297へ適当レス
悪いことはイワンいいかげんHSP3にしとけ

**名前は開発中のものです。** · 2006/09/16(土) 19:19:47

糞入って風呂して寝ろ

**名前は開発中のものです。** · 2006/09/16(土) 22:28:49

"スクリプトインテグレータ"でググるとこのスレがひとつ引っかかるだけｗ

**297** · 2006/09/17(日) 01:14:14

適当レスありがとう
原因わかりました、hspectの拡張子間違ってました
盲点でした、よく確認せずにすいません
レスしてくれた方、ありがとうございます

**名前は開発中のものです。** · 2006/09/17(日) 08:00:50

vectorは協賛やめたんだろうか
2006年のにはバナーがないよ

**名前は開発中のものです。** · 2006/09/17(日) 08:14:39

細かいところ、よくみてるな。
2005年だけ協賛してたみたいね。
協賛しても、あまり意味ないと気づかれたか。

**名前は開発中のものです。** · 2006/09/17(日) 14:57:02

>>302
むしろ該当ページが見あたりませんときた。

**名前は開発中のものです。** · 2006/09/17(日) 17:38:48

今のうちに商標登録したらよくね？

**名前は開発中のものです。** · 2006/09/17(日) 19:43:53

/*

#module "hage"

#uselib "gdi32.lib"
#func AddFontResourceEx "AddFontResourceExA" sptr, sptr, sptr
#func RemoveFontResourceEx "RemoveFontResourceExA" sptr, sptr, sptr

#const WM_FONTCHANGE 0x001D
#const FR_PRIVATE 0x10
#const HWND_BROADCAST 0xffff

#deffunc add_font str _adf_FontName
　　 AddFontResourceEx _adf_FontName, FR_PRIVATE, 0
　　 status = stat
　　 if (status = 0) { return (status) }
　　 else { sendmsg hwnd, WM_FONTCHANGE, 0, 0 }
　　 return status

#deffunc remove_font str _rmf_FontName
　　 RemoveFontResourceEx _rmf_FontName, FR_PRIVATE, 0
　　 status = stat
　　 if (status = 0) { return (status) }
　　 else { sendmsg hwnd, WM_FONTCHANGE, 0, 0 }
　　 return status

#global

なソースで AddFontResourceEx が関数呼び出しに失敗しちゃうのだけれどもなんでじゃろ。
RemoveFontResourceEx の方はいけるんだけれども。

*/

**名前は開発中のものです。** · 2006/09/18(月) 01:10:19

gdi32.lib → gdi32.dll

とか。

**名前は開発中のものです。** · 2006/09/18(月) 07:22:22

98とかNTだから動かないとか？

**名前は開発中のものです。** · 2006/09/18(月) 23:25:24

ハゲの呪いがかかってるとか？

**308** · 2006/09/20(水) 19:03:11

**308** · 2006/09/20(水) 19:05:34

やっと規制はずれた！
とまぁ 309 のとおりでした。
ありがとうございました。

**名前は開発中のものです。** · 2006/09/22(金) 21:07:31

作ってる人には悪いけど、今年のコンテストは
糞な３Ｄゲームがたくさん増えてダウンロードするのが
少しうんざりしてきたけど皆さんはどうですか？

**名前は開発中のものです。** · 2006/09/22(金) 23:05:07

pazzle reversiってゲームのlevel10わかるわけねぇ

**名前は開発中のものです。** · 2006/09/23(土) 21:34:25

hsp3
あとは構造体があればなぁ…

って似たようなの追加されてたか

**名前は開発中のものです。** · 2006/09/23(土) 23:45:41

次はガーベージコレクションとか

**名前は開発中のものです。** · 2006/09/24(日) 12:15:24

うぅ・・・質問なんだが・・・
MIA氏のDirectSoundを使う例のプラグインを無理やりHSP3で使ってみたんだが、
ds_load2が
ds_load2 "sound.wav",4,5000,10000
とか書いてもエラーで「変数が指定されていません」とかなる。
で、p1に変数を書くとエラーはでないんだが音が鳴らない。

なぜ？

**名前は開発中のものです。** · 2006/09/24(日) 12:37:39

(・D`)ミァ

**名前は開発中のものです。** · 2006/09/24(日) 12:49:12

>>318
馬鹿め！！

**318** · 2006/09/24(日) 13:22:05

HSP2の本家の過去ログで自己解決した・・・orz

**名前は開発中のものです。** · 2006/09/24(日) 21:02:51

一定時間操作しないでいると自動ログオフするウザい機能付きアプリがあるんだけど、
それを一定間隔でアクセスして防ぐプログラムってHSPで作れるかな？

**名前は開発中のものです。** · 2006/09/24(日) 21:20:13

３D囲碁？

**名前は開発中のものです。** · 2006/09/25(月) 07:07:00

そのアプリのハンドル捕まえて
キーイベントを送ればいいんじゃね？

テキトーな知識しかないんで地震は無いがｗ

**名前は開発中のものです。** · 2006/09/25(月) 08:10:33

ってaplselとaplkeyでできるな

**名前は開発中のものです。** · 2006/09/25(月) 13:48:44

サーバーの負荷を減らすためにログオフさせてるなら
そういうソフトは迷惑なだけでわ

**名前は開発中のものです。** · 2006/09/25(月) 21:20:33

いやセキュリティ的な意味合いでログオフするんだ

>>325
まりがとう

**名前は開発中のものです。** · 2006/09/25(月) 22:23:31

☆★レシピ板にバカ女が降臨しましたよ、まだまだ間に合いますよ★☆　
http://food6.2ch.net/test/read.cgi/recipe/1157670450/l50
　
【胡椒】料理の画像をうｐしよう part1【油】　
　
ある男がパンチラ画像ねだる→パンチラくらいならと画像うp→住人に乗せられる→パイチラもうp　
ちやほやされる→だんだん過激に→しかし画像の消し方を知らない事が判明　
プチ祭りに　
　
596:まなみタン　:2006/09/25(月)06:19:23 ID:5Z9t6N3U
llii|ili(つω-｀。)illl||ill うえ～ん誰か消し方教えてぇ～

**名前は開発中のものです。** · 2006/09/26(火) 20:38:04

システム変数のmousew、WM_MOUSEWHEELメッセージを
つかまえたときにチェックすると、最後の回転のホイール
移動量じゃなくて、その一つ前の回転の移動量がセットされ
てる気がする。漏れmousewの使い方間違えてる？

**名前は開発中のものです。** · 2006/09/26(火) 21:37:10

>>329
もしかしてお前ってこいつらの一味？
http://yarhalla.jpn.org/yarhalla/multi-board/multi-board.cgi?button=res&restop=52&showpass=

**329** · 2006/09/27(水) 07:40:07

そんなサイト知らんよ。漏れは特に目的なく動作テスト
してて変だなと思ったから聞いてみただけ。なじぇ？

**329** · 2006/09/27(水) 07:46:17

今ふと気づいたんだが、自分でWM_MOUSEWHEEL捕まえると、
HSPより先に処理することになるから、mousewが更新されてない
だけか。

でもそれじゃmousewってどういうタイミングで使うものなんだ？

**名前は開発中のものです。** · 2006/09/27(水) 16:30:54

ループ中に監視するとか？

**名前は開発中のものです。** · 2006/09/27(水) 16:47:18

なるほど。参照するごとにクリアされる仕様だからそれでもいけるんだね。

**名前は開発中のものです。** · 2006/09/27(水) 22:17:48

>>332
>HSPより先に処理することになるから、mousewが更新されてない
なんか勘違いしてるな
mousewは、awaitとかwinにタスクを移した時に、拾って来てる
だから、mousewを読み取るタイミングは、関係ない

一分前にしかawait入れてなかったら一分未満にフォイール動かしていても
mousewでその結果を読み取れない

**名前は開発中のものです。** · 2006/09/28(木) 00:19:52

誘導弾について、詳しいサイトとかありますか？
発射地点から、到達点までの座標が固定のゴルフの様な
弾道をプログラムしたいのですが

**名前は開発中のものです。** · 2006/09/28(木) 00:59:07

親切な俺（中卒ニート童貞）が答えてやろう。

弾の座標をそれぞれ、 double x , y
弾の移動値をそれぞれ、 double ax,ay
発射座標をそれぞれ (const) int sx, sy
目標座標をそれぞれ (const) int ox, oy
とする。
弾が複数あるならば、x,y及びax,ayは予め、配列変数として宣言しておく。
変数の領域が勿体無いので、存在フラグは『xの値が-90000以上』とかにしておけ。

変数の初期化は、
x=-90001
これやらないと初期化してない奴が動くから注意。

弾の初期化は、
x=sx : y=sy ;弾の座標を発射座標にセット
;距離を求める
tmp1=ox-sx : tmp2=oy-sy
tmp3=sqrt((tmp1*tmp1)+(tmp2*tmp2))
;発射地点から目標までの差分を距離で割り、それを移動値とする
;必要ならスピード定数を掛ける。
ax=tmp1/tmp3 : ay=tmp2/tmp3

で、移動だが、超シンプル。移動値を足すだけ。
if(x>-90000){ x+=ax : y+=ay }

後はフレーム毎、弾の座標を調べて、弾を開放しなければならないなら、フラグを弄る。
これくらいかな。
あと適当に書いたから、単純にコピペじゃエラー出るかも。
間違ってたら釣りだと思ってくれ。

**名前は開発中のものです。** · 2006/09/28(木) 01:07:55

だが断る。
ありがとう。
俺は初心者すぎて、ルフィ状態です
なにいってんだおめぇ、ぶっとばすぞ
という気持ちだった。

**名前は開発中のものです。** · 2006/09/28(木) 01:16:10

これをさらに解説してくれ

*GENERATE;dx,dy,u は一時変数です。
dx=tx-mx : dy=ty-my
txv=dx : tyv=dy

if dx<0 : dx=0-dx
if dy<0 : dy=0-dy
du=dx : if du<dy : du=dy
if du=0 : return

txv=txv*tv/du
tyv=tyv*tv/du
return
解説。

まず座標差を求めます。(dx,dy)
絶対値を比較して大きいほうをとります。(du)
座標差に弾の速度を掛けて、それを du で割ります。

**名前は開発中のものです。** · 2006/09/28(木) 01:19:29

>>339
これはDDA（デジタル微分解析器）を使ったアルゴリズムだね。
俺が挙げた奴の方が理解がたやすいから、それはあんたには速すぎる。

**マンピー・Ｄ・ウキー** · 2006/09/28(木) 01:33:11

なに言ってんだおめぇ
とりあえず、ＡからＢに1ドットの点を移動するの書いてくれ
↓やってみたが、ダメだった

tx=0
ty=400
mx=500
my=50
tv=1
color 0,0,255
repeat
cls
pset txv,tyv
mes txv
mes tyv
gosub *GENERATE
wait 10
loop

*GENERATE;dx,dy,u は一時変数です。
dx=tx-mx : dy=ty-my
txv=dx : tyv=dy

if dx<0 : dx=0-dx
if dy<0 : dy=0-dy
du=dx : if du<dy : du=dy
if du=0 : return
txv=txv*tv/du
tyv=tyv*tv/du
return

**マンピー・Ｄ・ウキー** · 2006/09/28(木) 01:38:28

なんか自力でサイト調べてもＨＳＰ２のサンプルばかりで
ＨＳＰ３で動かない事が多い。

**名前は開発中のものです。** · 2006/09/28(木) 01:56:23

少しは頭使おうぜ？
randomize
#define sx200.0
#define sy200.0
screen 0,400,400
*@
x=sx : y=sy
ex=rnd(200) : if(ex>99) : ex+=200
ey=rnd(200) : if(ey>99) : ey+=200
tmp1=sx-ex : tmp2=sy-ey :tmp3=sqrt((tmp1*tmp1)+(tmp2*tmp2))
xv=0.0+tmp1*3/tmp3 : yv=0.0+tmp2*3/tmp3

repeat : redraw 0 : color 0xFF,0xFF,0xFF : boxf
pos ex,ey : color 0xFF,0,0 : print "●"
pos x,y : color 0,0,0 : print "●"
if(x<0|x>400|y<0|y>400){break}else{x-=xv : y-=yv}
await 10 : redraw 1 : loop

goto *@back

**名前は開発中のものです。** · 2006/09/28(木) 01:59:16

間違い。
#define sx200.0
#define sy200.0
↓
#define sx 200.0
#define sy 200.0

**マンピー・Ｄ・ウキー** · 2006/09/28(木) 02:06:35

343すごいかもｗ
俺が今作った誘導は…
screen 0
color 0,0,0
kx=100
ky=400;初期位置
tx=600
ty=150;到達点

repeat 50
pset kx,ky
gosub *ido
if ky<ty:mes "すとっぷ":goto *eee
wait 6
loop
stop

*ido
kx+=10
ky-=10
return
stop

*eee
stop

**名前は開発中のものです。** · 2006/09/28(木) 02:11:22

分かったからで直して来いよ（´・ω・`）

**マンピー・Ｄ・ウキー** · 2006/09/28(木) 02:16:12

ただ、343そのままじゃ使えない、ランダムとかイラナイし。
到達座標はゲーム進行上で決まるんで、
もっとシンプルになりませんか？
ＡからＢに当るだけでいい

**マンピー・Ｄ・ウキー** · 2006/09/28(木) 02:19:12

あ、こうやって指定すれば良いんだ？
ただ、途中で消えちゃうナー
ex=500
ey=100
x=300
y=300

**名前は開発中のものです。** · 2006/09/28(木) 02:19:24

要らない部分は自分で削るぐらいはしようぜ（´・ω・`）

**マンピー・Ｄ・ウキー** · 2006/09/28(木) 02:29:24

だな、今まで概念も理解できなかったが、
ちょっと解ってきたぞ
つまり、ＡからＢへの移動量を割る事によって
ＸやＹの増加量を配分していってるわけだな

**マンピー・Ｄ・ウキー** · 2006/09/28(木) 02:34:53

#define sx 200.0
#define sy 200.0

↑これのせいで、開始座標に制限されてる？

screen 0,640,480
ex=300
ey=200
x=100
y=500

**マンピー・Ｄ・ウキー** · 2006/09/28(木) 02:52:33

if(x<0|x>450|y<0|y>450){break}else{x-=xv : y-=yv}
これがよくわかんねーな

**名前は開発中のものです。** · 2006/09/28(木) 08:18:13

>>335
レスどうも。(a)wait入れたループでmousewチェックする方法ならうまくいき
ました。

stopでスクリプトを止めといて、WM_MOUSEWHEELが来たときにmousewを
チェックすると更新されてないのは、returnしてstopに戻ったときに更新される
って感じなんですかね。

結局WM_MOUSEWHEEL自分で捕まえるならmousew見なくてもwparam
から取得できるだろうが！って話ですが。

**名前は開発中のものです。** · 2006/09/28(木) 11:52:26

randomize
screen 0
v = 8.0 : sx = 0.0 : sy = 0.0; 弾の速度、発射位置ｘ、発射位置ｙ
gosub *init

*main_loop
redraw 1 : await 10 : redraw 0 : cls 0
pos tx,ty : color 0xFF,0,0 : print "●"
pos x,y : color 0,0,0 : print "●"
x += vx : y += vy; 弾移動
//範囲外に出たら位置を変えてやり直し//
if(x<0|x>640|y<0|y>480) : gosub *init
getkey key_ret,27
if key_ret = 1: end; 「ESCキー」で処理を終了
goto *main_loop

*init
x = sx
y = sy
tx = 50.0 + rnd(300); 目標位置ｘ
ty = 50.0 + rnd(300); 目標位置ｙ
dx = tx - sx
dy = ty - sy
l = sqrt((dx*dx) + (dy*dy)); 目標までの距離
t = l / v; 目標到達までの時間
vx = dx / t; 単位時間当たりのｘ変化量（速度のｘ成分）
vy = dy / t; 単位時間当たりのｙ変化量（速度のｙ成分）
return

**354** · 2006/09/28(木) 22:44:24

コメント書き忘れてた。
>>343 勝手に弄らせてもらった。気に障ったらスマン。
やってることは基本的に変わらんのだけど、そのままだとどうも上手く動いて
いないようだったので、自分好みの書き方に書き直してある。

**マンピー・Ｄ・ウキー** · 2006/09/29(金) 00:37:18

>>354
やってみたけど、描画処理がやっつけにしたってＬｖ低くないか？
チカチカする。
あと、ターゲット決まってるんだからさぁ
当り判定とか、加える手間省いて、到達点で消したいよな

**マンピー・Ｄ・ウキー** · 2006/09/29(金) 00:49:39

とりあえず、俺は俺の望む物に到達したよ、有難う。
コレをベースに、あとは揺らぎを導入したいわ

randomize
#define sx 300.0;発射位置？
#define sy 300.0
screen 0,640,480
ex=380;ターゲット座標
ey=100
x=200;発射位置？
y=300
*ss
x=sx : y=sy
tmp1=sx-ex : tmp2=sy-ey :tmp3=sqrt((tmp1*tmp1)+(tmp2*tmp2))
xv=0.0+tmp1*3/tmp3 : yv=0.0+tmp2*3/tmp3
repeat
redraw 0
color 0,0,0
boxf
pos ex,ey
color 0,0,255 : print "◎" ;ターゲット
color 255,0,0
pset x,y
pset x+1,y+1
pset x+1,y-1
pset x-1,y-1
pset x-1,y+1
if(ex=x|ey=y){break}else{x-=xv : y-=yv}
await 1
redraw 1
loop
goto *ss

**マンピー・Ｄ・ウキー** · 2006/09/29(金) 01:00:11

あれ、なんかちゃんと当らないんだが、なぜよ？

screen 0,640,480
sx=250;発射位置？
sy=350
ex=450;ターゲット座標
ey=200
*ss
x=sx : y=sy
tmp1=sx-ex : tmp2=sy-ey :tmp3=sqrt((tmp1*tmp1)+(tmp2*tmp2))
xv=0.0+tmp1*3/tmp3 : yv=0.0+tmp2*3/tmp3
repeat
redraw 0
color 0,0,0
boxf
pos ex,ey
color 0,0,255 : boxf ex,ey,ex+10,ey-10;ターゲット描画
color 255,0,0
pset x,y;弾描画
pset x+1,y+1
pset x+1,y-1
pset x-1,y-1
pset x-1,y+1
if(ex=x|ey=y){break}else{x-=xv : y-=yv} ;消える条件？
await 1
redraw 1
loop
goto *ss

**名前は開発中のものです。** · 2006/09/29(金) 01:10:17

>>356 wait位置を間違えてた。　これで満足か？　
randomize
screen 0
v = 4.0 : sx = 0.0 : sy = 0.0; 弾の速度、発射位置ｘ、発射位置ｙ
gosub *init

*main_loop
await 16 : redraw 1 : redraw 0 : color 0xFF,0xFF,0xFF : boxf
pos tx,ty : color 0xFF,0,0 : print "●"
pos x,y : color 0,0,0 : print "●"
x += vx : y += vy; 弾移動
//範囲外に出たら位置を変えてやり直し//
if(x>tx|y>ty) : gosub *init
getkey key_ret,27
if key_ret = 1: end; 「ESCキー」で処理を終了
goto *main_loop

*init
x = sx
y = sy
tx = 50.0 + rnd(300); 目標位置ｘ
ty = 50.0 + rnd(300); 目標位置ｙ
dx = tx - sx
dy = ty - sy
l = sqrt((dx*dx) + (dy*dy)); 目標までの距離
t = l / v; 目標到達までの時間
vx = dx / t; 単位時間当たりのｘ変化量（速度のｘ成分）
vy = dy / t; 単位時間当たりのｙ変化量（速度のｙ成分）
return

**マンピー・Ｄ・ウキー** · 2006/09/29(金) 01:12:21

>>359
あ、イイかも
シンプルだな。

**マンピー・Ｄ・ウキー** · 2006/09/29(金) 01:20:24

>>359を俺の都合で変えると動かないんだ、なんで？

screen 0,640,480
v = 4.0 : sx = 200 : sy = 300; 弾の速度、発射位置ｘ、発射位置ｙ
gosub *init
*main_loop
await 16 : redraw 1 : redraw 0 : color 255,255,255 : boxf
pos tx,ty : color 255,0,0 : print "◎"
pos x,y : color 0,0,0 : print "●"
x += vx : y += vy; 弾移動
//範囲外に出たら位置を変えてやり直し//
if(x>tx|y>ty) : gosub *init
goto *main_loop

*init
x = sx
y = sy
tx = 500 ; 目標位置ｘ
ty = 50 ; 目標位置ｙ
dx = tx - sx
dy = ty - sy
l = sqrt((dx*dx) + (dy*dy)); 目標までの距離
t = l / v; 目標到達までの時間
vx = dx / t; 単位時間当たりのｘ変化量（速度のｘ成分）
vy = dy / t; 単位時間当たりのｙ変化量（速度のｙ成分）
return