07/04/21 08:13:40 2bdLwNha
沖縄県の方へ（命に関わる注意事項です）
沖縄県での選挙ですが、どうか民主党だけは避けてください。県民の生命に関わる可能性があります。
民主党の最大の公約は一国二制度（※）ですが、一度「一国二制度 沖縄 三千万」等で検索をお願いします。
この際、民主党のＨＰで調べても良いです。以下の注釈↓と矛盾することは書いてないはずですから…
※一国二制度
簡単に言えば沖縄を中国と日本の共有物にし、そこに3000万人の中国人を入植させます。
（つまり沖縄人口の 96% を中国人にして、実質、沖縄を中国人の居住地とします。）
さらに「自主」の名の下、沖縄で有事が起きても自衛隊は干渉できません。
3000万人の中国人が、少数派となった130万人の日本人に何をしても、です。
そして反日教育を受けた中国人の反日感情の強さは、ほとんどの日本人の理解を超えるものです。
今回の選挙で民主党が勝った場合、「自主」「発展」を連呼しつつ段階的に進めていくことになります。
自主と言っても、自主を認めるのが「住人の96%が中国人となった」後だということに気をつけてください。
発展と言っても、新沖縄の少数派となった「少数民族日本人」の発展ではないことに気をつけてください。
730:名前は開発中のものです。
07/04/21 14:09:04 LM8tnE4F
>>728
いまどき大きさなんか関係あるか？
731:名前は開発中のものです。
07/04/21 15:30:40 gdpZ03+g
昭和から来たんだよ彼はｗ
732:名前は開発中のものです。
07/04/21 16:59:16 laYGd4sA
JAVAみたく500MBとかじゃないからいいよ
HSPはプラグインとサンプル豊富だから助かる
733:名前は開発中のものです。
07/04/22 10:49:51 GAHMA1wL
hspでデータ圧縮じゃなくて文字列圧縮できる？
出来れば、可逆でメモリーに保存したいのです
zlib試したけどメモリーだと一時保存に4倍使うからむりだったぽ
734:名前は開発中のものです。
07/04/22 12:54:13 JwKt5lan
４倍使うの意味が分からんが、平文を分割してから圧縮すればええんちゃう？
超巨大な文字列を圧縮する時に、必要なmallocがでかいとかそんな意味ならば。
735:名前は開発中のものです。
07/04/22 13:34:52 GAHMA1wL
>>734
4倍ってのは圧縮作業の為の展開エラー対策だと思うんだ・・・
圧縮されたデータを復元するにしてもどうやってるのか分からない
zlibはHSPでは使えないのかな
736:名前は開発中のものです。
07/04/22 14:10:18 xdLPXb3/
URLﾘﾝｸ(mia.taillove.jp)
737:名前は開発中のものです。
07/04/22 15:14:13 GAHMA1wL
>>736
メモリー内圧縮使ったことありますか？
そこで止まってます。
738:名前は開発中のものです。
07/04/22 15:33:16 xdLPXb3/
ボクちゃん、test_mem.as 読める？
739:名前は開発中のものです。
07/04/22 15:36:02 JwKt5lan
「メモリー内圧縮」って何か特別な意味（言葉）なん？
分割して圧縮処理じゃダメなんか？
740:名前は開発中のものです。
07/04/22 15:52:31 GAHMA1wL
>>738
読めますよ
実行して出来たデータ配列が元より大きいのは圧縮失敗じゃないんですか？
741:名前は開発中のものです。
07/04/22 16:01:02 xdLPXb3/
>>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
742:名前は開発中のものです。
07/04/22 16:01:19 JwKt5lan
>>740
すでに圧縮されているデータは、それ以上小さくするのはほとんど無理
というかヘッダとかで増えるぞ？
つーか、使い方が間違ってんじゃねーの？
743:名前は開発中のものです。
07/04/22 16:06:52 xdLPXb3/
自分には不手際がないと信じて疑わない
身の程知らずなボクちゃんの、挑発的な発言に、
ちょっと血がのぼってミスしちまったぜ。反省。
圧縮率表示のとこ、間違い。
strf("圧縮率 %d",writesize * 100 / rsize)
↓
strf("圧縮率 %d",csize * 100 / rsize)
744:名前は開発中のものです。
07/04/22 16:11:45 GAHMA1wL
いや圧縮自体はできるんですが・・・
ややこしいので解決でいいです
745:名前は開発中のものです。
07/04/22 16:18:28 JwKt5lan
上手く説明ができなきゃ、上手く理解もできんて。
746:名前は開発中のものです。
07/04/22 16:54:06 hYUKyQue
>>740
>stat は圧縮後のサイズです。
>書き込み先のメモリが足りないなどでエラーが発生した場合は、
>stat=0 となります。
なぁ、これをどんな解釈したんだ？
配列は拡張されないからもとより大きくなんてならねーぞ
お前配列サイズを勘違いしてねーか？
dimで確保したのは1要素4バイトだぞ？
どこにも圧縮元より大きい作業領域が必要なんて書いてねーだろ
バッファが足り無きゃstat=0になるって書いてあるだろボケ
747:名前は開発中のものです。
07/04/22 17:07:14 xdLPXb3/
元データサイズが小さいから、効果が分かりにくいと思って
741のスクリプトをまた少し変えて
同じ文字列を100個連結させたもの(15000byte)に対する操作を試してみたが。
圧縮したら、297byte(圧縮率 2% 弱)にまでなった。
同じデータの繰り返しだからってのもあるかもしらんが。
いやぁ、zlib初めて使ったけど、けっこう強力だな。＾＾
（精神衛生上 よろしくないので、ボクちゃんの事を考えるのはやめた。）
748:名前は開発中のものです。
07/04/22 17:44:41 rmOxLuM6
サンプルにある
dim cdata, DATASIZE
zSetDest cdata, DATASIZE*4
ってーのを見て、4倍必要とか思い込んだんだろうな
dim cdata, DATASIZEのメモリサイズがDATASIZE*4なのにねぇ
なんで741のを見て分からないんだろう・・・
749:名前は開発中のものです。
07/04/23 00:12:53 4Rf7CIdU
HSP2.62とHSPDXFIXEDのプラグインを使ってゲームを作ってるんですけど
たまにキャラや背景の色が反転してしまう時があります。
毎回ではなくてたまになんです。
何か原因があるんでしょうか？
750:749
07/04/23 00:25:34 4Rf7CIdU
画像ファイルはBMPです。
あとパレットモードで236色にしています。
どうもプログラムが長くなってきてから色がおかしくなる頻度が高くなってきている気がします。
それとawaitの数値が多少影響してるようにも思えるんですけど。
751:名前は開発中のものです。
07/04/23 00:30:08 3Fv7BgL3
はっきり言ってそんなんじゃ判らんｗ
プログラム自体を分割して問題部分の切り分けをすべし。
752:名前は開発中のものです。
07/04/23 00:40:06 vbt0vmPJ
>>749
HSP2.62とかHSPDXFIXEDとか、聞きなれない名前なのが気になるが。
「色が反転」という症状を聞いて、最初に思い浮かぶのは
ブレンドファクターに、ESB_NEGATIVEが指定されているんじゃないか？
ということだが。
「D3Dスプライト機能を使ってない」 とか断言してしまうなら、知らん。
753:名前は開発中のものです。
07/04/23 00:41:23 gvRd6xEU
BMPのパレットが揃ってないとか
754:名前は開発中のものです。
07/04/23 01:00:19 4Rf7CIdU
毎回色がバグるのなら原因究明もラクだと思うんですけど
稀にしか起こらない現象だから原因を探すのが難しいんですよ。
デスクトップの解像度とか関係あるのかな？
あと3Dは使ってないです。
755:名前は開発中のものです。
07/04/23 01:15:33 gvRd6xEU
めんどくさいからハイカラーかフルカラーで作れ。
756:名前は開発中のものです。
07/04/23 01:43:12 3Fv7BgL3
ああ、そうだな。。
なんでパレットモードなんか使ってんだ。
パレチェンしたいなら別の画像持てば良いじゃない。
757:名前は開発中のものです。
07/04/23 04:04:26 I+xnwNF2
流れ切って申し訳ない
モジュールで大きい文字列を返すといきなり落ちるんだけどなぜでしょうか？
2048byteを超えたあたりでエラーになって、それよりはるかに大きいと落ちる。
例えば、
#module
#defcfunc hana str mogera
return mogera
#global
a = "なんかでかい文字列・・・・"
mes hana(a)
↑これである程度大きな文字列で落ちる
でも、
#module
#defcfunc hana str mogera
mes mogera
b = strlen(mogera)
return b
#global
a = "なんかでかい文字列・・・・"
mes hana(a)
これだと落ちない。
なぜなんでしょうか。
758:名前は開発中のものです。
07/04/23 04:38:01 nyr50uuI
>>757
hsp3.0aでやったけどエラーも落ちることも無いぞ？
環境書け
759:名前は開発中のものです。
07/04/23 09:47:55 HhfYCboy
ＨＳＰ ver3.1β8です
上の例だと落ちないけど、aの値が大きくなると落ちます。
実際に落ちるスクリプトを書きます。
j=509だと落ちないけど、j=510だと落ちます。
さらに、j=510以上でも return b とするとおちません。
j = 509
#module
#defcfunc hana str mogera
b = strlen(mogera) : return mogera
#global
sdim a,j*4+1
repeat j
b = strf("%04d",cnt) : poke a,i,b : i += strsize
loop
mes str(i) + "\n" + hana(a)
どうやって回避すればいいのでしょうか。
760:名前は開発中のものです。
07/04/23 11:47:41 lQ85Pfj4
>759
758じゃないけど、俺のとこでも試してみたらj=510では落ちなかった。
ウチの環境だとj=10000までOK。
761:名前は開発中のものです。
07/04/23 11:52:32 lQ85Pfj4
>759
バッファオーバーフローが原因なので、なにか計算間違いがあるのかも。
sdimで指定する値を必要な分だけ大きくすれば大丈夫なのでは？
762:名前は開発中のものです。
07/04/23 15:28:03 ExoMwemo
>>760
それはエラーが起きてる場所が違くないか？ｗ
>>759
β版使ってるなら最初に言えよ・・・
ver3.1β8で起きてる問題で3.0aではエラーは出無かった
β8はモジュール関係で色々不具合が出てるみたいだから
3.1b9 を試してみたら？
ダメだったら
●HSPWiKi HSP3バグトラッッキングシステム
にでも挙げとけば修正されるだろう
763:名前は開発中のものです。
07/04/23 15:34:21 ExoMwemo
>3.1b9 を試してみたら？
自分で試した方が早そうだから試したらエラー出無かったよ
>struct型の配列終了処理でエラーが発生することがある不具合を修正。(HSPBT#144)
これ関連のバグだったのかな・・・
764:名前は開発中のものです。
07/04/23 20:51:29 iPysckQP
β8の不具合ということなので、β９を落としてみた
結果はかわらず。さっぱりわかりません。
試しにHSPのあるフォルダの
hsed3le.exe というのを起動させて>>759をコピペして実行してみると
j = 10001 以上でエラーとなった
「Error20 in line8 バッファオーバーフロー」
そこで、sdim a,j*5+1 、 b = strf("%05d",cnt) とやると
エラーはなくなる。当然・・・なのかな。
同様に hsed3.exe でやってみると j=510 以上でエラー。
でもこちらは「error1 in line11(???) システムエラー」とのこと
一応ＰＣのスペックは
winXP home , Athlon64 3200+ , メモリ1G
もうお手上げだが、エラーは起こらないって人の方が多数なので
びっくりするほどの初歩的ミスを犯していないか心配になってきた
765:名前は開発中のものです。
07/04/23 21:11:10 oSeQHQqW
俺がそのトラブルに当たったときは、ああまたHSPのバグかと思って
変数渡しのコードに変更したよ
766:名前は開発中のものです。
07/04/23 22:53:07 QLdFJFVh
とりあえず>>759は、
sdim a,j*4+1
b = strf("%04d",cnt) : poke a,i,b : i += strsize
jが5桁になると、bも5文字になるのでエラーになるのは当たり前だな。
767:名前は開発中のものです。
07/04/23 23:26:32 80wwsZlh
>>764
原因を突き止めたかもしれない
デバッグウィンドウ表示させてないか？
3.0aでもDBウィンドウ表示させてるとエラーが出た
表示を切ればj=50000とかでも3.1b8でエラーが出ない
どうだ？
これが原因なら バグトラッッキング に行ってら
>j = 10001 以上でエラーとなった
これは766が言ってる通り
だから762で突っ込み入れといたのに・・・
768:名前は開発中のものです。
07/04/24 00:12:44 BuNmsmYs
>>767
それが正解のようでした
デバッグウィンドウを表示させないとエラーは出なかった
5桁のほうは、単純な問題でしたね。
バグトラッキングがよくわからないけど
報告する場所があるのかな。
とにかくありがとう。
置換用のモジュール作るのに2048byte縛りはあまりにもきつかったから助かったよ
769:名前は開発中のものです。
07/04/24 00:18:59 QtkXlejF
>>768
β版がアップされてるページの下のほうに
バグ報告用のページがリンクされてる
770:名前は開発中のものです。
07/04/24 14:26:48 QrQgTR4I
まだッが一個多いままなのかｗ
771:名前は開発中のものです。
07/04/24 17:02:41 xgJkhdwr
今はじめて気づいたw
772:名前は開発中のものです。
07/04/24 20:11:32 9drbfLn6
気合を入れて発音しているだけですので仕様です。
修正予定はありません。
773:名前は開発中のものです。
07/04/24 21:55:10 Nf3/8HfV
～ッッ
774:名前は開発中のものです。
07/04/24 23:16:37 9drbfLn6
もっとッ
「──ッッ!!」
って感じで。恋人や家族を殺された主人公が敵と対峙したときのような、
声にならない怒りと憎しみの表現だよ。日本語ってすごいよね
775:名前は開発中のものです。
07/04/24 23:42:34 uJIuySMN
ジョジョだな
776:名前は開発中のものです。
07/04/25 11:17:31 cNm9Fqt7
ファイナルファンタジーってこれで作ってんの？
777:名前は開発中のものです。
07/04/25 12:29:42 a5AmdZFY
,､-―-､
丿 <｀) ＿_
,､- ''' "二ヽ_（ヽ'｀(二ﾆ・ | ＼_
／ ､ !__'､_┌´ │ / ｀' ｰ┐
/ ヽ | ｀ | | |
___ | ヾ__| | _,､r‐'',ﾆ=- | / _,､-‐'ﾞ
＿| '､| ミ/ ﾞ､ |_,∠-''´￣｀'ｰ､ ￣|-''" |
＼|. | l＿__l ／￣ヾ`´` |￣￣￣｀'''iー､
. |／ﾞ| ￣ ヽ_,､-''´｀ヽ ＿,､,､,､,､_|＿＿＿＿＿_|＿
| （ ´ ,､- ''ﾞ 丿 ヾ二二二二二二二二二|ﾆ!
ヽ<二二二二二>~/ ／ ／ └‐┬─‐──┬┘
フ,||, / / ／ │ │
''´ | | _ノ ／. │ │
. | | >/ ./ │ │
778:名前は開発中のものです。
07/04/25 13:36:22 PyhPVqEN
また音楽の話で悪いけど、ゲームでwav,midi共に音量をコントロールしようと思って
今はプラグイン二つの併用か、MCIでmpegvideoにしてやる方法の二つを試してる。
音量のためだけにプラグイン二つも使いたくないし
mpegvideoはME以前では入っていないかもしれないので
どうしようか悩んでいるのだけど
なんかいい手は無いですかね
779:名前は開発中のものです。
07/04/25 17:28:05 pHry1m7d
今時midiなんぞ使うのか
どうせ作曲者の意図どおりに鳴らないし
全部オーディオデータで統一したほうがよくね
780:名前は開発中のものです。
07/04/25 19:09:46 ZMrMyasg
（ ´,_ゝ｀）ﾌﾟｯ
⊂彡☆))Д´) >>776
ﾊﾟﾁｰﾝ!!
781:名前は開発中のものです。
07/04/25 19:20:11 fK/xi7te
>>776
常識過ぎてみんなあきれてるぞ。クレジットにそう書いてあっただろ
782:名前は開発中のものです。
07/04/25 19:58:49 vIB2Tzgo
市販ゲの殆んどがＨＳＰだよな。
たまにツクールも見るが。
783:名前は開発中のものです。
07/04/25 20:52:13 VYJu+Wqs
Vistaは余りにも有名
784:名前は開発中のものです。
07/04/25 21:06:01 fK/xi7te
ああ、Vistaはちょっと泣いちまったよ。
もと宿敵だったアーロンをかばってキースが特攻したシーンなんか、ヤバかったな。
ていうか演出があざと過ぎ
785:名前は開発中のものです。
07/04/25 21:38:59 jZG+4jJU
>>784
OS
786:名前は開発中のものです。
07/04/25 22:18:50 fK/xi7te
>>785
魔法使いだな。
787:名前は開発中のものです。
07/04/25 23:06:53 4DX9ZUzz
オス！ おらビスタ！
788:名前は開発中のものです。
07/04/26 16:20:50 u0xY1+V8
冥王星に代わっておしおきよ！
789:名前は開発中のものです。
07/04/26 18:16:57 hUYx8S1F
>>788
職務怠慢を理由に左遷され当時の上司を逆恨みし、復讐の機会を狙ってるんだっけ
790:名前は開発中のものです。
07/04/26 20:18:33 2xt9h9SY
sgtって、Directsoundでソフト音源で鳴らすから環境依存にならないらしいんだけど、
負荷高いのかな？oggとどっちにしようか迷ってるんだけど、どうですか？
791:名前は開発中のものです。
07/04/26 20:28:32 vjdyL8/F
sgtって何
792:名前は開発中のものです。
07/04/26 23:15:40 by3e610C
hspのアイコンってコーフィーカップみたいだけど
ジャワのパクリなの？
793:名前は開発中のものです。
07/04/26 23:31:56 gBmqOl1c
ホットスープだからじゃね？
794:名前は開発中のものです。
07/04/27 00:02:59 egFvpP+c
ホット"スープ"プロセッサ
スープカップ
スープポット
javaのコーヒーカップは"ジャワ"コーヒーから？
795:名前は開発中のものです。
07/04/27 08:30:28 WUq5gpdx
Javaは“ジャバ”コーヒーから
796:名前は開発中のものです。
07/04/27 14:58:30 egFvpP+c
"Java coffee" の検索結果 約 305,000 件
"ジャワコーヒー" の検索結果 約 2,300 件
"ジャバコーヒー" の検索結果 約 622 件
797:名前は開発中のものです。
07/04/28 00:20:12 daus4mQk
今HSP3でシューティングを作ってる。
弾等を制御する際、モジュールでやってみたいんだけど、複数種類の弾や敵を各1つの配列でまとめる事って出来ない？
たとえば弾aとbがあって
#module a x,y,vx,vy
#modinit int cx,int cy
…
return
#modfunc amove
…
return
#global
#module b x,y,bcnt
#modinit int cx,int cy
…
return
#modfunc bmove
…
return
#global
dimtype shotmod,vartype("struct"),32
newmod shotmod,a,cx,cy
newmod shotmod,b,cx,cy
ってやってforeachで回したとき、どうやったらaはamoveで、bはbmoveで処理するように出来るの？
一種類の弾ならサンプルスクリプトの方法で出来るんだけど…
798:名前は開発中のものです。
07/04/28 07:22:58 WZUrEfmt
自分で処理を分けるしかない（モジュールを2段にしてタイプ識別用と各種データ用で分ければ楽かな）
#module a x,y,vx,vy,anmcnt
#modinit double cx,double cy
x=cx:y=cy:r=atan(mx@-x,my@-y):vx=sin(r)*5:vy=cos(r)*5:anmcnt=0:return
#modfunc amove
if abs(320-x)>330 or abs(240-y)>250{return -1}
anmcnt++:x+vx:y+vy:pos x-16,y-16:gcopy 1,((anmcnt/10)\5)*32,0:return 0
#global
#module b x,y,r,bcnt,anmcnt
#modinit int cx,int cy
x=cx:y=cy:bcnt=0:anmcnt=0:r=0.0:return
#modfunc bmove
if abs(320-x)>330 or abs(240-y)>250{return -1}
bcnt++:if bcnt<200{r=atan(mx@-x,my@-y)}
anmcnt++:x+=sin(r)*5:y+=cos(r)*5:pos x-16,y-16:gcopy 1,((anmcnt/5)\5)*32,32:return 0
#global
#module set type
#modinit int t,int cx,int cy
type=t:if t=0{newmod shot,a,cx,cy}else{newmod shot,b,cx,cy}:return
#modfunc move int no
if type=0{amove shot(no)}else{bmove shot(no)}
if stat=-1 {delmod shot(no)}:return stat
#global
buffer 1:color:boxf
repeat 5:color ,255:siz=5+(cnt)*(cnt<2)+(1-cnt)*(cnt>1):circle 16+cnt*32-siz,16-siz,16+cnt*32+siz,16+siz
color 255::circle 16+cnt*32-siz,16-siz+32,16+cnt*32+siz,16+siz+32:loop::gsel 0
dimtype shotmod,vartype("struct"),32
repeat:redraw 0:color:boxf:title str(max):mx=mousex:my=mousey:gmode 2,32,32:max=0
foreach shotmod:move shotmod(cnt),cnt:if stat=-1 {delmod shotmod(cnt)}:max++:loop
if max<32 and rnd(50)<5{cx=320+200-rnd(400):newmod shotmod,set,(rnd(5)<2),cx,cy}
redraw 1:await 10:loop
モジュール型変数の新しく追加された要素か次に使われる要素が簡単に分かれば配列で簡単に出来るけど・・・（空いてるところを探すか空いたところを記憶してソートするしかない？）
799:名前は開発中のものです。
07/04/28 10:12:45 hldoJq+Y
文字が多くなって文字が画面からはみ出たときは
自動でスクロールバーが表示されるようにするにはどうすればいいの？
800:名前は開発中のものです。
07/04/28 15:25:23 FrIkuCPn
>>799
mesboxで横スクロールバー付きエディットボックス
801:名前は開発中のものです。
07/04/30 01:10:28 b3vJoRK1
HSP2.6なんだけど
例えば画面内に敵キャラが１００体居るとします。
主人公がそのうちの１体だけをランダムに攻撃した時に
その１体のスプライト番号を取得するにはどうすればいいですか？
802:名前は開発中のものです。
07/04/30 01:39:21 amrAC7iW
そのスプライトは何で表示してんだ？
HSP自身にはスプライト機能は無いぞ
803:名前は開発中のものです。
07/04/30 13:43:16 fcI/zZT6
自分で配列に素プレイと番号を保存して管理したほうが早いだろ
804:名前は開発中のものです。
07/05/01 00:27:14 Zg8bJwrH
【バージョン】HSP3.0
キャラクタデータの記述された設定ファイルを作って、
そこから数値を読み込めるようにするにはどうすれば良いのでしょうか？
例えば、chara.cfgというファイルを作ってその中に、
HP=500と言う文字列を入力しておくと、
mes "HP="+HP+"/500"とした時にHP=500/500と表示されるように・・するみたいな。
要するに外部ファイルから数値を読み込むにはどうすれば良いのでしょうか？
805:名前は開発中のものです。
07/05/01 01:20:55 82VWC4K+
/*
NAME=名無し
HP=500
MP=50
の内容で chara.cfg を作ったとして
*/
fname="chara.cfg"
notesel loadat ;メモリノートパッド命令のバッファに設定
exist fname
if strsize<=0 : end
noteload fname
sdim temp,1024
repeat noteinfo(0) ;読み込まれた行数分ループ
noteget temp,cnt
getstr key,temp,0,'='
if '=' not stat {continue } ; = が無かったので、この行を飛ばす
getstr strdat,temp,strsize,0
if "NAME"=key {NAME=strdat}
if "HP"=key {HP=int(strdat)}
if "MP"=key {MP=int(strdat)}
loop
mes "NAME="+NAME
mes "HP="+HP+"/500"
mes "MP="+MP+"/50"
処理速度は無視してるけど一回で何千とか処理するんじゃ無ければ大丈夫だろう
つーか、これぐらいその辺に転がってるだろ・・・
806:名前は開発中のものです。
07/05/01 01:39:35 Zg8bJwrH
>>805
ありがとうございました。
講座を検索したりしたのですが、hsp3以前向けだったり、iniだけだったりしたので
どうも解決出来ませんでした。調べが足りず、申し訳ありません。
今後はなるべく自力で何とかしようと思います。お手数をおかけしました。
807:名前は開発中のものです。
07/05/01 02:12:43 82VWC4K+
>>806
ヘルプで必要になるだろう単語を入れて命令を絞って
それを使ってネット検索すれば誰でも使いそうな事は見つかるよ
今回のだと 文字列操作 とか テキスト で出てくる命令を使えば色々出てきたと思う
808:名前は開発中のものです。
07/05/01 13:21:29 Fn3EPEPt
ツールを作っている所で、つまずいてしまいました。質問させてください。
メインウィンドウにリストボックスか、コンボボックスが、あるとして、
そのどちらかに、フォーカスを合わせた後、ボックス以外の所をクリックしても、
マウスホイールの移動量(mousew)の取得が、出来なくなってしまいす。
ボタンをクリックすると、取得出来るようになりましたが、わざわざボタンを用いずに
mousewを取得することはできないでしょうか？
809:名前は開発中のものです。
07/05/01 17:12:27 S/wjR4mW
>>798
モジュール型変数を二個使うとは思いつかんかった
亀ながら㌧！
810:名前は開発中のものです。
07/05/02 08:39:23 Tyg11Emh
>講座を検索したりしたのですが、hsp3以前向けだったり
HSPVer2.6で講座作ってた奴は、Ver3が出た時にあったま来ただろうな。「ぬおお、おに
たままで俺の努力を台無しにするのか！ちくしょー！どいつもこいつも俺の努力を踏み
にじりやがって！そんなに俺のやることなすこと全部無駄にしたいのか！そんなに俺を
役立たずにしたいのくわぁぁぁぁ！」って。
俺もだけどな。
811:名前は開発中のものです。
07/05/02 09:29:25 da3SoYqw
大丈夫。
重要なのはソースではなく概念、アルゴリズムだから。
812:名前は開発中のものです。
07/05/02 15:27:01 EySZ2yOg
概念だったら別の言語でもよいわけで
HSPに依存する細かい使用の部分ってことでしょう
813:名前は開発中のものです。
07/05/02 18:06:48 iDXhpPSB
>>810
ま、三角関数や平方根を自前で計算するような無駄な努力も
必要なくなったってことで、先を見ればいいことではある
814:俺8（二代目） ◆fSWXoEZVTE
07/05/02 20:55:37 t0LZt7tH
あぷろだの件ですが、 @wikiの系列ぽい所で@pagesがあります。
容量1GB（1ファイルあたりのサイズ上限はなし。ただし1MB超えると送信速度が落ちる）
PHPが使えるのでpukiを設置してみる、とかはどうでしょう。
問題あったら指摘よろしく。
815:俺8（二代目） ◆fSWXoEZVTE
07/05/02 20:56:17 t0LZt7tH
すみません、誤爆しますた。
816:名前は開発中のものです。
07/05/02 21:27:35 rOvofM6X
ゆるす
817:名前は開発中のものです。
07/05/02 23:26:45 TgBlF1Ug
ゆるさん
818:名前は開発中のものです。
07/05/02 23:45:48 RTrLrXoW
HSP3系の講座が少ないのは、
みんな、HSPに飽きてきた可能性もある？
819:名前は開発中のものです。
07/05/03 00:09:04 AtM1JTCE
>>818
HSP3とHSP2たいして変わらないから
あと付属リファレンスが充実したから
820:名前は開発中のものです。
07/05/03 11:54:57 m3dHlTBm
>>819
まあそれでも誰も付属のリファレンスなんか見ていないんだがな
本家BBSで質問してくる香具師は少しは調べろつーの
821:名前は開発中のものです。
07/05/03 15:44:01 ysyR2/y+
ちょっと聞いただけで奇特なひとにサンプルを作って貰えるのが
HSP最大の売りだからな
822:名前は開発中のものです。
07/05/03 21:15:47 dXmWF+4T
元々ゲーム作りに詳しい講座は少ないような気がする。
823:名前は開発中のものです。
07/05/03 23:03:18 kPqmtDgq
HSP2.6とHSPDXFIXでSTGを作ってるんだけど
自機の斜め移動速度を縦横と同じ速さにする方法がよく解りません。
横移動 x+4
縦移動 y+4
斜め移動 x+3:y+3
位にすると大体同じくらいの速さになるけど。
でもコレだと速すぎる。
横と縦の移動量を2くらいにしたいんだけど
そうすると斜めの移動量はどうなるんでしょうか？
824:名前は開発中のものです。
07/05/03 23:21:41 7TvtNXkU
そういうのは数学の知識が要る。
三角関数でググれ。
825:名前は開発中のものです。
07/05/03 23:26:36 tLhZ5Q0K
あと、内部で保持する座標は画面表示と１：１の座標じゃなく、
小数を保持するために１０倍・１００倍の整数か浮動小数点を使え。
826:名前は開発中のものです。
07/05/03 23:40:01 s69yTu18
>>823
最も単純な方法は…
;acnt 現在までのトータルフレーム数
if acnt&1 :x+=1 :y+=1 :else :x+2 : y+=2
つまり、1フレームごとに加算する量を変えるというﾜｹ
これだと10フレームで15ドット移動する。
if acnt&1|(acnt\5=0) :x+=1 :y+=1 :else :x+2 : y+=2
これだと10フレームで14ドット移動する。
( 1,1,2,1,2,1,1,2,1,2 )
座標を256倍で扱うという方法もある。こっちをオススメする。
実際の位置指定時には>>8する。
x+=362 :y+=362 ;256で1ドット相当
pos x>>8,y>>8
827:名前は開発中のものです。
07/05/03 23:48:21 kPqmtDgq
>>824-826
どうも有難うございます。
とりあえず浮動小数点ってのが今の自分にはすぐに理解するのが難しいかなぁと思いますんで
>>826さんの方法でやってみたいと思います。
828:名前は開発中のものです。
07/05/04 05:01:12 N4dI25+p
いやそんなもん三角関数使って計算しろよ…
縦横に移動した時の移動量が1なら
斜めに移動した時の移動量は0.707106781186547
829:名前は開発中のものです。
07/05/04 05:03:26 N4dI25+p
ごめん2.6ってのを見落としてた
830:名前は開発中のものです。
07/05/07 01:09:39 Uyq9GLST
HSPでゲームを作ってるんだけど
作ったヤツをウェブサイトで公開したい訳ですが
フォントをMSゴシックにしてゲームに表示させても
フォントの著作権とか問題ないんですか？
831:名前は開発中のものです。
07/05/07 02:18:48 B/mb8Q1D
>>830
ない。
と言うか、フォント内蔵の場合なら（厳密には）問題あるが、単にOSのフォントを呼び出す分には全く問題ない。
ユーザーの環境に指定のフォントが入ってなければ、表示が想定通りに行かなくなるだけだし。
どこぞの拾い物フォントを勝手に内蔵して使う分には、それぞれのフォントの許認可条件に従うこと。
まあ、基本的に、フォントをフォントそのものとして内蔵し、フォントとして使用できる形で公開しない限り、
無問題と考えて大丈夫。メチャ本格的に、大規模な商利用する場合はまた別だが、まあ気にすんな。
832:名前は開発中のものです。
07/05/07 20:03:12 KYFqszNb
>>831
ということは、フォントテーブルを持ったゲームやフォントを埋め込んだPDF,
フォントを使った画像ファイルにフォントのアウトラインが誰からも見られる紙の
印刷物は問題なの？
フォントって特殊な立場だな。
833:名前は開発中のものです。
07/05/07 20:20:16 jNjPNdHX
フォントの利用規約による
834:名前は開発中のものです。
07/05/07 21:49:47 pmbXnqyF
「12歳からはじめるHSPゲームプログラミング」という本を見ながらじゃんけんゲームを作成しているのですが、
以下のソースを実行すると"#Error 18 in 6 (janken.hsp) -->代入できない変数名を指定しています"と出て、正常に実行されません。
randomize
buffer 1,,,1
picload "janken.bmp"
screen 0,320,260,1
gmode 2
*hazime
rnd R,3
pos 30,0 : gcopy 1,0,0,200,180
pos 30,70 : gcopy 1,200+(80*R),0,80,90
wait 50
goto *hazime
何かおかしな部分がありますか？
本はHSP2を対象に書かれていて、現在使用しているのはHSP3なので、そこらへんが問題だと思うのですが、いかがでしょうか？
835:名前は開発中のものです。
07/05/07 21:52:15 Foh+9yi0
rnd R,3
↓
R = rnd(3)
836:名前は開発中のものです。
07/05/07 22:02:25 B/mb8Q1D
>>832
まあ結局>>833の言うとおりなんだけどな。
生ttfをゲームに同梱して配布するのはかなりやばい。
内部にBMP化してフォントを内蔵するのも、それなりにやばい。
一枚絵の中に文字が入っている、程度ならあまりやばくない。
また、大抵の場合、フォントを内蔵したワープロソフトみたいな
「フォントを"フォント"として取り扱う形態で配布」すると問題が大きくなる。
（注：ゲームには無関係のように見えるが、よくある「名前を入力する」部分が
ワープロ的だと見なされる場合がある）
やばいなと思うなら、フォントを内蔵せず、OSのフォントを呼び出すだけにしておいたら安全確実。
一枚絵の中に文字が含まれている、程度ならまあ大丈夫。
何万と売りさばく事が前提なら、何れにしろきちんとライセンスを取っておくこと。
837:名前は開発中のものです。
07/05/07 22:03:17 PZ9SZ2Mt
>rnd R,3
↓
R=rnd(3)
HSP2の頃のサンプルを使うなら
HSPエディタの有るフォルダに index.htmってのがあるから
その中の
・以前のバージョンからの変更点(アップデートガイド) (update.htm)
これを一度見といた方がいい
838:名前は開発中のものです。
07/05/08 05:43:06 vruKdlwD
クォータービューのＡＣＴやSTGの、当たり判定は矩形のまま行っているの？
それとも、クォータービュー用(？)定番アルゴリズムとか、あるんでしょうか
839:名前は開発中のものです。
07/05/08 10:53:15 8GDuzc4l
別に矩形で良いんじゃないの
何か問題？
840:名前は開発中のものです。
07/05/08 16:45:06 GV3ApysF
>>835
>>837
これでやっと先に進めます！
アップデートガイドの存在には気がつきませんでした。
今後は活用したいと思います。
ありがとうございました。
841:名前は開発中のものです。
07/05/08 23:45:41 tONREbU4
関数タイプになって
pos rnd(639) , rnd(479)
みたいな記述ができて楽になった
gcopy 1,200+(80*rnd(3)),0,80,90
842:名前は開発中のものです。
07/05/09 20:52:30 VSNS2raa
HGIMG3のモデル領域は開放できない？
オブジェクト領域はできるらしいんだけど エロイ人ご教授ください
843:名前は開発中のものです。
07/05/09 23:53:51 07ufZ3sL
>>838
クォータービュー用定番アルゴリズムなんてものはない！ゲ製作はいまだに職人
の世界だっ！師匠の指裁きや筆遣いや寿司ネタの握り方を見て技術を盗むんだよ。
定番のアルゴリズムは講座や本読めば買いてあるだろう。しかしクォータービュー
だとか、ちょっと凝ったやつになるとどうだ。ブツを見てどんなアルゴリズムなんだろう
な～と想像するしかない。ブラックボックスってやつだね。でもゲ製作ってそういう
もんじゃね？ゲーム見て「これってどうやったらできるんだろう」って思う。そしてその
方法を考える。「ああこうやればできるや」って思えば技術の向上だ。
俺くらいの中級者になるとざっと考えるだけでこんだけ出てくるぜ。
・>>839に同じ。矩形。
・円ならもうちょっとマシなんじゃないか。
・ひし型の当たり判定その１。三角形２つと四角形１つに分ける。三角形は斜めに
なった四角形の判定でできる。
・ひし型ってのは長方形が上に行けば行くほど右にずれてるってことだ。そこから
導かれる計算式は？
・計算的にはまっすぐなスクロール。表示する時だけ斜めにする。
844:名前は開発中のものです。
07/05/10 00:20:36 2z4zuSSr
つーか、クオータービューとか関係なく、辺り判定したいキャラの形が問題なんじゃね？
845:名前は開発中のものです。
07/05/10 00:34:29 J9txepzh
よっぽど巨大で複雑怪奇な形でもない限り矩形で問題ないが
846:名前は開発中のものです。
07/05/10 04:35:42 U2vxhvV7
えー？
ていうか、クォータービューって単に表示上斜めってなってるだけだから
内部処理では普通のSTG等と同じ事やってて、
表示だけ斜めにするんじゃねーの？
847:名前は開発中のものです。
07/05/10 06:59:01 +xzQXwZO
いや、その理屈は正しい
848:名前は開発中のものです。
07/05/10 14:06:21 IknmfbEQ
あ？
3Dでやるの？
849:名前は開発中のものです。
07/05/10 21:03:24 tEu0m8/u
質問なんですがゲームで2人対戦を作るとき、
キーボードを二つパソコンにつないで同じボタンを押しても
１Pが押したのか２Pが押したのか分かるやりかたを教えてください。
お願いしますｍ（＿＿）ｍ
850:名前は開発中のものです。
07/05/10 21:54:52 J9txepzh
それは無理だろ
851:名前は開発中のものです。
07/05/10 22:00:18 Pb7a8JUW
環境がSFCなら出来るんじゃね？
852:名前は開発中のものです。
07/05/10 23:03:11 lvPcrjF3
>849
やり方があるのかどうかは、知らないが。
キーボードを二つ接続したPC環境を構築している人間は、少数派だろうから、
そのゲームを一般に公開するつもりなら、別の操作系を考えるのが賢明だと思う。
自分や仲間内だけで遊ぶゲームなら、その限りではないけど。
853:名前は開発中のものです。
07/05/12 03:18:16 iitxNH6p
>>849
２人以上ならゲームパッド（ジョイバッド？）を使うのが普通だろうね。
パッドvsパッドかパッドvsキーボード。
というかそもそもキーボードはゲームにむいてない。一般のキーボードはほとんど2～3キーロールオーバーだから。
あ、マウスvsキーボードって対戦もありか。ｗ
854:849
07/05/12 09:38:38 CHidITY3
そうですか…無理ですか…ありがとうございました。
855:名前は開発中のものです。
07/05/12 11:00:15 IIhlPIBe
つーか、その環境持ってるor調べようと思う奴が少ないからな。
今の時代パソコン２台でネット対戦にした方が早い気もするし。
856:名前は開発中のものです。
07/05/12 11:31:45 BKWL2B2V
国内で最も使われてるフリーな環境はHSPですか？
857:名前は開発中のものです。
07/05/12 11:42:17 9cDQPoon
昔、PC-88mkIISRというパソコンがあって、それにキーボード端子が２つ付いてた。
友人の家にキーボード持っていって実際に試したけど
両方のキーを受け付けて、判別はできなかったな。
マウスVSキーボードも、対戦マインスイーパー作って試してもらったんだけど
圧倒的にマウスのほうが操作早くて、公平なプレイにならなかった。
まぁ、パッド２つが無難だろう。
858:名前は開発中のものです。
07/05/12 15:11:32 tMkY9b8/
88SRって端子二つあったっけ
おぼえてねー
859:名前は開発中のものです。
07/05/12 20:47:05 LoRPkVYn
>>856
何に使われてる環境だ？
860:名前は開発中のものです。
07/05/12 23:28:26 tMkY9b8/
ミサイル弾道計算じゃね
861:名前は開発中のものです。
07/05/12 23:29:58 qzFNDBxk
>>855
確かに、俺も対戦ゲーム作る時は、普通にLAN対戦にするだろうな。
そっちの方が楽だろう。
862:名前は開発中のものです。
07/05/13 01:01:01 8A9djd1g
>>854
XP以降限定だけど、WM_INPUTでHIDの生データ取れば実現できるんじゃね？
試してないけどさ
863:名前は開発中のものです。
07/05/14 00:05:11 bOzJ10Yl
マウスホイールの操作で画面スクロールさせようと思ってるのですが
mousewの使いかたがよくわかりません。。。
どうすればいいですしょうか？
864:名前は開発中のものです。
07/05/14 00:26:20 uwtqYVSD
mousewはスクロールされると-120とか120という値が取得できます
// 画面の高さ
y = 0
*main
// 一時保存
// -1は情報が±が反転してるから
mw = mousew*-1
// もし動いたなら
if ( mw != 0 ) {
// その数値を加算
y = y+mw
// 調整
if ( y < 0 ) {
y = 0
}
if ( y > ginfo( 13 ) ) {
y = ginfo( 13 )-20
}
}
// 描画
redraw 0
color 255, 255, 255 : boxf
color 0, 0, 0 : boxf 0, y, ginfo( 12 ), y+20
redraw 1
// 待機
await 10
goto *main
865:名前は開発中のものです。
07/05/14 01:07:27 ecV+XOk6
mousewって、積算型じゃなくて一度値を参照すると中身がリセットされるんだよな。
しかも、スクロールホイールを２回動かす間にmousewを一度しか参照しなかったら、
前の１回分は破棄されるというふてえ仕様だ。
あたまわるいmousewのために高頻度でポーリングするのも余計な負荷なので、
WM_MOUSEWHELLを捕まえて内部カウンタを積算したほうが便利よ。
866:名前は開発中のものです。
07/05/14 01:10:27 bOzJ10Yl
>>864
おおぉーできました！ありがとうございます。
ifの判断でmousewをそのまま使ってたのがダメだったみたいです・・・。
867:名前は開発中のものです。
07/05/14 19:39:39 bUJYvT5N
５年使ってたノートが壊れたので新しいノートを買ってきた。前のは２０万。今度のはノート
としては最底辺の１０万だ。んで自作ゲームを動かしてみた。ひど！微妙に遅い。いや
それよりももっとひどいのがMIDI。うわ！安物のPCだとこんなふうに聞こえるんだあ。
いくつかの楽器がまともに鳴ってない。あるいは完全に鳴ってない。
５年もたってるんだぜ！？いくら安くても進化しててよくね？みんな！これからはmp3だよ！
サイズが大きいのは嫌だって奴のためにMIDI版も自分のサイトに用意しといて、俺の
サイトまで来いと。
てか速度が遅いのはいかんともしがたいなあ。これじゃあだめだ。みんな！俺はゲ製作
から撤退するよ。今まで有難う！そしてさよーおならー！ﾌﾞｯ!ｼﾈ!
それかawait 16からawait 32に変えるか。
868:名前は開発中のものです。
07/05/14 19:42:30 zgcv7AfZ
MIDIが酷いのはPCのせいじゃねえｗ
869:名前は開発中のものです。
07/05/14 20:04:55 8OHbs/4R
つーか、ぶっちゃけ音質悪くても昔のファミコンのＢＧＭの方が記憶に残ってる件ｗ
870:名前は開発中のものです。
07/05/14 20:19:48 gxCU6qzs
釣りだよね？
釣りじゃなったとしたら子供だよね？
871:名前は開発中のものです。
07/05/14 20:41:16 2MGniMoO
うむ。
いくら10万円でも5年前の20万円よりはスペック上だと思うのだが、
一体何があったのだ。。
10万も出してスペックダウンするくらいなら
ショップブランドのデスクトップ型にした方が良かったんじゃないか。
872:名前は開発中のものです。
07/05/14 21:13:38 jKbLwa2+
スルー力を君らに
873:名前は開発中のものです。
07/05/14 21:26:36 qusRFGjc
>>867
何が原因で遅くなってるか調べたか？
ゲームが遅くなってるだけで、タスクマネージャのCPU使用率は50%ぐらいとかねーか？
つーか、OS,CPU、グラボ、メモリの違いも検討しないで買ったのかよ・・・
874:名前は開発中のものです。
07/05/14 23:39:40 qQM3DdCm
>>867
マジレスすると、
5年前＋20万＝Win2000が快適に動く
今+10万＝VISTAがぎりぎりで動く
とかじゃね？
875:名前は開発中のものです。
07/05/15 00:26:10 xiOfuS6M
hsp2.6とhspdxfixでゲーム作ってるんだけど。
midiを演奏すると一瞬画面が止まります。
hsp以外の言語でもmidiファイルを演奏すると画面が止まりますか？
876:名前は開発中のものです。
07/05/15 00:48:18 QwlCZrR2
いまどきmidiデータなんぞ止めてオーディオデータを使いましょう
877:名前は開発中のものです。
07/05/15 01:12:07 FWjCeTAz
>>875
たぶんhmmとか使えばおｋ
878:名前は開発中のものです。
07/05/15 01:29:42 OAuZRVq8
>>875
再生に使ってるデバイスの問題
初期化に時間が掛かる(WinXPだと特に遅いと聞いた)
言語自体の問題じゃないよ
HSP3ならmciのMPEGVideoで再生開始速度が
早く出来るけど2はどうだろ？
879:名前は開発中のものです。
07/05/16 11:58:40 zA3GpFnY
まーしかし876に同意。
BGMがMIDIのゲームは嫌われたりするし、俺の環境ではミュートしちゃってる。
内蔵のソフトシンセなんて、どっちにしてもデータ作成者の意図どおりには鳴らんし。
880:名前は開発中のものです。
07/05/16 20:41:40 SejtJ/t7
>>876
すみません、オーディオデータってのが何なのかよく解りません。
AVI形式のことですか？無知ですいません。
881:名前は開発中のものです。
07/05/16 21:20:22 SzL9MSMh
wavとかじゃね？
882:名前は開発中のものです。
07/05/16 21:22:09 6BjJtGUs
jpgだよ。
883:名前は開発中のものです。
07/05/16 21:26:40 jv4GiZ2g
MOD最強
884:名前は開発中のものです。
07/05/16 22:09:20 6XNIRCTA
マジレスするとrarのこと
885:名前は開発中のものです。
07/05/16 23:49:37 FVllaHtw
>>880
四の五の言わずググれ。理解が深まるしそっちが早くて正確。
加えて話の流れも読むとより理解が深まるとおもうぞ。MIDIと対になってるだろ？
>>876,879
理解はできる。理解はできるが、ファイルサイズを気にしてしまう悪習慣がぬけないんだ。
つい、ね。
886:名前は開発中のものです。
07/05/17 01:11:36 k6rYSu8+
つーか、曲自体の出来がアレなのに、音源・音質ばっかり凝ってるのもイランけどな。
887:名前は開発中のものです。
07/05/17 03:06:38 qhlIETZh
まあそれはあるな
でもMIDIのBGMだったら鳴らさんほうがマシだ
888:名前は開発中のものです。
07/05/17 14:16:09 UjIQhbyQ
それは聞き捨てならんな。
フリー素材はほとんどがMIDI
そんな時代もあったのだよ。
故にMIDI資産は膨大
しょぼい音源のゲーム臭さも何とも言えんし、
Sound BLASTERとか、そうでなくても
サウンドフォントが扱えるサウンドカードならだいぶ世界が変わる。
あとTiMidiとかいうソフト音源もオススメ。
URLﾘﾝｸ(twsynth.sourceforge.jp)
ぶっちゃけ音源によって音が変わるのが良いんだﾖ('A`)
889:名前は開発中のものです。
07/05/17 17:33:48 ECrUiSe6
hspext.dllを使わずにレジストリに新規キーを作成しようと思って下の
スクリプト作ってみたんですが、どうも上手く動作してくれません。
どこが間違ってるのか教えてくらさーい。XPでの使用を前提にしてます。
;****************************************************
;******************
//新規命令を作成//
;******************
#module
;関数
#uselib "advapi32.dll"
#cfunc RegCreateKeyEx "RegCreateKeyExA" int,sptr,sptr,sptr,sptr,sptr,sptr,sptr,sptr
;定数
#const HKEY_CLASSES_ROOT 0x80000000
#const REG_OPTION_NON_VOLATILE $00000000
#const KEY_WRITE 0x20006
;新規命令
;p1=作成するディレクトリ
#deffunc Nh@_RegCreateKeyEx str Nh@_RegCreateKeyEx_P1
Nh@_RegCreateKeyEx_P0=HKEY_CLASSES_ROOT
nhret=RegCreateKeyEx(Nh@_RegCreateKeyEx_P0,Nh@_RegCreateKeyEx_P1,0,0,REG_OPTION_NON_VOLATILE,KEY_WRITE,0,hkey,0)
return
#global
;*******************
//メイン//
;*******************
makedir="testkey\\subkey"
Nh@_RegCreateKeyEx makedir
mes "CMPL"
stop
;*****************************************************
890:名前は開発中のものです。
07/05/17 21:46:05 lJm49cl1
#module
#uselib "ADVAPI32.DLL"
#cfunc RegOpenKey "RegOpenKeyExA" int,int,int,int,int
#cfunc RegQueryValue "RegQueryValueExA" int,int,int,int,int,int
#cfunc RegCreateKey "RegCreateKeyExA" int,int,int,int,int,int,int,int,int
#cfunc RegSetValue "RegSetValueExA" int,int,int,int,int,int
#cfunc RegDeleteKey "RegDeleteKeyA" int,int
#func RegCloseKey "RegCloseKey" int
#define KEY_READ 0x00020019
#defcfunc ReadReg int _key, var _subkey, var _data
hkey = 0 //↓規定値を読み込む
if RegOpenKey( _key, varptr(_subkey), 0, KEY_READ, varptr(hkey) ) == 0 {
size = 0
if RegQueryValue( hkey, 0, 0, 0, 0, varptr(size) ) == 0 {
sdim buf, size
a = RegQueryValue( hkey, 0, 0, 0, varptr(buf), varptr(size) )
RegCloseKey hkey
_data = buf
return 0 //キーの取得に成功。
}
else {
RegCloseKey hkey
return -2 //取得に失敗。（ほぼ在り得ないと思うが）
}
}
else {
RegCloseKey hkey
return -1 //キーが無いとき
}
891:名前は開発中のものです。
07/05/17 21:46:59 lJm49cl1
#define REG_OPTION_NON_VOLATILE 0x00000000 //情報はディスクファイルに保存され、システムを再起動時しても情報は失われません。
#define KEY_WRITE 0x00020006
#define REG_SZ 0x00000001
#defcfunc WriteReg int _key, var _subkey, var _data
hkey = 0 //↓規定値に書き込む
if RegCreateKey( _key, varptr(_subkey), 0, 0, REG_OPTION_NON_VOLATILE, KEY_WRITE, 0, varptr(hkey), 0) == 0 {
if RegSetValue( hkey, 0, 0, REG_SZ, varptr(_data), strlen(_data)+1 ) == 0 {
RegCloseKey hkey
return 0 //書き込みに成功
}
else {
RegCloseKey hkey
return -2 //書き込みに失敗
}
}
else {
RegCloseKey hkey
return -1 //キーのオープンまたは作成に失敗
}
#defcfunc DeleteReg int _hkey, var _subkey
return RegDeleteKey( _hkey, varptr(_subkey) )
#global
#define HKEY_CLASSES_ROOT 0x80000000
前に作ったやつをそのまま。参考に
892:名前は開発中のものです。
07/05/17 23:11:30 ECrUiSe6
>>890 >>891
ｳｫｫｯ！ありがとう！
激しく参考にさせて頂きます。
('A`)ｶﾞﾝﾊﾞﾙｾﾞ
893:名前は開発中のものです。
07/05/18 03:44:38 fYCuLcq6
うを、まじかっ