equal
deleted
inserted
replaced
1409 if TestCollisionXwithGear(HHGear, hwSign(Gear^.dX)) |
1409 if TestCollisionXwithGear(HHGear, hwSign(Gear^.dX)) |
1410 or TestCollisionYwithGear(HHGear, hwSign(Gear^.dY)) then inc(Gear^.Damage, 3); |
1410 or TestCollisionYwithGear(HHGear, hwSign(Gear^.dY)) then inc(Gear^.Damage, 3); |
1411 |
1411 |
1412 dec(i) |
1412 dec(i) |
1413 until (i = 0) or (Gear^.Damage > Gear^.Health); |
1413 until (i = 0) or (Gear^.Damage > Gear^.Health); |
1414 addfilelog(inttostr(Gear^.Damage)); |
|
1415 |
1414 |
1416 inc(upd); |
1415 inc(upd); |
1417 if upd > 3 then |
1416 if upd > 3 then |
1418 begin |
1417 begin |
1419 if Gear^.Health < 1500 then Gear^.Pos:= 2; |
1418 if Gear^.Health < 1500 then Gear^.Pos:= 2; |