Líderes

Eaw Gallera Tibikinganos !! Depot Events Areas Para Upar ! Quests ! Area Para Diverssos Leveis ! Novos Treiners ! Areas Para Pescar ! Onde Vai Ser O Account Manager ! Pesca ! Frozen-hell ! ~//~ Entaum Pessoal Meu Ot Tem Systema Unico De Pesca ! E De Ctf Event E Wae Event Todos Sao Automaticos 2hrs Comessa Todos Com Seu Ot Online ! Download Map ! Scan Do Mapa ! Botei Os Items Donater Ao Lado Dos Treiners ! So Catar O Id Dos Items E Fazer Seu Set Ou Armas ! Bom Boa Sorte Com O Mapa Se Auguem Gostar Pode Dar 1 Rep + ! Boa Sorte Com O Mapa Atualizado ! Recomendo exp 450 Era Do Originall ! Galera dei Uma Retocada No Server Ta Em Novo Download ! [ Raell's Undead ] ! ATT ' Novo Updapt !! 12/03/2012 [Raell's Undead] Mapper º ~//~ [Creditos] [Huziwara] - > Por Me Ajudar Com Spells & Atack ! [Menoxide] - > Pelo Mapa 8.54 ! [Raell's Eu º] - > Por Editar 99% Do Mapa e Retirar Os Bugs 8.54 !

Olá TKbianos, Estou trazendo a vocês esse script de Change Sex 2.0, mas qual é a diferença para os outros ChangerSex ? Um pequena e valiosa diferença, para servidores sérios! Geralmente tem aqueles bugs de quando o player está com o mage addon de mulher (que são os itens de summoner, com nome de mage) e troca de sexo, o player fica de mage addon de homem (o addon dificil de fazer, ferumbras hat e a clava lá), isso é um BUG... pois erá pra ficar com o summoner addon male (capa e vials)... Bem, nesse script não tem essa : Tag XML : <talkaction words="!changesex" event="script" value="sex.lua"/> Crie um arquivo .lua nomeado para sex.lua na pasta de script do talkaction e bote isso : config = { costPremiumDays = 10 } function onSay(cid, words, param, channel) if(getPlayerSex(cid) >= 2) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You cannot change your gender.") return end if(getPlayerPremiumDays(cid) < config.costPremiumDays) then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Sorry, not enough premium time - changing gender costs " .. config.costPremiumDays .. " premium days.") doSendMagicEffect(getThingPosition(cid), CONST_ME_POFF) return end if(getPlayerPremiumDays(cid) < 65535) then doPlayerAddPremiumDays(cid, -config.costPremiumDays) end local c = { {3, 1, false, 6, 1}, {3, 2, false, 6, 2}, {6, 1, false, 3, 1}, {6, 2, false, 3, 2} } for i = 1, #c do if canPlayerWearOutfitId(cid, c[i][1], c[i][2]) then doPlayerRemoveOutfitId(cid, c[i][1], c[i][2]) c[i][3] = true end end doPlayerSetSex(cid, getPlayerSex(cid) == PLAYERSEX_FEMALE and PLAYERSEX_MALE or PLAYERSEX_FEMALE) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You have changed your gender and lost " .. config.costPremiumDays .. " days of premium time.") doSendMagicEffect(getThingPosition(cid), CONST_ME_MAGIC_RED) for i = 1, #c do if c[i][3] == true then doPlayerAddOutfitId(cid, c[i][4], c[i][5]) end end return true end Script muito util (eu acho). Espero que tenho ajudado ! Att. Huziwara no Mokou

era só procurar que você iria encontrar.

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

Bom galera, eu não vi ainda nenhum tutorial explicando isso aqui no forum, então resolvi fazer o meu ... Está bem simples mas axo qe está bom para entender Simples, faça seu waypoint, com no inicio uma label escrito start, E no final faça um Macro com o seguinte: 500 {Refill} Misc.ItemCountEx(266)>10 CaveBot.GoLabel(start)) Onde 10 é o tanto de pot para ele sair da cave e ir refillar, é 266 o ID da potion. ID | Name da Potion 7876 | Small Health Potion 266 | Health Potion 268 | Mana Potion 236 | Strong Health Potion 237 | Strong Mana Potion 239 | Great Health Potion 238 | Great Mana Potion 7642 | Great Spirit Potion 7643 | Ultimate Health Potion Agora ande até o bank, com o learn ativado, xegando la ADD um Hi, deposit all, yes, e crie um novo macro, com o seguinte: 1000 {Withdraw} VarSetEx(Total, NUMBEROFPOTS) VarSet(Potnow) Misc.ItemCountEx(IDITEMHERE) VarSub(Total, !Potnow!) VarMult(Total, PRICEEACHITEM) HUD.Display(!Total!) Self.Say(hi) Macro.Wait(2000) NPC.Say(withdraw) Macro.Wait(2000) NPC.Say(!Total!) Macro.Wait(2000) NPC.Say(yes)) Onde 'NUMBEROFPOTS' é o numero de potions qe voc quer qe ele fique no final; 'IDITEMHERE' é o ID da potion; 'PRICEEACHITEM' é o preço de cada potion. Agora, faça o caminho até a loja de potions, add um Hi/Trade, e coloque o seguinte macro la: 1000 {Pot Reffil} VarSetEx(Total, NUMBEROFPOTS) VarSet(Potnow) Misc.ItemCountEx(IDITEMHERE) VarSub(Total, !Potnow!) HUD.Display(!Total!) Self.Say(hi) Macro.Wait(2000) NPC.Say(trade) NPC.Buy(266, !Total!, 1) Macro.Wait(2000) NPC.Say(bye)) Onde 'NUMBEROFPOTS' é o numero de potions qe voc quer qe ele fique no final; 'IDITEMHERE' é o ID da potion. Agora faça o caminho de volta para a cave, salve seu waypoint e seja feliz. GOSTOU DO TUTORIAL ? Então de um REP+ ake em baixo NÃO GOSTOU DO TUTORIAL ? Então de um REP+ ake em baixo

Olá galerinha TKbianas, Estou começando aqui meu Show-Off, estou meio sem o que fazer, estárei aqui postando mapas diariamente para vocês avaliarem e falarem se gosto, se não gosto, me bate fale o que está faltando. Eu vou começar hoje por cidades, que eu ando fazendo ... Foto #1 : Foto #2 : Foto #3 : Foto 4# : Foto 5# : Foto 6# by Jared Leto : Update# Depot + Market System : Bem, não esqueça de avaliar e falar do que está faltando, dou ouvido a todas as criticas ! Att. Huziwara no Mokou

Aqui, talves possa servir pra você : By Skydangerous, de REP a ela, não para mim ! Espero ter ajudado Att. Huziwara no Mokou

functions.php Procure por: logo abaixo adicione: gifts.php Procure por: Substitua por:

Tenta esse:

IOEWIEWOEIWOEWIOEWIOEW, desculpe, nem tinha visto a váriavel $destination,

Bom, o tutorial está bom, mais creio que você limitou o xampp, pode ser qualquer versão, é só saber corrigir os erros no php.ini. Alguns erros cometidos, como FileZilla, porque você irá ativar e deixar com senha padrão, entram no ftp e pegam seu site inteiro, foda né. E o webdav que você acessar e já coloca uma shell e invade o dedicado, servidor, pega tudo. GG filhão. Não precisa remover todas as linhas com "dois tracinhos", é só remover alguns caracteres nas linhas que tem "dois tracinhos" no começo, nem o TAB no começo das configurações. é questão de organização. sqlFile não precisa ser editado, pode deixar do jeito que está que não vai afetar nada. Tutorial bem de leve, mais faltou muitos pontos na parte de segurança. Tutorial raso mesmo.

Turtles e Crocodiles - Port Hope Exp: 22k-24k/h Gp: 4-6k/h (fora shells e hammers) Monstros: Crocodile Turtles Loots: Gold Crocodile Boots - 3556 Turtle Shell - 5899 War Hammer - 3279 Piece of Crocodile Leather Crocodile Boots Requerimento: Level: 50+ Vocação: Knight ou Paladin; Premium Time: Sim; Equipamento: Knight-Set e uma boa arma O que levar: Cerca de 60 HP pra sua segurança. troll and crocodile port hope.wpt Alerts you when X of capacity.ng reconnecter.ng screenshot when level up.ng