Vodkart

The guild will Frag only if: Killing each other with different IP (not to be abused) Killing a player with different guild Level diff 50 - (configurable) -------------------------------------------------------------------- @edite first update: Honor point adicionado! para saber mais leia o tópico

local npc,pos = "Rashid",{x=x,y=y,z=z} doCreateNpc(npc, pos) -- faz criar o npc doRemoveCreature(getCreatureByName(npc)) -- faz deletar o npc

testa essa local t = { lvl = 100, entrada = { {x = 710, y = 1420, z = 5}, {x = 709, y = 1420, z = 5}, {x = 708, y = 1420, z = 5}, {x = 707, y = 1420, z = 5} }, saida = { {x = 710, y = 1420, z = 6}, {x = 709, y = 1420, z = 6}, {x = 708, y = 1420, z = 6}, {x = 707, y = 1420, z = 6} }, monstros = { {{x = 707, y = 1418, z = 6}, "Demon"}, {{x = 709, y = 1418, z = 6}, "Demon"}, {{x = 708, y = 1422, z = 6}, "Demon"}, {{x = 710, y = 1422, z = 6}, "Demon"}, {{x = 712, y = 1420, z = 6}, "Hellfire Fighter"}, {{x = 713, y = 1420, z = 6}, "Hellfire Fighter"}, {{x = 711, y = 1420, z = 6}, "Ghazbaran"} } } function onUse(cid, item, fromPosition, itemEx, toPosition) local check = {} for _, k in ipairs(t.entrada) do local x = getTopCreature(k).uid if(x == 0 or not isPlayer(x) or getPlayerLevel(x) < t.lvl) then doPlayerSendCancel(cid, 'Está faltando player ou alguém não possui level '..t.lvl..' ou mais.') return true end table.insert(check, x) end for _, summon in pairs(t.monstros) do local creature = getTopCreature(summon[1]).uid if(creature > 0 and not isPlayer(creature)) then doRemoveCreature(creature) end doCleanTile(summon[1]) doCreateMonster(summon[2], summon[1]) end for i, tid in ipairs(check) do doSendMagicEffect(t.entrada[i], CONST_ME_POFF) doTeleportThing(tid, t.saida[i], false) doSendMagicEffect(t.saida[i], CONST_ME_ENERGYAREA) end doTransformItem(item.uid, item.itemid == 1945 and 1946 or 1945) return true end só editar ela

local err = createCombatArea({ {0, 0, 1, 1, 1, 0, 0}, {0, 1, 1, 1, 1, 1, 0}, {1, 1, 1, 1, 1, 1, 1}, {1, 1, 1, 3, 1, 1, 1}, {1, 1, 1, 1, 1, 1, 1}, {0, 1, 1, 1, 1, 1, 0}, {0, 0, 1, 1, 1, 0, 0}}) function onUse(cid, item, frompos, item2, topos) --Script "Bomba" by Jedian local storage = 11148 -- não mexa aqui local exausted = 10 -- Tempo para player poder usar o item novamente! (tempo em segundos) if getPlayerStorageValue(cid, storage) >= os.time() then return doPlayerSendCancel(cid, "wait " .. getPlayerStorageValue(cid, storage) - os.time() .. " seconds to use this item again.") elseif frompos.x == 65535 then return doPlayerSendCancel(cid, 'You cannot use it here.') end setPlayerStorageValue(cid, storage, os.time()+exausted) doRemoveItem(item.uid, 1) doSendMagicEffect(frompos, 32) local m = {[0] = 0, [1] = 5, [2] = 4, [3] = 3, [4] = 2, [5] = 1} for i, v in ipairs(m) do addEvent(doSendAnimatedText, (i - 1)*1000, frompos, v, 180) end addEvent(af, 5050, cid, item, frompos, item2, topos) return true end function af(cid, item, frompos, item2, topos) doSendAnimatedText(frompos, 'Caboom!', 180) doAreaCombatHealth(0, 8, frompos, err, -500, -1000, 8) end vai em spells.xml e onde estiver needlearn="0" vc coloca needlearn="1" needlearn="0" -- é se precisa aprender para usar , 0 no caso é false needlearn="1" -- se precisa aprender a magia para usar, 1 é true

é diz que não a coluna 'killer_by' na database 'player_deaths' eu to mexendo numa aqui mais só está funcionando com bixos, se for com player da debug :S vou ver se consigo arrumar ta assim soh pra bixo a base é essa http://code.google.com/p/gesior-aac/source/browse/trunk/upload/killstatistics.php?r=164

tem, dá para fazer um loop na arena ou usar storage como funciona sua arena? os player tem que puxar alavanca para entrar? explica direitinho ai

tenta trocar ali onde ta time por date

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 itemid = 9020 local t = { ["light healing"] = {price = 15,vocations = {1,2,3,4},level = 9}, ["find person"] = {price = 25,vocations = {3,4},level = 8}, ["light magic missile"] = {price =30,vocations = {1,5,4,7,8},level = 15}, ["energy strike"] = {price = 20,vocations = {1,2,5,6},level = 12}, ["flame strike"] = {price = 100,vocations = {1,2,5,6},level = 12} } if (msgcontains(msg, 'SPELLS') or msgcontains(msg, 'spells'))then local str = "" str = str .. "Eu vendo estas Magias: " for name, pos in pairs(t) do str = str.." {"..name.."} por "..pos.price.." iten(s)/" end str = str .. "." npcHandler:say(str, cid) local msg = string.lower(msg) elseif t[msg] then if not getPlayerLearnedInstantSpell(cid, msg) then if getPlayerLevel(cid) >= t[msg].level then if isInArray(t[msg].vocations, getPlayerVocation(cid)) then if doPlayerRemoveItem(cid,itemid,t[msg].price) then doPlayerLearnInstantSpell(cid, msg) npcHandler:say("Você aprendeu uma nova magia chamada ".. msg .."!", cid) else npcHandler:say("você precisa de "..t[msg].price.." ".. getItemNameById(itemid), cid) end else npcHandler:say("você não tem a vocação para comprar está spell.", cid) end else npcHandler:say("você precisa ter level "..t[msg].level.." ou mais para comprar essa magia.", cid) end else npcHandler:say("você já aprendeu essa magia.", cid) end end return TRUE end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new()) local itemid = 9020 -- id do item que ele vai precisar ter

adolffu eu só copei o seu script, mas deveria prestar mais atenção nas funções você está chamando pelo doPlayeraddItem(cid, 2470, 1) enquanto o correto é doPlayerAddItem((cid, 2470, 1) ¬¬

existe sim, eu estou vendo algumas querys aqui, para mysql existe vários comandos death list: local config = {displayLimit = 10} function onSay(cid, words, param, channel) local target = db.getResult("SELECT `name`, `id` FROM `players` WHERE `name` = " .. db.escapeString(param) .. ";") if(target:getID() == -1) then doPlayerSendCancel(cid, "A player with that name does not exist.") return TRUE end local targetName = target:getDataString("name") local targetGUID = target:getDataInt("id") target:free() local str = "" local deaths = db.getResult("SELECT `time`, `level`, `killed_by`, `altkilled_by` FROM `player_deaths` WHERE `player_id` = " .. targetGUID .. " ORDER BY `time` DESC;") if(deaths:getID() ~= -1) then local n = 0 local breakline = "" repeat n = n + 1 if(str ~= "") then breakline = "\n" end local time = os.date("%d %B %Y %X ", deaths:getDataInt("time")) local level = deaths:getDataInt("level") local lastHitKiller = deaths:getDataString("killed_by") local mostDamageKiller = deaths:getDataString("altkilled_by") local killed = "" if(tonumber(lastHitKiller)) then killed = getPlayerNameByGUID(tonumber(lastHitKiller)) else killed = getArticle(lastHitKiller) .. " " .. string.lower(lastHitKiller) end if(mostDamageKiller ~= "") then if(tonumber(mostDamageKiller)) then killed = killed .. " and by " .. getPlayerNameByGUID(tonumber(mostDamageKiller)) else killed = killed .. " and by " .. getArticle(mostDamageKiller) .. " " .. string.lower(mostDamageKiller) end end str = str .. breakline .. " " .. time .. " Died at Level " .. level .. " by " .. killed .. "." until not(deaths:next()) or n > config.displayLimit deaths:free() else str = "No deaths recorded." end doPlayerPopupFYI(cid, "Deathlist for player: " .. targetName .. ".\n\n" .. str) return TRUE end só que na database pelo sqlite essa query player_deaths é diferente, só tem date e level :S @nathan seu ot é sqlite ou mysql?

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 if msgcontains(msg, 'orcs') then selfSay('Ok, confio na lealdade deles. Você quer ver a {Luna} não é?', cid) talkState[talkUser] = 2 elseif msgcontains(msg, 'luna') and talkState[talkUser] == 2 then selfSay('Você só poderá encontra-la se provar a sua fidelidade com os Elfos! Você deseja {continuar}?', cid) talkState[talkUser] = 3 elseif msgcontains(msg, 'continuar') and talkState[talkUser] == 3 then selfSay('Ok, prove sua bravura matando alguns Krakens e traga-me uma {Golden Armor}.', cid) talkState[talkUser] = 4 elseif(msgcontains(msg, 'golden armor') and talkState[talkUser] == 4) then if (getPlayerStorageValue(cid,2121) <= 0) then if (doPlayerRemoveItem(cid, 2466, 1) == TRUE) then setPlayerStorageValue(cid,2121,1) doPlayerAddExperience(cid,10000) doPlayeraddItem(cid, 2470, 1) selfSay('Parabens, voce completou a missao!', cid) else selfSay('Voce precisa ter mais items.', cid) end else selfSay('você já recebeu sua recompensa!', cid) talkState[talkUser] = 0 end end return true end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new())

acho que não é muito difícil se fazer, é só pegar os dados na database em 'player_deaths' Oque eu quero entender é que tipo, se ele tiver 100 mortes vai aparecer as 100 mortes? Eu não jogo tibia, ou só aparece as mais recentes?

o erro está claramente na estrutura de controle if if (getPlayerStorageValue(cid,2121) > 0) then selfSay('Parabens, voce completou a missao!', cid) else if(doPlayerRemoveItem(cid, 2466, 1) == TRUE) then setPlayerStorageValue(cid,2121,1) doPlayerAddExperience(cid,10000) doPlayeraddItem(cid, 2470, 1) else selfSay('Voce precisa ter mais items.', cid) end end if bloco then -- código end -------------------------------- if bloco then --codigo else --codigo end -------------------------------- if bloco then --codigo elseif bloco then -- codigo end -------------------------------- Toda vez que abrir um "if" se deve usar o "end" para fecha-lo if (getPlayerStorageValue(cid,2121) <= 0) then if (doPlayerRemoveItem(cid, 2466, 1) == TRUE) then setPlayerStorageValue(cid,2121,1) doPlayerAddExperience(cid,10000) doPlayeraddItem(cid, 2470, 1) selfSay('Parabens, voce completou a missao!', cid) else selfSay('Voce precisa ter mais items.', cid) end else selfSay('você já recebeu sua recompensa!', cid) talkState[talkUser] = 0 end

agr que eu vi try this 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 npcHandler:setMessage(MESSAGE_GREET, "Olá, sou um grande pesquisador de Pokemóns..") function creatureSayCallback(cid, type, msg) if(not npcHandler:isFocused(cid)) then return false end local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid if msgcontains(msg, 'help') then if getPlayerStorageValue(cid,8002312) == 1 then selfSay('Obrigado, amanhã entrarei em contato com ela.', cid) talkState[talkUser] = 1 else selfSay('Não tenho nada pra falar com você', cid) end elseif msgcontains(msg, 'yes') and talkState[talkUser] == 1 then if doPlayerRemoveItem(cid,8370,1) then setPlayerStorageValue(cid,8002312,2) selfSay('Muito Obrigado', cid) talkState[talkUser] = 1 else selfSay('Você não tem a carta dela', cid) end elseif msg == "no" then selfSay("ok então", cid) talkState[talkUser] = 0 end return true end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new())

if(msgcontains(msg, 'help')) then if getPlayerStorageValue(cid,8002312) == -1 then selfSay('Você pode entregar essa carta ao Professor Oak?', cid) setPlayerStorageValue(cid,8002312,1) doPlayerAddItem(cid,8370,1) elseif getPlayerStorageValue(cid,8002312) == 2 then selfSay('Obrigado. Você foi de grande ajuda! Receba sua recompensa!!!', cid) setPlayerStorageValue(cid,8002312,3) doPlayerAddItem(cid,2152,5) elseif getPlayerStorageValue(cid,8002312) == 3 then selfSay('vá embora. Você já sua recompensa!!!', cid) else selfSay('Eu ja te dei a carta, aguardo resposta', cid) end end

qual erro?

rlx vc ja me deu tanto rep q nem precisa mais kk reporta o tópico ai abraços

function onSay(cid, words, param, channel) local mensage1 = "[Kamikaze Event] Evento aberto! O portal será fechado em 2 minutos." -- Mensagem Inicial local monster = "Kamikaze I" -- Geradores Iniciais local minutos = 1 gatepos = {x=2392, y=806, z=7, stackpos=1} -- Posição da Pedra getgate = getThingfromPos(gatepos) local id,pos,x = 1050,{x=2392, y=806, z=7, stackpos = 1},true function removeMonster() for x = 2778, 2805 do -- começo e final x da area for y = 779, 794 do -- começo e final y da area local monster = getTopCreature({x=x, y=y, z=7}).uid if monster ~= 0 and isMonster(monster) then doRemoveCreature(monster) end end end return true end if getTileItemById(pos, id).uid == 0 then broadcastMessage(mensage1, MESSAGE_EVENT_ADVANCE) doSummonCreature(monster, {x=2792, y=791, z=7}) addEvent(removeMonster,minutos*60*1000) doRemoveItem(getThingfromPos(pos).uid,1) else doCreateItem(id, 1, pos) end return true end

local firstItems = {} firstItems[0] = { 1988, 8819, 8820, 2468, 2647, 2643 } firstItems[1] = { 2525, 2453, 2124, 2457, 2647, 1988, 2643 } firstItems[2] = { 2525, 8853, 2399, 2124, 2457, 2647, 2643 } firstItems[3] = { 2525, 7452, 2124, 2457, 2647, 2643 } firstItems[15] = 2525, 8903, 2124, 2457, 2647, 2643 } firstItems[4] = { 2525, 7403, 7454, 8853, 2399, 2124, 2457, 2647, 2643 } function onLogin(cid) if getPlayerStorageValue(cid, 30001) == -1 then for i = 1, table.maxn(firstItems[getPlayerVocation(cid)]) do doPlayerAddItem(cid, firstItems[getPlayerVocation(cid)][i], 1) end local bag = doPlayerAddItem(cid, 1988, 1) doAddContainerItem(bag, 2160, 20) doAddContainerItem(bag, 2554, 1) doAddContainerItem(bag, 2120, 1) doAddContainerItem(bag, 7618, 1) setPlayerStorageValue(cid, 30001, 1) end return TRUE end

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 life,mana = {points = 5,Hp = 10},{points = 5,mn = 15} if (msgcontains(msg, 'life') or msgcontains(msg, 'life'))then npcHandler:say("Você quer comprar "..life.Hp.." Ponts de Hp por "..life.points.." points? {yes}", cid) talkState[talkUser] = 1 elseif (msgcontains(msg, 'mana') or msgcontains(msg, 'MANA'))then npcHandler:say("Você quer comprar "..mana.mn.." Pontos de mana por "..mana.points.." points ? {yes}", cid) talkState[talkUser] = 2 elseif msgcontains(msg, 'yes') and talkState[talkUser] == 1 then if getPoints(cid) >= life.points then setCreatureMaxHealth(cid, getCreatureMaxHealth(cid)+life.Hp) doCreatureAddHealth(cid, getCreatureMaxHealth(cid)) removePoints(cid, life.points) npcHandler:say("Parabéns, você recebeu "..life.Hp.." Ponts de Hp!", cid) talkState[talkUser] = 0 else npcHandler:say("Desculpe, mas você você não tem "..life.points.." points!", cid) talkState[talkUser] = 0 end elseif msgcontains(msg, 'yes') and talkState[talkUser] == 2 then if getPoints(cid) >= mana.points then setCreatureMaxMana(cid, getCreatureMaxMana(cid)+mana.mn) doCreatureAddMana(cid, getCreatureMaxMana(cid)) removePoints(cid, mana.points) npcHandler:say("Parabéns, você recebeu "..mana.mn.." Pontos de Mana!", cid) talkState[talkUser] = 0 else npcHandler:say("Desculpe, mas você você não tem "..mana.points.." points!", cid) talkState[talkUser] = 0 end elseif msg == "no" then selfSay("Then not", cid) talkState[talkUser] = 0 npcHandler:releaseFocus(cid) end return TRUE end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new())

local t = { lvl = 100, entrada = { {x = 1402, y = 1061, z = 9}, {x = 1402, y = 1062, z = 9}, {x = 1402, y = 1066, z = 9}, {x = 1402, y = 1064, z = 9} }, saida = { {x = 1409, y = 1034, z = 9}, {x = 1408, y = 1034, z = 9}, {x = 1407, y = 1034, z = 9}, {x = 1406, y = 1034, z = 9} }, monstros = { {{x=1407, y=1032, z=9}, "Undead Dragon"}, {{x=1407, y=1036, z=9}, "Undead Dragon"}, {{x=1408, y=1036, z=9}, "Undead Dragon"}, {{x=1408, y=1032, z=9}, "Undead Dragon"}, {{x=1413, y=1034, z=9}, "Undead Dragon"}, {{x=1417, y=1034, z=9}, "Hellgorak"} } } function onUse(cid, item, fromPosition, itemEx, toPosition) local check = {} for _, k in ipairs(t.entrada) do local x = getTopCreature(k).uid if(x == 0 or not isPlayer(x) or getPlayerLevel(x) < t.lvl) then doPlayerSendCancel(cid, 'Está faltando player ou alguém não possui level '..t.lvl..' ou mais.') return true end table.insert(check, x) end for _, summon in pairs(t.monstros) do local creature = getTopCreature(summon[1]).uid if(creature > 0 and not isPlayer(creature)) then doRemoveCreature(creature) end doCleanTile(summon[1]) doCreateMonster(summon[2], summon[1]) end for i, tid in ipairs(check) do doSendMagicEffect(t.entrada[i], CONST_ME_POFF) doTeleportThing(tid, t.saida[i], false) doSendMagicEffect(t.saida[i], CONST_ME_ENERGYAREA) end doTransformItem(item.uid, item.itemid == 1945 and 1946 or 1945) return true end ai só precisa criar mesmo os baú

usa assim: local id,pos,x = 1050,{x=2392, y=806, z=7, stackpos = 1},true if getTileItemById(pos, id).uid == 0 then x = false end if x == true then doRemoveItem(getThingfromPos(pos).uid,1) else doCreateItem(id, 1, pos) end no caso o 1050 é o id da parede

E esse beijo do max ai? agradou hein kkkkkkk e vc nem é gordo pra combinar, vc é tesudo :9 ficou show de bola vei *-* aposto que vai ser muito usado! parabéns rep+