script bot jodoh

#############################################################
## THIS SCRIPT IS ANOTHER SIMPLE AND SILLY TIMEKILLER...IT CALCULATES THE COMPATIBILITY
## BETWEEN TWO USERS...THAT'S ALL...JUST LOAD THE SCRIPT INTO YOUR BOT AND IT SHOULD BE
## ALL READY TO GO...TO USE IT, TYPE '!match' AND HAVE FUN! 8)


bind pub - !jodoh Matcher
proc Matcher {nick uhost hand chan args} {
regsub -nocase \[{}] $args "" args
set origargs $args
if {[llength $args] < 2} {
putserv "privmsg $nick :Penggunaan !jodoh "
return
}

set counter 0
set compatmarker 0
while {$counter != [string length $args]} {
if {[string range $args $counter $counter] == "l"} {incr compatmarker 2}
if {[string range $args $counter $counter] == "o"} {incr compatmarker 2}
if {[string range $args $counter $counter] == "v"} {incr compatmarker 2}
if {[string range $args $counter $counter] == "e"} {incr compatmarker 2}
if {[string range $args $counter $counter] == "y"} {incr compatmarker 3}
if {[string range $args $counter $counter] == "o"} {incr compatmarker 1}
if {[string range $args $counter $counter] == "u"} {incr compatmarker 3}
incr counter
}

set compatability 0
if {$counter > 0} {set compatability [expr 5 - ([string length $args] /2)]}
if {$counter > 2} {set compatability [expr 10 - ([string length $args] /2)]}
if {$counter > 4} {set compatability [expr 20 - ([string length $args] /2)]}
if {$counter > 6} {set compatability [expr 30 - ([string length $args] /2)]}
if {$counter > 8} {set compatability [expr 40 - ([string length $args] /2)]}
if {$counter > 10} {set compatability [expr 50 - ([string length $args] /2)]}
if {$counter > 12} {set compatability [expr 60 - ([string length $args] /2)]}
if {$counter > 14} {set compatability [expr 70 - ([string length $args] /2)]}
if {$counter > 16} {set compatability [expr 80 - ([string length $args] /2)]}
if {$counter > 18} {set compatability [expr 90 - ([string length $args] /2)]}
if {$counter > 20} {set compatability [expr 100 - ([string length $args] /2)]}

if {$compatability < 0} {set compatability 0}
if {$compatability > 100} {set compatability 100}
if {$compatability < 50} {
set jodoh "Sepertinya Anda Tidak Jodoh..makanya perawatan donk"
} elseif {$compatability < 75} {
set jodoh "hhhhmmmm Bisa Jadi anda Jodoh"
} elseif {$compatability < 90} {
set jodoh "Jodoh anda semakin Stabil, Mantap Lakukan Pendekatan"
} else {
set jodoh "Lanjutkan Kepelaminan (Jangan Lupa Undang Keparat)"
}
putserv "privmsg $chan :10Kecocokan antara4 $origargs 10sebesar3 $compatability% ($jodoh)"
return
}

##########################################################