Identify.tcl

####################################################
# Identify.tcl                                       
####################################################
#ComputerTech                                     
#IRC Irc.Freenode.Net ##Eggdrop                   
#Email ComputerTech312@gmail.com                 
#GitHub page : https://github.com/computertech312 
####################################################
#Commands
#identify
#ghost
#release
#recover
####################################################
set botn "botnick"
set botp "botpassword"
set trig "?"
set tflg "n"
set serv "nickserv"
####################################################
bind pub ${tflg} ${trig}identify do_identify
bind pub ${tflg} ${trig}ghost    do_ghost
bind pub ${tflg} ${trig}release  do_release
bind pub ${tflg} ${trig}recover  do_recover

proc do_identify {nick host handle chan text} {
global botn botp serv
putquick "Privmsg $serv :identify $botn $botp"
putquick "Notice $nick :Identifying to $serv for the nick $botn"
}
proc do_ghost {nick host handle chan text} {
global botn botp serv
putquick "Privmsg $serv :ghost $botn $botp"
putquick "Notice $nick :Ghosting the nick $botn"
}
proc do_release {nick host handle chan text} {
global botn botp serv
putquick "Privmsg $serv :release $botn $botp"
putquick "Notice $nick :Realeasing the nick $botn from $serv"
}
proc do_recover {nick host handle chan text} {
global botn botp serv
putquick "Privmsg $serv :recover $botn $botp"
putquick "Notice $nick :Recovering the nick $botn from $serv"
}
#this auto identifies your bot comment the next 5 lines if you Dont want this
set init-server { 
global botn botp serv
putquick "PRIVMSG $serv :identify $botn $botp"
putserv "MODE $nick +iR"
}


putlog "Identify.tcl Made By ComputerTech"
#####################################################