dragonskai

Irei mandar para vc eu tenho espera ae
https://mega.nz/file/gNpD0LCZ#rfgfSDHzRdb01y2K6AfapBsjcqb3H3QiixHxhjKF3Mo está aq

tenta usar esse aqui
bd_psoul (1) (1).sql
tenta achar algum servidor online dessa base e pega o cliente agr n to com o cliente estou via celular

Irei mandar para vc eu tenho espera ae
https://mega.nz/file/gNpD0LCZ#rfgfSDHzRdb01y2K6AfapBsjcqb3H3QiixHxhjKF3Mo está aq

Irei mandar para vc eu tenho espera ae
https://mega.nz/file/gNpD0LCZ#rfgfSDHzRdb01y2K6AfapBsjcqb3H3QiixHxhjKF3Mo está aq

function onUse(cid, item, frompos, item2, topos)
    local tab = {
        reset = 1000,
        msg = "Você precisa de level "..tab reset.." para entrar."
    }
    local ipos, ppos = {x=getThingPosition(item.uid).x, y=getThingPosition(item.uid).y, z=getThingPosition(item.uid).z}, {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
        if getResets(cid) >= tab.reset then
            if ppos.y > ipos.y then
                doTeleportThing(cid, {x= ipos.x, y= ipos.y-1, z= ipos.z})
                doSendMagicEffect(getPlayerPosition(cid), CONST_ME_MAGIC_BLUE)
            elseif ppos.y < ipos.y then
                doTeleportThing(cid, {x= ipos.x, y= ipos.y+1, z= ipos.z})
                doSendMagicEffect(getPlayerPosition(cid), CONST_ME_MAGIC_BLUE)
            end
        else
            doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, tab.msg)
            doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF)
        end
    return true
end


 
Adicione a tag ao arquivo actions.xml (data/actions):
<action actionid="ACTIONID" event="script" value="resetdoor.lua"/>
 
tenta esse

Ultimamente surgiram vários:
 
http://www.tibiaking.com/forum/forum/186-servidores-derivados/
 
 

Roda então antes do autogen.sh esse comando:
 

$ ./configure --enable-mysql  
Apesar que para compilar não precisei rodar o autogen hora nenhuma, apenas fiz ./configure && ./build.sh

MODB
OK ,MUITA GENTE ME PEDIU UM WODBO TA AE,ESSE É MEU PRIMEIRO TOPICO DE WODBO ESPERO QUE SEJA UTIL
 
INFORMAÇOES
TRANSFORM ATE LEVEL 600
MAPA BEM DETALHADOS
MAGIAS IGUAL DO ANIME
 
IMAGENS 


 
DOWNLOAD
 
SERVIDOR/CLIENT/ FOTOS COM AS TRANSFORM
http://www.mediafire.com/download/g8041oz5lninuee/DBLW.zip
 
CREDITOS 
EQUIPE MODBO (MYSTIC OF DRAGONBALL ONLINE)

Ola pessoal primeiramente eu n sei aonde postar em que lugar e certo pos como tem mais gente aqui direto vendo se poder mover para o lugar certo para min obg
 
ta eu dei uma olhada em alguns sites e achei vps de ate 4 gb de ram windows e linux de graça o unico problema e que vc tem que convidar amigos para criar acc la mais isso e o de menos ne dei uma olhada la em http://api.5jelly.com/redir/7536625
lembrando depois que criar acc tem que confirmar o Email dai quando vc fazer isso logo que vc tiver logado na pagina dei uma olhada em  (Refferals) la vai te monstar as pessoas que sao suas referencias la vai ter um link postem esses link para seus amigos para criar acc la para ser sua referencia mais continuando depois que vc tiver la em refferals clica (Goals) la vc vai ver como adquirir uma VPS Linux e Windows de graça vlw quem gostar e ter sua vps de graça da rep+

Fala galera do TK, andei pegando um BAIAK base pra dar uma editada, trackeando alguns mapas e otimizando algumas coisas para disponibilizar um baiak "filé" para vocês do TK
 
 
Sem mimimi, vamos ao que interessa e depois algumas imagens!
 
 
O que temos neste lindo Baiak?
 
 New Templo bem baiak.
 Dodge System
 Run Event
 BP Event
 Guilds System
 Castle 24H
 Battlefield Event
 Blood Castle Event
 Firestorm Event
 Capture the Flags Event
 Items Donates para vender no site/jogo
 Items VIP a mostra no termplo
 3 Áreas VIPS jogo e Donate
 Vários Teleports 
 Novas Hunts
 Look Frags
 Sistema de Refinamento 
 Criminal System
 Hit Rank
 Reset System 
 Full Task
 Zombie Event
 [VIP] no nome ao adquirir VIP
 Distro 04 com Cast System (LUAN)
 Sistema de teleporte (!FLY)
 Level Skills System 
 Ao cadastrar o player irá ganhar 2 dias VIPs na quest do templo!
 War System
 Várias quests
 Arena PVP
 Treiners modificados
 Roda em SQLITE E MYSQL!
E muito mais, basta baixar para conferir!
 
 
Vamos as imagens:
Ao abrir o mapa:
 

 
Ingame:
 
Local onde o player começa:

 
 
Templo Baiak Absolute:

 
Teleports Free's Básicos:

 
Área de Eventos  e Summon por alavanca:

 
BP Event Room:

 
TPS VIP DONATE:

 
 
TPS VIP +:

 
TPS VIP ++:

 
Pasta do servidor:


 
 
Dowload/Scan
 
Download do servidor completo: http://www.4shared.com/rar/e7YfCJ_Sce/Baiak_Absolute.html?
Scan: https://www.virustotal.com/pt/url/6c6070c9c24da3b7719a92a1788bd2d8434d81c541b0038f68777621a121dccc/analysis/1407454456/

 
 
 
Desejo a todos um bom proveito e sucesso
 
 
Créditos:



 
 
 
 
Até a próxima
Absolute.
 
 
 

Olá galera não sou um bom spriter mais vim postar algumas coisas que faço, críticas são bem vindas.
 
Todas as sprites postada aqui não são Free for use.
 
 -- Animações --
 
Torch
  ->  
 

 
 -- Espadas --
 

 

 

 
Winged Sword
  ->   
 
Sword feita com 4 cores.

 
 
 
 -- Construções --
Wood Wall
  ->  
 
wood with stone wall

 
wall of tree trunks

 
Stone Wall

Fala galera vim postar um servidor que meu amigo Aberos = Mario Junior editou 
 
Sem mais delongas vamos ao que interessa 
 
 
 
* Informações
+Edições
+Printe's 
+Erros/Bug's
+Creditos
+Download
 
 
 
.Edições 
Base do servidor eron 12 
Servidor com sistema de contagem de Pokeball's usadas para capturar pokemons
Pokedex Diferente propia do servidor 
Servidor contem 1 geração com seus respectivos shiny's 
Loot's modificados agora estão vindo cartinhas pokémon 
Colodown bar Totalmente diferente 
 
. Printe's
 + Pokedex

 
+ Colldown bar 

 
+ Catch 

 
 
. Erros
No momento que eu saiba nem um erro 
 
. Creditos
Aberos 
Criadores do eron site 
Eu por trazer para tk 
 
. Download 
Servidor Source Cliente 
http://www.mediafire.com/download/g7ok4oqu29ycymf/pna+100.rar[>
 
 
Scan:
https://www.virustotal.com/pt/file/50231e068eac3a508ff3fd630e5f67ad45151fa0466a2f55258d9ea669f9ab30/analysis/1428800609/

tem qua abrir o RME e fazer um bau qualquer dai vc clica 2 vezes e bota um action nele ex:7105 dai depois tem que criar um arquivo com essa estorage ex
vai em data\action\script e renomei um arquivo como leafquest e add isso
 
function onUse(cid, item, frompos, item2, topos)   if item.uid == 7105 then   queststatus = getPlayerStorageValue(cid,98778)   if queststatus == -1 then   doPlayerSendTextMessage(cid,22,"Você completou a leaf valley quest..")   doPlayerAddItem(cid,11441,500)         doPlayerAddItem(cid,2160,100)   doTeleportThing(cid,{x=512, y=1127, z=7})         setPlayerStorageValue(cid,98778,1)   else   doPlayerSendTextMessage(cid,22,"Voce Ja Concluiu A Quest.")   end else return 0 end   return 1 end    fexe agora e edita o action.xml add essa tag la agora   <action actionid="7105" script="leafquest"/> 

usa o ObjectBuilder

local points,item = 10,113 id da frente e o pointes e o outro e o id do intem     function onUse(cid, item, fromPosition, itemEx, toPosition) local points,item = 10,113 if getPoints(cid) < points then return doPlayerSendTextMessage(cid, 20, "você precisa de "..points.." para comprar o item " .. getItemNameById(item)) end doPlayerAddItem(cid,item) removePoints(cid,points) doPlayerSendTextMessage(cid, 20, "você comprou o item " .. getItemNameById(item)) return true end

local position2 = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
tente botar um numero na frente do x e do y ate da aonde vc quer ex:
local position2 = {x=getCreaturePosition(cid).x+2, y=getCreaturePosition(cid).y+2, z=getCreaturePosition(cid).z}
 
obs eu n tenho certeza se e a local position2 ou vc tem que fazer outro pq vc esta usando mais efeitos e eu n sei se e o efeito da spells 2 que ta errado verifica e me diz

V17.1
 
*Informações
 
 
 
+Edições
 
 
 
 
 
+Print's
 
 
+Erros/Bug's
 
 
+Creditos
 
QUALQUER ERRO E BUG, COMENTAR NESSE TÓPICO
Desculpa pelos erros ortográficos. 
 
ah antes que me esqueça ID da vara de pesca 2580

Mulizeu/Latoy são a msm pessoa



Na sua db execute:

CREATE TABLE marriage_system ( id INTEGER NOT NULL, player_id INTEGER NOT NULL, partner VARCHAR( 255 ) NOT NULL, marriage_date INTEGER NOT NULL, PRIMARY KEY ( id ) ); Mods MarriageSystem.xml <?xml version="1.0" encoding="UTF-8"?> <mod name="MarriageSystem" version="1.0" author="Mulizeu" contact="tibiaking.com" enabled="yes"> <config name="marry_func"><![CDATA[ marry_config = { Premium = false, OnlyDifferentSex = false, Marry_Price = 300000, Divorce_Price = 100000, Level = 50, MaxSqm = 7 -- to up system and win bonus } Marry_stage = { [0] = {exp = 350000, marry_percent = 50, player_experience = 0}, [1] = {exp = 700000, marry_percent = 45, player_experience = 2}, [2] = {exp = 1050000, marry_percent = 40, player_experience = 4}, [3] = {exp = 1400000, marry_percent = 35, player_experience = 6}, [4] = {exp = 1750000, marry_percent = 30, player_experience = 8}, [5] = {exp = 2100000, marry_percent = 25, player_experience = 10}, [6] = {exp = 2450000, marry_percent = 20, player_experience = 12}, [7] = {exp = 2800000, marry_percent = 15, player_experience = 14}, [8] = {exp = 3150000, marry_percent = 10, player_experience = 16}, [9] = {exp = 3500000, marry_percent = 5, player_experience = 18}, [10] = {exp = 0, marry_percent = 0, player_experience = 20} } marriage_tabble = {exp = 350250,level = 340200} function isMarried(cid) local m = db.getResult("SELECT `player_id` FROM `marriage_system` WHERE `player_id` = '"..getPlayerGUID(cid).."';") if(m:getID() == -1) then local e = db.getResult("SELECT `partner` FROM `marriage_system` WHERE `partner` = '"..getPlayerGUID(cid).."';") if(e:getID() == -1) then return false end end return true end function isPatner(cid) local p = db.getResult("SELECT `partner` FROM `marriage_system` WHERE `player_id` = '"..getPlayerGUID(cid).."';") if(p:getID() == -1) then return true end return false end function isMarryOnline(cid) if not getPlayerByNameWildcard(getPartner(cid)) then return false end return true end function getPartner(cid) if isPatner(cid) then a = db.getResult("SELECT `player_id` FROM `marriage_system` WHERE `partner` = '"..getPlayerGUID(cid).."';") b = "player_id" else a = db.getResult("SELECT `partner` FROM `marriage_system` WHERE `player_id` = '"..getPlayerGUID(cid).."';") b = "partner" end local query = a return getPlayerNameByGUID(query:getDataString(b)) end function doMarry(cid, patner) return db.executeQuery("INSERT INTO `marriage_system` (`player_id`, `partner`, `marriage_date`) VALUES ('".. getPlayerGUID(cid) .."', '"..patner.."', '".. os.time() .."');") end function doDivorcePlayer(cid) if isPatner(cid) then pid,player = getPlayerGUIDByName(getPartner(cid)),getPlayerByNameWildcard(getPartner(cid)) else pid,player = getPlayerGUID(cid),cid end if(not player or isPlayerGhost(player)) then db.executeQuery("DELETE FROM `player_storage` WHERE `player_id` = " .. pid .. " AND `key` = " .. marriage_tabble.level .. ";") db.executeQuery("DELETE FROM `player_storage` WHERE `player_id` = " .. pid .. " AND `key` = " .. marriage_tabble.exp .. ";") else setPlayerStorageValue(player, marriage_tabble.level,0) setPlayerStorageValue(player, marriage_tabble.exp,0) end return db.executeQuery("DELETE FROM `marriage_system` WHERE `player_id` = '" .. pid .. "';") end function getMarryStatus(cid, status) player = isPatner(cid) and getPlayerByNameWildcard(getPartner(cid)) or cid return getPlayerStorageValue(player,status == "level" and marriage_tabble.level or marriage_tabble.exp) < 0 and 0 or getPlayerStorageValue(player, status == "level" and marriage_tabble.level or marriage_tabble.exp) end function setMarryStatus(cid, status, amount) player = isPatner(cid) and getPlayerByNameWildcard(getPartner(cid)) or cid return setPlayerStorageValue(player, status == "level" and marriage_tabble.level or marriage_tabble.exp, getMarryStatus(player, status)+amount) end function getMarryExp(cid) return getMarryStatus(cid, "exp") end function addMarryExp(cid, amount) return setMarryStatus(cid, "exp", amount) end function addMarryLevel(cid, amount) return setMarryStatus(cid, "level", amount) end function getMarryLevel(cid) return getMarryStatus(cid, "level") end function getMarryDate(cid) local player = isPatner(cid) and getPlayerGUIDByName(getPartner(cid)) or getPlayerGUID(cid) local date = db.getResult("SELECT `marriage_date` FROM `marriage_system` WHERE `player_id` = '"..player.."';") return os.date("%d %B %Y %X ", date:getDataInt("marriage_date")) end ]]></config> <talkaction words="/marriage;!marriage;!divorce;/divorce" event="buffer"><![CDATA[ domodlib('marry_func') config = {TimeAccept = 30, sqm = 3, storage1 = 873438, storage2 = 532579} if words =="!marriage" or words =="/marriage" then param = string.lower(param) if (param == "") then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"invalid command, for more information enter !marriage info") elseif(param == "info") then msg = "Marriage Info".."\n\nLevel Minimum: "..marry_config.Level.."\nMarriage Cost: "..marry_config.Marry_Price.."\nDivorce Cost: "..marry_config.Divorce_Price.."\n\nMarried Players have a bonus exp as a wedding gift given by the union".."\n\nThis bonus is only given if the married players are nearby.\n\nTo marry use the command:\n!marriage NAME" doShowTextDialog(cid,2160,msg) elseif(param == "status") then if isMarried(cid) then msg = "Marriage Status".."\n\nMarried with: ["..getPartner(cid).."]\n\nMarry Experience: "..(getMarryLevel(cid) ~= 10 and "["..getMarryExp(cid).."/"..Marry_stage[getMarryLevel(cid)].exp.."]" or "[Max]").."\n\nMarry Level: "..(getMarryLevel(cid) ~= 10 and "["..getMarryLevel(cid).."]" or "[Max]").."\n" else msg = "you are not married" end doPlayerPopupFYI(cid, msg) elseif (param =="date") then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,""..(isMarried(cid) and "The date of his marriage with "..getPartner(cid).." was: "..getMarryDate(cid).."." or "you are not married.").."") elseif (param =="accept") then player = getPlayerStorageValue(cid, config.storage2) if getPlayerStorageValue(cid, config.storage1) >= os.time() then if not isMarried(cid) then if getDistanceBetween(getCreaturePosition(cid), getCreaturePosition(player)) <= config.sqm then doMarry(cid, getPlayerGUID(player)) doPlayerSendTextMessage(player, MESSAGE_STATUS_CONSOLE_ORANGE,"Congratulations! "..getCreatureName(cid).." accepted his marriage proposal.") doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"Congratulations! you married with "..getCreatureName(player)) doSendMagicEffect(getCreaturePosition(cid), 35) doSendMagicEffect(getCreaturePosition(player), 35) else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "you're far away from her suitor.") end else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"you are not married.") end else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"you do not received none wedding invitation.") end elseif (param =="reject") then if getPlayerStorageValue(cid, config.storage1) >= os.time() then if not isMarried(cid) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"You just refuse the wedding invitation from player "..getCreatureName(getPlayerStorageValue(cid, config.storage2))) doPlayerSendTextMessage(getPlayerStorageValue(cid, config.storage2), MESSAGE_STATUS_CONSOLE_ORANGE,getCreatureName(cid).." rejected his marriage proposal.") else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"you are already married.") end else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"you do not received none wedding invitation.") end else local player = getPlayerByNameWildcard(param) if(not player)then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, param.." is offline or does not exist.") return true elseif isMarried(cid) or isMarried(player) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, ""..(isMarried(cid) and "you" or "he").." already is wedded.") return true elseif marry_config.Premium == true then if not isPremium(cid) or not isPremium(Player) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "players must be premium") end return true elseif getPlayerLevel(cid) < marry_config.Level or getPlayerLevel(player) < marry_config.Level then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "players must to be level "..marry_config.Level) return true elseif getPlayerStorageValue(player, config.storage1) >= os.time() then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, param.." already have a wedding invitation, wait.") return true elseif getDistanceBetween(getCreaturePosition(cid), getCreaturePosition(player)) > config.sqm then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "you are far away from each other to get married.") return true elseif marry_config.OnlyDifferentSex and getPlayerSex(cid) == getPlayerSex(player) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "you can only marry the opposite sex") return true elseif not doPlayerRemoveMoney(cid, marry_config.Marry_Price) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Sorry, but you do not have "..marry_config.Marry_Price.." gp(s) to ask "..param.." in marriage.") return true end setPlayerStorageValue(player, config.storage1,os.time()+config.TimeAccept) setPlayerStorageValue(player, config.storage2, cid) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"you asked "..param.." in marriage, wait a answer!") doPlayerSendTextMessage(player, MESSAGE_STATUS_CONSOLE_BLUE,getCreatureName(cid).." asked you in marriage, enter !marriage accept or !marriage reject") end elseif words =="!divorce" or words =="/divorce" then if isMarried(cid) then if doPlayerRemoveMoney(cid, marry_config.Divorce_Price) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"Congratulations, you end up divorcing from player: "..getPartner(cid)) doDivorcePlayer(cid) else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"Sorry, you do not have "..marry_config.Divorce_Price.." gp(s).") end else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"you are not married.") end end return true ]]></talkaction> <event type="login" name="MarryRegister" event="script"><![CDATA[ function onLogin(cid) registerCreatureEvent(cid, "ExpMarry") registerCreatureEvent(cid, "MarryLook") registerCreatureEvent(cid, "MarryStats") registerCreatureEvent(cid, "MarryNoAttack") return true end]]></event> <event type="look" name="MarryLook" event="script"><![CDATA[ domodlib('marry_func') function onLook(cid, thing, position, lookDistance) if isPlayer(thing.uid) and isMarried(thing.uid) then doPlayerSetSpecialDescription(thing.uid, "\nMarried with "..getPartner(thing.uid).." - [Nv: " .. getMarryLevel(thing.uid) .."]\n") end return true end]]></event> <event type="combat" name="MarryNoAttack" event="script"><![CDATA[ domodlib('marry_func') if isPlayer(cid) and isPlayer(target) and isMarried(cid) and isMarried(target) then if (getCreatureName(target) == getPartner(cid))then doPlayerSendCancel(cid, "You may not attack this player.") return false end end return true ]]></event> <event type="kill" name="ExpMarry" event="script"><![CDATA[ domodlib('marry_func') function onKill(cid, target, lastHit) if isMonster(target) then conta = getMonsterInfo(string.lower(getCreatureName(target))).experience if isMarried(cid) and isMarryOnline(cid) and getDistanceBetween(getCreaturePosition(cid), getCreaturePosition(getPlayerByNameWildcard(getPartner(cid)))) <= marry_config.MaxSqm then if getMarryLevel(cid) ~= 10 then mexp = math.ceil((conta*Marry_stage[getMarryLevel(cid)].marry_percent)/100) addMarryExp(cid, mexp) if isMarryOnline(cid) then doPlayerSendTextMessage(getPlayerByNameWildcard(getPartner(cid)),MESSAGE_STATUS_SMALL,"Marry exp + "..mexp) end doPlayerSendTextMessage(cid,MESSAGE_STATUS_SMALL,"Marry exp + "..mexp) if getMarryExp(cid) >= Marry_stage[getMarryLevel(cid)].exp then addMarryLevel(cid, 1) if isMarryOnline(cid) then doPlayerSendTextMessage(getPlayerByNameWildcard(getPartner(cid)), MESSAGE_STATUS_CONSOLE_RED,"[Marriage System] Level Up! [Nv: "..getMarryLevel(cid).."].") doSendMagicEffect(getCreaturePosition(getPlayerByNameWildcard(getPartner(cid))), 35) end doPlayerSendTextMessage(cid,MESSAGE_STATUS_CONSOLE_RED,"[Marriage System] Level Up! [Nv: "..getMarryLevel(cid).."].") doSendMagicEffect(getCreaturePosition(cid), 35) end end local exp = getExperienceStage(getPlayerLevel(cid), getVocationInfo(getPlayerVocation(cid)).experienceMultiplier) local count = math.ceil(((getMonsterInfo(string.lower(getCreatureName(target))).experience*exp)*Marry_stage[getMarryLevel(cid)].player_experience)/100) doPlayerAddExperience(cid, count) end end return true end]]></event> <event type="statschange" name="MarryStats" event="script"><![CDATA[ domodlib('marry_func') Damage_percent = 50 -- metade n mexa Chance = 25 -- chance de conseguir o reflect ou couple damage if isMonster(attacker) and type == STATSCHANGE_HEALTHLOSS then if isMarried(cid) and isMarryOnline(cid) and getPlayerByNameWildcard(getPartner(cid)) and getDistanceBetween(getCreaturePosition(cid), getCreaturePosition(getPlayerByNameWildcard(getPartner(cid)))) <= marry_config.MaxSqm then if (Chance > math.random(1, 100)) then damage = math.ceil((value*Damage_percent)/100) if (50 > math.random(1, 100)) then doTargetCombatHealth(cid, attacker, COMBAT_PHYSICALDAMAGE, -damage, -damage, CONST_ME_HOLYDAMAGE) doSendAnimatedText(getCreaturePosition(cid), "REFLECT!", 140) else doSendMagicEffect(getCreaturePosition(cid), CONST_ME_HEARTS) doSendAnimatedText(getCreaturePosition(cid), "Love!", 200) doCreatureAddHealth(cid, damage) if isMarryOnline(cid) then doSendMagicEffect(getCreaturePosition(getPlayerByNameWildcard(getPartner(cid))), CONST_ME_HEARTS) doSendAnimatedText(getCreaturePosition(getPlayerByNameWildcard(getPartner(cid))), "Love!", 200) doCreatureAddHealth(getPlayerByNameWildcard(getPartner(cid)), -damage) end end end end end return true ]]></event> </mod>


Configuração:




CREDITOS : 25% Ao vodkart pela lib e 75% ao mulizeu(eu) Pelos demais scripts

Só faltou um end na função do NPC dele.

function santaNPC(cid, message, keywords, parameters, node) if(not npcHandler:isFocused(cid)) then return false end if (parameters.present == true) then if isPlayer(cid) then if getPlayerItemCount(cid,vipcoins) >= quant then doPlayerAddPremiumDays(cid,days) doPlayerRemoveItem(cid,vipcoins,quant) npcHandler:say('Obrigado |PLAYERNAME|, Está aqui seus "..days.." dias de Premium', cid) else npcHandler:say('Voce não tem "..quant.." Vip Coins.', cid) end end npcHandler:resetNpc() return true end end

Só mude a função.