Funções usadas, declare elas embaixo do {$R *.dfm},
//Função para escrever na janela do Tibia
function say(mensagem: string):string;
var
h: HWND;
letra: Integer;
B: Byte;
begin
h := FindWindow(nil, 'tibia');
for letra := 1 to Length(mensagem) do
begin
B := Byte(mensagem[letra]);
SendMessage(h, WM_CHAR, B, 0);
end;
SendMessage(h, WM_CHAR, 13, 0);
end;
//Função para ler endereço de memoria do Tibia
function LerInt(Address: Integer): Integer;
var
value:integer;
ler :dword;
begin
H := FindWindow(nil, 'Tibia');
ThID := GetWindowThreadProcessId(H, @PID);
PH := OpenProcess(PROCESS_ALL_ACCESS,FALSE,PID);
ReadProcessMemory(PH, Ptr(Address), @Value, 4, Ler);
Result:=value;
end;
//Função para aperta uma determinada tecla na janela do Tibia
function hotkey(x :string): string;
var
h: HWND;
i : integer;
begin
if x ='F1' then
i := 112
else if x ='F2' then
i := 113
else if x ='F3' then
i := 114
else if x ='F4' then
i := 115
else if x ='F5' then
i := 116
else if x ='F6' then
i := 117
else if x ='F7' then
i := 118
else if x ='F8' then
i := 119
else if x ='F9' then
i := 120
else if x ='F10' then
i := 121
else if x ='F11' then
i := 122
else if x ='F12' then
i := 123;
h := FindWindow(nil, 'Tibia'); // acha a janela do tibia
SendMessage(h, WM_KEYdown, i, 0); //pressiona a tecla
SendMessage(h, WM_KEYUP, i, 0); //solta tecla
end;
Depois de botar os componentes, renomeá-los e declarar as funções,
Vamos botar os devidos códigos nos respectivos componentes
Lembrando que é tudo dentro do begin e end, se tiver Var você deve excluir o begin, e adiciona-lo depois
CastSpell
if StrToInt(Label2.Caption) > (StrToInt(Mana.Text)) then
say(Spell.text)
// Se a mana do player for maior que a mana que foi digitada no component mana, entao vai falar a magia
Endereço
Label2.caption := IntToStr(Lerint($0081CE5C));
// Vai ler o endereço da mana do personagem e transforma em numero para o label2
Kick
Var
TibiaHandle : THandle;
begin
TibiaHandle:=FindWindow(nil,'Tibia'); // Pega a janela do Tibia
SendMessage(TibiaHandle,WM_KEYDOWN,VK_CONTROL,1); // Pressiona o Ctrl
SendMessage(TibiaHandle,WM_KEYDOWN,VK_UP,1); // Pressiona a tecla para cima
SendMessage(TibiaHandle,WM_KEYUP,VK_UP,1); // Libera a tecla
SendMessage(TibiaHandle,WM_KEYDOWN,VK_DOWN,1); // Pressiona a tecla para baixo
SendMessage(TibiaHandle,WM_KEYUP,VK_DOWN,1); // Libera a tecla
SendMessage(TibiaHandle,WM_KEYUP,VK_CONTROL,1); // Libera o Ctrl
end;
Food
hotkey(Combobox1.Text)
// Pressiona oque tiver no Texto do Combobox
StartButton
CastSpell.Enabled := not(CastSpell.Enabled);
Food.Enabled := not(Food.Enabled);
Kick.Enabled := not(Kick.Enabled);
if Checkbox1.checked then
Kick.Enabled := true
else
Kick.Enabled := false;
if Checkbox2.checked then
Food.Enabled := true
else
Food.Enabled := false;
if (Spell.Text <> '') and (Mana.Text <> '') then
CastSpell.Enabled := true
else
CastSpell.Enabled := false;
if (Kick.Enabled) or (Food.Enabled) or (CastSpell.Enabled) then
StartButton.Caption := 'Stop'
else
StartButton.Caption := 'Start';
Qualquer dúvida que tiverem estou aqui para esclarecer!
Novamente, Créditos: Kimoszin!
Atenciosamente,
Bruno Adriano
