equal
deleted
inserted
replaced
2316 begin |
2316 begin |
2317 dec(Gear^.Timer); |
2317 dec(Gear^.Timer); |
2318 if Gear^.Timer = 0 then |
2318 if Gear^.Timer = 0 then |
2319 begin |
2319 begin |
2320 inc(Gear^.Tag); |
2320 inc(Gear^.Tag); |
2321 Gear^.Timer := 100 |
2321 Gear^.Timer := 50 |
2322 end; |
2322 end; |
2323 |
2323 |
2324 if Gear^.Tag = 4 then |
2324 if Gear^.Tag = 3 then |
2325 begin |
2325 begin |
2326 HHGear := Gear^.Hedgehog^.Gear; |
2326 HHGear := Gear^.Hedgehog^.Gear; |
2327 HHGear^.State := HHGear^.State or gstNoDamage; |
2327 HHGear^.State := HHGear^.State or gstNoDamage; |
2328 DeleteCI(HHGear); |
2328 DeleteCI(HHGear); |
2329 |
2329 |
2330 AmmoShove(Gear, Gear^.Boom, 115); |
2330 AmmoShove(Gear, Gear^.Boom, 115); |
2331 |
2331 |
2332 HHGear^.State := (HHGear^.State and (not gstNoDamage)) or gstMoving; |
2332 HHGear^.State := (HHGear^.State and (not gstNoDamage)) or gstMoving; |
|
2333 end |
|
2334 else if Gear^.Tag = 4 then |
|
2335 begin |
2333 Gear^.Timer := 250; |
2336 Gear^.Timer := 250; |
2334 Gear^.doStep := @doStepIdle |
2337 Gear^.doStep := @doStepIdle |
2335 end |
2338 end |
2336 end; |
2339 end; |
2337 |
2340 |