LOL.TCL 8.1a

[Nor7on]

Can be Downloaded Here

Code: Select all

## [LoL's TooLz 8.1a] EDITED & Adapted for server Undernet, with Leonini permission. 
## Work 100%.
## New commands added: !dr <nick> (*!*@domain.host) - !drone <nick> (*!*@domain.host) - !bannick <nick> (nick*!*@*) 
## in this version, don't need put !banmask to banned *!*@domain.host, just use: !ban nick (*!*@domain.host)
## or !ban nick*!*@*, etc.
## Fixed the error unban automatic (before it removed bans when arriving at go number 27).
## When an user banned re-join and have ban or banperm, it put ban via X.

Enjoin.

[eXtremer]

Could you add more ban types:

# BAN TYPE
# HOW DO YOU WANT TO BAN THE USER ? DEFAULT 1
# 0 - *!*user@*.domain
# 1 - *!*@host.domain
# 2 - nick*!*@*
# 3 - *!user@*
# 4 - nick*!*@host.domain
# 5 - other bantype

set lol(bantype) 1

And if possible to configure that way I could use a ban type for different bans

!drone *!*@host
!badnick nick*!*@*
!badword *!ident@host

?

[Nor7on]

hi again.

update with this changes.
add this new options.

Code: Select all

###############################################################################
##################CONFIG BADWORD <NICK> <REASON>###############################
###############################################################################
# SET THE BAN TIME IN MINUTES ON EGGDROP.
# default 60 hour. (0 = perm)
set badwtime "60"

# SET THE DEFAULT REASON ON KICK MSG
set bwreason "Please don't use this words on channel."

# SET THE BANTYPE ONLY FOR BAN BADWORD
# 1 - *!*@host.domain
# 2 - *!ident@host.domain
# 3 - *!*ident@host.domain
# 4 - *!ident@*
# 5 - *!*ident@*
# 6 - nick*!*@*
# 7 - nick!ident@*
# 8 - nick!ident@host.doamin
# 9 - nick!*ident@host.domain
# 10 - nick!*@host
# 11 - Let lol.tcl choose how to set the banmask, by looking for sertain values in the mask. 
#    Anyway, the result will be one of the following banmasks (regular, IP, Undernet username);
#    *!*user@*.domain, *!*user@127.0.* or *!*@username.users.undernet.org
# default "*!*@host.domain"
set bantype "11"

# SET PROTECTED FLAGS.
# 
set flags "mof"

# ENABLE (1) OR DISABLE (0) IF YOU WANT EXEMPT OP/VOICE USERS.
# 
set badwpro "1"
###############################################################################
##################CONFIG BAD NICK <NICK> <REASON>##############################
###############################################################################
# SET THE BAN TIME IN MINUTES ON EGGDROP.
# default 60 hour. (0 = perm)
set ntime "60"

# SET THE DEFAULT REASON ON KICK MSG
set defreason "Change ur nick pls, usage: /nick Newnick & Rejoin."

# SET THE PROTECTED FLAGS
#
set nflags "mof"

# ENABLE (1) OR DISABLE (0) IF YOU WANT EXEMPT OP/VOICE USERS.
#
set badnpro "1"
###############################################################################
##########CONFIG DRONE <NICK> <REASON> | DR <NICK> <REASON>####################
###############################################################################
# SET THE BAN TIME IN MINUTES ON EGGDROP.
# default 60 hour. (0 = perm)
set drtime "60"

# SET THE DEFAULT REASON ONLY FOR KICK MSG
set motivdr "You are probably infected!."

# SET THE BANTYPE ONLY FOR BAN DRONE
# 1 - *!*@host.domain
# 2 - *!ident@host.domain
# 3 - *!*ident@host.domain
# 4 - *!ident@*
# 5 - *!*ident@*
# 6 - nick*!*@*
# 7 - nick!ident@*
# 8 - nick!ident@host.doamin
# 9 - nick!*ident@host.domain
# 10 - nick!*@host
# 11 - Let lol.tcl choose how to set the banmask, by looking for sertain values in the mask. 
#    Anyway, the result will be one of the following banmasks (regular, IP, Undernet username);
#    *!*user@*.domain, *!*user@127.0.* or *!*@username.users.undernet.org
# default "*!*@host.domain"
set bandrtype "1"

# SET PROTECTED FLAGS.
# 
set dflags "mof"

# ENABLE (1) OR DISABLE (0) IF YOU WANT EXEMPT OP/VOICE USERS.
# 
set drprot "1"
###############################################################################
######### CONFIG THE AUTOBAN VIA X ON REJOIN USER BANNED ######################
###############################################################################
# FOR ENABLE THIS FUNTION PLS JOIN IN PARTYLINE AND PUT: 
# .chanset #chanel +/-banviax
#SET THE BAN TIME ON X UNDERNET.
set jbantime "2"
###############################################################################
############################ GLOBAL CONFIG ####################################
###############################################################################

# SET THE BAN TIME IN X (BOT UNDERNET) FOR !BAN !DR !BADWORD !DRONE
# (default: 2 hours)
set btime "2"

# SET THE ACCESS LEVEL OF USERNAME OF YOUR EGGDROP.
# (default: 75)
set xaccess "75"
###############################################################################
###############################################################################
more config's........

tested and work perfectly, just download again of the same link.

[eXtremer]

Nice, thanks

[moff]

download link is down!

[Nor7on]

try join in the website and download.

[moff]

ty, it works

where can i modify the badwords?

[moff]

another question...

are you going to translate the spanish parts of the script?

[moff]

getting this error

Code: Select all

Tcl error [pub_lol_time]: invalid command name "date"

if i trigger
!time

...

[Danik]

It has an error or bug


It doesnt remove te ban from the egg banlist when I type !unban <mask>


I't removes the ban only on the channel, but it remains in the egg's banlist. So when the unbanned user join the channel it is banned again by the eggdrop.

[Danik]

I think the problem is here

Code: Select all

proc lol_unban { nick hand chan mask byX } {
	if {[isnumber $mask]} {
		set find 0
		foreach bans [banlist $chan] {
			incr find
			if {$find == $mask} { set mask [lindex $bans 0] ; break }
		}
		if {[isnumber $mask]} {
			puthelp "NOTICE $nick :[lang_text lol_lang_data [getlang $hand] 46 $mask]"
			return 0
		} 
	} else {	
		if {[string first "!" $mask] == -1 && [string first "@" $mask] == -1} {
			if {[isnumber [string index $mask 0]]} { 
				set mask *!*@$mask 
			} else { 
				set mask $mask*!*@* 
			}
		}
		if {[string first "!" $mask] == -1} {set mask *!*$mask}
		if {[string first "@" $mask] == -1} {set mask $mask*@*}
	}
		if {[onchan X $chan] } {
			putserv "PRIVMSG X :unban $chan $mask" 
		     	puthelp "NOTICE $nick :[lang_text lol_lang_data [getlang $hand] 47 "$mask $chan"]"
			return 0
		}

	if {[isban $mask $chan]} { 
		if {![killchanban $chan $mask]} { killban $mask }
      	puthelp "NOTICE $nick :[lang_text lol_lang_data [getlang $hand] 47 "$mask $chan"]"
		return 0
	} 
	if {[ischanban $mask $chan] && [botisop $chan]} {
		putserv "MODE $chan -b $mask"
			putserv "PRIVMSG X :unban $chan $mask" 
            puthelp "NOTICE $nick :[lang_text lol_lang_data [getlang $hand] 47 "$mask $chan"]"
		return 0
	} 
	puthelp "NOTICE $nick :[lang_text lol_lang_data [getlang $hand] 48 $chan]"
	return 0
}

[/code]

[Lupo]

The site is down... anybody have the latest version?

Notice: This domain name expired on 12/07/08 and is pending renewal or deletion

Does anybody know 8.1 has support for halfop?

[Danik]

Does anybody have this script in english ? (because it is in spanish)

[Nemesis]

i have a version updated by me to work with halfop

send me a private message if you want it

[lindonato]

Hi all
tnx for this script but i have this error in partyline:

LoL's TooLz requires now lang.tcl. Please install it.

Anyone can give help me?

in the script there is write i must install lang.tcl, but i serach it and i don't find it.
Tnx