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/02(水) 23:26:45

ゆるさん

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

HSP3系の講座が少ないのは、
みんな、HSPに飽きてきた可能性もある？

**名前は開発中のものです。** · 2007/05/03(木) 00:09:04

>>818
HSP3とHSP2たいして変わらないから
あと付属リファレンスが充実したから

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

>>819
まあそれでも誰も付属のリファレンスなんか見ていないんだがな
本家BBSで質問してくる香具師は少しは調べろつーの

**名前は開発中のものです。** · 2007/05/03(木) 15:44:01

ちょっと聞いただけで奇特なひとにサンプルを作って貰えるのが
HSP最大の売りだからな

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

元々ゲーム作りに詳しい講座は少ないような気がする。

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

HSP2.6とHSPDXFIXでSTGを作ってるんだけど
自機の斜め移動速度を縦横と同じ速さにする方法がよく解りません。
横移動　x+4
縦移動　y+4
斜め移動　x+3:y+3
位にすると大体同じくらいの速さになるけど。
でもコレだと速すぎる。
横と縦の移動量を2くらいにしたいんだけど
そうすると斜めの移動量はどうなるんでしょうか？

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

そういうのは数学の知識が要る。
三角関数でググれ。

**名前は開発中のものです。** · 2007/05/03(木) 23:26:36

あと、内部で保持する座標は画面表示と１：１の座標じゃなく、
小数を保持するために１０倍・１００倍の整数か浮動小数点を使え。

**名前は開発中のものです。** · 2007/05/03(木) 23:40:01

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

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

>>824-826
どうも有難うございます。
とりあえず浮動小数点ってのが今の自分にはすぐに理解するのが難しいかなぁと思いますんで
>>826さんの方法でやってみたいと思います。

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

いやそんなもん三角関数使って計算しろよ…

縦横に移動した時の移動量が1なら
斜めに移動した時の移動量は0.707106781186547

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

ごめん2.6ってのを見落としてた

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

HSPでゲームを作ってるんだけど
作ったヤツをウェブサイトで公開したい訳ですが
フォントをMSゴシックにしてゲームに表示させても
フォントの著作権とか問題ないんですか？

**名前は開発中のものです。** · 2007/05/07(月) 02:18:48

>>830
ない。
と言うか、フォント内蔵の場合なら（厳密には）問題あるが、単にOSのフォントを呼び出す分には全く問題ない。
ユーザーの環境に指定のフォントが入ってなければ、表示が想定通りに行かなくなるだけだし。
どこぞの拾い物フォントを勝手に内蔵して使う分には、それぞれのフォントの許認可条件に従うこと。

まあ、基本的に、フォントをフォントそのものとして内蔵し、フォントとして使用できる形で公開しない限り、
無問題と考えて大丈夫。メチャ本格的に、大規模な商利用する場合はまた別だが、まあ気にすんな。

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

>>831
ということは、フォントテーブルを持ったゲームやフォントを埋め込んだPDF,
フォントを使った画像ファイルにフォントのアウトラインが誰からも見られる紙の
印刷物は問題なの？

フォントって特殊な立場だな。

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

フォントの利用規約による

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

「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なので、そこらへんが問題だと思うのですが、いかがでしょうか？

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

rnd R,3
↓
R = rnd(3)

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

>>832
まあ結局>>833の言うとおりなんだけどな。

生ttfをゲームに同梱して配布するのはかなりやばい。
内部にBMP化してフォントを内蔵するのも、それなりにやばい。
一枚絵の中に文字が入っている、程度ならあまりやばくない。

また、大抵の場合、フォントを内蔵したワープロソフトみたいな
「フォントを"フォント"として取り扱う形態で配布」すると問題が大きくなる。
（注：ゲームには無関係のように見えるが、よくある「名前を入力する」部分が
ワープロ的だと見なされる場合がある）

やばいなと思うなら、フォントを内蔵せず、OSのフォントを呼び出すだけにしておいたら安全確実。
一枚絵の中に文字が含まれている、程度ならまあ大丈夫。
何万と売りさばく事が前提なら、何れにしろきちんとライセンスを取っておくこと。

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

>rnd R,3
↓
R=rnd(3)

HSP2の頃のサンプルを使うなら
HSPエディタの有るフォルダに index.htmってのがあるから
その中の

・以前のバージョンからの変更点(アップデートガイド) (update.htm)

これを一度見といた方がいい

**名前は開発中のものです。** · 2007/05/08(火) 05:43:06

クォータービューのＡＣＴやSTGの、当たり判定は矩形のまま行っているの？
それとも、クォータービュー用(？)定番アルゴリズムとか、あるんでしょうか

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

別に矩形で良いんじゃないの
何か問題？

**名前は開発中のものです。** · 2007/05/08(火) 16:45:06

>>835
>>837
これでやっと先に進めます！
アップデートガイドの存在には気がつきませんでした。
今後は活用したいと思います。
ありがとうございました。

**名前は開発中のものです。** · 2007/05/08(火) 23:45:41

関数タイプになって
pos rnd(639) , rnd(479)
みたいな記述ができて楽になった

gcopy 1,200+(80*rnd(3)),0,80,90

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

HGIMG3のモデル領域は開放できない？
オブジェクト領域はできるらしいんだけど　エロイ人ご教授ください

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

>>838
クォータービュー用定番アルゴリズムなんてものはない！ゲ製作はいまだに職人
の世界だっ！師匠の指裁きや筆遣いや寿司ネタの握り方を見て技術を盗むんだよ。
定番のアルゴリズムは講座や本読めば買いてあるだろう。しかしクォータービュー
だとか、ちょっと凝ったやつになるとどうだ。ブツを見てどんなアルゴリズムなんだろう
な～と想像するしかない。ブラックボックスってやつだね。でもゲ製作ってそういう
もんじゃね？ゲーム見て「これってどうやったらできるんだろう」って思う。そしてその
方法を考える。「ああこうやればできるや」って思えば技術の向上だ。
俺くらいの中級者になるとざっと考えるだけでこんだけ出てくるぜ。
・>>839に同じ。矩形。
・円ならもうちょっとマシなんじゃないか。
・ひし型の当たり判定その１。三角形２つと四角形１つに分ける。三角形は斜めに
　なった四角形の判定でできる。
・ひし型ってのは長方形が上に行けば行くほど右にずれてるってことだ。そこから
　導かれる計算式は？
・計算的にはまっすぐなスクロール。表示する時だけ斜めにする。

**名前は開発中のものです。** · 2007/05/10(木) 00:20:36

つーか、クオータービューとか関係なく、辺り判定したいキャラの形が問題なんじゃね？

**名前は開発中のものです。** · 2007/05/10(木) 00:34:29

よっぽど巨大で複雑怪奇な形でもない限り矩形で問題ないが

**名前は開発中のものです。** · 2007/05/10(木) 04:35:42

えー？
ていうか、クォータービューって単に表示上斜めってなってるだけだから
内部処理では普通のSTG等と同じ事やってて、
表示だけ斜めにするんじゃねーの？

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

いや、その理屈は正しい

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

あ？
3Dでやるの？

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

質問なんですがゲームで2人対戦を作るとき、
キーボードを二つパソコンにつないで同じボタンを押しても
１Pが押したのか２Pが押したのか分かるやりかたを教えてください。
お願いしますｍ（＿＿）ｍ

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

それは無理だろ

**名前は開発中のものです。** · 2007/05/10(木) 22:00:18

環境がSFCなら出来るんじゃね？

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

>849
やり方があるのかどうかは、知らないが。
キーボードを二つ接続したPC環境を構築している人間は、少数派だろうから、
そのゲームを一般に公開するつもりなら、別の操作系を考えるのが賢明だと思う。
自分や仲間内だけで遊ぶゲームなら、その限りではないけど。

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

>>849
２人以上ならゲームパッド（ジョイバッド？）を使うのが普通だろうね。
パッドvsパッドかパッドvsキーボード。
というかそもそもキーボードはゲームにむいてない。一般のキーボードはほとんど2～3キーロールオーバーだから。

あ、マウスvsキーボードって対戦もありか。ｗ

**849** · 2007/05/12(土) 09:38:38

そうですか…無理ですか…ありがとうございました。

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

つーか、その環境持ってるor調べようと思う奴が少ないからな。
今の時代パソコン２台でネット対戦にした方が早い気もするし。

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