egghelp/eggheads community

Less stuck....

2004-12-06T07:00:28-04:00

Again, thanks to all three of you!!!!!!

It still gets hung up for me on my bot. At least no bot crashes and it sends the idx message. But it keeps doing that for whatever I enter. I know I set it exactly as you coded it.

But MOST IMPORTANT.... I learned a lot from you guys and actually applied some to another tcl and that one WERKS! So, from here on, I need to play with this and add the missing (maybe bot version specific, maybe something else) ingredient that will get me past that stuck place. And, I will. I'll keep you posted in a few days.

Thank you for your precious skill and mostly, your patience with me. And thanks for taking the time to code it and even test it. You guys are totally, the nicest I've found on many forums.

Statistics: Posted by Shoshana — Mon Dec 06, 2004 7:00 am

Less stuck....

2004-12-06T06:58:59-04:00

Statistics: Posted by Shoshana — Mon Dec 06, 2004 6:58 am

DCC ban proc need help...desperate newbie

2004-12-06T02:56:01-04:00

Again, thank you demond. After reading a few times, almost 75% makes sense to me now and that is a big help no matter what. I did try it and it doesn't get past usage: .

No matter what I enter after the command, I get the idx message. It gets stuck there.

it works on my bot as intended

Statistics: Posted by demond — Mon Dec 06, 2004 2:56 am

DCC ban proc need help...desperate newbie

2004-12-06T02:39:28-04:00

Code:

bind dcc o|o tempban temp_ban proc temp_ban {hand idx text} {   set chan [lindex [split $text] 0]   set victim [lindex [split $text] 1]   set reason [join [lrange [split $text] 2 end]]   if {$victim == "" || $reason == ""} {     putdcc $idx "usage: .$::lastbind  "     return   }   if {![botonchan $chan] || ![botisop $chan]} return   if ![matchattr $hand o|o $chan] return  ;#not +o for that channel   if ![string match *!*@* $victim] {         ;# nick specified     if ![onchan $victim $chan] return        ;# not on channel, nothing to do     append victim ![getchanhost $victim]  ;# construct the hostmask   }   if ![matchattr [finduser $victim] of|of $chan] {  ;# victim not +o or +f     newchanban $chan [maskhost $victim] script $reason     foreach nick [chanlist $chan -of&-of] {       if [string match $victim $nick![getchanhost $nick]] {         append kicklist $nick ,       }     }     if [info exists kicklist] {       putkick $chan $kicklist $reason     }     return 1   } }

I just edited the variable but it should work like

.tempban

Statistics: Posted by metroid — Mon Dec 06, 2004 2:39 am

DCC ban proc need help...desperate newbie

2004-12-06T00:22:16-04:00

Again, thank you demond. After reading a few times, almost 75% makes sense to me now and that is a big help no matter what. I did try it and it doesn't get past usage: .

No matter what I enter after the command, I get the idx message. It gets stuck there.

Statistics: Posted by Shoshana — Mon Dec 06, 2004 12:22 am

DCC ban proc need help...desperate newbie

2004-12-05T22:32:52-04:00

well, here you go:

Code:

bind dcc o|o tempban temp_banproc temp_ban {hand idx text} {  set chan [lindex [console $idx] 0]  set victim [lindex [split $text] 0]   set reason [join [lrange [split $text] 1 end]]   if {$victim == "" || $reason == ""} {    putdcc $idx "usage: .$::lastbind  "    return  }  if {![botonchan $chan] || ![botisop $chan]} return  if ![matchattr $hand o|o $chan] return  ;#not +o for that channel  if ![string match *!*@* $victim] {         ;# nick specified    if ![onchan $victim $chan] return        ;# not on channel, nothing to do     append victim ![getchanhost $victim]  ;# construct the hostmask  }   if ![matchattr [finduser $victim] of|of $chan] {  ;# victim not +o or +f    newchanban $chan [maskhost $victim] script $reason    foreach nick [chanlist $chan -of&-of] {      if [string match $victim $nick![getchanhost $nick]] {        append kicklist $nick ,      }     }    if [info exists kicklist] {      putkick $chan $kicklist $reason    }    return 1  } }

Statistics: Posted by demond — Sun Dec 05, 2004 10:32 pm

its starting to make sense

2004-12-05T21:56:50-04:00

What you showed is starting to make sense to me but after

if ![matchattr [finduser $victim] of|of] }

whatever I put after to make the ban,

if ![matchattr [finduser $victim] of|of] } {
newban $victim $hand "Banned: $reason" $tempbantime
return 1
}
}

I get "Tcl error [temp_ban]: invalid command name "temp_ban"" now. So, I am still not understanding or doing it right, am I?

Also, do I need to set the mask to be banned? I really appreciate this help, sincerely. I think if I see the whole thing, I will understand the parts as a whole better.

Statistics: Posted by Shoshana — Sun Dec 05, 2004 9:56 pm

DCC ban proc need help...desperate newbie

2004-12-05T19:55:25-04:00

in my example, $user is the IRC username

in your case, you need to check whether the argument supplied is nick or hostmask and if it's a nick, to append its corresponding channel user@host, using [getchanhost]:

Code:

proc tempban {hand idx text} {   set victim [lindex [split $text] 0]   set reason [join [lrange [split $text] 1 end]]   if ![string match *!*@* $victim] {    if ![onchan $victim] return ;# not on channel, nothing to do    append victim ![getchanhost $victim]  }  if ![matchattr [finduser $victim] of|of] {  # not an op or friend, proceed with ban...  }}

Statistics: Posted by demond — Sun Dec 05, 2004 7:55 pm

DCC ban proc need help...desperate newbie

2004-12-05T18:54:35-04:00

Ok, right.

Now, when I added the variable 'user'

if [matchattr [finduser $nick!$user@$host] of|of $chan] {

to my proc, I got "can't read "user": no such variable".

How do I add the $user variable and define its value in my proc?

Statistics: Posted by Shoshana — Sun Dec 05, 2004 6:54 pm

DCC ban proc need help...desperate newbie

2004-12-05T18:42:14-04:00

How would this check the victim's mask for Op flags?

In the Command Console type ".help whois" and you'll get a full list of all flags used by the bot and also see that o is the Op flag.

Statistics: Posted by Alchera — Sun Dec 05, 2004 6:42 pm

DCC ban proc need help...desperate newbie

2004-12-05T17:07:50-04:00

Thank you for answering. Maybe there is a basic something I don't understand about all of this.

if [matchattr [finduser $nick!$user@$host] of|of $chan] {

How would this check the victim's mask for Op flags?

Something else I need to learn. Whenever I use any other variable than what I originally posted, I get "no value given for parameter". I put the variable, lets say, 'user' with the other variables, { handle idx victim user } and I thought that $user is the value. I guess not? So, how do I add variables and 'define' their value. This seems to be different with DCC procs.

I have read so many docs and sites and nothing helps me understand this.
Thanks again.

Statistics: Posted by Shoshana — Sun Dec 05, 2004 5:07 pm

DCC ban proc need help...desperate newbie

2004-12-05T09:44:22-04:00

also, use this to split nick|mask from the reason:

Code:

proc tempban {hand idx text} {  set victim [lindex [split $text] 0]  set reason [join [lrange [split $text] 1 end]]  ...

Statistics: Posted by demond — Sun Dec 05, 2004 9:44 am

DCC ban proc need help...desperate newbie

2004-12-05T09:34:55-04:00

you check given hostmask against the userlist using [finduser], for example:

Code:

if [matchattr [finduser $nick!$user@$host] of|of $chan] {# there is a user with that hostmask who is global/channel op or friend} else {# no match}

use [maskhost] to get the ban in the form you want:

Code:

newchanban $chan [maskhost $nick!$user@$host] $creator $reason

Statistics: Posted by demond — Sun Dec 05, 2004 9:34 am

DCC ban proc need help...desperate newbie

2004-12-05T06:21:09-04:00

Why do all newbies say this, "I am a newbie"? Well, I am. I have the following proc.

When I do .tempban it works and will not ban ops/op'd bots.
When I do .tempban or any part, it bans Ops which I don't want it to do.
I can see it needs to check the victim mask against flags but I don't know how to do it.
I have read almost every related post on this site. I've also looked at some 10-20 other scripts for clues, tried this and that and every time I change something, I get that there is no value for a variable, or no variable, no command or whatever. Seached most if not all of the other eggdrop/tcl sites and I am just plain stuck. I don't know enough.

The other thing is that I would prefer it bans *!*ident@*.host something like that.

set tempbantime 10
bind dcc V|V tempban temp_ban

### .TEMPBAN [reason]

proc temp_ban { handle idx victim } {
global tempbantime
set channel [lindex [console $idx] 0]
set victim "$victim "
if {[matchattr [strlwr $victim] o|o $channel]} {
putdcc $idx "\002You cannot ban Ops or Bots!\002"
return 0
}
set mask "[string range $victim 0 [expr [string first " " $victim] -1]]"
set reason "[string trimleft $victim $mask]"
if { $mask == "" } {
putdcc $idx ".tempban - bans a users for $tempbantime minutes"
putdcc $idx "How to use it: .tempban "
return 0
}
newban $mask "$reason" $tempbantime
}

The bot is 1.6.4 on Dalnet. Any and all help would be appreciated so much, I couldn' tell you in words. I am exhausted after 4 days of trying to make this work.

Statistics: Posted by Shoshana — Sun Dec 05, 2004 6:21 am