##
# Ş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)"
 }
}