Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/HHHandlers.inc
changeset 517 ba560c17c24c
parent 513 69e06d710d46
child 518 d48d8c0a546d 
--- a/hedgewars/HHHandlers.inc	Mon May 21 15:42:21 2007 +0000
+++ b/hedgewars/HHHandlers.inc	Mon May 21 18:07:25 2007 +0000
@@ -183,10 +183,11 @@
    PrevdX:= hwSign(Gear^.dX);
    if (Gear^.Message and gm_Left  )<>0 then Gear^.dX:= -cLittle else
    if (Gear^.Message and gm_Right )<>0 then Gear^.dX:=  cLittle else exit;
-   DeleteCI(Gear);
 
    StepTicks:= cHHStepTicks;
    if PrevdX <> hwSign(Gear^.dX) then exit;
+   DeleteCI(Gear); // after exit!!    ^^^^
+   
    PHedgehog(Gear^.Hedgehog)^.visStepPos:= (PHedgehog(Gear^.Hedgehog)^.visStepPos + 1) and 7;
    if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then
       begin
hedgewars