style="margin: 0px;">

Forum

Thanks to all programmers in the universe

spaceblimp .ase

spaceblimp mesh

testspiel

ähh

video so u dont need to download the gameyoutu.be/pp7nutx3T9w

;
; ------------------------------------------------------------
;
;  PureBasic - SkyBox
;
;  (c) 2002 - Fantaisie Software
;
; ------------------------------------------------------------
;
; Thanks to Steve 'Sinbad' Streeting for the nice SkyBox !
;

#CameraSpeed = 15

IncludeFile "Screen3DRequester.pb"

Define.f KeyX, KeyY, MouseX, MouseY

If InitEngine3D()

 Add3DArchive("Data\"     , #PB_3DArchive_FileSystem)
 Add3DArchive("Data\Skybox.zip", #PB_3DArchive_Zip)
 
 InitSprite()
 InitKeyboard()
 InitMouse()
 
 If Screen3DRequester()
  
  CreateMaterial(0, LoadTexture(0, "r2skin.jpg"))
  CreateEntity(0, LoadMesh(0, "alpa1m.mesh"), MaterialID(0))
    
  SkyBox("desert07.jpg")

  CreateCamera(0,0,0,100,100)
  CameraLocate(0,0,0,100)
   
  Repeat
   Screen3DEvents()
      
   If ExamineKeyboard()
    
    If KeyboardPushed(#PB_Key_Left)
     KeyX = -#CameraSpeed
    ElseIf KeyboardPushed(#PB_Key_Right)
     KeyX = #CameraSpeed
    Else
     KeyX = 0
    EndIf
         
    If KeyboardPushed(#PB_Key_Up)
     KeyY = -#CameraSpeed
    ElseIf KeyboardPushed(#PB_Key_Down)
     KeyY = #CameraSpeed
    Else
     KeyY = 0
    EndIf

   EndIf
   
   If ExamineMouse()
    MouseX = -(MouseDeltaX()/10)*#CameraSpeed/2
    MouseY = -(MouseDeltaY()/10)*#CameraSpeed/2
   EndIf
   
   RotateCamera(0, MouseX, MouseY, RollZ)
   MoveCamera (0, KeyX, 0, KeyY)
   
   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

udkscreenshot
BuiltWithNOF
[Home] [Programmer] [Gameplay] [Thanks] [Idea]
Counter