Тема: Monkey 2
Показать сообщение отдельно
Старый 13.11.2019, 15:16   #5
ant0N
Бывалый
 
Аватар для ant0N
 
Регистрация: 10.06.2011
Адрес: В горах
Сообщений: 781
Написано 293 полезных сообщений
(для 762 пользователей)
Ответ: Monkey 2

Просрать такое большое и верное коммьюнити надо еще уметь.

Есть такой движок - Leadwerks, он вырос из блица и когда-то был братом близнецом xorse3d. Возможно, это то, каким мог бы быть Blitz3D 2.0

window = Window:Create()
context = Context:Create(window)

--Create a world
world = World:Create()

--Create a camera
local camera = Camera:Create()
camera:SetRotation(35,0,0)
camera:Move(0,0,-8)

--Create a light
local light = DirectionalLight:Create()
light:SetRotation(35,35,0)

--Enable navmesh debugging
camera:SetDebugNavigationMode(true)

--Create the ground
local ground = Model:Box(10,1,10)
ground:SetPosition(0,-0.5,0)
ground:SetColor(0.0,0.25,0.0)

--Create a shape
local shape = Shape:Box(0,0,0, 0,0,0, 10,1,10)
ground:SetShape(shape)
shape:Release()

--Create a model
--This is an obstacle the player will walk around
entity = Model:Box(1,1,3)
entity:SetColor(0.0,0.0,1.0)
entity:SetPosition(0,0.5,0)

--Create a shape
local shape = Shape:Box(0,0,0,0,0,0,1,1,3)
entity:SetShape(shape)
shape:Release()

--Enable navigation obstacles
ground:SetNavigationMode(true)
entity:SetNavigationMode(true)

--Build the navigation mesh
world:BuildNavMesh()

--Create a character
player = Pivot:Create()
local visiblecapsule = Model:Cylinder(16,player)
visiblecapsule:SetScale(1,2,1)
visiblecapsule:SetPosition(0,1,0)
player:SetPosition(-4,0,0)
player:SetMass(1)
player:SetPhysicsMode(Entity.CharacterPhysics)

while window:KeyHit(Key.Escape)==false do
        if window:Closed() then break end

       if (player) then player:GoToPoint(4,0,0,1.4,1) end

      Time:Update()
        world:Update()
        world:Render()

  context:SetBlendMode(Blend.Alpha)
        context:DrawText("NavMode: "..tostring(entity:GetNavigationMode()),2,2)

 context:Sync()
end
__________________
Абсолютли!
(Offline)
 
Ответить с цитированием
Эти 3 пользователя(ей) сказали Спасибо ant0N за это полезное сообщение:
Arton (13.11.2019), Randomize (13.11.2019), St_AnGer (13.11.2019)