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