on *:text:*:#: { 
if $regex($1,/^(!|/.)s[oö]z) { $iif($read(izinli.txt,w, $nick),!msg # $read(soz.txt,$rand(1,$lines(soz.txt))),!msg # $nick !söz komutunu kullanmaya yetkili değilsin!) 
}
 }

menu status,menubar, {
  .-
  .• Chanserv Uyarı
  ..• Açık !:.enable #xchan | .echo -a 0,4 Giriş Uyarı AÇıldı 
  ..• Kapalı !:.disable #xchan | .echo -a 0,4 Uyarı Kapatıldı
  .-
}

#xchan on
off !*:join:#x:{
  ;- Oper/Admin host muaf.
  if $regex($site,/(Root|Admin|Network|Services|Help|IRCOP|Oper|Local)/i) { return }
  ;- Nick Muaf.
  elseif $regex($nick,/(Geveze-HOST|HOST2/i) { return }
  else { .enable #xchan } 

  dialog chanserv {
    title "Yardım Uyarı"
    size -1 -1 220 85
    text "Lütfen #X Kanalına Bakınız!",2,10 10 220 200
    text "Tamam Tuşuna Basarak Yardım Edebilirsiniz",3,10 30 220 200
    button "Tamam",4,70 50 85 25,ok
  }

  on 1:ACTIVE:*:{
    if ($dialog(idrqm)) { dialog -v chanserv }
  }
  on 1:dialog:chanserv:sclick:4:/join #x
}
#xchan end

menu status,menubar, {
  .-
  .• Chanserv Uyarı
  ..• Açık !:.enable #xchan | .echo -a 0,4 #X Giriş Uyarı AÇıldı 
  ..• Kapalı !:.disable #xchan | .echo -a 0,4 #X Uyarı Kapatıldı
  .-
}

#xchan on
on 1:join:#X: { dialog -ma chanserv chanserv | halt } 
dialog chanserv {
  title "Chanserv Yardım Uyarı"
  size -1 -1 220 85
  text "Lütfen #Chanserv Kanalına Bakınız!",2,10 10 220 200
  text "Tamam Tuşuna Basarak Yardım Edebilirsiniz",3,10 30 220 200
  button "Tamam",4,70 50 85 25,ok
}

on 1:ACTIVE:*:{
  if ($dialog(idrqm)) { dialog -v chanserv }
}
on 1:dialog:chanserv:sclick:4:/join #X
}
#xchan end