Code:

#set the bots nickname here set nick "\[WaTcH\]-\[DoG\]" # set channels which it has AOP on you can list as many channels as you want, for example it # will look like so    set channels "#channel1 channel2 channel3" etc leave it empty # if you dont have any channels the bot is a registered aop or sop on set chanels "#BanGLaDesH" #set the ident password here set pass "cafebotrulez" #[0/1] set recieve message from bot when it successfully identifies. set to 0 to prevent the # message or 1 to receive message set succ_id 1 # set your handle here, this is the nickname that the bot knows you buy which is most likely # the same nick as you use on irc there's no need to set it if you haven't enabled recieve  # messages set own "ZaKiR" # set the amount of time in minutes of how often you want to check to see when nickserv is  # online. Default is 1 so it will check every 1 minute to see if nickserv is online    # (minutes) set tim 3 ###############################Main Code##################################### ####### DO NOT EDIT BELOW THIS LINE UNLESS YOU KNOW WHAT YOU'RE DOING ####### if {(![info exists numversion]) || ($numversion < 1060000) } {     putlog "Error - Can't load Ident.tcl -- At least Eggdrop v1.6.x required."     return 0 } #init-server procedure proc ident:pr {paras} {putserv "ISON Nickserv"putserv "oper EGGDROP $pass"} #raw ison procedure   proc ison:pr {n h paras} {   global botnick nick pass tim     if {[string tolower $paras] == ""} {      timer $tim ident:pr    } else {      if {[isbotnick $nick]} {      putserv "identify $pass"        } else {      putserv "NICKSERV GHOST $nick $pass"       }    }  putserv "oper EGGDROP $pass" }#DCC Ident procedure     proc dc:ident {hand idx para} {      global nick botnick pass      putcmdlog "#$hand# ident"        if {[isbotnick $nick]} {         putserv "IDENTIFY $pass"      } else {       putserv "NICKSERV GHOST $nick $pass"    }  putserv "oper EGGDROP $pass"} #Success Ident Procedure         proc id:suc {n uh h txt paras} {        global nick own succ_id chanels savechannels botnick           if {[string match [string tolower $n] [string tolower nickserv]]} {              set dakill [killignore *!*@dal.net]              set ch [channels]              if {$chanels != ""} {              foreach a $chanels {                     foreach b $ch {                 if {[string tolower $a] == [string tolower $b]} {                    channel set $a need-op "putserv \"CHANSERV :OP $a $botnick\""                    channel set $a need-unban "putserv \"CHANSERV :UNBAN $a $botnick\""               }              }             }         } else {           return 0      }             if {$succ_id == "1"} {         set han [hand2nick $own]         puthelp "NOTICE $han :Successfully Identified to nickserv"            } else {        return 0       }     } }                 #Nick Change Procedure proc ni:pr {n uh h ch ni} { global nick botnick own pass if {[string match [string tolower $ni] [string tolower $nick]]} { putserv "identify $pass"putserv "oper EGGDROP $pass"      }   }       bind need - unban need:unban bind evnt - init-server ident:pr bind notc - "*Password accepted for*" id:suc bind DCC m ident dc:ident bind raw - 303 ison:pr bind nick - * ni:pr 

Code:

#Set the bots nickname here set nick "\[WaTcH\]-\[DoG\]" #Set the channels which it has AOP on you can list as many channels as you want, for example it # will look like set channels "#channel1 channel2 channel3" etcset chanels "#BanGLaDesH" #Set the ident password here set pass "cafebotrulez" #Set recieve message from bot when it successfully identifies. Set to 0 to prevent the # message or 1 to receive message set succ_id 1 #Set your handle here, this is the nickname that the bot knows you buy which is most likely # the same nick as you use on irc there's no need to set it if you haven't enabled recieve  # messages set own "ZaKiR" #Set the amount of time in minutes of how often you want to check to see when nickserv is  # online. Default is 1 so it will check every 1 minute to see if nickserv is onlineset tim 3 ###############################Main Code##################################### ####### DO NOT EDIT BELOW THIS LINE UNLESS YOU KNOW WHAT YOU'RE DOING ####### if {(![info exists numversion]) || ($numversion < 1060000) } {     putlog "Error - Can't load Ident.tcl -- At least Eggdrop v1.6.x required."     return 0 } bind need - unban need:unban bind evnt - init-server ident:pr bind notc - "*Password accepted for*" id:suc bind DCC m ident dc:ident bind raw - 303 ison:pr bind nick - * ni:pr  proc ident:pr {paras} {  global botnick pass  putquick "oper EGGDROP $pass" -next  putserv "ISON Nickserv" } proc ison:pr {n h paras} {   global botnick nick pass tim     if {[string tolower $paras] == ""} {      timer $tim ident:pr    } else {      if {[isbotnick $nick]} {      putserv "identify $pass"        } else {      putserv "NICKSERV GHOST $nick $pass"       }    } }  proc dc:ident {hand idx para} {    global nick botnick pass      putcmdlog "#$hand# ident"        if {[isbotnick $nick]} {         putserv "IDENTIFY $pass"      } else {       putserv "NICKSERV GHOST $nick $pass"    } }    proc id:suc {n uh h txt paras} {     global nick own succ_id chanels savechannels botnick           if {[string match [string tolower $n] [string tolower nickserv]]} {              set dakill [killignore *!*@dal.net]              set ch [channels]              if {$chanels != ""} {              foreach a $chanels {                     foreach b $ch {                 if {[string tolower $a] == [string tolower $b]} {                    channel set $a need-op "putserv \"CHANSERV :OP $a $botnick\""                    channel set $a need-unban "putserv \"CHANSERV :UNBAN $a $botnick\""               }              }             }         } else {           return 0      }                          if {$succ_id == "1"} {         set han [hand2nick $own]         puthelp "NOTICE $han :Successfully Identified to nickserv"            } else {        return 0       }    } }                 proc ni:pr {n uh h ch ni} {  global nick botnick own pass   if {[string match [string tolower $ni] [string tolower $nick]]} {     putserv "identify $pass"      } }

Code:

bind evnt - init-server oper:connect proc oper:connect {type} { putserv "oper EGGDROP cafebotrulez" } 

Code:

#set the bots nickname hereset nick "\[WaTcH\]-\[DoG\]"# set channels which it has AOP on you can list as many channels as you want, for example it # will look like so    set channels "#channel1 channel2 channel3" etc leave it empty# if you dont have any channels the bot is a registered aop or sop onset chanels "#BanGLaDesH"#set the ident password hereset pass "cafebotrulez"#[0/1] set recieve message from bot when it successfully identifies. set to 0 to prevent the # message or 1 to receive messageset succ_id 1# set your handle here, this is the nickname that the bot knows you buy which is most likely # the same nick as you use on irc there's no need to set it if you haven't enabled recieve  # messagesset own "ZaKiR"# set the amount of time in minutes of how often you want to check to see when nickserv is  # online. Default is 1 so it will check every 1 minute to see if nickserv is online   # (minutes)set tim 3###############################Main Code############################################ DO NOT EDIT BELOW THIS LINE UNLESS YOU KNOW WHAT YOU'RE DOING #######if {(![info exists numversion]) || ($numversion < 1060000) } {    putlog "Error - Can't load Ident.tcl -- At least Eggdrop v1.6.x required."    return 0}#init-server procedureproc ident:pr {paras} {putserv "ISON Nickserv"}#raw ison procedure  proc ison:pr {n h paras} {  global botnick nick pass tim    if {[string tolower $paras] == ""} {     timer $tim ident:pr   } else {     if {[isbotnick $nick]} {     putserv "identify $pass"       } else {     putserv "NICKSERV GHOST $nick $pass"      }   }}#DCC Ident procedure    proc dc:ident {hand idx para} {     global nick botnick pass     putcmdlog "#$hand# ident"       if {[isbotnick $nick]} {        putserv "IDENTIFY $pass"     } else {      putserv "NICKSERV GHOST $nick $pass"   }} #Success Ident Procedure                  proc id:suc {n uh h txt paras} {       global nick own succ_id chanels savechannels botnick          if {[string match [string tolower $n] [string tolower nickserv]]} {             set dakill [killignore *!*@dal.net]             set ch [channels]             if {$chanels != ""} {             foreach a $chanels {                    foreach b $ch {                if {[string tolower $a] == [string tolower $b]} {                   channel set $a need-op "putserv \"CHANSERV :OP $a $botnick\""                   channel set $a need-unban "putserv \"CHANSERV :UNBAN $a $botnick\""              }             }            }        } else {          return 0     }                         if {$succ_id == "1"} {        set han [hand2nick $own]        puthelp "NOTICE $han :Successfully Identified to nickserv"           } else {       return 0      }    }}               #Nick Change Procedureproc ni:pr {n uh h ch ni} {global nick botnick own passif {[string match [string tolower $ni] [string tolower $nick]]} {putserv "identify $pass"     }  }     bind need - unban need:unbanbind evnt - init-server ident:prbind notc - "*Password accepted for*" id:sucbind DCC m ident dc:identbind raw - 303 ison:prbind nick - * ni:pr