equal
deleted
inserted
replaced
2017 Gear^.State := Gear^.State or gsttmpFlag; |
2017 Gear^.State := Gear^.State or gsttmpFlag; |
2018 end; |
2018 end; |
2019 |
2019 |
2020 //////////////////////////////////////////////////////////////////////////////// |
2020 //////////////////////////////////////////////////////////////////////////////// |
2021 procedure doStepDynamite(Gear: PGear); |
2021 procedure doStepDynamite(Gear: PGear); |
2022 var VGear: PVisualGear; |
|
2023 begin |
2022 begin |
2024 doStepFallingGear(Gear); |
2023 doStepFallingGear(Gear); |
2025 AllInactive := false; |
2024 AllInactive := false; |
2026 |
2025 |
2027 if Gear^.Timer mod 166 = 0 then |
2026 if Gear^.Timer mod 166 = 0 then |
2119 i, x, y: LongInt; |
2118 i, x, y: LongInt; |
2120 k: TGearType; |
2119 k: TGearType; |
2121 dX, dY: HWFloat; |
2120 dX, dY: HWFloat; |
2122 hog: PHedgehog; |
2121 hog: PHedgehog; |
2123 sparkles: PVisualGear; |
2122 sparkles: PVisualGear; |
2124 gi: PGear; |
|
2125 begin |
2123 begin |
2126 k := Gear^.Kind; |
2124 k := Gear^.Kind; |
2127 |
2125 |
2128 if (Gear^.Message and gmDestroy) > 0 then |
2126 if (Gear^.Message and gmDestroy) > 0 then |
2129 begin |
2127 begin |
5309 |
5307 |
5310 //////////////////////////////////////////////////////////////////////////////// |
5308 //////////////////////////////////////////////////////////////////////////////// |
5311 procedure doStepHammer(Gear: PGear); |
5309 procedure doStepHammer(Gear: PGear); |
5312 var HHGear, tmp, tmp2: PGear; |
5310 var HHGear, tmp, tmp2: PGear; |
5313 t: PGearArray; |
5311 t: PGearArray; |
5314 i, dmg, d: LongInt; |
5312 i, dmg: LongInt; |
5315 begin |
5313 begin |
5316 HHGear:= Gear^.Hedgehog^.Gear; |
5314 HHGear:= Gear^.Hedgehog^.Gear; |
5317 HHGear^.State:= HHGear^.State or gstNoDamage; |
5315 HHGear^.State:= HHGear^.State or gstNoDamage; |
5318 DeleteCI(HHGear); |
5316 DeleteCI(HHGear); |
5319 SetLittle(HHGear^.dY); |
5317 SetLittle(HHGear^.dY); |