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/12(日) 00:48:23

>>875
ヘルプを読んでも命令の意味がわからず、
ファイルの読み書きすらおぼつかないレベルで
自分を疑うより先にシステムを疑うとはおこがましい。

システム上の隠れた変数とかじゃなくて
オマエの組んだスクリプトのミスだろ。

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

ついでに>>867　の件。　>>875の書き込みから察するに、
スクリプトの行数が短いことを「スマート」と言っているんだと解釈して話すが。

オマエがやるべきことは
・汚くてもいいから、とりあえず望む動作をするスクリプトを組む。

それができたら
・共通化できそうな部分を、関数やマクロを使って記述しなおして整理する。

これでいくらか「スマート」になるだろ。

**859** · 2006/03/12(日) 01:03:38

自己解決できますた。
普通にmmplayで問題ﾅｽですた。

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

(TVの)2chシュミレータ
screen ,,,1:mref v,66:while:repeat 76800:lpoke v,cnt*4,rnd(32768)*131074:loop
redraw 1:await:wend

**名前は開発中のものです。** · 2006/03/12(日) 08:44:36

なんのプログラム？
バイナリをメモリにパンクしそうなくらい
書き込んでるけど、暴走するんじゃない？
もしかしてシステムが破壊されるかも。

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

おれのとこの2chは通販だけど、>>879のは砂嵐なんだと思う

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

>>880
テレビの砂嵐を再現
画面640*480、256：配列ｖをVramに：永久繰り返し：リピート160*120回：ｖに4ドット分パレットデータ書き込み：リピートへ
表示：ウエイト：繰り返し

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

うお、間違ってる
160*120＞160*480
だ・・・

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

ほらやっぱりね☆

**名前は開発中のものです。** · 2006/03/12(日) 16:26:04

>>876
仕様を推測するのがおこがましい？わけがわからない。
> オマエの組んだスクリプトのミスだろ。
だから、どこがミスか考えているんですが？
何がいいたいんですか？

**名前は開発中のものです。** · 2006/03/12(日) 16:33:01

ためしにbloadをnoteloadにかえるとうまくいきました。

//鎧
num_arm=10;鎧の種類
sdim arm_nam,64,num_arm;名前
dim arm_def,num_arm;鎧の守備力
dim arm_pen,num_arm;鎧のペナルティ(%)
csvbuff=""
notesel csvbuff;メモリノートパッド命令のバッファに設定
noteload "armor.csv"
csvmax=notemax
repeat csvmax-1
noteget csvline,cnt+1;csvbuffのcnt行の文字列をcsvlineに格納 0行目は項目名で飛ばすのでcnt+1
csvstr csvsell,csvline;１行をcsvsellに分解格納
arm_nam(cnt)=csvsell(1);名前
arm_def(cnt)=int(csvsell(2));防御力
arm_pen(cnt)=int(csvsell(3));ペナルティ
loop

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

>>886 お前ばかだろって言いたいんじゃねーの？

バカっぽいもんな。あんた

**名前は開発中のものです。** · 2006/03/12(日) 17:41:44

理想の完成形を説明しない
csvファイルを読むと書いてあんのにそのcsvファイルを示さない
アドバイスされた命令を「わからない」と一蹴
「俺が間違っている訳ないのでHSPがおかしい」という態度
原因を割り出すための最小構成すら作れない
そもそも他人が理解出来る文章が書けない

まあそのへんが君の限界なんだろうね
いいからサンプルのcsvファイル作って結果的にどういう変数にまとめたいのか説明しろ

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

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

なぜにこれが動かないんだ・・・HSPやめようかなあ・・・
エラーも18で意味不明

**876** · 2006/03/12(日) 20:38:48

>>888
レスしようと思ったら、うまいことまとめてくれてた。ありがとう。

─否定してばかりでも何なんで。

ある程度まで自分で色々調べたり、考えたりの努力をする姿勢は買えるんだが、
最後の部分で自分に甘い。　そこを惜しむ。

**名前は開発中のものです。** · 2006/03/12(日) 20:51:55

>>889
HSP2.xで命令だったものが、HSP3.xで関数に変わってるため。

[HSP2.x]　peek b,a,1
↓
[HSP3.x]　b=peek(a,1)

変更された命令等については　/docs/update.htm　参照。

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

ヘルプ嫁。デフォでbが数値変数だからだめなんだ。
peekの前にbを文字列変数にするために、
b=""
これが必要。
こんなくらいでやめるならプログラム自体諦めないといけない

**名前は開発中のものです。** · 2006/03/12(日) 20:57:28

もしかして俺大いなる勘違いしてる？

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

今回は残念な結果に終わりましたが
考え方としては悪くないかと思います　(;＾ω＾)

**889** · 2006/03/12(日) 23:51:49

どうもありがと出来ますた。int()で数値化する方法もあったのね

**889** · 2006/03/12(日) 23:56:52

>>892
変数型にあまり気を使わないperlしかやったこと無いんですよ・・・

**名前は開発中のものです。** · 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はシステム変数だから勝手に増える、という回答でいいのかな？