HSP - Hot Soup Processor [7]

**名前は開発中のものです。** · 04/06/10 04:28

前スレ
　　HSP - Hot Soup Processor
　　　http://game.2ch.net/gamedev/kako/1005/10053/1005332663.html
　　HSP - Hot Soup Processor [2]
　　　http://game.2ch.net/test/read.cgi/gamedev/1035428757/
　　HSP - Hot Soup Processor [3]
　　　http://pc2.2ch.net/gamedev/kako/1043/10436/1043609896.html
　　HSP - Hot Soup Processor [4]
　　　http://pc2.2ch.net/test/read.cgi/gamedev/1047082415/
　　HSP - Hot Soup Processor [5]
　　　http://pc2.2ch.net/test/read.cgi/gamedev/1058507713/
　　HSP - Hot Soup Processor [6]
　　　http://pc5.2ch.net/test/read.cgi/gamedev/1078660876/

関連サイト
　　ONION software　（本家）
　　　http://www.onionsoft.net/
　　HSP CENTER
　　　http://hspcenter.com/
　　HSP ML
　　　http://garde.esprix.net/hsp-ml/

**名前は開発中のものです。** · 04/06/30 03:48

みんななんだかんだいって親切だな（藁

**名前は開発中のものです。** · 04/06/30 16:43

ここって本当にいい人ばかりですよ

**名前は開発中のものです。** · 04/06/30 20:09

悪い意味でね。

**名前は開発中のものです。** · 04/06/30 21:02

いい悪いなんてどうでもいい。品質によらず答えが得られればそれで。
得たものをそのままにするか昇華させるかは使う人次第。
むやみに精鋭主義っぽいことをよく口にする人がいるが、低レベルでの底上げは
別に無駄とは思わんよ。特にこんな場所じゃね。

**名前は開発中のものです。** · 04/06/30 21:28

低レベルな質問するやつは、その時点でダメだと思うが。
自分で調べたり試行錯誤できないやつは問題外だろ。

**名前は開発中のものです。** · 04/06/30 21:40

「少し高レベルなのをやろうとして検討も立てられず挫折し止めてしまう。」
ことを期待して教えてるわけだが。

考えずに質問する馬鹿は消えて欲しい。

**名前は開発中のものです。** · 04/06/30 22:05

そういえば「どんな調べ方をすれば良いか」を質問する奴はいないな…

**名前は開発中のものです。** · 04/06/30 22:21

タイトルバーに現在の時刻、年、月、日、曜日を表示させるスクリプトで、
時刻を2桁にしたいのですが、これでは無理みたいです…。どうすればいいでしょうか？
/*時間表示の発展*/
screen 0,320,0;ウィンドウのサイズを調整
;曜日の関数
sdim ODW,7,7
ODW.0="日曜"
ODW.1="月曜"
ODW.2="火曜"
ODW.3="水曜"
ODW.4="木曜"
ODW.5="金曜"
ODW.6="土曜"

*TIME
gettime year,0;年取得「year」に代入
gettime month,1;月取得「month」に代入
gettime odw2,2;曜日取得「odw2」に代入
gettime day,3;日取得「day」に代入
gettime hour,4;時取得「hour」に代入
gettime minute,5;分取得「minute」に代入
gettime second,6;秒取得「second」に代入

str hour,2:str minute,2:str second,2;時間を全て2桁に変更
title "今の時間は"+hour+":"+minute+":"+second+"　今日は"+year+"/"+month+"/"+day+"("+ODW.odw2+"日)";タイトルに表示

wait 100
goto *TIME

**名前は開発中のものです。** · 04/06/30 22:36

100で剰余取れ

**名前は開発中のものです。** · 04/06/30 22:41

>>217
int hour:int minute:int second
を *TIME の次の行に入れてみ？

gettimeを繰り返し同じ変数で使うためには、いったん文字列型に変換したものを
数値型に戻してやる必要があるだろ？

**名前は開発中のものです。** · 04/07/01 13:27

ﾌﾙｽｸﾘｰﾝのｹﾞｰﾑ中に使えるﾂｰﾙを作るにはどうすればいいんですか？

**名前は開発中のものです。** · 04/07/01 14:19

ゴミレベルどもがあげんな

**名前は開発中のものです。** · 04/07/01 14:50

>>220 どうゆうツールなのか解らんが、　listbox じゃダメか？

**名前は開発中のものです。** · 04/07/01 15:56

ageるやつには教えないのがルール
マ板逝け

**名前は開発中のものです。** · 04/07/01 16:03

(´_` )。。○（またsage厨か・・・）

**名前は開発中のものです。** · 04/07/01 16:09

ここは質問するやつもsageじゃないとイカンのかよ・・白んかったぜ

**名前は開発中のものです。** · 04/07/01 16:52

じゃage

**名前は開発中のものです。** · 04/07/01 21:49

>>219
有難う御座いました

いま本見たら(変数は違いますが)、
hour=0:minute=0:second=0というのがありましたラベルのあとに。

**名前は開発中のものです。** · 04/07/02 12:32

そゆことで～＾＾

**名前は開発中のものです。** · 04/07/02 14:16

クズども沈んでろ

**名前は開発中のものです。** · 04/07/02 14:53

>>225
下げてもIDでるからな

**名前は開発中のものです。** · 04/07/02 15:13

**名前は開発中のものです。** · 04/07/02 15:21

うるせー馬鹿

**名前は開発中のものです。** · 04/07/02 18:36

文字列変数の内容の一部を削除する命令ってありますか？

a="abcdefghi"

これのeとfを削除して

a="abcdghi"

に変えるという意味です。

命令リファレンスで探したところ、
それらしいのは
notesel
というのしか無かったのですが、

a="abcdefghi"
notesel a
notedel 5
mes a
stop

とやっても、変わっていません。
何か方法はないでしょうか

**233** · 04/07/02 18:37

すみません

>命令リファレンスで探したところ、
>それらしいのは
>notesel
>というのしか無かったのですが、

noteselじゃなくてnotedelでした

**名前は開発中のものです。** · 04/07/02 18:45

(　´Д｀)strmid

**名前は開発中のものです。** · 04/07/02 20:57

(　´Д｀)getstr

**233** · 04/07/02 21:10

>>235
strmidでやってみても、
文字列の一部をコピーするだけみたいなんですが・・・。

a="abcdefghi"
strmid b,a,5,2
stop

こうやっても
aの中身はabcdefghiのまま、
bの中身はefが入ってました。

>>236
削除する位置を何文字目かで決めたいので
getstrでは駄目みたいです。

色々言ってすみません

**名前は開発中のものです。** · 04/07/02 21:15

strlen(文字列の長さを調べる)
instr(文字列の検索をする)
strmid(文字列の一部を取り出す)

**名前は開発中のものです。** · 04/07/02 21:15

>>237
誰　が　1　回　の　命　令　で　で　き　る　と　言　っ　た　。
あ、あとstrlenを忘れてた。

**233** · 04/07/02 21:29

a="abcdefghi"
b="ef"
strmid b,a,0,4
strmid c,a,6,4
a=b+c
mes a
stop

こうですね、出来ました！
実際に使うときはinstrとstrlenも使うんですね。

>>235=239
>>236
>>238

ありがとうございました。

**名前は開発中のものです。** · 04/07/02 22:07

…質問がアレな割には飲み込み早いな…

**名前は開発中のものです。** · 04/07/02 22:11

こういう人を「素質がある」と言います。

**名前は開発中のものです。** · 04/07/02 23:37

意外な展開

**名前は開発中のものです。** · 04/07/03 04:41

じゃあ俺は「天才肌」やな

**名前は開発中のものです。** · 04/07/03 16:44

･･･あいつ餅食べてるのに飲み込みが速いな･･･

**名前は開発中のものです。** · 04/07/03 18:10

･･･はじめてとか言ってた割に飲み込むのためらわないのな･･･

**名前は開発中のものです。** · 04/07/03 18:28

;文字変数から指定した文字をカットする
;（単語としてでなく、含まれる文字を全て消去）
#module "cut"
#deffunc cut val,val
mref v1,24
mref v2,25
strlen ln2,v2
cn=0:repeat ln2
n="":p=0:strlen ln1,v1
repeat
peek c,v2,cn
getstr a,v1,p,c:p+=strsize:n+=a
if ln1<p:break
loop
v1=n
cn++:loop
return
#global
a="abcdefghij"
b="ef"
cut a,b:print a
stop

少し力押ししすぎかも...@

**名前は開発中のものです。** · 04/07/03 18:42

>>246
下ネタかよ！

**名前は開発中のものです。** · 04/07/03 19:38

>>246
ｼﾞﾜｼﾞﾜﾜﾗﾀ

**名前は開発中のものです。** · 04/07/03 21:58

簡単に書くと。

a="abcdefghij"
b="ef"

strlen len1,a
strlen len2,b
instr p,a,b

strmid c,a,0,p
strmid d,a,(p+len2),len1
e=c+d

mes e

stop

**名前は開発中のものです。** · 04/07/03 22:26

けど、それだと先頭のやつしか除去できないし、a
に含まれないのをbにいれると変になるとおもうが...

**名前は開発中のものです。** · 04/07/03 22:32

a="abcdefghijef"
b="ef"
repeat
strlen len1,a
strlen len2,b
instr p,a,b:if p=-1:break
strmid c,a,0,p
strmid d,a,(p+len2),len1
a=c+d
loop
mes a

stop

aに含まれるbを全部除去する

**名前は開発中のものです。** · 04/07/04 01:20

a="abcdefghijef"

a=""
mes a
stop

aを全部除去する

**名前は開発中のものです。** · 04/07/04 18:56

HSPで弾幕シューゲーを作るにあたって、
どうしても越えられない壁がある。処理速度。
当たり判定が突き抜けないように、1ドット移動ごとに当たり判定
ルーチンを巡らせる。
100個くらいのところでバテる。
2ドットごとに妥協して、さらに作り進めていくと、
自弾の処理でまたバテる。

･･････････どうしても弾幕ゲームが作りたいんだ･･･
HSPの限界はよく分かった･･･。
誰か、頼むからプログラムを速く走らせるコツを
教えてくれ･･･

**名前は開発中のものです。** · 04/07/04 19:00

> HSPの限界はよく分かった･･･。
それ組み方の限界ｼﾞｬｰﾝ？

**名前は開発中のものです。** · 04/07/04 19:10

プラグイン何使ってんだ？

**名前は開発中のものです。** · 04/07/04 19:18

ルーチンを軽くする

**名前は開発中のものです。** · 04/07/04 19:49

計算の部分をマシン語で書く。

**名前は開発中のものです。** · 04/07/04 20:46

>>255
そう言われるとそうだな、そう訂正するｗ

プラグインは
hspext：hspdxa：dsoundex
ジョイパッドの入力にhmmを使う予定

サイン・コサインは予め256コのテーブルに
保存して使ってるけど、狙撃するときに
アークタンジェント（ematan）を求めてる。
これって相当遅くなるのかな？

マシン語か、マシン語とアセンブラの違いも分からない
俺じゃかなり無理ぽいな

**名前は開発中のものです。** · 04/07/04 20:52

マシン語はCとかで書いてオブジェクトファイルから取ればいい。
マシン語がバイナリで、アセンブラがmov *, *とか。

**名前は開発中のものです。** · 04/07/04 21:03

それ、ヒープ領域のコード実行が将来のWindowsで不可能になることまで
考慮して言ってるのかな

**名前は開発中のものです。** · 04/07/04 21:05

実行時に切り替えるようにすれば？

**名前は開発中のものです。** · 04/07/04 21:05

パソコン買い換える。

**名前は開発中のものです。** · 04/07/04 21:09

VirtualProtectで実行権付けるのに成功したらマシン語
失敗したら普通に。

普通にDLLに分離してもいいと思うけど。

**名前は開発中のものです。** · 04/07/04 21:13

repeat 10000000
A ++
loop
で3400msくらいかかった。
ｾﾚﾛﾝ1.7Gですた。
みんなのも気になるよ。
晒してくれぃ。

**名前は開発中のものです。** · 04/07/04 21:51

プログラム晒してくれればこっちの環境で実行した結果出すよ

**名前は開発中のものです。** · 04/07/04 23:04

>>254
当たり判定の具体的なルーチンを知りたい

**名前は開発中のものです。** · 04/07/04 23:15

>>265
当方、Pen4 2.4CG ：XPで
2100msぐらいだったかな。

timeGetTime と GetTickCount の両方で測っても変わらなかったけど。

**名前は開発中のものです。** · 04/07/04 23:34

>254
当たり判定を細かくやってるみたいだけど処理落ちするってことは弾の量はかなり多めなんだよな
たぶん弾速はそれほど早くないと思うが速度の速い弾以外は１フレーム１回当たり判定で十分なんじゃないか？

**名前は開発中のものです。** · 04/07/05 00:12

>>265
gettime x,5:gettime y,6:gettime z,7
print "" + x + "/" + y + "/" + z
repeat 10000000
A ++
loop
gettime x,5:gettime y,6:gettime z,7
print "" + x + "/" + y + "/" + z
stop
--
こんな感じで計測してみた。
Pen3 800MHz で約4250ms でした。

…しかし、抜けると分かっててもwaitのないループをHSPで実行するのはちょっと気持ち悪い。

**名前は開発中のものです。** · 04/07/05 00:14

Cel300MHz 7681ms

**名前は開発中のものです。** · 04/07/05 00:22

Pen4　2.80GHｚ　1422ｍｓ

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

地球シミュレータ 0ms

・・・ごめん、ネタがつまらんね('A`)

それはおいといて、パフォーマンスカウンタ使おうと思うと思ったら
LARGE_INTEGER・・・面倒くさいな。

**名前は開発中のものです。** · 04/07/05 00:39

AthlonXP1600+ 1.4GHz 1312ms

**名前は開発中のものです。** · 04/07/05 00:45

AthlonXP 2.0GHz 953ms

**名前は開発中のものです。** · 04/07/05 04:54

Pen4 2.4GHz
2047ms
・・・オーバークロックでもするかな。。。

**名前は開発中のものです。** · 04/07/05 09:28

AthlonXP2600+(Barton) 1.92GHz 953ms
IDT Winchip 200MHz 17695ms

Winchipマシンの方が桁違いに金がかかってるんだけどな･･･。

**名前は開発中のものです。** · 04/07/05 09:45

いつからここはベンチマークスレになったんだ？

**名前は開発中のものです。** · 04/07/05 13:02

265だが、これで計った。
#include "dsoundex.as"

timer
TIM1 = stat
repeat 10000000
A++
loop
timer
TIM2 = stat
RE = TIM2 - TIM1
mes RE
stop
gettimeより精度が良いらしい。

**名前は開発中のものです。** · 04/07/05 13:14

連レスｽﾏｿ
>>267
A1 = 自弾Xと敵Xの差
B1 = 自弾Yと敵Yの差
A2 = (-自弾サイズX<A1)&(A1<敵サイズX）
B2 = (-自弾サイズY<B1)&(B1<敵サイズY）
if (A2&B2)=1 : 当たり
みたいな感じでやってる。確かどっかの
ページで解説したやつをパクった。

>>269
自機のサイズが2*2で、移動量が1フレーム２～４ドットにしてるから、
敵弾のスピードが1フレーム１ドット移動ならOKだけど、
もぅ少し速い弾（をメインにする予定）だとたまに抜ける時があるんですわ。
でも、ある程度場に残って邪魔する弾なんか作ったときは
参考にさせてもらうんで助言感謝

**名前は開発中のものです。** · 04/07/05 14:46

描画と当たり判定のフレームを別にする。
当たり判定はするが描画しないフレームが存在するようにする。

**名前は開発中のものです。** · 04/07/05 15:10

>>273
LARGE_INTEGERは基本的に64bit整数型

**名前は開発中のものです。** · 04/07/05 17:59

プラグインにある衝突判定命令使うほうが速いだろう。
すり抜けが嫌なら、弾のスプライトを進行方向逆に少し伸ばして長方形にすれば？
その場合回転使うと描画が重くなる可能性あるので16方向くらいで用意したほうが良いけど。

**名前は開発中のものです。** · 04/07/05 18:45

＞弾のスプライトを進行方向逆に少し伸ばして長方形に
斜め長方形は無理でそ？　長方形で縦や横に大きく当たり判定が
取れたとしても、斜めだと正方形の当たり判定にせざるを得ないから、
こだわるとレイヤー作って色取得、みたいなことしなきゃならないっぽい。

**名前は開発中のものです。** · 04/07/05 19:01

ごめん回転させないと無理だった

**名前は開発中のものです。** · 04/07/05 19:18

>>282
誰も聞いてないし

**名前は開発中のものです。** · 04/07/05 19:27

しかし100位の描画と判定で重くなるって
スペック低いだけじゃないの？

**名前は開発中のものです。** · 04/07/05 19:35

そういえば最低動作環境ってどれくらいを想定して作ってる？
よほど古いPCじゃない限り2Dシューティングで重くなるなんてことないと思うが

**名前は開発中のものです。** · 04/07/05 19:47

PenIII-800&GeForce2くらいで動きゃ良いかなとは思ってるけど、
前に作ったのはPenIII-500でも平気だった。

最近はDirectX自体がそこそこのスペック（CPU&VGA）を要求するから
DirectX使うならある程度切り捨てないとダメかもよ。

**名前は開発中のものです。** · 04/07/05 21:05

自弾(50個)ｖｓ敵(20匹)が画面上いっぱいで
弾移動が1ﾌﾚｰﾑに5ドットの時の当たり判定の場合

repeat　50　　；自弾50個
　　　repeat　5　；1ﾄﾞｯﾄずつ5回動かす
　　　自弾の移動処理
　　　10命令くらい？
　　　当り判定サブルーチンへ
　　　loop
loop
*ATARI
　　repeat 20　;敵数20
　　当り判定命令20くらい
　　loop
　　return
とすると、
50*((5*20*20)+10) =　100500命令
うちのPCでは、上のほうでやったベンチマークテストの方法だと、
100500命令実行するのに25～30msくらいかかる。

今は大雑把にやって全然正確な値じゃないけど、
少なくとも60FPSを保つのに必須の1フレーム16msは大幅に越えて
しまうのよ。

（上のルーチンを見て、255が言ったように
　組み方が悪い！　と言う人が居たら是非、
　もっと速く動く組み方を教えて欲しい！
　お願いします！）

**名前は開発中のものです。** · 04/07/05 21:21

HSPを卒業して他の言語で組む

**名前は開発中のものです。** · 04/07/05 21:26

>>290
マシンスペックは？

**名前は開発中のものです。** · 04/07/05 21:34

>>292
ｾﾚﾛﾝ1.7G
ﾒﾓﾘは関係ないと思うけど、256ある
VRAMは16Mあるから、
わけわからんエフェクトつけない限り、
描画関連で遅くなることはまずないと思う。

**名前は開発中のものです。** · 04/07/05 21:52

>>290
最初に、5ドット進む距離を内包する正方形でも求めて、敵を絞り込んでから1ドットずつ絞り込んだ敵で判定しては？
その処理方法だとこれぐらいかな？

**名前は開発中のものです。** · 04/07/05 22:12

>>294
お？それというのは、
敵が回りにいないのに当り判定をするのは無駄だから、
近い敵だけ探して判定すると言うこと？

まじゴメン、バカで理解できんかった･･･(='ω`）トホー

**名前は開発中のものです。** · 04/07/05 22:16

自機に近い弾だけ先に抽出するとか…。
つか少しくらいのすり抜け気にするな。

**名前は開発中のものです。** · 04/07/05 22:19

ああすまん重複

**名前は開発中のものです。** · 04/07/05 22:20

>>295
そう。
５回、全敵に対してやるのはかなりの無駄だからなぁ・・・
できるだけ、絞り込まないと。

**名前は開発中のものです。** · 04/07/05 22:22

295さんじゃないけど、同じくstg作っているものとして関心あります。
いや、295さんと違い、わたしは弾のすり抜け問題なぞここを見て初めて認識したのですが。
es_checkで済ませ、すり抜けることがありうるなんて考えてもいなかった…。

294さんのおっしゃるのは、たとえば透明な、実際の弾よりも大きめのスプライトを一緒に飛ばして
それで簡易に当たり判定。
もしも判定がイエスならば、細かくさらに判定ということでしょうか？

**名前は開発中のものです。** · 04/07/05 22:23

すみません、書き込んでいる間に返事がありましたね…。

**名前は開発中のものです。** · 04/07/05 22:42

ふむ、なるほど。
場に弾が200個あって5回判定すると1000、
近いのだけ抽出すれば、200回強で済むわけか。
今まで考えもつかなかったなぁ。これでかなり
処理速度が向上しそうだ、助言マジ感謝！

>>296
ゲームとして成り立つなら
気にしなくてもOKだとは思うけどねｗ

２９９氏も同じSTG製作ｶﾞﾝﾊﾞﾛﾅｰ

**名前は開発中のものです。** · 04/07/05 23:20

さっき思いついたが、１フレームにそれぞれ高々数ドットしか進まないと考えると、
ある一定距離以上の弾は数フレーム間は判定をはしょってもいいな、と。
けど、FPSが揺れるから微妙か･･･

**名前は開発中のものです。** · 04/07/05 23:24

http://ww22.tiki.ne.jp/~y-shirakawa/hsp/sokudo.txt
速度。
へんなテストばっかりだが。

**名前は開発中のものです。** · 04/07/05 23:26

アセンブリに落とせれば凄く勉強になるのになぁ。

**名前は開発中のものです。** · 04/07/05 23:27

ま、弾幕シューティングなら敵弾はゆっくり飛ばそうぜってことだな。

**名前は開発中のものです。** · 04/07/05 23:29

それは、敵弾と自機との距離の差を求めて、
一定範囲内に入ったら細かくするってこと？
なんかこのスレの方々は、優しくレスくれて涙が出るよ、ありがとう！

①弾を中心に範囲を決めたレイヤーを打ち出し、
　レイヤー内に対象が入ったら細かく判定する。
②弾と対象の差を求めて、対象と近づいた値のものだけを
　判定する。
どちらの方法も大雑把→詳細と、２重の判定を
するってことになるね。ふむふむ。
②で差を求めたほうが簡潔でいいかなぁ？

**名前は開発中のものです。** · 04/07/05 23:42

>>306
あー、302のことは、一定距離以上の弾は、初めから判定を数フレームやらないという意味ね。
説明しにくいけど
1フレームにnドット進むならmフレーム進むのはその弾中心の円内（半径mnドット)にいるはず。
逆に、自機も同じようにその自機中心の円内にいるはず。
とすると、円同士が重ならなかったら、mフレームはその弾との判定はしなくてもいい。
・・・って感じなんだけど、実装するとなるとちょっとめんどくさそうだ・・・
それに計算で逆に遅くなっても意味ないし、バグの原因を作りそうだな・・・
あんまり効力はなさそうでメンゴ（汗

**名前は開発中のものです。** · 04/07/06 00:43

>281
のやり方でいいんでない？

描画１フレーム中に「座標更新～当り判定」を２回以上にする。

**名前は開発中のものです。** · 04/07/06 00:45

そもそも弾幕ゲーのお約束として

遅い弾は小さくて大量
速い球はデカイor長くて小量

だし。