hedgewars/uGearsHandlersMess.pas
changeset 9724 b3fefde4cff7
parent 9723 31d10d684e90
child 9731 953197ac43d8
--- a/hedgewars/uGearsHandlersMess.pas	Fri Nov 29 18:46:32 2013 +0100
+++ b/hedgewars/uGearsHandlersMess.pas	Sat Nov 30 11:14:32 2013 +0100
@@ -2010,7 +2010,11 @@
 procedure doStepTarget(Gear: PGear);
 begin
     if (Gear^.Timer = 0) and (Gear^.Tag = 0) then
+        begin
         PlaySound(sndWarp);
+        // workaround: save spawn Y for doStepCase (which is a mess atm)
+        Gear^.Angle:= hwRound(Gear^.Y);
+        end;
 
     if (Gear^.Tag = 0) and (Gear^.Timer < 1000) then
         inc(Gear^.Timer)