| changeset 12120 | 1aae30470fa3 |
| parent 12119 | 3374e0f67f39 |
| child 12169 | 869cf5f34700 |
| 12119:3374e0f67f39 | 12120: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 |