#############################################################
#                                                           #
#         Helper TCL v1.0 - Written By CLubber              #
# Bu TCL ile help kanalında op olana otomatik host verilir  #
#                                                           #
#############################################################
 
# Help Yardım Kanalı
 
set help(chan) "#Help"
 
# Helperlere Verilecek Ident
 
set help(ident) "Helper"
 
# Helperlere Verilecek Host
 
set help(host) "Helper.mIRCTurk.Com"
 
# Helperlere Verilecek Fullname
 
set help(name) "mIRCTurk Helper"
 
# Helperlerin Alacağı Modlar
 
set help(mods) "+hWq"
 
# Bu kısımdan sonrasını değiştirmenize gerek yok
 
bind mode - * help:mode
proc help:mode {nick uhost hand chan mode desc} {
  global botnick help
  if {![string match -nocase "$help(chan)" $chan]} { return }
  if {$mode == "+o"} {
    putquick "CHGIDENT $desc $help(ident)"
    putquick "CHGHOST $desc $help(host)"
    putquick "CHGNAME $desc $help(name)"
    putquick "OperServ RAW SVSMODE $desc $help(mods)"
    putquick "NOTICE $desc Help kanalında (@) operatör olduğunuz için bilgilerinize vhost/ident/fullname/flag eklendi!"
  }
}
 
putlog "Helper TCL v1.0 - Written By CLubber"