SuperStrict
Framework Klepto.MiniB3D

Graphics3D 800,600,,0,100

Global CameraPosition:TPivot = CreatePivot()
Global Camera:TCamera = CreateCamera(CameraPosition)
Global CameraLight:TLight = CreateLight(2,CameraPosition)
CameraLight.LightRange(2)
CameraLight.LightColor(25,25,25)
CameraLight.PositionEntity(-2,2,5)

Global MouseItensity:Float = 1
Global CameraSpeed:Float = 0.15

Local p:TPivot = CreatePivot(CameraPosition)
Global Weapon:TEntity = CreateCylinder(,,p)
Global WeaponBrush:TBrush = CreateBrush()
WeaponBrush.BrushColor(127,127,127)
WeaponBrush.BrushShininess(0.25)
Weapon.RotateEntity(90,0,10)
Weapon.PositionEntity(-3,2,4)
Weapon.sx = 0.3
Weapon.sz = 0.3
Weapon.PaintEntity(WeaponBrush)
Local WeaponB:TEntity = CreateCylinder(,,Weapon)
WeaponB.PositionEntity(-0.5,2.5,-0.5)
WeaponB.sy = 1
WeaponB.sx = 0.6
WeaponB.sz = 0.6
WeaponB.PaintEntity(WeaponBrush)
WeaponB = CreateCylinder(,,Weapon)
WeaponB.PositionEntity(-0.5,0,-1.25)
WeaponB.sy = 0.5
WeaponB.sx = 1.5
WeaponB.sz = 1.5
WeaponB.PaintEntity(WeaponBrush)
WeaponB = CreateCube(Weapon)
WeaponB.PositionEntity(1,0.25,-1.25)
WeaponB.sy = 0.25
WeaponB.sx = 0.25
WeaponB.sz = 3
WeaponB.RotateEntity(10,0,0)
WeaponB.PaintEntity(WeaponBrush)

Weapon = p

Camera.CameraRange(0,50)
Camera.CameraFogRange(80,100)
Camera.CameraFogMode(3)
Camera.CameraFogColor(0,0,0)
Camera.RotateEntity(0,0,180)
CameraPosition.PositionEntity(0,0,-10)

CreateCube().ScaleEntity(2.0,2.0,2.0)
CreateCube().PositionEntity(5,0,5)

AmbientLight(10,10,10)

MoveMouse(GraphicsWidth()/2,GraphicsHeight()/2)
FlushMouseSpeed()
HideMouse()

Repeat
   Cls
      Local speed_x:Int = MouseXSpeed()
      Local speed_y:Int = MouseYSpeed()
      If KeyDown(KEY_A) CameraPosition.MoveEntity(CameraSpeed,0,0)
      If KeyDown(KEY_D) CameraPosition.MoveEntity(-CameraSpeed,0,0)
      If KeyDown(KEY_W) CameraPosition.MoveEntity(0,0,CameraSpeed)
      If KeyDown(KEY_S) CameraPosition.MoveEntity(0,0,-CameraSpeed)
      If speed_x Or speed_y
         TurnEntity(CameraPosition,speed_y*MouseItensity,speed_x*MouseItensity,0)
         CameraPosition.rx = CameraPosition.rx Mod 360.0
         CameraPosition.ry = CameraPosition.ry Mod 360.0
         CameraPosition.rz = CameraPosition.rz Mod 360.0
         MoveMouse(GraphicsWidth()/2,GraphicsHeight()/2)
         FlushMouseSpeed()
      EndIf
      If MouseDown(MOUSE_RIGHT)
         RotateEntity(Weapon,5,0,0)
         PositionEntity(Weapon,1.25,0,-1)
      Else
         RotateEntity(Weapon,0,0,0)
         PositionEntity(Weapon,0,0,0)
      EndIf
      RenderCamera(Camera)
   Flip
Until AppTerminate() Or KeyDown(KEY_ESCAPE)

Function FlushMouseSpeed:Int()
   MouseXSpeed()
   MouseYSpeed()
EndFunction