--- a/hedgewars/uGears.pas	Thu Apr 15 14:24:26 2010 +0000
+++ b/hedgewars/uGears.pas	Thu Apr 15 20:46:34 2010 +0000
@@ -182,7 +182,9 @@
             @doStepCase,
             @doStepBirdy,
             @doStepBigExplosion,
-            @doStepEggWork
+            @doStepEggWork,
+            @doStepPortal,
+            @doStepPortalGun
             );
 
 procedure InsertGearToList(Gear: PGear);
@@ -468,6 +470,12 @@
                 gear^.Friction:= _0_96;
                 if gear^.Timer = 0 then gear^.Timer:= 3000
                 end;
+      gtPortal: begin
+                gear^.ImpactSound:= sndMelonImpact;
+                gear^.nImpactSounds:= 1;
+                gear^.AdvBounce:= 0;
+                gear^.Radius:= 16;
+                end;
      end;
 InsertGearToList(gear);
 AddGear:= gear;