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 
  }
}