on *:join:#kanal: {
  if $nick == koruma {
  }
  if ($regex($address($nick,2),/(helper|yetki|ircop|services|tech)/i)) { halt }
  if $read(admin.txt,w,$nick) { halt }
  .msg $nick 5Merhaba $+(",,4,$nick,5,,") , Resmi User Yardim Kanalimiz #kanalHeLp kanalına Hoş Geldiniz ,
  .msg $nick 5Yetkililerin Voice Vermesini Bekleyiniz ve Voice Aldiktan Sonra Sorununuzu Net Ve Acık Ssekilde Anlatiniz
  .msg $nick 5Oper Yardim Kanalimiz ,4#Operhelp 5Kanal'idir 
  .msg $nick 5Gereksiz Bekleme Yapmak Yasaktir Ve Kanaldan Atilma Sebebidir4!
  .msg #kanalops $+(5,[,$nick,],1) User Yardim Kanalina Girmiş Yardim Beklemek'te! 4 $+([,$time,])
} 

on *:join:%mhelp: { updatenl | /timer 1 1 /kontrolet $nick $chan | /set %host $address($nick,1) }
alias kontrolet {
if ($1 != $me) && ($1 !isop $2) && ($1 !ishop $2) && (Admin !isin %Host) && (Oper !isin %Host) { 
msg %mops %mhelp Kanalına 5" $+ $1 $+ " girmiştir.Lütfen ilgileniniz. Tarih: $fulldate | unset %host }
.timer 1 30 /msg %mops 3< 1! 3GOPS 1! 3> %mhelp kanalına " $+ $1 $+ " Giris Yapmıstır. Lütfen Yardım Edelim.
} 

on !*:Join:#KANAL: { updatenl | .timer 1 1 kontrol | set -e %girenuser $nick | set -e %kan $chan }
alias kontrol {
if (!$regex($nick(%kan,%girenuser).pnick,@|&|%|~)) {
if (!$regex($address(%girenuser,2),/(helper|yetki|ircop|services|tech)/i)) {
if !$read(admin.txt,w,%girenuser) {
.msg %girenuser 5Merhaba $+(",,4,%girenuser,5,,") , Resmi User Yardim Kanalimiz #kanalHeLp kanalına Hoş Geldiniz ,
.msg %girenuser 5Yetkililerin Voice Vermesini Bekleyiniz ve Voice Aldiktan Sonra Sorununuzu Net Ve Acık Ssekilde Anlatiniz
.msg %girenuser 5Oper Yardim Kanalimiz ,4#Operhelp 5Kanal'idir 
.msg %girenuser 5Gereksiz Bekleme Yapmak Yasaktir Ve Kanaldan Atilma Sebebidir4!
.msg #kanalops $+(5,[,%girenuser,],1) User Yardim Kanalina Girmiş Yardim Beklemek'te!
.unset -u5 %girenuser
}
}
}
}