equal
deleted
inserted
replaced
319 Gear^.Y:= Gear^.Y + Gear^.dY; |
319 Gear^.Y:= Gear^.Y + Gear^.dY; |
320 x:= hwRound(Gear^.X); |
320 x:= hwRound(Gear^.X); |
321 y:= hwRound(Gear^.Y); |
321 y:= hwRound(Gear^.Y); |
322 if ((y and $FFFFFC00) = 0) and ((x and $FFFFF800) = 0) |
322 if ((y and $FFFFFC00) = 0) and ((x and $FFFFF800) = 0) |
323 and (Land[y, x] <> 0) then inc(Gear^.Damage); |
323 and (Land[y, x] <> 0) then inc(Gear^.Damage); |
324 AmmoShove(Gear, 7, 20); |
324 if Gear^.Damage > 5 then AmmoShove(Gear, 7, 20); |
325 dec(i) |
325 dec(i) |
326 until (i = 0) or (Gear^.Damage > Gear^.Health); |
326 until (i = 0) or (Gear^.Damage > Gear^.Health); |
327 if Gear^.Damage > 0 then |
327 if Gear^.Damage > 0 then |
328 begin |
328 begin |
329 DrawTunnel(oX, oY, Gear^.dX, Gear^.dY, 82 - i, 1); |
329 DrawTunnel(oX, oY, Gear^.dX, Gear^.dY, 82 - i, 1); |