equal
deleted
inserted
replaced
564 Gear^.IntersectGear^.IntersectGear:= nil; |
564 Gear^.IntersectGear^.IntersectGear:= nil; |
565 end |
565 end |
566 else if Gear^.Kind = gtHedgehog then |
566 else if Gear^.Kind = gtHedgehog then |
567 if (CurAmmoGear <> nil) and (CurrentHedgehog^.Gear = Gear) then |
567 if (CurAmmoGear <> nil) and (CurrentHedgehog^.Gear = Gear) then |
568 begin |
568 begin |
569 Gear^.Message:= gm_Destroy; |
569 Gear^.Message:= gmDestroy; |
570 CurAmmoGear^.Message:= gm_Destroy; |
570 CurAmmoGear^.Message:= gmDestroy; |
571 exit |
571 exit |
572 end |
572 end |
573 else |
573 else |
574 begin |
574 begin |
575 if (hwRound(Gear^.Y) >= cWaterLine) then |
575 if (hwRound(Gear^.Y) >= cWaterLine) then |