X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_gibs.pas;h=69e5ca8b960d8d63dbdedd45094cda9ff30fc530;hb=1268da694ceafa746d756eb42050809ddf846b1b;hp=804126414c3eb35090d7cda8ac5f2fdc19eac5f4;hpb=0361545117c9f1e9c4e719f2250c48f69879de4a;p=d2df-sdl.git diff --git a/src/game/g_gibs.pas b/src/game/g_gibs.pas index 8041264..69e5ca8 100644 --- a/src/game/g_gibs.pas +++ b/src/game/g_gibs.pas @@ -22,6 +22,7 @@ interface const DefaultGibsCount = 32; DefaultGibsMax = 150; + DefaultGibSize: TRectWH = (X: 8; Y: 8; Width: 16; Height: 16); type PGib = ^TGib; @@ -55,7 +56,7 @@ implementation {$IFDEF ENABLE_GFX} g_gfx, {$ENDIF} - {$IFNDEF HEADLESS} + {$IFDEF ENABLE_RENDER} r_render, {$ENDIF} g_playermodel, g_options, g_game @@ -160,13 +161,10 @@ implementation Color := fColor; alive := True; g_Obj_Init(@Obj); - {$IFNDEF HEADLESS} + {$IFDEF ENABLE_RENDER} Obj.Rect := r_Render_GetGibRect(ModelID, GibID); {$ELSE} - Obj.Rect.X := 16; - Obj.Rect.Y := 16; - Obj.Rect.Width := 16; - Obj.Rect.Height := 16; + Obj.Rect := DefaultGibSize; {$ENDIF} Obj.X := fX - Obj.Rect.X - (Obj.Rect.Width div 2); Obj.Y := fY - Obj.Rect.Y - (Obj.Rect.Height div 2);