Kimoszin

Você está usando Delphi 7? Creio que ele não é muito compativel com o Windows 7 e vai gerar muitos bugs ;s --- Tomara que o projeto vá para frente, parabéns. O design está bem clean e agradavel. GOGO !

http://bestotwar.servegame.com/ GO !

Vou esperar por dicas...

sqlType = "mysql" sqlHost = "localhost" sqlPort = 3306 sqlUser = "root" sqlPass = "minhasenha" sqlDatabase = "otxserver" sqlFile = "otxserver" sqlKeepAlive = 10 mysqlReadTimeout = 0 mysqlWriteTimeout = 1 mysqlReconnectionAttempts = 3 encryptionType = "sha1"

Vai ter sorteio ainda Mega?

Evento = Kimoszin

Não, só vai mudar o teu ip do client para você poder logar.

Você é o hoster? Se sim é oque eu falei. Você vai ter que mudar o ip do seu client, aconselho você a baixar o PH IP Changer, com ele você seleciona a versão do seu client com o ip: 127.0.0.1 ou o da rede e se conecta no seu ot.

É porque você só se conecta com 127.0.0.1 ou com o ip da rede :s

É que antes o TibiaKing sempre fazia uns eventos randomicos, diferentes um de cada um... E eu sempre ganhava alguma coisa, 1, 2 ou 3 lugar *-* Queria denovo :/

Re-upei o projeto novamente, agora está 100%, tudo ok!

Quando é que vai ter evento denovo no Tibia King? Além de sempre chamar mais membros eu sempre ganho algo, HAHA Tava querendo uns days no BBot ):

É que eu carreguei o endereço depois, AUHSAUHSHAUASHUASU É só mudar pra quando definir o Handle.. ou seja: TIRE daqui: public Chooser() { Versions.Tibia954(); InitializeComponent(); } E BOTE aqui, na função GetClients() Client.Handle = WinApi.OpenProcess(0x1F0FFF, 0, (uint)p.Id); //Carrega os endereços de Memoria; Versions.Tibia954(); E adicionar + Kernel.Client.BaseAddress; ao endereços

Qual seu windows? Quantos bits?

Como uma pausa? Ele para todas as funções? Explique melhor cara

Para ler o nome do personagem é só lendo a battlelist, o nome do char não se encontra em um endereço de memoria. Variaveis: Creature: TCreature; BattleList: array [0 .. 255] of TCreature; Creatures: TList; Consts: const // Tibia 9.54 Start = $947008; StepCreatures = $B0; MaxCreatures = 250; DistanceName = 4; DistanceId = 0; PlayerId = $97EEA4; Procedure: procedure Updateworld; begin for i := 0 to MaxCreatures - 1 do begin BattleList[i].Id := ReadInteger(Start + (i * StepCreatures) + DistanceId); BattleList[i].Name := ReadString(Start + (i * StepCreatures) + DistanceName); end; end; Como achar: var pid: Integer; begin Updateworld; // Chama a procedure pid := ReadInteger(PlayerId); // Lê o player id e guarda na variavel for i := 0 to MaxCreatures - 1 do // Começa o for begin if BattleList[i].Id = pid then // Se o atual ID da battlelist for igual ao pid (PlayerId) begin ShowMessage(BattleList[i].Name); // Vai mostrar o nome end; end;

Eu fiz a função para pegar o base endereço, Esse é um client chooser simples, ele só pega os tibia que são "Tibia.exe" ou seja, se você renomeo o .exe do Tibia para "Tibia954.exe" ele não vai achar.

Que o Mega alimenta a familia eu não sei, mas que o BBot paga a bebedeira isso é garantido.

Zipa o teu projeto e me manda '-'

Zipa o teu projeto e me manda '-'

Cara eu testei tudo certinho ¬ --- Qual é seu windows? Qual é o level do seu personagem?

Troque: const adrXOR = $7B2030; adrMyHP = $947000; adrMyMana = $7B2084; function ReadInteger(Address: Integer): Integer; var value: Integer; ler: DWORD; begin H := FindWindow('TibiaClient', nil); ThID := GetWindowThreadProcessId(H, pid); PH := OpenProcess(PROCESS_ALL_ACCESS, FALSE, pid); ReadProcessMemory(PH, Ptr(Address), @value, 4, ler); Result := value; end;

Troque a sua função de achar o ProcessID por essa: function ProcessID: Integer; begin TibiaH := FindWindow('TibiaClient', nil); Thid := GetWindowThreadProcessId(TibiaH, @PID); PH := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID); Result := PID; end;

Selecione sua database no phpmyadmin e execute esse code CREATE TABLE IF NOT EXISTS `news` ( `id` int(11) NOT NULL AUTO_INCREMENT, `title` varchar(150) DEFAULT '', `body` text, `time` int(11) DEFAULT '0', PRIMARY KEY (`id`) ) ENGINE=InnoDB DEFAULT CHARSET=latin1 AUTO_INCREMENT=2