GM

[7.6]padre, Totalmente Portugues !

Por Gm Dudu, 08 de nov. de 2006 em NPCs, monsters e raids

6
2k
Gm DuduG
08 de novembro de 2006 às 17:13

TOTALMENTE PORTUGUES

Ele interage com dois players ao mesmo tempo

muitooo fodaaaaa ate aliança ele vende !

Eu só não foi falar pra abrir aqui abrir ali pq eu to cansado,

foi mo trabalho fazer isso

entaum ai vai:

 

focus = 0talk_start = 0target = 0following = falseattacking = falsemyname = ''origmsg = ''accs = 0function onThingMove(creature, thing, oldpos, oldstackpos)endfunction onCreatureAppear(creature)endfunction onCreatureDisappear(cid, pos) 	 if focus == cid then          selfSay('Vá Com Deus Irmao, Que o Senhor vos acompanhe.')          focus = 0          talk_start = 0 	 endendfunction onCreatureTurn(creature)endfunction msgcontains(txt, str) 	 return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)'))endfunction onCreatureSay(cid, type, msg) 	 msg = string.lower(msg) 	 if (msgcontains(msg, 'hi') and (focus == 0)) and getDistanceToCreature(cid) < 4 then    selfSay('Ola, Tudo bem? Sou o Padre Do Server voce deseja se casar?')    focus = cid    talk_start = os.clock() 	 elseif msgcontains(msg, 'hi') and (focus ~= cid) and getDistanceToCreature(cid) < 4 then    selfSay('Ola ' .. creatureGetName(cid) .. ' aguarde sua vez')	elseif focus == cid then  talk_start = os.clock()                if msgcontains(msg, 'sim') accs == 1 then 	 selfSay('Me Diga seu nome da sua esposa')                        accs = 2                elseif accs == 2 then                        mynamedois = origmsg 	 selfSay('E Voce? qual seu nome?')                        accs = 3                elseif accs == 3 then                        mynameum = origmsg 	 selfSay('posso começar?')                        accs = 4                elseif msgcontains(msg, 'sim') accs == 4 then 	 selfSay('' .. creatureGetName(cid) .. ', Promete ama-la e respeitala, na saude e na doença na riquesa e na probresa ate que a morte os separe?')                        accs = 5                elseif msgcontains(msg, 'sim') accs == 5 then 	 selfSay('E voce '..mynamedois..', Promete ama-lo e respeita-lo, na saude e na doença na riquesa e na probresa ate que a morte os separe?')                        accs = 6           elseif msgcontains(msg, 'sim') and (focus ~= cid) and getDistanceToCreature(cid) accs == 6 then 	 selfSay(''..mynameum..', voce aceita '..mynamedois..' como sua legitima esposa?')                        accs = 7                elseif msgcontains(msg, 'sim') accs == 7 then 	 selfSay('E voce '..mynamedois..', voce aceita '..mynameum..' como seu legitimo esposo?')                        accs = 8           elseif msgcontains(msg, 'sim') and (focus ~= cid) and getDistanceToCreature(cid) accs == 8 then 	 selfSay('Eu os declaro, Marido e Mulher ! '..mynameum..', Pode beijar a noiva') 	 selfSay(''..mynameum..' Voce deseja comprar as alianças?')                        accs = 9                elseif msgcontains(msg, 'sim') accs == 9 then 	 buy(cid,1990,1,0) 	 buy(cid,2121,2,100) 	 selfSay('Voces Estaum Oficialmente Casados !')                        accs = 10  elseif string.find(msg, '(%a*)no(%a*)') and getDistanceToCreature(cid) < 4 then 	 selfSay('Volte outra hora entao') 	 focus = 0 	 talk_start = 0  end	endendfunction onCreatureChangeOutfit(creature)endfunction onThink()if (os.clock() - talk_start) > 30 thenif focus > 0 thenselfSay('Aaah ! Ja era proximo casamento !')endfocus = 0endif focus ~= 0 thenif getDistanceToCreature(focus) > 5 thenselfSay('Vá Com Deus Irmao, Que o Senhor vos acompanhe.')focus = 0endendif focus == 0 thencx, cy, cz = selfGetPosition()randmove = math.random(1,20)if randmove == 1 thennx = cx + 1endif randmove == 2 thennx = cx - 1endif randmove == 3 thenny = cy + 1endif randmove == 4 thenny = cy - 1endif randmove >= 5 thennx = cxny = cyendmoveToPosition(nx, ny, cz)--summons = 30--summons2 = 30endend

 

Flww ! espero ter ajudado

Atenciosamente, Dudu :bye:

GrehG
08 de novembro de 2006 às 22:52

Olá

Ai Mano, O Npc Está Rox,

Mas Acho Que Não É Muito Útil..

//Greh

juvekainnJ
08 de novembro de 2006 às 23:25

kara esta a dar um error assim aki veja so "then" expected near "accs"

preciso urgent de um ^^

2 meses depois...
GOD ZéG
18 de janeiro de 2007 às 01:03

:hi: Vlw manu tava msm precisanu u pessoal ake ker se casa e talz... :bigsmile: ty Flew...

victor4993V
19 de janeiro de 2007 às 22:01

Vlw tava procurando o que ja tinha era bug esse e perfeito ^^

4 meses depois...
skynagerloasS
25 de maio de 2007 às 14:01

Tópico contendo somente 1 NpC,

essa seção é para DataPacks com 3 ou mais Npcs,

~o{Tópico Movido}o~,

Abraços.