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 =/
Code:
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;
Code:
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
Code:
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;