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

#                                                           #

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