services2.1.tcl

################################################################
# 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"