HSPTV!掲示板

こんばんは。
以前質問しましたマッキーと言います。

前回の質問でKIMUと言う方に描画順番の方法を教えて貰ったのですが
どうもこの部分がかなりの行数になってしまい
もっと短くならないかと思って色々検索をしていたら
この描画順番の事が「Ｚソート」と言う名前である事がわかりました。

３Ｄはこれからの課題として
取り合えず２ＤでのＺソートの下のソースより
もっと効率の良いやり方を教えて貰えませんか。
自分の作っているゲームはキャラのポジションに３つの変数を使っていて
Ｘ値、Ｚ値で上下左右に移動して、Ｙ値がジャンプです。
前回の質問のログからの引用ですが、こんなソースを打っていました。
宜しくお願いします。

それともう一つ質問があるのですが
自分のソースはgosubで各処理に飛んで行く部分がたくさんあるのですが
随分行数が長くなってしまい、実行を押したら
*player　や　*enemy　が無い、とＨＳＰに言われてしまいました。
ちゃんと書いてあるのにどうしてなのでしょうか。

	repeat max
	kari.cnt = z.cnt
	kari2.cnt = number.cnt
	loop

	//ソート開始　バブルソート
	repeat max,1
	repeat max - 1,1
	if (kari.(cnt-1) > kari.cnt){
		a = kari(cnt)
		kari(cnt) = kari(cnt-1)
		kari(cnt) = a

		a = kari2(cnt)
		kari2(cnt) = kari2(cnt-1)
		kari2(cnt) = a
	}
	loop
	loop
	
//50まで
	repeat max
	switch kari2.cnt

//主人公
	case number.0
	pos x.0,(z.0 + y.0)
	gcopy g.0,sx.0,sy.0,size.0,size.0
	swbreak
	//↑
	//これを.0の部分を50まで増やして同じ風に書いています。

	・・・

	swend
	loop
	return

>*player　や　*enemy　が無い、とＨＳＰに言われてしまいました。
大文字小文字が間違ってませんか？
それとも、タブインデントをしているのではないでしょうか？

回答どうもありがとうございます。

*は全部小文字で、タブは*playerの部分は入っていません。
中身の方では一行一行の最初に全部タブが入っています。
タブを消して見ましたが結果は同じでした。

#Source file not found.[userdef.as]
の後に弾かれた*が並んでいます。

>前回の質問でKIMUと言う方に描画順番の方法を教えて貰ったのですが
>どうもこの部分がかなりの行数になってしまいもっと短くならないかと思って色々検索をしていたら
>この描画順番の事が「Ｚソート」と言う名前である事がわかりました。

分かっているのかどうか分かりませんが、一応確認のために、「Ｚソート」はソートアルゴリズムではなく、「ある値を基準にソートさせる」もので、その基準が「Ｚ」(3Dだったら奥行き？)だから「Ｚソート」と呼んでいるだけですね。
(間違っていたら指摘してください。)

>取り合えず２ＤでのＺソートの下のソースよりもっと効率の良いやり方を教えて貰えませんか。

こちらで考えた「効率の良いもの」がマッキーさんには「効率の悪いもの」の場合もあると思いますので、どこが効率悪いと思うのか、マッキーさんの考えを教えてください。

とりあえず読んでみたところ、ソートする部分に単純な間違いがあります。
よく読めば気づくと思うので、デバッグしてみてください。

repeat max
    switch kari2.cnt

        case number.0
        pos x.0,(z.0 + y.0)
        gcopy g.0,sx.0,sy.0,size.0,size.0
        swbreak
        //↑
        //これを.0の部分を50まで増やして同じ風に書いています。

"これ"ではなく、"配列の添え字"と呼んだほうが正確に伝わりますよ。
それと添え字を50まで増やすのは間違っています。添え字0〜49で50個の要素ですね。

効率を良くするということが書くコード量を減らすということなら、repeat - switch ...で分岐している部分をrepeatの二重ループにすればいいと思います。

あと順番が逆になりましたが、唯一効率がいいと言えるのは、

    repeat max
    kari.cnt = z.cnt
    kari2.cnt = number.cnt
    loop

この部分は

    ; z, number が整数配列でkari, kari2がmax分確保されている前提で
    memcpy kari, z, max*4
    memcpy kari2, number, max*4

こっちのほうがはるかに時間効率がいいです。
実行にかかる時間は自分で計測してみてください。

一度目の投稿はお礼を書き忘れてしまったのでこれで二度目の投稿になります。

kz3さん、とても丁寧な回答をどうもありがとうございました。
kz3さんのアドバイスのrepeatの二重ループは、下の様な感じになりましたが
これだとエラーになってしまいます。
頭が混乱して腕を組んだまま固まっています。
ソートした変数とナンバー、Ｙ値をどう結び付けたら良いのか難しいです。

dim kari,max
dim kari2,max

memcpy kari, y, max*4
memcpy kari2, number, max*4

//ソート開始　バブルソート
repeat max
repeat max - 1,1
if (kari.(cnt-1) > kari.cnt){
a = kari(cnt)
kari(cnt) = kari(cnt-1)
kari(cnt) = a

a = kari2(cnt)
kari2(cnt) = kari2(cnt-1)
kari2(cnt) = a
}
loop
loop

repeat max
i = cnt
repeat max
if(kari.i = y.cnt){
pos x.cnt,y.cnt
gmode 2
gcopy g.cnt,gx.cnt,gy.cnt,size.cnt,size.cnt}
loop
loop

指摘があったらドンドンお願いしたいです。

それとrepeatでやらずにmemcpyで代入するやり方は
処理スピードが全然違いました。

ラベルが弾かれる問題ですが
gosubで色んなフォルダの中のソースに飛ぶやり方自体が間違っているのでしょうか。
一つにまとめてみます。

＞ラベルが弾かれる問題ですが

自分が以前同じ様な現象を起こした時は、全角の空白「　」をソースファイルの中に
紛れ込ませてしまった、という原因でしたが・・・・。

たとえば、

*player

の「r」の直後に全角空白とか入っていませんか？

＞ぷほさん

回答どうもありがとうございます。今、作った全ソースを見てみました。
全角スペースは見える様にしてある訳なのですが一つも見当たりませんでした。
エラーを全部コピペしてここに出して見ます。
こんなエラーが出ます。

#HSP script preprocessor ver3.1b5 / onion software 1997-2006(c)
#Source file not found.[userdef.as]
#HSP code generator ver3.1b5 / onion software 1997-2006(c)
#ラベルが存在しません [owari]
#ラベルが存在しません [player_stick]
#ラベルが存在しません [player_joudan_damege]
#ラベルが存在しません [player_gedan_damege]
#ラベルが存在しません [player_futtobi_damege]
#ラベルが存在しません [player_down]
#ラベルが存在しません [enemy_born]
hsptmp(330) : error 19 : 致命的なエラーです (330行目)

このエラーが原因でソートを試す事も出来ない状態です。

他の人達の質問を下に流してしまわない様にしばらく回答を控えます。
すいませんでした。

>gosubで色んなフォルダの中のソースに飛ぶやり方自体が間違っているのでしょうか。

バラバラのスクリプトはコンパイル対象のスクリプトにインクルードされていますか？

こんばんは。
kz3さんありがとうございます。

>バラバラのスクリプトはコンパイル対象のスクリプトにインクルードされていますか？

はい、確かにインクルードされてます。

あれから何度も調べて見たのですが上手く行かないので
別にもう一つ最初から作り直す事にしてコツコツまた作っています。
結局何が問題だったのだか…。

ソート試し様に作ったスクリプトでは
上記のソート方法だと上手く行きませんでした。
今色々考えています。

今ソートが出来たので追記します。
ソートやっと間違いが見つかりました。
これだと上手く行きました。

dim kari,max
dim kari2,max

memcpy kari, y, max*4
memcpy kari2, number, max*4

//ソート開始　バブルソート
repeat max-1
repeat max-1,1
if (kari.(cnt-1) > kari.cnt){
a = kari(cnt)
kari(cnt) = kari(cnt-1)
kari(cnt-1) = a

a = kari2(cnt)
kari2(cnt) = kari2(cnt-1)
kari2(cnt-1) = a
}
loop
loop

後はラベルが弾かれる問題が何とかなれば…。

全角スペースもインクルード忘れも無かったのですが
何が原因だったのでしょうか…。

> 後はラベルが弾かれる問題が何とかなれば…。

#global が無いか書き間違えてるか、モジュール名が長すぎるか、のような気はする・・・。

>naznyarkさん
回答ありがとうございました。

仰る通りインクルードしたソースの一つのファイル名が長かったみたいです。
良く見たらこんな一行があり

#include"data/enemy/_enemy_routine_sekkin.hsp"

思考ルーチンを考えようとして途中で放り出していた部分なのですが
そこだけコメントアウトしたら実行出来ました！

問題が全部解決しました。

>ぷほさん
>ゆちボンさん
>kz3さん
>naznyarkさん

皆さんどうもありがとうございました。

PS.
スレッドの文章の間違い
KIMUと言う方⇒KIMUさんと言う方
でした。何故か呼び捨てになっていました。すいませんでした。

それじゃ今日は寝て、また明日から頑張ります。