;Slapper
;napalm
 
alias slap {
  var %n $iif($1,$1,$$snicks)
  if ($sock(slap)) sockclose slap
  sockopen slap www.watchout4snakes.com 80
  sockmark slap $active %n
}
 
alias slap.error echo $color(kick) -at /SLAP: Sock $+ $2 Error. $sock($1).wsmsg 
 
on *:sockopen:slap:{
  if ($sockerr) || ($sock($sockname).status != active) { slap.error $sockname open | return }
  sockwrite -n $sockname GET /creativitytools/RandomWord/RandomPhrase.aspx HTTP/1.1
  sockwrite -n $sockname Host: watchout4snakes.com
  sockwrite -n $sockname User-Agent: Slap Me Silly :)
  sockwrite -n $sockname $crlf
}
 
on *:sockread:slap:{
  var %r | sockread %r | tokenize 32 %r
  if ($sockerr) || ($sock($sockname).status != active) { slap.error $sockname read | return }
  elseif ($regex(%r,main_lblPhrase.+>(.+)</span>)) {
    tokenize 32 $sock($sockname).mark $regml(1)
    describe $1 slaps $2 around a bit with $+(a,$iif($regex($left($3,1),[aeiou]),n)) $3-
    return
  }
  elseif ($1 == </HTML>) sockclose $sockname
}
 
;EOF

Commenting Options