Protection Bot Request Script With Clonescanner

[r0t3n]

Hello, i need a request script like sicherheit and chanbot, where a random bot joins, it scans the channel for clones and other stuff. Also if anyone could make a vip script i will be really happy. Also, need some op/deop/ban/unban/topic/mode protection. I made some basic ones, but need better ones. In a little of a hurry for these. Please help, thanks!!

[Alchera]

You'll find what you need in the TCL Archive. Try searching it.

[^DooM^]

Hello, i need a request script like sicherheit and chanbot, where a random bot joins, it scans the channel for clones and other stuff. Also if anyone could make a vip script i will be really happy. Also, need some op/deop/ban/unban/topic/mode protection. I made some basic ones, but need better ones. In a little of a hurry for these. Please help, thanks!!

In a little hurry for these? Who do you think we are? It seems you are living upto your name. As Alchera said, Get off your arse and try searching for what you need. Also read the f&*king rules before posting.

[awyeah]

Heres one for drone/random nicks and bots:
http://www.egghelp.org/cgi-bin/tcl_arch ... ad&id=1152

* Everything is there infront of you, still you choose not to look for it.

[Sir_Fz]

Tosser^^, you can try out allfloodprotection2.1b.tar.gz which pretty much has all kind of protection including the ones you requested (except topic/op/unban, and I'm not sure if the last 2 are necessary though I may add the topic protection if you wish).

[r0t3n]

Ok, i just made this little script, dont know if it will work, can someone check it and say if its wrong or if it will work.

bind mode - "+o *" op:protection
bind mode - "-o *" deop:protection

proc op:protection {nick host handle chan mode}
global botnick
{ if ([matchattr $handle n|n $chan] == 0) || ([matchattr $handle m|m $chan] == 0) || ([matchattr $handle o|o $chan] == 0) || ([matchattr $handle f|f $chan] == 0) {
ban [maskhost *[getchanhost $nick $chan]] $chan %0d0h0m You Are Not Allowed To OP In $chan, Protected By #ShoVe
putquick "MODE $chan -oo+b $nick $opnick [maskhost *[getchanhost $nick $chan]]
putquick "KICK $chan $nick :You Are Not Allowed To OP In $chan, Protected By #ShoVe"
putlog "$nick was kicked by $::botnick from $chan For OP'ing in $chan"
}

proc deop:protection {nick host handle chan mode}
global botnick
{ if ([matchattr $handle n|n $chan] == 0) || ([matchattr $handle m|m $chan] == 0) || ([matchattr $handle o|o $chan] == 0) || ([matchattr $handle f|f $chan] == 0) {
ban [maskhost *[getchanhost $nick $chan]] $chan %0d0h0m You Are Not Allowed To DEOP In $chan, Protected By #ShoVe
putquick "MODE $chan -o+ob $nick $opnick [maskhost *[getchanhost $nick $chan]]
putquick "KICK $chan $nick :You Are Not Allowed To DEOP In $chan, Protected By #ShoVe"
putlog "$nick was kicked by $::botnick from $chan For DEOP'ing in $chan"
}

I dont know if this will work, im only started learning tcl for about 2 weeks now, so plese tell if it works or not, and how to fix it if possible, Thanks!!

[Sir_Fz]

You try was pretty good but it has a lot of syntax errors. Try this:

Code: Select all

bind mode - "* +o" op:protection 
bind mode - "* -o" deop:protection 

proc op:protection {nick uhost handle chan mode opnick} {
 if {![matchattr $handle n|n $chan] || ![matchattr $handle m|m $chan] || ![matchattr $handle o|o $chan] || ![matchattr $handle f|f $chan]} { 
  set ban [maskhost $uhost]
  putquick "MODE $chan -oo+b $nick $opnick $ban" 
  putquick "KICK $chan $nick :You Are Not Allowed To OP In $chan, Protected By #ShoVe" 
  putlog "$nick was kicked by $::botnick from $chan For OP'ing in $chan" 
 } 
}

proc deop:protection {nick uhost handle chan mode opnick} {
 if {![matchattr $handle n|n $chan] || ![matchattr $handle m|m $chan] || ![matchattr $handle o|o $chan] ![matchattr $handle f|f $chan]} { 
  set ban [maskhost $uhost]
  putquick "MODE $chan -o+ob $nick $opnick $ban"
  putquick "KICK $chan $nick :You Are Not Allowed To DEOP In $chan, Protected By #ShoVe" 
  putlog "$nick was kicked by $::botnick from $chan For DEOP'ing in $chan" 
 }
}

Note, if you want to use the bot's internal banlist then use

Code: Select all

newchanban <chan> <ban> <creator> "<reason>" [bantime] [options]

bantime and options are optional. Read tcl-commands.doc

[r0t3n]

Thanks for that Sir_Fz

Do you know how to make a $userlist and/or a $banlist and maybe a $unban using host or number to unban someone. also maybe a $clear.

Thanks again!!

[Sir_Fz]

Thanks for that Sir_Fz

Do you know how to make a $userlist and/or a $banlist and maybe a $unban using host or number to unban someone. also maybe a $clear.

Thanks again!!

You're welcome. Can you be more clear about the $banlist thing ?

[r0t3n]

Well, when people on the channel type $banlist, like ops and that lot, a list of bans added to the internal banlist for the channel it displayed in the format:

Host: *!*@host
Added By: creator
Reason: reason here
Ban Time: Time

etc and for a $userlist if possible, the format

Handle Flags

Also, i just checked out your op protection script, sweet, and modified it for ban and unban, and made a topic protection, donno if it will work, could you check:

proc topic:protection {nick uhost handle chan topic} {
if {![matchattr $handle n|n $chan] || ![matchattr $handle m|m $chan] || ![matchattr $handle o|o $chan] ![matchattr $handle f|f $chan]} {
set ban [maskhost $uhost]
putquick "MODE $chan -o+b $nick $ban"
putquick "KICK $chan $nick :You Are Not Allowed To CHANGE THE TOPIC In $chan, Protected By #ShoVe"
putquick "TOPIC $chan $topic"
putlog "$nick was kicked by $::botnick from $chan For CHANGING THE TOPIC in $chan"
}
}

Thanks dude, your the most helpful here i must say, Thanks again!!

[r0t3n]

Hmm, do you think i will need a userlist and banlist, and can you check that topic protection script?

[r0t3n]

Sir_Fz, that op and deop protection seems to have some errors. First, when i op the bot, it deops me and myself, when my mate de-oped me who wasn't added to the bot at all, didnt get deop, and the bot didnt re-op me and ban my mate. Can someone please sort this out, Thanks.

The script is:

proc op:protection {nick uhost handle chan mode opnick} {
if {![matchattr $handle n|n $chan] || ![matchattr $handle m|m $chan] || ![matchattr $handle o|o $chan] || ![matchattr $handle f|f $chan]} {
set ban [maskhost $uhost]
putquick "MODE $chan -oo+b $nick $opnick $ban"
putquick "KICK $chan $nick :You Are Not Allowed To OP In $chan, Protected By #ShoVe"
putlog "$nick was kicked by $::botnick from $chan For OP'ing in $chan"
}
}

[Sir_Fz]

There's a logical error in the script. Replace:

Code: Select all

if {![matchattr $handle n|n $chan] || ![matchattr $handle m|m $chan] || ![matchattr $handle o|o $chan] || ![matchattr $handle f|f $chan]} {

with

Code: Select all

if {![matchattr $handle n|n $chan] && ![matchattr $handle m|m $chan] && ![matchattr $handle o|o $chan] && ![matchattr $handle f|f $chan]} {

and it should work fine.

As for the topic script, looks fine only change the above line and add

Code: Select all

bind topc - * topic:protection

for banlist, try

Code: Select all

bind pub - {$banlist} list:bans

proc list:bans {nick uhost hand chan arg} {
 foreach ban [banlist $chan] {
  puthelp "NOTICE $nick :Host: [lindex $ban 0]"
  puthelp "NOTICE $nick :Added By: [lindex $ban end]"
  puthelp "NOTICE $nick :Reason: [lindex $ban 1]"
  puthelp "NOTICE $nick :Ban Time: [expr {([lindex $ban 2] - [unixtime])/60.0)} minutes"
 }
}

As for userlist, similar but use [users] instead of [banlist $chan]

NOTE: [users] returns the names of the handles in the userfile (only, without any other extra info)

[r0t3n]

Thanks mate, your the best. your the man. Protection bots are on their way. im uploading all the scripts to the shell now. Thanks again dude!!

[r0t3n]

Also, with the new

if {![matchattr $handle n|n $chan] && ![matchattr $handle m|m $chan] && ![matchattr $handle o|o $chan] && ![matchattr $handle f|f $chan]} {

would i need to add a ![isbotnick $nick] ?