HSP - Hot Soup Processor [2]

**名前は開発中のものです。** · 02/10/24 12:05

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

**名前は開発中のものです。** · 03/01/18 21:36

乱数がうまく動いてくれません。どうしたらいいのですか？

**あぼーん** · NG

あぼーん

**名前は開発中のものです。** · 03/01/18 22:31

>>781
どのように「うまく動かない」のか説明しる。

乱数が起動ごとに違う数字にならないのなら、
スクリプトの最初に一回だけ randomize を呼ぶ。

**783** · 03/01/18 22:36

【追記】
時々 rnd を呼ぶ手前で randomize を
呼び出しているスクリプトを見かけるが間違い。
↓を実行するとわかるが、引数のない randomize は
時間を乱数シードにするので、wait がないループ内で使うと
毎回同じ値を生成してしまう。多分 >>694 もそれ。

repeat 10
randomize
rnd r,256
mes r
loop
stop

**名前は開発中のものです。** · 03/01/18 23:15

>>781は流れ的にネタ

**名前は開発中のものです。** · 03/01/18 23:23

だが時間で乱数を生成ってどんな計算式なんだろう？

**名前は開発中のものです。** · 03/01/18 23:31

"疑似乱数"でググれボケ！

**名前は開発中のものです。** · 03/01/18 23:41

>>787
サンクス！
名前的に完全な乱数ではないのね。
調べてくる。

**あぼーん** · NG

あぼーん

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

HSPでゲームを作り始めてから1ヶ月くらい経ちました。
ぜひ評価を下さい。

http://my.reset.jp/~aclass/index.htm

**名前は開発中のものです。** · 03/01/19 17:17

>>790
なんかやけにもっさりした動きだな。仕様なのか？
それとも結構なスペックを必要とするのか。cel 733でやったが。
まあたぶん後者だろうな。

つーか単純にゲームをやるユーザーとしていうと
どこを面白さとして売ってるんだ？
一ヶ月だからしょうがないと思うけど、
システムはもっと工夫がいると思うよ。

**790** · 03/01/19 17:31

thanks!
実はawaitじゃなくてwaitを使っています。機種によっては重いかもしれませ
ん。そういう事を抜きにしても、もっさりしているかもしれません。

まだまだ試作品のレベルです。これからどんどん肉付けしていきます。

**名前は開発中のものです。** · 03/01/19 17:41

>>792
シューティングなんかはawaitのほうが良いと思うよ。
cpu使用率が気になってるなら2.6を使えばいいし。
あと加速にいくらか段階をつけて制限時間を設けるとあせる感じが良いかも。
まあ頑張っちょくれ。

**あぼーん** · NG

あぼーん

**名前は開発中のものです。** · 03/01/19 17:57

萌えが足りないっつーか無い。

**あぼーん** · NG

あぼーん

**790** · 03/01/19 19:53

>>793
2.6ですか！
ありがとう。
awaitの値っていくつにすればいいのか、気になってたんですよ。
あまり小さくすると、遅いマシンではWindowsに渡す時間がなくなりそうだし。

**名前は開発中のものです。** · 03/01/19 20:17

>>797
いやそういうことではなくてhspのバージョンの話。
2.55ではawaitを使うとCPU使用率が100％になるが
2.6ではsleepで負荷が軽減できるはず。ってこと。

awaitの値は 16でいいかと。

**名前は開発中のものです。** · 03/01/19 21:41

たしかにもっさりしているね。
ダイレクトＸは使わんの？

**あぼーん** · NG

あぼーん

**名前は開発中のものです。** · 03/01/19 22:18

DirectX 使ってないSTG で HSP製のが
AAサロン板で公開されてるが、
あっちはあんまりもっさりしてないよ。

もっさりの原因は wait じゃない？

**名前は開発中のものです。** · 03/01/19 22:22

　　　　∧＿∧
　　　　（　´∀｀）＜　糸冬　！！
　　　　/, 　　つ
　　( (（_（＿,　）) )
　　　　　しし'

**名前は開発中のものです。** · 03/01/19 22:44

>>801
だから本人もそういってるわな。

**あぼーん** · NG

あぼーん

**名前は開発中のものです。** · 03/01/20 06:13

　シューティングに限らず、おおよそのゲームは秒間30枚の描画。3D系とか
動きの滑らかさ(早さ)にこだわるゲームは毎秒60枚。描画は30だが、判定は
秒間60回というのもある。

　awaitは1ms(1秒=1000ms)だから、30秒毎ならawait 33。60秒枚なら16。
　もっとも窓9x系はタイマーの精度が悪いため、30ms以下の指定はあてに
ならんけどな。

　あと、awaitは、「指定数値-前回のawaitから経過時間」で一定のリズムを
刻んでくれるが、waitは指定数値分しっかり休むから、処理にかかる時間に
よってリズムは不定になる。

**名前は開発中のものです。** · 03/01/20 09:08

秒毎?枚?毎秒じゃねーのか?

**あぼーん** · NG

あぼーん

**名前は開発中のものです。** · 03/01/20 11:43

>>806
日本語べんきょうしろ。

**名前は開発中のものです。** · 03/01/20 12:58

>>790
WindowsXP、Pen4 2.4GHz,メモリ512Mで動作しました。
サクサク動きましたよ。絵もきれいですし。
一ヶ月でここまでならたいしたものだと。

**名前は開発中のものです。** · 03/01/20 13:43

>>809に嫉妬

**名前は開発中のものです。** · 03/01/20 14:35

なんだ、ココは、この板は、ﾂｸﾚｸﾚ君の態度が悪すぎるね
プログラミングやったことない人、全く出来ない人の発言なのか？
出来る人の発言だとしても、人間的にどうかと思うが…
でも、いい人たちも居ますね

という自分はＨＳＰ始めて１週間の超初心者でした
まだ見ていないけど一ヶ月でシューティング作れるのは凄ひと思ふ

**811** · 03/01/20 15:18

ｺﾞﾒﾝ、ｶﾝﾁｶﾞｲした
ﾂｸﾚｸﾚ君なんて居ないね
みんな普通の人でした

**名前は開発中のものです。** · 03/01/20 15:21

このｽﾚに関しては

**あぼーん** · NG

あぼーん

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

いや、でも初心者がいきなりシューティングをつくるのはいいと思う。
俺もいきなりシューティングを作ったが、いろいろな人のソースをみながら
ノウハウや処理の流れみたいのを覚えていくのはかなりためになったと思う。

つーか絵が上手い人はいいなぁ。
理想の雰囲気があっても俺はそれを表現できないからな。

**あぼーん** · NG

あぼーん

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

同じく、いきなりシューティングを作ろうとしてるんですが、
グラフィック的に頑張る余裕が無いので８dotサイズのキャラの
極小サイズシューティングにしますた。
でも調子に乗って敵機を大量に表示したら処理が重くなった。

**名前は開発中のものです。** · 03/01/20 17:19

sage忘れた
すまん　許して

**あぼーん** · NG

あぼーん

**名前は開発中のものです。** · 03/01/20 18:32

>>809
　Dellか？(w

>>815
（´_ゝ`）ﾌｰﾝ

>>qjSpPiA2
　氏ね

**名前は開発中のものです。** · 03/01/20 18:36

リアルタイムゲーは
最終的に絶対DirectXが必要だから、
ZGPをはやいうちから使うべし。
HSPDXは回転、α合成がないのでやめたほうがいい。

**あぼーん** · NG

あぼーん

**( ´-｀)ｙ-~~~** · 03/01/20 18:37

hsp2.6
だめぽ

**名前は開発中のものです。** · 03/01/20 18:41

>>823
致命的なバグがまだあったとか？
完全移行しちまったんだが。

**あぼーん** · NG

あぼーん

**( ´-｀)ｙ-~~~** · 03/01/20 19:00

>>824
いや、制御文をマクロで表現するようなﾜｹﾜｶﾗﾝ仕様がやだなーと思っただけ。
俺はforマクロなんか気持ち悪くて気持ち悪くて使えん。
愚痴ですた。

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

>>821
今HSPDX使ってるんだけど、ZGPの方が良い？
使い勝手はどうなんだろ。

**あぼーん** · NG

あぼーん

**名前は開発中のものです。** · 03/01/20 19:29

>>827
2Dでしか使ってないが、簡単やし、多機能。
一回つかってみ、はまるよ。

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

結局2Dスプライトも3Dの描画能力に依存するんだよね？
オレのマシン、ボロイからなあ。どっかにZGPで作られた2Dゲームってないかな。

**あぼーん** · NG

あぼーん

**名前は開発中のものです。** · 03/01/20 19:46

>>830
サンプルにある。
あと月姫とかいうシューティングもたしかZGP
体験版やったけどびびった。

**790** · 03/01/20 20:22

みなさん有難うございます。
実は昔ゲームプログラミングを趣味でやっていまして、その後小説書きへと
移行したのですが、ＨＳＰでのプログラミングを最近始めました。
次はawait 16でやろうと思います。

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

>>832
サンプルでも十分動いてるね。
月姫はウチのマシンでは動かんかった。あんがと。

**あぼーん** · NG

あぼーん

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

…ZGPを使い込んでる人です。
たまたまこのスレを見まして…

ZGPですが、わりと使えると思います。

ただ、バージョンが上がるたびに、
(今まで問題の無かった)どこかにバグが出てくるのは
勘弁して欲しいなー、と思います…。

**実用に耐えない画像回転表示** · 03/01/21 01:19

#include "hspext.as"
angle=96 : fbit=8 : sx=0 : sy=0
screen 0,640,480 : mref vram1,66 : mw=winx : mh=winy
dialog "bmp",16 : if stat=0 : end
buffer 2 : picload refstr : mref vram2,66 : sw=winx : sh=winy
gsel 0
emath fbit : emcos cosA,angle : emsin sinA,angle
dw=sw*cosA-(sw*cosA<0*sw*cosA*2)+(sh*sinA)-(sh*sinA<0*sh*sinA*2)>>fbit
dh=sw*sinA-(sw*sinA<0*sw*sinA*2)+(sh*cosA)-(sh*cosA<0*sh*cosA*2)>>fbit
scx=sw/2 : scy=sh/2 : dcx=dw/2 : dcy=dh/2
repeat dh : y2=cnt : repeat dw : x2=cnt
x=x2-dcx*cosA-(y2-dcy*sinA)>>fbit+scx
y=x2-dcx*sinA+(y2-dcy*cosA)>>fbit+scy
y3=y2+sy : x2+=sx
if x>=0 : if y>=0 : if x<sw : if y<sh {
if x2>=0 : if y3>=0 : if x2<mw : if y3<mh {
memcpy vram1,vram2,3,mh-y3-1*mw+x2*3,sh-y-1*sw+x*3
}}
loop : loop
redraw 1 : stop

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

>>836
作ったものを見せてほしいです。

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

>>836 の 4つ上で紹介されました…

|))))))

**あぼーん** · NG

あぼーん

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

>>839
ヽ（´∀｀）ノﾜｰｲ　作者ｻｿだ～
HSPであそこまでやった根性に敬服。

で、次の言語を決めかねてるようだけど
Del厨兼HSP厨の漏れはDelphiを勧めまつ。
OOPﾏﾝｾｰ

**あぼーん** · NG

あぼーん

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

　自弾の遅さがもっさり感を醸し出してるな。

　次あたり、カウンタと配列変数を組み合わせて、敵の出現を固定化するって
のはどうだろう。

**836** ◆C6SeeSExNw · 03/01/21 07:36

>>841

>HSPであそこまでやった根性に敬服。

どうもありがとうございます。
使い始めた当初はマジ泣きました。
なんたって1+2*3=9ですからねえ。

それでもなんとかあそこまでできるようになりました。

Delphiは手元にv3 professionalはあるんですよ。
…ちょっと古すぎですか。

**あぼーん** · NG

あぼーん

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

>>836
タマタマというにはタイミング良すぎＷ
という突っ込みはしないけど
HSPスレ初めての口先だけでない実力者に感涙しますた
常駐きぼん

**あぼーん** · NG

あぼーん

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

　ZGPってあれか、3D系のプラグインね。今ごろ思い出したわ。

　ちょっと古めのグラフィックボードだと、DirectX8のサーフェイスあたりの
バグに巻き込まれて劇重になってたけど、DirectX9では直ったと思われ。

　そか、ちょっといじってみるかな。

**836** ◆C6SeeSExNw · 03/01/21 08:04

>>846

いや、本当に偶々ですよ、あんまし疑わないでｸﾀﾞｻｲ…(´Д`;)

ZGP自体は最近新バージョンが出たようで、
OpenGLを呼ぶこともできるようになったらしいです。

らしい、というのはまだ試してないからなんですが…。
というか、>>836で書いたとおりの理由で(新版はバグが増えてる事がままある)、
新しいバージョンのZGPをすぐさま投入するのには抵抗があります。

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

delphi勉強中(趣味)だが、HSPの知識は
ゲームとかのアルゴリズム以外ほとんど役に立たないことを思い知らされたよ…
つーかHSPでゲーム作るのって大変なほうなの？
エディターの問題な気がする。

**名前は開発中のものです。** · 03/01/21 12:33

>>850
構造体を素直に実装できないこと、
OOPチックなデータの取り扱いが難しいため、大規模なプログラムを書こうとすると漏れができること、
グローバル変数の管理がプログラムサイズが膨れ上がるにつれおざなりになってしまうこと、
再帰が直感的に実装できないこと。
一度書いた結果、このあたりがつらいと感じました。

一般的な話ですが、プログラムはモジュール化してdevide&conquerで仕上げるのが
もっとも習熟を必要とせず、また効率がよいので、
BASICライクなHSPの文法はなかなか辛いところですね。

**名前は開発中のものです。** · 03/01/21 12:37

ＺＧＰのバージョンが上がる度に弊害が発生する（らしい）というのではちょとコワイな。
hspdxだけでも十分ちゃ十分なんだけど、やっぱ半透明と回転があるのは魅力だよなー。

**名前は開発中のものです。** · 03/01/21 12:46

>>852
1806は安定してるんじゃない。

**836** ◆.MgXVgU6KM · 03/01/21 12:50

>>850
エディター、とは、付属のスクリプトエディタのことでしょうか。
個人的にはあのエディタ以上にデバッグのための機能が弱すぎる
ことが問題です。

フリーソフトで、Hot Soup Tasterっていうデバッガがあります。
ブレークポイントの設定もできる、そこそこ使えるデバッガですが、

大規模なプログラムのデバッグを試みるとプログラムが動く前に
HSPが落ちます。これはHSP側の問題じゃないかなと思いますが。
とりあえずアドレス貼っときます。
ttp://www.pcbsoft.net/

>>851
まったくその通りですね。変数管理の辛さは身に凍みて感じています。

**836** ◆.MgXVgU6KM · 03/01/21 12:59

>>853
うちで使ってるのは1806ですが、
sprparamにバグっぽいものが一つありまして…。

帰って来る速度値が正しい値になってないみたいです。

確証が取れてない＆作者が最近までオフモードだったので
報告はまだしてませんが…。

あと、ZGPというと毎回のバージョンアップで発生する大きな仕様変更が…。

かつて、1702から180に乗り換えたときにZGPの仕様変更にあわせてコードを
書き直したのですが、仕様がかなり変わったため、大量のコード書き直しの
目に遭って泣きそうになりました…。

**名前は開発中のものです。** · 03/01/21 13:08

高機能の代償か…
でもサポートは結構しっかりしてるからいいよ。

**あぼーん** · NG

あぼーん

**( ´-｀)ｙ-~~~** · 03/01/21 19:33

delerけっこういるのな。

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

del6personal がタダだからだと思うよ。
同じタダならdelphiのがいいけど、HSPにもいいとこはあるから
漏れはどちらも使ってる派。

ところで >>836 ｻﾝ、>>849と>>854とでトリップが違うけど
>>854,855の方が正式かな？

**836** ◆C6SeeSExNw · 03/01/21 22:43

>>859

正直どっちでもいいんですけど

＃もういっこ使ってるトリップがあるのですが、冷静に考えるとちょっと痛いので
＃こっちで。

いま、上に出てるやつを正式と言うことにしてください。

**あぼーん** · NG

あぼーん

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

ﾎﾘﾗｰ

**あぼーん** · NG

あぼーん

**名前は開発中のものです。** · 03/01/22 15:40

荒らしは飽きるということをしらんのかな？
生きがいなのかねぇ

**あぼーん** · NG

あぼーん

**名前は開発中のものです。** · 03/01/22 15:52

ZGPでそれまであった命令がバージョン上がってなくなるのは痛かった

**あぼーん** · NG

あぼーん

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

BrainFuck 作ってみますた。バグあるっぽいけど。

D=winx:E=winy/2:K=$8000:sdim A,K:sdim B,K:dim I,256:objmode 1:mesbox A,D,E-10,5
objsize D,20:button"Go",*C:mesbox B,D,E-10,4:title"BF":stop:*C:F=0:H=0:L=0:M=0
sdim B,K:sdim G,K:J=-1:N=0:repeat:peek O,A,H:H++:peek P,G,L:if(O=0)|(N!0){break
}if O=93{M--:if M<0{N=1}if J!M{if P{H=I.M}}else{J=-1}}if O=46{poke B,F,P:F++
objprm 2,B}if O=91{I.M=H-1:if(J<0)&(P=0){J=M}M++:if M=256{N=2}}if(O=62)|(O=60){
L+=O-61:if(L<0)|(L>(K-1)){N=3}}if(O=43)|(O=45){P-=O-44:if(P<0)|(P>255){N=4}
poke G,L,P}if O=44{poke B,F,95:objprm 2,B:repeat:Q=-1:repeat 240:getkey R,cnt
if R{Q=cnt:break}loop:if Q<0{poke G,L,Q}wait 1:loop:poke B,F,0:objprm 2,B}loop
if N {H--:B+="\n\nErr"+N+"-"+H}else{B+="\n\nDone."}objprm 2,B:stop

**868** · 03/01/22 16:41

ｽﾏｿ、>>868は間違い。

D=winx:E=winy/2:K=$8000:sdim A,K:sdim B,K:dim I,256:objmode 1:mesbox A,D,E-10,5
objsize D,20:button"Go",*C:mesbox B,D,E-10,4:title"BF":stop:*C:F=0:H=0:L=0:M=0
sdim B,K:sdim G,K:J=-1:N=0:repeat:peek O,A,H:H++:peek P,G,L:if(O=0)|(N!0){break
}if O=93{M--:if M<0{N=1}if J!M{if P{H=I.M}}else{J=-1}}if O=46{poke B,F,P:F++
objprm 2,B}if O=91{I.M=H-1:if(J<0)&(P=0){J=M}M++:if M=256{N=2}}if(O=62)|(O=60){
L+=O-61:if(L<0)|(L>(K-1)){N=3}}if(O=43)|(O=45){P-=O-44:if(P<0)|(P>255){N=4}
poke G,L,P}if O=44{poke B,F,95:objprm 2,B:repeat:Q=-1:repeat 240:getkey R,cnt
if R{Q=cnt:break}loop:if Q>0{poke G,L,Q:break}wait 1:loop:poke B,F,0:objprm 2,B
}loop:if N{H--:B+="\n\nErr"+N+"-"+H}else{B+="\n\nDone."}objprm 2,B:stop

**( ´-｀)ｙ-~~~** · 03/01/22 16:45

ム板のｸｿｽﾚで7行BFIを見た気がする

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

BrainFuck リファレンス
> ポインタをインクリメント
< ポインタをデクリメント
+ ポインタが示すメモリ位置のデータをインクリメント
- ポインタが示すメモリ位置のデータをデクリメント
. ポインタが示すメモリ位置のデータを出力
, ポインタが示すメモリ位置のデータに入力
[ ポインタが示すメモリ位置のデータがヌルなら対応する]までジャンプ
] ポインタが示すメモリ位置のデータがヌルじゃないなら対応する[までジャンプ

例として '@' を書くとしたら
１．単純に６４回インクリメントして出力
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
２．ループを利用して出力
>++++++[<++++++++++>-]<++++.
（1bite目を文字用、2bite目をカウンタ用とする。
　[～] は、単純に言えば指定biteが0になるまでループする。
　この例だとまず2bite目に６回インクリメントして
　それをループカウンタに使用している。）

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

>>870
コマンドラインから入力にすれば７行になりそうかも。
それにしてもレス早いなｗ

頭の体操にはもってこい　ヽ（ ´ー｀）ノ

**あぼーん** · NG

あぼーん

**名前は開発中のものです。** · 03/01/22 22:00

だれかいい素材が置いてあるとこしらない？
アクションやSTGにつかえるようなの。

**( ´-｀)ｙ-~~~** · 03/01/22 22:47

ﾓﾅｰ板。

**名前は開発中のものです。** · 03/01/22 23:37

>>875
ふーん

**836** ◆C6SeeSExNw · 03/01/22 23:48

>>874

ｸﾞｸﾞってみましたが見つからない。

RPG系の素材なら簡単に見つけられますが、
アクション系は無いですねえ。

>>875
AAを素材にしろと…。

面白そうではあります。

**名前は開発中のものです。** · 03/01/23 00:10

>>877
そうですか…
自分もくぐってはみたのですが、やはり見つかりませんでした。
自前の目をつぶってかいたような絵を使うしかないかな。

**名前は開発中のものです。** · 03/01/23 00:50

知り合いに書いて貰えばいいんでないか居？

**あぼーん** · NG

あぼーん

**名前は開発中のものです。** · 03/01/23 01:28

おい、ぐぐったら１ページ目に出てきましたよ？
おまいらが求めていたものなのかは知らんが

自作ゲームに使った素材を出来る限り公開します。
もちろん使用はフリー！　どんどん使って下さい。

だとさ。アニメーション用の画像もあった