index df1b4acfff22c5e1aaf7f64599bdb9f007e0ce59..e3374e496ebcf7001c9094dc5476720411ab7884 100644 (file)
--- a/src/game/g_monsters.pas
+++ b/src/game/g_monsters.pas
tx, ty: Integer;
FStartID: Integer;
FObj: TObj;
- FBloodRed: Byte;
- FBloodGreen: Byte;
- FBloodBlue: Byte;
- FBloodKind: Byte;
+ {$IFDEF ENABLE_GFX}
+ FBloodRed: Byte;
+ FBloodGreen: Byte;
+ FBloodBlue: Byte;
+ FBloodKind: Byte;
+ {$ENDIF}
FShellTimer: Integer;
FShellType: Byte;
FFirePainTime: Integer;
{$IFDEF ENABLE_MENU}
g_menu,
{$ENDIF}
- e_log, g_sound, g_gfx, g_player, g_game,
+ {$IFDEF ENABLE_GFX}
+ g_gfx,
+ {$ENDIF}
+ e_log, g_sound, g_player, g_game,
g_weapons, g_triggers, g_items, g_options,
g_console, g_map, Math, wadreader,
g_language, g_netmsg, idpool, utils, xstreams;
mplatCheckFrameId := 0;
mNeedSend := false;
+{$IFDEF ENABLE_GFX}
if FMonsterType in [MONSTER_ROBO, MONSTER_BARREL] then
FBloodKind := BLOOD_SPARKS
else
FBloodGreen := 0;
FBloodBlue := 0;
end;
+{$ENDIF}
SetLength(FAnim, Length(ANIMTABLE));
for a := ANIM_SLEEP to ANIM_PAIN do
procedure TMonster.MakeBloodSimple(Count: Word);
begin
+{$IFDEF ENABLE_GFX}
g_GFX_Blood(FObj.X+FObj.Rect.X+(FObj.Rect.Width div 2)+8,
FObj.Y+FObj.Rect.Y+(FObj.Rect.Height div 2),
Count div 2, 3, -1, 16, (FObj.Rect.Height*2 div 3),
FObj.Y+FObj.Rect.Y+(FObj.Rect.Height div 2),
Count div 2, -3, -1, 16, (FObj.Rect.Height*2) div 3,
FBloodRed, FBloodGreen, FBloodBlue, FBloodKind);
+{$ENDIF}
end;
procedure TMonster.MakeBloodVector(Count: Word; VelX, VelY: Integer);
begin
+{$IFDEF ENABLE_GFX}
g_GFX_Blood(FObj.X+FObj.Rect.X+(FObj.Rect.Width div 2),
FObj.Y+FObj.Rect.Y+(FObj.Rect.Height div 2),
Count, VelX, VelY, 16, (FObj.Rect.Height*2) div 3,
FBloodRed, FBloodGreen, FBloodBlue, FBloodKind);
+{$ENDIF}
end;
procedure TMonster.Push(vx, vy: Integer);
if not silent then
begin
g_Sound_PlayExAt('SOUND_GAME_TELEPORT', Obj.X, Obj.Y);
+{$IFDEF ENABLE_GFX}
g_GFX_QueueEffect(
R_GFX_TELEPORT,
FObj.X+FObj.Rect.X+(FObj.Rect.Width div 2)-32,
FObj.Y+FObj.Rect.Y+(FObj.Rect.Height div 2)-32
);
-
+{$ENDIF}
if g_Game_IsServer and g_Game_IsNet then
MH_SEND_Effect(FObj.X+FObj.Rect.X+(FObj.Rect.Width div 2)-32,
FObj.Y+FObj.Rect.Y+(FObj.Rect.Height div 2)-32, 1,
// Эффект телепорта в точке назначения:
if not silent then
begin
+{$IFDEF ENABLE_GFX}
g_GFX_QueueEffect(
R_GFX_TELEPORT,
FObj.X+FObj.Rect.X+(FObj.Rect.Width div 2)-32,
FObj.Y+FObj.Rect.Y+(FObj.Rect.Height div 2)-32
);
-
+{$ENDIF}
if g_Game_IsServer and g_Game_IsNet then
MH_SEND_Effect(FObj.X+FObj.Rect.X+(FObj.Rect.Width div 2)-32,
FObj.Y+FObj.Rect.Y+(FObj.Rect.Height div 2)-32, 0,
if WordBool(st and MOVE_INWATER) and (Random(32) = 0) then
case FMonsterType of
MONSTER_FISH:
- if Random(4) = 0 then
- g_GFX_Bubbles(FObj.X+FObj.Rect.X + Random(FObj.Rect.Width),
- FObj.Y+FObj.Rect.Y + Random(4), 1, 0, 0);
+ begin
+ {$IFDEF ENABLE_GFX}
+ if Random(4) = 0 then
+ begin
+ g_GFX_Bubbles(
+ FObj.X + FObj.Rect.X + Random(FObj.Rect.Width),
+ FObj.Y + FObj.Rect.Y + Random(4),
+ 1,
+ 0,
+ 0
+ );
+ end;
+ {$ENDIF}
+ end;
MONSTER_ROBO, MONSTER_BARREL:
- g_GFX_Bubbles(FObj.X+FObj.Rect.X + Random(FObj.Rect.Width),
- FObj.Y+FObj.Rect.Y + Random(4), 1, 0, 0);
- else begin
- g_GFX_Bubbles(FObj.X+FObj.Rect.X + Random(FObj.Rect.Width-4),
- FObj.Y+FObj.Rect.Y + Random(4), 5, 4, 4);
+ begin
+ {$IFDEF ENABLE_GFX}
+ g_GFX_Bubbles(
+ FObj.X + FObj.Rect.X + Random(FObj.Rect.Width),
+ FObj.Y + FObj.Rect.Y + Random(4),
+ 1,
+ 0,
+ 0
+ );
+ {$ENDIF}
+ end;
+ else
+ begin
+ {$IFDEF ENABLE_GFX}
+ g_GFX_Bubbles(
+ FObj.X + FObj.Rect.X + Random(FObj.Rect.Width - 4),
+ FObj.Y+FObj.Rect.Y + Random(4),
+ 5,
+ 4,
+ 4
+ );
+ {$ENDIF}
if Random(2) = 0 then
g_Sound_PlayExAt('SOUND_GAME_BUBBLE1', FObj.X, FObj.Y)
else
if WordBool(st and MOVE_INWATER) and (Random(32) = 0) then
case FMonsterType of
MONSTER_FISH:
- if Random(4) = 0 then
- g_GFX_Bubbles(FObj.X+FObj.Rect.X + Random(FObj.Rect.Width),
- FObj.Y+FObj.Rect.Y + Random(4), 1, 0, 0);
+ begin
+ {$IFDEF ENABLE_GFX}
+ if Random(4) = 0 then
+ begin
+ g_GFX_Bubbles(
+ FObj.X + FObj.Rect.X + Random(FObj.Rect.Width),
+ FObj.Y + FObj.Rect.Y + Random(4),
+ 1,
+ 0,
+ 0
+ );
+ end;
+ {$ENDIF}
+ end;
MONSTER_ROBO, MONSTER_BARREL:
- g_GFX_Bubbles(FObj.X+FObj.Rect.X + Random(FObj.Rect.Width),
- FObj.Y+FObj.Rect.Y + Random(4), 1, 0, 0);
- else begin
- g_GFX_Bubbles(FObj.X+FObj.Rect.X + Random(FObj.Rect.Width-4),
- FObj.Y+FObj.Rect.Y + Random(4), 5, 4, 4);
+ begin
+ {$IFDEF ENABLE_GFX}
+ g_GFX_Bubbles(
+ FObj.X + FObj.Rect.X + Random(FObj.Rect.Width),
+ FObj.Y + FObj.Rect.Y + Random(4),
+ 1,
+ 0,
+ 0
+ );
+ {$ENDIF}
+ end;
+ else
+ begin
+ {$IFDEF ENABLE_GFX}
+ g_GFX_Bubbles(
+ FObj.X + FObj.Rect.X + Random(FObj.Rect.Width - 4),
+ FObj.Y + FObj.Rect.Y + Random(4),
+ 5,
+ 4,
+ 4
+ );
+ {$ENDIF}
if Random(2) = 0 then
g_Sound_PlayExAt('SOUND_GAME_BUBBLE1', FObj.X, FObj.Y)
else
end;
procedure TMonster.OnFireFlame(Times: DWORD = 1);
- var i: DWORD; x, y: Integer;
+ {$IFDEF ENABLE_GFX}
+ var i: DWORD; x, y: Integer;
+ {$ENDIF}
begin
- if (Random(10) = 1) and (Times = 1) then
- Exit;
-
- for i := 1 to Times do
- begin
- x := Obj.X + Obj.Rect.X + Random(Obj.Rect.Width + Times * 2) - (R_GFX_FLAME_WIDTH div 2);
- y := Obj.Y + 8 + Random(8 + Times * 2) + IfThen(FState = MONSTATE_DEAD, 16, 0);
- g_GFX_QueueEffect(R_GFX_FLAME, x, y);
- end;
+ {$IFDEF ENABLE_GFX}
+ if (Random(10) = 1) and (Times = 1) then
+ Exit;
+ for i := 1 to Times do
+ begin
+ x := Obj.X + Obj.Rect.X + Random(Obj.Rect.Width + Times * 2) - (R_GFX_FLAME_WIDTH div 2);
+ y := Obj.Y + 8 + Random(8 + Times * 2) + IfThen(FState = MONSTATE_DEAD, 16, 0);
+ g_GFX_QueueEffect(R_GFX_FLAME, x, y);
+ end;
+ {$ENDIF}
end;