egghelp/eggheads community

need help with a ban script

2008-08-18T15:35:44-04:00

The error message suggests that the error is not with the script itself, but the editor/environment using an extended locale such as utf-8 or similar. Also, the error is not related to any other scripts, as the function containing the error is the same as provided in the posted code.

Statistics: Posted by nml375 — Mon Aug 18, 2008 3:35 pm

need help with a ban script

2008-08-18T15:05:39-04:00

the solved code for u stranger eggdrop,

Code:

proc ban:nick {nick uhost hand chan txt} {   set txt [split $txt]   set who [lindex $txt 0]   if {[isbotnick $who]} { return }   if {[llength $txt] > 1} {     set reason [join [lrange $txt 1 "end"]]   } else {     set reason "($nick) Bad nickname, please change it and rejoin the channel!!"   }   if {$who == ""} {   puthelp "NOTICE $nick : use: !n "return 0 }  putquick "MODE $chan +b $who*!*@*"  putserv "PRIVMSG X :kick $chan $who $reason"   putkick $chan $who $reason   return 1 }

Statistics: Posted by Nor7on — Mon Aug 18, 2008 3:05 pm

need help with a ban script

2008-08-18T14:15:38-04:00

i test this tcl and it work.

Code:

*** tesuser ( ~Nor7on@21.Red-83-56-233.dynamicIP.rima-tde.net ) Entra al Canal #Nor7on !n tesuser* Chasse pone modo: +b tesuser*!*@** tesuser ha sido KICKEADO por Chasse (Banned: (tesuser) Bad nickname, please change it and rejoin the channel!!)

maybe u have other script what do troubles.

Statistics: Posted by Nor7on — Mon Aug 18, 2008 2:15 pm

need help with a ban script

2008-08-18T14:12:21-04:00

Code:

set eggbantime "60"proc ban:nick {nick uhost hand chan text} { global botnick eggbantime  if {[botisop $chan]} {    if {[string length $text] > 0} {      set badnick [lindex $text 0]      if {[onchan $badnick $chan]} {set bannick [nick2hand $badnick]if {[matchattr $bannick +fo $chan]} {putquick "NOTICE $nick :I can't ban $bannick."return}                     set reason "($badnick) Bad nickname, please change it and rejoin the channel!!" set mask $badnick*!*@*putquick "PRIVMSG X :ban $chan $mask 2 100 $reason"        newchanban $chan $mask $botnick $reason $eggbantime      } else { puthelp "notice $nick :no such nick on channel!" }    } else { puthelp "NOTICE $nick :!n " }  } else { puthelp "NOTICE $nick :No tengo OP." }}

try it work, tested in my eggdrop's.

samo problem
[21:11] Tcl error [ban:nick]: invalid command name "б═б═"

Statistics: Posted by Danik — Mon Aug 18, 2008 2:12 pm

need help with a ban script

2008-08-18T13:48:06-04:00

Code:

set eggbantime "60"proc ban:nick {nick uhost hand chan text} { global botnick eggbantime  if {[botisop $chan]} {    if {[string length $text] > 0} {      set badnick [lindex $text 0]      if {[onchan $badnick $chan]} {set bannick [nick2hand $badnick]if {[matchattr $bannick +fo $chan]} {putquick "NOTICE $nick :I can't ban $bannick."return}                     set reason "($badnick) Bad nickname, please change it and rejoin the channel!!" set mask $badnick*!*@*putquick "PRIVMSG X :ban $chan $mask 2 100 $reason"        newchanban $chan $mask $botnick $reason $eggbantime      } else { puthelp "notice $nick :no such nick on channel!" }    } else { puthelp "NOTICE $nick :!n " }  } else { puthelp "NOTICE $nick :No tengo OP." }}

try it work, tested in my eggdrop's.

Statistics: Posted by Nor7on — Mon Aug 18, 2008 1:48 pm

need help with a ban script

2008-08-18T13:09:01-04:00

Code:

#set the ban-time. (0 = perm)set eggbantime "60"bind pub o|o !n pub:nickne proc pub:nickne {nick uhost hand chan txt} {   global botnick eggbantime  set txt [split $txt]   set who [lindex $txt 0]   if {[isbotnick $who]} { return }   if {[llength $txt] > 1} {     set reason [join [lrange $txt 1 "end"]]   } else {     set reason "($nick) Bad nickname, please change it and rejoin the channel!!"   }  set mask $who*!*@*  set x "X"   newchanban $chan $mask $botnick $reason $eggbantime  putmsg $x "kick $chan $who $reason"   putkick $chan $who $reason   return 1 }

no tested, try it.

something is wrong
[20:07] Tcl error [pub:nickne]: invalid command name "б═"

Statistics: Posted by Danik — Mon Aug 18, 2008 1:09 pm

need help with a ban script

2008-08-18T12:01:16-04:00

Code:

#set the ban-time. (0 = perm)set eggbantime "60"bind pub o|o !n pub:nickne proc pub:nickne {nick uhost hand chan txt} {   global botnick eggbantime  set txt [split $txt]   set who [lindex $txt 0]   if {[isbotnick $who]} { return }   if {[llength $txt] > 1} {     set reason [join [lrange $txt 1 "end"]]   } else {     set reason "($nick) Bad nickname, please change it and rejoin the channel!!"   }  set mask $who*!*@*  set x "X"   newchanban $chan $mask $botnick $reason $eggbantime  putmsg $x "kick $chan $who $reason"   putkick $chan $who $reason   return 1 }

no tested, try it.

Statistics: Posted by Nor7on — Mon Aug 18, 2008 12:01 pm

need help with a ban script

2008-08-18T10:27:14-04:00

Code:

bind pub o|o !n pub:nickneproc pub:nickne {nick uhost hand chan txt} {  set txt [split $txt]  set who [lindex $txt 0]  if {[isbotnick $who]} { return }  if {[llength $txt] > 1} {    set reason [join [lrange $txt 1 "end"]]  } else {    set reason "($nick) Bad nickname, please change it and rejoin the channel!!"  }  set x "X"  putmsg $x "kick $chan $who $reason"  putkick $chan $who $reason  return 1}

ok this is the problem ... when I type on channel !n ... the eggdrop bans users IP (mask)...

Can someone change this script so the eggdrop won't ban the mask, but just the nickname (ex: nick*!*@* )

Statistics: Posted by Danik — Mon Aug 18, 2008 10:27 am