So this is all i had to explain!
Here's the script!
v0.1 24/6/2016
-Added version and ID for Update Checker!
;;; v0.1 24/6/2016 ;;;
;;; http://humanity.ucoz.com ;;;
alias emailver {
sockopen emailver apilayer.net 80
set %emailver $1
set %emailchan $2
}
alias emailverapikey {
return 00564d4dfd1e326146ed7568f367b2f6
}
ON *:SOCKOPEN:emailver: {
if ($sockerr) { msg %emailchan 10An Error Occured While Verifying %emailver | unset %emailver %emailchan | sockclose $sockname }
sockwrite -nt $sockname GET $iif(%emailver, $+(/api/check?access_key=,$emailverapikey,&email=,$v1,&smtp=1&format=1), $null) HTTP/1.1
sockwrite -nt $sockname Host: apilayer.net
sockwrite $sockname $crlf
}
ON *:SOCKREAD:emailver: {
if ($sockerr) { msg %emailchan An Error Occured While Verifying %emailver | unset %emailchan %emailver | sockclose $sockname }
var %ev
sockread %ev
if (*smtp_check":true* iswm %ev) {
msg %emailchan 3Email14: %emailver $+($chr(03),03,$chr(10004)) 7Exists14!
unset %emailchan
unset %emailver
sockclose $sockname
}
elseif (*smtp_check":false* iswm %ev) {
msg %emailchan 3Email14: %emailver $+($chr(03),04,$chr(10008)) 7Doesn14'7t Exist14!
unset %emailver
sockclose $sockname
}
elseif (*success": false* iswm %ev) {
set %evfalse 1
}
if (%evfalse) {
if (*code":* iswm %ev) {
set %errorcode $remove($gettok(%ev,2,58),$chr(44))
}
if (*type":* iswm %ev) {
set %errortype $remove($gettok(%ev,2,58),$chr(44))
}
if (*info":* iswm %ev) {
set %errorinfo $remove($gettok(%ev,2,58),$chr(44))
unset %evfalse
sockclose $sockname
msg %emailchan 10Your Request For %emailver 10Returned the following error14:
.timer 1 1 msg %emailchan 10Code14: %errorcode 10Type14: %errortype 10Info14: %errorinfo
.timer 1 2 unset %emailchan %errorinfo %errortype %errorcode
}
}
}
ON *:TEXT:*:#: {
if (!emailver == $strip($1)) {
if (!%EMAILversion) || (%EMAILversion != v0.1) { set %EMAILversion v0.1 }
if (*@*.* !iswm $strip($2)) {
.timer 1 1 msg $chan 10The email you requested was not checked because it doesn't match the usual format of email adresses14. Please provide a valid email (e.g oneemail@someserver.com)
}
elseif (*@*.* iswm $strip($2)) {
if (!%emvdel) {
set -u100 %emvdel 1
emailver $strip($2) $chan
}
}
}
}
;;;;;;Script by OrFeAsGr;;;;;;;;
;;;;http://humanity.ucoz.com;;;;
;;;;;;Humanity I.R.C Bot;;;;;;;;
Or do you want to donate some bucks because you like my scripts??? Visit https://www.paypal.me/OrFeAsGr
Thx! ^_^
Thx i will remove it soon!
I've been scripting for about 3 years.. i think!
Thx for responding <3