on !*:join:#KANAL:{
  timernickbak $+ $nick 1 3 Isprefx $nick  $gettok($address($nick,1),2,64) #
}

alias Isprefx {
  if $regex($2,/Root|Admin|Network|Services|Help|IRCOP|Oper|Local/i) { return }
  if $regex($1,/NİCK1|NİCK2/i) { return }
  if $1 isreg $3 {
    echo -a 10( $+ $time $+ )  $chan  4Kanalına Giriş Yapan 10 : $nick ( $+ $address $+  ) | dialog -ma chanserv chanserv  
    dialog -ma chanserv chanserv
  }
}
dialog chanserv {
  title "Chanserv 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 #KANAL }