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/28 21:08

192は質問厨でFA？

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

>>192ﾀﾞ､ﾀﾞﾏｻﾚﾅｲｿﾞｰ

**名前は開発中のものです。** · 04/06/29 01:24

じゃぁ俺が聞いてやろう。
これどうやってやるんですか？

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

正直、一見したところ自分の作りかけゲームと似ててアセッタ。
やってみたらシステムが違ってたんでチョト安心。

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

183のことか？
どんな内容かよくわからん…

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

マウスで二点をクリックしてその間の距離x,yをﾄﾞｯﾄ単位で表示するって
ソフト作りたいんですがどうすればいいでしょう？

**名前は開発中のものです。** · 04/06/29 15:31

line , pset , mousex , mousey
onclick か stick か getkey
を使えば作れると思う。

**名前は開発中のものです。** · 04/06/29 17:32

それらの命令を使ってもイマイチ作り方が分かりません。。。

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

つまり線引きたいのか距離を求めたいのかどっちなんだろ

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

距離を求めたいのです。
点１から点２までは　x方向に100ﾄﾞｯﾄ　y方向に200ﾄﾞｯﾄって感じで

**名前は開発中のものです。** · 04/06/29 18:46

マウスクリックされた時にカーソルの座標を変数に退避して、
比較した結果を表示するだけなのでは？
なにがわからんの？

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

距離の絶対値を求めたいのかと思ったら、YX座標差分かよ。
逝ってよし

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

HSPって10個くらい命令が分かればゲームが作れるって本当ですか？

作れない僕はアイデアがないのでそうか。

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

命令の数をいくつ使おうが構わないと思わない？
自分の作りたいものを作るために命令の数を気にしますか？

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

数当てゲームなら10個くらいでできるかもな

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

>>205
キミは“作れない”のではなく“作らない”のだと気が付きたまえ

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

;>>198
;適当に改造して使え

onclick *getMouse
stop

*getMouse
  ttlMsg = "x1:" + x + " y1:" + y ;前にクリックした点
  ttlMsg += " / x2:" + mousex + " y2:" + mousey ;今クリックした点
  dx = x-mousex ;距離 X
  dy = y-mousey ;距離 Y
  if dx<0 : dx = -dx
  if dy<0 : dy = -dy
  ttlMsg += " / dx:" + dx + " dy:" + dy
  title ttlMsg
  x = mousex
  y = mousey
stop

**名前は開発中のものです。** · 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あるから、
わけわからんエフェクトつけない限り、
描画関連で遅くなることはまずないと思う。