Gm Dudu 0 Postado Novembro 8, 2006 Share Postado Novembro 8, 2006 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 Link para o comentário Compartilhar em outros sites More sharing options...
Greh 1 Postado Novembro 9, 2006 Share Postado Novembro 9, 2006 Olá Ai Mano, O Npc Está Rox, Mas Acho Que Não É Muito Útil.. //Greh Link para o comentário Compartilhar em outros sites More sharing options...
juvekainn 0 Postado Novembro 9, 2006 Share Postado Novembro 9, 2006 kara esta a dar um error assim aki veja so "then" expected near "accs" preciso urgent de um ^^ Link para o comentário Compartilhar em outros sites More sharing options...
GOD Zé 4 Postado Janeiro 18, 2007 Share Postado Janeiro 18, 2007 :hi: Vlw manu tava msm precisanu u pessoal ake ker se casa e talz... ty Flew... Link para o comentário Compartilhar em outros sites More sharing options...
victor4993 0 Postado Janeiro 20, 2007 Share Postado Janeiro 20, 2007 Vlw tava procurando o que ja tinha era bug esse e perfeito ^^ Link para o comentário Compartilhar em outros sites More sharing options...
skynagerloas 1 Postado Maio 25, 2007 Share Postado Maio 25, 2007 Tópico contendo somente 1 NpC, essa seção é para DataPacks com 3 ou mais Npcs, ~o{Tópico Movido}o~, Abraços. Link para o comentário Compartilhar em outros sites More sharing options...
Posts Recomendados