Farathor

Concordo com o @Daniel em partes, é por esse e outros motivos que não estou regularmente participando de nenhum fórum de Tibia, não existe mais conteúdo que traga interesse de desenvolver, nem existe mais vontade de criar conteúdo, pois não tenho nenhum retorno da comunidade ou da equipe.
 
Sobre o mercado, eu gostaria de postar algo para ver no que dá, mas como já acabou o mês grátis, é inviável postar um script de 5 reais, pagar 20 reais e não saber se vai ter retorno ou não, não sei quantos cliques dão,  as vezes a ideia pode não ser exatamente o que o perfil dos clientes procuram. Por esses motivos eu concordo com @Farathor, não faz sentido cobrar mensalidade e porcentagem, seria muito mais inteligente cobrar uma porcentagem maior, acho que deveria haver "pacotes" diferentes de acordo com o perfil e valor do produto.
 
O mercado deve ser usado como ferramenta de patrocínio do fórum, e não como ferramenta de lucro pessoal para equipe, tudo bem alguma bonificação, porém o foco sempre tem que ser ajudar o fórum, se não quiser que o mercado engula o fórum.
 
Por mim tudo bem ter mercado no fórum, o que tem que mudar é o jeito que administra o mesmo e focar incentivo de conteúdo gratuito.
 
 

Não testei, do jeito que eu fiz, ele vai ficar checando de 1 em 1 minuto os jogadores online e se eles estiverem dentro da area e com level > que 190 eles são teleportados
Em globalevents/scripts coloque o script:
-- Feito por Farathor (Eduardo Rodrigues) -- local inicio = {x=1, y=1, z=1} -- Posição canto superior esquerdo local fim = {x=1, y=1, z=1} -- Posição canto inferior direito function onThink(interval, lastExecution, thinkInterval)     for _, pid in ipairs(getPlayersOnline())do         if getPlayerLevel(pid) >= 190 and isInArea(getThingPos(pid), inicio, fim)) then             doPlayerSendTextMessage(pid, MESSAGE_STATUS_CONSOLE_BLUE, "Somente jogadores com level menor que 190 podem ficar ai!")             doTeleportThing(pid, getTownTemplePosition(getPlayerTown(pid)))             doSendMagicEffect(getThingPos(pid), CONST_ME_TELEPORT)         end         end     return true end  
em globalevents.xml adicione a tag
<globalevent name="checkArea" interval="60000" event="script" value="nome_do_script.lua"/>

Gostaria que o cara que postou a pagina do characters.php por 120 reais prove que ele criou a página.
Gostaria de saber também o porque de cobrar 20 reais mensal dos vendedores e depois cobrar 10% ainda de cada venda, não seria mais facil fazer igual pagseguro faz? Só cobra a porcentagem? Sendo que vamos ter que pagar a porcentagem para o pagseguro ou paypal no caso

Olá, este é um script que adiciona todas as bless em jogadores que tiverem o level menor que o configurado
em creaturescripts/scripts crie um arquivo chamado autoBless.lua e cole isso:
local blessings = {1, 2, 3, 4, 5} local level = 150 function onLogin(cid)     if getPlayerLevel(cid) <= level then         for cont = 1, table.maxn(blessings) do          doPlayerAddBlessing(cid, blessings[cont])             end  doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Você recebeu todas as blessings por causa que é nivel menor que "..level.."!")     end end em creaturescripts.xml adicione a seguinte tag:
<event type="death" name="autoBless" event="script" value="autoBless.lua"/>  
em creaturescripts/scripts no arquivo login.lua adicione a seguinte tag
registerCreatureEvent(cid, "autoBless")

Agora vai rsrsrs
 


Agora vai rsrsrs
 

config.lua:
packetsPerSecond Bota 1000

Olá, este é um script que adiciona todas as bless em jogadores que tiverem o level menor que o configurado
em creaturescripts/scripts crie um arquivo chamado autoBless.lua e cole isso:
local blessings = {1, 2, 3, 4, 5} local level = 150 function onLogin(cid)     if getPlayerLevel(cid) <= level then         for cont = 1, table.maxn(blessings) do          doPlayerAddBlessing(cid, blessings[cont])             end  doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Você recebeu todas as blessings por causa que é nivel menor que "..level.."!")     end end em creaturescripts.xml adicione a seguinte tag:
<event type="death" name="autoBless" event="script" value="autoBless.lua"/>  
em creaturescripts/scripts no arquivo login.lua adicione a seguinte tag
registerCreatureEvent(cid, "autoBless")

function onSay(cid, words, param, channel)     local master = false     if(words == '/t') then         master = true     elseif(param == '') then         local str = ""         for i, town in ipairs(getTownList()) do             str = str .. town.name .. "\n"         end         doShowTextDialog(cid, 2160, str)         return true     end     local tid, t = cid, string.explode(param, ",")     if(t[(master and 1 or 2)]) then         tid = getPlayerByNameWildcard(t[(master and 1 or 2)])         if(not tid or (isPlayerGhost(tid) and getPlayerAccess(tid) > getPlayerAccess(cid))) then             doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player " .. t[(master and 1 or 2)] .. " not found.")             return true         end     end     local tmp = getPlayerTown(cid)     if(not master) then         tmp = t[1]         if(not tonumber(tmp)) then             tmp = getTownId(tmp)             if(not tmp) then                 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Town " .. t[1] .. " does not exists.")                 return true             end         end     end     local pos = getTownTemplePosition(tmp)     if(type(pos) ~= 'table' or isInArray({pos.x, pos.y}, 0)) then         doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Town " .. t[1] .. " does not exists or has invalid temple position.")         return true     end     pos = getClosestFreeTile(tid, pos)     if(type(pos) ~= 'table' or isInArray({pos.x, pos.y}, 0)) then         doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Destination not reachable.")         return true     end     tmp = getCreaturePosition(tid)     if(doTeleportThing(tid, pos) and not isPlayerGhost(tid)) then         doSendMagicEffect(tmp, CONST_ME_POFF)         doSendMagicEffect(pos, CONST_ME_TELEPORT)     end     return true end  

Substituia:
local exhaust = createConditionObject(CONDITION_EXHAUST) setConditionParam(exhaust, CONDITION_PARAM_SUBID, 20000) setConditionParam(exhaust, CONDITION_PARAM_TICKS, 20000)  
POR:

local exhaust = createConditionObject(CONDITION_EXHAUST) setConditionParam(exhaust, CONDITION_PARAM_SUBID, 3) setConditionParam(exhaust, CONDITION_PARAM_TICKS, 10000)
 
Me diga se funcionou

Olá, este é um script que adiciona todas as bless em jogadores que tiverem o level menor que o configurado
em creaturescripts/scripts crie um arquivo chamado autoBless.lua e cole isso:
local blessings = {1, 2, 3, 4, 5} local level = 150 function onLogin(cid)     if getPlayerLevel(cid) <= level then         for cont = 1, table.maxn(blessings) do          doPlayerAddBlessing(cid, blessings[cont])             end  doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Você recebeu todas as blessings por causa que é nivel menor que "..level.."!")     end end em creaturescripts.xml adicione a seguinte tag:
<event type="death" name="autoBless" event="script" value="autoBless.lua"/>  
em creaturescripts/scripts no arquivo login.lua adicione a seguinte tag
registerCreatureEvent(cid, "autoBless")

Olá, este é um script que adiciona todas as bless em jogadores que tiverem o level menor que o configurado
em creaturescripts/scripts crie um arquivo chamado autoBless.lua e cole isso:
local blessings = {1, 2, 3, 4, 5} local level = 150 function onLogin(cid)     if getPlayerLevel(cid) <= level then         for cont = 1, table.maxn(blessings) do          doPlayerAddBlessing(cid, blessings[cont])             end  doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Você recebeu todas as blessings por causa que é nivel menor que "..level.."!")     end end em creaturescripts.xml adicione a seguinte tag:
<event type="death" name="autoBless" event="script" value="autoBless.lua"/>  
em creaturescripts/scripts no arquivo login.lua adicione a seguinte tag
registerCreatureEvent(cid, "autoBless")

Nessa linha
itemr, amountr = rand[1], (not rand[2] and 1 or isItemStackable(rand[1]) and rand[2] or 1) Substitui por isso:
itemr, amountr = rand[1], (not rand[2] and 1 or rand[1] and rand[2] or 1)

Não, apenas uma vocação por tabela.
Ex.:
   [1] = {itemid, itemid, itemid, ...},  --[vocation_id] = {items},     [5] = {itemid, itemid, itemid, ...},  --[vocation_id] = {items},     [2] = {itemid, itemid, itemid, ...},  --[vocation_id] = {items},     [6] = {itemid, itemid, itemid, ...},  --[vocation_id] = {items},     [3] = {itemid, itemid, itemid, ...},  --[vocation_id] = {items},     [7] = {itemid, itemid, itemid, ...},  --[vocation_id] = {items},     [4] = {itemid, itemid, itemid, ...},  --[vocation_id] = {items},     [8] = {itemid, itemid, itemid, ...},  --[vocation_id] = {items},

local config = {     storage = 5820,     levels = {         [20] = {                                  --[level] = {             [1] = {itemid, itemid, itemid, ...},  --[vocation_id] = {items},         },         [40] = {                                  --[level] = {             [1] = {itemid, itemid, itemid, ...},  --[vocation_id] = {items},         },     }, } function onAdvance(cid, skill, oldLevel, newLevel)     local level     for prizeLevel, prizes in pairs(config.levels) do         if newLevel >= prizeLevel and getPlayerStorageValue(cid, config.storage + prizeLevel) < 1 then             level = prizeLevel             break         end     end     if level then         local set = config.levels[level][getPlayerVocation(cid)]         if set then             local parcel, str = doCreateItemEx(ITEM_PARCEL), ""             for i = 1, #set do                 if str == "" then                     str = "1x "..getItemNameById(set[i])                 else                     str = str..(i == #set and " e " or ", ").."1x "..getItemNameById(set[i])                 end                 doAddContainerItem(parcel, set[i], 1)             end             doPlayerSendMailByName(getCreatureName(cid), parcel, 1)             setPlayerStorageValue(cid, config.storage, 1)             doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Graças a sua determinação em atingir o level "..newLevel..", você foi premiado com "..str..". Um parcel foi enviado ao depot de sua cidade principal.")         end     end     return true end Testei o código em meu servidor, e está funcionando perfeitamente.

Não se esqueça de registrar o evento em login.lua.
data/creaturescripts/scripts:
local config = {     storage = 5820,     levels = {         [20] = {                                  --[level] = {             [1] = {itemid, itemid, itemid, ...},  --[vocation_id] = {items},         },         [40] = {                                  --[level] = {             [1] = {itemid, itemid, itemid, ...},  --[vocation_id] = {items},         },     }, } function onAdvance(cid, skill, oldLevel, newLevel)     local level     for prizeLevel, prizes in pairs(config.levels) do         if newLevel >= prizeLevel and getPlayerStorageValue(cid, config.storage + prizeLevel) < 1 then             level = prizeLevel             break         end     end     if level then         local set = config.levels[level][getPlayerVocation(cid)]         if set then             local parcel, str = doCreateItemEx(ITEM_PARCEL), ""             for i = 1, #set do                 if str == "" then                     str = "1x "..getItemNameById(set[i])                 else                     str = str..(i == #set and " e " or ", ").."1x "..getItemNameById(set[i])                 end                 doAddContainerItem(parcel, set[i], 1)             end             doPlayerSendMailByName(getCreatureName(cid), parcel, 1)             setPlayerStorageValue(cid, config.storage + level, 1)             doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Graças a sua determinação em atingir o level "..newLevel..", você foi premiado com "..str..". Um parcel foi enviado ao depot de sua cidade principal.")         end     end     return true end Tag:
<event type="advance" name="setPrize" event="script" value="nome_do_arquivo.lua"/>

Você configurou a tabela corretamente? Está upando com a(s) vocação(ões) definida(s) em sets?

Tá querendo "copiar" o RPG mesmo em kkkkkkkkkkk

@topic 
Você registrou em login.lua ? Como mencionou o Zipter98?

local tabela = { -- [level] = type = "item", id = ITEM_ID, id2 = QUANTIDADE, msg = "MENSAGEM"}, -- [level] = type = "addon", id = ID_ADDON_FEMALE, id2 = ID_ADDON_MALE, msg = "MENSAGEM"}, [20] = {type = "item", id = 2160, id2 = 2, msg = "Voce ganhou 2 crystal coins por alcancar o level 20!"}, [40] = {type = "addon", id = 136, id2 = 128, msg = "Voce ganhou o addon citizen full por alcancar o level 40!"}, } local storage = 15000 function onAdvance(cid, skill, oldLevel, newLevel) if skill == 8 then for level, value in pairs(tabela) do if newLevel == level and getPlayerStorageValue(cid, storage) < level then if value.type == "item" then doPlayerAddItem(cid, value.id, value.id2) elseif value.type == "addon" then doPlayerAddOutfit(cid, value.id, 3) doPlayerAddOutfit(cid, value.id2, 3) end doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, value.msg) setPlayerStorageValue(cid, storage, level) end end end return true end function onLogin(player) registerCreatureEvent(player, "Rewards") -- body return true end <event type="advance" name="Rewards" event="script" value="rewards.lua"/> <event type="login" name="VerfRewards" event="script" value="rewards.lua"/>

Tente alterar a storage e lembre-se que é exatamente o level 20/40 para ganhar as recompensas.
Para alterar a storage basta trocar na variável:
local storage = 15000

que burrice a minha 
 
vai no seu login.lua e antes do ultimo return true
 
coloca
registerCreatureEvent(cid, "UpStar")

nessa parte só trocar o "==" por ">="
 
newLevel == level   newLevel >= level

local level = 200 -- Level local pos = {x = 10474, y = 10807, z = 7} -- Posição local storage = 78945 function onAdvance(cid, skill, oldLevel, newLevel) if skill == 8 and newLevel == level and getPlayerStorageValue(cid, storage) < 1 then doTeleportThing(cid, pos) doPlayerSendTextMessage(cid, 19, "Você acabar de pegar level " .. level .. " e foi teleportado!!") setPlayerStorageValue(cid, storage, 1) end return true end

@Summ, obrigado por explicar, eu não sabia como funcionava..
@Farathor
 
local level = 200 -- Level local pos = {x = 10474, y = 10807, z = 7} -- Posição local storage = 6661 function onAdvance(cid, skill, oldLevel, newLevel) if skill == SKILL_LEVEL and newLevel == level and getPlayerStorage(cid, storage) < 1 then doTeleportThing(cid, pos) doPlayerSendTextMessage(cid, 19, "Você acabar de pegar level " .. level .. " e foi teleportado!!") setPlayerStorageValue(cid, storage, 1) end return true end

Que bom que começou de primeira, to começando a melhorar...

function onCastSpell(cid, words) local wait = 0.5 -- Tempo de exhaustion em segundos local stor = 3711 local mana = -2800 -- Quanta mana vai gastar if exhaustion.check(cid, stor) then doPlayerSendCancel(cid, "") return false elseif getPlayerMana(cid) < mana then doPlayerSendCancel(cid, "") return false end doCreatureAddMana(cid, playermana) doPlayerAddSpentMana(cid, getPlayerMana(cid)) if getPlayerVocation(cid) == 1 then doCreatureAddMana(cid,-2850) -- SORC elseif getPlayerVocation(cid) == 2 then doCreatureAddMana(cid,-2850) -- DRUID elseif getPlayerVocation(cid) == 3 then doCreatureAddMana(cid,-2850) -- PALA elseif getPlayerVocation(cid) == 4 then doCreatureAddMana(cid,-2850) -- KINA end exhaustion.set(cid, stor, wait) doSendMagicEffect(getCreaturePos(cid), 11) return false end Tenta aí