equal
deleted
inserted
replaced
1265 HHGear^.State:= HHGear^.State or gstMoving; |
1265 HHGear^.State:= HHGear^.State or gstMoving; |
1266 DeleteGear(Gear); |
1266 DeleteGear(Gear); |
1267 AfterAttack; |
1267 AfterAttack; |
1268 exit |
1268 exit |
1269 end; |
1269 end; |
1270 HHGear^.Y:= HHGear^.Y + HHGear^.dY |
1270 |
|
1271 if Land[hwRound(HHGear^.Y + HHGear^.dY), hwRound(HHGear^.X)] <> COLOR_INDESTRUCTIBLE then HHGear^.Y:= HHGear^.Y + HHGear^.dY |
1271 end; |
1272 end; |
1272 |
1273 |
1273 procedure doStepFirePunch(Gear: PGear); |
1274 procedure doStepFirePunch(Gear: PGear); |
1274 var HHGear: PGear; |
1275 var HHGear: PGear; |
1275 begin |
1276 begin |