on *:join:#:{ if (!$+(%,huggles.,$chan.,$address($nick,2))) { set $+(%,huggles.,$chan.,$address($nick,2)) 0 } }

on *:action:*huggles*:#:{
  inc $+(%,huggles.,$chan.,$address($nick,2))
  inc %chug. [ $+ [ $chan ] ]
}
on $*:text:/^[@!](hugstats|hugs) */Si:#:{
  var %way = $iif($left($1,1) == @,msg $chan, notice $nick)
  if ($2-) {
    %way 10[HUGGLES] [4 $+ $2- $+ 10] [ $+ $c2($($+(%,huggles.,$chan.,$address($2-,2)),2)) $+ $c1($chr(47)) $+ $c2(%chug. [ $+ [ $chan ] ]) $+ 10] [ $+ $c2($calc($($+(%,huggles.,$chan.,$address($nick,2)),2) / %chug. [ $+ [ $chan ] ] )) $+ $chr(37) $+ 10]
  }
  else %way 10[HUGGLES] [4 $+ $nick $+ 10]4 [ $+ $c2($($+(%,huggles.,$chan.,$address($nick,2)),2)) $+ $c1($chr(47)) $+ $c2(%chug. [ $+ [ $chan ] ]) $+ 10] [ $+ $c2($calc($($+(%,huggles.,$chan.,$address($nick,2)),2) / %chug. [ $+ [ $chan ] ] )) $+ $chr(37) $+ 10]
}
alias c1 { return $+(10,$1-) } 
alias c2 { return $+(04,$1-) }