# HG changeset patch
# User sheepluva
# Date 1272911125 0
# Node ID 30d0d780d605d3a86fd28f5ad75f3fc18295fba1
# Parent  6748602cb8784a6a47d92db422b6136226f687e9
allow kicking of barrels

diff -r 6748602cb878 -r 30d0d780d605 hedgewars/uCollisions.pas
--- a/hedgewars/uCollisions.pas	Mon May 03 14:59:42 2010 +0000
+++ b/hedgewars/uCollisions.pas	Mon May 03 18:25:25 2010 +0000
@@ -210,7 +210,7 @@
       if (Gear <> cGear) and
          (sqr(mx - x) + sqr(my - y) <= sqr(Radius + Gear^.Radius + 2)) and
          ((mx > x) xor (Dir > 0)) then
-         if (cGear^.Kind in [gtHedgehog, gtMine]) and ((Gear^.State and gstNotKickable) = 0) then
+         if (cGear^.Kind in [gtHedgehog, gtMine, gtExplosives]) and ((Gear^.State and gstNotKickable) = 0) then
              begin
              with cGear^ do
                   begin
@@ -262,7 +262,7 @@
       if (Gear <> cGear) and
          (sqr(mx - x) + sqr(my - y) <= sqr(Radius + Gear^.Radius + 2)) and
          ((my > y) xor (Dir > 0)) then
-         if (cGear^.Kind in [gtHedgehog, gtMine]) and ((Gear^.State and gstNotKickable) = 0) then
+         if (cGear^.Kind in [gtHedgehog, gtMine, gtExplosives]) and ((Gear^.State and gstNotKickable) = 0) then
              begin
              with cGear^ do
                   begin