djoker
09-03-2008, 05:42 PM
my first demo with Irrlicht 4 delphi
http://depositfiles.com/files/4022034
http://aycu01.webshots.com/image/44280/2005819273181126469_th.jpg (http://allyoucanupload.webshots.com/v/2005819273181126469)
http://aycu40.webshots.com/image/45679/2005838503860990610_th.jpg (http://allyoucanupload.webshots.com/v/2005838503860990610)
http://aycu03.webshots.com/image/46962/2005856132951957769_th.jpg (http://allyoucanupload.webshots.com/v/2005856132951957769)
http://aycu19.webshots.com/image/46338/2005891948686982270_th.jpg (http://allyoucanupload.webshots.com/v/2005891948686982270)
http://aycu36.webshots.com/image/48115/2005845964778965984_th.jpg (http://allyoucanupload.webshots.com/v/2005845964778965984)
http://aycu24.webshots.com/image/48303/2005879401407970688_th.jpg (http://allyoucanupload.webshots.com/v/2005879401407970688)
http://aycu36.webshots.com/image/46155/2005853760843373252_th.jpg (http://allyoucanupload.webshots.com/v/2005853760843373252)
http://aycu03.webshots.com/image/48722/2005877368041452041_th.jpg (http://allyoucanupload.webshots.com/v/2005877368041452041)
http://aycu27.webshots.com/image/44106/2005891333513200629_th.jpg (http://allyoucanupload.webshots.com/v/2005891333513200629)
program fps_demo;
{$APPTYPE CONSOLE}
uses
SysUtils,dialogs,mmsystem,
IRRLICHT in 'IRRLICHT.pas';
Type
TPlayerState=(SShot,SIdle,SRun,SDrop,SPut);
TgameState=(Sload,SLoop);
function GetNormal(v1,v2,v3:IVEC3):IVEC3;
var
v4,v5, nor: IVEC3;
lenght:single;
begin
v4.x:=V1.x-V2.x;
v4.y:=V1.y-V2.y;
v4.z:=V1.z-V2.z;
v5.x:=V2.x-V3.x;
v5.y:=V2.y-V3.y;
v5.z:=V2.z-V3.z;
nor.x:=v4.y*v5.z-v4.z*v5.y;
nor.y:=v4.z*v5.x-v4.x*v5.z;
nor.z:=v4.x*v5.y-v4.y*v5.x;
lenght:=sqrt(nor.x*nor.x+nor.y*nor.y+nor.z*nor.z);
nor.x:=nor.x/lenght;
nor.y:=nor.y/lenght;
nor.z:=nor.z/lenght;
Result:=nor;
end;
var
but0,but:IGUI;
font:IFont;
moozle_Tex,decal_Tex:ITexture;
room,camera:ISceneNode;
mesh:IAnimatedMesh;
selector:ITriangleSelector;
Intersection,N2,Normal:IVEC3;
RayOut:IRAY;
Triangle:ITriangle;
finished:boolean=false;
EEvents:TEngineEvents;
Save8087CW: Word;
ps,flare,WEp_joint,sp,sp2,Node_weapon1,Node_weapon 2:ISceneNode;
Mesh_wepon:IAnimatedMesh;
shottime,lasttick:integer;
PlayerState:TPlayerState=SIdle;
gameState:TgameState=Sload;
step:integer=0;
wep_sniper:boolean=false;
procedure ploop;
begin
if (EEvents.loopMouseInput.Event=EMIE_LMOUSE_PRESSED_ DOWN) then
if PlayerState<>SShot then PlayerState:=sshot;
if (EEvents.loopMouseInput.Event=EMIE_RMOUSE_PRESSED_ DOWN) then
if PlayerState<SShot> shottime+200) then
begin
shottime := timegettime;
if Scene_Pick(selector,camera,1000.0,Intersection,Nor mal,RayOut,Triangle) then
begin
normal:=GetNormal(Triangle.T1,Triangle.T2,Triangle .T3);
n2.x:=normal.x;
n2.y:=normal.y;
n2.z:=normal.z;
Intersection.x:=Intersection.x+n2.x*0.01;
Intersection.y:=Intersection.y+n2.y*0.01;
Intersection.z:=Intersection.z+n2.z*0.01;
Scene_AddDecal(Intersection,n2,2,90000,decal_Tex,E MT_TRANSPARENT_ALPHA_CHANNEL);
end;
end;
if (timegettime > lasttick + 100) then
begin
lasttick := timegettime;
PlayerState:=SIdle;
end;
end else
begin
if (timegettime > shottime+80) then
begin
shottime := timegettime;
if Scene_Pick(selector,camera,1000.0,Intersection,Nor mal,RayOut,Triangle) then
begin
normal:=GetNormal(Triangle.T1,Triangle.T2,Triangle .T3);
n2.x:=normal.x;
n2.y:=normal.y;
n2.z:=normal.z;
Intersection.x:=Intersection.x+n2.x*0.01;
Intersection.y:=Intersection.y+n2.y*0.01;
Intersection.z:=Intersection.z+n2.z*0.01;
Scene_AddDecal(Intersection,n2,2,60000,decal_Tex,E MT_TRANSPARENT_ALPHA_CHANNEL);
end;
end;
if (timegettime > lasttick + 1000) then
begin
lasttick := timegettime;
PlayerState:=SIdle;
end;
end;
end;
SIdle:
begin
Node_SetRotation(Node_weapon1,sin(timegettime/1000)*0.4,sin(timegettime/1000)*0.8,0);
Node_SetRotation(Node_weapon2,sin(timegettime/1000)*0.4,sin(timegettime/1000)*0.8,0);
Scene_SetBillboardSize(sp,0,0);
Scene_SetBillboardSize(sp2,0,0);
end;
SRun:
begin
end;
SDrop:
begin
Node_SetRotation(Node_weapon1,step,-step,0);//shoot machine gun
Node_SetRotation(Node_weapon2,step,-step,0);//shoot machine gun
if (timegettime > lasttick + 20) then
begin
lasttick := timegettime;
inc(step);
end;
if step>=40 then
begin
wep_sniper:=not wep_sniper;
if wep_sniper then
begin
Node_SetVisible(Node_weapon1,false);
Node_SetVisible(Node_weapon2,true);
end else
begin
Node_SetVisible(Node_weapon1,true);
Node_SetVisible(Node_weapon2,false);
end;
PlayerState:=SPut;
end;
end;
SPut:
begin
Node_SetRotation(Node_weapon1,step,-step,0);//shoot machine gun
Node_SetRotation(Node_weapon2,step,-step,0);//shoot machine gun
if (timegettime > lasttick + 20) then
begin
lasttick := timegettime;
dec(step);
end;
if step<0 then
begin
if wep_sniper then
begin
Node_SetVisible(Node_weapon2,true);
Node_SetVisible(Node_weapon1,false);
end else
begin
Node_SetVisible(Node_weapon1,true);
Node_SetVisible(Node_weapon2,false);
end;
//wep_sniper:=not wep_sniper;
PlayerState:=SIdle;
end;
end;
end;
Scene_DrawAll;
Render_Draw2DLine(800 div 2-20,600 div 2,800 div 2+20,600 div 2,color(255,0,255,0));
Render_Draw2DLine(800 div 2,600 div 2-20,800 div 2,600 div 2+20,color(255,0,255,0));
end;
procedure state(int:integer;msg:string);
begin
Render_BeginScene(true,true,0,0,0);
Render_Draw2DRectangle(10,600-40,800-10,600-5,color(244,255,0,0));
Render_Draw2DRectangle(10,600-40,10+int ,600-5,color(244,0,255,0));
Font_Write(font,pchar(msg),15,640-70,color(255,255,255,10));
Render_EndScene;
sleep(100);
end;
procedure Pload;
begin
camera:=Scene_AddFPSCamera;
Node_SetPosition(camera,500,100,300);
state(50,'Load SkyBox');
camera:=Scene_AddFPSCamera;
Node_SetPosition(camera,80,80,-600);
Scene_AddSkyBox(
'media/Nebular_up.jpg',
'media/Nebular_dn.jpg',
'media/Nebular_lf.jpg',
'media/Nebular_rt.jpg',
'media/Nebular_ft.jpg',
'media/Nebular_bk.jpg');
state(100,'Load Map');
mesh:=Scene_AddMesh('media/scenes/mapa.dmf');
//mesh:=Scene_AddMesh('media/scenes/mapa.3ds');
//Mesh_MakePlanarTextureMapping(mesh,0.004);
state(200,'Build Scene Octree');
room:=Scene_AddOctTreeSceneNode(mesh);
//room:=Scene_AddNodFromMesh(mesh,ZEROVECT,ZEROVECT, ADDVECT);
Node_SetMaterialFlag(room,EMF_LIGHTING,false);
state(300,'Create Octree colider');
selector:=Scene_createOctTreeTriangleSelector( mesh,room);
state(400,'load flares');
flare:=Scene_AddLensFlare('media/flares.jpg',nil,vect(-10,1200,10),true,Scene_GetRooSceneNode);
Node_SetTriangleSelector(flare,selector);
state(450,'colide and response');
Node_SetTriangleSelector(room,selector);
Scene_CreateCollisionResponseAnimator(selector,cam era,
VECT(30,50,30),VECT(0,-8,0),VECT(0,50,0));
state(480,'load declas');
decal_Tex:=Texture_Load('media/BULLET.BMP');
Texture_SetColorKey(decal_Tex,0,0);
state(500,'load billboard');
sp:=Scene_AddBillboard(8,8,zerovect,Cwhite);
moozle_Tex:=Texture_Load('media/particlewhite.bmp');
//decal_Tex:=Texture_Load('media/gun2/Flash1_1.png');
Texture_SetColorKey(moozle_Tex,0,0);
Node_SetMaterialTextureEx(sp,0,moozle_Tex);
Node_SetMaterialFlag(sp,EMF_LIGHTING,false);
Node_SetMaterialType(sp,EMT_TRANSPARENT_ADD_COLOR) ;
sp2:=Node_Clone(sp);
state(500,'load particles');
//ps:=Scene_AddParticleSystem(vect(-70,60,40),ZEROVECT,vect(2,2,2),false,model);
//ps:=Scene_AddParticleSystem(vect(1784,20,184),ZERO VECT,vect(1,1,1),false);
ps:=Scene_AddParticleSystem(vect(1684,35,1900),ZER OVECT,vect(1,1,1),false);
Par_SetParticleSize(ps,20,20);
Node_SetMaterialTexture(ps,0,'media/fire.bmp');
Node_SetMaterialFlag(ps,EMF_LIGHTING,false);
Node_SetMaterialFlag(ps,EMF_ZWRITE_ENABLE,false);
Node_SetMaterialType(ps,EMT_TRANSPARENT_VERTEX_ALP HA);
Par_AddBoxEmitter(ps,-10,0,-10,10,1,10,vect(0,0.06,0),color(0,255,255,255),col or(0,255,255,255),80,100,800,2000);
Par_AddFadeOutParticleAffector(ps);
//ps:=Scene_AddParticleSystem(vect(1684,45,1900),ZER OVECT,vect(1,1,1),false);
ps:=Scene_AddParticleSystem(vect(1784,20,184),ZERO VECT,vect(1,1,1),false);
Par_SetParticleSize(ps,40,40);
Node_SetMaterialTexture(ps,0,'media/smoke.bmp');
Node_SetMaterialFlag(ps,EMF_LIGHTING,false);
Node_SetMaterialFlag(ps,EMF_ZWRITE_ENABLE,false);
Node_SetMaterialType(ps,EMT_TRANSPARENT_VERTEX_ALP HA);
Par_AddBoxEmitter(ps,-25,4,-25,25,18,25,vect(0,0.04,0),color(0,55,55,55),color (0,0,0,0),10,20,18000,20000,0);
//Par_AddGravityAffector(ps,vect(0,0.001,0));
Par_AddFadeOutParticleAffector(ps);
//Par_AddCylinderEmitter(ps,ZEROVECT,20,vect(0,0,0), 2,vect(0,0.03,0),color(0,255,255,255),color(0,255, 255,255));
//Par_AddPointEmitter(ps,vect(0,0.03,0),color(0,255, 255,255),color(0,255,255,255));
//Par_AddRingEmitter(ps,vect(0,0,0),2,2,vect(0,0.03, 0),color(0,255,255,255),color(0,255,255,255));
//Par_AddSphereEmitter(ps,vect(0,0,0),6,vect(0,0.03, 0),color(0,255,255,255),color(0,255,255,255));
//Par_AddAttractionParticleAffector(ps,vect(100,10,0 ),100,true,false,true,false);
//Par_AddGravityAffector(ps,vect(0,0.03,0));
//Par_AddRotationAffector(ps,vect(5.0,5.0,5.0),vect( 0,0,0));
state(600,'load machine weapon');
mesh:=Scene_AddMesh('media/gun2/machine.b3d');
Node_weapon1:=Scene_AddNodFromMesh(mesh,vect(0,-5,0),vect(0,0,0),vect(0.2,0.2,0.2),camera);
Node_SetMaterialFlag(Node_weapon1,EMF_LIGHTING,fal se);
state(700,'load sniper weapon');
mesh:=Scene_AddMesh('media/gun2/sniper.b3d');
Node_weapon2:=Scene_AddNodFromMesh(mesh,vect(0,-5,0),vect(0,0,0),vect(0.2,0.2,0.2),camera);
Node_SetMaterialFlag(Node_weapon2,EMF_LIGHTING,fal se);
WEp_joint:=Bone_GetJointNode(Node_weapon1,'rp_sigh t');
Node_AddChilld(WEp_joint,sp);
WEp_joint:=Bone_GetJointNode(Node_weapon2,'rp_sigh t');
Node_AddChilld(WEp_joint,sp2);
state(800-10,'AllOK');
Node_SetVisible(Node_weapon1,true);
Node_SetVisible(Node_weapon2,false);
end;
begin
Save8087CW := Get8087CW;
Set8087CW($133F);
Device_Init(EDT_opengl,800,600,32,false,false,fals e);
Render_SetResizeAble(true);
Device_SetWindowCaption('IRRLICHT 4 Delphi');
Render_SetDebug(true,true);
Device_SetCursorVisible(false);
font:=Font_Load('media/fonthaettenschweiler.bmp');
lasttick:=timegettime;
shottime:=timegettime;
while (Device_Run) and (not finished) do
begin
Device_GetEvents(EEvents);
Render_BeginScene(true,true,0,0,45);
case gameState of
Sload:
begin
Pload;
gameState:=sloop;
end;
SLoop:
begin
ploop;
end;
end;
Render_EndScene;
if EEvents.loopKeyInput.Key=27 then finished:=true;
end;
Device_Stop;
Set8087CW(Save8087CW);
end.
http://depositfiles.com/files/4022034
http://aycu01.webshots.com/image/44280/2005819273181126469_th.jpg (http://allyoucanupload.webshots.com/v/2005819273181126469)
http://aycu40.webshots.com/image/45679/2005838503860990610_th.jpg (http://allyoucanupload.webshots.com/v/2005838503860990610)
http://aycu03.webshots.com/image/46962/2005856132951957769_th.jpg (http://allyoucanupload.webshots.com/v/2005856132951957769)
http://aycu19.webshots.com/image/46338/2005891948686982270_th.jpg (http://allyoucanupload.webshots.com/v/2005891948686982270)
http://aycu36.webshots.com/image/48115/2005845964778965984_th.jpg (http://allyoucanupload.webshots.com/v/2005845964778965984)
http://aycu24.webshots.com/image/48303/2005879401407970688_th.jpg (http://allyoucanupload.webshots.com/v/2005879401407970688)
http://aycu36.webshots.com/image/46155/2005853760843373252_th.jpg (http://allyoucanupload.webshots.com/v/2005853760843373252)
http://aycu03.webshots.com/image/48722/2005877368041452041_th.jpg (http://allyoucanupload.webshots.com/v/2005877368041452041)
http://aycu27.webshots.com/image/44106/2005891333513200629_th.jpg (http://allyoucanupload.webshots.com/v/2005891333513200629)
program fps_demo;
{$APPTYPE CONSOLE}
uses
SysUtils,dialogs,mmsystem,
IRRLICHT in 'IRRLICHT.pas';
Type
TPlayerState=(SShot,SIdle,SRun,SDrop,SPut);
TgameState=(Sload,SLoop);
function GetNormal(v1,v2,v3:IVEC3):IVEC3;
var
v4,v5, nor: IVEC3;
lenght:single;
begin
v4.x:=V1.x-V2.x;
v4.y:=V1.y-V2.y;
v4.z:=V1.z-V2.z;
v5.x:=V2.x-V3.x;
v5.y:=V2.y-V3.y;
v5.z:=V2.z-V3.z;
nor.x:=v4.y*v5.z-v4.z*v5.y;
nor.y:=v4.z*v5.x-v4.x*v5.z;
nor.z:=v4.x*v5.y-v4.y*v5.x;
lenght:=sqrt(nor.x*nor.x+nor.y*nor.y+nor.z*nor.z);
nor.x:=nor.x/lenght;
nor.y:=nor.y/lenght;
nor.z:=nor.z/lenght;
Result:=nor;
end;
var
but0,but:IGUI;
font:IFont;
moozle_Tex,decal_Tex:ITexture;
room,camera:ISceneNode;
mesh:IAnimatedMesh;
selector:ITriangleSelector;
Intersection,N2,Normal:IVEC3;
RayOut:IRAY;
Triangle:ITriangle;
finished:boolean=false;
EEvents:TEngineEvents;
Save8087CW: Word;
ps,flare,WEp_joint,sp,sp2,Node_weapon1,Node_weapon 2:ISceneNode;
Mesh_wepon:IAnimatedMesh;
shottime,lasttick:integer;
PlayerState:TPlayerState=SIdle;
gameState:TgameState=Sload;
step:integer=0;
wep_sniper:boolean=false;
procedure ploop;
begin
if (EEvents.loopMouseInput.Event=EMIE_LMOUSE_PRESSED_ DOWN) then
if PlayerState<>SShot then PlayerState:=sshot;
if (EEvents.loopMouseInput.Event=EMIE_RMOUSE_PRESSED_ DOWN) then
if PlayerState<SShot> shottime+200) then
begin
shottime := timegettime;
if Scene_Pick(selector,camera,1000.0,Intersection,Nor mal,RayOut,Triangle) then
begin
normal:=GetNormal(Triangle.T1,Triangle.T2,Triangle .T3);
n2.x:=normal.x;
n2.y:=normal.y;
n2.z:=normal.z;
Intersection.x:=Intersection.x+n2.x*0.01;
Intersection.y:=Intersection.y+n2.y*0.01;
Intersection.z:=Intersection.z+n2.z*0.01;
Scene_AddDecal(Intersection,n2,2,90000,decal_Tex,E MT_TRANSPARENT_ALPHA_CHANNEL);
end;
end;
if (timegettime > lasttick + 100) then
begin
lasttick := timegettime;
PlayerState:=SIdle;
end;
end else
begin
if (timegettime > shottime+80) then
begin
shottime := timegettime;
if Scene_Pick(selector,camera,1000.0,Intersection,Nor mal,RayOut,Triangle) then
begin
normal:=GetNormal(Triangle.T1,Triangle.T2,Triangle .T3);
n2.x:=normal.x;
n2.y:=normal.y;
n2.z:=normal.z;
Intersection.x:=Intersection.x+n2.x*0.01;
Intersection.y:=Intersection.y+n2.y*0.01;
Intersection.z:=Intersection.z+n2.z*0.01;
Scene_AddDecal(Intersection,n2,2,60000,decal_Tex,E MT_TRANSPARENT_ALPHA_CHANNEL);
end;
end;
if (timegettime > lasttick + 1000) then
begin
lasttick := timegettime;
PlayerState:=SIdle;
end;
end;
end;
SIdle:
begin
Node_SetRotation(Node_weapon1,sin(timegettime/1000)*0.4,sin(timegettime/1000)*0.8,0);
Node_SetRotation(Node_weapon2,sin(timegettime/1000)*0.4,sin(timegettime/1000)*0.8,0);
Scene_SetBillboardSize(sp,0,0);
Scene_SetBillboardSize(sp2,0,0);
end;
SRun:
begin
end;
SDrop:
begin
Node_SetRotation(Node_weapon1,step,-step,0);//shoot machine gun
Node_SetRotation(Node_weapon2,step,-step,0);//shoot machine gun
if (timegettime > lasttick + 20) then
begin
lasttick := timegettime;
inc(step);
end;
if step>=40 then
begin
wep_sniper:=not wep_sniper;
if wep_sniper then
begin
Node_SetVisible(Node_weapon1,false);
Node_SetVisible(Node_weapon2,true);
end else
begin
Node_SetVisible(Node_weapon1,true);
Node_SetVisible(Node_weapon2,false);
end;
PlayerState:=SPut;
end;
end;
SPut:
begin
Node_SetRotation(Node_weapon1,step,-step,0);//shoot machine gun
Node_SetRotation(Node_weapon2,step,-step,0);//shoot machine gun
if (timegettime > lasttick + 20) then
begin
lasttick := timegettime;
dec(step);
end;
if step<0 then
begin
if wep_sniper then
begin
Node_SetVisible(Node_weapon2,true);
Node_SetVisible(Node_weapon1,false);
end else
begin
Node_SetVisible(Node_weapon1,true);
Node_SetVisible(Node_weapon2,false);
end;
//wep_sniper:=not wep_sniper;
PlayerState:=SIdle;
end;
end;
end;
Scene_DrawAll;
Render_Draw2DLine(800 div 2-20,600 div 2,800 div 2+20,600 div 2,color(255,0,255,0));
Render_Draw2DLine(800 div 2,600 div 2-20,800 div 2,600 div 2+20,color(255,0,255,0));
end;
procedure state(int:integer;msg:string);
begin
Render_BeginScene(true,true,0,0,0);
Render_Draw2DRectangle(10,600-40,800-10,600-5,color(244,255,0,0));
Render_Draw2DRectangle(10,600-40,10+int ,600-5,color(244,0,255,0));
Font_Write(font,pchar(msg),15,640-70,color(255,255,255,10));
Render_EndScene;
sleep(100);
end;
procedure Pload;
begin
camera:=Scene_AddFPSCamera;
Node_SetPosition(camera,500,100,300);
state(50,'Load SkyBox');
camera:=Scene_AddFPSCamera;
Node_SetPosition(camera,80,80,-600);
Scene_AddSkyBox(
'media/Nebular_up.jpg',
'media/Nebular_dn.jpg',
'media/Nebular_lf.jpg',
'media/Nebular_rt.jpg',
'media/Nebular_ft.jpg',
'media/Nebular_bk.jpg');
state(100,'Load Map');
mesh:=Scene_AddMesh('media/scenes/mapa.dmf');
//mesh:=Scene_AddMesh('media/scenes/mapa.3ds');
//Mesh_MakePlanarTextureMapping(mesh,0.004);
state(200,'Build Scene Octree');
room:=Scene_AddOctTreeSceneNode(mesh);
//room:=Scene_AddNodFromMesh(mesh,ZEROVECT,ZEROVECT, ADDVECT);
Node_SetMaterialFlag(room,EMF_LIGHTING,false);
state(300,'Create Octree colider');
selector:=Scene_createOctTreeTriangleSelector( mesh,room);
state(400,'load flares');
flare:=Scene_AddLensFlare('media/flares.jpg',nil,vect(-10,1200,10),true,Scene_GetRooSceneNode);
Node_SetTriangleSelector(flare,selector);
state(450,'colide and response');
Node_SetTriangleSelector(room,selector);
Scene_CreateCollisionResponseAnimator(selector,cam era,
VECT(30,50,30),VECT(0,-8,0),VECT(0,50,0));
state(480,'load declas');
decal_Tex:=Texture_Load('media/BULLET.BMP');
Texture_SetColorKey(decal_Tex,0,0);
state(500,'load billboard');
sp:=Scene_AddBillboard(8,8,zerovect,Cwhite);
moozle_Tex:=Texture_Load('media/particlewhite.bmp');
//decal_Tex:=Texture_Load('media/gun2/Flash1_1.png');
Texture_SetColorKey(moozle_Tex,0,0);
Node_SetMaterialTextureEx(sp,0,moozle_Tex);
Node_SetMaterialFlag(sp,EMF_LIGHTING,false);
Node_SetMaterialType(sp,EMT_TRANSPARENT_ADD_COLOR) ;
sp2:=Node_Clone(sp);
state(500,'load particles');
//ps:=Scene_AddParticleSystem(vect(-70,60,40),ZEROVECT,vect(2,2,2),false,model);
//ps:=Scene_AddParticleSystem(vect(1784,20,184),ZERO VECT,vect(1,1,1),false);
ps:=Scene_AddParticleSystem(vect(1684,35,1900),ZER OVECT,vect(1,1,1),false);
Par_SetParticleSize(ps,20,20);
Node_SetMaterialTexture(ps,0,'media/fire.bmp');
Node_SetMaterialFlag(ps,EMF_LIGHTING,false);
Node_SetMaterialFlag(ps,EMF_ZWRITE_ENABLE,false);
Node_SetMaterialType(ps,EMT_TRANSPARENT_VERTEX_ALP HA);
Par_AddBoxEmitter(ps,-10,0,-10,10,1,10,vect(0,0.06,0),color(0,255,255,255),col or(0,255,255,255),80,100,800,2000);
Par_AddFadeOutParticleAffector(ps);
//ps:=Scene_AddParticleSystem(vect(1684,45,1900),ZER OVECT,vect(1,1,1),false);
ps:=Scene_AddParticleSystem(vect(1784,20,184),ZERO VECT,vect(1,1,1),false);
Par_SetParticleSize(ps,40,40);
Node_SetMaterialTexture(ps,0,'media/smoke.bmp');
Node_SetMaterialFlag(ps,EMF_LIGHTING,false);
Node_SetMaterialFlag(ps,EMF_ZWRITE_ENABLE,false);
Node_SetMaterialType(ps,EMT_TRANSPARENT_VERTEX_ALP HA);
Par_AddBoxEmitter(ps,-25,4,-25,25,18,25,vect(0,0.04,0),color(0,55,55,55),color (0,0,0,0),10,20,18000,20000,0);
//Par_AddGravityAffector(ps,vect(0,0.001,0));
Par_AddFadeOutParticleAffector(ps);
//Par_AddCylinderEmitter(ps,ZEROVECT,20,vect(0,0,0), 2,vect(0,0.03,0),color(0,255,255,255),color(0,255, 255,255));
//Par_AddPointEmitter(ps,vect(0,0.03,0),color(0,255, 255,255),color(0,255,255,255));
//Par_AddRingEmitter(ps,vect(0,0,0),2,2,vect(0,0.03, 0),color(0,255,255,255),color(0,255,255,255));
//Par_AddSphereEmitter(ps,vect(0,0,0),6,vect(0,0.03, 0),color(0,255,255,255),color(0,255,255,255));
//Par_AddAttractionParticleAffector(ps,vect(100,10,0 ),100,true,false,true,false);
//Par_AddGravityAffector(ps,vect(0,0.03,0));
//Par_AddRotationAffector(ps,vect(5.0,5.0,5.0),vect( 0,0,0));
state(600,'load machine weapon');
mesh:=Scene_AddMesh('media/gun2/machine.b3d');
Node_weapon1:=Scene_AddNodFromMesh(mesh,vect(0,-5,0),vect(0,0,0),vect(0.2,0.2,0.2),camera);
Node_SetMaterialFlag(Node_weapon1,EMF_LIGHTING,fal se);
state(700,'load sniper weapon');
mesh:=Scene_AddMesh('media/gun2/sniper.b3d');
Node_weapon2:=Scene_AddNodFromMesh(mesh,vect(0,-5,0),vect(0,0,0),vect(0.2,0.2,0.2),camera);
Node_SetMaterialFlag(Node_weapon2,EMF_LIGHTING,fal se);
WEp_joint:=Bone_GetJointNode(Node_weapon1,'rp_sigh t');
Node_AddChilld(WEp_joint,sp);
WEp_joint:=Bone_GetJointNode(Node_weapon2,'rp_sigh t');
Node_AddChilld(WEp_joint,sp2);
state(800-10,'AllOK');
Node_SetVisible(Node_weapon1,true);
Node_SetVisible(Node_weapon2,false);
end;
begin
Save8087CW := Get8087CW;
Set8087CW($133F);
Device_Init(EDT_opengl,800,600,32,false,false,fals e);
Render_SetResizeAble(true);
Device_SetWindowCaption('IRRLICHT 4 Delphi');
Render_SetDebug(true,true);
Device_SetCursorVisible(false);
font:=Font_Load('media/fonthaettenschweiler.bmp');
lasttick:=timegettime;
shottime:=timegettime;
while (Device_Run) and (not finished) do
begin
Device_GetEvents(EEvents);
Render_BeginScene(true,true,0,0,45);
case gameState of
Sload:
begin
Pload;
gameState:=sloop;
end;
SLoop:
begin
ploop;
end;
end;
Render_EndScene;
if EEvents.loopKeyInput.Key=27 then finished:=true;
end;
Device_Stop;
Set8087CW(Save8087CW);
end.