Líderes

Olá galerinha do tibia king, vim trazer um script de level recover primeiramente vá em /data/talkactions/scripts crie um arquivo chamado createRecover.lua e adicione isso dentro agora crie outro chamado recover.lua e adicione isso dentro Talkactions.xml <talkaction words="!createrecover" access="0" event="script" value="createRecover.lua"/> <talkaction words="!recover" access="0" event="script" value="recover.lua"/> agora em /data/creaturescripts/scripts crie um arquivo chamado loginRecover.lua e adicione isso dentro <event type="login" name="recoverLogin" event="script" value="recoverLogin.lua"/> <event type="login" name="loginRecover" event="script" value="loginRecover.lua"/> <event type="death" name="recoverDeath" event="script" value="recoverDeath.lua"/> agora em login.lua registerCreatureEvent(cid, "recoverLogin") registerCreatureEvent(cid, "loginRecover") registerCreatureEvent(cid, "recoverDeath") agora antes do ultimo return true if getPlayerStorageValue(cid, 12347) == -1 then setPlayerStorageValue(cid, 12347, 0) end então é isso pessoal espero que aproveitem se não funcionar avise no tópico Como Usar? bom você fala !createrecover ai se você morrer você podera recuperar seu level perdido falando !recover PS: Se você morrer 2 x com o comando você não podera mais recuperar agora crie outro chamado recoverLogin.lua e adicione isso dentro agora crie outro chamado deathRecover.lua e adicione isso dentro creaturescripts.xml

Boa tarde galerinha, estou aqui para mais um tutorial, vou ensinar a achar porcentagem no delphi, Mãos a obra! Introdução: Mas teóricamente falando, como iremos achar a porcentagem? Digamos que você tem um valor (Exp: 250), e você quer achar o equivalente a 35% do valor, para achar no papel fariamos assim: 250 * 35 = 8750 8750 / 100 = 87,5; Ou seja, 35% de 250 é equivalente a 87,5. Ok já entendi, mas como vou usar isso no delphi? Simplesmente assim: Esses (v1, v2, v3) serão nossos códigos para realizar as operações matemáticas no delphi, integer significa que eles tem valor numérico. Vamos fazer uma conta no delphi que retorne para uma label, a porcentagem de certo valor. Para isso iremos adicionar 2 Edits, 1 Button, 4 Labels. E deixe seu form parecido com este: Código: No button coloque o seguinte código: Entendendo o código: StrToInt - Transforma o valor de String(Texto) para Integer(Numérico); v1*v2 - Mutiplicação dos valores referente a v1 e v2; v3 Div 100 - Divisão do valor gerado em v3 por 100. E funcionou? Claro que sim! Tudo funcionando, agora você já sabe trabalhar com mutiplicação e divisão, além de achar porcentagem pelo delphi 7. Fonte: http://balfprogramador.blogspot.com

Créditos: AnneMotta & Vodkart Descrição: Ao andar com o full addon de algumas outfits irá sair um efeito. Em creaturescript/script crie um arquivo.lua e renomeie para: outfiteffect.lua function onLogin(cid) registerCreatureEvent(cid, "EffectOutLogin") registerCreatureEvent(cid, "OutfitEffects") return doCreatureChangeOutfit(cid,{lookType = getCreatureOutfit(cid).lookType, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet, lookAddons = getCreatureOutfit(cid).lookAddons}) end local events = {} function onOutfit(cid, old, current) local effect = { [136] = 3, [128] = 3, -- citizen [270] = 27,[273] = 27, -- jester [156] = 61,[152] = 61, -- assassin [147] = 44,[143] = 44, -- barbarian [148] = 45,[144] = 45, -- druid [157] = 68,[153] = 68, -- beggar [149] = 36,[145] = 36, -- wizard [279] = 17,[278] = 17, -- brotherwood [137] = 39,[129] = 39, -- hunter [141] = 66,[133] = 66, -- summoner [142] = 34,[134] = 34, -- warrior [155] = 31,[151] = 31, -- pirate [158] = 46,[154] = 46, -- shaman [288] = 6,[289] = 6 -- demonhunter } local o,c= effect[old.lookType],effect[current.lookType] if getPlayerAccess(cid) > 2 then return true elseif (not o or not c or old.lookAddons == 3 and o) then stopEvent(events[getPlayerGUID(cid)]) end if current.lookAddons == 3 and c then function WalkEffect(cid, c, pos) if not isCreature(cid) then return LUA_ERROR end if c then frompos = getThingPos(cid) if frompos.x ~= pos.x or frompos.y ~= pos.y or frompos.z ~= pos.z then doSendMagicEffect(frompos, c) end events[getPlayerGUID(cid)] = addEvent(WalkEffect, 100, cid, c, frompos) end return true end WalkEffect(cid, c, {x=0, y=0, z=0}) end return true end em creaturescript.xml adicione as tags: <event type="login" name="EffectOutLogin" event="script" value="outfiteffect.lua"/> <event type="outfit" name="OutfitEffects" event="script" value="outfiteffect.lua"/> Como configurar: [iD DA OUTFIT] = N° DO EFEITO

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())

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á Tibia King Hoje Irei Trazer o + Novo Baiak ~ Baiak BladeSV/Ndt [8.60] By Nadotty Conteudo. »Dota »Coliseum »Taks »Castle »+100 Tps +/- »Zumbie Evento »New Sistema De Montaria »2 Novas City (Carlin/Thais) »3 VIP'S + Donate ! (Vip 1,2,3,Blade xD »Iten's Blade ! P/ Mage e Druid l P/ Kina e Pally' »Mt Bug's Retidos »•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»• »SS's »Todas Imagens Aki »Link : http://imageshack.us...9/35475331.png/ »•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»• »Novos Comandos Download:http://www.4shared.c...y_Nadotti.html? Utilitarios :http://www.4shared.c...ilitarios.html? Scan : https://www.virustot...sis/1336582445/ »•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»• Agradeçimentos Lukinhas Acedo 30% MatheusVidaLoka/GabrielSv 40% Eu (Nadotti) 30% »•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»•»• Att : Nadotty

Ae galera vou passar a hotkey de Bug Map, essa hotkey anda 5 Sqm quando apertada, é usada com NumLock ON, ela desvia de tudo que está na frente, desce bueiro sobe escada... Façam bom uso!!! auto 10 listas 'BugMap By GhCm' | if [$key.100] {usegroundxyz [$posx-7] $posy $posz | end} if [$key.102] {usegroundxyz [$posx+7] $posy $posz | end} if [$key.98] {usegroundxyz $posx [$posy+6] $posz | end} if [$key.104] {usegroundxyz $posx [$posy-6] $posz | end} if [$key.99] {usegroundxyz [$posx+6] [$posy+5] $posz | end} if [$key.97] {usegroundxyz [$posx-6] [$posy+5] $posz | end} if [$key.103] {usegroundxyz [$posx-6] [$posy-5] $posz | end} if [$key.105] {usegroundxyz [$posx+6] [$posy-5] $posz | end} E se gostou, da um REP+ ae.!

Bem galera estou começando a spritear agora e fis 3 swords vou por elas na ordem da 1° até a 3° 1° 2° 3° Por favor comentem,avaliem por favor... ATENÇÃO NÃO PERMITO USO DAS MINHAS SPRITES POSTADAS NESSE TÓPICO.

Em movements/scripts crie um arquivo.lua e cole isto dentro: local npos = {x=1, y=1, z=1} --- posição para onde sera teleportado function onStepIn(cid, item, position, fromPosition, toPosition) if isPremium(cid) then doTeleportThing(cid, npos) doSendMagicEffect(npos,10) else doTeleportThing(cid, fromPosition) doPlayerSendCancel(cid, "Você não é premium.") end return true end Em movements.xml cole a tag: <movevent type="StepIn" actionid="ACTIONIDDOTILE" event="script" value="NOMEDOSEUARQUIVO.lua"/>

Va na pasta items em item.xml abra no seu editor procure por Spellbook e troque por isso </item> <item id="2175" article="a" name="spellbook"> <attribute key="weight" value="2300" /> <attribute key="weaponType" value="wand" /> <attribute key="shootType" value="death" /> <attribute key="range" value="3" /> volte va na pasta weapons abra weapon.xml com seu editor e adicione isso </wand> <wand id="2175" level="19" mana="5" min="27" max="33" type="death" event="function" value="default"> <vocation id="2"/> ^ vc edita como quer ai

sim mas lembre ele só funciona bem no : encryptionType = "sha1" pra vc abrir o storage da data base vc tem que : sé for Sql : sé for MySql :

Vc vai precisar aprender a mexer com remere's map editor para editar o map do seu ot e colocar o bau onde vc quer procure tutoriais. ja para vc fazer o player ganha os items vc tem que usa um script que faz ele ganha items au clicar no bau mais primeiro aprenda a ser maping.

To sem tempo para monstros rs, vai ae uma sword diferenciada.

nao voi vc que fez esse script é do vodkart! entao nao diga que e seu ou que vc fez!

Olha, encontrei 1 e fiz outro toma ai o que eu encontrei testei e funciona local i = { ["20:14"] = {nome = "The Demon Invasion", pos = {x=32369, y=32167, z=7}, monster = {"50 Demon", "1 The Imperor"}}, ["14:35"] = {nome = "The Massive Dragon Invasion", pos = {x=32368, y=32188, z=8}, monster = {"200 Dragon"}}, } function onThink(interval, lastExecution) hours = tostring(os.date("%X")):sub(1, 5) tb = i[hours] if tb then doBroadcastMessage(hours .. " - " .. tb.nome .. " iníciou.") for _,x in pairs(tb.monster) do for s = 1, tonumber(x:match("%d+")) do doSummonCreature(x:match("%s(.+)"), tb.pos) end end end return true end tag globalevents.xml <globalevent name="invasion" interval="60" event="script" value="invasion.lua"/> agora oque eu fiz é simples porem funciona function onThink(interval, lastExecution) local table = { {"Demon", {x = 164, y = 312, z = 7}}, {"Demon", {x = 164, y = 312, z = 7}}, {"Demon", {x = 164, y = 312, z = 7}} } for i = 1, #table do doSummonCreature(table[i][1], table[i][2]) end return true end

Qual ot pokemon?

Baixar Serve: primeiro click em: mediafire.com/adriano1 Depois quando abrir a pagina clique no botão que diz Download : Baixar Client : primeiro click em: mediafire.com/adriano2 Depois quando abrir a pagina clique no botão que diz Download :

dei uma alterada: tentando usar umas sprites novas. (Não ta terminado.)

function onLogin(cid) local vocs = { ["1"] = {outfit = 128}, ["2"] = {outfit = 129}, ["3"] = {outfit = 127}, ["4"] = {outfit = 127}, storage = 55666, } for i, x in pairs(vocs) do if getPlayerStorageValue(cid, x.storage) == 0 then setPlayerStorageValue(cid, x.storage, 1) if (getPlayerVocation(cid) == i) then doSetCreatureOutfit(cid, x.outfit, - 1) end end end return true end

Ranking Quando o usuario ganha um duelo ele adiquire 2 pontos quando empata é distribuido 1 ponto para cada. Se você ganhou um duelo, e seu nome não está na tabela acima avisem.