Married System

SkyDangerous · Agosto 6, 2010

BOM JÁ DEVE EXISTIR ESSE SCRIPT AQUI NO FORUM .. COMO É ANTIGO DEVE ESTAR BEM DISTANTE.

ALGUEM PODE ME PASSAR TODOS SCRIPT NECESSÁRIO PARA FUNCIONAR MARRIED SYSTEM.

COM O LOOK .. ETC?

comedinhasss · Agosto 7, 2010

Adicione em function.lua

function getPlayerMarriage(player)	local rows = db.getResult("SELECT `marriage` FROM `players` WHERE `id` = " .. player .. ";")	local marry = rows:getDataInt("marriage")	if marry ~= 0 then		return marry	else		return 0	endendfunction addMarryStatus(player,partner)	db.executeQuery("UPDATE `players` SET `marrystatus` = " .. partner .. " WHERE `id` = " .. player .. ";")endfunction doCancelMarryStatus(player)	db.executeQuery("UPDATE `players` SET `marrystatus` = 0 WHERE `id` = " .. player .. ";")endfunction getMarryStatus(player)	local stat = db.getResult("SELECT `id` FROM `players` WHERE `marrystatus` = " .. player .. ";")	if(stat:getID() == -1) then		return 0	else		local info = stat:getDataInt("id")		return info	endendfunction getOwnMarryStatus(player)	local stat = db.getResult("SELECT `marrystatus` FROM `players` WHERE `id` = " .. player .. ";")	if(stat:getID() == -1) then		return 0	else		local info = stat:getDataInt("marrystatus")		return info	endendfunction isOnline(player)	local rows = db.getResult("SELECT `online` FROM `players` WHERE `id` = " .. player .. ";")	local on = rows:getDataInt("online")	if on ~= 0 then		return 1	else		return 0	endend

Crie um npc:

<?xml version="1.0" encoding="UTF-8"?>  
<npc name="Nome_Do_Npc" script="data/npc/scripts/wedding.lua" access="3" lookdir="2">
<mana now="800" max="800"/>
<health now="200" max="200"/>
<look type="57" head="20" body="30" legs="40" feet="50"/>
<parameters>
	<parameter key="message_greet" value="Seja bem vindo |PLAYERNAME|! Eu posso te {casar}." />
   	<parameter key="module_keywords" value="1" />

</parameters>
</npc>

Script do npc:

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}

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 creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
   	return false
end

local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

if msgcontains(msg, 'casar') or msgcontains(msg, 'marriage') then
	if getPlayerStorageValue(cid,3066) == -1 then
		selfSay('Voce gostaria de se casar?', cid)
		talkState[talkUser] = 1
	elseif getPlayerStorageValue(cid,3066) == 1 then
		local fid = getPlayerGUID(cid)
		local marrystatus = getOwnMarryStatus(fid)
		if marrystatus ~= 0 then
			local newpartner = getPlayerNameByGUID(marrystatus)
			selfSay('Voce ja definiu a data do casamento com {' .. newpartner .. '}, agora eu preciso conversar com seu parceiro. Voce quer {cancelar}?', cid)
			talkState[talkUser] = 5
		else
			setPlayerStorageValue(cid,3066,-1)
			selfSay('Voce gostaria de se casar?', cid)
			talkState[talkUser] = 1
		end
	elseif getPlayerStorageValue(cid,3066) == 2 then
		selfSay('Voce ja esta casado. Se voce quer {divorcio}, basta dizer.', cid)
		talkState[talkUser] = 0
	end

elseif msgcontains(msg, 'divorcio') then
	if getPlayerStorageValue(cid,3066) == 2 then
		selfSay('Voce tem certeza que quer se divorciar do seu parceiro?', cid)
		talkState[talkUser] = 6
	else
		selfSay('Voce nao esta casado. Gostaria de se {casar}?', cid)
		talkState[talkUser] = 0
	end
end

if talkState[talkUser] == 1 then
	if msgcontains(msg, 'yes') then
		local fid = getPlayerGUID(cid)
		local marrystatus = getMarryStatus(fid)
		if marrystatus == FALSE then
			selfSay('E qual o nome do seu futuro parceiro?', cid)
			talkState[talkUser] = 2
		else
			local marryname = getPlayerNameByGUID(marrystatus)
			selfSay('{' .. marryname .. '} marcou a data do casamento com voce. Voce quer {continuar} ou {cancelar} o casamento?', cid)
			talkState[talkUser] = 4
		end
	end

elseif talkState[talkUser] == 2 then
	local p = msg
	local player = getPlayerName(cid)
	local fid = getPlayerGUID(cid)
	local sid = getPlayerGUIDByName(p)
	if sid == 0 then
		selfSay('Nao existe nenhum jogador com este nome.', cid)
		talkState[talkUser] = 0
	elseif sid == fid then
		selfSay('Nao se preocupe, voce sempre estara casado com voce mesmo, garoto.', cid)
		talkState[talkUser] = 0
	else
		local marrystatus = getMarryStatus(fid)
		local pmarriage = getPlayerMarriage(sid)
		local ownstatus = getOwnMarryStatus(cid)
		if pmarriage == FALSE then
			if marrystatus == FALSE then
				if ownstatus == FALSE then
					setPlayerStorageValue(cid,3066,1)
					addMarryStatus(fid,sid)
					selfSay('Voce acabou de marcar um casamento com {' .. p .. '}.', cid)
					talkState[talkUser] = 0
				else
					local partnername = getPlayerNameByGUID(ownstatus)
					selfSay('{' .. p .. '} ja marcou a data do casamento com {' .. partnername .. '}.', cid)
					talkState[talkUser] = 0
				end
			else
				local marryname = getPlayerNameByGUID(marrystatus)
				selfSay('{' .. marryname .. '} marcou a data do casamento com voce. Voce deseja {continuar} ou {cancelar} o casamento?', cid)
				talkState[talkUser] = 4
			end
		else
			local pname = getPlayerNameByGUID(pmarriage)
			selfSay('Desculpe, mas {' .. p .. '} esta casado com {' .. pname .. '}.', cid)
			talkState[talkUser] = 0
		end
	end

elseif talkState[talkUser] == 4 then
	if msgcontains(msg, 'continuar') then
		local fid = getPlayerGUID(cid)
		local sid = getMarryStatus(fid)
		local marryname = getPlayerNameByGUID(sid)
		local pid = getPlayerByNameWildcard(marryname)
			local tmf = getCreaturePosition(cid)
			local	tms = getCreaturePosition(pid)
			local text = {'Eu te amo!','Meu amor!','Minha paixao!'}
			local chance1 = math.random(1,table.getn(text))
			local chance2 = math.random(1,table.getn(text))
			local dateFormat = "%A %d"..getMonthDayEnding(os.date("%d")).." %B %Y"
                           	local ring = doPlayerAddItem(cid,10502,1)
                           	local ring2 = doPlayerAddItem(pid,10502,1)

		if isOnline(fid) == TRUE and isOnline(sid) == TRUE then
		if getDistanceBetween(tmf, tms) <= 3 then
				setPlayerStorageValue(cid,3066,2)
				setPlayerStorageValue(pid,3066,2)
				doCancelMarryStatus(fid)
				doCancelMarryStatus(sid)
				setPlayerPartner(cid,sid)
				setPlayerPartner(pid,fid)
                                   	doPlayerAddOutfitId(cid,23,0)
                                   	doPlayerAddOutfitId(pid,23,0)
                                   	doItemSetAttribute(ring, "description", "" .. getCreatureName(cid) .. " & " .. getCreatureName(pid) .. " forever - married on " ..os.date(dateFormat).. ".")
                                   	doItemSetAttribute(ring2, "description", "" .. getCreatureName(cid) .. " & " .. getCreatureName(pid) .. " forever - married on " ..os.date(dateFormat).. ".")
				doCreatureSay(cid, text[chance1], TALKTYPE_ORANGE_1)
				doCreatureSay(pid, text[chance2], TALKTYPE_ORANGE_1)
				doSendMagicEffect(tmf, 35)
				doSendMagicEffect(tms, 35)
				selfSay('Parabens! Agora ja podem se beijar! Sempre que quiser este efeito, basta dizer {love}. Voce precisa estar perto do seu parceiro.', cid)
				talkState[talkUser] = 0

			else
				selfSay('Seu parceiro deve estar perto de voce para que voces possam se casar!', cid)
				talkState[talkUser] = 0
			end
		else
			selfSay('Voce e seu novo parceiro devem estar online ao mesmo tempo.', cid)
			talkState[talkUser] = 0
		end



	elseif msgcontains(msg, 'cancelar') then
		local fid = getPlayerGUID(cid)
		local sid = getMarryStatus(fid)
		local marryname = getPlayerNameByGUID(sid)
		local pid = getPlayerByNameWildcard(marryname)
		if isOnline(sid) == TRUE then
			setPlayerStorageValue(pid,3066,-1)
		end
		doCancelMarryStatus(sid)
		selfSay('Voce cancelou sua data de casamento com {' .. marryname .. '}.', cid)
		talkState[talkUser] = 0
	end

elseif talkState[talkUser] == 5 then
	if msgcontains(msg, 'cancelar') or msgcontains(msg, 'yes') then
		local fid = getPlayerGUID(cid)
		setPlayerStorageValue(cid,3066,-1)
		doCancelMarryStatus(fid)
		talkState[talkUser] = 0
	end

elseif talkState[talkUser] == 6 then
	if msgcontains(msg, 'yes') then
		local fid = getPlayerGUID(cid)
		local sid = getPlayerPartner(cid)
		local marryname = getPlayerNameByGUID(sid)
		local pid = getPlayerByNameWildcard(marryname)
		if (isOnline(fid) == TRUE and isOnline(sid) == TRUE) then
			setPlayerStorageValue(cid,3066,-1)
			setPlayerStorageValue(pid,3066,-1)
			setPlayerPartner(cid,0)
			setPlayerPartner(pid,0)
                           	doPlayerAddOutfitId(cid,23,-1)
                           	doPlayerAddOutfitId(pid,23,-1)
			selfSay('Voce acabou de se divorciar do seu antigo parceiro.', cid)
			talkState[talkUser] = 0
		else
			selfSay('Voce e seu parceiro deve estar online ao mesmo tempo.', cid)
			talkState[talkUser] = 0
		end
	end

end


return TRUE
end

npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

Adicione na table se seu servidor for mysql:

ALTER TABLE `players` ADD `marrystatus` INT UNSIGNED NOT NULL DEFAULT '0' AFTER `marriage` ;

Em talkactions.xml

Adicione nos scripts: Love.lua

function onSay(cid, words, param)	local text = {'I love you!','My love!','Baby dear!'}	local chance1 = math.random(1,table.getn(text))	local chance2 = math.random(1,table.getn(text))	local sid = getPlayerPartner(cid)	if sid > 0 then		if isOnline(sid) == TRUE then			local sname = getPlayerNameByGUID(sid)			local pid = getPlayerByNameWildcard(sname)			local tmf = getCreaturePosition(cid)			local	tms = getCreaturePosition(pid)			if getDistanceBetween(tmf, tms) <= 3 then				doCreatureSay(cid, text[chance1], TALKTYPE_ORANGE_1)				doCreatureSay(pid, text[chance2], TALKTYPE_ORANGE_1)				doSendMagicEffect(tmf, 35)				doSendMagicEffect(tms, 35)				return TRUE			end		end	endend

Editado Agosto 7, 2010 por comedinhasss

SkyDangerous · Agosto 7, 2010

OPA

MAS EU NAO SEI MECHER NO SQLSTUDIO AONDE EU ADICIONO?

COMO ADICIONA ..

AONDE FICA O FUNCTION.LUA ;D

DevilMoon · Agosto 9, 2010

Entra Neste Link , Esta Mais Explicado , Lá Voce vai Saber onde Fica Functions.lua e Etc.

Married System

Entrar

Married System

Posts Recomendados

SkyDangerous 395

Link para o comentário

Compartilhar em outros sites

comedinhasss 234

Link para o comentário

Compartilhar em outros sites

SkyDangerous 395

Link para o comentário

Compartilhar em outros sites

DevilMoon 125

Link para o comentário

Compartilhar em outros sites

Quem Está Navegando 0 membros estão online

Conteúdo Similar

script alguém pode me ajudar nessa spells aqui, queira que colocassem pro meu personagem ficar inatingível por 6 segundos e podendo atacar livremente

Letreiro ao entrar em local

event Erro LineAnimation Snowball Event

Autoloot não stacka os items coletados

Mob sangra Gold / Monster bleeds gold

Fóruns

Tutoriais

Suporte