service 2.1

################################################################

# This is the second revision of the DalServ Script.

# This script is released due to request, i get alot of

# mails each day from people that are using the old DalServ

# script but want multi chan support, so here it is.

# If for some strange reason you want to contact me you'll

# find me in #Landskrona- and sometimes in #eggdrop on dalnet.

# or you can mail me on andreas@stehn.com

################################################################



# Configuration

# Set your eggdrops nickserv pass on the line below



set nickpass "yourleetnickpass"



# No need to edit these if you are on DALnet



set nickserv "nickserv@services.dal.net"

set chanserv "chanserv@services.dal.net"

set memoserv "memoserv@services.dal.net"

set scriptver "DalServ 2.1 By Diktatorn"



# End of Configuration



bind notc - "*This nick is owned by someone else*" ident_nickserv

bind notc - "*Password accepted for*" op_chanserv

bind notc - "*You have*" rm_memos



bind pub o !identify man_ident

bind dcc o identify dcc_identify

bind ctcp o ident ident_nickserv

bind ctcp o services serv_ver



proc ident_nickserv { nick uhost hand args } {

 global botnick nickpass nickserv

    putlog "\002Catched notice\002 from \002$nickserv\002"

    putserv "PRIVMSG $nickserv :identify $nickpass"

    putlog "Trying to Negotiate With $nickserv"

  }



proc man_ident { nick uhost hand args } {

 global botnick nickpass nickserv

 putserv "PRIVMSG $nickserv :identify $nickpass"

      }



proc dcc_identify { hand idx mascara } {

 global nickserv botnick nickpass

 putserv "PRIVMSG $nickserv :identify $nickpass"

 }



proc op_chanserv { nick uhost hand args } {

   global botnick chanserv channame

     putlog "\002Catched Notice\002 from \002$chanserv\002"

     foreach channame [channels] {

     putserv "PRIVMSG $chanserv :OP $channame $botnick" }

     putlog "\002Trying to gain ops\002 in \002$channame\002 from \002$chanserv\002"

}



proc rm_memos { nick uhost hand args } {

   global botnick memoserv

     putlog "\002Catched Memo Notice\002 from \002$memoserv\002"

     putserv "PRIVMSG $memoserv :DEL ALL"

     putlog "\002Trying to remove memos...\002"

}



proc serv_ver { nick uhost hand args } {

 global scriptver

 putserv "NOTICE $nick :\002$scriptver present\002"

 return 1

    }



putlog "TCL Loaded: \002$scriptver\002"