on $*:text:/[!.]a[sSşŞ]kte[sSşS]t[iıİI]\s+\S+$/SAi:#: {
  if $hget($2) == $me { notice $nick 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2)) 2Beni Yazamazsın 4:12-1) | halt }
  if !$2 { notice $nick 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2)) 2Nick Belirtmediniz, Lütfen Bir Nick Belirtiniz.. 4Komut: 7!aşktesti Nick | halt }
  if ($3) { notice $nick 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2)) 2Lütfen Komutu Doğru Yazınız. 4Komut: 7!aşktesti Nick | halt }
  if $2 == $nick { notice $nick 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2)) 2Kendine Aşk Testi Yapamazsın Delimisin. | halt }
  if !$hget(aşktesti,$nick) {
    .hinc -msu30 aşktesti $nick $ctime
    msg $chan 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$2,$chr(2)) 2Nick'inin 4AŞK TESTİ 2Sonuçları Gösteriliyor.. 4Bekleyiniz.
    var %toplam  $r(90,100)
    var %seviyor $calc(%toplam - $r(1,79))
    var %sevmiyor $calc(%toplam - $r(1,78))
    var %kararsız $calc(%toplam - $r(1,77))
    var %umursamıyor $calc(%toplam - $r(1,76))
    var %testet $sorttok($gettok(%seviyor,1,45) $gettok(%sevmiyor,1,45) $gettok(%kararsız,1,45) $gettok(%umursamıyor,1,45),32,nr)
    var %sonuç $sorttok(%testet,32,nr)
    msg $chan 14[4AŞK TESTİ414] 4 $chr(42)
    msg $chan 14[4AŞK TESTİ414] $chr(32) 4,4 $str($chr(42),6) 0 % $+ $gettok(%seviyor,1,45) 8Seviyor1! $+(12,$chr(42)) 
    msg $chan 14[4AŞK TESTİ414] $chr(32) 8,8 $str($chr(42),9) 1 % $+ $gettok(%sevmiyor,1,45) 4Sevmiyor1! $+(12,$chr(42)) 
    msg $chan 14[4AŞK TESTİ414] $chr(32) 6,6 $str($chr(42),12) 0 % $+ $gettok(%kararsız,1,45) 11Kararsız1! $+(12,$chr(42)) 
    msg $chan 14[4AŞK TESTİ414] $chr(32) 7,7 $str($chr(42),15) 0 % $+ $gettok(%umursamıyor,1,45) 2Umursamıyor1! $+(12,$chr(42)) 
    msg $chan 14[4AŞK TESTİ414] 4 $chr(42)
    msg $chan 14[4AŞK TESTİ414] 10 $2 4Sonuç12 $2 $replace($gettok(%testet,1,32) / $gettok(%sonuç,1,32),$gettok(%seviyor,1,32) / $gettok(%sonuç,1,32),2Sizi Çok 3SEVİYOR,$gettok(%sevmiyor,1,32) / $gettok(%sonuç,1,32),2Sizi Hiç 4SEVMİYOR,$gettok(%kararsız,1,32) / $gettok(%sonuç,1,32),2Size Karşı Hep 14KARARSIZ,$gettok(%umursamıyor,1,32) / $gettok(%sonuç,1,32),2Sizi Hiç 7UMURSAMIYOR) 
  }
  else { 
    var %sevdi $calc(120 - $calc($ctime - $hget(aşktesti,%nick)))
    notice $nick 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2)) 2Aşk Testini4 2 2Dakikada Bir Kez Kullanabilirsiniz4.. 
    notice $nick 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2)) 4(1 %sevdi 4) 7Saniye 2Sonra Tekrardan 4!aşktesti Nick 2Komutunu Yazarak Aşk Testinizi Yapabilirsiniz4.. 
  }
}

on *:text:*:#:{
  if $regex($1,/^[.!]Sev[iİı]yor$/Si) { 
    var %t $r(1,100),%a $r(1,$calc(100 - %t)),%r $calc(100 - (%t + %a)) 
    msg # 07,07 $+ $str(.,%t) $+ 14,14 $+ $str(.,$calc(%r + %a))  6Sevgi % $+ %t 
    msg # 03,03 $+ $str(.,%a) $+ 14,14 $+ $str(.,$calc(%r + %t))  6Nefret % $+ %a 
    msg # 02,02 $+ $str(.,%r) $+ 14,14 $+ $str(.,$calc(%t + %a))  6Umursama % $+ %r 
  }
}

on *:input:#:{
  if $regex($1,/^[.!]Sev[iİı]yor$/Si) { 
    var %t $r(1,100),%a $r(1,$calc(100 - %t)),%r $calc(100 - (%t + %a)) 
    msg # 07,07 $+ $str(.,%t) $+ 14,14 $+ $str(.,$calc(%r + %a))  6Sevgi % $+ %t 
    msg # 03,03 $+ $str(.,%a) $+ 14,14 $+ $str(.,$calc(%r + %t))  6Nefret % $+ %a 
    msg # 02,02 $+ $str(.,%r) $+ 14,14 $+ $str(.,$calc(%t + %a))  6Umursama % $+ %r 
  }
}