#include "e3dhsp3.as"
dim keybuf,256
screenw = 640 : screenh = 480
screen 0, screenw,screenh,1
title "テストです"
;E3D初期化
E3DEnableDbgFile
E3DInit 0, -1, 0, 16, 0, scid1
//モデルデータ読み込み
pathbuf = dir_cur + "\\media\\tako.sig"
E3DSigLoad pathbuf, hsid1
posx1 = 0.0 : posy1 = 0.0 : posz1 = 0.0
E3DSetPos hsid1,posx1,posy1,posz1
E3DRotateY hsid1, 90.0
//モーションデータ読み込み
pathbuf = dir_cur + "\\media\\tako5_2.sig"
E3DLoadMOAFile hsid1,pathbuf,10
//カメラの初期化
camposx = 0.0 : camposy = 800.0 : camposyz = -2000.0
E3DSetCameraPos camposx,camposy,camposz
E3DSetCameraTarget posx1,posy1 + 800.0,posz1,0.0,1.0,0.0
//プロジェクト変更
proj_near = 1000.0 : proj_far = 30000.0 : proj_fov = 60.0
E3DSetProjection proj_near,proj_far,proj_fov
//ライト作成
lightdirx1 = 0.0 : lightdiry1 = 0.0 : lightdirz1 = 1.0
lightr1 = 255 : lightg1 = 255 : lightb1 = 255
E3DCreateLight lid1
E3DSetDirectionalLight lid1, lightdirx1,lightdiry1,lightdirz1,lightr1,lightg1,lightb1
*main
//keybuf変数はメインループの外で
//dim,keybuf,256として、
//確保しておいてください。
E3DGetKeyBoardCnt keybuf
if keybuf(VK_ESCAPE) !=0 : goto *bye
gosub *ChangeMotion
E3DBeginScene scid1
E3DChkInView scid1,hsid1
//不透明部分を描画する
E3DRender scid1,hsid1,0,0,0
//半透明部分の描画をする
E3DRender scid1,hsid1,1,0,0,0,0,1
E3DEndScene
E3DPresent scid1
E3DWaitbyFPS 60, chkfps1
await 0
goto *main
*bye
E3DBye
end
*chagemotion
eventno = 0
if(keybuf( '1' ) == 1) : eventno = 1
if(keybuf( '2' ) == 1) : eventno = 2
if(keybuf( '3' ) == 1) : eventno = 4
E3DSetNewPoseByMOA hsid1, eventno
return ここまで71行目
→72目
これの72行目がおかしいという風になるのですが、
これはバグでしょうか?
72行目なんてどこにもないので困っています。