egghelp/eggheads community

Help me with editing this (Part 2 :))

2003-02-22T05:33:24-04:00

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

Statistics: Posted by caesar — Sat Feb 22, 2003 5:33 am

Help me with editing this (Part 2 :))

2003-02-22T05:13:39-04:00

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:)))

Statistics: Posted by Insectora — Sat Feb 22, 2003 5:13 am

Help me with editing this (Part 2 :))

2003-02-21T17:26:03-04:00

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

replace

Code:

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

with

Code:

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

And should work fine. Damn 'tolower'

Statistics: Posted by caesar — Fri Feb 21, 2003 5:26 pm

hihi

2003-02-21T15:40:48-04:00

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

Statistics: Posted by De Kus — Fri Feb 21, 2003 3:40 pm

Help me with editing this (Part 2 :))

2003-02-21T15:27:36-04:00

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:)))))))))))))))))

Statistics: Posted by Insectora — Fri Feb 21, 2003 3:27 pm

Help me with editing this (Part 2 :))

2003-02-21T11:24:17-04:00

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

replace:

Code:

  set chan [tolower [lindex $text 0]]

with:

Code:

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

My appologies..

Statistics: Posted by caesar — Fri Feb 21, 2003 11:24 am

Help me with editing this (Part 2 :))

2003-02-21T09:23:24-04:00

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??:))))))

Statistics: Posted by Insectora — Fri Feb 21, 2003 9:23 am

Help me with editing this (Part 2 :))

2003-02-21T09:17:49-04:00

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??

Statistics: Posted by Insectora — Fri Feb 21, 2003 9:17 am

only because i am curious

2003-02-21T09:14:47-04:00

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

putdcc $idx "TaKeOvEr 1.0 by SaVeR"

Statistics: Posted by De Kus — Fri Feb 21, 2003 9:14 am

Help me with editing this (Part 2 :))

2003-02-21T06:48:25-04:00

should be [string tolower .....

Statistics: Posted by Papillon — Fri Feb 21, 2003 6:48 am

Help me with editing this (Part 2 :))

2003-02-21T06:20:10-04:00

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"

Statistics: Posted by Insectora — Fri Feb 21, 2003 6:20 am

Help me with editing this (Part 2 :))

2003-02-21T06:03:25-04:00

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

Code:

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..

Statistics: Posted by caesar — Fri Feb 21, 2003 6:03 am

Help me with editing this (Part 2 :))

2003-02-21T05:50:56-04:00

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:

set chan [string tolower [lindex $text 0]]foreach who $members {   if {[validuser [nick2hand $who $chan]]} { continue }  .. rest of the code ..}

Statistics: Posted by caesar — Fri Feb 21, 2003 5:50 am

Help me with editing this (Part 2 :))

2003-02-21T05:33:33-04:00

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 ))

Statistics: Posted by Insectora — Fri Feb 21, 2003 5:33 am