egghelp/eggheads community

Modify TCL code for my need (other chan cmd)

2008-05-24T13:47:12-04:00

Looks like you are missing the "charfilter" proc, and I somehow doubt that it returns a list, in which case, you are still improperly using list commands on a string.

Statistics: Posted by strikelight — Sat May 24, 2008 1:47 pm

Modify TCL code for my need (other chan cmd)

2008-05-24T06:10:55-04:00

The issue solved, the code posted by me was succesfuly modified!

Statistics: Posted by eXtremer — Sat May 24, 2008 6:10 am

Modify TCL code for my need (other chan cmd)

2008-05-23T12:24:18-04:00

You should be splitting $text (clearly a string variable) when combining it with list commands (lindex/lrange). The consequence of forgetting this is that curly bracings and other special characters will crash your script whenever used as part of $text. To turn strings into lists use split, to turn lists into strings use join. To forget to do either will only work on predetermined things, user input into $text is anything but predetermined...

Statistics: Posted by speechles — Fri May 23, 2008 12:24 pm

Modify TCL code for my need (other chan cmd)

2008-05-22T11:15:13-04:00

sorry.

change

Code:

[putserv "KICK $chan $tnick :Ban: $reason"]

for

Code:

putserv "KICK $chan $tnick :Ban: $reason"

Statistics: Posted by Nor7on — Thu May 22, 2008 11:15 am

Modify TCL code for my need (other chan cmd)

2008-05-22T10:50:13-04:00

Code:

#set the ban time in minutes. (0 = permban)set bantime "60"bind pub o .b pub:banproc pub:ban {nick uhost hand chan text} {  global bantime  if {[botisop $chan]} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[onchan $tnick $chan]} {        if {[string length [lindex $text 1]] == 0} { set reason banned } else { set reason [lrange $text 1 end] }        newchanban $chan *!*@[lindex [split [getchanhost $tnick $chan] @] 1] $nick $reason $bantime        [putserv "KICK $chan $tnick :Ban: $reason"]      } else { puthelp "notice $nick :no such nick on channel!" }    } else { puthelp "NOTICE $nick :usage !kb  reason - kicks and bans a nick" }  } else { puthelp "NOTICE $nick :algo falla" }}

Statistics: Posted by Nor7on — Thu May 22, 2008 10:50 am

Modify TCL code for my need (other chan cmd)

2008-05-22T10:30:24-04:00

I've modified a little bit the code it bans with !dr command and has a predifined reason, but I don't know where to set the ban time, I need it to be permident !
Help...

Statistics: Posted by eXtremer — Thu May 22, 2008 10:30 am

Modify TCL code for my need (other chan cmd)

2008-05-22T07:24:13-04:00

look here:

http://forum.egghelp.org/viewtopic.php? ... ght=#81077

k, 10x!

Statistics: Posted by eXtremer — Thu May 22, 2008 7:24 am

Modify TCL code for my need (other chan cmd)

2008-05-22T07:17:06-04:00

look here:

http://forum.egghelp.org/viewtopic.php? ... ght=#81077

Statistics: Posted by Nor7on — Thu May 22, 2008 7:17 am

Re: Search

2008-05-22T07:04:47-04:00

Search in the forum

Search what ?

Statistics: Posted by eXtremer — Thu May 22, 2008 7:04 am

Search

2008-05-22T05:57:42-04:00

Search in the forum

Statistics: Posted by Nor7on — Thu May 22, 2008 5:57 am

Modify TCL code for my need (other chan cmd)

2008-05-22T03:29:09-04:00

this aint your script

I know, I didn't said that this is mine, is taken from LoL's TooLz !

Statistics: Posted by eXtremer — Thu May 22, 2008 3:29 am

Modify TCL code for my need (other chan cmd)

2008-05-22T00:57:02-04:00

this aint your script

Statistics: Posted by edu — Thu May 22, 2008 12:57 am

Modify TCL code for my need (other chan cmd)

2008-05-19T23:44:30-04:00

You have made attempts to contact the original author?

If not, please do so.

Statistics: Posted by Alchera — Mon May 19, 2008 11:44 pm

Modify TCL code for my need (other chan cmd)

2008-05-19T05:29:23-04:00

This code bans somone with the !ban command:

!ban Nick test
*** Bot sets mode: +b *!*@host.com
*** Nick was kicked by Bot (test, by Me)

Code:

bind pub o|o [string trim $lol(cmdchar)]ban pub_lol_banbind pub o|o +b pub_lol_ban### !BAN  [time] [reason]proc pub_lol_ban {nick host hand chan arg} {set arg [charfilter $arg]global lol botnickif {![check $hand $nick $host]} {if {$lol(silent) == 1 || [checksilent $hand]} {return 0}            puthelp "NOTICE $nick :You need to be identified to use this function. Type .identhelp in the partyline for more info. : \002/msg $botnick id \002 or \002/msg $botnick silent \002 to no more receive this warning."return 0}if {[llength $arg] < 1} {puthelp "NOTICE $nick :\002Usage:\002 [string trim $lol(cmdchar)]ban  \[time\] \[reason\]"return 0}set who [lindex $arg 0]if {[strlwr $who] == [strlwr $botnick]} {puthelp "NOTICE $nick :Yeah right, like I'm going to let you ban ME!"return 0}set ti [lindex $arg 1]if {[isnumber $ti]} {set reason [lrange $arg, 2 end]} {set ti ""set reason [lrange $arg, 1 end]}if {$reason == ""} { set reason "Requested," }if {[onchan $who $chan]} {if { $lol(bantype) == 0 } { set ipmask [lindex [split [maskhost $who![getchanhost $who $chan]] "@"] 1]set usermask [lindex [split [getchanhost $who $chan] "@"] 0]set banmask *!*$usermask@$ipmask} else { set banmask [getchanhost $who $chan]           set banmask "*!*[string range $banmask [string first @ $banmask] e]" }} else {  set banmask [lindex $arg 0]if {[string first "!" $banmask] == -1 && [string first "@" $banmask] == -1} {if {[isnumber [string index $banmask 0]]} { set banmask *!*@$banmask } else { set banmask $banmask*!*@* }}if {[string first "!" $banmask] == -1} { set banmask *!*$banmask }if {[string first "@" $banmask] == -1} { set banmask $banmask*@* }}   if {![botisop $chan]} { return 0 }putserv "MODE $chan +b $banmask"  foreach chanuser [chanlist $chan] {      if {[string match [strlwr $banmask] [strlwr "$chanuser![getchanhost $chanuser $chan]"]] && $chanuser != $botnick } { if {[nick2hand $chanuser $chan] != "*"} {if {$hand != [nick2hand $chanuser $chan]} {if {[matchattr [nick2hand $chanuser $chan] o|o $chan] && ![matchattr $hand o|o $chan]} {                              puthelp "NOTICE $nick :Sorry, you must be an operator to ban an operator."return 0}if {([matchattr [nick2hand $chanuser $chan] m|m $chan] || [matchattr [nick2hand $who $chan] b]) && ![matchattr $hand m|m $chan]} {                              puthelp "NOTICE $nick :Sorry, you must be a master to ban a master or a bot."return 0}}}       putkick $chan $chanuser [join [lappend reason "by $nick"]]}       } switch $ti {""{newchanban $chan $banmask $nick [join [lappend reason "by $nick"]]puthelp "NOTICE $nick :New mask added : $banmask"}0{newchanban $chan $banmask $nick [join [lappend reason "by $nick"]] $tiputhelp "NOTICE $nick :New mask added permanently : $banmask"}default{newchanban $chan $banmask $nick [join [lappend reason "by $nick"]] $tiputhelp "NOTICE $nick :New mask added for $ti minutes : $banmask"}}return 0}

I need the same thing but for the "!dr" command it should have a predifined reason with permident (0) ban.

Example:

!dr Dronenick
*** Bot sets mode: +b *!*@host.net
*** [Banned]: Dronenick
*** Dronenick was kicked by Bot (You are infected join /join #DMSetup for help!, by Me)

This ban should have this reason "You are infected join /join #DMSetup for help!" and ban for ever (permident).

Waiting for replies, thanks in advance.

Statistics: Posted by eXtremer — Mon May 19, 2008 5:29 am