#

# Şifre-Ghost-Release TCL by Raw

##

 
#OperServ Adı

set operservice "OperServ"

 
#NickServ Adı

set nickservice "NickServ"

 
#Botunuzun Şifresi

set tri(sifre) "ŞİFRENİZ"

 
bind notc - "*kayitli ve sifre korumali bir nick'tir. Eger sizinse*" nicktanit

 proc nicktanit {nick uhost hand arg dest} {

 global nservice operservice tri

 if {$nick == $nservice} { 

putquick "privmsg $nservice :identify $tri(sifre)"

putquick "privmsg $operservice :su $tri(rootsifre)"

 }

}

 
bind nick - * ghstrls

proc ghstrls {nick uhost hand chan nn} {

 global botnick nservice tri

 if {$nick == $botnick} { 

putquick "privmsg $nservice :ghost $botnick $tri(sifre)"

putquick "privmsg $nservice :release $botnick $tri(sifre)"

 }

}