X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_monsters.pas;h=83714cbdd0ec333d5f9a581bfd35c78aae655fd5;hb=8bc91b0c803ac0934ca9e32ca05d9294d7b2a913;hp=f64850d987b63ac67334ff6b6a78d3118b8cc19f;hpb=daf9eff73e0fcfea6b846daebd5732cceb699e43;p=d2df-sdl.git diff --git a/src/game/g_monsters.pas b/src/game/g_monsters.pas index f64850d..83714cb 100644 --- a/src/game/g_monsters.pas +++ b/src/game/g_monsters.pas @@ -2469,6 +2469,14 @@ begin st := g_Obj_Move(@FObj, fall, True, True); positionChanged(); // this updates spatial accelerators +// Åñëè ãîðèì - ïîäæèãàåì äðóãèõ ìîíñòðîâ: + if FFireTime > 0 then + for a := 0 to High(gMonsters) do + if (gMonsters[a] <> nil) and (gMonsters[a].alive) and + (gMonsters[a].FUID <> FUID) and + g_Obj_Collide(@FObj, @gMonsters[a].Obj) then + gMonsters[a].CatchFire(FFireAttacker); + // Âûëåòåë çà êàðòó - óäàëÿåì è çàïóñêàåì òðèããåðû: if WordBool(st and MOVE_FALLOUT) or (FObj.X < -1000) or (FObj.X > gMapInfo.Width+1000) or (FObj.Y < -1000) then @@ -2825,7 +2833,7 @@ begin // Ðûáà ïëûâåò ââåðõ: if FObj.Vel.Y < 0 then - if not g_Obj_CollideWater(@FObj, 0, -16) then + if not g_Obj_CollideLiquid(@FObj, 0, -16) then begin // Âñïëûëè äî ïîâåðõíîñòè - ñòîï: FObj.Vel.Y := 0; @@ -3674,7 +3682,7 @@ begin // Ðûáà ïëûâåò ââåðõ: if FObj.Vel.Y < 0 then - if not g_Obj_CollideWater(@FObj, 0, -16) then + if not g_Obj_CollideLiquid(@FObj, 0, -16) then begin // Âñïëûëè äî ïîâåðõíîñòè - ñòîï: FObj.Vel.Y := 0; @@ -4638,6 +4646,8 @@ end; procedure TMonster.CatchFire(Attacker: Word); begin + if FFireTime <= 0 then + g_Sound_PlayExAt('SOUND_IGNITE', FObj.X, FObj.Y); FFireTime := 100; FFireAttacker := Attacker; if g_Game_IsNet and g_Game_IsServer then MH_SEND_MonsterState(FUID);