ForumTEK.Net - IRC Forumu - HelpOto Host Sistem TCL

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

Kod:

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



#                                                           #



#         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.forumtek.net"



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