All pastes #80798 Raw Edit

Mine

public text v1 · immutable
·published 2006-07-06 20:35 UTC
rendered paste body
alias 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)
  }
}