help with +ban -ban script.. found here

blueangelzx · Post by **blueangelzx** » Thu Jun 24, 2004 3:26 am

Hiya, first of all i'm very happy to join this forum, i reallly like the eggdrops. well, my question is.. i find a script here i think Caesar write it... but didn't work, can someone help me?

bind msg n +ban ban:user
bind msg n -ban unban:user

proc ban:user {nick uhost hand arg} if {[llength $arg] < 3} {putserv "PRIVMSG $nick :Usage: +ban <channel> <host> <reason>" } {
if {[validchan [lindex [split $arg] 0]]} {
newchanban putserv "NOTICE $nick :Added new ban \002[lindex [split $arg] 1]\002 on \002 [lindex [split $arg] 1]\002" [lindex [split $arg] 0] [lindex [split $arg] 1] $nick "[join [lrange [split $arg] 2 end]]"
} {
newban putserv "NOTICE $nick :Added global new ban \002[lindex [split $arg] 1]\002" [lindex [split $arg] 0] $nick "[join [lrange [split $arg] 1 end]]"
}
}

proc unban:user {nick uhost hand arg} if {[llength $arg] < 3} {putserv "PRIVMSG $nick :Usage: -ban <channel> <host> <reason>" } {
if {[validchan [lindex [split $arg] 0]]} {
killchanban putserv "NOTICE $nick :Removed ban \002[lindex [split $arg] 1]\002 on \002 [lindex [split $arg] 1]\002" [lindex [split $arg] 0] [lindex [split $arg] 1]
} {
killban putserv "NOTICE $nick :Removed global ban \002[lindex [split $arg] 1]\002" [lindex [split $arg] 0]
}
}

awyeah · Post by **awyeah** » Thu Jun 24, 2004 4:01 am

What error do you get when you execute the command
in private with the bot?

Can you check in DCC partyline with the bot and show us
the error maybe?

blueangelzx · Post by **blueangelzx** » Thu Jun 24, 2004 6:30 pm

ok thanks m8, this is the error, the .tcl is called "manual-ban1.0.tcl"..
Eggdrop v1.6.15 (C) 1997 Robey Pointer (C) 2003 Eggheads
[17:27] --- Loading eggdrop v1.6.15 (Thu Jun 24 2004)
[17:27] Listening at telnet port 7657 (all)
[17:27] Module loaded: dns
[17:27] Module loaded: channels
[17:27] Module loaded: server
[17:27] Module loaded: ctcp
[17:27] Module loaded: irc
[17:27] Module loaded: transfer (with lang support)
[17:27] Module loaded: share
[17:27] Module loaded: filesys (with lang support)
[17:27] Module loaded: notes (with lang support)
[17:27] Module loaded: console (with lang support)
[17:27] Module loaded: blowfish
[17:27] Module loaded: assoc (with lang support)
[17:27] Module loaded: wire (with lang support)
[17:27] Module loaded: uptime
[17:27] Loaded ChanLimit (DLF)
[17:28] Loading [FL] Greet File...
[17:28] Loading [FL] URL File...
[17:28] Loading [FL] E-Mail File...
[17:28] ☻[FL]☻ ▬facelift.tcl▬ v3.6.1 by Kindred loaded
[17:28] tcl: optools loaded
[17:28] Loaded sentinel.tcl v2.70 by slennox
[17:28] -=-= PROTECTION PROSES =-=-=-=-=-
[17:28] Protections change badnick Ver 1.1:
[17:28] Change Badnick protection loaded Successfuly...
[17:28] NoAds v1.09.05 by David Proper (DrN) -: LoadeD :-
[17:28] ☻Moderator-02.tcl☻ - (.Moderator for help)
[17:28] ☻Anti-Socks v1.1 TCL☻ by Cashflo <Cashflo@GalaxyNet.Org>
shelp" For Assistance
[17:28] Loading Banlist Cleaner 1.0a - By WolverinX
[17:28] Tcl error in file 'XtremE.conf':
[17:28] wrong # args: should be "proc name args body"
while executing
"proc ban:user {nick uhost hand arg} if {[llength $arg] < 3} {pu
nick :Usage: +ban <channel> <host> <reason>" } {
if {[validchan [linde..."
(file "scripts/manual-ban1.0.tcl" line 4)
invoked from within
"source scripts/manual-ban1.0.tcl"
(file "XtremE.conf" line 1417)
[17:28] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

thanks for you're support

KrzychuG · Post by **KrzychuG** » Thu Jun 24, 2004 6:54 pm

Find that line:

Code: Select all

proc ban:user {nick uhost hand arg}

and change to:

Code: Select all

proc ban:user {nick uhost hand arg} {

blueangelzx · Post by **blueangelzx** » Thu Jun 24, 2004 8:06 pm

ok m8 i tried that too.. but didin't work.. here's the tcl file with that modification and the following error...
bind msg n +ban ban:user
bind msg n -ban unban:user

proc ban:user {nick uhost hand arg} {if {[llength $arg] < 3} {putserv "PRIVMSG $nick :Usage: +ban <channel> <host> <reason>" } {
if {[validchan [lindex [split $arg] 0]]} {
newchanban putserv "NOTICE $nick :Added new ban \002[lindex [split $arg] 1]\002 on \002 [lindex [split $arg] 1]\002" [lindex [split $arg] 0] [lindex [split $arg] 1] $nick "[join [lrange [split $arg] 2 end]]"
} {
newban putserv "NOTICE $nick :Added global new ban \002[lindex [split $arg] 1]\002" [lindex [split $arg] 0] $nick "[join [lrange [split $arg] 1 end]]"
}
}

proc unban:user {nick uhost hand arg} {if {[llength $arg] < 3} {putserv "PRIVMSG $nick :Usage: -ban <channel> <host> <reason>" } {
if {[validchan [lindex [split $arg] 0]]} {
killchanban putserv "NOTICE $nick :Removed ban \002[lindex [split $arg] 1]\002 on \002 [lindex [split $arg] 1]\002" [lindex [split $arg] 0] [lindex [split $arg] 1]
} {
killban putserv "NOTICE $nick :Removed global ban \002[lindex [split $arg] 1]\002" [lindex [split $arg] 0]
}
}

NOW THE ERROR:

Eggdrop v1.6.15 (C) 1997 Robey Pointer (C) 2003 Eggheads
[19:04] --- Loading eggdrop v1.6.15 (Thu Jun 24 2004)
[19:04] Listening at telnet port 7657 (all)
[19:04] Module loaded: dns
[19:04] Module loaded: channels
[19:04] Module loaded: server
[19:04] Module loaded: ctcp
[19:04] Module loaded: irc
[19:04] Module loaded: transfer (with lang support)
[19:04] Module loaded: share
[19:04] Module loaded: filesys (with lang support)
[19:04] Module loaded: notes (with lang support)
[19:04] Module loaded: console (with lang support)
[19:04] Module loaded: blowfish
[19:04] Module loaded: assoc (with lang support)
[19:04] Module loaded: wire (with lang support)
[19:04] Module loaded: uptime
[19:04] Loaded ChanLimit (DLF)
[19:04] Loading [FL] Greet File...
[19:04] Loading [FL] URL File...
[19:04] Loading [FL] E-Mail File...
[19:04] ☻[FL]☻ ▬facelift.tcl▬ v3.6.1 by Kindred loaded
[19:04] tcl: optools loaded
[19:04] Loaded sentinel.tcl v2.70 by slennox
[19:04] -=-= PROTECTION PROSES =-=-=-=-=-
[19:04] Protections change badnick Ver 1.1:
[19:04] Change Badnick protection loaded Successfuly...
[19:04] NoAds v1.09.05 by David Proper (DrN) -: LoadeD :-
[19:04] ☻Moderator-02.tcl☻ - (.Moderator for help)
[19:04] ☻Anti-Socks v1.1 TCL☻ by Cashflo <Cashflo@GalaxyNet.Org> Loaded. ".sock
shelp" For Assistance
[19:04] Loading Banlist Cleaner 1.0a - By WolverinX
[19:04] Tcl error in file 'XtremE.conf':
[19:04] missing close-brace
while executing
"proc ban:user {nick uhost hand arg}"
(file "scripts/manual-ban1.0.tcl" line 4)
invoked from within
"source scripts/manual-ban1.0.tcl"
(file "XtremE.conf" line 1417)
[19:04] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

Alchera · Post by **Alchera** » Thu Jun 24, 2004 10:16 pm

For every opening brace >> } << there has to be a matching {

Just recheck your code and ensure you have the correct number of {'s (closing braces)

awyeah · Post by **awyeah** » Fri Jun 25, 2004 3:22 am

Yes there is a closing brace "}" missing in either one of your procedures.

Count the number of opening braces in a procedure which will be "{"
and count the number of closing braces which will be "}" if both are not
equal meaning the procedure hasnt been enclosed with the correct number of braces.

As here it is mentioned a closing brace is mentioned, you might want to add a "}" in the end of the procedure ban:user.