diff -r 0b4a23795530 -r fef7f2d908bf hedgewars/GSHandlers.inc --- a/hedgewars/GSHandlers.inc Sun Apr 20 10:39:08 2008 +0000 +++ b/hedgewars/GSHandlers.inc Mon Apr 21 16:51:14 2008 +0000 @@ -935,6 +935,17 @@ end; //////////////////////////////////////////////////////////////////////////////// +procedure doStepIdle(Gear: PGear); +begin +AllInactive:= false; +dec(Gear^.Timer);addfilelog(inttostr(Gear^.Timer)); +if Gear^.Timer = 0 then + begin + DeleteGear(Gear); + AfterAttack + end +end; + procedure doStepShover(Gear: PGear); var HHGear: PGear; begin @@ -942,7 +953,8 @@ HHGear^.State:= HHGear^.State or gstNoDamage; AmmoShove(Gear, 30, 115); HHGear^.State:= HHGear^.State and not gstNoDamage; -DeleteGear(Gear) +Gear^.Timer:= 250; +Gear^.doStep:= @doStepIdle end; ////////////////////////////////////////////////////////////////////////////////