X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_items.pas;h=a6caf4e7cd30b71125de40636e0e7b2c3116f906;hb=09e7681fd86c15d7553b8b8535775b703c5516aa;hp=51dfc8fc2031f0b5f89765245956a92e21467fc0;hpb=3bfe69d75a8da0a2ec95d41b310d0de3cd808cc3;p=d2df-sdl.git diff --git a/src/game/g_items.pas b/src/game/g_items.pas index 51dfc8f..a6caf4e 100644 --- a/src/game/g_items.pas +++ b/src/game/g_items.pas @@ -88,12 +88,16 @@ var implementation -uses - Math, - g_basic, g_sound, g_gfx, g_map, r_textures, r_animations, - g_game, g_triggers, g_console, g_player, g_net, g_netmsg, - e_log, g_options, - g_grid, binheap, idpool, utils, xstreams; + uses + {$IFDEF ENABLE_GFX} + g_gfx, + {$ENDIF} + Math, + g_basic, g_sound, g_map, + g_game, g_triggers, g_console, g_player, g_net, g_netmsg, + e_log, g_options, + g_grid, binheap, idpool, utils, xstreams + ; // ////////////////////////////////////////////////////////////////////////// // var @@ -392,8 +396,6 @@ end; procedure g_Items_Update (); var i, j, k: Integer; - ID: DWord; - Anim: TAnimation; m, ItemRespawnTime: Word; r, nxt: Boolean; begin @@ -487,14 +489,13 @@ begin 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; - + {$IFDEF ENABLE_GFX} + g_GFX_QueueEffect( + R_GFX_ITEM_RESPAWN, + InitX + (Obj.Rect.Width div 2) - 16, + InitY + (Obj.Rect.Height div 2) - 16 + ); + {$ENDIF} Obj.oldX := InitX; Obj.oldY := InitY; Obj.X := InitX;