equal
deleted
inserted
replaced
4180 begin |
4180 begin |
4181 if Gear^.Timer > 0 then |
4181 if Gear^.Timer > 0 then |
4182 dec(Gear^.Timer, 1); |
4182 dec(Gear^.Timer, 1); |
4183 |
4183 |
4184 HHGear := Gear^.Hedgehog^.Gear; |
4184 HHGear := Gear^.Hedgehog^.Gear; |
4185 if HHGear = nil then |
4185 if (HHGear = nil) or ((HHGear^.State and gstHHDriven) = 0) then |
4186 begin |
4186 begin |
|
4187 Gear^.Hedgehog := nil; |
4187 Gear^.Timer := 0; |
4188 Gear^.Timer := 0; |
4188 Gear^.State := Gear^.State or gstAnimation or gstTmpFlag; |
4189 Gear^.State := Gear^.State or gstAnimation or gstTmpFlag; |
4189 Gear^.Timer := 0; |
4190 Gear^.Timer := 0; |
4190 Gear^.doStep := @doStepBirdyDisappear; |
4191 Gear^.doStep := @doStepBirdyDisappear; |
4191 CurAmmoGear := nil; |
4192 CurAmmoGear := nil; |