By zainul on Dec 14, 2008Its a simple love test with flood protection
Simple to use typ !lovetest nick
on *:text:*:#:{
if ($1 == !LoveTest) && ($2 !ison #) {
msg # How do i test your compatiblity with someone thats not here.
halt
}
if ($1 == !LoveTest) && ($2 ison #) {
inc -u35 %floodlovetest [ $+ [ $nick ] ]
if (%floodlovetest [ $+ [ $nick ] ] == 3) {
halt
}
/set %love $rand(1,5)
if (%love == 1) {
msg # Now Testing $nick and $2 for compatiblity. .
timer 1 1 msg # Please wait.......
timer 1 2 msg # 11% - [4,4===11,11==================] compatiblity
}
if (%love == 2) {
msg # Now Testing $nick and $2 for compatiblity. .
timer 1 1 msg # Please wait.......
timer 1 2 msg # 21% - [4,4=======11,11==============] compatiblity
}
if (%love == 3) {
msg # Now Testing $nick and $2 for compatiblity. .
timer 1 1 msg # Please wait.......
timer 1 2 msg # 43% - [4,4============11,11=========] 13 compatiblity
}
if (%love == 4) {
msg # Now Testing $nick and $2 for compatiblity. .
timer 1 1 msg # Please wait.......
timer 1 2 msg # 76% - [4,4============11,11=========] compatiblity
}
if (%love == 5) {
msg # Now Testing $nick and $2 for compatiblity. .
timer 1 1 msg # Please wait.......
timer 1 2 msg # 100% - [4,4=====================11,11] 13 compatiblity
}
}
}
you should use local vars instead of gloabls, and also maybe check if $2 was said as well.
you could make it like this as well
on *:text:!LoveTest*:#:{
if (!$($+(%,loveflood,.,$nick),2)) {
set -u4 $+(%,loveflood,.,$nick) on
if ($2 !ison #) || (!$2) { msg # $iif(!$2,Please Enter A Nick,$iif($2 !ison #,How do i test your compatiblity with someone thats not here.)) }
else {
msg # Now Testing $nick and $2 for compatiblity. .
var %^ $r(1,100)
.timer.love.test 1 2 msg # $+($chr(32),$str($+($chr(3),4,$chr(44),4,|),$floor($calc(%^ / 2))),$str($+($chr(3),11,$chr(44),11,|),$floor($calc((100 - %^) / 2))),$chr(3),$chr(32),$chr(3),13,%^,%,$chr(32),compatiblity)
}
}
}
