Code: Alles auswählen
IncludeFile "Screen3DRequester.pb"
InitEngine3D()
InitSprite()
InitKeyboard()
InitMouse()
Screen3DRequester()
Add3DArchive("\", #PB_3DArchive_FileSystem)
CreateCamera(0, 0, 0, 100,100)
CameraLocate(0,0,0,20)
LoadMesh(0, "cube1.mesh")
CreateMaterial(0, LoadTexture(0, "cube1.jpg"))
;CreateLight(1, RGB(255,0,0), -100.0, 0, 0)
CreateEntity(0, MeshID(0), MaterialID(0))
;ScaleEntity(0, 0.5, 0.5, 0.5)
;EntityRenderMode(0,#PB_Entity_Plot );#PB_Entity_Wireframe)
;CameraRenderMode(0, #PB_Camera_Wireframe)
CameraLookAt(0, EntityX(0), EntityY(0), EntityZ(0))
Repeat
Screen3DEvents()
ClearScreen(RGB(0, 0, 0))
If ExamineKeyboard()
If KeyboardPushed(#PB_Key_F1)
CameraLocate(0, 0, 0, 20)
CameraLookAt(0, EntityX(0), EntityY(0), EntityZ(0))
Endif
If KeyboardPushed(#PB_Key_Left)
KeyX = -1
ElseIf KeyboardPushed(#PB_Key_Right)
KeyX = 1
Else
KeyX = 0
EndIf
If KeyboardPushed(#PB_Key_Up)
KeyY = -1
ElseIf KeyboardPushed(#PB_Key_Down)
KeyY = 1
Else
KeyY = 0
EndIf
If KeyboardPushed(#PB_Key_PageUp)
RollZ = 1
EndIf
If KeyboardPushed(#PB_Key_PageDown)
RollZ = -1
EndIf
EndIf
If ExamineMouse()
RotX = 0 : RotY = 0
MouseX = -MouseDeltaX()/5
MouseY = -MouseDeltaY()/5
If MouseButton(#PB_MouseButton_Right)
RotX = MouseX
RotY = MouseY
MouseX = 0
MouseY = 0
Endif
EndIf
RotateEntity(0,RotX, RotY, RollZ,#PB_Relative)
RotateCamera(0, MouseY, MouseX, 0, #PB_Relative)
MoveCamera (0, KeyX, 0, KeyY)
RenderWorld()
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
Vielen Dank für Hilfe !!! Bin wahrscheinlich zu deppig um das richtig zu proggen....
