Stuff

/*
Personal script, for personal people.
If I do not know you, it's the ignore chamber for you.
Copyrights @ irc.axpi2.net iSQL
*/
alias findjava {
  if ($active !ischan) {
    return
  }
  var %d = 1
  while (%d <= $nick($active,0)) {
    if (java isin $remove($left($address($nick($active,%d),0),$pos($address($nick($active,%d),0),@,1)),*!,@)) {
      var %jusers = %jusers $nick($active,%d)
    }
    inc %d
  }
  $iif($1 == -ch, msg $active, echo -a) $iif(!%jusers, 4No java users found on $+($active,.), $+(4,,$chr(40),,$calc($count(%jusers,$chr(32)) +1),,$chr(41),,) JAVA chat $+(user,$chr(40),s,$chr(41)) found on $+($active,.) - $replace(%jusers,$chr(32),$+(chr(44),$chr(32))))
}