Kimoszin

Oque vc quer exatamente? Quando se formata um pc e tem 2 divisoes de HD, uma nao precisa ser apagada se estive limpa, vc pode muito bem guardar o delphi em 1

Só o delphi, pode ser encontrado um download aqui na sessao

Ja que vc tem esse pensamento se divirta sozinho entao

Primeiramente vou comentar um pouco sobre esse magnifico programa que é o delphi, Para nos desenvolvermos um bot de tibia por exemplo, nos nao usamos o tibiaapi, mais sim muitas funções muitos codigos e muita outras coisas, Nao é nada extremamente facil, requer um pouco de estudo, mais tudo oque vc fizer vai estar ali para estudo. Entao eu falo para vcs quando nao tiverem nada pra fazer estudem um pouco sobre o delphi. Ok vamos ao bot O Bot é simples, treina seu magic level, tem um anti kick e come food, Visual, olhe como arrumei os meus componentes Componentes, vamos precisar de: 1 TGroupBox 1 TButton 2 TLabeledEdit 2 TCheckBox 1 TCombobox 2 TLabel 4 TTimer Renomeando componentes, para renomear vc deve ir ate a propriedade name Button -> StartButton Timer1 -> CastSpell Timer2 -> Endereço Timer3 -> Kick Timer4 -> Food LabeledEdit1 -> Spell LabeledEdit2 -> Mana Arrumando Componentes, quando ja estiverem renomeados CastSpell.Enabled.False CastSpell.Interval.700 Kick.Enabled.False Kick.Interval.60000 Food.Enabled.False Food.Interval.30000 Combobox1.Style.csDropDownList Form1.Caption 'Escolha um Nome para o Bot' Variaveis Globais, declare embaixo do Form1 : TForm1 PH : THandle; PID, ThID: DWORD; H : THandle; 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, renomea-los e declarar as funções, Vamos botar os devidos codigos nos respectivos componentes Lembrando que é tudo dentro do begin e end, se tiver Var vc 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'; Bom pessoal sei que é simples, mais estou tentando animar o pessoal do forum para usar o Delphi, ps: Peguei as funções da sessao do delphi, entao esta tudo aqui Abraços a todos

Muito obrigado Matheus,

É acho eu eu consigo fazer isso, se quiser conversar, [email protected]

NPC's de que tipo ? Muuuuuito dificil ou coisas faceis? Qualquer coisa ... eu tento voltar aqui com os scripts

Vou dar uma dica, é bom vc sempre ir aprendendo mais sobre oque vc joga ou faz, pq nao entende como tudo funciona? Faça o seguinte, baxei um Ot Global de sua preferencia e baixe o programa Remeres Editor, abra o Map do ot server baixado e começa a editar, Pq se alguem postar aqui, todo mundo vai pegar, Pq nao vc nao cria algo seu? Leia alguns tutorias sobre mapping aqui do forum, creio que vc nao ira se arepender, Abraços

u.u, Ele tentou isso, foi a primeira coisa que falei para ele fazer, mais o email nao chega na conta dele Por isso que criei esse topico, Abraços, desculpe se nao expliquei direito

É bem simples, so uso 2 codigos, um na 'propriedade' do projeto e o outro quando incia

Ola pessoal da Staff, tenho um amigo que se registrou aqui no forum, Nick: Makaveli So que ele esqueceu de sua senha, se alguem conseguir pegar a senha de volta, por favor mande para o email da conta, Se vcs nao conseguirem o email, por favor postem aqui que eu passo, Abraços e obrigado

Ola pessoal, estava sem nada pra fazer mais queria programar entao resolvi criar esse programinha basico, Oque ele faz? Bom, quando ele é ativado ele fica minizado perto do relogio do windows, quando ele esta ativado ele impede o protetor de tela, acho esse programa muito util para quando formos ler algum arquivo grande e a proteção de tela nos impede, Download: Coffe Pc.rar Scan: Peço que alguem da Staff faça o scan para que nao fique duvidas Abraços e bom uso!

Seria bom agradecer :/

Deu algum erro? Esse codigo o boneco nao se meche, evitando assim chamar atenção que é bot, Se quiser que o buneco se mecha: Timer p.Turn(Direction.Up) p.Turn(Direction.Up) p.Turn(Direction.Down) p.Turn(Direction.Down) p.Turn(Direction.Left) p.Turn(Direction.Left) p.Turn(Direction.Right) p.Turn(Direction.Right)

Cara, bote no CheckBox e um Timer o seguinte codigo no CheckBox if Checkbox1.checked then Timer1.Star else Timer1.Stop end if no Timer vc bota p.Turn(Direction) p.Turn(Direction) p.Turn(Direction) p.Turn(Direction) usei a variavel 'p' , que é de player ps: Nao testei pois estou sem meu vb.net, qualquer erro poste

Nao consigo cara, Tenho que achar os adress mesmo, e criar funções

Link Arrumado, Desculpe pela inconveniência

Nao entendi a sua pergunta cara,

É ja nao posso ajudar, Para fazer isso eu teria que baixar o client do dbz, achar os adress e um monte de coisas, Como nao tenho uma net boa, nao poderei ajuda-lo Desculpe,

Quais as funções que vc quer?

ASUHASHUAHUSUHASHUASAHUSUHASUASHUASHU Guido, era pra compartilhar uma coisa SIMPLES, nao da sua vida pessoal ASUHASHUAHUA

Cara pelo oque eu vi de seus script nos topicos do NG, Se foi vc mesmo que fez ele vc entende de delphi, entao pq vc nao bota em praticas seus codigos? Se foi vc que fez isso mesmo ...

Cara, eu nao estou com meu Vb.net aqui Mais acho que é isso vai no seu projeto vai nas propriedades -> reference -> vai no tibiaapi remove a versao velha, sai das propriedades, Ai é so vc adicionar outra dll do tibiaapi e vai funcionar

Eu prefiro excluir a atual e adicionar a nova,

Cara, vc quer copiar outro servidor? Tente fazer algo seu proprio, alguem vai apreciar nao precisar copiar os outros para ter um sucesso Pense nisso, Abraços