| changeset 12125 | 1aae30470fa3 |
| parent 12124 | 3374e0f67f39 |
| child 12174 | 869cf5f34700 |
| 12124:3374e0f67f39 | 12125:1aae30470fa3 |
|---|---|
2306 begin |
2306 begin |
2307 inc(Gear^.Tag); |
2307 inc(Gear^.Tag); |
2308 Gear^.Timer := 100 |
2308 Gear^.Timer := 100 |
2309 end; |
2309 end; |
2310 |
2310 |
2311 if Gear^.Tag = 5 then |
2311 if Gear^.Tag = 4 then |
2312 begin |
2312 begin |
2313 HHGear := Gear^.Hedgehog^.Gear; |
2313 HHGear := Gear^.Hedgehog^.Gear; |
2314 HHGear^.State := HHGear^.State or gstNoDamage; |
2314 HHGear^.State := HHGear^.State or gstNoDamage; |
2315 DeleteCI(HHGear); |
2315 DeleteCI(HHGear); |
2316 |
2316 |