HSP - Hot Soup Processor [11]

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

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

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

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

>>896
HSPも基本的な部分ではほぼ同じだと思うが。

**名前は開発中のものです。** · 2006/03/13(月) 09:36:42

perlは文字列変数でも計算式に代入可能といういい加減さが。

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

>>891みたいに関数に変わったものの一覧ってどっかにない？
…てかなんでわざわざ変えたんだよ…。統一するか互換性を持たせて欲しかった。

**名前は開発中のものです。** · 2006/03/13(月) 17:33:45

今までのがあまりにもひどい仕様だったんよ

**名前は開発中のものです。** · 2006/03/13(月) 18:30:46

>>899
マニュアルに書いてあるだろ・・・

**名前は開発中のものです。** · 2006/03/13(月) 20:02:16

関数化も不徹底で仕様が統一的でないからな。
getkeyとか、この流れなら関数化するだろ、と思うようなものがそのままだったり。

**名前は開発中のものです。** · 2006/03/13(月) 20:07:09

2で作ってたものはそのまま2で作りつづける

**名前は開発中のものです。** · 2006/03/13(月) 20:51:34

a="111"
poke a,0,'0'

mes a
stop
これで011と表示されるけどこの書き方知ってた?

>>889のスクリプトをuの文字だけ表示させるのは無理なのかなぁ
どうでもいいけど

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

>>904
peekが関数になったってのを別にすれば、peek実行する前にb=""を
実行しとけばいい。

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

>>904
いちおうこれで u が表示される。

a="iueo"
b=" "
poke b,0,peek(a,1)
mes b

peek,pokeで操作すると何かかっこいいけど、
ふつーにstrmidを使ったほうがわかりやすい。

a="iueo"
b=strmid(a,1,1)
mes b
stop

**名前は開発中のものです。** · 2006/03/13(月) 23:44:26

>>891
HSP2.xの命令をそのまま3.xで使いたいなら、
こんな感じでマクロ定義しておけば、けっこういけるよ。

#undef peek
#define peek(%1,%2,%3) %1=peek@hsp(%2,%3)

**名前は開発中のものです。** · 2006/03/13(月) 23:45:30

アンカーミス。
891じゃなくて　>>899　でした。

**名前は開発中のものです。** · 2006/03/14(火) 00:33:04

>>899
hspprog.htmとupdate.htmをもういちど読んでみろ
common/hsp261cmp.asが2.61互換のマクロ

**名前は開発中のものです。** · 2006/03/14(火) 00:51:47

peek(hoge)が数値扱いだから正しく動かないのか・・。
この話題を最後まで勘違いしてたのは俺だけか

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

#undef peek
#define global peek(%1,%2,%3)if vartype(%1)=2{%1=strmid(%2,%3,1)}else{%1=peek@\
hsp(%2,%3)}

b=""
a="iueo"
peek b,a,1
mes b

勘違いついでに2.61互換のpeekを定義してみた

**名前は開発中のものです。** · 2006/03/14(火) 15:41:36

きっちりpeek pokeを理解してたらそっちのが楽だと思う。
ソースも正常に動いたんならコメントつけるだけつけて以後見ないし

**名前は開発中のものです。** · 2006/03/15(水) 05:56:38

某誌より俺がＨＳＰで作ったゲームを載せてくれるというメールが来た。
めちゃめちゃ喜んだ俺だったがすぐに疑問がわく。「これって本物だろうか」と。
今はインターネットの時代。誰でも簡単になりすましができる。
住所と本名書いて返信しちゃった。
発売日を過ぎているので、今日近所の本屋に行ってみた。残念ながら置いて
なかった。不安だ。
もしも本物だった場合、普段は無職だめ板にいて時々ここをのぞきに来る俺の
しょぼいしょぼい人生に一筋の光がさす。だが誰かのイタズラだった場合絶望だ。

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

問題は来たメールのドメインだな

**名前は開発中のものです。** · 2006/03/15(水) 07:44:28

悪いが「一筋の光がさす」ほどのイベントでもないな
ネットでゲームとか公開してるなら一度くらい起こるだろう

**名前は開発中のものです。** · 2006/03/15(水) 10:09:10

それでもただで雑誌がもらえるのは嬉しいもんだ。
DOS/V USERとか

そんな一条の光もすぐに隠れてしまうけどな。次第にどうでも良くなる(ノД`)
VectorでこまめにVerうｐしてると掲載回数も増えるよ。

**名前は開発中のものです。** · 2006/03/15(水) 10:31:49

>次第にどうでも良くなる
ほんとにそうだよな・・でも初めて掲載許可のメールが来たときは、めちゃくちゃうれしかったな。
そのときもらった雑誌だけは取ってある。

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

iPとかが載せてもいい？とかよく来てたよ。
実際載ったけど謝礼とか何もなかったな。
その号の雑誌だけもらったが。

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

いや、見本誌くれるだけでもありがたいだろ。
見本誌も何もくれないところは少なからずある。

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

>>919
「載せていいですか？」「いいですよ」「ではでは」で終わりか？
そりゃひどいな・・・

**名前は開発中のものです。** · 2006/03/15(水) 17:19:07

ベーマガとかだったら掲載料ももらえたのにな。

**名前は開発中のものです。** · 2006/03/16(木) 05:17:24

掲載依頼してくる所ってエロ動画とフリーソフトを適当にＣＤに詰めた雑誌が多い。
本誌の方もnyの使い方とかＡＶのカタログだとかロクな内容じゃないし。

今まできた中でまともそうなのは週アスとＴｅｃＷＩＮぐらいだな。

**名前は開発中のものです。** · 2006/03/16(木) 20:17:27

PC-GIGAのフリーソフトのコーナーをいつも楽しみにしてるんだけど

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

>>923
漏れの作ったソフトも見てくれてる？

**名前は開発中のものです。** · 2006/03/16(木) 21:15:33

>>924
見たよ。

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

おにたまタンまたエロゲつくってる

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

エロが普及を促すことは歴史が証明してる

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

例えばドリキャス、PSP

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

PC-9801
うは、ﾃﾞﾗﾅﾂｶｼｽ

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

なんでまずVHSが出てこないんだおまへら

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

浮世絵なつかしすｗｗｗｗｗｗ

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

あるあるｗｗｗ
春画が初ｵｶｽﾞだったでｺﾞｻﾞﾙｗｗｗ

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

拙者も拙者も

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

話戻し杉

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

grotateの角度を実数で指定すると動かないんだが・・・何故

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

>>877
いや、HSPを捨てて、違う言語で組む、で一気に「スマート」になるよ。

**935** · 2006/03/18(土) 19:50:02

よく見るとlimitfじゃなくてlimit使ってた。ｽﾏｿ。

ところで、物を指定した角度に進ませるにはどうすればいいんだ・・・

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

emasinかなんか使え

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

縦横分解しろ

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

タンジェントの比をおおまかに書き出すとか

**ホスプロ** ◆HOTsoUpxjY · 2006/03/18(土) 21:26:59

スマートなHSP＝きれいなジャイアン　だが、それがいい。
>>937
ベクトルやらラジアンやらの話？

**ホスプロ** ◆HOTsoUpxjY · 2006/03/18(土) 21:51:24

;HSP3.0　物を指定した角度に進ませるサンプル
randomize:FF=16*16-1
repeat
x1=x2:y1=y2:x2=rnd(640):y2=rnd(480)
repeat FF
x=((x2*cnt)+(x1*(FF-cnt))) /FF
y=((y2*cnt)+(y1*(FF-cnt))) /FF
pos x2,y2:color 255,0,0:mes "●"
pos x,y:color 0,0,255:mes "●"
redraw 1:wait 0:redraw 2:color:boxf
loop:loop

もし三角関数とかいやなら、なんかこういうやり方もあるみたい
ちなみに上をこう書き換えると高速版
>redraw 1:wait 0:redraw 2:color:boxf
>loop:loop
loop:redraw 1:wait 0:redraw 2:color:boxf:loop

**ホスプロ** ◆HOTsoUpxjY · 2006/03/18(土) 21:59:01

>>937がシューティングにおける追尾みたいのを求めているのかと勝手に想定したけど、
>>942は角度じゃなくて指定座標への移動だから、まあ違うと言われればそれまで。

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

ﾍﾞｰﾀ2がきてる

**名前は開発中のものです。** · 2006/03/19(日) 01:42:35

バグトラッッキングシステムｗ

**名前は開発中のものです。** · 2006/03/19(日) 01:59:08

なぜ「ッ」がダブるのかいまだに判らんですタイ

**名前は開発中のものです。** · 2006/03/19(日) 02:28:04

>>942
距離によって速さが変わるのはいかがなものかと

**名前は開発中のものです。** · 2006/03/19(日) 04:30:07

*reset:atx=rnd(640):aty=rnd(480):sax=atx-x:say=aty-y
*main:if abs(say)<abs(sax){x+=1-2*(sax<0):p+=abs(say):if abs(sax)<p{p-=abs(sax)
y+=1-2*(say<0)}}else{y+=1-2*(say<0):p+=abs(sax):if abs(say)<p{p-=abs(say)
x+=1-2*(sax<0)}}if abs(x-atx)<5&abs(y-aty)<5{goto*reset}redraw 2:color:boxf
color 255:grect atx,aty:color ,,255:grect x,y:redraw:await:goto *main

**ホスプロ** ◆HOTsoUpxjY · 2006/03/19(日) 05:31:49

>>947
ええと…シューティングを念頭に置いてて、近くから速い弾を撃たれると困るから。

**名前は開発中のものです。** · 2006/03/19(日) 08:34:00

>>937

a=1.0/57.296
repeat 36 : b=10.0*cnt : x=0.0 : y=0.0 :repeat 100
x=x+cos(a*b) : y=y+sin(a*b) : pset 100+x,100+y : wait 1
loop : loop
stop

**名前は開発中のものです。** · 2006/03/19(日) 12:50:07

>>949
自機の攻撃はどうなりますか

**名前は開発中のものです。** · 2006/03/19(日) 12:56:43

敵にも優しく。

**名前は開発中のものです。** · 2006/03/19(日) 13:01:17

目標との距離をnとしたときに、n/2移動する弾を作ればいいじゃん。
永遠に当たらないけどさ。

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

ラベル変数まだかよ

**名前は開発中のものです。** · 2006/03/19(日) 13:17:39

>>953
敵が前に動けば当たる

**名前は開発中のものです。** · 2006/03/19(日) 13:23:41

>>955
敵と自機が重なったときだけ当たる

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

*reset:atx=rnd(640):aty=rnd(480):sax=atx-x:say=aty-y
*main:if abs(say)<abs(sax){x+=1-2*(sax<0):p+=abs(say):if abs(sax)<p{p-=abs(sax)
y+=1-2*(say<0)}}else{y+=1-2*(say<0):p+=abs(sax):if abs(say)<p{p-=abs(say)
x+=1-2*(sax<0)}}if abs(x-atx)<5&abs(y-aty)<5{goto*reset}redraw 2:color:boxf
color 255:grect atx,aty:color ,,255:grect x,y:redraw:await:goto *main

**名前は開発中のものです。** · 2006/03/19(日) 14:13:01

なんでそんな変なシステムにするんだｗ
過去でｓそういうのがなかったとは言わないが…

**ホスプロ** ◆HOTsoUpxjY · 2006/03/19(日) 16:06:54

>>951
自弾は弾幕で敵に向かわないのが普通だから大丈夫。
追尾ミサイルとかはしょうがないから向きをつけるけど。
昔のゲームは斜めの弾が速いとかわりと適当だった。

**名前は開発中のものです。** · 2006/03/19(日) 20:04:44

遠くと近くで同時に撃った弾が同時に着弾するよーなSTGなんて見たことねｪ
つうか、あったら常識的な感覚とあわなすぎて難しそう

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

SRDの一部の弾とかそうだった気が
まあ何にせよ近くで速い弾撃たれたらなんて妙な理由で
そんな変なことしなくていいと思うが

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

;要は三角関数を嫌がるなって事で
mx=0.0:my=0.0
*reset
speed=1.0*rnd(10)+10.0:tx=0.0+rnd(640):ty=0.0+rnd(480):rd=atan(ty-my,tx-mx)
*main
redraw 2:color:boxf
mx+=cos(rd)*speed
my+=sin(rd)*speed
color 255:grect tx,ty
color ,,255:grect mx,my
redraw:await
if absf(mx-tx)<20.0 & absf(my-ty)<20.0{goto *reset}
goto *main

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

>>960
弾でモーフィングができたりとか

**名前は開発中のものです。** · 2006/03/21(火) 18:12:10

こういう感じで自作ルーチンを作ったらどうなんだろう
dim calc,900
repeat 900
calc.cnt=cnt*cnt
loop

y=10
repeat 48
x=230400-(y*y)
y+10
repeat 900
if x<=calc.cnt:x=cnt:break
loop

line 0,0,x,y
wait 1
loop

stop

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

>>886
ちなみに、自分は3.0になってからnotegetとcsvstrでたまに取得ではないことがあるので、
その場合はawaitとrepeat構文で再び読ませるようにしているけど。
noteloadかな…？

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

waveの重ねがけはできないものだろうか…
へぇボタンっぽく

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

a.b.c.dの変数にそれぞれ0.1.2.3の値をランダムで、
重複しないように入れる効率のいい方法ってありませんか？

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

>>967
シャッフル

**名前は開発中のものです。** · 2006/03/24(金) 16:36:57

なんですかそのかっこいい横文字

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

すっごいヒントなのにな…('A`)

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

MSNでぐぐったらわかりました。
というかHSP開発Wikiなんてあったんですね。
どうもありがとうございました。

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

>>969 日本語でおｋ

repeat 4
a.cnt=cnt
loop

repeat 10000
rnd x,4:rnd y,4
t=a.x:a.x=a.y:a.y=t
loop

repeat 4
mes a.cnt
loop

stop

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

おかげで完成しました。
「ひぐらしのなく頃に」にインスパイヤされたゲームですがうｐしなくていいですよね

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

hspでも使ってみようかと思いちょっといろいろ見てるんですけど、
いくつか疑問があったので質問させて下さい。

配列の要素の削除ってできないんですか？
a(0)=0
a(1)=1
a(2)=2
からa(1)を削除して、
a(0)=0
a(1)=2
とか。

あと、>>972のrepeatの部分のcntですけど
cnt++ってしなくてもいいんですか？

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

cntはシステム変数だから勝手に増える、という回答でいいのかな？

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

>>972の方がモジュール使わないしスマートだと思うので入れてみることにします。

上のブロックを
a=0,1,2,3にするのはありですか？
あと、メインブロックのrepeatは10000回も必要ですか？

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

>>975
サンクスです。cntの謎が解けました。

リファレンスをざっと流し読みしただけだったので
見落としがあったのかもしれませんけど、
配列を操作する関数とかってあんまり用意されてないんですかね。

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

それより、次スレはどうするの？

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

>>974
単純なのはnote*命令でおｋ

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

次スレ
HSP - Hot Soup Processor [11]
http://pc8.2ch.net/test/read.cgi/gamedev/1143192699/

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

シャッフル、前に同じことで悩んでttp://hagane.s11.xrea.com/の非重複乱数モジュールで
解決したんだけど、>>972見て目から鱗。

みんな発想力すごいね。

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

>>966
dsoundex使うよろし。

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

「スクプリト」に妙なかわいらしさを感じるのは俺だけか。

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

スクでプリだもんな

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

埋めるか。

宣伝。
今月末に横浜赤レンガでやる展示会にて
HSPを使ったゲームを展示します。

**ホスプロ** ◆HOTsoUpxjY · 2006/03/24(金) 20:46:05

>>976
>a=0,1,2,3にするのはありですか？
あり。
>メインブロックのrepeatは10000回も必要ですか？
不要。それよりrandomizeしないといつも同じ。乱数も一つで十分。
あとトリッキーだけど、一時変数はなくても二つの値を交換できる。

>>977
pop/pushとかあれば便利だけど、モジュールですぐ作れるじゃん。

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

アホの子ホスプロは黙ってろよ。

この間違い発信基地害野郎が

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

トリップにHSP関連のものを付けてまで
「出来る風」を装って、どこかもの悲しいんだよな。

大体、コテってのは匿名掲示板において
わざわざ印を付けたがるほど露出狂でありどこかおかしい。

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

「誰もお前の事なんか興味ない」という事をどう説明すれば分かってくれるのか

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

宣伝。
今月末に横浜赤レンガでやる展示会にて
HSPを使ったゲームを展示します。

どんなゲームか知りたいね

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

どうせレンガテトリスだろ

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

あーーーーーーーーーーーーーーーーーーーーーーーーーー

**名前は開発中のものです。** · 2006/03/25(土) 23:26:15

埋めなくていいのでしょうか

**名前は開発中のものです。** · 2006/03/25(土) 23:42:34

なかなか埋まらないなと思って何度も更新していた人ならここに。

**名前は開発中のものです。** · 2006/03/25(土) 23:53:51

久々に・・・1000でも・・・とってやろうかな・・・ウシシ

**名前は開発中のものです。** · 2006/03/25(土) 23:55:35

そうはさせない