[AJUDA] Marriage System

if(is_int($number_of_rows / 2)) { $bgcolor = $config['site']['darkborder']; } else { $bgcolor = $config['site']['lightborder']; } $number_of_rows++;
				$main_content .= '<TR BGCOLOR="'.$bgcolor.'"><TD style="border:1px solid #faf0d7;">Relacionamento:</TD><TD style="border:1px solid #faf0d7;">';
				$marriage = new Player(); 
                $marriage->load($player->marriage); 
                if($marriage->isLoaded()) 
                    $main_content .= 'married to <a href="?subtopic=characters&name='.urlencode($marriage->getName()).'"><b>'.$marriage->getName().'</b></a></TD></TR>';
				else
					$main_content .= '<b>S</b>olteiro</TD></TR>';

<?xml version="1.0" encoding="UTF-8"?>  
<mod name="MarriageSystem" version="1.0" author="By Vodkart" contact="Vodkart" enabled="yes">  
<config name="marry_func"><![CDATA[

marry_config = {
OnlyDifferentSex = false,
Marry_Price = 10000000,
Divorce_Price = 5000000,
Level = 450,
MaxSqm = 1,
Text = {'EU TE AMO!','MEU AMOR!','MINHA QUERIDA!'},
RingID = 10502,
TimeAccept = 30,
storage1 = 300235,
storage2 = 300236,
storage3 = 300237
}

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 Ponline(player)
local rows = db.getResult("SELECT `online` FROM `players` WHERE `id` = " .. player .. ";")
local on = rows:getDataInt("online")
if on ~= 0 then
return TRUE
else
return FALSE
end
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
return db.executeQuery("DELETE FROM `marriage_system` WHERE `player_id` = '" .. pid .. "';")
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="/casamento;!casamento" event="buffer"><![CDATA[
domodlib('marry_func')
param = string.lower(param)
if (param == "") then
doCreatureSay(cid,"Ops! Comando invalido, digite !casamento info",TALKTYPE_ORANGE_1)
doSendMagicEffect(getThingPos(cid), 2)
elseif(param == "info") then
doPlayerPopupFYI(cid, "                      [+] SISTEMA DE CASAMENTO [+]\n           #Exclusivo do Servidor#\n\n\n\nLevel Minimo: "..marry_config.Level.."\n\nCasamento Custa: 10kk\n\nSeparar Custa: 5kk\n\n\nOs jogadores casados tem buffs especiais como presente de casamento dado pelo padre.\n\nPara saber o buff entre em nosso site na aba de Addons Bonus! \n\nQuer se casar? Procure pelo Padre Gregorio XV na sua igreja na cidade principal!")
elseif(param == "status") then
doPlayerPopupFYI(cid,""..(isMarried(cid) and "Status do Casamento".."\n\nCasado com: ["..getPartner(cid).."]\n\nA data de seu casamento foi: "..getMarryDate(cid).."" or "Ops!\n\n Voce nao e casado! Procure uma parceiro(a).").."")
end
return true
]]></talkaction>
</mod>