ballの中身を見たわけではないのでなんとも言えないですが
通常は$2000+数値ですね、順番に見ていくしかないのかも・・・
以下は参考にしてください
#include "hgimg3.as"
boxmodel = {"
xof 0303txt 0064
Material mat0 {1.0;1.0;1.0;;}
Material mat1 {1.0;1.0;1.0;;}
Material mat2 {1.0;1.0;1.0;;}
Material mat3 {1.0;1.0;1.0;;}
Material mat4 {1.0;1.0;1.0;;}
Material mat5 {1.0;1.0;1.0;;}
Mesh {
24;
-0.5;-0.5;-0.5;, 0.5;-0.5;-0.5;,-0.5;-0.5; 0.5;, 0.5;-0.5; 0.5;,
-0.5; 0.5;-0.5;, 0.5; 0.5;-0.5;,-0.5; 0.5; 0.5;, 0.5; 0.5; 0.5;,
-0.5;-0.5;-0.5;, 0.5;-0.5;-0.5;,-0.5; 0.5;-0.5;, 0.5; 0.5;-0.5;,
-0.5;-0.5; 0.5;, 0.5;-0.5; 0.5;,-0.5; 0.5; 0.5;, 0.5; 0.5; 0.5;,
-0.5;-0.5;-0.5;,-0.5;-0.5; 0.5;,-0.5; 0.5;-0.5;,-0.5; 0.5; 0.5;,
0.5;-0.5;-0.5;, 0.5;-0.5; 0.5;, 0.5; 0.5;-0.5;, 0.5; 0.5; 0.5;;
6;// ポリゴン枚数
4;0,1,3,2;
4;5,4,6,7;
4;9,8,10,11;
4;12,13,15,14;
4;16,17,19,18;
4;21,20,22,23;;
MeshMaterialList {
6;6; // 使用するマテリアルの数,ポリゴン総数
0;1;2;3;4;5; //マテリアル番号
{mat0}{mat1}{mat2}{mat3}{mat4}{mat5}
}
MeshTextureCoords {
24;
0.0;1.0;1.0;1.0;0.0;0.0;1.0;0.0;
0.0;0.0;1.0;0.0;0.0;1.0;1.0;1.0;
1.0;1.0;0.0;1.0;1.0;0.0;0.0;0.0;
0.0;1.0;1.0;1.0;0.0;0.0;1.0;0.0;
0.0;1.0;1.0;1.0;0.0;0.0;1.0;0.0;
1.0;1.0;0.0;1.0;1.0;0.0;0.0;0.0;;
}
}
"}
hgini
setcolor 255,255,255
setang HGOBJ_LIGHT,-0.8,3
setscale HGOBJ_LIGHT,255,255,255
setdir HGOBJ_LIGHT,255,255,255
screen 0,640,480
bgscr 1, 512, 512
gsel 1,-1
picload dirinfo(5) + "\\tamadot.png",1
bgscr 2, 64,64
gsel 2,-1
dim xtex,64
repeat 8
y=cnt
repeat 8
x=cnt
gcopy 1,x*64,y*64,64,64
settex 64, 64, 0, -1
xtex(y*8+x) = stat
loop
hgdraw
hgsync 17 ; 時間待ち
loop
memfile boxmodel
addxfile mymdl, "MEM:x.x"
regobj myobj,mymdl
setscale myobj,10.0,10.0,10.0
setpos HGOBJ_CAMERA, 0, 0, 50 ; カメラ位置設定
ax=1.0:ay=0.5
*main
; 描画メイン
pat_cnt+
pat=(pat_cnt/10)\64
setxinfo myobj, 0, $2000, xtex(pat);テクスチャ下
setxinfo myobj, 0, $2001, xtex(pat);テクスチャ上
setxinfo myobj, 0, $2002, xtex(pat);テクスチャ奥
setxinfo myobj, 0, $2003, xtex(pat);テクスチャ手前
setxinfo myobj, 0, $2004, xtex(pat);テクスチャ左
setxinfo myobj, 0, $2005, xtex(pat);テクスチャ右
hgdraw
hgsync 12
stick k,127
if k&128 : goto *owari ; [ESC]で終了
; キー操作で回転
;
if k&1 : ax-=0.05
if k&4 : ax+=0.05
if k&2 : ay+=0.05
if k&8 : ay-=0.05
setang myobj, ax, ay, 0 ; 箱の角度設定
goto *main
*owari
end