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

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