UsePNGImageEncoder()UseJPEGUsePNGImageDecoder()ImageDecoder()UseJPEGImageEncoder()#CameraSpeed = 2 InitEngine3D() InitSprite() InitKeyboard() InitMouse() OpenScreen(1366,768,32,"") Add3DArchive("C:/Users/pfabe/Documents/Textures", #PB_3DArchive_FileSystem) Add3DArchive("C:/Users/pfabe/Documents/nvidia", #PB_3DArchive_FileSystem) Add3DArchive("C:/Users/pfabe/Documents/New folder", #PB_3DArchive_FileSystem) light = CreateLight(#PB_Any ,RGB(190, 190, 190), 4000, 1200, 1000,#PB_Light_Directional) SetLightColor(light, #PB_Light_SpecularColor, RGB(255*0.4, 255*0.4,255*0.4)) LightDirection(light ,0.55, -0.3, -0.75) AmbientColor(RGB(255*0.2, 255*0.2,255*0.2)) CreateCamera(0, 0, 0, 100, 100) MoveCamera(0, 800, 400, 80,#PB_Absolute) SetupTerrains(LightID(Light), 3000, #PB_Terrain_NormalMapping) Debug CreateTerrain(0,513, 12000, 600, 3 , "TerrainGroup", "dat") Debug AddTerrainTexture(0,0,100,"paul1.jpg", "paul2.jpg" ) Debug AddTerrainTexture(0,1,30,"paul3.jpg" , "paul4.jpg") Debug AddTerrainTexture(0,2,200,"paul5.jpg" , "paul6.jpg") DefineTerrainTile(0,0,0, "amaze12.png", #False, #True) BuildTerrain(0) SkyBox("desert07.png") Repeat If ExamineKeyboard() If KeyboardPushed(#PB_Key_Left) KeyX = -5 ElseIf KeyboardPushed(#PB_Key_Right) KeyX = 5 Else KeyX = 0 EndIf If KeyboardPushed(#PB_Key_Up) KeyY = -5 ElseIf KeyboardPushed(#PB_Key_Down) KeyY = 5 Else KeyY = 0 EndIf EndIf If ExamineMouse() MouseX = -MouseDeltaX() * #CameraSpeed * 0.05 MouseY = -MouseDeltaY() * #CameraSpeed * 0.05 EndIf MoveCamera(0, CameraX(0), TerrainHeight(0, CameraX(0), CameraZ(0)) + 20, CameraZ(0), #PB_Absolute) MoveCamera (0, KeyX, 0, KeyY) RotateCamera(0, MouseY, MouseX, 0, #PB_Relative) RenderWorld() FlipBuffers() Until KeyboardPushed(#PB_Key_Escape) End
ou were very nearly correct but it turned out to be the other way around . I had to download DirectX 9.0c for it to run so in effect I had to downgrade my system.