This is a love script that searches a site for the % of love 2 names are in with each other and a little description.
This goes into the remotes section of your bot (Alt+R).
Usage:
!love
(at the moment name 1 can only be 1 word and name 2 can be more)
Btw i made this script to learn about socks and used a google script as a template so dont deserve full credit.
Updates:
*Updates the love result design the tinyest bit too look better
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<3,13 %lovename1 4❤13 $replace(%lovename2,+,$chr(32)) 08,$remove(%result,$chr(32)),%,4 <3)
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-
}
}