summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 722b4ec)
raw | patch | inline | side by side (parent: 722b4ec)
author | Ketmar Dark <ketmar@ketmar.no-ip.org> | |
Fri, 1 Sep 2017 05:27:31 +0000 (08:27 +0300) | ||
committer | Ketmar Dark <ketmar@ketmar.no-ip.org> | |
Fri, 1 Sep 2017 07:46:57 +0000 (10:46 +0300) |
src/game/g_gfx.pas | patch | blob | history |
diff --git a/src/game/g_gfx.pas b/src/game/g_gfx.pas
index b137db3ee26bc1936bcb9729329e48deb621d072..6ce5a66da7847fac8d4184d7b7908784c5503c5a 100644 (file)
--- a/src/game/g_gfx.pas
+++ b/src/game/g_gfx.pas
end;
-{
-procedure CorrectOffsets(id: Integer); inline;
-var
- part: PParticle;
-begin
- part := @Particles[id];
- part.offsetX := 0;
- part.offsetY := 0;
- // check for upper wall
- if isBlockedAt(part.X, part.Y-1) then part.offsetY := 1;
- // check for left wall
- if isBlockedAt(part.X-1, part.Y) then part.offsetX := 1;
-end;
-}
-
-
// ////////////////////////////////////////////////////////////////////////// //
procedure TParticle.thinkerBlood ();
var
Time := 0;
LiveTime := 30+Random(60);
ParticleType := PARTICLE_SPARK;
-
- {CorrectOffsets(CurrentParticle);}
end;
if CurrentParticle+2 > MaxParticles then
Time := 0;
LiveTime := 120+Random(40);
ParticleType := PARTICLE_BLOOD;
-
- {CorrectOffsets(CurrentParticle);}
end;
if CurrentParticle >= MaxParticles-1 then
Time := 0;
LiveTime := 30+Random(60);
ParticleType := PARTICLE_SPARK;
-
- {CorrectOffsets(CurrentParticle);}
end;
if CurrentParticle+2 > MaxParticles then
Time := 0;
LiveTime := 60+Random(60);
ParticleType := PARTICLE_WATER;
-
- {CorrectOffsets(CurrentParticle);}
end;
if CurrentParticle+2 > MaxParticles then
Time := 0;
LiveTime := 60+Random(60);
ParticleType := PARTICLE_WATER;
-
- {CorrectOffsets(CurrentParticle);}
end;
if CurrentParticle+2 > MaxParticles then
Time := 0;
LiveTime := 65535;
ParticleType := PARTICLE_BUBBLES;
-
- {CorrectOffsets(CurrentParticle);}
end;
if CurrentParticle+2 > MaxParticles then
//if not alive then Continue;
//e_WriteLog(Format('particle #%d: %d', [State, ParticleType]), MSG_NOTIFY);
think();
- {CorrectOffsets(a);}
end; // with
end; // if
end; // for