HSP - Hot Soup Processor [14]

**名前は開発中のものです。** · 2006/12/09(土) 22:35:08

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

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

**名前は開発中のものです。** · 2007/04/02(月) 20:24:51

hoge = cnt

**名前は開発中のものです。** · 2007/04/02(月) 20:27:52

>>649
たぶん無理な気ガス。
どちらにしろ、#define はコンパイル前に置換するだけだから。

あえてやるなら、連想配列みたいな方法だと思うが。

オブジェクトＩＤと文字列が完全に固定なら、
repeat 4
mes "#define "+buf(cnt)+" "+cnt
loop
みたいにヘッダファイルを書き出してから、それをインクルードするｗ

**641** · 2007/04/02(月) 20:44:30

お答えありが㌧です。

やはり私の発想はどこか飛んでたようですね。あきらめてまた一から
違う管理方法を考えます

**名前は開発中のものです。** · 2007/04/02(月) 22:21:02

http://nextbm.ty.land.to/index.htm

毎月HSP掲示板に来てたのが廃刊してくれたそうだｗ
理由がワロスｗ

**名前は開発中のものです。** · 2007/04/02(月) 22:31:48

>>647
オブジェクトIDは何が割り当てられるか不定で
使う時には名前でIDを使いたい？

俺はこんな感じでやってる（ID何番が割り当てられるかは気にしなくていいから楽）
#include "hgimg3.as"
#enum pan=10
#enum pin
#enum pun
#enum pen
#enum objend
dim id,objend
hgini
setsizef 10,10
addbox mid
repeat objend-pan,pan
regobj id(cnt)
loop
repeat
setpos id(pan),sin(0.1*cnt)*25
addang id(pan),0.01,0.01
setpos id(pin),0,sin(0.01*cnt)*20
addang id(pin),0,0.01,0.01
hgdraw
hgsync 10
loop

連想配列が実装されたらid("名前")って出来るみたいだけど・・・

**名前は開発中のものです。** · 2007/04/02(月) 22:43:36

HSP3.1は連想配列の実装が予定されている･･･
そんなふうに考えていた時期が俺にもありました

**名前は開発中のものです。** · 2007/04/04(水) 17:21:52

age

**名前は開発中のものです。** · 2007/04/04(水) 19:18:19

HSPって、&と&&の区別しないんだな
俺の3時間返せ

**名前は開発中のものです。** · 2007/04/04(水) 19:34:58

つ【3時間】

**名前は開発中のものです。** · 2007/04/05(木) 11:29:50

マニュアルよめよ

**名前は開発中のものです。** · 2007/04/05(木) 11:36:49

↑読んでないやつ

**名前は開発中のものです。** · 2007/04/05(木) 11:41:19

その辺りはマニュアルに書いてない、というか、
仕様外の演算子じゃねーの？

**名前は開発中のものです。** · 2007/04/06(金) 22:37:19

で、β8が出てる訳だが

>・更新履歴
>
> 2007/04/05 3.1b8
>
> 新規拡張プラグインhspcvを追加。(詳細はhspcv.txtを参照してください)
> 変数データをまとめてファイルに読み書きするためのvload、vsave関連命令(hspdaプラグイン)を追加。
> HSPCL(コンソール版)のinput命令でバイナリーモード時にEOFを誤認識する不具合を修正。
> コンパイル時の追加ファイル(hspdef.as等)が存在しなくてもエラー表示しないように修正。
> 変数名情報を常に出力するオプションを#cmpopt命令に追加。
> HSPSDK(プラグイン)側から変数IDと変数名に関する情報を取得可能に修正。
> RSSモジュール(mod_rss.as)のモジュール名を修正。(HSPBT#133)
> user32.as内のGetWindowModuleFileName関数定義を修正。(HSPBT#125)
> 拡張プラグインhspinetのftpopen命令のポート指定ができない不具合を修正。(HSPBT#58)
> 拡張プラグインHGIMG3の機能追加と不具合をいくつか修正(詳細はhgimg3.txtを参照してください)。

**名前は開発中のものです。** · 2007/04/07(土) 00:05:32

そのb8、実行するとタイトルがb7になるわけだが
あと、アナウンスも無いけどね

**名前は開発中のものです。** · 2007/04/07(土) 21:21:42

正式版キタ

**名前は開発中のものです。** · 2007/04/08(日) 08:49:30

メッセージボックスの指定行のバイト数ってどうやって求めてる？
OSの問題でsendmsgはボツだし、地道に計算したらフリーズするし・・

**名前は開発中のものです。** · 2007/04/08(日) 10:45:14

リンク張っていないので
ttp://www.onionsoft.net/hsp/file/hsp31b8.lzh
ttp://www.onionsoft.net/hsp/file/hspsdk31b8.lzh

なんかｄｇｄｇね

**名前は開発中のものです。** · 2007/04/08(日) 11:34:02

>>665
note系命令で指定行取得してstrlen

**名前は開発中のものです。** · 2007/04/08(日) 12:54:56

>>667
thx

**名前は開発中のものです。** · 2007/04/08(日) 20:17:18

新しいヘルプになって最前面に固定できなくなった？

**名前は開発中のものです。** · 2007/04/09(月) 12:50:06

>なんかｄｇｄｇね
ディグダグ？

**名前は開発中のものです。** · 2007/04/09(月) 19:56:01

>>670
グダグダ

**名前は開発中のものです。** · 2007/04/09(月) 22:23:05

ｄｇｄｇならディグダグで正解じゃないか？ｗ

**名前は開発中のものです。** · 2007/04/09(月) 22:44:43

新しい描画プラグインってどうなの？

**名前は開発中のものです。** · 2007/04/10(火) 01:23:00

>>673
こんなのが数十行で出来る
http://thelaughingman.net/

**名前は開発中のものです。** · 2007/04/10(火) 01:59:10

描画プラグインに新しいのが出たのか？

**名前は開発中のものです。** · 2007/04/10(火) 08:57:53

β晩にhspcvが追加されている
が、サンプルはない

**名前は開発中のものです。** · 2007/04/10(火) 09:00:39

haarcascade_frontalface_alt2.xml はぐぐれ
#include "hspcv.as"
cvbuffer ,280, 212
cvloadxml "haarcascade_frontalface_alt2.xml"
cvload "認識させたい画像"
cvfacedetect , 1.0
if 0 == stat {
mes "認識失敗"
}
facearea_num = stat
cvgetimg , 0
dim maskarea, 4
repeat facearea_num
cvgetface facearea(0), facearea(1), facearea(2), facearea(3)
mes ""+facearea(0)+","+facearea(1)+","+facearea(2)+","+facearea(3)
loop
とりあえずこんな感じで認識できるはず

**名前は開発中のものです。** · 2007/04/10(火) 12:05:36

>>677
動いたおもすれー

**名前は開発中のものです。** · 2007/04/10(火) 19:02:17

変数データを直接読み書きできるって事は
セーブ・ロードが簡潔にできるってことなのかな

**名前は開発中のものです。** · 2007/04/10(火) 21:54:45

うん

**名前は開発中のものです。** · 2007/04/11(水) 05:13:37

ノートパッドで切り出しとかやってセーブ・ロードに苦心してた事も
いい思い出に変わるのかな

**名前は開発中のものです。** · 2007/04/12(木) 21:07:33

初心者用講座とか色々廻ってたけど
電卓作るあたりで挫折した

**名前は開発中のものです。** · 2007/04/12(木) 21:08:29

盛りage

**名前は開発中のものです。** · 2007/04/12(木) 21:20:14

>>677
顔じゃ無い部分が認識された
よく見ると顔みたいに・・・

心霊写真かと思ったよｗ

**名前は開発中のものです。** · 2007/04/12(木) 21:20:43

電卓で挫折って・・・

**名前は開発中のものです。** · 2007/04/12(木) 22:32:55

なんのためにコンピュータ使ってんだろうなｗ

**名前は開発中のものです。** · 2007/04/13(金) 02:40:01

こんぽじっとぱたーん・・・・？？？？？？

デジタル土方レベルのCかBASICしか出来ない香具師でも
力技だけでゲームを作れる言語作ってくれよ！

あ、もうあるか。

**名前は開発中のものです。** · 2007/04/13(金) 15:33:03

10,200,30,60 00　ってテキストに書いておいて、
カンマ区切りで配列にしたいんですが、

notesel fileLoad
noteload "data.txt",0
sdim Fname,32000,999
getstr Fname,fileLoad,0,','
dialog Fname.1
dialog Fname.2

って書いてもダイアログには数字が表示されませんでした。
カンマ区切りのテキストファイルから配列を作るにはどう書けばいいのでしょうか。

**名前は開発中のものです。** · 2007/04/13(金) 15:59:15

>>688
それじゃあ、最初の一つしか配列に渡されないよ
notesel fileLoad
;noteload "data.txt",0
fileLoad="10,200,30,60,00"
sdim Fname,32000,999
index=0
repeat
getstr Fname(cnt),fileLoad,index,','
index+strsize
if ','!stat {break} ;getstrで区切りキャラクタ以外で取り出された
loop
repeat
if Fname(cnt)="" {break}
dialog Fname(cnt)
loop
end

プラグイン hspdaの csvstrと間違えた？
こっちなら一行分なら一回で配列に代入される
（でもhspdaには色々バグがあるから注意）

**名前は開発中のものです。** · 2007/04/13(金) 18:14:32

>>689
ありがとうございます。おかげさまでできました。
助かりました。

**名前は開発中のものです。** · 2007/04/13(金) 20:07:44

>>669
それ必要なの?

**名前は開発中のものです。** · 2007/04/13(金) 20:30:21

おれ別人だけど、ヘルプ見ながらスクリプト打ち込みたいとか？

**名前は開発中のものです。** · 2007/04/14(土) 00:03:39

>691
うん、ヘルプ見ながら打ち込むので俺には必要。
命令のパラメータさえ分かればいいから小さくして右上に出しっぱなしにしてたんだが。
今は画面の3分の2にエディタ開いて残りにヘルプ出してる。
ヘルプブラウザのreadme見ても何も書いてないから抹殺されたんだろうな。

**名前は開発中のものです。** · 2007/04/14(土) 01:44:52

作者のページにBBSもあるんだし
ここで聞くよりも、作者に直接聞いた方がいいと思うんだが

**名前は開発中のものです。** · 2007/04/14(土) 13:46:00

あるか、ないか、が聞きたかっただけだから。
なけりゃないで、やり方はあるから作者ページに書き込むほどでもないと判断した。

**名前は開発中のものです。** · 2007/04/14(土) 13:57:51

今アイテム数20個毎にページを増やすように作ってるんだけど、
コレを16個毎にして16進数で管理すると簡便化できる？

**名前は開発中のものです。** · 2007/04/14(土) 14:21:07

>>696
\式使えば楽

**名前は開発中のものです。** · 2007/04/14(土) 20:07:48

ありが㌧

**名前は開発中のものです。** · 2007/04/15(日) 19:29:31

HGIMG3の簡易コリジョン(AABB)は実装されてますけど、
パーツ毎判定みたいのはいつ頃に実装されるのかな？

あんまり実装遅いなら使いたくないけど、ランタイムなのが魅力的なんだよな～
おにーたまHGIMG3スケージュルも出して欲しい

**名前は開発中のものです。** · 2007/04/16(月) 03:55:20

パーツっつーかポリゴン毎のコリジョンか？
かなり重くなると思うんで簡易的にやったほうが良いんじゃないかと思うんだが…。

**名前は開発中のものです。** · 2007/04/16(月) 10:10:37

hmm使ってフルスクリーンで動画再生するとキー入力受け付けなくなるんだけど
どうしようもないですか？

**名前は開発中のものです。** · 2007/04/16(月) 18:25:39

256*224の解像度を512*448のウィンドウで２倍表示したいんですが、
directXを使う以外に方法はありませんか？

**名前は開発中のものです。** · 2007/04/17(火) 01:46:56

>>702
>>623-624

**702** · 2007/04/17(火) 07:26:05

>>703
どうもッス。ファミコンぽいアクション作ってて、
gzoomだと透過色が使えないので困ってます。

**名前は開発中のものです。** · 2007/04/17(火) 11:40:10

>>704
読み込んだ後にgzoomで他のバッファにコピーしとけばいいだけじゃん
buffer 1
picload dir_exe+"\\sample\\demo\\jp6girl.bmp"
sx=ginfo(12)
sy=ginfo(13)
buffer 2,sx*2,sy*2
gzoom sx*2,sy*2,1,0,0,sx,sy
screen 0,640,480
gcopy 1,0,0,sx,sy/2
gmode 2
pos sx/2,0
gcopy 2,0,0,sx*2,sy

それか、表示用と違うバッファに画面を完成させてから表示用の画面にgzoom

**名前は開発中のものです。** · 2007/04/17(火) 17:21:04

座標の扱いが違うけどgmode の設定が利くのもある
buffer 1
picload dir_exe+"\\sample\\demo\\jp6girl.bmp"
sx=ginfo(12)
sy=ginfo(13)
gsel 0
gmode 2,sx,sy ;コピー元の画像サイズ
pos 320,240+sy/2 ;画像の中心(gcopy等と違い指定した座標が中心に来る)
grotate 1,0,0,0,sx*2,sy*2

後gsquareってーのもあるけど、大量にコピーするのには向かないかな・・・

**702** · 2007/04/17(火) 18:15:12

>>705 >>706
うお、その発想はなかったわ！
どうもありがとうございます。

**名前は開発中のものです。** · 2007/04/17(火) 22:14:21

最近hsp2.6でhspdxのプラグインを使ったSTG作ってるんだけど
壁に自機弾と敵弾があたると、自機弾と敵弾が消えるようにしてるんだけど
稀に弾がすり抜ける時がある。
これって敵弾と自機弾が同時に壁に衝突した時にすり抜けるのかね？
自機弾のタイプ値２
敵弾のタイプ値８
４００は壁のスプライト番号
es_find a,10,a
if a=-1:return
es_check b,a,32,1,400,400
こんな感じなんだけど。
すり抜けないよう対処法を教えて欲しい。

**名前は開発中のものです。** · 2007/04/17(火) 22:19:51

単に弾の移動量が自機の判定より大きくて抜けちゃってるだけじゃないの？

**名前は開発中のものです。** · 2007/04/17(火) 23:06:48

壁との当たり判定なんてスプライトの判定命令じゃなくて計算でやれ

**名前は開発中のものです。** · 2007/04/17(火) 23:19:06

>>709
確かに移動速度も影響あるけど
速度を遅くしてもやっぱり同時に衝突するとすり抜ける。

で、対策を考えたんだけど
単純に衝突のサブルーチンを2つにする事により
2発動時に衝突してもOKになったみたい。
この時点で全くすり抜けなくなった。
サブルーチンを3つにすれば3発同時もOKかな。

**名前は開発中のものです。** · 2007/04/17(火) 23:32:40

>>711
hspdxって使ったことないんだが、そのes_checkって当たってるスプライト1つしか返さないんだな。
自前でやったほうが簡単そうだな

**名前は開発中のものです。** · 2007/04/17(火) 23:48:03

es_checkはもし同時に衝突してたらスプライト番号が低いほうが優先される仕組みになってる。
少しでも衝突タイミングが違えば問題ないんだけど。
あと、一度すり抜けたスプライトはすり抜け中に再び衝突判定が得られにくい。
すり抜けてる最中に他のスプライトとの衝突判定が起きるから。
あと俺の使ってるのはhspdxじゃなくてhspfixの間違いでした。

**名前は開発中のものです。** · 2007/04/17(火) 23:49:00

>>711
ああすまん、ちゃんと読んでなかった。壁なｗ

>>712
判定を始めるスプライト番号を指定できるから、ひとつ見つかったら
その番号の後から再検索すれば良い。

**714** · 2007/04/17(火) 23:51:13

自己レス
>判定を始めるスプライト番号を指定できるから
そんなもん無かったｗ
勘違い

**名前は開発中のものです。** · 2007/04/17(火) 23:52:08

>>711
つーか一回当たったら判定処理から抜けてるだけじゃねーのか？ｗ

で、使ってるのはhspdxfixだろ？
*sub
es_find a,10,0
if a=-1:return
repeat
es_check a,400,10,1,a
if a=-1:break
消す処理
a++
loop
return

これでいんじゃねーの？

**名前は開発中のものです。** · 2007/04/17(火) 23:52:31

>>708
その３行の前後の処理が分からないけど
出現してる敵・自機弾に、
漏れなく壁接触判定を行き渡らせるのなら
２行目のreturnが実行されるまで、
繰り返し処理をしないといけない。

*hitcheck
es_find a,10,a
if a=-1:return
es_check b,a,32,1,400,400
(bに対する何らかの処理)
goto *hitcheck

つーか、
そのプログラムを組むとしたら

*wallhitcheck
es_check b,a,10,1,400,400
if b<0: return
(bに対する何らかの処理)
goto *wallhitcheck

で済むんじゃないか？

checkのタイプ値32の説明がないから
このままでは不都合あるのかもしれないけど

**名前は開発中のものです。** · 2007/04/17(火) 23:54:36

間違えた。

*wallhitcheck の次の行
es_check b,400,10,1,400,400

だな。

**名前は開発中のものです。** · 2007/04/17(火) 23:55:01

>>713
やっぱりfixかｗ

>>715
大丈夫fixだから指定できるｗ

**名前は開発中のものです。** · 2007/04/17(火) 23:58:44

1回衝突判定が終ったら弾スプライトに＋１してループさせてる。
それでもすり抜ける。

**名前は開発中のものです。** · 2007/04/18(水) 00:11:22

>>720
まぁ何だ。

似たような事をやったことあるけど
問題なくDXFIXで衝突判定できてたぞ。

アルゴリズムが悪いか、
>>713の書き込みから明らかだが
なんか大きな勘違いしてるんだろ。

＞es_checkはもし同時に衝突してたらスプライト番号が低いほうが優先される仕組みになってる。
同じフレームで、続きから走査すれば、同時に衝突した
「スプライト番号が高いほう」のスプライトが見つかりますよ

＞あと、一度すり抜けたスプライトはすり抜け中に再び衝突判定が得られにくい。
＞すり抜けてる最中に他のスプライトとの衝突判定が起きるから。
お前は何を言っているんだ。

**名前は開発中のものです。** · 2007/04/18(水) 00:16:03

スプライト番号が高いのが優先されるかどうかはどうでもいいから適当に書いた。
すまんかった。
後半の文はちょっとわかり辛かったかな。
まあ大した事無い事なので訂正しなかったけど。
まあまだゲーム製作初めたばっかりだから勘違いしてる所は結構あると思うけど。
とりあえずもう少し勉強してみます。

**名前は開発中のものです。** · 2007/04/18(水) 00:47:39

プログラミングよりも日本語や人間としての常識の勉強が必要だったようです。
スレ汚しして申し訳ございませんでした。

**名前は開発中のものです。** · 2007/04/18(水) 01:04:07

なんだこの展開ｗ

**716** · 2007/04/18(水) 01:22:55

#include "hspdxfix.as"
es_ini :es_screen 640,480,16,0,1,0:es_cls 0,0,0:buffer 1
picload exedir+"\\sample\\hspdx\\TESTCHR.BMP"
es_buffer 1:es_size 64,64,50,0:es_pat 1,64,64,0:es_set 1,mousex,mousey,1:es_type 1,1
es_pat 2,64*2,64,0:es_pat 3,64*3,64,0:es_pat 4,64*4,0,0:es_set 400,320,200,4:es_type 400,32
gsel 0
repeat
es_boxf 0,0,640,480:es_pos 1,mousex-32,mousey-32
stick stk,$ffff:if (stk>0) and ((cnt\10)=0) {es_new newid,2
if (100>newid) and (newid>0) {es_set newid,mousex,mousey,2:es_adir newid,0,-500:es_type newid,2}}
rnd r,3
repeat (r*((cnt\30)=0))
es_new newid,100:if (200>newid) and (newid>0){rnd x,640:rnd y,100:es_set newid,x,y,3
es_aim newid,320,200,100:es_type newid,8}loop
gosub *sub
es_draw:es_sync 1,-10
await 0
loop
*sub
es_find a,10:if a=-1{return}
repeat:es_check a,400,10,1,a:if a=-1{break}:es_kill a:a++:loop:return

hsp2.61で作ってみたけど擦り抜けなんて起きないぞ？
（最初3.0aの方で作って試したけど問題なかった）
使ってる変数の初期化を忘れてるだけじゃねーのか？

**名前は開発中のものです。** · 2007/04/18(水) 04:34:37

島根県のみなさん、パチンコをするなら、

　　優良パチンコ店　エ○トワン　　　　　

に行こう！　遠隔（※１）をやっていないパチンコ店は「エイ○ワン」だけ！
違法ロム（※２）を使っていないパチンコ店も「エイト○ン」だけ！
○イトワンでは、遠隔等が可能な設備は入れていません。　ロムも、警察がチェックしやすくしています。

詳しい方はご存知の通り、どんなにパチンコの遊戯人口が変動しても、その市場規模は変わりません（※３）。
要するに、客が減っても、残った客から絞り盗る量を増やして調整しているのです。
しかし、何故それが可能なのか？…ご理解頂けると思いますが、９割以上の店が確実に遠隔等を行ってます。
１万店以上のパチンコ店の中で、遠隔も違法ロムも確実にやってないのは「○イトワン」ただ１店です！

※１…遠隔とは
　「お、あの客は新顔だな。勝たせて味を占めさせるか。遠隔操作で設定変更しよ」
　「客が減ってきたな。ま、設定を絞めて（違法）、１人あたりから搾る量を増やせばいいか」
　「あのオヤジ負け続けてるからそろそろ辞めるかもな。今日は勝たせてやるか」

※２…違法ロムとは
　「うちのアタリ確率は、もちろん他と同じ『○○○分の１』ですよ！（ロムいじってるからウソだけど）」

※３　　　　　　　市場規模　　　遊戯人口
　平成06年　30兆4,780億円　2,930万人
　平成08年　30兆0,630億円　2,760万人
　平成10年　28兆0,570億円　1,980万人
　平成12年　28兆6,970億円　2,020万人
　平成14年　29兆2,250億円　2,170万人
　平成16年　29兆4,860億円　1,790万人

**716** · 2007/04/19(木) 17:58:35

おーい>>723
プラグインのバグなのか
スクリプト側ののバグなのか
環境依存の問題なのか
はっきりさせろよ……

hspdxfixに濡れ衣を着せたかもしれないのに
無視か？

**名前は開発中のものです。** · 2007/04/21(土) 07:42:36

3.1b9公開。圧縮状態で7.5MBか。昔に比べるとずいぶん太った
気がするけど、プログラミング環境としてはまだ全然小さいんだよね。
今ではActiveBasicよりはでかいみたいだけど、使いではHSPが
圧勝だし。

**名前は開発中のものです。** · 2007/04/21(土) 08:13:40

沖縄県の方へ（命に関わる注意事項です）

沖縄県での選挙ですが、どうか民主党だけは避けてください。県民の生命に関わる可能性があります。
民主党の最大の公約は一国二制度（※）ですが、一度「一国二制度　沖縄　三千万」等で検索をお願いします。
この際、民主党のＨＰで調べても良いです。以下の注釈↓と矛盾することは書いてないはずですから…

※一国二制度
　簡単に言えば沖縄を中国と日本の共有物にし、そこに3000万人の中国人を入植させます。
　（つまり沖縄人口の 96% を中国人にして、実質、沖縄を中国人の居住地とします。）
　さらに「自主」の名の下、沖縄で有事が起きても自衛隊は干渉できません。
　3000万人の中国人が、少数派となった130万人の日本人に何をしても、です。
　そして反日教育を受けた中国人の反日感情の強さは、ほとんどの日本人の理解を超えるものです。

今回の選挙で民主党が勝った場合、「自主」「発展」を連呼しつつ段階的に進めていくことになります。
自主と言っても、自主を認めるのが「住人の96%が中国人となった」後だということに気をつけてください。
発展と言っても、新沖縄の少数派となった「少数民族日本人」の発展ではないことに気をつけてください。

**名前は開発中のものです。** · 2007/04/21(土) 14:09:04

>>728
いまどき大きさなんか関係あるか？

**名前は開発中のものです。** · 2007/04/21(土) 15:30:40

昭和から来たんだよ彼はｗ

**名前は開発中のものです。** · 2007/04/21(土) 16:59:16

JAVAみたく500MBとかじゃないからいいよ
HSPはプラグインとサンプル豊富だから助かる

**名前は開発中のものです。** · 2007/04/22(日) 10:49:51

hspでデータ圧縮じゃなくて文字列圧縮できる？
出来れば、可逆でメモリーに保存したいのです

zlib試したけどメモリーだと一時保存に4倍使うからむりだったぽ

**名前は開発中のものです。** · 2007/04/22(日) 12:54:13

４倍使うの意味が分からんが、平文を分割してから圧縮すればええんちゃう？
超巨大な文字列を圧縮する時に、必要なmallocがでかいとかそんな意味ならば。

**名前は開発中のものです。** · 2007/04/22(日) 13:34:52

>>734
4倍ってのは圧縮作業の為の展開エラー対策だと思うんだ・・・
圧縮されたデータを復元するにしてもどうやってるのか分からない

zlibはHSPでは使えないのかな

**名前は開発中のものです。** · 2007/04/22(日) 14:10:18

ttp://mia.taillove.jp/

**名前は開発中のものです。** · 2007/04/22(日) 15:14:13

>>736
メモリー内圧縮使ったことありますか？
そこで止まってます。

**名前は開発中のものです。** · 2007/04/22(日) 15:33:16

ボクちゃん、test_mem.as　読める？

**名前は開発中のものです。** · 2007/04/22(日) 15:36:02

「メモリー内圧縮」って何か特別な意味（言葉）なん？
分割して圧縮処理じゃダメなんか？

**名前は開発中のものです。** · 2007/04/22(日) 15:52:31

>>738
読めますよ
実行して出来たデータ配列が元より大きいのは圧縮失敗じゃないんですか？

**名前は開発中のものです。** · 2007/04/22(日) 16:01:02

>>740
/*　おまえは何を言っているんだ？ */
#include "z.as"
#const DATASIZE 3000
#define AHO(%1,%2,%3,%4) color %2,%3,%4:mes %1:color 0,0,0
sdim rdata, DATASIZE
sdim cdata, DATASIZE
sdim udata, DATASIZE
rdata={"hspでデータ圧縮じゃなくて文字列圧縮できる？
出来れば、可逆でメモリーに保存したいのです\n
zlib試したけどメモリーだと一時保存に4倍使うからむりだったぽ"}
rsize=strlen(rdata)
mes "＞元データ：":AHO rdata,0,0,255:mes strf("＞サイズ：%d",rsize)
/* 圧縮 */
zSetDest cdata, rsize;DATASIZE
zCompress rdata, rsize,3;DATASIZE, 3
csize = stat
mes "\n\n＞圧縮データ：":AHO cdata,255,0,0
mes strf("＞サイズ %d バイト",csize)+strf("圧縮率 %d",writesize * 100 / rsize)
/* 解凍 */
zSetDest udata, DATASIZE
zUncompress cdata, DATASIZE:usize=stat
mes "\n\n＞解凍データ" : AHO udata,0,200,0:erf=0
mes strf("＞サイズ %d バイト",usize)
/* 比較 */
mes "＞元のデータと比較" : erf=0;:poke udata,12,32
repeat DATASIZE
r=peek(rdata,cnt):u=peek(udata,cnt)
if ( r ! u ) { mes strf("＞不一致＠ %d文字目：",cnt)+strf("元[%c]",r)+strf(" ! 解凍[%c]",u):erf=1 }
loop
if erf=0 : mes "＞相違点はありません"
stop

**名前は開発中のものです。** · 2007/04/22(日) 16:01:19

>>740
すでに圧縮されているデータは、それ以上小さくするのはほとんど無理
というかヘッダとかで増えるぞ？

つーか、使い方が間違ってんじゃねーの？

**名前は開発中のものです。** · 2007/04/22(日) 16:06:52

自分には不手際がないと信じて疑わない
身の程知らずなボクちゃんの、挑発的な発言に、
ちょっと血がのぼってミスしちまったぜ。反省。

圧縮率表示のとこ、間違い。
strf("圧縮率 %d",writesize * 100 / rsize)
↓
strf("圧縮率 %d",csize * 100 / rsize)

**名前は開発中のものです。** · 2007/04/22(日) 16:11:45

いや圧縮自体はできるんですが・・・
ややこしいので解決でいいです

**名前は開発中のものです。** · 2007/04/22(日) 16:18:28

上手く説明ができなきゃ、上手く理解もできんて。

**名前は開発中のものです。** · 2007/04/22(日) 16:54:06

>>740
>stat は圧縮後のサイズです。
>書き込み先のメモリが足りないなどでエラーが発生した場合は、
>stat=0 となります。
なぁ、これをどんな解釈したんだ？
配列は拡張されないからもとより大きくなんてならねーぞ
お前配列サイズを勘違いしてねーか？
dimで確保したのは1要素4バイトだぞ？
どこにも圧縮元より大きい作業領域が必要なんて書いてねーだろ
バッファが足り無きゃstat=0になるって書いてあるだろボケ

**名前は開発中のものです。** · 2007/04/22(日) 17:07:14

元データサイズが小さいから、効果が分かりにくいと思って
741のスクリプトをまた少し変えて
同じ文字列を100個連結させたもの(15000byte)に対する操作を試してみたが。
圧縮したら、297byte(圧縮率 2% 弱)にまでなった。
同じデータの繰り返しだからってのもあるかもしらんが。

いやぁ、zlib初めて使ったけど、けっこう強力だな。＾＾

（精神衛生上よろしくないので、ボクちゃんの事を考えるのはやめた。）

**名前は開発中のものです。** · 2007/04/22(日) 17:44:41

サンプルにある
dim cdata, DATASIZE
zSetDest cdata, DATASIZE*4
ってーのを見て、4倍必要とか思い込んだんだろうな
dim cdata, DATASIZEのメモリサイズがDATASIZE*4なのにねぇ

なんで741のを見て分からないんだろう・・・

**名前は開発中のものです。** · 2007/04/23(月) 00:12:53

HSP2.62とHSPDXFIXEDのプラグインを使ってゲームを作ってるんですけど
たまにキャラや背景の色が反転してしまう時があります。
毎回ではなくてたまになんです。
何か原因があるんでしょうか？