equal
deleted
inserted
replaced
824 var |
824 var |
825 i, failNum: longword; |
825 i, failNum: longword; |
826 maxTop: longword; |
826 maxTop: longword; |
827 begin |
827 begin |
828 TestTeleport := BadTurn; |
828 TestTeleport := BadTurn; |
|
829 exit(); |
829 Level:= Level; // avoid compiler hint |
830 Level:= Level; // avoid compiler hint |
830 FillBonuses(true, [gtCase]); |
831 //FillBonuses(true, [gtCase]); |
831 if bonuses.Count = 0 then |
832 if bonuses.Count = 0 then |
832 begin |
833 begin |
833 if Me^.Health <= 100 then |
834 if Me^.Health <= 100 then |
834 begin |
835 begin |
835 maxTop := Targ.Y - cHHRadius * 2; |
836 maxTop := Targ.Y - cHHRadius * 2; |