Help me with editing this (Part 2 :))

[Insectora]

hehe thank you a lot in editing the previous script )
Now this is my second problem with scripts )
This is a chalenge for you ))

In this scripts When i write .masskick in DCC to kick all chaters in my Chanel, the bot kicks also and Me:( I don't want to kick me with the others chaters ) Help !! to editing the script !!!

Here is the script :

proc dcc_masskick {nick idx arg} {
global botnick
if {$arg== ""} {
putdcc $idx " masskick <#channel> - To MassKick Users"
return 1
}
set members [chanlist $arg]
foreach who $members {
if {![onchansplit $who $arg] && $who != $botnick && $who != $nick} {
putserv "KICK $arg $who :Mass Kick"
}}
}


The second Scripts that make anger
When i write .massdeop in DCC to deop all chaters in my Chanel, the bot deops also and Me:( I don't want to deop me with the others chaters ) Help !! to editing the script !!! Thank you in advance ) I know You are the best programers )))

Here is the second script .

proc dcc_massdeop {nick idx arg} {
global botnick mass
if {$arg== ""} {
putdcc $idx "TaKeOvEr 1.0 by SaVeR"
putdcc $idx " massdeop <#channel> - To MassDEOP Users"
return 1
}
if {$mass==1} {
set deopnicks ""
set massdeopz 0
set members [chanlist $arg]
foreach who $members {
if {[isop $who $arg] && ![onchansplit $who $arg] && $who != $botnick && $who != $nick} {
if {$massdeopz < 4} {
append deopnicks " $who"
set massdeopz [expr $massdeopz + 1]
}
if {$massdeopz == 4} {
set massdeopz 0
putdcc $idx "*** Mode $arg -oooo $deopnicks"
putserv "MODE $arg -oooo $deopnicks"
set deopnicks ""
append deopnicks " $who"
set massdeopz 1
}
}
}
putserv "MODE $arg -oooo $deopnicks"
putdcc $idx "*** Mode $arg -oooo $deopnicks (Last Few)"
putlog "#$nick# massdeop"
}
}

Please after edit the scripts, post them here in the forum the new script, so i copy and paste them in my tcl ))) Thank yo a lot )))
I dont understand to edit and to make tcl, but am learning at the moment ))

[caesar]

First thing first, read the things that we discussed in your prevoius post about that code and do the necesarly changes to this one..

Also:

1. Don't use $arg, use $text.
2. A fix for the foreach thing:

Code: Select all

set chan [string tolower [lindex $text 0]]

foreach who $members { 
  if {[validuser [nick2hand $who $chan]]} { continue }
  .. rest of the code ..
}

[caesar]

I've took the liberty to modify a bit your second code and here is the result:

Code: Select all

proc dcc_masskick {nick idx text} { 
  global botnick 
  if {![llength $text] > 0} {
    putdcc $idx "Usage: .masskick <#channel> - To MassKick Users" 
    return 1
  } 
  set chan [tolower [lindex $text 0]]
  if {![botisop $chan]} {
    putdcc $idx "Sorry, but I'm not oped in $chan channel.." 
    return 1
  }
  set members [chanlist $chan] 
  foreach who $members { 
    if {$who == [tolower $botnick] || [validuser [nick2hand $who $chan]]} { continue }
    putkick $chan $who "Mass Kick" 
  } 
}

proc dcc_massdeop {nick idx text} { 
  global botnick
  if {![llength $text] > 0} {
    putdcc $idx "TaKeOvEr 1.0 by SaVeR" 
    putdcc $idx "Usage: .masskick <#channel> - To MassKick Users" 
    return 1
  } 
  set chan [tolower [lindex $text 0]]
  if {![botisop $chan]} {
    putdcc $idx "Sorry, but I'm not oped in $chan channel.." 
    return 1
  }
  set members [chanlist $chan] 
  foreach who $members { 
    if {$who == [tolower $botnick] || ![isop $who $chan] || [validuser [nick2hand $who $chan]]} { continue }
    pushmode $chan -o $who
    putlog "#$nick# massdeop" 
  } 
}

Hope I haven't forgot something..

[Insectora]

Yes you forgot something ))
The script you posted is not working:)))
You should fix the script:)))
I copy and paste your script but... here is what the bot console wrote :
TCL error [dcc_massdeop]: invalid command name "tolower"

[Papillon]

should be [string tolower .....

[De Kus]

but why the hell do you need a takeover script, like you called it yourself?

putdcc $idx "TaKeOvEr 1.0 by SaVeR"

[Insectora]

Mmm yes the mistake was the "string"
But after i run the new script , it doesnt work well ((
Any other suggestions ?? Any other new scripts??

[Insectora]

De kus
Sorry but this is not a takeover script. I am not going to TO chanels with this bot. I only want kick all users in my channel if there are takeovers and inviters. my chanel is very small , and the other chaters are not going to be angry , because the are my friends:))) thats all
And I only asked for a help to work good this script:))
ok??:))))))

[caesar]

Oups.. .. seems that I've forgot a word

replace:

Code: Select all

  set chan [tolower [lindex $text 0]] 

with:

Code: Select all

  set chan [string tolower [lindex $text 0]]

My appologies..

[Insectora]

Caesar
sorry but your scripts is not good:(
After i raplace the new code, and i wrote .masskick,
the bot first kick itself:((
So please fix the script again:)))))))))))))))))

[De Kus]

he seems to be in love with tolower, just dont tolower the botnick, not neccerary in this case again and making only troubles .

[caesar]

It seems that I'm placing it where is no need of it

replace

Code: Select all

if {$who == [tolower $botnick] || ![isop $who $chan] || [validuser [nick2hand $who $chan]]} { continue } 

with

Code: Select all

if {$who == $botnick || ![isop $who $chan] || [validuser [nick2hand $who $chan]]} { continue } 

And should work fine. Damn 'tolower'

[Insectora]

Thank you a lot caesar !!! Thank you all guys:))
The script now is really good ) You are the best )
you know everything about scripts.And it is good for helping people . I hope Someday i will help people, when i learn the TCl )))
For now i am only training with the scripts:)))

[caesar]

Your welcome. If there is something else you want help on, just ask..