Email system 1.0 -Envie emails pelo serv

[Mock 32]

• Autor: Mock the bear
  
  
• Tested on: TFS 0.3.6
  
  
• Requerimento:
  • Lua socket > Lua modules >
    download aki
    
    
  • Conta no Yahoo mail
    
    

Depois de postar tweets agora você pode enviar email para seus players, Não pense que é igual outros sevrer que você fala !email e ve o email pelo jogo, dessa vez você envia um email para os players do seu server! ai eles vão no hotmail, gmail o que for e leem o email OiaeuMae

 

Primeiro vou falar como fiz. Eu usei o server SMTP do yaddo. É de graça qualquer um que tiver conta no yahoo pode usar. Se quiser mudar para outro servidor SMTP pode mudar, só nao mude pro SMTP do gmail por que ele usa SSL (Secure Socket Layer) e o script nao suporta isso.

 

Primeiro crie uma conta no yahoo, depois instale o lua modules.

Agora adcione isso no talkactions.xml

<talkaction log="yes" words="/email" access="5" event="script" value="email.lua"/>

E em email.lua isso:

--[[Config]]
local config={
--Email/pass
user = '[email protected]',
pass = 'suasenha123',
---SMTP config
smtpserver="smtp.mail.yahoo.com.br", -- dont change it
smtpport= 587, -- dont change it
}
--Script By mock the bear
local mime = require("mime")
local smtp = require("socket.smtp")
dofile('config.lua')
config.username = serverName
function send_mail(cid,mesgt,config,to)
local _, err = smtp.send {
   from = '<'..config.user..'>',
   rcpt = '<'..to..'>',
   source = mesgt,
   user = config.user,
   password = config.pass,
   server = config.smtpserver,
   port = config.smtpport,
   domain = 'yahoo.com.br',
}
if not err then
	addEvent(doPlayerSendTextMessage,100,cid,25,'Email sent')
else
	addEvent(doPlayerSendTextMessage,100,cid,25,'Cannot send email: '..tostring(err))
end
end
function getPlayerEmailByName(e) -- Function by mock the bear
local cid = getPlayerByName(e)
if not cid or not isPlayer(cid) then
	return false
end
local f = db.getResult('select `email` from accounts where id = '..getPlayerAccountId(cid))
if f:getID() ~= -1 then
	return f:getDataString('email'),f:free()
else
	return false
end
end

function onSay(cid, words, param, channel)--Script By mock the bear
if not smtp then
	doPlayerSendTextMessage(cid,25,'Install lua socket.')
	return true
end
local email,sub,msg = param:match('(.-@?.?)%s*,%s*(.-)%s*,%s*(.+)')
if not email:find('@') then
	email = getPlayerEmailByName(email)
end
if sub and msg then
	if not email or email:len() < 3 then
		doPlayerSendTextMessage(cid,25,'Invalid email.')
		return true
	end
	doPlayerSendTextMessage(cid,25,('Sending email to %s\nSubject:%s\nBody:%s'):format(email,sub,msg))
	local mesgt =  smtp.message({
	  headers = {
		from = config.username.." "..'<'..config.user..'>',
		to = '<'..email..'>',
		subject = sub,
	  },
	  body = mime.eol(0, ([[%s

%s
Sent by: %s
-----------------------------------
Script by mock the bear
-----------------------------------]]):format(msg or '',serverName or '-',getCreatureName(cid))),
	})
	addEvent(send_mail,200,cid,mesgt,config,email)
else
	doPlayerSendTextMessage(cid,25,'Use like this: /email [email protected], Subject, Message')
end
return true
end

Não esqueça de configurar!

 

Agora basta usar o comando. Você pode usar assim:

• /email Mock,Assunto,Mensagem
  
• /email [email protected],Assunto,Mensagem
  

 

Asveses o email pode ir para a caixa de spam.

[Conde2 0]

Grande mock mais uma vez se superando =)

Nem sabia que tinha lib SMTP e muito menos que ela vinha integrada a scoket !!!

Bom saber agora posso me divertir criando loops para spams =P

Vou ver depois se faço um script com LuaSQl para pegar os emails e mandar para todos do servidor...

 

Muito legal mock ta de parabens

[tigerx2 1]

Depois dessa eu me mato... eu ralando aqui pra

fazer um fly sistem bem show e enquanto isso

você faz um e-mail sistem.. pqp cara, você é

F O D A

espero muito de você... quer ser meu prof ? ehaueha

[Seth Forsaken 0]

Amagad!

 

Cara, você não é "Mock, The Bear", e sim "Mock, The Alien".

Parabéns, quando você se dedica, sai cada spell fodex.

 

A seção VIP está precisando de um script seu, bem inovador...

Mais uma vez, de novo, novamente, eu tiro o chapéu. Parabéns repetidamente!

 

Seth Forsaken_

[l VIP l 0]

e eu achando que fazer uma spell era muita coisa --'

 

Pqp você é d+

[Biozard 0]

eu aki...me matando aki pra fazer uma spell que upe de lvl e dexa ela mais forte..e o cara faz uam talk que evia email...putz...que foda parabens

[Iago Felipe 5]

cara, você é o melhor scripter do Brasil. (ah mano emocionante vai).

 

cara, isso não poderia se enquadrar na seção Exclusivos?

[esau 0]

Merece exclusivos

muito bom isso ai, parabens.

também pode servir de exemplos pra quem quizer aprender um pouco de lua socket (EU xD) ^^

[OFF]

Mock, eu consegui criar tile onde não existe sem editar a source=O

[/OFF]

Editado 14 Agosto, 2010 por esau

[Socket 0]

Gente, vocês são idolatristas , se tem alguem cristão aqui, está pecando, eu sou satânico mesmo. Olha, o Mock não fez nada, essa função já existe, a smtp.send, ele apenas executou.

 

O Mock é sim um grande scripter, mas aí já passa dos limites não concordam?

 

Att.

Socket

[Mock 32]

@Iago Felipe

não por que exclusivo é conteudo exclusivo do forum. se for postado em outro não é esclusivo. entao isso n se enquadra.

@socket

sim n fiz nd de +

a diferença é que quando eu faço eu libero 4 all eu n guardo no meu pc pra min nunca usar so ficar lotando memoria ate um dia que vai chega que eu formatarei me upc perderei tudo e ficara esquecido.

se eu n vo usa eu posto, vai ter alguem que vai querer usar OiaeuMae

Editado 14 Agosto, 2010 por Mock

[Er4gon II 0]

Oena q vc n disponibiliza alguns exelents scripts seus...

[shikizim 0]

Muito bom,gostei

[Zaffend 0]

Poo manew irado0 !

Um dia queria tbm fazaer scripts assim...

quanto tempo você deve ter treinado pra ficar assim?

 

axo que vc deveria ser contratado pela CipSoft, vc eh mto bom

 

Aliás... você faz scripts pro P.O?

Uma vez vi vc lá, dae ficei curioso

[Kreuusot 2]

Não entendi nao, ele envia emails pelo otserv? LAW

[Dargosh 0]

Não muito eficiente mais legal