Vodkart

<?xml version="1.0" encoding="ISO-8859-1"?> <mod name="rank frag" version="1.0" author="Vodkart" contact="xtibia.com" enabled="yes"> <config name="rankf_func"><![CDATA[ storage = 824544 function getPlayerFrags(cid) local time = os.time() local times = {today = (time - 86400), week = (time - (7 * 86400))} local contents, result = {day = {}, week = {}, month = {}}, db.getResult("SELECT `pd`.`date`, `pd`.`level`, `p`.`name` FROM `player_killers` pk LEFT JOIN `killers` k ON `pk`.`kill_id` = `k`.`id` LEFT JOIN `player_deaths` pd ON `k`.`death_id` = `pd`.`id` LEFT JOIN `players` p ON `pd`.`player_id` = `p`.`id` WHERE `pk`.`player_id` = " .. getPlayerGUID(cid) .. " AND `k`.`unjustified` = 1 AND `pd`.`date` >= " .. (time - (30 * 86400)) .. " ORDER BY `pd`.`date` DESC") if(result:getID() ~= -1) then repeat local content = {date = result:getDataInt("date")} if(content.date > times.today) then table.insert(contents.day, content) elseif(content.date > times.week) then table.insert(contents.week, content) else table.insert(contents.month, content) end until not result:next() result:free() end local size = {day = table.maxn(contents.day),week = table.maxn(contents.week),month = table.maxn(contents.month)} return size.day + size.week + size.month end function setFrags(cid) if not isCreature(cid) then return LUA_ERROR end setPlayerStorageValue(cid, storage, getPlayerFrags(cid)) doPlayerSave(cid) end 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 ]]></config> <globalevent name="RankFrags_Broad" interval="300" event="script"><![CDATA[ domodlib('rankf_func') function onThink(interval, lastExecution) doBroadcastMessage(getRankStorage(storage, 5, "Top 5 Fraggers!"), 22) return true end]]></globalevent> <event type="login" name="RankfLogin" event="script"><![CDATA[ domodlib('rankf_func') function onLogin(cid) registerCreatureEvent(cid, "RankfKill") setFrags(cid) return true end]]></event> <event type="kill" name="RankfKill" event="script"><![CDATA[ domodlib('rankf_func') function onKill(cid, target, lastHit) if (isPlayer(cid) == true) and (isPlayer(target) == true) then addEvent(setFrags, 1000, cid) end return true end]]></event> </mod>

Gostei da ideias! Perfeito. Sobre sistema de rank será removido. Sobre o sistema de boss room eu estou pensando em aperfeiçoa-los ou remover o sistema.

up

function onSay(cid, words, param) local param = param:lower() if not getPlayerGUIDByName(param) then doPlayerSendCancel(cid, "Desculpe, mas o jogador [" .. param .. "] não existe.") return true end return doPlayerPopupFYI(cid, " ==========Status========== \n Jogador: " .. param .. " \n Situacao: "..(isAccountBanished(getAccountIdByName(param)) and "Banido" or "Não Banido").." \n ==========Status==========") end

function onSay(cid, words, param) return doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Voce ainda tem " .. (getPlayerStorageValue(cid, 11551) < 0 and 0 or getPlayerStorageValue(cid,11551)) .. " dias de vip.") end

posta seu creature.xml ou deve ser em MODS

mas não é bug, eu fiz para ser assim mesmo, você pode dar "stop" e ir fazer outra task... sobre o summon, é que as funções variam de ot pra ot, no meu não contava o summon, mas vou rever isso.

Quero passar a task para a versão 4.0 vou retirar o sistema de rank, colocar level para task e task em sequencias. Postem IDEIAS para eu fazer um upgrade nessa bagaça!!

eu quero mesmo refazer o meu sistema de task para 4.0 alguma ideia além dessa de fazer a task por sequencia? além de fazer a task por level?

O erro está na configuração da função que fica na lib, nas position do tile e ID

tfs 1.2?

pode colocar na lib sim... É porque é por storage, vai salvar no banco de dados quando o serve salva ou quando salvar o player(logar ou deslogar) Se for pegar os jogadores online até daria, mas não aparecia os offline ah não ser que a função faça salvar os jogadores online e depois checar a storage

tinha uma linha com um ' a mais, corrigido.

erro meu function onLogin(cid) local days = 3 if db.getResult("SELECT `premiumgift` FROM `accounts` WHERE `id = "..getPlayerAccountId(cid)):getDataInt("premiumgift") <= 0 then doPlayerAddPremiumDays(cid, days) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Sua account acabou de receber "..days.." dias de premium, boa diversão!") db.executeQuery("UPDATE `accounts` SET `premiumgift` = 1 WHERE `id` = "..getPlayerAccountId(cid)) end return true end

seria em horas configuradas?

mysql_real_query(): SELECT `premiumgift` FROM `players` WHERE `id = 55 - MYSQL ERROR: Unknown column 'premiumgift' in 'field list' (1054) se está dando esse erro é pq diz que não existe essa coluna na db!! testei aqui e funcionou

Não, basta que adicione corretamente a pos e id das paredes no script, e no mapper editor colocar as paredes lá, que quando o evento começar a parede vai ser removida, e quando acabar as mesmas serão criadas

Eu não manjo muito, mas em LUA esse tipo de script "patentes" já existe, no caso é só para aparecer no lado do players(site) a patente que ele é...

funciona sim, só instalar todo o sistema passo a passo

mudou as pos?

no caso você já não tem uma talk que adiciona a medalha por 10 diamonds? é só substituir por esse que te passei... e o script da medalha fica em action, só substituir por esse da medalha que te passei tbm '-' pq qndo clicar na medalha vai adc os vip days, não é isso?

talk que da a medalha por diamond: local item,amount = 2145,10 function onSay(cid, words, param,channel) if not doPlayerRemoveItem(cid, item, amount) then doSendMagicEffect(getCreaturePosition(cid), 2) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Desculpe mas você precisa ter no minimo "..amount.." Diamonds para ativar sua account vip.") return true end doPlayerAddItem(cid, 1819, 1) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você recebeu um item vip!") doSendMagicEffect(getCreaturePosition(cid), 28) return true end script da medalha que da o vip days function onUse(cid, item, fromPosition, itemEx, toPosition) local days = 30 addVipDays(cid, days) doPlayerSendTextMessage(cid, 22, "Você recebeu "..days.." dias de vip") doRemoveItem(item.uid) return true end lembrando que vc ter que ter instalado o sistema do kidray

posso fazer como queira!! se quiser um comando pra comprar vip atraves de diamons ou item que adc vip days vc que sabe

instala esse sistema!! não precisa colocar a talkaction do buyvip e nem o npc quando instalar avisa que te mando script!! vc quer o comando !buyvip com diamonds? ou algum item que adc a vip time?

tem muito sistema vip melhor que esse ai, você quer por account ou por character? dá pra adptar pra remover diamonds ou dolars, oq quiser manim!!