Líderes

YurOTS 7.6 Editado Venho trazer a comunidade TibiaKing.com um projeto de OT meu, que utilizei por muito tempo (e a muito tempo atraz). O mesmo se baseou no YurOTS, um OT criado por um grande programador chamado Yures. O que contem: Enfim, hostiei este OT por meses, e hoje dando uma limpada no PC, achei e resolvi disponibilizar pra galera. O servidor possuir uma alta estabilidade (aguenta 100+ pessoas ON), ficava online por semanas, dentro do OT ja vem com um Restarter, caso o OT caia, o mesmo o reabre (jura?). Não postei fotos pois estou sem o cliente do 7.6 instalado. Download: http://www.4shared.c.../YurOTS-76.html Scan: http://www.virustotal.com/file-scan/repor...825938 Sites: http://www.lothuscorp.com.br/site.rar / http://www.lothuscorp.com.br/site2.rar / http://www.lothuscorp.com.br/site3.rar Créditos Yures - Criado o Servidor Augusto - Ter editado toda a parte de scripts, npcs e monstros do server. Allyson - Ter editado muitas coisas no Mapa e retitado vários bugs do mesmo. E aos criadores das ferramentas que utilizei para o criar (ItemEditor e MapaEditor) pois não lembro os nomes.

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

Olá, nesse tutorial vou explicar como fazer um DEPOSITER DE ITEMS. Queria agradeçer o membro Guiizao por ter me ensinado. =D Vamos ao que interessa. Primeiramente você marca learn, e faz seu waypoint normalmente. Agora Clique com o botao direito do mouse, clicque em Add > Full Check. Abrirá essa janela: Fazendo o Code Bom, aonde ta escrito Code, você vai ter que colocar os dados ( se vai ir com cap, pot, etc. ) Bom, segue como fazer o code: Bom, explicando com minhas palavras, você tera que colocar + - Asism no code: Cap > ( Cap maior que ) Cap < ( Cap menor que ) 3031 ( Id do gold coin - Pode ser outro id, de outro item ) >= ( Maior ou igual que ) Health Potion < ( Menor que ) Ficando + - Assim: Cap > 100 ( Cap maior que 100 ) Health potion <= 10 ( Health potion menor ou igual a 10 ) Ou seja, vou colocar assim no code: Heath potion < 10 Desse jeito, o bot irá fazer somente, o que você colocar, quando você tiver 10 ou menos Health potion. Como Fazer o Deposit de Item Bom, agora que você colocou o CODE, você marque LEARN, e faça o caminho para a DP. Quando chegar no baú da dp, desmarque o LEARN, clique com o botao direito > Add > Depositer PRONTO! Agora o bot vai depositar TODOS os itens que esta no Loot do bot. Se eu colocar " Tarantula Egg ", no looter, na dp, ele vai depositar " Tarantula Egg ". Nao se esqueça de fazer o caminho de volta para a CAVE. Bom, quaquer duvida so postar abaixo. Créditos: Lucas Pace Tibia King

Tem sim, mas é macro. 500 {Exori Mort} Target.Health<50 say(exori mort) Bom, está ai. Fiz agora, porém não testei. Copie o código acima Advanced Tools > Macros Clique com o botão direito no retângulo branco Em seguida clique em Paste Codes Por ultimo, marque a Box active. Nota: altere o "50" para o valor desejado. Creio eu que seja em porcentagem. Se não for, você irá perceber. E então, é só alterar

Script: Item que nao pode dar trade Função : Não deixa o player dar trade com certo item Testado: Não Observação : Muito bom para os player não ficarem trocando os items vip INSTALANDO vá na pasta creaturescript/scripts e cria um arquivo no formato .lua com o nome de notrade e cole isto: local itemsnoTrade = {2160} function onTradeRequest(cid, target, item, targetItem) if (isInArray(itemsnoTrade, item.itemid)) then doPlayerSendCancel (cid, "You can't trade this item.") return false end return true end em seguida, em login.lua adicione o evento registerCreatureEvent(cid, "tradeRequest") depois em creaturescript.xml adicione a tag <event type="traderequest" name="tradeRequest" event="script" value="trade.lua"/> Como Editar: local itemsnoTrade = {item,item1,item2} Onde ta o nome item, voce coloca quais items que nao quer que de trade Créditos Jetro

Isso acontece porque ele so grana alguns points daonde vc anda, e vai andando ate esse point, pelo caminho mais curto. Se você quiser pode marcar a opçao para nao andar em cima do fogo. ( Se for esse o problema )

aumentei ele, agr ta maior que um humano e.e mais uns edits e.e