# Kullanımına izin verdiğiniz real name
set fullname "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #FF8000"># Fullnameleri kontrol edeceği kanalı giriyoruz.
set reel(chan) "#Sohbet" 
 
# Ban türünü giriyoruz. 
set reel(rank) "gzline"
 
# Bot kullanıcıyı ne kadar süre banlasın *
set reel(time) "12h"
 
# Ban sebebini giriyoruz.
set reel(reason) "Kurallara uymadığınız için sunucudan uzaklaştırıldınız." 
 
# Fullname Kontrol TCL v1.0 - Written By CLubber
 
bind join - "$reel(chan) *" realname:join
bind raw - 311 realname:check
 
proc realname:join {nick host hand chan} { 
  global botnick
  if {[string match "$botnick" $nick]} { return }
  putquick "WHOIS $nick" 
} 
 
proc realname:check {from key arg} { 
  global botnick reel fullname
  set nickname [lindex [split $arg] 1] 
  set realname [strlwr [ctrl:filter [string range [lindex [split $arg] end] 1 end]]]
   if {[string match "$botnick" $nickname]} { return }
  if {![string match "$fullname" $realname]} {
    putquick "$reel(rank) $nickname $reel(time) $reel(reason)"
  }
}
 
proc ctrl:filter {str} {
  regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str
  return $str
}
 
putlog "Fullname Ban TCL v1.0 - Written By CLubber" 

# Kullanımına izin verdiğiniz real name
set fullname "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #FF8000"># Fullnameleri kontrol edeceği kanalı giriyoruz.
set reel(chan) "#Sohbet" 
 
# Ban türünü giriyoruz. 
set reel(rank) "gzline"
 
# Bot kullanıcıyı ne kadar süre banlasın *
set reel(time) "12h"
 
# Ban sebebini giriyoruz.
set reel(reason) "Kurallara uymadığınız için sunucudan uzaklaştırıldınız." 
 
# Fullname Kontrol TCL v1.0 - Written By CLubber
 
bind raw - 311 realname:check
bind raw * notice nick:connection
 
proc nick:connection {from keyword arg} { 
  global botnick
  if {[string match -nocase "*Client connecting*" $arg]} {
    set nick [lindex $arg 9]
    putquick "WHOIS $nick"
  }
}
 
proc realname:check {from key arg} { 
  global botnick reel fullname
  set nickname [lindex [split $arg] 1] 
  set realname [strlwr [ctrl:filter [string range [lindex [split $arg] end] 1 end]]]
  if {[string match "$botnick" $nickname]} { return }
  if {![string match "$fullname" $realname]} {
    putquick "$reel(rank) $nickname $reel(time) $reel(reason)"
  }
}
 
proc ctrl:filter {str} {
  regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str
  return $str
}
 
putlog "Fullname Ban TCL v1.2 - Written By CLubber"