Klar kein Ding. Aber vorsicht, ist stark zusammengeschustert
Code: Alles auswählen
;
; ------------------------------------------------------------
;
; PureBasic - Entity
;
; (c) 2002 - Fantaisie Software
;
; ------------------------------------------------------------
;
IncludeFile "Screen3DRequester.pb"
Define.f KeyX, KeyY, MouseX, MouseY
If InitEngine3D()
Add3DArchive("Data\" , #PB_3DArchive_FileSystem)
Add3DArchive("Data\Stars.zip", #PB_3DArchive_Zip)
InitSprite()
InitKeyboard()
InitMouse()
If Screen3DRequester()
Parse3DScripts()
LoadMesh (0, "defiant.mesh")
;CreateMaterial(0, LoadTexture(0, "clouds.jpg"))
;CreateMaterial(1, LoadTexture(1, "Mask.jpg"))
;CreateEntity(0, MeshID(0), MaterialID(0))
CreateEntity(1, MeshID(0), #PB_Material_None, 0, 0, 0)
;CreateEntity(2, MeshID(0), MaterialID(1), 60, 0, 0)
RotateEntity(1, 0, 90, 0)
EntityRenderMode(1,#PB_Entity_Solid|#PB_Entity_CastShadow)
;AnimateEntity(0, "Walk")
SkyBox("stars.jpg")
CreateLight(0, RGB(150,150,150), 600,220,700)
;CreateLight(1, RGB(100,100,100), 600,220,700)
;HideLight(1,1)
CreateCamera(0, 0, 0, 100, 100)
CameraLocate(0,0,0,100)
Repeat
Screen3DEvents()
ClearScreen(RGB(0, 0, 0))
If ExamineKeyboard()
If KeyboardPushed(#PB_Key_Left)
KeyX = -10
ElseIf KeyboardPushed(#PB_Key_Right)
KeyX = 10
Else
KeyX = 0
EndIf
;move ship
If KeyboardPushed(#PB_Key_W)
MoveEntity(1, 0, 1, 0)
ElseIf KeyboardPushed(#PB_Key_D)
MoveEntity(1, 1, 0, 0)
ElseIf KeyboardPushed(#PB_Key_S)
MoveEntity(1, 0, -1, 0)
ElseIf KeyboardPushed(#PB_Key_A)
MoveEntity(1, -1, 0, 0)
ElseIf KeyboardPushed(#PB_Key_Q)
x = x + 1
RotateEntity(1, x, 0, 0)
ElseIf KeyboardPushed(#PB_Key_E)
x = x - 1
RotateEntity(1, x, 0, 0)
EndIf
If KeyboardPushed(#PB_Key_Up)
KeyY = -10
ElseIf KeyboardPushed(#PB_Key_Down)
KeyY = 30
Else
KeyY = 0
EndIf
If KeyboardPushed(#PB_Key_PageUp)
RollZ = 30
Else
RollZ = 0
EndIf
If KeyboardPushed(#PB_Key_Add)
Frame.f+0.005
EndIf
EndIf
If ExamineMouse()
MouseX = -MouseDeltaX()/10
MouseY = -MouseDeltaY()/10
EndIf
;RotateEntity(1, 0, 0, 0)
;RotateEntity(2, 1, 0, 0)
RotateCamera(0, MouseX, MouseY, RollZ)
MoveCamera (0, KeyX, 0, KeyY)
;LightLocate(0, KeyX - 10, 0, KeyY -10)
RenderWorld()
Screen3DStats()
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape) Or Quit = 1
EndIf
Else
MessageRequester("Error", "The 3D Engine can't be initialized",0)
EndIf
End