Líderes

Antes de mais nada execute essas querys no seu banco de dados ALTER TABLE `guilds` ADD `frags` INT(11) NOT NULL DEFAULT 0; ALTER TABLE `guilds` ADD `acesstime` INT(15) NOT NULL DEFAULT 0; Sistema Configuração Actions function onUse(cid, item, frompos, item2, topos) local MyGuild = getPlayerGuildName(cid) if not HaveGuild(cid) then return doPlayerSendTextMessage(cid,22,"Sorry, you're not in a guild.") elseif not HaveAcess(MyGuild) then return doPlayerSendTextMessage(cid,22,"Your guild no has access to this area.") end doTransformItem(item.uid, item.itemid + 1) doTeleportThing(cid, topos, TRUE) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"Welcome,The access of your guild in this area ends in "..getAcessDate(getGuildWinnerName())) return true end Tag: <action actionid="84005" script="FragSystemDoor.lua"/> Creaturescript function onKill(cid, target, lastHit) local config = {MaxDifLevel = 50, MyGuild = getPlayerGuildName(cid)} if isPlayer(cid) and isPlayer(target) and HaveGuild(cid) and HaveGuild(target) and getPlayerGuildId(cid) ~= getPlayerGuildId(target) and getPlayerIp(target) ~= getPlayerIp(cid) and math.abs(getPlayerLevel(cid) - getPlayerLevel(target)) <= config.MaxDifLevel and getGlobalStorageValue(frag_guild.start_frags) <= 0 then addFragsByGuild(config.MyGuild,frag_guild.FragsPerKill) doBroadCastGuild(config.MyGuild,20,'[Guild Frag System] Your guild received '..frag_guild.FragsPerKill..' frag because have killed a player another guild, now your guild have '..getFragsByGuild(config.MyGuild)..' frags') if getFragsByGuild(config.MyGuild) >= frag_guild.FragsToWinAcess then addAcess(config.MyGuild, frag_guild.AcessTimeDays) addHonorPoints(config.MyGuild, frag_guild.Honor_Point) doBroadcastMessage("[Guild Frag System]\nThe guild ["..config.MyGuild.."] is dominant for having achieved "..frag_guild.FragsToWinAcess.." Frags!\nYour domain ends in "..getAcessDate(config.MyGuild)) cleanGuildFrags() setGlobalStorageValue(frag_guild.start_frags, 1) if frag_guild.MoreExpToGuild == true then local players = {} for _, cid in pairs(getPlayersOnline()) do if getPlayerGuildName(cid) == config.MyGuild then table.insert(players, cid) end end for i = 1, #players do doPlayerSetExperienceRate(players[i], frag_guild.Exp_Rate) end end end end return TRUE end GuildFragsLogin.lua function onLogin(cid) registerCreatureEvent(cid, "FragsGuildLogin") registerCreatureEvent(cid, "FragsGuildKill") if getPlayerStorageValue(cid,frag_guild.Honor_Storage) == -1 then setPlayerStorageValue(cid, frag_guild.Honor_Storage, 0) end local MyGuild,StorCheck = getPlayerGuildName(cid),17595 if HaveGuild(cid) then if HaveAcess(MyGuild) then setPlayerStorageValue(cid, StorCheck, 1) if frag_guild.MoreExpToGuild == true then doPlayerSetExperienceRate(cid, frag_guild.Exp_Rate) end elseif getPlayerStorageValue(cid, StorCheck) == 1 and not HaveAcess(MyGuild) then doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid))) doPlayerPopupFYI(cid, "[Guild Frag System]\nThe domain of your guild is over and you've been teleported to the temple.") setPlayerStorageValue(cid, StorCheck, -1) if getGlobalStorageValue(frag_guild.start_frags) >= 1 then setGlobalStorageValue(frag_guild.start_frags, 0) end end end return TRUE end Tag <event type="login" name="FragsGuildLogin" script="GuildFragsLogin.lua"/> <event type="kill" name="FragsGuildKill" script="GuildFragsKill.lua"/> globalevent function onThink(interval, lastExecution) if getGuildWinnerName() == "" and getGlobalStorageValue(frag_guild.start_frags) >= 1 then setGlobalStorageValue(frag_guild.start_frags, 0) end return doBroadcastMessage("".. (getGuildWinnerName() == "" and "[Guild Frag System]\nThe first guild to reach "..frag_guild.FragsToWinAcess.." frags will gain "..frag_guild.AcessTimeDays.." days of access to exclusive areas, for more information enter !guildfrags" or "[Guild Frag System]\nCurrently guild dominant is ["..getGuildWinnerName().."] and your domain ends in "..getAcessDate(getGuildWinnerName()).."") .."", 22) end Tag <globalevent name="GuildFrags" interval="1800" event="script" value="GuildFragsInfo.lua"/> talkactions function onSay(cid, words, param) if words == "!myhonor" or words == "/myhonor" then return doPlayerPopupFYI(cid,"Honor Points can be exchanged for special items in npc\nAnd each domain, every guild players receive "..frag_guild.Honor_Point.." Honor Points!\n\n\nMy Honor Points: "..getHonorPoints(cid)) elseif words == "!guildfrags" or words == "/guildfrags" then if param == "rank" then local max_guild,str = 10,"" str = "--[ Rank Guild Frags ]--\n\n" query = db.getResult("SELECT `name`, `frags` FROM `guilds` WHERE `frags` ORDER BY `frags` DESC, `name` ASC;") if (query:getID() ~= -1) then k = 1 while true do str = str .. "\n " .. k .. ". " .. query:getDataString("name") .. " - [" .. query:getDataInt("frags") .. "]" k = k + 1 if not(query:next()) or k > max_guild then break end end query:free()end if str ~= "" then doPlayerPopupFYI(cid, str) end return true end doPlayerPopupFYI(cid,"".. (getGuildWinnerName() == "" and "The server does not have any dominant guild\n\nTo show the rank of frags enter !guildfrags rank" or "Currently guild dominant is ["..getGuildWinnerName().."]\n\nYour domain ends in "..getAcessDate(getGuildWinnerName()).."") .."") end return true end Tag <talkaction words="!guildfrags;/guildfrags;!myhonor;/myhonor" event="script" value="GuildFragsRank.lua"/> Por Mod Npc (obs: o NPC funciona caso você use MOD tbm) <?xml version="1.0"?> <npc name="Major Ancient" script="data/npc/scripts/trade_honor.lua" walkinterval="50000" floorchange="0"> <health now="100" max="100"/> <look type="287" head="78" body="88" legs="0" feet="88" addons="3"/> <parameters> <parameter key="message_greet" value="Hello |PLAYERNAME|. I {trade} items for honor points!"/> </parameters> </npc> trade_honor.lua local keywordHandler = KeywordHandler:new() local npcHandler = NpcHandler:new(keywordHandler) NpcSystem.parseParameters(npcHandler) local talkState = {} function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end function onThink() npcHandler:onThink() end function creatureSayCallback(cid, type, msg) if(not npcHandler:isFocused(cid)) then return false end local talkUser = NPCHANDLER_CONVbehavior == CONVERSATION_DEFAULT and 0 or cid local Honor_Storage = 215548 function getHonorPoints(cid) local Honor = getPlayerStorageValue(cid, Honor_Storage) return Honor < 0 and 0 or Honor end local shopWindow = {} local t = { [2195] = {price = 5}, -- [id do item] e em price qnto honor points vai custar [2493] = {price = 25}, [2361] = {price = 30}, [8851] = {price = 20}, [8925] = {price = 30}, [2640] = {price = 50}, [2494] = {price = 100}, [9932] = {price = 50}, [2472] = {price = 70}, [8931] = {price = 100} } local onBuy = function(cid, item, subType, amount, ignoreCap, inBackpacks) if t[item] and getHonorPoints(cid) < t[item].price then selfSay("you do not have "..t[item].price.." Honor Points", cid) else doPlayerAddItem(cid, item) setPlayerStorageValue(cid, Honor_Storage, getPlayerStorageValue(cid, Honor_Storage) - t[item].price) selfSay("Here you item", cid) end return true end if (msgcontains(msg, 'trade') or msgcontains(msg, 'TRADE'))then for var, ret in pairs(t) do table.insert(shopWindow, {id = var, subType = 0, buy = ret.price, sell = 0, name = getItemNameById(var)}) end openShopWindow(cid, shopWindow, onBuy, onSell) end return true end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new())

Dat Editor (Tutorial Outfits) Olá galera vim hoje disponibilizar para você um dat editor que funciona nas seguintes versões, 8.54 e 8.60, algums não sabem para que serve ele de certo, o dat editor é uma forma rapida, de trocar suas sprites, e editar as funções dos items. Download Anexado: Link Direto Scan: aqui

Bom pessoal,depois de um tempo,tentei usar varios bots novos, (RedBot,RvBot,Etc) Entao comecei a mecher no Blackd Proxy,e depois de uns 2 dias,entendi como funciona. Bem,vou compartilhar meu conhecimento,agr que sei como funciona xD 1 - Interface. 2 – Cheats Esta é a parte cheats , aqui você encontra várias opções , como arrumar a intensidade da luz , usar exura vita quando seu HP estiver com tantos % . 1-Essa opção é para ativar todos os cheats que você configurar. Se você desativar, eles irão parar de funcionar. (AVAAAA) 2-Se chegar alguma pessoa ou monstro na tela , seu char loga 3-Esta opção é 1 alarme que apita quando estiver faltando tantos X de UHS você pode configurar ali no quadradinho 4-Esta opção revela as criaturas invisivei 5-Muda a intensidade da Luz 6- Te heala com runa quando sua HP estiver com menos de tantos % 7- Te heala com Exura Vita quando sua HP estiver com menos de tantos % 8-Esta opção você pode enviar comandos para serem executados , bom para quando você esta em war e para combos [Ex: firesdnow:Jon (irá soltar sd no player)] 9-Esta opção é para não aceitar as ordens ( da opção 8) de todos , apenas de 1 player ai você coloca o nome da pessoa naquela caixinha. 10- Esta opção abre um mapa , é bom para você localizar pessoas 11-Esta opção , carrega sua backpack e todos os items são checados nela (EX. you have 3 items found in your backpack) 12-Esta opção também mostra o mapa , porém em “tempo real” ela mostra aonde estão os monstros . 13-Carrega a sua posição nos mapas 14-Coloque em ontop para deixar o mapa no topo 15-Atualiza automaticamente sua posição , você pode configurar um tempo em milissegundos para ser atualizada. 16-Esta é uma lista de todos os comandos que você pode usar (em breve eu explicarei com detalhes esta parte) 17-Esta opção é para usar as uh no modo clássico , prescisa abrir as bps , deixe no modo que esta selecionado , que você não prescisará abrir as bps 18-Quando ativado , e quando você digitar certos comandos (em breve irei explicar) , colore sua tela com diferentes cores 19-Mostra sua experiência no titulo da janela 20-Cada vez que você upar , o bot te manda uma mensagem de gratz 21- Seu char é relogado sempre que for kikado , e reabre as bps 22-Quando ativado , se a aparecer um GM , na tela , o bot irá pausar o bot 23- Esta opção , não irar usar runas de danos quando sua HP estiver com tantos % e passará a usar runas de heal 24-Aqui que determina oq acontece quando você diz “exiva exp” por exemplo , deixe como está 25-Aqui determina o texto que aparece na janela do seu Tíbia , deixe como está para quando ativar a opção de exp aparece ela 3 – Runemaker O próprio nome já diz, para deixar o char criando runas 1-Ative está opção para o char utilizar a mão direita quando for runar (RIGHT) ou esquerda (LEFT). 2-Aqui é para selecionar o char que vai runar (Caso você esteja de MC). 3-Ativa todos os comandos para o char começar a runar. 4-Come food automaticamente. 5-Se tiver algum monstro ou player na sua tela (subsolo ou em cima) o char loga. 6-Se tiver algum monstro ou player na sua tela o char loga. 7-Quando as runas ou soulpoints acabar o char loga. 8-Da um Apito, se você receber alguma mensagem 9-Da um apito se alguém que não está na safelist estiver na sua tela 10-Usa mana fluid se estiver com um tanto certo de mana 11- Aqui é para selecionar o tanto de mana para usar o manafluid 12-Se acabar as runas ou soulpoints ele passa a usar a magia colocada na opção 13 13-Aqui você coloca a magia se acabar runa ou soulpoints ele passa a ultiliza-la 14-O tanto de mana que é usada a magia da opção 13 15-Runa que irá usar caso não tenha mais mana/soulpoint para a outra runa como se fosse uma runemaker “reserva”. 16- O tanto de mana que gasta a runa. 17- O soulpoint que gasta a runa. 19-Se você for kikado , apita um som 20-Aqui é para parar todos os alarmes 21-Aqui é a safelist coloque o nome do player na janela e clique em adiciona 4 – Cavebot Finalmente,a parte mais chata :DD,mais fikem tranquilos,depois de um tempo vcs se acostumam como eu (to com varios maker de bot ja :x ) Primeiro,vou comecar falando as funcoes: PRIMEIRO DE TUDO : SEMPRE ANTES DE QUALQUER WAYPOINT,SEMPRE COMECE PELAS CONFIGURACOES, (Ex:PARA MATAR TAL MONSTRO),E DEPOIS,SEMPRE QUE TERMINAR SEU SCRIPT,CLIKE NA FUNCAO gotoScriptLine 0,Para sempre que terminar seu script,comecar denovo,se nao so vai rodar 1 vez. 1- SetMeleeKill : Ali Voce coloca O Monstro que Voce quer que ataque (Ex: SetMeleeKill Troll) 2- SetLoot : Parte Dos Loots,ali voce coloca o id do item (EX: D7 0B = GOLD | Se voce quiser colocar outros items,e so dar look no item e pegar o id.) Por exemplo,O Meat (03:52 You see tile ID F9 0D with info + pickupable=TRUE + stackeable=TRUE + haveExtraByte=TRUE + isFood=TRUE + itemName=meat) Entao voce teria que colocar ali F9 0D,para pegar o meat. 3- SetHmmKill :O Nome ja diz,coloque o nome do bixo que e pra atacar Hmm. 4- SetPriority : Para dar prioridade a certo bicho (Ex:Coloco ali Troll Champion,entao se ver um Troll e um Troll Champion na tela,ele vai matar o Troll Champion primeiro e depois vai matar o Troll) E Do lado,voce coloca a prioridade,(Ex: +1,+2,etc.) 5- SetSpellKill :Para matar certo bixo com tal spell (Ex: SetSpellKill Dragon,exori vis.) 6- Move <current x,y,z> : Essa E a Parte dos waypoints,lembre,so adicione waypoints depois que usar todas as funcoes (Ex: SetMeleeKill,SetLoot,SetHmmKill,etc.) 7- UseItem <current x,y,z> : Essa Parte e para ladeiras,escadas,ou algum item pra usar em x,y,z coordenadas. 8- ResetLoot : Para resetar a sua lista de loot. 9- ResetKill : Ainda nao vi pra que serve. 10- SayMessage : Para dizer alguma coisa em tal coordenada. 11- SayInTrade : Essa parte de depot,banker e etc,ainda nao vi. 12- gotoScriptLine 0 : SEMPRE,SEMPRE QUE TERMINAR SEU SCRIPT,USE ESSA FUNCAO,PARA QUANDO TERMINAR SEU SCRIPT,COMECAR TUDO DE NOVO. Bem,depois que termina,ali em File,digite o nome do seu waypoint, (Ex: MeuWaypoint.txt ),e clique no botao Save Script. 5 – Warbot Essa parte eu n sei mt ainda :S Mais pela foto da pra perceber um poco,depois dou um edit aqui. 6 – Tools Esta parte é mais para diversão , você pode criar items fake , e configurar para um char fake mandar uma mensagem para você , por exemplo aonde está escrito fake level , você coloca o lvl do cara que vai mandar a mensagem , em hello! você digita a mensagem , e em GM Guido o nome do fake ai depois apenas clique em Send Msg. Para pegar os ids dos items , apenas seleciona Inspect tileIDs ingame ai quando você der look em algo , vai aparecer o id! 7 – Proxy Esta parte mostra os logs e conexões do Server , recomendo NÃO ALTERAR nada aqui , apenas se for jogar algum OT , clique em forward to OT Server e depois você coloca o ip e porta ali em baixo nas janelinhas 8 – Stop Alarm Quando estiver apitando, apenas clique aqui para pausar o alarme 9 – Trainer Para deixar Treinando ;o 1-Selecione o Char que irá executar as funções 2- aqui era pra quando as spear caiam mais um bom jeito é deixar um monte de spear em baixo de você para quando acabar , ai você seleciona o quadrado que ela vai estar 3-O ID da spear 4-Para onde a spear Irá 5-O tanto de spear que você pode pegar 6-Aqui você configura os items que quando você ativar o trainer o trainer ira usar , exemplo você está de full set e usa outro set para treinar, aqui você pode configurar isto. 7-Parar de atacar até regenerar tantos % do HP do alvo 8-Dançar a cada 15 minutos 9-Evitar atacar monstro com o ID : 10-Clique aqui e mostrara o ID do ultimo monstro que você atacou. DOWNLOAD BLACKD PROXY SITE OFICIAL : http://blackdtools.c...eedownloads.php +REP meus amigões

SetWindowText(KClient.Handle, "Tibia Bot");

[DllImport("user32.dll")] public static extern void SetWindowText(IntPtr hWnd, string str); SetWindowText(Tibia.MainWindowHandle, "Tibia Bot")

Amigo Pra você que esta iniciando usa Mysql Com um Niccaaw .. Creio que esse sv eh feito pra Mysql.. Se quizer ajuda tenho Modelos de Website.. Posso estalar pra você via Team Viewer.. ; ) A noite to voltando do servico ai agente se fala

Adiciona esta tabela na Db: CREATE TABLE IF NOT EXISTS `z_ots_comunication` ( `id` int(11) NOT NULL AUTO_INCREMENT, `name` varchar(255) NOT NULL, `login` varchar(255) NOT NULL, `type` varchar(255) NOT NULL, `action` varchar(255) NOT NULL, `param1` varchar(255) NOT NULL, `param2` varchar(255) NOT NULL, `param3` varchar(255) NOT NULL, `param4` varchar(255) NOT NULL, `param5` varchar(255) NOT NULL, `param6` varchar(255) NOT NULL, `param7` varchar(255) NOT NULL, `delete_it` int(2) NOT NULL DEFAULT '1', PRIMARY KEY (`id`) ) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=230 ;

Faltou o cid no getPlayerLevel, faltou a virgula no item = 5952, tu esqueceu do config doPlayerRemoveItem(cid, item, 1), Falta parametro doSummonMonster(cid, config.creature)

Rayner o Catch fica na pasta Data/Actions/Script um arquivo chamado Catch.lua você abre ele e tem a porcentagem nele logo no começo que é assim : O 2394 é a pokeball, normal ball... O 2391 é a Great Ball .. O 2393 é a Super ball... O 2392 é a ultra ball onde está assim : {cr = 10 esse 10 é a porcentagem que a ball terá... -------------------------------------------------------------------------------------------------------------------------------------- Agora vamos para a Experiencia... data/lib/configuracao Existe 3 linhas : essas... a 1º Linha é % de experiencia que o Player irá ganhar.. a 2º é a experiencia do pokemon ira ganhar... e a 3º e a base que os 2 ganharam. eu aconselho deixar a 1º em 2 2ª em 2 e a terceira em 5. Assim fica Razoalvél.. a experiencia. Ajudei ? REP ++ Ae Qualquer duvida , comente.

Entre em Data > Talkactions > Scripts Copie e cole um arquivo , depois renome-e para leavehouse Abra-o e cole o seguinte script. function onSay(cid, words, param) if getTileHouseInfo(getPlayerPosition(cid)) ~= FALSE then if getHouseOwner(getTileHouseInfo(getPlayerPosition(cid))) == getPlayerGUID(cid) then setHouseOwner(getTileHouseInfo(getPlayerPosition(cid)), 0) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You have successfully left your house.") else doPlayerSendCancel(cid, "You are not the owner of this house.") doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) end else doPlayerSendCancel(cid, "You are not inside a house.") doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) end end Depois salve e feche. Depois abra o Talkactions.xml e cole a seguinte TAG. <talkaction words="!leavehouse" script="leavehouse.lua"/> Ajudei ? da um gostei ali >>

Minha primeira quest, fiz ela para servidores de xp baixa que começa com level baixo (ex:1, 3) , graças ao Matheus , eu consegui fazer function onUse(cid, item, fromPosition, itemEx, toPosition) local itemid = 2398 local storage = 7001 if getPlayerStorageValue(cid, storage) < 1 then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You have found a "..getItemNameById(itemid)..".") doPlayerAddItem(cid, itemid, 1) doPlayerSetStorageValue(cid, storage, 1) else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "It is empty.") end return TRUE end É isso ai , se gostarem deem +rep , se acharem bug me mostrem.

protocolgame.cpp

Download com idHTTP e ProgressBar. Na verdade é meio que um Downloader. Tutorial: 1- Inicie um novo projeto : File / New / VCL Form Aplication; 2- Coloque um Button, um Edit, um Progressbar e um Label, e um idHTTP (Paleta Indy Clients); 3- No evento OnClick do Button coloque o código abaixo: var arquivo,caminho : string; MyFile: TFileStream; begin // definir o link caminho:= 'http://127.0.0.1/'; // aqui defini um caminho pardão pro download , pode ser trocado por um edit, etc arquivo:= edit1.text; // nome do arquivo para download MyFile := TFileStream.Create('C:'+arquivo, fmCreate); // local no hd e nome do arquivo com a extensão, onde vai salvar. try IdHTTP1.Get('http://127.0.0.1/'+arquivo, MyFile); // fazendo o download do arquivo finally MyFile.Free; end; 4- No evento OnWork do idHTTP1: ProgressBar1.Position := AWorkCount; 5- No evento OnWorkBegin do idHTTP1: ProgressBar1.Position := 0; ProgressBar1.Max := AWorkCountMax; Label1.caption := "Download em andamente, espere!"; 6- No evento OnWorkEnd do idHTTP1: ProgressBar1.Position := ProgressBar1.Max; Label1.caption := "Download Concluído!"; 7- Agora dê F9, e teste a aplicação. Créditos : Song.

Iae galera do tk to precisando de um script urgente para meu um comando que coloque item na bp do player ja vi varios tutoriais ai /additem nenhum funciono quem puder me majuda dou resp e tou procurando um scripte para meu otserv .