diff --git a/src/game/g_gfx.pas b/src/game/g_gfx.pas
index 01ada5245edcbb7606cfd4ffdd3f12af364719b6..e4c46f199d17a9bf74a2180be95d1ff5e4fc0c4c 100644 (file)
--- a/src/game/g_gfx.pas
+++ b/src/game/g_gfx.pas
const
BLOOD_NORMAL = 0;
BLOOD_SPARKS = 1;
const
BLOOD_NORMAL = 0;
BLOOD_SPARKS = 1;
+ BLOOD_CSPARKS = 2;
+ BLOOD_COMBINE = 3;
ONCEANIM_NONE = 0;
ONCEANIM_SMOKE = 1;
ONCEANIM_NONE = 0;
ONCEANIM_SMOKE = 1;
implementation
uses
implementation
uses
-{$IFDEF USE_NANOGL}
- nanoGL,
-{$ELSE}
- GL, GLExt,
-{$ENDIF}
+ {$INCLUDE ../nogl/noGLuses.inc}
g_map, g_panel, g_basic, Math, e_graphics,
g_options, g_console, SysUtils, g_triggers, MAPDEF,
g_game, g_language, g_net, utils, xprofiler;
g_map, g_panel, g_basic, Math, e_graphics,
g_options, g_console, SysUtils, g_triggers, MAPDEF,
g_game, g_language, g_net, utils, xprofiler;
begin
g_GFX_SparkVel(fX, fY, 2+Random(2), -vx div 2, -vy div 2, devX, devY);
exit;
begin
g_GFX_SparkVel(fX, fY, 2+Random(2), -vx div 2, -vy div 2, devX, devY);
exit;
+ end
+ else if (kind = BLOOD_CSPARKS) OR (kind = BLOOD_COMBINE) then
+ begin
+ g_GFX_SparkVel(fX, fY, count, -vx div 2, -vy div 2, devX, devY);
+ if kind <> BLOOD_COMBINE then exit
end;
l := Length(Particles);
end;
l := Length(Particles);
a, len: Integer;
{$IFDEF USE_NANOGL}
type
a, len: Integer;
{$IFDEF USE_NANOGL}
type
- PVertex = ^Vertex;
Vertex = record
x, y: GLfloat;
r, g, b, a: GLfloat;
end;
var
count: Integer;
Vertex = record
x, y: GLfloat;
r, g, b, a: GLfloat;
end;
var
count: Integer;
- v: PVertex;
+ v: array of Vertex;
{$ENDIF}
begin
if not gpart_dbg_enabled then exit;
{$ENDIF}
begin
if not gpart_dbg_enabled then exit;
glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
{$IFDEF USE_NANOGL}
glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
{$IFDEF USE_NANOGL}
- len := High(Particles);
- v := GetMem(len * SizeOf(Vertex) + 1);
count := 0;
count := 0;
- for a := 0 to len do
+ SetLength(v, Length(Particles));
+ for a := 0 to High(Particles) do
begin
with Particles[a] do
begin
begin
with Particles[a] do
begin
end;
end;
end;
end;
- glVertexPointer(2, GL_FLOAT, SizeOf(Vertex), @v.x);
- glColorPointer(4, GL_FLOAT, SizeOf(Vertex), @v.r);
+ glVertexPointer(2, GL_FLOAT, SizeOf(Vertex), @v[0].x);
+ glColorPointer(4, GL_FLOAT, SizeOf(Vertex), @v[0].r);
glEnableClientState(GL_VERTEX_ARRAY);
glEnableClientState(GL_COLOR_ARRAY);
glDisableClientState(GL_NORMAL_ARRAY);
glDisableClientState(GL_TEXTURE_COORD_ARRAY);
glEnableClientState(GL_VERTEX_ARRAY);
glEnableClientState(GL_COLOR_ARRAY);
glDisableClientState(GL_NORMAL_ARRAY);
glDisableClientState(GL_TEXTURE_COORD_ARRAY);
- glDrawArrays(GL_POINTS, 0, count - 1);
-
- Dispose(v);
+ glDrawArrays(GL_POINTS, 0, count);
{$ELSE}
glBegin(GL_POINTS);
{$ELSE}
glBegin(GL_POINTS);