DoidoPox

Update 16/09/2019
- Adicionado auction system. - Alterado sistema vip para premium. - Reformulado as houses do mapa. - Reformulado função de exhaustion. - Fixado script de level reward. - Adicionada a função removeMoneyNpc que futuramente será usada. - Reajustes no mysql. - Adicionado mapa ao github. - Adicionado server save. - Fixado alguns bugs no mapa.

tira o código que ele mandou, o server vai continuar exatamente igual, porém dano em monstro e player vai ser o mesmo, você entendeu errado o que ele disse de black skull
 
black skull -> TOMA o dobro de dano, vai continuar assim

É consequência da alteração que pediu, mas ainda da pra alterar o código, só que ai o black skull receberia o dobro de dano que o player hita em monstro, dependendo do seu balanceamento, isso ficaria um absurdo. Mas se mesmo assim você quiser, aqui está.
if(change < 0 && caster && caster->getPlayer() && target->getPlayer() && target->getPlayer()->getSkull() == SKULL_BLACK) change = change * 2;  

Nas funções CombatHealthFunc e CombatManaFunc, remova essa parte de ambas as funções.
if(change < 0 && caster && caster->getPlayer() && target->getPlayer() && target->getPlayer()->getSkull() != SKULL_BLACK) change = change / 2;  

cara essa magia ja existe no tibia chama Utori mas sio mais ela serve para party buff e so modificar um pouquinho ficou asim 
 
 

UPDATE 05/02/2019:  - Colocado exhauted na venda de items para não bugar a venda de itens com elf bot!
 
Descrição do Arquivo
*Sobre o Sistema*
 
Labia System é um sistema que proporciona ao jogador a capacidade de aprimorar sua habilidade de venda, aumentando assim sua Labia Skill e obtendo maiores lucros em futuras vendas de itens.
O Skill de Labia, pode ser upado enquanto Free ou Premmy Account em qualquer level que você queira!
 
Basta vender itens no NPC Soya Master.
 
Lembrando que sendo free, sua lábia pode ser upada apenas até skill 90. Já sendo premmium até a lábia 120.
Se o player for premmy account, de repente ficar free... sua lábia cai para 90, e todos os itens serão vendidos com preços avaliados dentro dessa lábia!
Quanto mais caro for, o item vendido, maior será a porcentagem de lábia upada.
 
*Exclusividade*
 
O Sistema também conta com uma configuração exclusiva, tendo a possibilidade de jogadores Premmy account possam upar mais rapído a sua Skill de Labia!
Sem falar no comando inovador:
 
!labia info -- Ensinando ao jogador como usar o sistema
!labia level -- Mostrando ao jogador quanto de skill Try falta para o próximo level!!
 
 
 
*Benefícios da Lábia*

Quanto maior for sua Labia Skill, maior será o valor pago pelas NPC Soya Master em troca do seu item ! Lembrando que, este é um benefício apenas, para premiuns!, Desta maneira, jogadores premiuns com labia skill alta, conseguem  maiores lucros ao vender seus itens!
 
 
O valor do item varia de acordo com a Labia upada! Quanto mais skill, mais lucro na venda!

A maior Labia alcançada é você que decide nas suas configurações! por exemplo no RPG Brasil a  é Skill 120.
 
 

*exemplo da fórmula para cálculos do valor do item de acordo com uma Lábia desejada*
 
P = PI + PI * 0,025 * (L / 2)
Onde:
P ~ Preço que o item será vendido na lábia L.
PI ~ Preço Inicial do item, preço do item para um lábia 0.
L ~ Labia em que o item será vendido! Vale lembrar que se L for um nº ímpar, deve-se reduzir uma unidade deste número, ou seja, 13 vira 12, 27 vira 26, 91 vira 90, nesse esquema, apenas se L for í­mpar!
Exemplo:
Preço de uma Golden Legs na lábia 95:
P = PI + PI * 0,025 * (L / 2)
Como L é í­mpar (95), reduzimos uma unidade, 95 vira 94:
P = 48000 + 48000 * 0,025 * (94 / 2)
P = 48000 + 48000 * 0,025 * 47
P = 48000 + 56400
P = 104400 GP's ou 104,4 k
 
 
 
Sistema Labia.rar

deu esse erro no npc a lib 100% vlw

 

Veja se você tem essas funções na lib, se não tiver as coloque!
 
function getItemsFromList(items) local str = '' if table.maxn(items) > 0 then for i = 1, table.maxn(items) do str = str .. items[i][2] .. ' ' .. getItemNameById(items[i][1]) if i ~= table.maxn(items) then str = str .. ', ' end end end return str end function doRemoveItemsFromList(cid,items) local count = 0 if table.maxn(items) > 0 then for i = 1, table.maxn(items) do if getPlayerItemCount(cid,items[i][1]) >= items[i][2] then count = count + 1 end end end if count == table.maxn(items) then for i = 1, table.maxn(items) do doPlayerRemoveItem(cid,items[i][1],items[i][2]) end else return false end return true end  
 
-------------------------------
 
Data/npc
 
 
Aldro Forjador.xml
<?xml version="1.0"?> <npc name="Aldro Forjador" script="data/npc/scripts/forjar_itens.lua" walkinterval="50000" floorchange="0"> <health now="100" max="100"/> <look type="129" head="95" body="116" legs="121" feet="115" addons="3"/> <parameters> <parameter key="message_greet" value="Ola |PLAYERNAME|.Eu posso forjar alguns {itens} itens para voce!" /> </parameters> </npc>  
 
Data/npc/scripts
 
 
forjar_itens.lua
local keywordHandler = KeywordHandler:new() local npcHandler = NpcHandler:new(keywordHandler) NpcSystem.parseParameters(npcHandler) 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 doChangeWeapon(cid, message, keywords, parameters, node) -- by vodka if(not npcHandler:isFocused(cid)) then return false end if (isPlayerPremiumCallback == nil or isPlayerPremiumCallback(cid) == true or parameters.premium == false) then if(parameters.level ~= nil and getPlayerLevel(cid) < parameters.level) then npcHandler:say('Desculpe, voce precisa ter level ' .. parameters.level .. ' ou mais para forjar este item.', cid) elseif not doRemoveItemsFromList(cid,parameters.items) then npcHandler:say('Desculpe, mas voce não tem '..getItemsFromList(parameters.items)..' para forjar este item!', cid) else local r = parameters.chance local v = math.random(1, 100) if r > v then npcHandler:say('Sucesso! Aqui esta seu item.', cid) doPlayerAddItem(cid,parameters.give,1) doSendMagicEffect(getPlayerPosition(cid), math.random(28,30)) else npcHandler:say('Desculpe, mas seu item falho na forja!', cid) doSendMagicEffect(getPlayerPosition(cid), 2) end npcHandler:resetNpc() end else npcHandler:say('Desculpe, mas apenas forjo esse item para jogadores premium account.', cid) end npcHandler:resetNpc() return true end local list = { {"demon armor", items = {{2466,3},{2160,2}}, item_give = 2494, chance = 30, level = 10, premium = false}, {"solar axe", items = {{2432,10},{2160,5},{8924,1}}, item_give = 8925, chance = 50, level = 15, premium = true}, {"broadsword", items = {{2376,10},{2160,2}}, item_give = 2413, chance = 90, level = 15, premium = false}, {"magic longsword", items = {{2400,5},{2393,5},{2160,5}}, item_give = 2390, chance = 90, level = 25, premium = false}, {"ice rapier", items = {{7449,2},{2160,5}}, item_give = 2396, chance = 10, level = 25, premium = false}, {"itens", text = "Eu posso te forjar alguns itens como: {demon armor},{solar axe},{broadsword} ou {magic longsword}!"} } for i = 1, #list do local get = list[i] if type(get.items) == "table" then local node = keywordHandler:addKeyword({get[1]}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, text = "Para forjar o item " .. get[1] .. " é necessário "..getItemsFromList(get.items)..". Você tem tudo isso para me dar?"}) node:addChildKeyword({"yes"}, doChangeWeapon, {items = get.items, give = get.item_give, chance = get.chance, level = get.level, premium = get.premium}) node:addChildKeyword({"no"}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, text = "tudo bem entao.", reset = true}) else keywordHandler:addKeyword({get[1]}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, text = get.text}) end end mounts = nil npcHandler:addModule(FocusModule:new())  
 
 
explicando:
 
 
na tabela "list" existe essa linha por exemplo:
 
 
{"demon armor", items = {{2466,3},{2160,2}}, item_give = 2494, chance = 30, level = 10, premium = false},  
"nome do item que vai ser trocado"
 
-------------------------------------
 
items = {} -- tabela de itens que vai ser preciso dar ao npc pra trocar de itens
 
coloque assim -- > {{itemid,quantidade}}
 
para mais de um item -- >  {{itemid, quantidade},{itemid, quantidade}}
 
exemplo que eu botei:
 
items = {{2466,3},{2160,2}} -- 3 golden armor e 2 crystal coin
 
---------------------------------------------------
 
item_give  -- aqui é o id final do item que vai ser dado ao jogador
 
-----------------------------------------------
 
chance -- é a chance de a forja dar certo, quanto maior a chance maior a chance de dar certoa forja do iten
 
------------------------------------
 
level -- é para forjar o item
 
----------------------------
premium -- se precisa ser premium pra forjar o itens em questao, true ou false.
 
 
 
 
 
 
 
 

isso que e ajuda o cara leu tudo e asinda falo isso grande ajuda 

ah ta então só usar a storage de novo
 
function onCreatureSay(cid, type, msg) local msg, pos, time, name = msg:lower(),getNpcPos(), 30, "The Orc King" local monsters = { 'Demon', 'Slime', 'Slime', 'Orc Warlord', 'Orc Warlord', 'Orc Leader', 'Orc Leader', 'Orc Leader' } if msg == "hi" and getPlayerStorageValue(cid, 29002) <= 0 then setPlayerStorageValue(cid, 29002, 1) doRemoveCreature(getNpcId()) addEvent(function() doCreateNpc(name, pos) end ,time*60*1000) selfSay('Arrrrgh! A dirty paleskin! To me my children! Kill them my guards!') for i = 1, #monsters do local var = doCreateMonster(monsters[i], pos, false) if var == false then return LUA_ERROR end end end return true end  

ah sim, eu só fiz a base pra saber como tu ia querer e tal...
 
amanha edito pra ti e me fala como tu quer aqui embaixo, explica certinho ok

nao cara a espada e a pedra tem que sair no mesmo momento pq a espada e um item ai da pra pega fraga ai a alavanca fica criando espada

 
function onUse(cid, item, frompos, item2, topos) item1pos = {x=1010, y=724, z=8, stackpos=2}
rock1pos = {x=1010, y=725, z=8, stackpos=1} -- Posição da Pedra
getrock1 = getThingfromPos(rock1pos)
getitem1 = getThingfromPos(item1pos)
UniID = 4563 -- UniqueID que vai ser adicionado na alavanca
rockID = 1353
itemID = 7959

if item.uid == UniID and item.itemid == 1945 and getrock1.itemid == rockID then
doRemoveItem(getrock1.uid, 1)
doTransformItem(item.uid, item.itemid+1)
doSendMagicEffect(rock1pos, 2)
elseif item.uid == UniID and item.itemid == 1946 then
doCreateItem(rockID, 1, rock1pos)
doTransformItem(item.uid,item.itemid-1)
doSendMagicEffect(rock1pos, 13)
end

if item.uid == UniID and item.itemid == 1945 and getitem1.itemid == itemID then
doRemoveItem(getitem1.uid, 1)
doTransformItem(item.uid, item.itemid+1)
doSendMagicEffect(item1pos, 2)
elseif item.uid == UniID and item.itemid == 1946 then
doCreateItem(itemID, 1, item1pos)
doTransformItem(item.uid,item.itemid-1)
doSendMagicEffect(item1pos, 13)        
end
return TRUE
end
misturei tudo mais ta funfanfo ta ai pra quem quiser bye xD vlw pela ajuda

cara uma duvida


CREATE TABLE death_list (
id INTEGER NOT NULL,
player_id INTEGER NOT NULL,
date INTEGER NOT NULL,
level INTEGER NOT NULL,
killer_name INTEGER NOT NULL,
PRIMARY KEY ( id )
);

ond vai isso?