HSP - Hot Soup Processor [11]

**名前は開発中のものです。** · 2005/12/02(金) 11:02:48

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

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

**チラシの裏（レス不要）** · 2006/02/22(水) 15:25:57

洞窟物語教えてくれた人ありがとう。
実はずっと前から知ってたんだけど起動して地味だから
パスしてた。遊んでみたら面白い！こういうフリーのゲームでは
アメルブロート以来ハマりました。
自分が上手くなるよりも難易度がどんどん高くなっていくので
チートしてしまいました…（tserch）。戦車をほぼ無敵で倒した。
現在壁を登って犬人間と会話したところ。もうラスト近いかな？

作り込みがすごい…絵はファミコンレベルだけど実は本当は上手い！
音楽もできるし、ストーリー描ける！作者さんは
万能クリエイターですよ。絵に時間がかかってないぶんゲーム内容の
作り込みがすごい！たとえば大爆発後の廃墟のタマゴ回廊だけど、
適当なマップではなくいやな位置に敵が配置されてて絶妙。
これをいちいち試しながら作っていく
かと思うと気が遠くなりそう…

処理で一番重そうなのは背景表示だろうけど、
別に重ね合わせとかしてるわけじゃなくチップを
並べて一枚で表示してるだけなのでHSPでもDIRECTXを使えば
不可能ではないと思われます。

**名前は開発中のものです。** · 2006/02/22(水) 16:40:29

チラシの裏に書いとけよ。ここはチラシの裏じゃない。

あっ！128様でしたか。

**ホスプロ** ◆HOTsoUpxjY · 2006/02/22(水) 21:09:46

>>765
>「シューティングゲームはタスクシステムを使うといい」～
>HSPでの実装方法、タスクシステムの良さ共にピンと来ません。

if (a>b)and(c>d){
if(e>f)and(g>h){
if…
こんなふうに、手続きを並べた素直なやり方では、
各処理の前のifのネストが際限なく深くなっていく。

ポーズを押すと一時停止するけど、背景だけ動かそうとか、
クリアすると操作はできないがアイテムと爆風だけ処理したいとか、
親の砲台が死ぬと子の弾は全部消滅するとか、分裂する敵だとか…。

ゲームが複雑になると条件判断も複雑になって、メンテナンス性も最悪。
そこでタスクを使うと、簡潔に書けて、仕様の変更にも対応できるようになる。
ただし言われてるようにHSPは向かない。Cなど関数ポインタを備えた言語を使う。

それでもど～しても、HSPでも同じようなことを標準命令だけでやりたいという場合、
オモチャのようなものでよければ、とりあえず処理をバラバラにするのは実現できる。

**ホスプロ** ◆HOTsoUpxjY · 2006/02/22(水) 21:11:56

point="a" : count=0
*main
if((instr(point,0,"a"))=0){
mes "aの処理"
point="b"
}
if((instr(point,0,"b"))=0){
mes "bの処理"
point="c"
}
if((instr(point,0,"c"))=0){
mes "cの処理"
point="a"
}
count++ : if (count > 5) : stop
wait 0 : goto *main

単純に発想する。上の「point="c"」のcをbに書き換えると
cは実行されない。これは文字列を使うと何かありそうだ。

**ホスプロ** ◆HOTsoUpxjY · 2006/02/22(水) 21:14:07

randomize
*main
point=""
repeat
r=rnd(4)
if r=0 : point+="a"
if r=1 : point+="b"
if r=2 : point+="c"
if r=3 : break
loop
max=strlen(point)
pcnt=0
gosub *task
count++ : if count > 3 : stop
wait 0 : goto *main
*task
mes "point="+point
repeat
if((instr(point,pcnt,"a"))=0){
mes "aの処理"
}
if((instr(point,pcnt,"b"))=0){
mes "bの処理"
}
if((instr(point,pcnt,"c"))=0){
mes "cの処理"
}
pcnt++ : if (pcnt > max) : break
loop
return

もう少し複雑にしてみる。実行するたびにランダムに処理が実行される。

**ホスプロ** ◆HOTsoUpxjY · 2006/02/22(水) 21:17:32

>>774で*taskの中でpoint文字列をいじると、更に複雑なことができるだろう。
でも処理が増えるとループのオーバヘッドも大きいし、全然スマートじゃない。
とても実用には耐えられなさそうだが、オモチャとしては面白いかもしれない。

**名前は開発中のものです。** · 2006/02/22(水) 22:40:57

taskも記述できないゲーム用言語ってどうなの。
存在価値が微妙だな。

**765** · 2006/02/22(水) 23:03:14

>>769
そうですね。まず1本、それなりの規模の作品を作りたいと思います。
C言語はHSPで飽き足りなくなったら勉強しようかな。10年後くらいにorz

>>772-775
ソース付きでの丁寧な解説、ありがとうございます！（´∀｀)

最初、入門的手法で if や switch～case を使うのと何か違うのかな？とも思った
のですが、pointの文字列により、処理すべきブロックと処理順を簡単かつ動的に
指定できるのが面白いです。いつか、これを利用したゲームを作ってみます。

アドバイス、ありがとうございました！

**名前は開発中のものです。** · 2006/02/22(水) 23:26:48

>>761
つ ttp://smile.poosan.net/perl-bin/hsp/ver3/hsp3.cgi?print+200510/05120034.txt

**名前は開発中のものです。** · NG

>>778
おっサンキューっす！
さっそくためしてみよう

**名前は開発中のものです。** · NG

確かに、音はならんですけど、サブルーチンのコードの意味がちんぷんかんぷん・・・
sendmsgとかstatとかをわかりやすく解説してるサイトとかってないでしょうか・・・

**名前は開発中のものです。** · 2006/02/23(木) 09:15:46

statってＨＳＰのシステム変数だぞ・・・ｗ

**名前は開発中のものです。** · 2006/02/23(木) 12:27:17

sendmesgは命令だが？

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

sendmsgはググれば十分情報あるし
statはマニュアルに十分のってるし・・・

**名前は開発中のものです。** · 2006/02/23(木) 13:55:58

自力で調べず、探す気もない無精者
わからぬことは他人まかせ

＞コードの意味がちんぷんかんぷん・・・
なのも道理といえる

**名前は開発中のものです。** · NG

>>783
ありがとうございます。だいたいわかりました。

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

自力で調べず、探す気もない無精者
わからぬことは他人まかせ
しかし、「てめえでググれ」と言われてるのに礼を言ういい奴でもある

**名前は開発中のものです。** · 2006/02/24(金) 19:31:40

自力で調べず、探す気もない無精者
わからぬことは他人まかせ
しかし、「てめえでググれ」と言われてるのに礼を言ういい奴でもある
最近はＣＭにも数多く出演して愛嬌を振りまいている

**名前は開発中のものです。** · 2006/02/24(金) 19:56:41

タスク処理を実現するのにポインターが必要というのはなぜなの?
詳しく聞きたい

**名前は開発中のものです。** · 2006/02/24(金) 20:47:12

自力で調べず、探す気もない無精者
わからぬことは他人まかせ
しかし、「てめえでググれ」と言われてるのに礼を言ういい奴でもある
最近はＣＭにも数多く出演して愛嬌を振りまいている
そんな彼も今年で32歳

**名前は開発中のものです。** · NG

23です！ありがとうございました！

**名前は開発中のものです。** · 2006/02/24(金) 22:12:59

>>788
タスクシステムではオブジェクトの種類ごとに処理関数があって
たとえば弾なら「Y座標+=2」、敵なら「最初の30ターンは下へ、その後は右へ」
というようにそれぞれ違う処理内容が書いてある。
それらの関数をループで一括処理するため関数ポインタを使う。
効率を無視すれば、オブジェクトの種類だけif文を並べても可能。

HSPなら、もしgosubの飛び先を変数で指定できるとしたら次のようなイメージ。
　object_update[0]=teki
　object_update[1]=tama
　object_update[2]=tama
*main
　repeat object_num
　　gosub *object_update[cnt]　;実際にはできません
　loop
　goto *main
*tama
　;弾の処理
　return
*teki
　;敵の処理
　return

**名前は開発中のものです。** · 2006/02/24(金) 23:35:31

まぁタスクシステムじゃいけないわけじゃないだろうし、
フツーにやればいいんじゃない？

　　by C++しか知らない通りすがり。

**名前は開発中のものです。** · 2006/02/25(土) 00:20:50

分岐はswitchで済むし遅いならonがよさげ・・・しかし

書いて動けばそれでいい

**791** · 2006/02/25(土) 06:35:37

>>793
onなんて命令忘れてた……。確かにこれならスマートにかけそう。
確かに、書いて動けばそれでいいってのがHSPらしいとは思うけど。

**名前は開発中のものです。** · 2006/02/25(土) 09:28:37

>>790
ネタにﾏｼﾞﾚｽカコワルイ

**名前は開発中のものです。** · 2006/02/25(土) 14:20:03

「ネタにﾏｼﾞﾚｽ」するのがネタなんだよ

**名前は開発中のものです。** · 2006/02/25(土) 17:58:34

ポインタってint *aのようなのじゃなくて
関数をポインタと呼んでいるわけね
勘違いスマン

**名前は開発中のものです。** · 2006/02/26(日) 09:34:56

対応環境がいまいちわからないのだが、

HSP2.61
Windows 9x/NT/2000/XP

HSP3
Windows 98/ME/2000/XP

2.61の方はMEに対応してない？
3はNTに対応してない？

**名前は開発中のものです。** · 2006/02/26(日) 11:55:52

ただの書き忘れでしょ
そういやぁHSPのマニュアルにも嘘書いてる箇所が何か所かあるよね

**名前は開発中のものです。** · 2006/02/26(日) 13:40:19

>>798
9xの表記は95/98/98se/Meという意味かと。

HSP3には95/NTでは動かない機能もある（hgimg3とか

**名前は開発中のものです。** · 2006/02/26(日) 14:12:05

次のHSPでラベル変数が出来るからタスクシステムも実現できるかも

**名前は開発中のものです。** · 2006/02/26(日) 16:33:30

>>801
　そんな便利なHSPはHSPじゃないやいっ。

　って、まじですか、それ。HSP3落としたっきり本家覗いてないや(w

**名前は開発中のものです。** · 2006/02/26(日) 17:06:46

ラベル型(変数に格納できるラベル)の実装
が実現されるらしいと3.1b1のhsp31b1.txtに書いてあった

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

>>792
HSPではできそうもないことをやろうとする、昔の職人気質のプログラマー
精神を受け継いでるいい連中なんですよ。こやつらの中からすごいソフトを
作る奴が出てきたり

しない。

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

そんなに大作指向のヤツって多いのか？

**名前は開発中のものです。** · 2006/03/03(金) 22:29:34

そりゃあ先生は偉大ですから

**名前は開発中のものです。** · 2006/03/03(金) 23:17:14

俺なんてTOPだぞ。
大作 oriented programing。
もはや入信しそうな勢いだ。しないけど。

**名前は開発中のものです。** · 2006/03/04(土) 00:48:42

軽くしよう+拡縮使おうとHSPDX使い始めたけどgcopyよりもはるかにクソ重い
es_copyで手動スプライトなのが駄目なのか…？

**名前は開発中のものです。** · 2006/03/04(土) 00:53:35

gcopyをes_copyに書き換えただけ？

**名前は開発中のものです。** · 2006/03/04(土) 01:01:03

>>809
アニメパターン管理とか独自で作っちゃったから
そんな感じ

ちょっと実験してくるか…。

**名前は開発中のものです。** · 2006/03/04(土) 01:58:43

>>810
俺はHSPDXFixでD3D使ってるからgcopyとes_copyは分からないが
D3Dスプライトなら描画時間が気になる事はないかな・・・
個別に動かす為のスクリプト処理のが先に限界が来る感じ

**名前は開発中のものです。** · 2006/03/04(土) 02:55:57

FIXじゃないHSPDXなら話は別だけど、
転送元と転送先のバッファのD3D使用フラグが一致してないと
ありえないほど描画が遅くなるよ。

**名前は開発中のものです。** · 2006/03/04(土) 09:25:36

>>739
洞窟物語を起動してゲームが始まり少し動かすとシステムごと落ちました。

**808** · 2006/03/04(土) 15:47:52

色々やってみたけど、スプライトとes_copyはさほどかわりが無く、
gcopyは小さい画像が多いときはDirectX使用よりも速いみたい。

…でも自分で組んだ計測方法があってるかどうか（；´Д｀）

**名前は開発中のものです。** · 2006/03/04(土) 17:26:11

>>814
Vsync待ちでes_sync後からes_sync前までの経過時間で速度見てる？
これだと何故かまともに計測できなかった。
数十個で1フレーム分の時間かかったような時間になる・・・
（1～3msだったのが1個増えただけで、いきなり16msになるから描画が遅いとかじゃないよなぁ・・・）
けど、数百個増やしてもそれ以上時間は増えなかった。（HSPDXFixでの事だから関係ないかも）

でも、画像の大きさで変わるならこれとは違うか・・・
gcopyは描画までの準備が少ないけど描画が遅い
es_copyは描画までの準備が多いけど描画が早い
と、てきとうな推測してみるｗ

>>812
色モードが違っても遅くなった気がする（ハード的な仕様かな？）

**名前は開発中のものです。** · 2006/03/05(日) 21:17:31

え?!FIXとHSPDXってどっちがいいの?

**名前は開発中のものです。** · 2006/03/05(日) 21:58:00

え!?ザクと旧ザクってどっちがいいの?
みたいな

**名前は開発中のものです。** · 2006/03/05(日) 22:05:18

え?!ザクとシャア専用ザクってどっちがいいの?

**名前は開発中のものです。** · 2006/03/05(日) 22:11:47

シャア専用に決まっておろうが

**名前は開発中のものです。** · 2006/03/05(日) 22:24:50

バーカ！！
素人はその選択で間違えるんだよ。
シャア専用ザクを貰ってもシャア以外は使えないの！！

**名前は開発中のものです。** · 2006/03/05(日) 23:34:31

どっちがいいと言われればシャア専用がいい

**名前は開発中のものです。** · 2006/03/05(日) 23:57:21

つーとFIXさん専用HSPDXなのか

**名前は開発中のものです。** · 2006/03/06(月) 00:08:24

ガノタ死ネ

**名前は開発中のものです。** · 2006/03/06(月) 00:20:29

>>816
D3Dを使うかどうかかな、使わなくてもHSPDXより使い勝手が良くなってる部分もあるから
FIXで不都合ないならFIXでいんじゃね？
DX7以上が必須になるけど・・・

**名前は開発中のものです。** · 2006/03/06(月) 00:32:00

個人的にはこんな印象

DX-機能低、うちの古いノーパソでもフルスクリーン可
DXa-機能高、機種依存、更新停止中、うちの古いノーパソでもフルスクリーン可
DXFix-機能高、重い

**名前は開発中のものです。** · 2006/03/06(月) 01:06:11

以前、誰かがupしたDirectX系DLL（ZGPと、HSPDX, ＋α, FIX）の
速度比較スクリプト発掘。
http://gamdev.org/up/img/2293.zip

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

ああそれ俺がうｐしたやつだ
消しちゃったんで探してたんだよｗ
ありがとん

**名前は開発中のものです。** · 2006/03/06(月) 04:20:50

>>827
ちょ・・・おま・・・
よくそんなこと言えたもんだなあ！
俺がうｐしたやつだよ！

**名前は開発中のものです。** · 2006/03/06(月) 05:25:23

>>827-828
おいおい、お前らなんでそんな必死なんだｗ
そんなことしなくても言えばまた上げてやったのによｗｗ

**名前は開発中のものです。** · 2006/03/06(月) 23:40:17

>>827-829
お前ら何をい(ry

**名前は開発中のものです。** · 2006/03/07(火) 00:20:18

これがうわさのオレオレ詐欺か…。

**名前は開発中のものです。** · 2006/03/07(火) 04:46:09

つまんね
氏ね

**名前は開発中のものです。** · 2006/03/07(火) 19:46:53

>>827-831
クソつまらん。
>>832
うはｗｗｗｗｗｗｗｗﾃﾗｵﾓｼﾛｽｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

**名前は開発中のものです。** · 2006/03/07(火) 20:31:56

>>826-837
ﾃﾓﾛｼｵﾗｽｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

**名前は開発中のものです。** · 2006/03/07(火) 21:39:17

==========藻前ら落ち着け=================

**名前は開発中のものです。** · 2006/03/07(火) 21:52:13

うほ、いいID

**名前は開発中のものです。** · 2006/03/07(火) 23:41:05

ﾃﾗｽｼｽﾛﾃﾓｵｼﾛｼｵﾛﾗｼﾓﾃﾗﾛｽﾛｼﾓｽﾃｵﾗﾓﾛﾓｵｽｽﾓﾃﾗｵｿﾛｼｽｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

**名前は開発中のものです。** · 2006/03/08(水) 00:48:21

ここはム板か何かですか？

**名前は開発中のものです。** · 2006/03/08(水) 19:06:25

すみません。
ドラクエ（ドラゴンクエスト）を作りたいのですが、ソースはどこにありますか？

**名前は開発中のものです。** · 2006/03/08(水) 19:26:37

Google

**名前は開発中のものです。** · 2006/03/08(水) 21:48:50

x*xよりもスッキリとした、スマートな累乗の仕方を教えてください。

**名前は開発中のものです。** · 2006/03/08(水) 23:01:35

任意の乗数という意味で？

**名前は開発中のものです。** · 2006/03/08(水) 23:23:14

>>841
x を l に変えるとちょっとスッキリするぞ。

**名前は開発中のものです。** · 2006/03/08(水) 23:28:33

>>841
5*5は 5+5+5+5+5と書く

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

>>842
そうです
>>843
xは仮のものなので実際には(x.0-ex.cnt)みたいに使います
他のだと^nとかあったんですけど
>>844
repeat n-1
x*x
loop
こうですか？帰れ！

**名前は開発中のものです。** · 2006/03/09(木) 14:30:04

なにこの態度・・・

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

八方美人も嫌われるが相手によって
コロコロ態度変えるのも嫌われるよね。

仲間面しようたってそうはいかないよ (・∀・)ﾆﾔﾆﾔ

**839** · 2006/03/09(木) 20:20:36

自己解決しますた。

**名前は開発中のものです。** · 2006/03/09(木) 20:29:14

どこにあったのか僕にも教えてください

**839** · 2006/03/09(木) 20:51:36

>>849
自分の心の中にありました。

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

>>846-847
ネタ回答をネタで返しちゃいけないんですか？

**名前は開発中のものです。** · 2006/03/09(木) 23:16:57

更新まだかよ

**名前は開発中のものです。** · 2006/03/10(金) 00:14:56

更新まだー？

**名前は開発中のものです。** · 2006/03/10(金) 19:24:08

>>851
hspmathの
#define ctype pow(%1,%2) expf(logf(%1)*(%2)) ; x^y
を参考にしたらヨクネ？(鼻くそ食べながら)

**名前は開発中のものです。** · 2006/03/10(金) 20:26:24

食うな

**名前は開発中のものです。** · 2006/03/10(金) 21:34:48

ありがとうございます。・←これは僕の鼻くそです。小腹が空いたら食べてください。

**名前は開発中のものです。** · 2006/03/10(金) 22:07:49

なんかｷﾓいのが沸いてきたな。
あぁ、そうかそろそろ春休みなのか

**名前は開発中のものです。** · 2006/03/10(金) 23:31:56

自己紹介乙女

**名前は開発中のものです。** · 2006/03/10(金) 23:56:03

(,,ﾟДﾟ)∩先生質問です
HSPのWindowID0内の下半分に動画を再生しつつ
上半分に、ゲーム画面をWindowID1からID5ぐらいまでから
切り貼りしてWindowID0に転送、とか出来るんでしょうか？

調べてみたらmciのput命令で下半分は似たような事が出来たんですが
ゲーム画面を上半分に合成とかするとmciが（？）エラーを吐き
ゲーム画面のみになってしまいます。

**名前は開発中のものです。** · 2006/03/11(土) 00:02:14

とりあえずＩＤ１は使わない方が良かったんじゃなかったっけ？

**名前は開発中のものです。** · 2006/03/11(土) 06:40:45

>820
使いこなせないだけで使うことは出来るだろう。
通常直線飛行時のみ三倍速、戦闘時は等倍だが・・・

**名前は開発中のものです。** · 2006/03/11(土) 07:36:21

>>860
HSP3からはマニュアルが「ウィンドウID1以上を指定することで」となっているので
その制限はなくなったっぽい。

**名前は開発中のものです。** · 2006/03/11(土) 08:57:44

num_arm=10;鎧の種類
sdim arm_nam,64,num_arm;名前
arm_nam="なし","皮鎧","鎖帷子","板金鎧"
dim arm_def,num_arm;鎧の守備力
arm_def=0,30,60,90
dim arm_pen,num_arm;鎧のペナルティ(%)
arm_pen=0,2,4,6

こういうデータをcsvから読み込む方法ってありませんか。

**名前は開発中のものです。** · 2006/03/11(土) 12:49:52

このスレを csv で検索しろ

**名前は開発中のものです。** · 2006/03/11(土) 14:40:33

>>857
だからお前がここに居るんだろうが！

**名前は開発中のものです。** · 2006/03/11(土) 16:11:58

＞だからお前がここに居る
最近の春厨の返し技らしいな。

**名前は開発中のものです。** · 2006/03/11(土) 16:41:55

読んでもよくわからなかったのでネットで探した
コードに手を加えたのですがどうでしょう。
かなり手間がかかるのでもっとスマートな方法はないものかと。
sdim csvbuff,32000 ;CSVファイル内容を格納
sdim csvline,64;CSVファイルの１行を格納する
sdim csvsell,64;CSVファイルの１セルを格納

//武器
num_wep=10;武器の種類
sdim wep_nam,64,num_wep;名前
dim wep_atk,num_wep;武器攻撃力
dim wep_def,num_wep;受け
dim wep_slsh,num_wep;鋭さ
csvbuff="";CSVファイル格納変数をクリア
bload "wepon.csv",csvbuff;CSVファイル読み込み
notesel csvbuff;メモリノートパッド命令のバッファに設定
csvmax=notemax;最大行数を取得
;行ごとにリピート
repeat csvmax,1;１行目(cntが0)は列項目名なのでとばす
noteget csvline,cnt;csvbuffのcnt行の文字列をcsvlineに格納
sellsize=0;目的セルまでのバイト数
getstr csvsell,csvline,sellsize,',';左端は「ナンバー」なので必要ない
sellsize+=strsize;バイト数をふやして右に行く
getstr wep_nam(cnt-1),csvline,sellsize,',';名前を取得
sellsize+=strsize;バイト数をふやして右に行く
getstr csvsell,csvline,sellsize,',';攻撃力を取得
sellsize+=strsize;バイト数をふやして右に行く
;（略）
loop

**名前は開発中のものです。** · 2006/03/11(土) 17:23:13

なんでcsvstrなりcsvnoteなり使わんの?

**名前は開発中のものです。** · 2006/03/11(土) 18:11:00

Skratch It!か