# Sohbettur.Com Internet Teknolojileri 
# msn : Che@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].Com
# server : /server IRC.Sohbettur.Com
# web : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
# System Root : Che
# Duzenleyen : Che
 
bind msgm - root ghostly
proc ghostly { nick uhost handle text } {
putserv "PRIVMSG operserv :su şifre" }
 
bind pub - !helper helperim
proc helperim {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0} 
putserv "PRIVMSG operserv :chghost $nick HelpDesk.Sohbettur.Com"
putserv "PRIVMSG operserv :chgident $nick HelpDesk"
putserv "PRIVMSG operserv :chgname $nick Sohbettur helpdesk Team"
putserv "NOTICE $nick Artik bir Helpdesksiniz. Basarılar"
putserv "NOTICE $nick Bravo Basariyla Helpdesk Hostunu, Identini, Ismini ve Modelerini Aldin."
putserv "NOTICE $nick Lutfen #Help Kanalindaki Kullancilarla iyi Gecinin ve Saygili Olun."
putserv "PRIVMSG operserv :raw svsmode $nick +hWq :1"
putserv "PRIVMSG operserv :raw svsnick $nick HelpDesk_$nick :1"
putserv "privmsg $chan : $text Basariyla Helper Oldunuz."
}
putlog "helperhost.tcl  By Che"

bind mode - * helper
proc helper {n uh h c mode a} {
if {$c != "#help"} {return 0}
if {$mode == "+o"} {
putquick "PRIVMSG $c $a Helper konumuna geçti."
putquick "PRIVMSG operserv :raw svsmode $a +hWq :1"
putquick "CHGHOST $a helper.Domain.Com"
putquick "CHGIDENT $a Services"
putquick "CHGNAME $a Domain help Team"
putquick "NOTICE $a Artik bir Helpersiniz. Basarılar"
putquick "NOTICE $a Bravo basariyla Helper Hostunu, Identini, Ismini Ve Modelerini aldin."
putquick "NOTICE $a Lutfen #Help kanalindaki kullancilarla iyi gecinin ve saygili olun."
 }
}

####################################
##############MesqeN################
####################################
set helpers(chan) "#help"
set helpers(ident) "Services"
set helpers(host) "Helper.Kelebek.Gen.TR"
set helpers(name) "2Kelebek Help Team"
set helpers(mods) "hWq"

############################################
#Burdan sonrasına eleme bozulure :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..