on *:START: { hmake karma 1 | $iif($exists(channels\karma.txt),hload karma channels\karma.txt) }
on *:JOIN:*: {
   if $nick == $me { hadd karma join. $+ $nick $ctime | hadd karma online. $+ $nick 0 }
}
on *:TEXT:*:*: {
     $iif(!$hget(karma,join. $+ $nick),hadd karma join. $+ $nick $ctime) | hadd karma online. $+ $nick $calc($ctime - $hget(karma,join. $+ $nick)) | var %t = спасибо 10х 10x спс спасиб cgc thanks фэнкс фенкс cgfcb,j
     if $nick !isin $gettok($1-,1-2,32) && $me !isin $gettok($1-,1-2,32) {
       if $hget(karma,set. $+ $nick) {
         if +1 isin $gettok($1-,1-2,32) || -1 isin $gettok($1-,1-2,32) { msg $chan $nick $+ , Вы сможете управлять кармой через $duration($hget(karma,set. $+ $nick)) }
       }
       else {
         if ($1 == +1 && $strip($2) ison $chan) || ($2 == +1 && $remove($strip($1),$chr(44),$chr(94),$chr(58)) ison $chan) {
           $iif(!$hget(karma,karma. $+ $iif($1 == +1,$2,$remove($strip($1),$chr(44),$chr(94),$chr(58)))),hadd karma karma. $+ $iif($1 == +1,$2,$remove($strip($1),$chr(44),$chr(94),$chr(58))) 0 0 0 0 0 0)
           hadd karma karma. $+ $iif($1 == +1,$2,$remove($strip($1),$chr(44),$chr(94),$chr(58))) $calc(($gettok($hget(karma,karma. $+ $iif($1 == +1,$2,$remove($strip($1),$chr(44),$chr(94),$chr(58)))),1,32) + 1) + $hget(karma,online. $+ $iif($1 == +1,$2,$remove($strip($1),$chr(44),$chr(94),$chr(58)))) / 86400) $iif($gettok($hget(karma,karma. $+ $iif($1 == +1,$2,$remove($strip($1),$chr(44),$chr(94),$chr(58)))),2,32),$ifmatch,1) $iif($gettok($hget(karma,karma. $+ $iif($1 == +1,$2,$remove($strip($1),$chr(44),$chr(94),$chr(58)))),3,32),$ifmatch,0) $iif($gettok($hget(karma,karma. $+ $iif($1 == +1,$2,$remove($strip($1),$chr(44),$chr(94),$chr(58)))),4,32),$ifmatch,0) $iif($gettok($hget(karma,karma. $+ $iif($1 == +1,$2,$remove($strip($1),$chr(44),$chr(94),$chr(58)))),5,32),$ifmatch,0) $iif($gettok($hget(karma,karma. $+ $iif($1 == +1,$2,$remove($strip($1),$chr(44),$chr(94),$chr(58)))),6,32),$ifmatch,0)
           hadd karma karma. $+ $nick $gettok($hget(karma,karma. $+ $nick),1,32) $iif($gettok($hget(karma,karma. $+ $nick),2,32),$calc($ifmatch + 1),1) $gettok($hget(karma,karma. $+ $nick),3,32) $gettok($hget(karma,karma. $+ $nick),4,32) $gettok($hget(karma,karma. $+ $nick),5,32) $gettok($hget(karma,karma. $+ $nick),6,32)
           hadd -zu3600 karma set. $+ $nick 3600
         }
         elseif ($1 == -1 && $strip($2) ison $chan) || ($2 == -1 && $remove($strip($1),$chr(44),$chr(94),$chr(58)) ison $chan) {
           $iif(!$hget(karma,karma. $+ $iif($1 == +1,$2,$remove($strip($1),$chr(44),$chr(94),$chr(58)))),hadd karma karma. $+ $iif($1 == +1,$2,$remove($strip($1),$chr(44),$chr(94),$chr(58))) 0 0 0 0 0 0)
           hadd karma karma. $+ $iif($1 == -1,$2,$remove($strip($1),$chr(44),$chr(94),$chr(58))) $gettok($hget(karma,karma. $+ $iif($1 == -1,$2,$remove($strip($1),$chr(44),$chr(94),$chr(58)))),1,32) $iif($gettok($hget(karma,karma. $+ $iif($1 == -1,$2,$remove($strip($1),$chr(44),$chr(94),$chr(58)))),2,32),$ifmatch,1) $iif($gettok($hget(karma,karma. $+ $iif($1 == -1,$2,$remove($strip($1),$chr(44),$chr(94),$chr(58)))),3,32),$ifmatch,0) $iif($gettok($hget(karma,karma. $+ $iif($1 == -1,$2,$remove($strip($1),$chr(44),$chr(94),$chr(58)))),4,32),$ifmatch,0) $calc($iif($gettok($hget(karma,karma. $+ $iif($1 == -1,$2,$remove($strip($1),$chr(44),$chr(94),$chr(58)))),5,32),$ifmatch,0) + 1) $iif($gettok($hget(karma,karma. $+ $iif($1 == -1,$2,$remove($strip($1),$chr(44),$chr(94),$chr(58)))),6,32),$ifmatch,0)
           hadd karma karma. $+ $nick $gettok($hget(karma,karma. $+ $nick),1,32) $iif($gettok($hget(karma,karma. $+ $nick),2,32),$ifmatch,1) $gettok($hget(karma,karma. $+ $nick),3,32) $gettok($hget(karma,karma. $+ $nick),4,32) $gettok($hget(karma,karma. $+ $nick),5,32) $calc($gettok($hget(karma,karma. $+ $nick),6,32) - 1)
           hadd -zu3600 karma set. $+ $nick 3600
         }
       }
       if $istok(%t,$remove($2,$chr(44),$chr(46)),32) && $remove($strip($1),$chr(44),$chr(94),$chr(58)) ison $chan {
         $iif(!$hget(karma,karma. $+ $remove($strip($1),$chr(44),$chr(94),$chr(58))),hadd karma karma. $+ $remove($strip($1),$chr(44),$chr(94),$chr(58)) 0 0 0 0 0 0)
         hadd karma karma. $+ $remove($strip($1),$chr(44),$chr(94),$chr(58)) $gettok($hget(karma,karma. $+ $remove($strip($1),$chr(44),$chr(94),$chr(58))),1,32) $iif($gettok($hget(karma,karma. $+ $remove($strip($1),$chr(44),$chr(94),$chr(58))),2,32),$ifmatch,1) $calc($gettok($hget(karma,karma. $+ $remove($strip($1),$chr(44),$chr(94),$chr(58))),3,32) + 1) $gettok($hget(karma,karma. $+ $remove($strip($1),$chr(44),$chr(94),$chr(58))),4,32) $gettok($hget(karma,karma. $+ $remove($strip($1),$chr(44),$chr(94),$chr(58))),5,32) $gettok($hget(karma,karma. $+ $remove($strip($1),$chr(44),$chr(94),$chr(58))),6,32)
         hadd karma karma. $+ $nick $gettok($hget(karma,karma. $+ $nick),1,32) $iif($gettok($hget(karma,karma. $+ $nick),2,32),$ifmatch,1) $gettok($hget(karma,karma. $+ $nick),3,32) $calc($gettok($hget(karma,karma. $+ $nick),4,32) + 1) $iif($gettok($hget(karma,karma. $+ $nick),5,32),$ifmatch,0) $iif($gettok($hget(karma,karma. $+ $nick),6,32),$ifmatch,0)
       }
     }
     if $1 == !karma || $1 == !карма {
       $iif(!$hget(karma,join. $+ $iif($2 && $2 ison $chan,$2,$nick)),hadd karma join. $+ $iif($2 && $2 ison $chan,$2,$nick) $ctime) | hadd karma online. $+ $iif($2 && $2 ison $chan,$2,$nick) $calc($ctime - $hget(karma,join. $+ $iif($2 && $2 ison $chan,$2,$nick)))
       if $2 && $hget(karma,karma. $+ $2) && $2 != $nick { msg $chan $nick $+ , Карма у $2 $calc($remove($gettok($hget(karma,karma. $+ $2),1,32),$chr(43)) - $remove($gettok($hget(karma,karma. $+ $2),5,32),$chr(45))) $chr(91) $+ + $+ $iif($gettok($hget(karma,karma. $+ $2),1,32),$ifmatch,0) $+ / $+ $iif($gettok($hget(karma,karma. $+ $2),5,32),$ifmatch,0) $+ $chr(93) $chr(40) $+ повышал: $iif($gettok($hget(karma,karma. $+ $2),6,32),$ifmatch,0) $+ ; занижал: $iif($gettok($hget(karma,karma. $+ $2),5,32),$ifmatch,0) $+ $chr(41) его поблагодарили: $iif($gettok($hget(karma,karma. $+ $2),3,32),$ifmatch,0) он поблагодарил: $iif($gettok($hget(karma,karma. $+ $2),4,32),$ifmatch,0) $+ . В online: $duration($hget(karma,online. $+ $2)) $+ , + $+ $calc($hget(karma,online. $+ $2) / 86400) к его карме }
       else { msg $chan $nick $+ , $iif($2 && !$hget(karma. $+ $2),Кармы у $2 нет $+ $chr(44) в,В) $+ аша карма $calc($remove($gettok($hget(karma,karma. $+ $nick),1,32),$chr(43)) - $remove($gettok($hget(karma,karma. $+ $nick),5,32),$chr(45))) $chr(91) $+ + $+ $iif($gettok($hget(karma,karma. $+ $nick),1,32),$ifmatch,0) $+ / $+ $iif($gettok($hget(karma,karma. $+ $nick),5,32),$ifmatch,0) $+ $chr(93) $chr(40) $+ повышали: $iif($gettok($hget(karma,karma. $+ $nick),6,32),$ifmatch,0) $+ ; занижали: $iif($gettok($hget(karma,karma. $+ $nick),5,32),$ifmatch,0) $+ $chr(41) вас поблагодарили: $iif($gettok($hget(karma,karma. $+ $nick),3,32),$ifmatch,0) вы поблагодарили: $iif($gettok($hget(karma,karma. $+ $nick),4,32),$ifmatch,0) $+ . В online: $duration($hget(karma,online. $+ $nick)) $+ , + $+ $calc($hget(karma,online. $+ $nick) / 86400) к вашей карме }
     }
}
on *:PART:*: {
   if $nick != $me { hadd karma online. $+ $nick $calc($ctime - $hget(karma,join. $+ $nick)) | hdel karma join. $+ $nick }
}
on *:NICK: {
   if $newnick != $me { hadd karma join. $+ $newnick $iif($hget(karma,join. $+ $nick),$ifmatch,$ctime) | hadd karma online. $+ $newnick $iif($hget(karma,online. $+ $nick),$ifmatch,0) | hdel karma join. $+ $nick | hdel karma online. $+ $nick }
}
on *:QUIT: {
   if $nick != $me { hadd karma online. $+ $nick $calc($ctime - $hget(karma,join. $+ $nick)) | hdel karma join. $+ $nick }
}