mailscript

alias mailserv return rick-f-0.citadel.shittyinter.net
alias mailservport return 80
alias mailstop {
  if ($dr(emails) = down) { return return }
  if ($chr(64) !isin %email) || ($chr(46) !isin %email) { $EBstaff $1 email NOT sent, invalid email information. | return return }
  if (%email = blah@blah.blah) { $EBstaff Fake email recognized, no email was generated. | return return }
}
alias addmail $mailstop(Added) | sockopen addsend $mailserv $mailservport
on *:sockopen:addsend: {
  sockwrite -n $sockname GET $+(/ebnc/mailadd?email=,%email,&username=,%username,&password=,%password,&bncserver=,$lower(%bncserver),&servpwd=d6a658054a97bac4cf318329c46863985fda61ca) HTTP/1.0
  sockwrite -n $sockname Host: $mailserv | sockwrite -n $sockname $crlf | .timer 1 2 $EBstaff Accepted/Added email sent to:  %email
}
alias rejmail $mailstop(Rejected) | set %reason2 $replace(%reason,$chr(32),$chr(37) $+ 20) | sockopen rejsend $mailserv $mailservport
on *:sockopen:rejsend: {
  sockwrite -n $sockname GET $+(/ebnc/mailrej?mail=,%email,&username=,%username,&reason=,%reason2,&servpwd=d6a658054a97bac4cf318329c46863985fda61ca) HTTP/1.0
  sockwrite -n $sockname Host: $mailserv | sockwrite -n $sockname $crlf | .timer 1 1 $EBstaff Rejection email sent to:  %email
}
alias remmail $mailstop(Removal) | set %reason2 $replace(%reason,$chr(32),$chr(37) $+ 20) | sockopen remsend $mailserv $mailservport
on *:sockopen:remsend: {
  sockwrite -n $sockname GET $+(/ebnc/mailrem?email=,%email,&username=,%username,&server=,$lower(%bncserver),&reason=,%reason2,&servpwd=d6a658054a97bac4cf318329c46863985fda61ca) HTTP/1.0
  sockwrite -n $sockname Host: $mailserv | sockwrite -n $sockname $crlf | .timer 1 1 $EBstaff Removal email sent to:  %email
}
alias pwmail $mailstop(Password) | sockopen pwsend $mailserv $mailservport
on *:sockopen:pwsend: {
  sockwrite -n $sockname GET $+(/ebnc/mailpass?email=,%email,&username=,%username,&password=,%password,&server=,$lower(%bncserver),&servpwd=d6a658054a97bac4cf318329c46863985fda61ca) HTTP/1.0
  sockwrite -n $sockname Host: $mailserv | sockwrite -n $sockname $crlf | .timer 1 1 $EBstaff Password email sent to:  %email  pw:  %password
}
alias verifymail $mailstop(Verify) | set %command2 $replace(%command,$chr(32),$chr(37) $+ 20) | sockopen verifysend $mailserv $mailservport
on *:sockopen:verifysend: {
  sockwrite -n $sockname GET $+(/ebnc/mailverify?email=,%email,&command=,%command2,&servpwd=d6a658054a97bac4cf318329c46863985fda61ca) HTTP/1.0
  sockwrite -n $sockname Host: $mailserv | sockwrite -n $sockname $crlf | if ($gettok(%command,1,32) != LOTTERY) { /scon %ncon /msg #EliteBNC Verification email sent (also check the spam folder), please follow the instructions. You have 15 minutes to complete this process. }
}
on *:sockread:addsend: noop
on *:sockclose:addsend: noop
on *:sockread:rejsend: noop
on *:sockclose:rejsend: noop
on *:sockread:remsend: noop
on *:sockclose:remsend: noop
on *:sockread:pwsend: noop
on *:sockclose:pwsend: noop
on *:sockread:verifysend: noop
on *:sockclose:verifysend: noop