Error Battlelist Reader... tibia 10.10

[duuhleon]

Hi when tibia update 10.10 my bot stop to read names from battle list...

i'll post the code to check!

Address
~~
StepCreatures = $C0;
MaxCreatures = 1300;
adrStart = $9A93D0;
~~

Remember ALL CODE WORK WITH ALL TIBIAS 9;6~ TO 9.81

After update Stopped =/

  DistanceId = 0;
  DistanceType = 3;
  DistanceName = 4;
  DistanceX = 44;
  DistanceY = 40;
  DistanceZ = 36;
  DistanceIsWalking = 80;
  DistanceDirection = 84;
  DistanceOutfit = 96;
  DistanceAddon = 116;
  DistanceMountId = 120;
  DistanceIsVisible = 172;             <<<<~~~~~~~~~~ Maybe is strong
  DistanceSkull = 152;
  DistanceColorHead = 100;
  DistanceColorBody = 104;
  DistanceColorLegs = 108;
  DistanceColorFeet = 112;
  DistanceWarIcon = 168;
  DistanceWalkSpeed = 144;
  DistanceHPBar = 140;
  DistanceParty = 152;

  if (TibiaHandle <> 0) then
    begin
      ThID := GetWindowThreadProcessId(TibiaHandle, @PID);
      PH := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID);
      Offset := Integer(GetTibiaBaseAddress(ProcessID));
      uXor := ReadInteger((adrXOR + Offset) - $400000);
      Start := ((adrStart + Offset) - $400000); << GET functions to read :B

And here my UpdateWorld or BattleList Reader

procedure Updateworld;
var
  i: integer;
  aux: string;
  Creature:TCreature;
begin

  for i := 0 to MaxCreatures - 1 do
    begin
      BattleList[i].isVisible := ReadInteger(Start + (i * StepCreatures)+ DistanceIsVisible); <<--- here all time give 0 in IsVisible
      if (BattleList[i].isVisible = 1) then
      begin
      BattleList[i].iType := ReadByte(Start + (i * StepCreatures)+ DistanceType);
      BattleList[i].Name := ReadString(Start + (i * StepCreatures)+ DistanceName);
      BattleList[i].HPBar := ReadInteger(Start + (i * StepCreatures) +(DistanceHPBar));
      BattleList[i].Id := ReadInteger(Start + (i * StepCreatures)+ DistanceId);
      BattleList[i].Z := ReadInteger(Start + (i * StepCreatures)+ DistanceZ);
      BattleList[i].X := ReadInteger(Start + (i * StepCreatures)+ DistanceX);
      BattleList[i].Y := ReadInteger(Start + (i * StepCreatures)+ DistanceY);
      aux := BattleList[i].Name;
      if not(aux <> '') then
      begin
      MaxCreaturesBattleList:=i;
      break;
      end;
      end;
    end;
end;