HSP - Hot Soup Processor [14]

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

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

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

**名前は開発中のものです。** · 2007/05/12(土) 11:31:45

国内で最も使われてるフリーな環境はHSPですか？

**名前は開発中のものです。** · 2007/05/12(土) 11:42:17

昔、PC-88mkIISRというパソコンがあって、それにキーボード端子が２つ付いてた。
友人の家にキーボード持っていって実際に試したけど
両方のキーを受け付けて、判別はできなかったな。

マウスVSキーボードも、対戦マインスイーパー作って試してもらったんだけど
圧倒的にマウスのほうが操作早くて、公平なプレイにならなかった。

まぁ、パッド２つが無難だろう。

**名前は開発中のものです。** · 2007/05/12(土) 15:11:32

88SRって端子二つあったっけ
おぼえてねー

**名前は開発中のものです。** · 2007/05/12(土) 20:47:05

>>856
何に使われてる環境だ？

**名前は開発中のものです。** · 2007/05/12(土) 23:28:26

ミサイル弾道計算じゃね

**名前は開発中のものです。** · 2007/05/12(土) 23:29:58

>>855
確かに、俺も対戦ゲーム作る時は、普通にLAN対戦にするだろうな。
そっちの方が楽だろう。

**名前は開発中のものです。** · 2007/05/13(日) 01:01:01

>>854
XP以降限定だけど、WM_INPUTでHIDの生データ取れば実現できるんじゃね？
試してないけどさ

**名前は開発中のものです。** · 2007/05/14(月) 00:05:11

マウスホイールの操作で画面スクロールさせようと思ってるのですが
mousewの使いかたがよくわかりません。。。
どうすればいいですしょうか？

**名前は開発中のものです。** · 2007/05/14(月) 00:26:20

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

**名前は開発中のものです。** · 2007/05/14(月) 01:07:27

mousewって、積算型じゃなくて一度値を参照すると中身がリセットされるんだよな。
しかも、スクロールホイールを２回動かす間にmousewを一度しか参照しなかったら、
前の１回分は破棄されるというふてえ仕様だ。

あたまわるいmousewのために高頻度でポーリングするのも余計な負荷なので、
WM_MOUSEWHELLを捕まえて内部カウンタを積算したほうが便利よ。

**名前は開発中のものです。** · 2007/05/14(月) 01:10:27

>>864
おおぉーできました！ありがとうございます。
ifの判断でmousewをそのまま使ってたのがダメだったみたいです・・・。

**名前は開発中のものです。** · 2007/05/14(月) 19:39:39

５年使ってたノートが壊れたので新しいノートを買ってきた。前のは２０万。今度のはノート
としては最底辺の１０万だ。んで自作ゲームを動かしてみた。ひど！微妙に遅い。いや
それよりももっとひどいのがMIDI。うわ！安物のPCだとこんなふうに聞こえるんだあ。
いくつかの楽器がまともに鳴ってない。あるいは完全に鳴ってない。
５年もたってるんだぜ！？いくら安くても進化しててよくね？みんな！これからはmp3だよ！
サイズが大きいのは嫌だって奴のためにMIDI版も自分のサイトに用意しといて、俺の
サイトまで来いと。
てか速度が遅いのはいかんともしがたいなあ。これじゃあだめだ。みんな！俺はゲ製作
から撤退するよ。今まで有難う！そしてさよーおならー！ﾌﾞｯ!ｼﾈ!
それかawait 16からawait 32に変えるか。

**名前は開発中のものです。** · 2007/05/14(月) 19:42:30

MIDIが酷いのはPCのせいじゃねえｗ

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

つーか、ぶっちゃけ音質悪くても昔のファミコンのＢＧＭの方が記憶に残ってる件ｗ

**名前は開発中のものです。** · 2007/05/14(月) 20:19:48

釣りだよね？
釣りじゃなったとしたら子供だよね？

**名前は開発中のものです。** · 2007/05/14(月) 20:41:16

うむ。

いくら10万円でも5年前の20万円よりはスペック上だと思うのだが、
一体何があったのだ。。

10万も出してスペックダウンするくらいなら
ショップブランドのデスクトップ型にした方が良かったんじゃないか。

**名前は開発中のものです。** · 2007/05/14(月) 21:13:38

スルー力を君らに

**名前は開発中のものです。** · 2007/05/14(月) 21:26:36

>>867
何が原因で遅くなってるか調べたか？
ゲームが遅くなってるだけで、タスクマネージャのCPU使用率は50%ぐらいとかねーか？
つーか、OS,CPU、グラボ、メモリの違いも検討しないで買ったのかよ・・・

**名前は開発中のものです。** · 2007/05/14(月) 23:39:40

>>867
マジレスすると、
5年前＋20万＝Win2000が快適に動く
今+10万＝VISTAがぎりぎりで動く
とかじゃね？

**名前は開発中のものです。** · 2007/05/15(火) 00:26:10

hsp2.6とhspdxfixでゲーム作ってるんだけど。
midiを演奏すると一瞬画面が止まります。

hsp以外の言語でもmidiファイルを演奏すると画面が止まりますか？

**名前は開発中のものです。** · 2007/05/15(火) 00:48:18

いまどきmidiデータなんぞ止めてオーディオデータを使いましょう

**名前は開発中のものです。** · 2007/05/15(火) 01:12:07

>>875
たぶんhmmとか使えばおｋ

**名前は開発中のものです。** · 2007/05/15(火) 01:29:42

>>875
再生に使ってるデバイスの問題
初期化に時間が掛かる(WinXPだと特に遅いと聞いた)
言語自体の問題じゃないよ
HSP3ならmciのMPEGVideoで再生開始速度が
早く出来るけど2はどうだろ？

**名前は開発中のものです。** · 2007/05/16(水) 11:58:40

まーしかし876に同意。
BGMがMIDIのゲームは嫌われたりするし、俺の環境ではミュートしちゃってる。
内蔵のソフトシンセなんて、どっちにしてもデータ作成者の意図どおりには鳴らんし。

**名前は開発中のものです。** · 2007/05/16(水) 20:41:40

>>876
すみません、オーディオデータってのが何なのかよく解りません。
AVI形式のことですか？無知ですいません。

**名前は開発中のものです。** · 2007/05/16(水) 21:20:22

wavとかじゃね？

**名前は開発中のものです。** · 2007/05/16(水) 21:22:09

jpgだよ。

**名前は開発中のものです。** · 2007/05/16(水) 21:26:40

MOD最強

**名前は開発中のものです。** · 2007/05/16(水) 22:09:20

マジレスするとrarのこと

**名前は開発中のものです。** · 2007/05/16(水) 23:49:37

>>880
四の五の言わずググれ。理解が深まるしそっちが早くて正確。
加えて話の流れも読むとより理解が深まるとおもうぞ。MIDIと対になってるだろ？

>>876,879
理解はできる。理解はできるが、ファイルサイズを気にしてしまう悪習慣がぬけないんだ。
つい、ね。

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

つーか、曲自体の出来がアレなのに、音源・音質ばっかり凝ってるのもイランけどな。

**名前は開発中のものです。** · 2007/05/17(木) 03:06:38

まあそれはあるな
でもMIDIのBGMだったら鳴らさんほうがマシだ

**名前は開発中のものです。** · 2007/05/17(木) 14:16:09

それは聞き捨てならんな。

フリー素材はほとんどがMIDI
そんな時代もあったのだよ。
故にMIDI資産は膨大

しょぼい音源のゲーム臭さも何とも言えんし、
Sound BLASTERとか、そうでなくても
サウンドフォントが扱えるサウンドカードならだいぶ世界が変わる。

あとTiMidiとかいうソフト音源もオススメ。
http://twsynth.sourceforge.jp/

ぶっちゃけ音源によって音が変わるのが良いんだﾖ('A`)

**名前は開発中のものです。** · 2007/05/17(木) 17:33:48

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
;*****************************************************

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

#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 //キーが無いとき
}

**名前は開発中のものです。** · 2007/05/17(木) 21:46:59

#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

前に作ったやつをそのまま。参考に

**名前は開発中のものです。** · 2007/05/17(木) 23:11:30

>>890 >>891
ｳｫｫｯ！ありがとう！
激しく参考にさせて頂きます。
('A`)ｶﾞﾝﾊﾞﾙｾﾞ

**名前は開発中のものです。** · 2007/05/18(金) 03:44:38

うを、まじかっ

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

　　　　　　 -―-　､__,
　　　　　　　　'叨¨ヽ　　　`ｰ-､
　　　　　　　 ` ー　　 /叨¨)
　　　　　　　　　　　　　ヽ,
　　　　　　　　｀ヽ.＿__´,　　　　　＜うを、まぶしっ
　　　　　　　　　　 `ﾆ´

　　　　　　　:::.　:　　　　　　:　 ..:::
　　　　　　　 :::.　:　　　　　 .　 .:::
　　　　　　　　::..　:　　　　 :　 ..::
　　　　　　　　 :::..　:.　　　.:　 .::
　　　　　　　　　:::...　　...　 ...::
　　　　　　　　　　::.....　　...::::
　　　　　　　　　　∧ ::...::: /
　　　　　　　　 { ヽ| |ノﾉ
　　　　　　　　　＿ﾄ､Lj/}
　　　　　　　r＜　 {　|　|７ヽ、
　　　　　　　{　　,_ｪｪ.L⊥.__{ﾉ､
　　　　　　　j　　　　　｀}ー'
　　　　　　 } 　 ――ー-{
　　　　　　ヽ　　--―‐r'
　　　　　　　　＼_ ＿_. ｲ
　　　　　　　　　　｀ｰ┴ ´

**名前は開発中のものです。** · 2007/05/21(月) 15:10:11

質問よろしいでしょうか？　STGの、自機を狙ってくる弾を作りたいのですが
以下の方法だと、角度の精度が、大雑把と言うか、角度によっては弾が当たらない場合もあるのですが
どこがいけないのでしょうか。よろしくお願いします。(HSP3用です)

mx = 320 : my = 320 : ex = 320 : ey = 150 ; 敵味方座標
tx = 0:ty = 0 ; 弾座標
*main
e++ : if e = 60 : tx = ex : ty = ey : gosub *tama_houkou : e = 0
gosub *tama_move
stick k,15
if k&1 : mx-
if k&4 : mx+
if k&2 : my-
if k&8 : my+
redraw 0 : color : boxf
color ,$ff : pos mx,my : mes "▲" ; 自機
color $ff : pos ex,ey : mes "▼" ; 敵
pos tx,ty : mes "●"; 弾
redraw 1 : await 0 : goto *main
*tama_houkou ; 自機の方向を得る
a = ex - mx : b = ey - my
c = atan (a,b)
si = int(sin(c)*4) : co = int(cos(c)*4)
return
*tama_move ; 弾移動
tx+=-si : ty+=-co
return

**名前は開発中のものです。** · 2007/05/21(月) 15:18:49

intしてるからだろ

**名前は開発中のものです。** · 2007/05/21(月) 15:46:33

>>895
0.1*4と0.2*4を整数にしたら幾つだ？

**名前は開発中のものです。** · 2007/05/21(月) 16:36:11

整数と実数の扱いがどうもよく分からんので
今だに <<8 だの >>8 してるわﾓﾚ('A`)

**895** · 2007/05/21(月) 16:36:22

>>896さん、897さん
お早い回答、有難うございます。上手くいきました

intを外す事も試してみましたが、結果は同じで、何故だろうと思いましたが
上の場合、敵味方の座標も、小数型にしておかなければいけなかったのですね
先に下の文を参考に作ったので、気付きませんでした。

#define DtR 0.017453293 ; 度 -> ラジアン
mx = 320 : my = 240
*main
redraw 0
color : boxf
color ,$ff : pos mx,my : mes "▲"; 自機
color $ff : pos ex,ey : mes "●" ; バリア
redraw 1
a++ : if a = 360 : a = 0
rok = DtR*a
si = int(sin(rok)*100) : co = int(cos(rok)*100)
ex = mx+si : ey = my+co
await 0 : goto *main

**名前は開発中のものです。** · 2007/05/21(月) 19:57:48

質問させていただきます
アクションゲームを作っているのですが
「→,↓,←,」のキーを押し続けると
「-->スタック領域のオーバーフローです」
のエラーが出ます
「移動、ジャンプ、ダッシュ、座り」
等の行動まで出来るようになった段階では問題なかったのですが
「攻撃」を加えた後でエラーが出るようになりました
「攻撃」関係の部分を全て消しても同じエラーが出ます
「攻撃」を加える前は同じ操作をしても
エラーは出なかったはずですが勘違いかもしれません

自分で調べられる範囲で調べてみたのですが
サブルーチンと式が間違っているらしいことはわかったのですが
指摘されている部分を見ても具体的に何が間違っているのかわかりません
（ if zky=1 and atacktime=0 :atacktime+=1）
上が指摘された部分なのですが
根本的に、エラー「スタック領域のオーバーフロー」が何故出るのか解りません
長文かつ基本的な質問をしているのかもしれないのですが
もし解る方がいらっしゃいましたら教えてもらえないでしょうか
他に書くべき事がある場合も指摘してもらえると助かります
よろしくお願いします

**名前は開発中のものです。** · 2007/05/21(月) 20:27:48

>>900
大抵サブルーチンからgotoとかしてメインに戻ってたり
ループからブレイク無しでループの外に行ってたり
新規命令やサブルーチンを同じ新規命令やサブルーチン無限に呼んでたり
とかだな

>指摘されている部分を見ても具体的に何が間違っているのかわかりません
エラーで出る行番号は目安ぐらいにしかならない(特に3.0aは)
後、エラーエログも正確じゃない(特に3.0aは)

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

新規命令やサブルーチン内から同じ新規命令やサブルーチンを無限に呼んでたり

だな・・・

**名前は開発中のものです。** · 2007/05/21(月) 20:46:15

>>901

ありがとうございます思い当たる部分もあるのでチョットいじってみます

似たような質問で申し訳ないのですが
例えば
*sub ;(サブルーチン)
if (～) :goto *nuke
(サブルーチン命令)
*nuke
return
の様にサブルーチン内で gotoを使って命令を飛ばすのは
何か問題があるのでしょうか？

**名前は開発中のものです。** · 2007/05/21(月) 21:30:46

>>903
サブルーチンネストの限界(128？)まで行かなければいいので
gotoでジャンプすること自体は問題ない、901でもメインって言ってるだろ？
（普通メイン内にreturnなんて置かないじゃん）

ネストってーのは
gosub *A
stop
*A
gosub *B
return
*B
return

ってなってた場合*Aに飛んだときにネスト1になって
更に*Bに飛ぶとネスト2になる、returnするとネスト1になって
gosub *Bの次の行に飛ぶ

これは、gosub で飛んだ物は戻る場所を保存してるからで
だからreturnするだけで飛んだ逆順にジャンプ元に戻ることが出来る
でも戻り先を保存できる個数には制限があってそれが128個

>何か問題があるのでしょうか？
問題があるとすれば、読みにくくなる、バグの元になる
（gotoで飛んでreturnしてたら自分でも訳分からなくならない？）
特別な理由が無ければサブルーチン内で決着を付けた方が良いと思う
*sub ;(サブルーチン)
if (～) {gosub *nuke :return}
とか

**名前は開発中のものです。** · 2007/05/21(月) 21:54:57

サブルーチンなんて使わずに全部関数で処理すれば問題ない

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

>>905
おいおい
そう言う問題じゃねーだろ
新規関数内から同じ関数呼ぶのもネストの問題は解消できないのにｗ
分かった上で使わないと結局後で同じような問題で詰まるよ

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

Ｄｒ．デバッグ「構造化プログラミングですぞ」

**名前は開発中のものです。** · 2007/05/21(月) 23:01:13

オブジェクトHSPとか出たらいいのにね。

**900** · 2007/05/22(火) 02:31:24

>>904
返事遅くなってすいません
解りやすい説明ありがとうございます
コレで問題可決できそうです
本当にありがとうございました

**名前は開発中のものです。** · 2007/05/22(火) 03:25:14

>>903
>if (～) :goto *nuke
>(サブルーチン命令)
>*nuke
>return
の*nuke～return間に何も無いなら
飛ぶ必要がないぞ

if (～) :return
(サブルーチン命令)
return

これで事足りる
途中で抜ける方に return -1
最後まで行く方に return 0
ってやっておくと

gosub *sub
if stat<0 :mes "エラー"

とか出来る

後、サブルーチン内にデータ渡して処理したくなったら
マクロ、新規命令、新規関数、モジュールとか覚えれば色々便利

**HSP3** · 2007/05/22(火) 12:06:38

かなり初歩的な質問かもしれませんが、

背景画像をずっと表示しっぱなしで、
bufferでID2ウインドウにキャラ画像読み込んで
そのキャラを移動させた時に、boxfなどで塗りつぶすともちろん背景消えますよね？

でも塗りつぶさないと一度表示されたキャラが移動しても消えないので
移動すればするほどペンでなぞったみたいに繋がります・・・。

まとめますと
・背景は表示しっぱなし。
・キャラを表示、stickなどで動かせる。
・背景だけ消さずにキャラを一度消して、移動先で再描写。

こういう場合どうすればよいでしょうか？・・・。
boxfで一度消すやりかたで、背景なしだったら出来ます。

**名前は開発中のものです。** · 2007/05/22(火) 12:14:55

>>911
boxfの代わりに、背景をコピーしる。
つまり、背景画像用のスクリーンバッファか領域が必要。

**HSP3** · 2007/05/22(火) 12:32:02

>>912
さっそくありがとうございます！
まだいまいち頭では解っていませんが、
ヒントになりました！

背景をコピーする考えでやってみまう！

**名前は開発中のものです。** · 2007/05/22(火) 13:17:28

>>913
buffer 1
picload dir_exe+"\\sample\\demo\\sky_bg.jpg"
buffer 2
picload dir_exe+"\\sample\\game\\shootchr.bmp"
gsel 0

repeat
redraw 0 ;redraw命令はは必ず表示ウィンドウが操作先になってる必要がある
gmode 0
pos 0,0 :gcopy 1,0,0,640,480
stick k,$f
if k&1{x-2}
if k&4{x+2}
if k&2{y-2}
if k&8{y+2}
gmode 2
pos x,y :gcopy 2,0,0,128,64
redraw 1
await 10
loop

ウィンドウ上に表示した物を動かす場合は
基本的に背景で使ってる画像で上書きする

殆んどのフレームで動きがあるよな物なら毎フレーム
背景コピー＞キャラコピーと自分で処理するのが普通
(ツクールとか使ってた人が良く戸惑う・・・)

**HSP3** · 2007/05/22(火) 13:31:10

>>914
めちゃくちゃ親切にどうもです＞＜

もろ解りでした！
本当、根本的な捕らえ方が違ってたみたい・・・
頭が柔らかくなりました。ありがとうございました！

**HSP3** · 2007/05/22(火) 17:19:48

911で質問した者ですが、お陰様で画面の表示方法は一通り解ったんですが
また新たに疑問が出来たので、お暇な方が居れば教えてください

キャラを操作する時の"初動動作スピード"の事なんですが、
例えば→にキャラを進める場合
キー押し始めはゆっくりで、すぐさま最高スピードになって、
キーを放してもすぐには止まらないようにしたいのですが
どうすればいいんでしょうか・・・？

キャラの表示は>>914で教えてもらった感じにしてるのですが
試行錯誤してもよくわかりません、どうか教えてくださいませ・・・。

**名前は開発中のものです。** · 2007/05/22(火) 17:24:25

ヒント >>538-545

**HSP3** · 2007/05/22(火) 17:28:23

>>917
ごめんなさい、よく読んでなかった・・・
HSPが出来ないのもこういう性格だからですね・・・

気をつけます！そして、ありがとうございました！

**名前は開発中のものです。** · 2007/05/22(火) 20:35:53

ホントに”試行”錯誤したのかと

**名前は開発中のものです。** · 2007/05/22(火) 22:57:11

思考錯誤してんじゃね？

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

>>916
x方向への移動量をdxとする。最高スピードをmaxdxとする。例えば、
・→が押されているなら、dx=dx+1。ただしdx>=maxdxなら増やさない。
・→が押されていないなら、dx=dx-1。ただしdx=0なら減らさない。
もちろんｘ方向への移動はx=x+dxだ。

>HSPが出来ないのもこういう性格だからですね・・・
うむ。素直ないい子じゃないか。ちんこをうｐしてくれたらもっと手取り足取り教えてやって
もいいぞ。

**名前は開発中のものです。** · 2007/05/23(水) 03:43:11

>>930
ちょｗｗｗそれどう見ても４０代ｵｻﾝのちんｐだろｗｗｗ

**名前は開発中のものです。** · 2007/05/23(水) 08:54:07

ちょｗｗｗどこの誤爆だｗｗｗ

**HSP3** · 2007/05/23(水) 09:32:21

だめだ；；いくらやってもまじわかんない；；
誰か　914のソースで
→と←を押した時だけ916で言った通りにして貰えないだろうか？・・・

すごく優しく教えてもらってるのに、全然わかんない・・・
これだから単細胞は・・・

>>921
ありがとう！言ってる意味はすごく分かったけど、
多分こちらの捕らえ方が悪いんだろうけど、その感じでやってみると
maxdxに到達した時にそれ以上進まない・・・なんでだ・・・
むしろ、dx+1がmaxdxの数値（たとえば5なら）5までただ1を足すだけで
だんだんと加速する感じが出ないッス・・・

説明すらムズイ；；あと包茎なんで勘弁して下さい；；

**名前は開発中のものです。** · 2007/05/23(水) 12:40:32

>>924

x = 320.0 : vx = 0.0
y = 240.0 : vy = 0.0
repeat:redraw 0

getkey k,37:if k : vx -= 5.0
getkey k,39:if k : vx += 5.0
getkey k,38:if k : vy -= 5.0
getkey k,40:if k : vy += 5.0
x = x+vx
y = y+vy
if x < 0.0 : x = 640.0
if x > 640.0 : x = 0.0
if y < 0.0 : y = 480.0
if y > 480.0 : y = 0.0

color 255,255,255:boxf
color 0,0,0:pos x,y:mes "★"
redraw 1:wait 10:loop

最大速度は自分でやってみそ

**名前は開発中のものです。** · 2007/05/23(水) 12:46:17

;包茎に免じて。 >914の「gsel 0」以降を差し替え
dim dx,16:dim dy,16:repeat 16:dx(cnt)=((cnt&4)>0)-((cnt&1)>0):dy(cnt)=((cnt&8)>0)-((cnt&2)>0):loop
repeat
redraw 0
gmode 0
pos 0,0 :gcopy 1,0,0,640,480
stick k,$f:k&=$f
if dx(k) { xz+=dx(k) } else { xz -= limit( ((xz>0)-(xz<0)) , -10,10 ) }
x+=xz:if ( (x>640)|(x<-128) ) { x-=xz:xz=-xz }
y+=dy(k)*2
gmode 2
pos x,y :gcopy 2,0,0,128,64
redraw 1
await 10
loop

**名前は開発中のものです。** · 2007/05/23(水) 19:29:55

包茎には優しいな

**名前は開発中のものです。** · 2007/05/23(水) 20:51:34

あー、いま見たら間違ってるな。スマン＞包茎

if dx(k) { xz+=dx(k) } else { xz -= limit( ((xz>0)-(xz<0)) , -10,10 ) }
のとこ、

if dx(k) { xz+=dx(k) } else { xz-= ((xz>0)-(xz<0)) }
xz = limit( xz , -20,20 )
とでもしてやっておくれ。

**名前は開発中のものです。** · 2007/05/23(水) 23:14:55

>>924
maxdxに到達した時にそれ以上進まない・・・なんでだ・・・
pos x+dx.y とかやってないか？ｗ
//←→だけ加減速度付きサンプル
buffer 1
picload dir_exe+"\\sample\\demo\\sky_bg.jpg"
buffer 2
picload dir_exe+"\\sample\\game\\shootchr.bmp"
gsel 0
x=0.0:y=0.0:dx=0.0:dy=4.0:maxdx=10.0
repeat:redraw 2
gmode 0:pos 0,0 :gcopy 1,0,0,640,480
color 255,255,255
mes "x="+x+" dx="+dx:mes "y="+y
stick k,$f
if (k&5)=0 {;左右キー入力が無ければ減速
if int(dx)!0 {;dxが1未満ならdxを0に近づける
if dx>0.0 {dx=limitf(dx-0.3,0,maxdx)}else{dx=limitf(dx+0.3,-maxdx,0)}
}else{dx=0.0}
}else{
if k&1 {dx=limitf(dx-0.5,-maxdx,maxdx)}else:if k&4 {dx=limitf(dx+0.5,-maxdx,maxdx)}
}
if k&2 {y-dy}else:if k&8{y+dy}
x=limitf(x+dx,0,512) ;x+dxを0.0～512.0に収める（実数型用）
y=limitf(y,0,416)
gmode 2:pos x,y :gcopy 2,0,0,128,64
redraw 1:await 10:loop

**名前は開発中のものです。** · 2007/05/23(水) 23:17:43

あら、一行目に > やるの忘れた・・・
まぁいっかｗ

**名前は開発中のものです。** · 2007/05/23(水) 23:44:29

まぁ、普通に空気抵抗みたいな力でおｋ

**HSP3** · 2007/05/25(金) 06:01:06

>>925-931
返事が遅れまくりで申し訳ないです・。・
みなさんのを試しに実行してみたら
すごく僕の望んでたモノになったとです！
これらを改良してみますね。ありがとうございました

アニメーション表示まで出来て
後は敵とマップに関してが残った大きな仕事になりました。
みなさんのお陰です＼(^o^)／

**929** · 2007/05/25(金) 09:41:51

コメント間違ってた
>if int(dx)!0 {;dxが1未満ならdxを0に近づける
0未満を0.0に
0以外ならdxを0に近づけるだな・・・

**名前は開発中のものです。** · 2007/05/25(金) 14:22:30

質問ばかりで申し訳ないですが、
MP3などのオーディオデータを一時停止する事って出来ますか？

あと
マリオの様なアクションゲームのマップに関する概念を教えて欲しいです・・・

**名前は開発中のものです。** · 2007/05/25(金) 15:26:03

>>934
>MP3などのオーディオデータを一時停止する事って出来ますか？
「HSP DirectSound Extension」とか、プラグイン使えば簡単。

>マリオの様なアクションゲームのマップに関する概念を教えて欲しいです・・・
基本は、よくある迷路ゲームとかと同じ。
画面を40x30（数字は何でも良いけど）の格子に分けて、それぞれの格子に属性を割り振る。
0だと何も無し、1だとブロックで行けない、2だと壊せるブロック、とかな。
二次元配列にすると管理が簡単。
後は自キャラの現在位置と、自キャラが次に進もうとしている格子の座標を比べた上で、
その格子の属性が0なら進める、1だと進めないというような処理を入れる。
その他、重力引っ張りとかジャンプとか、自キャラの動きに関する処理を入れれば、
大分マリオっぽくなるだろう。

一度テトリスとか迷路ゲームみたいな、単純な奴作って練習してみるのもお薦め。

**名前は開発中のものです。** · 2007/05/25(金) 15:50:00

おまえの次のセリフは
『マップ表示の仕方を教えてくださいこの野郎！』という！

\sample\game\mapmove1.hsp
\sample\game\mapmove2.hsp

**名前は開発中のものです。** · 2007/05/25(金) 16:28:28

初歩的な質問ですみません。
mmloadで音声を読み込んでおいてmmplayで鳴らしているんですが
複数のｗａｖを同時に重なった状態で鳴らすことってできますか？
後発の音が前発の音を消してしまうのでとぎれとぎれなかんじになってしまう…

**名前は開発中のものです。** · 2007/05/25(金) 16:34:58

ttp://taillove.jp/mia/
のHSP DirectSoundExtension使え

**名前は開発中のものです。** · 2007/05/25(金) 20:26:10

優しい奴ばっかりだな。
何があった？

**名前は開発中のものです。** · 2007/05/25(金) 22:10:51

>>935
すごく解り易かったです！
色々調べてたけど説明が長いだけで、解り難かったんです。
そういう風に簡潔にまとめてくれるとすごく助かります、ありがとうございました！

>>936
それは僕(934)に対しての言葉ですか？？
そうならそのサンプル(？)に表示の秘密が隠れてるんですね！
じっくり吟味してきます！ありがとうございました！

**名前は開発中のものです。** · 2007/05/25(金) 23:18:55

(´・ω・｀)

**名前は開発中のものです。** · 2007/05/26(土) 00:09:57

手取り足取りソースまでもらっちゃって嬉しいのは分かるが
ちゃんと理解してるか。成長しないぜ…？

**名前は開発中のものです。** · 2007/05/26(土) 00:13:36

>>942
そうそう、ソースのをそのままはめ込むのはやらない様にしています。
一度新規で教えてもらったソースを実行して、
一個ずつの命令をちゃんと勉強してます。

今回は初めてだから何も解らないけど、
次回作とか作る時に理解してないと困るの自分ですからね

って返信速っ

**名前は開発中のものです。** · 2007/05/26(土) 13:33:05

14歳からのHSPプログラミングを見ながらシューティングゲームを作っています。
スペースキーを押すと弾が発射されるようにしたいのですが、何故かカーソルキー←で弾がはっしゃれるようになってしまいました。
何故でしょうか？以下がそのプログラムです。

randomize
buffer 1,,,1
picload "flogs.bmp"

screen 0,480,320,1

MX=240 ;自分のx座標を入れる変数
MY=160 ;自分のy座標を入れる変数
SN=0
SX=0
SY=0
gmode 2

**名前は開発中のものです。** · 2007/05/26(土) 13:36:51

;/■/■/■メインループ/■/■/■
*LOOP1
redraw 0 ;ここから画面の書き換えを一時停止
color 0,96,0 :boxf 0,0,479,319 ;背景を深い緑で塗りつぶす

stick ky,15
if KY&1 :MX=MX-8 :if MX<0 :MX=0 ;左移動
if KY&4 :MX=MX+8 :if MX>448 :MX=448 ;右移動
if KY&2 :MY=MY-8 :if MY<0 :MY=0 ;上移動
if KY&8 :MY=MY+8 :if MY>288 :MY=288 ;下移動
gosub *shot

pos MX,MY
gcopy 1,0,0,32,32

redraw 1 ;ここから画面の書き換えを再開
await 30
goto *LOOP1

;/■/■/■弾の移動ルーチン/■/■/■
*shot
if (KY&16=16) and (SN=0) {
SN=1
SX=MX+24
SY=MY+12
}
if SN=1 {
SX=SX+12
color 0,255,255 :boxf SX,SY,SX+12,SY+4
if SX>474 :SN=0
}
return

**名前は開発中のものです。** · 2007/05/26(土) 13:58:02

stick ky,15
ってあるけど、kyをKYに直せばいいんじゃないかな？
軽く見ただけなんだが、他は合ってるような気がする。

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

優先順位のせい
& よりも = が先になる

    *,/            4 高い
    +,-            3
    <<,>>          2
    比較演算子     1
    &,|,^          0 低い

**名前は開発中のものです。** · 2007/05/26(土) 14:08:18

>>947
つまり、どのように直せばいいのでしょうか？

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

上げちゃったｽﾏｿ

>>943
包茎だけど初心者の鑑だな('A`)

**名前は開発中のものです。** · 2007/05/26(土) 14:10:33

>>948
ここ。

if (KY&16=16) and (SN=0) {

**名前は開発中のものです。** · 2007/05/26(土) 14:15:26

>>950
(KY&16=16)ここを直せばいいんですよね？
どのように直せばいいのか分かりませんが･･･。
優先順位が変わってしまうと、何故カーソルキー←で反応してしまうようになるのでしょうか？

**名前は開発中のものです。** · 2007/05/26(土) 14:27:17

ちなみに
if (KY=16) and (SN=0) {
だとスペースキーで弾を発射してくれますが、移動キーと一緒に押した場合だと発射されなくて、ゲームとしてはおかしいですよね。
それ以外に方法があるのでしょうか？

**名前は開発中のものです。** · 2007/05/26(土) 14:32:52

(KY&16=16) これは…
　& よりも = の優先順位が高いのでまず、 16=16 が計算される。結果は 1

　　↓　　　　すると
　(KY&1)　　こうなっちゃう

計算の優先順位を変えたいならカッコを使う。基本中の基本ﾀﾞﾖ

((KY&16)=16)

**名前は開発中のものです。** · 2007/05/26(土) 15:57:39

>>953
なるほど！よく分かりました。
ありがとうございました。

**名前は開発中のものです。** · 2007/05/26(土) 23:57:15

exist "test.aaa"
fsize = strsize
if fsize == -1 : end
bload "test.aaa",file,fsize,$30
repeat
　binary = peek(file,cnt)
　pos x,y
　mes ""+binaｒy+"\t"+cnt
　y += 20
　if y >= 480 { x += 72 : y = 20 }
　await 0
loop
stop

ってやったときに、何故か5ループ目で「binary = peek(file,cnt)」の部分に「パラメータの値が異常です」ってエラーがでる
バイナリファイルが悪い訳ではなさそうなんだけど…
どうか原因を探ってｴﾛｲ人