Need Some Coding Help.

[CoMMy]

Well. Here Is The TCL. Can U help me change This coding i took from xstuff.tcl? (thanks to caesar) Basically i want it Not to remuser a user when it kicks the bot. Just to Ban Him by Undernets X bot. And the i want it to work when chanset is +xprotect. Plus Something Not to ban +fmn users. Thanks u all.

Below Is The Original Source From xstuff.tcl

Code: Select all

bind kick - "*" my:kick
proc kick_xkickprotect {nick uh hand chan vict reas} { 
  if {$nick != "X" || ![channel get $chan xprotect]} { return 0 }
  set kicker [string trim [lindex [split $reas] 0] {()}] 
  if {$vict == $::botnick} {
    putquick "PRIVMSG X :remuser $chan ${kicker}"
  } 
  return
}

This Is to what i changed it.

Code: Select all

bind mode - "* kick"  kick_xkickprotect
proc kick_xkickprotect {nick uh hand chan vict reas} { 
global botnick
  if {$nick != "X" || ![channel get $chan xprotect]} {
  if {$vict == $botnick} {
    putserv "PRIVMSG X :ban $chan $nick NEVER KICK ME ASSHOLE."
  } 
  return
}

Well. Mine doesnt work. Can u help me on this one?
Thanks.

[z_one]

Hi,

The line you used is mIRC scripting code format, I don't think it works in TCL:

Code: Select all

  putserv "PRIVMSG X :ban $chan $nick NEVER KICK ME ASSHOLE." 

Although I am not sure how X works, I have never been on Undernet or any similar network.

[Sir_Fz]

this is how it should be:

Code: Select all

putserv "PRIVMSG X :ban $chan ${kicker} NEVER KICK ME ASSHOLE."

to not apply on +f users, replace:

Code: Select all

if {$nick != "X" || ![channel get $chan xprotect]} { return 0 }

with:

Code: Select all

if {$nick != "X" || ![channel get $chan xprotect] || [matchattr $hand f|f $chan]} {return 0}

[Papillon]

Code: Select all

if {$nick != "X" || ![channel get $chan xprotect]} {

shouldn't this check that the kicker is not X and that the channel has +xprotect?
right now it checks to see if it's not X or it has -xprotect...
change it to

Code: Select all

if {$nick != "X" && [channel get $chan xprotect]} {

and try again

[CoMMy]

Gee. Thanks.

I'll check it out and i'll let you know if it works.

Thanks again.

[CoMMy]

Gee. Thanks.

I'll check it out and i'll let you know if it works.

Thanks again.

[CoMMy]

Well It doesnt work.
this is what it became.
but again it doesnt work.

Code: Select all

bind mode - "* kick"  kick_xkickprotect
global botnick
  if {$nick != "X" && ![channel get $chan xprotect] && [matchattr $hand f|f $chan]} {return 0} {
  if {$vict == $botnick} {
    putserv "PRIVMSG X :ban $chan $nick NEVER KICK ME ASSHOLE." 
  return 1 }}}

Help pls.
I beleive the prob is with the $vict variable.

[Papillon]

no, you changed some of the if-check puts forgot to change

Code: Select all

$nick != "X"

aslo you can change

Code: Select all

if {$vict == $botnick} {

to

Code: Select all

if {[string equal -nocase $vict $botnick]} {

also... you have

Code: Select all

setudef flag xprotect

in your code don't you?

[CoMMy]

Yes I do Have The sutupdef flag.
When Someone Kicks The Bot Noting Happens.
And The Channel Is set to +xprotect.

This is weird.
Suggestions?

[Papillon]

hmmm sorry I didn't make myself 110% clear
I said you forgot to change

Code: Select all

$nick != "X"

I kida thought you would figure out to what

Code: Select all

$nick == "X"

is the right one

[CoMMy]

Oh my god i must be so blind.

Thanks man.
I'll check it out.
Hope it works.

[CoMMy]

It wasnt the coding after all.
It was the BIND.

Code: Select all

bind mode - "* kick" pub...

it should be.

Code: Select all

bind kick "*" pub....

Thanks anyway.[/code]

[CoMMy]

It wasnt the coding after all.
It was the BIND.

Code: Select all

bind mode - "* kick" pub...

it should be.

Code: Select all

bind kick "*" pub....

Thanks anyway.

[TsT]

you can change

Code: Select all

if {$vict == $botnick} {

to

Code: Select all

if {[string equal -nocase $vict $botnick]} {

You can also change to

Code: Select all

if {[isbotnick $vict]} {

and remove the

Code: Select all

global botnick