[Open Source] Apredendo a ler Battle List

[Kimoszin 1160]

Resolvi fazer essa source para animar um pouco vocês, quero ver programadores aqui, caralho !

Vamos lá pessoal, gogo!

- Oque você vai aprender?

• Interagir com o Tibia
  
• Ler endereços de Memoria
  
• Mecher com Battle List
  
• E varias outras coisas
  

Feito no Delphi 2010.

Battle List Reader.rar

[Mek Fiuchem 212]

Vish , vou tenta mecher em Delphi hehehe ja que as source agora ta sendo tudo de Delphi :/

[Kimoszin 1160]

É só mudar para outra linguagem cara, não é dificil.

[alfbru 71]

boa kimoszin mais um ótimo post, graças a esses seus posts to aprendendo bastante. rep +

[ediat12 0]

Bom dia a todos, Kimoszin você ou alguém saberia me dizer pq no meu Delphi XE2 da o seguinte erro

[DCC Error] uMemory.pas(46): E2033 Types of actual and formal var parameters must be identical

function ReadInteger(Address: Cardinal): Cardinal; //Função para ler números (Int)eiros

var

tProc: THandle;

NBR: Cardinal;

value: Integer;

begin

tProc := OpenProcess(PROCESS_ALL_ACCESS, False, PID);

ReadProcessMemory(tProc, Ptr(Address), @value, 4, NBR); <<

  Citar

essa linha e outras com as mesmas características é a altora do do erro, a variável NBR, se eu alterá-la para THandle vai normal e no Delphi XE roda normal, alguém saberia o porque disso?

Expand   Mostrar mais  

CloseHandle(tProc);

Result := value;

end;

desde já obrigado.

[Kimoszin 1160]

Cara, o ultimo parametro do ReadProcessMemory é um Cardinal, que é NBR.

[ediat12 0]

É exatamente ele quem da erro no Delphi XE2 >>> [DCC Error] uMemory.pas(46): E2033 Types of actual and formal var parameters must be identical <<< e no XE roda normal, poderia estar faltando alguma dll ou algo do tipo no meu Delphi XE2?

[Kimoszin 1160]

Troque o NBR: Cardinal para NBR: NativeUINT.

[ediat12 0]

É isso mesmo agora rodou normal Muito obrigado, você é bom mesmo. Assim que tiver mais conhecimentos com delphi, vou começar a postar aqui tbm.

Permita-me por favor fazer mais uma perguntinha. Como você encontra esses valores, alias como identificá-los?

>> Start = $943008;

>> StepCreatures = $B0;

>> MaxCreatures = 250;

e esses offsets?

DistanceId = 0;

DistanceType = 3;

DistanceName = 4;

DistanceX = 44;

DistanceY = 40;

DistanceZ = 36;

DistanceIsWalking = 80;

DistanceDirection = 84;

DistanceOutfit = 96;

DistanceAddon = 116;

DistanceMountId = 120;

DistanceIsVisible = 172;

DistanceSkull = 152;

DistanceColorHead = 100;

DistanceColorBody = 104;

DistanceColorLegs = 108;

DistanceColorFeet = 112;

DistanceWarIcon = 168;

DistanceWalkSpeed = 144;

DistanceHPBar = 140;

Me desculpa se estou perguntando demais.

Editado Agosto 10, 2012 por ediat12 (veja o histórico de edições)

[Kimoszin 1160]

http://tpforums.org/...hread-8146.html

Os Offsets eu faço um for e vou testando.

[Skyrr 3]

Hum, e você podia explicar o qaue essa form fazia?

Ou então disponibilizar atualizada pra 9.61?;x

[Kimoszin 1160]

É só mudar os endereços.

[ediat12 0]

Muito obrigado pela resposta, vou ver oque consigo fazer. valew mesmo.

[haith 40]

Como faz pra ele funcionar com o ASRL desativado?

[Kimoszin 1160]

Nessa source, já está assim.

[willschu 1]

Como eu encontro o endereço da Battle List utilizando o Olly ? Sei que para life, utilizo a palavra "Hit Points" conforme um tópico já feito por aqui.. E para encontrar o da Battle List ?

O Tibia atualizou para a versão 10.0, porém o Blackd ainda não disponibilizou os endereços para esta versão.

 

No aguardo!


Obrigado.

[cleytonk 8]

Olá esse bot é pra qual versão do tibia? pois estou testando na versão 8.6 e não funciona.