on *:join:#kanal:{
  if $nick isin %nick { halt }
  if $nick isin $me { halt }
  set %kod $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
  sapart $nick #kanal
  msg $nick Lütfen 
  msg #kanal Verilen kod => 2  %kod
  msg $nick Lütfen Kanala girebilmek için 4!kode %kod 1yazınız
}
 
on *:text:*:?:{
  if $1 ==  !kode {
    if $2 ==  %kod {
      set %nick $nick
      sajoin $nick #kanal
    }
  }
}