HSP - Hot Soup Processor [14]

**名前は開発中のものです。** · 2006/12/09(土) 22:35:08

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

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

**名前は開発中のものです。** · 2007/03/29(木) 10:39:59

ちっちゃい窓画面と二倍表示の窓画面の切り替えをしたくて、

#deffunc draw int dispbuf
getkey key,112
if key {
　if key_on = 0 {
　　if wsize {
　　　wsize = 0
　　　screen 0,320,240,0,(ginfo_dispx / 2 - 160),(ginfo_dispy / 4) : cls 4
　　} else {
　　　wsize = 1
　　　screen 0,640,480,0,(ginfo_dispx / 2 - 320),(ginfo_dispy / 4) : cls 4
　　}
　　key_on = 1
　}
} else : key_on = 0

gsel 0 : pos 0,0
if wsize = 0 : gcopy dispbuf,0,0,320,240
if wsize = 1 : gzoom 640,480,dispbuf,0,0,320,240
gsel dispbuf
return

「dispbufに全部描画したあとスクリーンに(拡大)コピーする」
っていう命令を作ってredrawの代わりに使ってるんだけど
なんか他にもっと簡単な手段とか無いですか？

**名前は開発中のものです。** · 2007/03/29(木) 11:35:10

>>623
大きさ変えるだけならwidthでいいんじゃね？
あと、clsよりboxfの方がいい。

**名前は開発中のものです。** · 2007/04/01(日) 08:33:57

repeat -1
chp_zure.i = furehaba * sin((kakusokudo*cnt)+(kakudosokudo*i));正弦波？
i++
if i>chp_max : i=0
//ここでずらした位置に画像をコピー処理
loop

擬似ラスタスクロールで波が作りたいんですが、自分で作ったやつを見ると何故かカクカクしてしまいます。
ズレを画像の縦の座標１ピクセルごとに正弦波で作ってやって、それをその座標でコピーしています。

**名前は開発中のものです。** · 2007/04/01(日) 08:42:58

・redraw入れたか？
・変数名が酷いがどう思う？
・sin( kakusokudo * (cnt + i) )のほうがいいと思うけど何か？

**名前は開発中のものです。** · 2007/04/01(日) 10:45:02

>>626
redrawは入れました
読みずらくてすいません。

**名前は開発中のものです。** · 2007/04/01(日) 10:50:56

int型になってるとか

**名前は開発中のものです。** · 2007/04/01(日) 11:10:44

実数で計算して最終的にint()を呼び出して変えてます。
一応左右には揺れるんですけど、波みたいに見えないんですよね
波の起こりが遅いように見えます

**名前は開発中のものです。** · 2007/04/01(日) 11:47:38

buffer 0
picload "test.jpg" //適当な画像
SZx = double(ginfo_winx)
SZy = double(ginfo_winy)
screen 1,SZx,SZy
kakusokudo = 0.05
furehaba = 0.0
dim chp_zure,SZy
i = 0
repeat
？repeat SZy
？？chp_zure(cnt) = furehaba * sin( kakusokudo * double(cnt + i) )
？loop
？redraw 0
？color 0,0,0 : boxf
？repeat SZy
？？pos chp_zure(cnt), cnt
？？gcopy 0,0,cnt,SZx,1
？loop
？redraw 1
？i += 5
？kakusokudo += 0.0001
？furehaba += 0.1
？await 16
loop

ちょっと書いてみた。こんな感じでいい？

**名前は開発中のものです。** · 2007/04/01(日) 11:57:28

;ﾓﾚも作ってみたﾖ

#define PI 3.1415926535897932386

w=32                ;波の強さ
t=128               ;波の間隔

buffer 2,640,480 :picload "",1
gsel 0
repeat
    repeat ginfo_winy
        x=sin(PI*((cnt*360/t+a)\360)/180)*w
        y=cnt
        pos x,y :gcopy 2,0,y,ginfo_winx,1
    loop
    redraw 1: redraw 2 :color 0,0,0 :boxf :color 255,255,255
    a+=16           ;波の速さ
    await 16
loop

**名前は開発中のものです。** · 2007/04/01(日) 12:05:42

ちょい修正
buffer 0
picload "test.jpg" //適当な画像
SZx = double(ginfo_winx)
SZy = double(ginfo_winy)
screen 1,SZx,SZy
kakusokudo = 0.05
furehaba = 0.0
dim chp_zure,SZy
i = 0
repeat
redraw 0
color 0,0,0 : boxf
repeat SZy
  chp_zure(cnt) = furehaba * sin( kakusokudo * double(cnt + i) )
  pos chp_zure(cnt), cnt
  gcopy 0,0,cnt,SZx,1
loop
redraw 1
i += 5   //スピード
kakusokudo += 0.0001 //振動数
furehaba += 0.1   //振れ幅
await 16
loop

**625** · 2007/04/01(日) 13:39:14

>>630
>>631
ありがとうございます。
初歩的な勘違いをいくつかしていたのが原因だったみたいでした。

あとできたら横揺れに縦揺れを追加する方法が知りたいんです。
一応疑問は解決したので、これはできたらでいいんですが

**631** · 2007/04/01(日) 14:01:50

   pos x,y :gcopy 2,0,y,ginfo_winx,1
　　　　　　↓
   pos 0,y :gcopy 2,0,x+y,ginfo_winx,1

こうすると縦揺れ(？)になるﾖ

   pos x,y :gcopy 2,0,x+y,ginfo_winx,1
　　　　　　↑で縦横

**名前は開発中のものです。** · 2007/04/01(日) 14:25:16

// 1/2

#define SZX_EXT 128 //揺れてはみ出た分
#enum BUF_IMG = 0
#enum BUF_SECOND
#enum SCR_MAIN

//元画像バッファ
buffer BUF_IMG
picload "D:\\画像\\ありがちな虹\\25666.jpg" //適当な画像
SZx = double(ginfo_winx)
SZy = double(ginfo_winy)
//横揺れ
buffer BUF_SECOND, SZx + SZX_EXT * 2, SZy
//メインウィンドウ
screen SCR_MAIN, SZx, SZy
//横揺れ用
dim chp_zure_x, SZy + SZX_EXT
kakusokudo_x = 0.05
furehaba_x = 0.0
//縦揺れ用
dim chp_zure_y, SZy
kakusokudo_y = 0.05
furehaba_y = 0.0
i = 0

**名前は開発中のものです。** · 2007/04/01(日) 14:26:08

// 2/2

repeat
redraw 0
//横揺れを描画
gsel BUF_SECOND
color 0,0,0 : boxf
repeat SZy
chp_zure_x(cnt) = furehaba_x * sin( kakusokudo_x * double(cnt + i) )
pos chp_zure_x(cnt) + SZX_EXT, cnt
gcopy 0, 0,cnt, SZx + SZX_EXT,1
loop
//縦揺れを描画
gsel SCR_MAIN
color 0,0,0 : boxf
repeat SZx + SZX_EXT
chp_zure_y(cnt) = furehaba_y * sin( kakusokudo_y * double(cnt + i) )
pos cnt, chp_zure_y(cnt)
gcopy BUF_SECOND, cnt + SZX_EXT,0, 1,SZx
loop
redraw 1
i += 5 //スピード
kakusokudo_x += 0.00001 //振動数
furehaba_x += 0.2 //振れ幅
kakusokudo_y -= 0.00001 //振動数
furehaba_y -= 0.2 //振れ幅
await 16
loop

**名前は開発中のものです。** · 2007/04/01(日) 23:23:00

>>624
亀だけど㌧

他には特になし、てことでいいのかな…

**名前は開発中のものです。** · 2007/04/02(月) 02:06:45

#define　変数　システム変数（cntとか）

って無理なんですかね？
コレができれば管理の手間が減らせそうなんだけど・・・

**名前は開発中のものです。** · 2007/04/02(月) 02:48:10

やってみればいいだろそれくらいなら

**名前は開発中のものです。** · 2007/04/02(月) 03:43:50

constも使おうよ

**名前は開発中のものです。** · 2007/04/02(月) 06:32:38

>>639
いえすでにやってみてエラーがでたんで、その回避か代替は可能かなと

>>640
#constでも、やはり変数を使ってる時点でエラーがでました

普通に需要がありそうな気がしたんですが、発想自体がイレギュラーだったのかな・・・

**名前は開発中のものです。** · 2007/04/02(月) 07:03:07

#define 変数 cnt

repeat 3
mes 変数
loop

;何を言っているのかよくわからないよ

**名前は開発中のものです。** · 2007/04/02(月) 07:51:02

ネストしても各cntが生きてる時点でアウトな気がする

**名前は開発中のものです。** · 2007/04/02(月) 08:30:49

#defineはただの置き換えだろ・・・同じ意味を持たせるってわけじゃないだろ・・・

**名前は開発中のものです。** · 2007/04/02(月) 10:16:27

>>641
>普通に需要がありそうな気がしたんですが、発想自体がイレギュラーだったのかな・・・
意味がわからね
何をするために必要なの？
意味あんの？

**名前は開発中のものです。** · 2007/04/02(月) 10:58:38

システム変数に値を代入したいとか...?

**641** · 2007/04/02(月) 18:20:22

;失礼しました・・・3D関係でオブジェクトIDというのが数字で割当てられているので
;それを名前で把握する為に#defineすると言うのが目的です。
;例えば
buf="pan","pin","pun","pen"

repeat 4
#define buf(cnt) ,cnt
loop

;という感じで、p2はp1に対応したオブジェクトIDを入れて使おうと思いまして。
;bufはメモリノートパッドで大量に読むので、その手作業を減らす為です。

**名前は開発中のものです。** · 2007/04/02(月) 18:26:35

repeat 4
#define buf(cnt) ,cnt
loop

無意味なループじゃね？いろいろと勘違いしてないか？

**641** · 2007/04/02(月) 20:21:16

・・・イヤそうじゃなくて・・・

>>647で書いたように、#defineが変数の中身を参照した使い方がしたいけど
仕様ではそれができない（変数自体使えない）んで、
その代わりになる方法はないでしょうか？という質問です。解りづらくてスミマセン

**名前は開発中のものです。** · 2007/04/02(月) 20:24:51

hoge = cnt

**名前は開発中のものです。** · 2007/04/02(月) 20:27:52

>>649
たぶん無理な気ガス。
どちらにしろ、#define はコンパイル前に置換するだけだから。

あえてやるなら、連想配列みたいな方法だと思うが。

オブジェクトＩＤと文字列が完全に固定なら、
repeat 4
mes "#define "+buf(cnt)+" "+cnt
loop
みたいにヘッダファイルを書き出してから、それをインクルードするｗ

**641** · 2007/04/02(月) 20:44:30

お答えありが㌧です。

やはり私の発想はどこか飛んでたようですね。あきらめてまた一から
違う管理方法を考えます

**名前は開発中のものです。** · 2007/04/02(月) 22:21:02

http://nextbm.ty.land.to/index.htm

毎月HSP掲示板に来てたのが廃刊してくれたそうだｗ
理由がワロスｗ

**名前は開発中のものです。** · 2007/04/02(月) 22:31:48

>>647
オブジェクトIDは何が割り当てられるか不定で
使う時には名前でIDを使いたい？

俺はこんな感じでやってる（ID何番が割り当てられるかは気にしなくていいから楽）
#include "hgimg3.as"
#enum pan=10
#enum pin
#enum pun
#enum pen
#enum objend
dim id,objend
hgini
setsizef 10,10
addbox mid
repeat objend-pan,pan
regobj id(cnt)
loop
repeat
setpos id(pan),sin(0.1*cnt)*25
addang id(pan),0.01,0.01
setpos id(pin),0,sin(0.01*cnt)*20
addang id(pin),0,0.01,0.01
hgdraw
hgsync 10
loop

連想配列が実装されたらid("名前")って出来るみたいだけど・・・

**名前は開発中のものです。** · 2007/04/02(月) 22:43:36

HSP3.1は連想配列の実装が予定されている･･･
そんなふうに考えていた時期が俺にもありました

**名前は開発中のものです。** · 2007/04/04(水) 17:21:52

age

**名前は開発中のものです。** · 2007/04/04(水) 19:18:19

HSPって、&と&&の区別しないんだな
俺の3時間返せ

**名前は開発中のものです。** · 2007/04/04(水) 19:34:58

つ【3時間】

**名前は開発中のものです。** · 2007/04/05(木) 11:29:50

マニュアルよめよ

**名前は開発中のものです。** · 2007/04/05(木) 11:36:49

↑読んでないやつ

**名前は開発中のものです。** · 2007/04/05(木) 11:41:19

その辺りはマニュアルに書いてない、というか、
仕様外の演算子じゃねーの？

**名前は開発中のものです。** · 2007/04/06(金) 22:37:19

で、β8が出てる訳だが

>・更新履歴
>
> 2007/04/05 3.1b8
>
> 新規拡張プラグインhspcvを追加。(詳細はhspcv.txtを参照してください)
> 変数データをまとめてファイルに読み書きするためのvload、vsave関連命令(hspdaプラグイン)を追加。
> HSPCL(コンソール版)のinput命令でバイナリーモード時にEOFを誤認識する不具合を修正。
> コンパイル時の追加ファイル(hspdef.as等)が存在しなくてもエラー表示しないように修正。
> 変数名情報を常に出力するオプションを#cmpopt命令に追加。
> HSPSDK(プラグイン)側から変数IDと変数名に関する情報を取得可能に修正。
> RSSモジュール(mod_rss.as)のモジュール名を修正。(HSPBT#133)
> user32.as内のGetWindowModuleFileName関数定義を修正。(HSPBT#125)
> 拡張プラグインhspinetのftpopen命令のポート指定ができない不具合を修正。(HSPBT#58)
> 拡張プラグインHGIMG3の機能追加と不具合をいくつか修正(詳細はhgimg3.txtを参照してください)。

**名前は開発中のものです。** · 2007/04/07(土) 00:05:32

そのb8、実行するとタイトルがb7になるわけだが
あと、アナウンスも無いけどね

**名前は開発中のものです。** · 2007/04/07(土) 21:21:42

正式版キタ

**名前は開発中のものです。** · 2007/04/08(日) 08:49:30

メッセージボックスの指定行のバイト数ってどうやって求めてる？
OSの問題でsendmsgはボツだし、地道に計算したらフリーズするし・・

**名前は開発中のものです。** · 2007/04/08(日) 10:45:14

リンク張っていないので
ttp://www.onionsoft.net/hsp/file/hsp31b8.lzh
ttp://www.onionsoft.net/hsp/file/hspsdk31b8.lzh

なんかｄｇｄｇね

**名前は開発中のものです。** · 2007/04/08(日) 11:34:02

>>665
note系命令で指定行取得してstrlen

**名前は開発中のものです。** · 2007/04/08(日) 12:54:56

>>667
thx

**名前は開発中のものです。** · 2007/04/08(日) 20:17:18

新しいヘルプになって最前面に固定できなくなった？

**名前は開発中のものです。** · 2007/04/09(月) 12:50:06

>なんかｄｇｄｇね
ディグダグ？

**名前は開発中のものです。** · 2007/04/09(月) 19:56:01

>>670
グダグダ

**名前は開発中のものです。** · 2007/04/09(月) 22:23:05

ｄｇｄｇならディグダグで正解じゃないか？ｗ

**名前は開発中のものです。** · 2007/04/09(月) 22:44:43

新しい描画プラグインってどうなの？

**名前は開発中のものです。** · 2007/04/10(火) 01:23:00

>>673
こんなのが数十行で出来る
http://thelaughingman.net/

**名前は開発中のものです。** · 2007/04/10(火) 01:59:10

描画プラグインに新しいのが出たのか？

**名前は開発中のものです。** · 2007/04/10(火) 08:57:53

β晩にhspcvが追加されている
が、サンプルはない

**名前は開発中のものです。** · 2007/04/10(火) 09:00:39

haarcascade_frontalface_alt2.xml はぐぐれ
#include "hspcv.as"
cvbuffer ,280, 212
cvloadxml "haarcascade_frontalface_alt2.xml"
cvload "認識させたい画像"
cvfacedetect , 1.0
if 0 == stat {
mes "認識失敗"
}
facearea_num = stat
cvgetimg , 0
dim maskarea, 4
repeat facearea_num
cvgetface facearea(0), facearea(1), facearea(2), facearea(3)
mes ""+facearea(0)+","+facearea(1)+","+facearea(2)+","+facearea(3)
loop
とりあえずこんな感じで認識できるはず

**名前は開発中のものです。** · 2007/04/10(火) 12:05:36

>>677
動いたおもすれー

**名前は開発中のものです。** · 2007/04/10(火) 19:02:17

変数データを直接読み書きできるって事は
セーブ・ロードが簡潔にできるってことなのかな

**名前は開発中のものです。** · 2007/04/10(火) 21:54:45

うん

**名前は開発中のものです。** · 2007/04/11(水) 05:13:37

ノートパッドで切り出しとかやってセーブ・ロードに苦心してた事も
いい思い出に変わるのかな

**名前は開発中のものです。** · 2007/04/12(木) 21:07:33

初心者用講座とか色々廻ってたけど
電卓作るあたりで挫折した

**名前は開発中のものです。** · 2007/04/12(木) 21:08:29

盛りage

**名前は開発中のものです。** · 2007/04/12(木) 21:20:14

>>677
顔じゃ無い部分が認識された
よく見ると顔みたいに・・・

心霊写真かと思ったよｗ

**名前は開発中のものです。** · 2007/04/12(木) 21:20:43

電卓で挫折って・・・

**名前は開発中のものです。** · 2007/04/12(木) 22:32:55

なんのためにコンピュータ使ってんだろうなｗ

**名前は開発中のものです。** · 2007/04/13(金) 02:40:01

こんぽじっとぱたーん・・・・？？？？？？

デジタル土方レベルのCかBASICしか出来ない香具師でも
力技だけでゲームを作れる言語作ってくれよ！

あ、もうあるか。

**名前は開発中のものです。** · 2007/04/13(金) 15:33:03

10,200,30,60 00　ってテキストに書いておいて、
カンマ区切りで配列にしたいんですが、

notesel fileLoad
noteload "data.txt",0
sdim Fname,32000,999
getstr Fname,fileLoad,0,','
dialog Fname.1
dialog Fname.2

って書いてもダイアログには数字が表示されませんでした。
カンマ区切りのテキストファイルから配列を作るにはどう書けばいいのでしょうか。

**名前は開発中のものです。** · 2007/04/13(金) 15:59:15

>>688
それじゃあ、最初の一つしか配列に渡されないよ
notesel fileLoad
;noteload "data.txt",0
fileLoad="10,200,30,60,00"
sdim Fname,32000,999
index=0
repeat
getstr Fname(cnt),fileLoad,index,','
index+strsize
if ','!stat {break} ;getstrで区切りキャラクタ以外で取り出された
loop
repeat
if Fname(cnt)="" {break}
dialog Fname(cnt)
loop
end

プラグイン hspdaの csvstrと間違えた？
こっちなら一行分なら一回で配列に代入される
（でもhspdaには色々バグがあるから注意）

**名前は開発中のものです。** · 2007/04/13(金) 18:14:32

>>689
ありがとうございます。おかげさまでできました。
助かりました。

**名前は開発中のものです。** · 2007/04/13(金) 20:07:44

>>669
それ必要なの?

**名前は開発中のものです。** · 2007/04/13(金) 20:30:21

おれ別人だけど、ヘルプ見ながらスクリプト打ち込みたいとか？

**名前は開発中のものです。** · 2007/04/14(土) 00:03:39

>691
うん、ヘルプ見ながら打ち込むので俺には必要。
命令のパラメータさえ分かればいいから小さくして右上に出しっぱなしにしてたんだが。
今は画面の3分の2にエディタ開いて残りにヘルプ出してる。
ヘルプブラウザのreadme見ても何も書いてないから抹殺されたんだろうな。

**名前は開発中のものです。** · 2007/04/14(土) 01:44:52

作者のページにBBSもあるんだし
ここで聞くよりも、作者に直接聞いた方がいいと思うんだが

**名前は開発中のものです。** · 2007/04/14(土) 13:46:00

あるか、ないか、が聞きたかっただけだから。
なけりゃないで、やり方はあるから作者ページに書き込むほどでもないと判断した。

**名前は開発中のものです。** · 2007/04/14(土) 13:57:51

今アイテム数20個毎にページを増やすように作ってるんだけど、
コレを16個毎にして16進数で管理すると簡便化できる？

**名前は開発中のものです。** · 2007/04/14(土) 14:21:07

>>696
\式使えば楽

**名前は開発中のものです。** · 2007/04/14(土) 20:07:48

ありが㌧

**名前は開発中のものです。** · 2007/04/15(日) 19:29:31

HGIMG3の簡易コリジョン(AABB)は実装されてますけど、
パーツ毎判定みたいのはいつ頃に実装されるのかな？

あんまり実装遅いなら使いたくないけど、ランタイムなのが魅力的なんだよな～
おにーたまHGIMG3スケージュルも出して欲しい

**名前は開発中のものです。** · 2007/04/16(月) 03:55:20

パーツっつーかポリゴン毎のコリジョンか？
かなり重くなると思うんで簡易的にやったほうが良いんじゃないかと思うんだが…。

**名前は開発中のものです。** · 2007/04/16(月) 10:10:37

hmm使ってフルスクリーンで動画再生するとキー入力受け付けなくなるんだけど
どうしようもないですか？

**名前は開発中のものです。** · 2007/04/16(月) 18:25:39

256*224の解像度を512*448のウィンドウで２倍表示したいんですが、
directXを使う以外に方法はありませんか？

**名前は開発中のものです。** · 2007/04/17(火) 01:46:56

>>702
>>623-624

**702** · 2007/04/17(火) 07:26:05

>>703
どうもッス。ファミコンぽいアクション作ってて、
gzoomだと透過色が使えないので困ってます。

**名前は開発中のものです。** · 2007/04/17(火) 11:40:10

>>704
読み込んだ後にgzoomで他のバッファにコピーしとけばいいだけじゃん
buffer 1
picload dir_exe+"\\sample\\demo\\jp6girl.bmp"
sx=ginfo(12)
sy=ginfo(13)
buffer 2,sx*2,sy*2
gzoom sx*2,sy*2,1,0,0,sx,sy
screen 0,640,480
gcopy 1,0,0,sx,sy/2
gmode 2
pos sx/2,0
gcopy 2,0,0,sx*2,sy

それか、表示用と違うバッファに画面を完成させてから表示用の画面にgzoom

**名前は開発中のものです。** · 2007/04/17(火) 17:21:04

座標の扱いが違うけどgmode の設定が利くのもある
buffer 1
picload dir_exe+"\\sample\\demo\\jp6girl.bmp"
sx=ginfo(12)
sy=ginfo(13)
gsel 0
gmode 2,sx,sy ;コピー元の画像サイズ
pos 320,240+sy/2 ;画像の中心(gcopy等と違い指定した座標が中心に来る)
grotate 1,0,0,0,sx*2,sy*2

後gsquareってーのもあるけど、大量にコピーするのには向かないかな・・・

**702** · 2007/04/17(火) 18:15:12

>>705 >>706
うお、その発想はなかったわ！
どうもありがとうございます。

**名前は開発中のものです。** · 2007/04/17(火) 22:14:21

最近hsp2.6でhspdxのプラグインを使ったSTG作ってるんだけど
壁に自機弾と敵弾があたると、自機弾と敵弾が消えるようにしてるんだけど
稀に弾がすり抜ける時がある。
これって敵弾と自機弾が同時に壁に衝突した時にすり抜けるのかね？
自機弾のタイプ値２
敵弾のタイプ値８
４００は壁のスプライト番号
es_find a,10,a
if a=-1:return
es_check b,a,32,1,400,400
こんな感じなんだけど。
すり抜けないよう対処法を教えて欲しい。

**名前は開発中のものです。** · 2007/04/17(火) 22:19:51

単に弾の移動量が自機の判定より大きくて抜けちゃってるだけじゃないの？

**名前は開発中のものです。** · 2007/04/17(火) 23:06:48

壁との当たり判定なんてスプライトの判定命令じゃなくて計算でやれ

**名前は開発中のものです。** · 2007/04/17(火) 23:19:06

>>709
確かに移動速度も影響あるけど
速度を遅くしてもやっぱり同時に衝突するとすり抜ける。

で、対策を考えたんだけど
単純に衝突のサブルーチンを2つにする事により
2発動時に衝突してもOKになったみたい。
この時点で全くすり抜けなくなった。
サブルーチンを3つにすれば3発同時もOKかな。

**名前は開発中のものです。** · 2007/04/17(火) 23:32:40

>>711
hspdxって使ったことないんだが、そのes_checkって当たってるスプライト1つしか返さないんだな。
自前でやったほうが簡単そうだな

**名前は開発中のものです。** · 2007/04/17(火) 23:48:03

es_checkはもし同時に衝突してたらスプライト番号が低いほうが優先される仕組みになってる。
少しでも衝突タイミングが違えば問題ないんだけど。
あと、一度すり抜けたスプライトはすり抜け中に再び衝突判定が得られにくい。
すり抜けてる最中に他のスプライトとの衝突判定が起きるから。
あと俺の使ってるのはhspdxじゃなくてhspfixの間違いでした。

**名前は開発中のものです。** · 2007/04/17(火) 23:49:00

>>711
ああすまん、ちゃんと読んでなかった。壁なｗ

>>712
判定を始めるスプライト番号を指定できるから、ひとつ見つかったら
その番号の後から再検索すれば良い。

**714** · 2007/04/17(火) 23:51:13

自己レス
>判定を始めるスプライト番号を指定できるから
そんなもん無かったｗ
勘違い

**名前は開発中のものです。** · 2007/04/17(火) 23:52:08

>>711
つーか一回当たったら判定処理から抜けてるだけじゃねーのか？ｗ

で、使ってるのはhspdxfixだろ？
*sub
es_find a,10,0
if a=-1:return
repeat
es_check a,400,10,1,a
if a=-1:break
消す処理
a++
loop
return

これでいんじゃねーの？

**名前は開発中のものです。** · 2007/04/17(火) 23:52:31

>>708
その３行の前後の処理が分からないけど
出現してる敵・自機弾に、
漏れなく壁接触判定を行き渡らせるのなら
２行目のreturnが実行されるまで、
繰り返し処理をしないといけない。

*hitcheck
es_find a,10,a
if a=-1:return
es_check b,a,32,1,400,400
(bに対する何らかの処理)
goto *hitcheck

つーか、
そのプログラムを組むとしたら

*wallhitcheck
es_check b,a,10,1,400,400
if b<0: return
(bに対する何らかの処理)
goto *wallhitcheck

で済むんじゃないか？

checkのタイプ値32の説明がないから
このままでは不都合あるのかもしれないけど

**名前は開発中のものです。** · 2007/04/17(火) 23:54:36

間違えた。

*wallhitcheck の次の行
es_check b,400,10,1,400,400

だな。

**名前は開発中のものです。** · 2007/04/17(火) 23:55:01

>>713
やっぱりfixかｗ

>>715
大丈夫fixだから指定できるｗ

**名前は開発中のものです。** · 2007/04/17(火) 23:58:44

1回衝突判定が終ったら弾スプライトに＋１してループさせてる。
それでもすり抜ける。

**名前は開発中のものです。** · 2007/04/18(水) 00:11:22

>>720
まぁ何だ。

似たような事をやったことあるけど
問題なくDXFIXで衝突判定できてたぞ。

アルゴリズムが悪いか、
>>713の書き込みから明らかだが
なんか大きな勘違いしてるんだろ。

＞es_checkはもし同時に衝突してたらスプライト番号が低いほうが優先される仕組みになってる。
同じフレームで、続きから走査すれば、同時に衝突した
「スプライト番号が高いほう」のスプライトが見つかりますよ

＞あと、一度すり抜けたスプライトはすり抜け中に再び衝突判定が得られにくい。
＞すり抜けてる最中に他のスプライトとの衝突判定が起きるから。
お前は何を言っているんだ。

**名前は開発中のものです。** · 2007/04/18(水) 00:16:03

スプライト番号が高いのが優先されるかどうかはどうでもいいから適当に書いた。
すまんかった。
後半の文はちょっとわかり辛かったかな。
まあ大した事無い事なので訂正しなかったけど。
まあまだゲーム製作初めたばっかりだから勘違いしてる所は結構あると思うけど。
とりあえずもう少し勉強してみます。

**名前は開発中のものです。** · 2007/04/18(水) 00:47:39

プログラミングよりも日本語や人間としての常識の勉強が必要だったようです。
スレ汚しして申し訳ございませんでした。