egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-12-26T10:29:36-04:00 https://forum.eggheads.org/app.php/feed/topic/6478 2003-12-26T10:29:36-04:00 2003-12-26T10:29:36-04:00 https://forum.eggheads.org/viewtopic.php?p=31804#p31804 <![CDATA[.boot tcl vs. onwers and vs. permowners]]> Merry Christmas and Happy New Year (in advance) 2 all

I want a tcl with which I can .boot proba .. but not to be able to .boot StelxBG ... where proba is a user added with +n flag .. and StelxBG is perm. owner :)

< .boot proba
> You can't boot a bot owner.

< .boot StelxBG
> You cannot use this command vs. perm. owners

proba +n
StelxBG +n + .set owners "StelxBG"

[c0d3]
unbind dcc - boot *dcc:boot

bind dcc m boot dcc:boot

proc dcc:boot {hand idx arg} {
set arg [split $arg]

if {[llength $arg] != 0} {
set target [lindex [split [lindex $arg 0] @] 0]
if {$target != "" && [ispermowner $target]} {
putidx $idx "You cannot use this command vs perm owners!"
return 1
}
}
*dcc:boot $hand $idx $arg
}

## from alltools.tcl
proc ispermowner {hand} {
global owner

regsub -all -- , [string tolower $owner] "" owners
if {([matchattr $hand n]) && \
([lsearch -exact $owners [string tolower $hand]] != -1)} then {
return 1
}
return 0
}
[c0d3]

Statistics: Posted by Guest — Fri Dec 26, 2003 10:29 am

]]>