on *:join:#:{
  if ($regex(#,/(Help|operhelp)/i) || $regex($nick,/(muaf1|muaf2)/i)) { return }
  set -eu5 %_wn $nick
  if $regex($address($nick,2),/(com)/i) {
    if (!$hget(%_wn)) { hmake %_wn 100 }
    hadd -m %_wn # %_wn
    whois %_wn
  }
}
alias _wmx { var %1 = 1 | while ($hget($1,%1).item) { msg $v1 $2- | inc %1 } }
raw 313:*:{
  if (%_wn == $2) {
    if $regex($5-,/(Server|Services|IRC)/i) {
      var %_add = $regml(1)
      if (%_add == IRC) { _wmx %_wn Sunucu %_add Operatörü (>> %_wn <<) ,kanala giriş yaptı. | hfree %_wn | return }
      _wmx %_wn Sunucu %_add Admin 'i (>> %_wn <<) ,kanala giriş yaptı. | hfree %_wn
    }
  }
}