on *:text:!yomama:#: {
  if ($sock(yomama)) .sockclose yomama
  set %chan $chan
  set %nick $nick
set %var $r(1,110)
  sockopen yomama www.ahajokes.com 80
} 
on *:SOCKOPEN:yomama: {      
  sockwrite -nt $sockname GET /ym01.html HTTP/1.1
  sockwrite -nt $sockname Host: www.ahajokes.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:yomama: {
  if ($sockerr) {
    notice %nick Socket Error: $sockname $+ . Error code: $sockerr Please inform an admin in #Phantom of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*<br><br>* iswm %sockreader) && (*Yo mama* iswm %sockreader) { 
dec %var
if (%var <= 0) {
      set %joke $htmlfree( %sockreader )
      notice %nick 13 &&&  4 Yomama:  6 %joke  13 &&&
unset %chan %nick %var
      sockclose yomama
    }
}
  }
}
alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
  return %x
}