Vodkart

function getRankStorage(value, max, RankName) local str = "--[".. (RankName == nil and "RANK STORAGE" or ""..RankName.."") .."]--\n\n" local query = db.getResult("SELECT `player_id`, `value` FROM `player_storage` WHERE `key` = "..value.." ORDER BY cast(value as INTEGER) DESC;") if (query:getID() ~= -1) then k = 1 repeat str = str .. "\n " .. k .. ". "..getPlayerNameByGUID(query:getDataString("player_id")).." - [" .. query:getDataInt("value") .. "]" k = k + 1 until k > max or not query:next() end return str end function onSay(cid, words, param) local storage = 15000 -- valor da storage local max = 10 -- quantos jogadores irao aparecer no rank local name = "Rank Of Quest" -- nome que vai aparecer no rank return doShowTextDialog(cid, 2529, getRankStorage(storage, max, name)) end

remove essa linha doPlayerAddLevel(cid, - (getPlayerLevel(cid) - 8)) mas ae vc coloca pra resetar 1x so ne

? você já não estava usando esse script? ele nunca acusou isso... usa desse jeito pra ver: function onSay(cid, words, param) local position = getPlayerPosition(cid) if getPlayerLookDir(cid) == 0 then positions = {x=position.x, y=position.y-1, z=position.z} elseif getPlayerLookDir(cid) == 1 then positions = {x=position.x+1, y=position.y, z=position.z} elseif getPlayerLookDir(cid) == 2 then positions = {x=position.x, y=position.y+1, z=position.z} elseif getPlayerLookDir(cid) == 3 then positions = {x=position.x-1, y=position.y, z=position.z} end if getHouseFromPos(positions) == false then doPlayerSendTextMessage(cid, 27, "Voce precisa estar em frente de uma porta da casa para usar o comando.") doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) return true end local days = 20*24*60*60 local own = getHouseOwner(getHouseFromPos(positions)) local qry = db.getResult("SELECT `lastlogin` FROM `players` WHERE `id` = "..own) if(qry:getID() ~= -1) then last = tonumber(qry:getDataInt("lastlogin")) if last < os.time() - days then setHouseOwner(getHouseFromPos(positions),NO_OWNER_PHRASE,true) doCreatureSay(cid, "PARABENS ! agora a casa esta sem dono !", TALKTYPE_ORANGE_1) end if last > os.time() - days then doCreatureSay(cid, "O player desta casa ainda está ativo no server [15 dias], tente outra casa.", TALKTYPE_ORANGE_1) doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) end end return true end

vdd faltou uma virgula kk function onSay(cid, words, param) local days = 20*24*60*60 local position = getPlayerPosition(cid) if getPlayerLookDir(cid) == 0 then positions = {x=position.x, y=position.y-1, z=position.z} elseif getPlayerLookDir(cid) == 1 then positions = {x=position.x+1, y=position.y, z=position.z} elseif getPlayerLookDir(cid) == 2 then positions = {x=position.x, y=position.y+1, z=position.z} elseif getPlayerLookDir(cid) == 3 then positions = {x=position.x-1, y=position.y, z=position.z} end if getHouseFromPos(positions) == false then doPlayerSendTextMessage(cid, 27, "Voce precisa estar em frente de uma porta da casa para usar o comando.") doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) return true end local own = getHouseOwner(getHouseFromPos(positions)) if getHouseOwner(own) == 0 then doCreatureSay(cid, "esta casa nao tem dono!", TALKTYPE_ORANGE_1) return true end local qry = db.getResult("SELECT `lastlogin` FROM `players` WHERE `id` = "..own) if(qry:getID() ~= -1) then local last = tonumber(qry:getDataInt("lastlogin")) if last > os.time() - days then doCreatureSay(cid, "O player desta casa ainda está ativo no server [15 dias], tente outra casa.", TALKTYPE_ORANGE_1) doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) return true end setHouseOwner(getHouseFromPos(positions),NO_OWNER_PHRASE,true) doCreatureSay(cid, "PARABENS ! agora a casa esta sem dono !", TALKTYPE_ORANGE_1) end return true end

function onSay(cid, words, param) local days = 20*24*60*60 local position = getPlayerPosition(cid) if getPlayerLookDir(cid) == 0 then positions = {x=position.x, y=position.y-1, z=position.z} elseif getPlayerLookDir(cid) == 1 then positions = {x=position.x+1, y=position.y, z=position.z} elseif getPlayerLookDir(cid) == 2 then positions = {x=position.x, y=position.y+1, z=position.z} elseif getPlayerLookDir(cid) == 3 then positions = {x=position.x-1, y=position.y, z=position.z} end if getHouseFromPos(positions) == false then doPlayerSendTextMessage(cid, 27, "Voce precisa estar em frente de uma porta da casa para usar o comando.") doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) return true end local own = getHouseOwner(getHouseFromPos(positions)) if getHouseOwner(own) == 0 then doCreatureSay(cid, "esta casa nao tem dono!", TALKTYPE_ORANGE_1) return true end local qry = db.getResult("SELECT `lastlogin` FROM `players` WHERE `id` = "..own) if(qry:getID() ~= -1) then local last = tonumber(qry:getDataInt("lastlogin")) if last > os.time() - days then doCreatureSay(cid, "O player desta casa ainda está ativo no server [15 dias], tente outra casa.", TALKTYPE_ORANGE_1) doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) return true end setHouseOwner(getHouseFromPos(positions) NO_OWNER_PHRASE,true) doCreatureSay(cid, "PARABENS ! agora a casa esta sem dono !", TALKTYPE_ORANGE_1) end return true end

é num MODS chamado Staff time, são 3 storages para mudar o valor, mas não tem nada a ver com oq vc falou, é que em algum servidores sqlite usa 'executeQuery' e em alguns MySQL usa 'db.query'

onde tiver 'executeQuery'troca por 'db.query' e caso não der certo o db.query onde tiver 'db.executeQuery' troque por 'db.escapeString'

local teleportar_para = {x = 1024, y = 913, z = 4} local time = 10 -- in seconds local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_EFFECT, 10) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, false) function removeTeleport(pos) tp = getTileItemById(pos, 1387).uid doRemoveItem(tp, 1) doSendMagicEffect(pos, 2) end function x(p, d) local t = {{x=p.x,y=p.y-1,z=p.z},{x=p.x+1,y=p.y,z=p.z},{x=p.x,y=p.y+1,z=p.z},{x=p.x-1,y=p.y,z=p.z}} return t[d+1] end function TeleportLastPos(cid, pos) if not isCreature(cid) then return LUA_ERROR end return doTeleportThing(cid,pos) end function onCastSpell(cid, var) if getPlayerStorageValue(cid, 5677) == 1 then doPlayerSendCancel(cid, "Você não pode usar tal magia aqui") return false end local pos = getCreaturePosition(cid) -- pos onde o jogador usou a spell local criar_tp = pos doCreateTeleport(1387, teleportar_para, criar_tp) local tp = getTileItemById(criar_tp, 1387).uid doItemSetAttribute(tp, "aid", 5678) addEvent(TeleportLastPos, time*1000, cid, pos) -- dps de alguns segundos o jogador volta para a pos que estava doTeleportThing(cid, teleportar_para, false) --Tira essa linha se nao for teleportar o player q usou a magia automaticamente. for i = 1, 5 do addEvent(doSendMagicEffect, i*1000, criar_tp, 134) end addEvent(removeTeleport, 5000, criar_tp) return doCombat(cid, combat, var) end

então deixa pq eu realmente n entendi oq vc quer ainda...

local teleportar_para = {x = 1024, y = 913, z = 4} local time = 5 -- in seconds local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_EFFECT, 10) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, false) function removeTeleport(pos) tp = getTileItemById(pos, 1387).uid doRemoveItem(tp, 1) doSendMagicEffect(pos, 2) end function x(p, d) local t = {{x=p.x,y=p.y-1,z=p.z},{x=p.x+1,y=p.y,z=p.z},{x=p.x,y=p.y+1,z=p.z},{x=p.x-1,y=p.y,z=p.z}} return t[d+1] end function onCastSpell(cid, var) local function TeleportLastPos(cid,pos) if not isCreature(cid) then return LUA_ERROR end return doTeleportThing(cid,pos) end if getPlayerStorageValue(cid, 5677) == 1 then doPlayerSendCancel(cid, "Você não pode usar tal magia aqui") return false end local pos = getCreaturePosition(cid) local criar_tp = pos doCreateTeleport(1387, teleportar_para, criar_tp) local tp = getTileItemById(criar_tp, 1387).uid doItemSetAttribute(tp, "aid", 5678) doTeleportThing(cid, teleportar_para, false) --Tira essa linha se nao for teleportar o player q usou a magia automaticamente. for i = 1, 5 do addEvent(doSendMagicEffect, i*1000, criar_tp, 134) end addEvent(removeTeleport, 5000, criar_tp) addEvent(TeleportLastPos, time*1000, cid, teleportar_para) return doCombat(cid, combat, var) end

e não era isso? ou é pra voltar pra onde?

local teleportar_para = {x = 1024, y = 913, z = 4} local time = 5 -- in seconds local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_EFFECT, 10) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, false) function removeTeleport(pos) tp = getTileItemById(pos, 1387).uid doRemoveItem(tp, 1) doSendMagicEffect(pos, 2) end function x(p, d) local t = {{x=p.x,y=p.y-1,z=p.z},{x=p.x+1,y=p.y,z=p.z},{x=p.x,y=p.y+1,z=p.z},{x=p.x-1,y=p.y,z=p.z}} return t[d+1] end function onCastSpell(cid, var) local function TeleportLastPos(cid,pos) if not isCreature(cid) then return LUA_ERROR end return doTeleportThing(cid,pos) end if getPlayerStorageValue(cid, 5677) == 1 then doPlayerSendCancel(cid, "Você não pode usar tal magia aqui") return false end local pos = getCreaturePosition(cid) local criar_tp = pos doCreateTeleport(1387, teleportar_para, criar_tp) local tp = getTileItemById(criar_tp, 1387).uid doItemSetAttribute(tp, "aid", 5678) doTeleportThing(cid, teleportar_para, false) --Tira essa linha se nao for teleportar o player q usou a magia automaticamente. for i = 1, 5 do addEvent(doSendMagicEffect, i*1000, criar_tp, 134) end addEvent(removeTeleport, 5000, criar_tp) addEvent(TeleportLastPos, time*1000, cid, pos) return doCombat(cid, combat, var) end

é aquele do sistema da exclusive hunt? eu até faria mas estou sem tempo, ontem fiz o tile achando que você já tivesse alguma base =/

local days, hours = {"Tuesday", "Thursday", "Saturday"}, {"00:00", "16:00", "21:00"} -- defina os dias e horários dos eventos local monsters = {"Mummy", "Snake Easy", "Fighter", "Wolf"} local time_min, max = 11, 30 -- Em minutos local premios, gold = {{639, 20}, {640, 10}}, 0 -- {id do item, quantidade} que o jogador ganha e quantia de gold function winMonsterEvent() local max_sto, winner = 0, 0 local monster = getGlobalStorageValue(1919211) for _, pid in pairs(getPlayersOnline()) do local sto = getPlayerStorageValue(pid, 1814210) if sto > max_sto then max_sto = sto winner = pid end end if isPlayer(winner) then local artigo = getPlayerSex(winner) == 0 and "A jogadora" or "O jogador" doBroadcastMessage(artigo.." "..getCreatureName(winner).." matou "..getPlayerStorageValue(winner, 1814210).." "..monster.."s e venceu o evento. Recompensas: 10 Senzu Beans e 20 Magic Senzu Beans. Parabéns!") for _, prize in pairs(premios) do doPlayerAddItem(winner, prize[1], prize[2]) end doPlayerAddMoney(winner, gold) else doBroadcastMessage("[Monstro Evento] O evento terminou e nao houve nenhum vencedor.") end setGlobalStorageValue(1919211, 0) end function onThink(interval, lastExecution) if isInArray(days, os.date("%A")) and isInArray(hours, tostring(os.date("%X")):sub(1, 5)) then local random = math.random(1, #monsters) local time = math.random(time_min, max) for _, pid in pairs(getPlayersOnline()) do doPlayerSetStorageValue(pid, 1814210, 0) end setGlobalStorageValue(1919211, monsters[random]) doBroadcastMessage("[Monstro Evento] O evento começou e vai durar "..time.." minuto. O Monstro sorteado foi "..monsters[random].."! Quem matar mais deles até o fim será o vencedor!") addEvent(winMonsterEvent, time*1000*60) end return true end

escolhe um qualquer dai e coloca na pasta actions/script e a tag do actions.xml <action actionid="50201" script="NOME DO SEU SCRIPT.lua"/> ai na porta coloca actionID 50201

function onStepIn(creature, item, position, fromPosition) local player = creature:getPlayer() if player == nil then return false end local config = { storage = 11223, from = {x = 31719, y = 32978, z = 7}, -- coordenada do canto superior esquerdo da área. to = {x = 31760, y = 33050, z = 7}, -- coordenada do canto inferior direito da área. maxPlayers = 1, -- quantos jogadores poderão entrar na área ao mesmo tempo. pos = {x = 31722, y = 32982, z = 7} -- para onde o jogador será teleportado. } local function getPlayersInArea(from, to) local c = 0 for _, cid in pairs(Game.getPlayers()) do if isInRange(Player(cid):getPosition(), from, to) then c = c + 1 end end return c end if player:getStorageValue(config.storage) <= os.time() or getPlayersInArea(config.from, config.to) >= config.maxPlayers then player:teleportTo(fromPosition) player:sendTextMessage(MESSAGE_INFO_DESCR,player:getStorageValue(config.storage) <= os.time() and "Voce nao tem acesso a Exclusive Hunt!" or "Voce nao pode acessar essa area pois ja tem alguem caçando nela!") return true end player:teleportTo(config.pos) player:getPosition():sendMagicEffect(CONST_ME_TELEPORT) return true end

eu aconselho a repassar todos os script desses citados para o tfs 1.2 no tile mesmo, refazer desde a função primaria... bom, só para constar, a função "getPlayersOnline()" não existe mais, no lugar dela use --> "Game.getPlayers()"

function onUse(cid, item, frompos, item2, topos) local doorpos = {x=topos.x, y=topos.y, z=topos.z, stackpos=253} local doorplayer = getThingfromPos(doorpos) if not isPremium(cid) then return doPlayerSendTextMessage(cid,22,"need premium account.") end doTeleportThing(cid,doorpos) doPlayerSendTextMessage(cid,22,"Welcome.") return true end ou function onUse(cid, item, frompos, item2, topos) if not isPremium(cid) then return doPlayerSendTextMessage(cid,22,"need premium account.") end pos = getPlayerPosition(cid) if pos.x == topos.x then if pos.y < topos.y then pos.y = topos.y + 1 else pos.y = topos.y - 1 end elseif pos.y == topos.y then if pos.x < topos.x then pos.x = topos.x + 1 else pos.x = topos.x - 1 end else doPlayerSendTextMessage(cid,22,"Fique na frente da porta.") return TRUE end doTeleportThing(cid,pos) doSendMagicEffect(topos,12) return true end ou function onUse(cid, item, frompos, item2, topos) if not isPremium(cid) then return doPlayerSendTextMessage(cid,22,"need premium account.") end doTransformItem(item.uid, item.itemid + 1) doTeleportThing(cid, topos, true) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"Welcome.") return true end

doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a bag and received 10% Experience") ou doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a bag and received ".. (getExperienceForLevel(getPlayerLevel(cid)+1) - getExperienceForLevel(getPlayerLevel(cid))) * 0.1 .." Experience")

local config = { storage = 2141, key_id = 5927, -- Key ID } function onUse(cid, item, fromPosition, itemEx, toPosition) if getPlayerStorageValue(cid, config.storage) > 0 then doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "The treasure chest is empty.") return true end setPlayerStorageValue(cid, config.storage, 1) doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a bag.") key = doPlayerAddItem(cid, config.key_id, 1) doAddContainerItem(key, 2560, 1) doAddContainerItem(key, 2152, 10) doPlayerAddExperience(cid, (getExperienceForLevel(getPlayerLevel(cid)+1) - getExperienceForLevel(getPlayerLevel(cid))) * 0.1) -- 10% return true end

qual versão?

function onStepIn(cid, item, position, fromPosition) if not isPlayer(cid) then return true end if getPlayerPremiumDays(cid) >= 1 then doSendMagicEffect(getThingPos(cid), 12) doPlayerSendTextMessage(cid, 25, "Seja Bem-vindo ".. getPlayerName(cid) .." !") else doTeleportThing(cid, fromPosition, true) doSendMagicEffect(getThingPos(cid), 2) doPlayerSendTextMessage(cid, 25, "Apenas Players Vip's podem passa.") end return true end

basicamente é assim: function LastPlayerInEvent() local from,to = {x=10,y=10,z=7}, {x=20,y=20,z=7} -- pos começo e final da area local reward = {2160,10} -- defina aqui seu premio local players = {} -- n mexa for _, pid in ipairs(getPlayersOnline()) do if isInRange(getPlayerPosition(pid), from, to) then table.insert(players, pid) end end if #players == 1 then doPlayerAddItem(players[1],reward[1],reward[2]) doTeleportThing(players[1],getTownTemplePosition(getPlayerTown(players[1]))) else addEvent(LastPlayerInEvent, 60000) -- a cada 1 min vai executar o script end 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 if (msgcontains(msg, 'Shiny') or msgcontains(msg, 'shiny')) then --alterado v1.7 selfSay("Voce quer tranformar seu Shiny Tangela em Shiny Tangrowth? Voce precisa do Shiny Tangela+50 + 5kk! {yes}", cid) talkState[talkUser] = 1 elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 1 then if getPlayerSlotItem(cid, 8).uid <= 0 then selfSay("Desculpe, voce nao esta com o pokemon na slot!", cid) talkState[talkUser] = 0 return true end local pb = getPlayerSlotItem(cid, 8).uid if #getCreatureSummons(cid) >= 1 then selfSay("Puxe seu pokemon para pokebola!", cid) talkState[talkUser] = 0 return true elseif getItemAttribute(pb, "poke") ~= "Shiny Tangela" then selfSay("Coloque seu Shiny Tangela+50 na slot, por favor!", cid) talkState[talkUser] = 0 return true elseif not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 50 then selfSay("Desculpe, seu Shiny Tangela não esta boosted +50!", cid) talkState[talkUser] = 0 return true elseif not doPlayerRemoveMoney(cid, 500000000) then selfSay("Você nao tem dinheiro suficiente!", cid) talkState[talkUser] = 0 return true end selfSay("So there is it! Enjoy!", cid) doItemSetAttribute(pb, "hp", 1) doItemSetAttribute(pb, "poke", "Shiny Tangrowth") doItemSetAttribute(pb, "description", "Contains a Shiny Tangrowth.") doItemEraseAttribute(pb, "boost") doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Tangrowth"]) doItemSetAttribute(pb, "Icone", "yes") doTransformItem(pb, icons[getItemAttribute(pb, "poke")].on) if useKpdoDlls then doCreatureExecuteTalkAction(cid, "/pokeread") end talkState[talkUser] = 0 return true end return true end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new())

É porque em servidores mais recentes não existe mais a função onTimer() então usem dessa forma: local hours = {"00:00", "16:00", "21:00"} -- defina os horários dos eventos local monsters = {"Mummy", "Snake Easy", "Fighter", "Wolf"} local time_min, max = 11, 30 -- Em minutos local premios, gold = {{639, 20}, {640, 10}}, 0 -- {id do item, quantidade} que o jogador ganha e quantia de gold function winMonsterEvent() local max_sto, winner = 0, 0 local monster = getGlobalStorageValue(1919211) for _, pid in pairs(getPlayersOnline()) do local sto = getPlayerStorageValue(pid, 1814210) if sto > max_sto then max_sto = sto winner = pid end end if isPlayer(winner) then local artigo = getPlayerSex(winner) == 0 and "A jogadora" or "O jogador" doBroadcastMessage(artigo.." "..getCreatureName(winner).." matou "..getPlayerStorageValue(winner, 1814210).." "..monster.."s e venceu o evento. Recompensas: 10 Senzu Beans e 20 Magic Senzu Beans. Parabéns!") for _, prize in pairs(premios) do doPlayerAddItem(winner, prize[1], prize[2]) end doPlayerAddMoney(winner, gold) else doBroadcastMessage("[Monstro Evento] O evento terminou e nao houve nenhum vencedor.") end setGlobalStorageValue(1919211, 0) end function onThink(interval, lastExecution) if isInArray(hours, tostring(os.date("%X")):sub(1, 5)) then local random = math.random(1, #monsters) local time = math.random(time_min, max) for _, pid in pairs(getPlayersOnline()) do doPlayerSetStorageValue(pid, 1814210, 0) end setGlobalStorageValue(1919211, monsters[random]) doBroadcastMessage("[Monstro Evento] O evento começou e vai durar "..time.." minuto. O Monstro sorteado foi "..monsters[random].."! Quem matar mais deles até o fim será o vencedor!") addEvent(winMonsterEvent, time*1000*60) end return true end globalevents.xml <globalevent name="MonsterEvent" interval="60" event="script" value="NOME DO SEU SCRIPT.lua"/>