DEADSOFTWARE

Added new blood types for player's models
authorDeaDDooMER <deaddoomer@deadsoftware.ru>
Sun, 30 Sep 2018 13:23:59 +0000 (16:23 +0300)
committerDeaDDooMER <deaddoomer@deadsoftware.ru>
Sun, 30 Sep 2018 13:23:59 +0000 (16:23 +0300)
src/game/g_gfx.pas
src/game/g_playermodel.pas

index 4e9cdd89354dc382ed48437bc452b2f20043cf94..e4c46f199d17a9bf74a2180be95d1ff5e4fc0c4c 100644 (file)
@@ -26,6 +26,8 @@ uses
 const
   BLOOD_NORMAL = 0;
   BLOOD_SPARKS = 1;
+  BLOOD_CSPARKS = 2;
+  BLOOD_COMBINE = 3;
 
   ONCEANIM_NONE  = 0;
   ONCEANIM_SMOKE = 1;
@@ -921,6 +923,11 @@ begin
   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);
index acc89b26571f32665b37684b9ba4042999e8e938..e2148e8ec204f35ae225ab656751a550235bd2b0 100644 (file)
@@ -447,7 +447,8 @@ begin
     Blood.B := MAX(0, MIN(255, config.ReadInt('Blood', 'B', 0)));
     case config.ReadStr('Blood', 'Kind', 'NORMAL') of
       'NORMAL': Blood.Kind := BLOOD_NORMAL;
-      'SPARKS': Blood.Kind := BLOOD_SPARKS;
+      'SPARKS': Blood.Kind := BLOOD_CSPARKS;
+      'COMBINE': Blood.Kind := BLOOD_COMBINE;
     else
       Blood.Kind := BLOOD_NORMAL
     end