equal
deleted
inserted
replaced
605 ((Me <> CurrentHedgehog^.Gear) and TestCollExcludingMe(Me^.Hedgehog^.Gear, EX, EY, 4))) or (EY > cWaterLine); |
605 ((Me <> CurrentHedgehog^.Gear) and TestCollExcludingMe(Me^.Hedgehog^.Gear, EX, EY, 4))) or (EY > cWaterLine); |
606 |
606 |
607 if (EY < cWaterLine) and (dY >= 0) then |
607 if (EY < cWaterLine) and (dY >= 0) then |
608 begin |
608 begin |
609 Score:= RateExplosion(Me, EX, EY, 91); |
609 Score:= RateExplosion(Me, EX, EY, 91); |
610 if (Score = 0) and (Targ.Kind = gtHedgehog) and (Targ.Score > 0) then |
610 if (Score = 0) then |
611 if (dY > 0.15) then |
611 if (dY > 0.15) and (Targ.Kind = gtHedgehog) and (Targ.Score > 0) then |
612 Score:= - abs(Targ.Point.Y - EY) div 32 |
612 Score:= - abs(Targ.Point.Y - EY) div 32 |
613 else |
613 else |
614 Score:= BadTurn |
614 Score:= BadTurn |
615 else if (Score < 0) then |
615 else if (Score < 0) then |
616 Score:= BadTurn |
616 Score:= BadTurn |