IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

Kod:
  ####################################

##############MesqeN################

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

set helpers(chan) "#help"

set helpers(ident) "Services"

set helpers(host) "Helper.FixSohbet.Net"

set helpers(name) "2Gevezeyiz Help Team"

set helpers(mods) "hWq"
 

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

#Burdan sonrasına eleme bozulur :D        #

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

bind mode - * helpers:mode 

proc helpers:mode {nick uhost hand chan mode desc} {

global botnick helpers

if {![string match -nocase "$helpers(chan)" $chan]} { return }

if {$mode == "+o"} {

putquick "CHGIDENT $desc $helpers(ident)"

putquick "CHGHOST $desc $helpers(host)"

putquick "CHGNAME $desc $helpers(name)"

putquick "OperServ RAW SVSMODE $desc $helpers(mods)"

putquick "NOTICE $desc #help  kanalında (@) operatör olduğunuz için bilgilerinize vhost/ident/fullname/flag eklendi!"

}

}
 

putlog "  helpers tcl Yüklendi..