rendered paste bodyalias spellcheck {
var %tmpr $r(1,10000)
if ($hget(SpellCheck $+ %tmpr,tmp)) .hdel -sw SpellCheck $+ %tmpr tmp
.sockclose SpellCheck $+ %tmpr | .sockopen SpellCheck $+ %tmpr spellcheck.net 80
.sockmark SpellCheck $+ %tmpr /cgi-bin/spell.exe?action=CHECKWORD&string= $+ $1
pause ms 1250
if ($hget(SpellCheck $+ %tmpr,tmp)) && (%chan != #Avidbots) && ($sockname != AvidServ) { .hdel -sw SpellCheck $+ %tmpr tmp | sockwrite -n $gettok($hget(regchans,%chan),1,32) PRIVMSG %chan :Word $1 spelled correctly | halt }
if ($hget(SpellCheck $+ %tmpr,tmp)) && (%chan == #Avidbots) && ($sockname == AvidServ) { .hdel -sw SpellCheck $+ %tmpr tmp | sockwrite -n AvidServ PRIVMSG %chan :Word $1 spelled correctly | halt }
}
on *:sockopen:SpellCheck*:{
sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.1
sockwrite -n $sockname host: $sock($sockname).ip
sockwrite -n $sockname Connection: Close
sockwrite -n $sockname $crlf
}
on *:sockread:SpellCheck*:{
var %d | sockread %d
if ($regex(%d,<B>".*" is spelled correctly.<\/B>)) { hadd -m $sockname tmp 1 | .sockclose $sockname | return }
else return
}
alias pause {
var %e = !echo $color(info) -a * /pause:
if ($version < 5.91) {
%e this snippet requires atleast mIRC version 5.91
}
elseif (!$regex(pause,$1-,/^m?s \d+$/Si)) {
%e incorrect/insufficient parameters. Syntax: /pause <s|ms> <N>
}
elseif ($1 == ms) && ($istok(95 98 ME,$os,32)) {
%e cannot use milliseconds parameter on OS'es beneath Win2k
}
elseif ($2 !isnum 1-) {
%e must specify a number within range 1-
}
else {
var %wsh = wsh $+ $ticks, %cmd
if ($1 == s) %cmd = ping.exe -n $int($calc($2 + 1)) 127.0.0.1
else %cmd = pathping.exe -n -w 1 -q 1 -h 1 -p $iif($2 > 40,$calc($2 - 40),$2) 127.0.0.1
.comopen %wsh wscript.shell
.comclose %wsh $com(%wsh,run,1,bstr*,% $+ comspec% /c %cmd >nul,uint,0,bool,true)
}
}