#############################################################

#                                                           #

#         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"