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     Level:= Level; // avoid compiler hint

   830     Level:= Level; // avoid compiler hint

   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;