egghelp/eggheads community

Need help writting small protection tcl.

2003-12-19T09:46:56-04:00

Code:

set victimhost [maskhost *$uhost]

this returns *!*ident@xx.xx.xx.*

Statistics: Posted by Sir_Fz — Fri Dec 19, 2003 9:46 am

Need help writting small protection tcl.

2003-12-18T17:01:32-04:00

How would I go about changing the ban mask to *!*ident@*partial host ?

I really appreciate the help I'v got it working and added a bit onto it with other modes and stuff its comong alone well works fine with the current ban mask would just like to change it up a bit.

Statistics: Posted by Gothic-Angel — Thu Dec 18, 2003 5:01 pm

Need help writting small protection tcl.

2003-12-16T15:59:17-04:00

Yup. Forgot to remove it as you've tiped me before Didn't remembered about it.. seesh!

Statistics: Posted by caesar — Tue Dec 16, 2003 3:59 pm

Need help writting small protection tcl.

2003-12-16T14:19:49-04:00

Yes, noticed that myself.. replace the "scan $uhost "%\[^@\]@%s" host " lines with: scan $uhost "%\[^@\]@%s" user host

Or...

Code:

scan $uhost {%*[^@]@%s} host

.. which is what I think you meant initially (you just left that * out)

Statistics: Posted by user — Tue Dec 16, 2003 2:19 pm

Need help writting small protection tcl.

2003-12-16T12:33:48-04:00

Yes, noticed that myself.. replace the "scan $uhost "%\[^@\]@%s" host " lines with: scan $uhost "%\[^@\]@%s" user host

Statistics: Posted by caesar — Tue Dec 16, 2003 12:33 pm

Need help writting small protection tcl.

2003-12-15T20:07:08-04:00

Tcl error [protect:ban]: different numbers of variable names and field specifiers

Is the error I keep getting when directly pasting only your code and running it.

Statistics: Posted by Gothic-Angel — Mon Dec 15, 2003 8:07 pm

Need help writting small protection tcl.

2003-12-15T13:31:56-04:00

try this one..

Code:

bind mode - "* +b" protect:banproc protect:ban {nick uhost hand chan mc ban} {  if {![botisop $chan]} {    return  }  if {[string match -nocase $ban $::botname]} {    if {[matchattr $hand $::theflag]} {      putquick "MODE $chan -b $ban"      return    }    scan $uhost "%\[^@\]@%s" host    putquick "MODE $chan -bo+b $ban $nick *!*@$host"    newchanban $chan *!*@$host Moron "Don't place bans that matches me moron!" 1440    return  }  foreach luser [chanlist $chan $::theflag] {    if {[string match -nocase $ban $luser![getchanhost $luser $chan]]} {      if {[matchattr $hand mn|mn $chan]} {        putquick "MODE $chan -b $ban"        return      }      scan $uhost "%\[^@\]@%s" host      putquick "MODE $chan -bo+b $ban $nick *!*@$host"      newchanban $chan *!*@$host Moron "Don't place bans that matches one of my friends moron!" 1440    }  }}

Statistics: Posted by caesar — Mon Dec 15, 2003 1:31 pm

Need help writting small protection tcl.

2003-12-15T11:30:25-04:00

$Victimhost returns ident@host of the victim, then:

Code:

set Victimbanmask "*!*[string range $uhost [string first "@" $Victimhost] end]"

will not return what you want.
it should be:

Code:

set Victimbanmask "*!*[string range $victimhost [string first "@" $Victimhost] end]"

Code:

set Victimbanmask *!*@[lindex [split $Victimhost @] 1]

and remove the pushmode $chan -b $Victimhost line.

Statistics: Posted by Sir_Fz — Mon Dec 15, 2003 11:30 am

Need help writting small protection tcl.

2003-12-15T08:58:53-04:00

Code:

proc protect:ban {nick uhost hand chan mc vict} {  if {[matchattr [nick2hand $vict $chan] $::theflag $chan]} {   putserv "MODE $chan -o+o $nick $vict"    set Victimhost [getchanhost $vict $chan]     set Victimbanmask "*!*[string range $uhost [string first "@" $Victimhost] end]"   pushmode $chan -b $Victimhost  pushmode $chan -b $Victimbanmask  }}

Give me some guidance heheh

Statistics: Posted by Gothic-Angel — Mon Dec 15, 2003 8:58 am

Need help writting small protection tcl.

2003-12-14T18:54:35-04:00

Well I'v got all that and I'v added in a few other things, now Im stuck on ban protection.

It seems Im having a hard time even getting it to trigger the proc I know that my bind on the mode switch is right yet I can't get my proc to trigger.

Care to give me some idea's on how to write up some basic ban protections?

Statistics: Posted by Gothic-Angel — Sun Dec 14, 2003 6:54 pm

Need help writting small protection tcl.

2003-12-14T15:53:39-04:00

What's the use of "mc" in the proc line for?

check tcl-commands.doc (bind mode)

Statistics: Posted by user — Sun Dec 14, 2003 3:53 pm

Need help writting small protection tcl.

2003-12-14T15:48:36-04:00

What's the use of "mc" in the proc line for?

Statistics: Posted by Gothic-Angel — Sun Dec 14, 2003 3:48 pm

Need help writting small protection tcl.

2003-12-14T15:02:31-04:00

Code:

set theflag "m"bind mode - "* -o" protect:deopproc protect:deop {nick uhost hand chan mc vict} {  if {[matchattr [nick2hand $vict $chan] $::theflag $chan]} {    # here you add your stuff to do when one of my friends just got deoped..  }}

Statistics: Posted by caesar — Sun Dec 14, 2003 3:02 pm

Need help writting small protection tcl.

2003-12-14T08:55:26-04:00

I want to write a tcl to check when someone's deoped if that person matches a certain flag then deop the person who deoped the protected user and reop the protected user.

Im not really sure where to start, I'd just like hints and tips and snippets of code not someone just saying "do it like this"
I like to learn hehe

Thanks for any help...

Statistics: Posted by Gothic-Angel — Sun Dec 14, 2003 8:55 am