diff --git a/src/game/g_items.pas b/src/game/g_items.pas
index 51dfc8fc2031f0b5f89765245956a92e21467fc0..dcc8b0f58ad93521ee244b86411571a5761427dc 100644 (file)
--- a/src/game/g_items.pas
+++ b/src/game/g_items.pas
uses
Math,
uses
Math,
- g_basic, g_sound, g_gfx, g_map, r_textures, r_animations,
+ g_basic, g_sound, g_gfx, g_map, r_animations, r_gfx,
g_game, g_triggers, g_console, g_player, g_net, g_netmsg,
e_log, g_options,
g_grid, binheap, idpool, utils, xstreams;
g_game, g_triggers, g_console, g_player, g_net, g_netmsg,
e_log, g_options,
g_grid, binheap, idpool, utils, xstreams;
procedure g_Items_Update ();
var
i, j, k: Integer;
procedure g_Items_Update ();
var
i, j, k: Integer;
- ID: DWord;
- Anim: TAnimation;
m, ItemRespawnTime: Word;
r, nxt: Boolean;
begin
m, ItemRespawnTime: Word;
r, nxt: Boolean;
begin
if (RespawnTime = 0) and (not alive) then
begin
if not QuietRespawn then g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', InitX, InitY);
if (RespawnTime = 0) and (not alive) then
begin
if not QuietRespawn then g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', InitX, InitY);
-
- if g_Frames_Get(ID, 'FRAMES_ITEM_RESPAWN') then
- begin
- Anim := TAnimation.Create(ID, False, 4);
- g_GFX_OnceAnim(InitX+(Obj.Rect.Width div 2)-16, InitY+(Obj.Rect.Height div 2)-16, Anim);
- Anim.Free();
- end;
-
+ r_GFX_OnceAnim(R_GFX_ITEM_RESPAWN, InitX + (Obj.Rect.Width div 2) - 16, InitY + (Obj.Rect.Height div 2) - 16);
Obj.oldX := InitX;
Obj.oldY := InitY;
Obj.X := InitX;
Obj.oldX := InitX;
Obj.oldY := InitY;
Obj.X := InitX;