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/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!か

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

小さい頃本当に鼻くそ食べてたよ。「鼻くそ丸めて食べてみよ、あ、おいし
かぁた♪」とか言いながら。高○君の「鼻から紅茶がどんわ、どんわ」という
ギャグに対抗したものだった。みんなキモがってるのを、俺は勝手にうけてる
ものと勘違いしてた。その高○君が最近自殺したらしい。そんな俺は今１年
かけてHSPでゲームを作っても数個のダメ出し意見をもらうばかりだ。ああ
子供の頃からダメだったさ！
∩←俺のチンコです。よかったら食べてください。

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

HSPでSkratch It!以上のゲームつくるのは不可能
2004年の受賞ゲームだが知らない香具師はプレイ必須

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

>>869==871
作者乙

って言われても仕方ない書き込みだな。

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

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

今日の春厨の返し技の返し技らしいな。

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

弾幕をかいくぐり敵を撃破していくのが楽しいのに
弾避けに余裕が出てきたなら次はスコアアタックよん

だいたい自機がちょー強いんだから
弾をばらまくぐらいでちょうど良いバランスじゃん

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

>>868
csvstrで書き換えると行数は減ります。
しかし武器はうまくいくのに次の鎧で読めなくなります。
何かのシステム上の隠れた変数が存在していて、
それが武器の読み込んだ状態のままの位置に
なっていて、それをリセットしないとその続きを
読んでいるようですが、これは推測です。
csvnoteはヘルプを読んでもこれが一体何の命令で
どういう効果があるのかさっぱりわかりませんでした。

**名前は開発中のものです。** · 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