Code: Select all
#### #### #### ### # ####
# ## # ##### # # # # # # # # #
#### # # # # #### #### ### # # # #
# # ## # # # # # # # # #
#### # # ##### # #### # # # # ####
##########################################################
# Commands: !aop uses +a op , !pop plain op , !hophalf op,
# !avoice voices
#
#
# This Scrip can only be used by bot ouners
# There is The command to deleate Auto-ops
# Witch can only be used by masters
#
# INFO:Whin editing this script for some
# reason it doent like ".rehash" so
# if you want to get rid of an error like
# "TCL error [pub:dop]: can't read "tnick":
# no such variable"
# Just type ".die" and restart your bot
#
# put the bots owner nick here
set owner "SniperAC"
#
# Just an auto "AOP,access,sop"
set autoop "aop"
#
# All servers have diff Numbers for all of the blow
# aop is +a op users (cant be kicked)
# pop is Plain-op users
# hop is half-op users
#
set aop "10"
set pop "5"
set hop "4"
set voice "3"
#
# Put Chanserv Services nick
set chans "chanserv"
#
# ***** W-A-R-N-I-N-G ******
# STOP EDITING
# EDIT AT YOUR OWN RISK!
#
bind pub n !aop pub:aop
bind pub n !pop pub:pop
bind pub n !hop pub:hop
bind pub n !dop pub:dop
bind pub n !avoice pub:v
#
proc pub:aop { nick uhost handle chan text } {
global aop botnick chans autoop owner
if { $nick == $owner } {
if {[string length $text] > 0} {
set tnick [lindex $text 0]
}
puthelp "PRIVMSG $chans :$autoop $chan add $tnick $aop"
putlog "$nick Added $tnick to aop list"
}
}
#
#
proc pub:pop { nick uhost handle chan text } {
global botnick chans pop autoop aop owner
if { $nick == $owner } {
if {[string length $text] > 0} {
set tnick [lindex $text 0]
}
puthelp "PRIVMSG $chans :$autoop $chan add $tnick $pop"
putlog "$nick added $tnick to Plain- OP list"
}
}
#
#
proc pub:hop { nick uhost handle chan text } {
global botnick hop chans autoop owner
if { $nick == $owner } {
if {[string length $text] > 0} {
set tnick [lindex $text 0]
}
puthelp "PRIVMSG $chans :$autoop $chan add $tnick $hop"
putlog "$nick Added $tnick to Half-OP list"
}
}
#
#
proc pub:dop { nick uhost handle chan text } {
global botnick chans autoop owner
if { $nick == $owner } {
if {[string length $text] > 0} {
set tnick [lindex $text 0]
}
puthelp "PRIVMSG $chans :$autoop $chan del $tnick"
putlog "$nick Deleated $tnick"
}
}
#
#
proc pub:v { nick uhost handle chan text } {
global botnick voice chans autoop owner
if { $nick == $owner } {
if {[string length $text] > 0} {
set tnick [lindex $text 0]
}
puthelp "PRIVMSG $chans :$autoop $chan add $tnick $voice"
putlog "$nick Added $tnick to Voice list"
}
}
# This script was made for Eggdrop1.6.6 in one night 2001/DEC/2
# Scripted by SniperAC
# This is My first script so go easy on it please
# Thanks to PPSlim,Wcc from
# http://www.egghelp.org /
# http://www.egghelp.org/forum/viewforum.php?forum=2
# Thanks to them too ^^
# Thanks to The scripters of "Nickserv.tcl" and "optools.tcl"
# I looked inside their scripts for examples....
#No thanks to Phantasm/My brother that didn't want to help me
putlog "\037loaded SniperAC's ChanServ auto-op"
# If for some odd reason :-x this script should go out of date
# or error out E-mail Xairranger@hotmail.com this e-mail will
# never go way ;-) your E-mail will not go unancerd...
Code: Select all
AdminServ
Services Scripts
The reference was for the Tcl Archive on our main website Fire-Fox: http://www.egghelp.org/tcl.htmFire-Fox wrote:or i can read alright...
but i'm danish so i don't understand quit what the meaning are.
i read i like this
go to windrop's site and search the tcl archive.... BUT there are no achiveTry Cserv.tcl by Windrop just search the TCL archive.
It is only of use if your eggdrop is on Undernet.Makes Eggdrop be like Undernet's cservice X. Access on channels works with levels: 1 to 500 for chans and 501 to 1000 for owners. All commands of cservice are in it but some still missing.