Evo, izaci cu ti u susret iako to niko nece odobriti. Ovo je vrlo jednostavan program. Dozvoljava ti da ucitas Quake 3 mapu i mozes slobodno da se kreces kroz nju. Nema komplikovanih stvari kao sto je detekcija sudara pa mozes da prodjes kroz zid, ali nema veze.
Code:
program IrrTest;
{$I irrlicht.inc}
uses
IrrTypes, Irrlicht, IrrDevice, IrrVideoDriver, IrrVector3D, IrrSceneManager,
IrrSceneNode, SysUtils, IrrAnimatedMesh;
var
Device: IIrrDevice;
Driver: IIrrVideoDriver;
SMgr: IIrrSceneManager;
Mesh: IIrrAnimatedMesh = nil;
Node: IIrrSceneNode = nil;
driverType: E_DRIVER_TYPE;
i: Char;
lastFPS: Integer = -1;
fps: Integer;
str: WideString;
begin
WriteLn('Please select the driver you want for this example:');
WriteLn(' (a) Direct3D 9.0c'#10' (b) Direct3D 8.1'#10' (c) OpenGL 1.5');
WriteLn(' (d) Software Renderer'#10' (e) Burning''s Software Renderer');
WriteLn(' (f) NullDevice'#10' (otherKey) exit'#10);
ReadLn(i);
case i of
'a': driverType := EDT_DIRECT3D9;
'b': driverType := EDT_DIRECT3D8;
'c': driverType := EDT_OPENGL;
'd': driverType := EDT_SOFTWARE;
'e': driverType := EDT_BURNINGSVIDEO;
'f': driverType := EDT_NULL;
else
Halt(1);
end;
Device := createDevice(driverType, 640, 480);
if Device = nil then
Halt(1);
Driver := Device.getVideoDriver;
SMgr := Device.getSceneManager;
Device.getFileSystem.addZipFileArchive('../../media/map-20kdm2.pk3');
Mesh := SMgr.getMesh('20kdm2.bsp');
if Mesh <> nil then
Node := SMgr.addOctTreeSceneNode(Mesh.getMesh(0), nil, -1, 128);
if Node <> nil then
Node.setPosition(TIrrVector3DF.Create(-1300,-144,-1249));
SMgr.addCameraSceneNodeFPS;
Device.getCursorControl.setVisible(False);
while Device.run do
if Device.isWindowActive then
begin
Driver.beginScene(True, True, 0, 200, 200, 200);
SMgr.drawAll;
Driver.endScene;
fps := Driver.getFPS;
if lastFPS <> fps then
begin
str := 'Irrlicht Engine - Quake 3 Map example [' +
Driver.getName +
'] FPS:' +
IntToStr(fps);
Device.setWindowCaption(str);
lastFPS := fps;
end;
end;
Device.Drop;
end.
Evo i screenshot da vidis kako to izgleda.
Nema potrebe da se zahvaljujes... nadam se da me niko nece kritikovati sto sam ti dao gotov kod umesto da te teram da citas knjigu.