HelpOto Host Sistem TCL

[No_FeaR]

Anlatmaya Gerek Yok Desekte Biraz Özetleyelim, #HELP Kanalında +oaq Olduğunuz Aşağıda Belirlediğiniz IDENT/Name'yi Alır..

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

# #

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