Anonymous

alias lovecalculatorsearch {
  var %x = 1
  while ($sock($+(lovecalculator,%x))) inc %x
  sockopen $+(lovecalculator,%x)  www.lovecalculator.com 80
  sockmark $+(lovecalculator,%x) $1-
}

ON *:SOCKOPEN:lovecalculator*: {
  if ($sockerr) {
    var %cmd = $gettok($sock($sockname).mark,1,32)
    %cmd Socket error $sockerr
    return
  }
  sockwrite -n $sockname GET $+(/love.php?name1=,%lovename1,&name2=,%lovename2 HTTP/1.0)
  sockwrite -n $sockname Host: www.lovecalculator.com
  sockwrite $sockname $crlf
}

on *:SOCKREAD:lovecalculator*: {
  var %f, %cmd, %linenum
  %cmd = $gettok($sock($sockname).mark,1,32)
  if ($sockerr) {
    %cmd Socket error $sockerr
    return
  }
  while (1) {
    inc %linenum
    sockread %f
    if (!$sockbr) break
    if (%linenum == 46) {
      set -e %result %f
    }
    if (%linenum == 62) {
      set -e %result2 %f
    }
    elseif (%linenum == 63) {
      set -e %result2 %result2 %f
    }
    elseif (%linenum == 64) {
      set -e %result2 %result2 %f
    }
    elseif (%linenum == 65) {
      set -e %result2 %result2 %f
    }
    elseif (%linenum == 66) {
      set -e %result2 %result2 %f
    }
    elseif (%linenum == 67) {
      set -e %result2 %result2 %f
      sockclose $sockname
      break
    }
    elseif (%linenum == 68) {
      set -e %result2 %result2 %f
      sockclose $sockname
      break
    }
    elseif (%linenum >= 66) {
      sockclose $sockname
      break
    }
    elseif (HTTP/1.0 200 OK = %f) {
      %result = There are no results.
      sockclose $sockname
      break
    }
  }
  if (%result) {
    %cmd %result
  }
}

alias lovecalculator3 { 
  msg %lovecalculator3 $+(4?,13 %lovename1 4❤13 $replace(%lovename2,+,$chr(32)) 08,$remove(%result,$chr(32)),%,4 ?)
  msg %lovecalculator3 6 $+ $remove(%result2,<em>,</em>)
  unset %lovecalculator3 | unset %result | unset %result2 | unset %lovename1 | %unset %lovename2
}

on *:TEXT:!love*:#: {
  if (!%lovespam [ $+ [ $chan $+ [ $nick $+ [ $hash($1-,32) ] ] ] ]) { 
    inc -u7 %lovespam [ $+ [ $chan $+ [ $nick $+ [ $hash($1-,32) ] ] ] ]
    set -u3 %lovecalculator3 $chan
    set -u3 %lovename1 $2
    set -u3 %lovename2 $replacex($3-,$chr(32),+)
    lovecalculatorsearch lovecalculator3 $2-
  }
}