Fun little script I made, got bored. Syntax: @ins

6/40(11) PM (@TheNitelyfe) @ins Scakk
6/40(12) PM (@BluePrint) [INSULT TEXT] Scakk is a face drinking leg hunter

6/40(17) PM (@TheNitelyfe) @ins napa182
6/40(18) PM (@BluePrint) [INSULT TEXT] napa182 is a melon poking goblin gurgler

6/40(25) PM (@TheNitelyfe) @ins Death
6/40(26) PM (@BluePrint) [INSULT TEXT] Death is a scum tossing granny face

on *:TEXT:@ins &:#:{
  if ($2 !ison #) { msg # $v1 isn't on $v2 | return }
  if ($sock(ins)) { msg # Please wait, $nick | return }
  if (!$($+(%,flood,$nick),2)) {
    set -u3 $+(%,flood,$nick) on
    sockopen ins www.insultme.net 80
    sockmark ins $+(msg #,|,$iif($2 == $me,$+($nick,`,$bad),$2))
  }
}
on *:sockopen:ins:{
  sockwrite -nt $sockname GET /index.php HTTP/1.1
  sockwrite -nt $sockname Host: $+(www.insultme.net,$str($crlf,2))
}
on *:sockread:ins:{
  if ($sockerr) { $token($sock(ins).mark,1,124) $+([,$sock(ins).wsmsg,]) }
  var %ins
  sockread %ins
  if ($regex(%ins,/<div class="text">(.+)<\/div>/)) {
    tokenize 124 $sock(ins).mark
    $1 $iif(` isin $2,$token($2,1,96)) is $iif($istok(a e i o u,$left($regml(1),1),32),an,a) $+(,$regml(1),) $iif(` isin $2,$token($2,2,96))
    sockclose ins
  }
}
alias -l bad { return ,,l,,__(>_<)__,,l,, }