on *:join:#:{
  if (!%came. [ $+ [ $address($nick,1) ] ]) {
    if ($nick != $me) {
      if (*ss* iswm $left($address($nick,1),6)) {
        inc %ss
        set %came. [ $+ [ $address($nick,1) ] ] ss
      }
      else { 
        inc %mirc
        set %came. [ $+ [ $address($nick,1) ] ] mirc
      }
    }
  }
}