| View previous topic :: View next topic |
| Author |
Message |
geek
Voice
Joined: 24 Oct 2008
Posts: 13
|
 Posted: Mon Dec 28, 2020 6:40 am Post subject: netbots |
 |
|
I find that netbots are still the best well written tcl.. but last release was for egg1.6
are netbots still working in new eggdrops 1.8.4?
or are there some compatibility errors and security issue? |
|
| Back to top |
|
 |
CrazyCat
Owner
Joined: 13 Jan 2002
Posts: 673
Location: France
|
| Posted: Mon Dec 28, 2020 11:39 am Post subject: |
|
|
If you're speaking about netbots1.16 from slennox, it's normally still working with eggdrop1.8, and I don't remember any security issue about it.
I use bnusers from cmouse, but it doesn't do exactly the same things
_________________
https://www.eggdrop.fr - French speaking IRC network
Offer me a coffee |
|
| Back to top |
|
|
geek
Voice
Joined: 24 Oct 2008
Posts: 13
|
| Posted: Mon Dec 28, 2020 1:10 pm Post subject: |
|
|
thanks CrazyCat
complete netbots.tcl v4.10 of 8/8/2005 from slennox
but yes, I try it in my bots and they seem to work still good
my only doubt is about ipv6... |
|
| Back to top |
|
|
CrazyCat
Owner
Joined: 13 Jan 2002
Posts: 673
Location: France
|
|
| Back to top |
|
|
ComputerTech
Master
Joined: 22 Feb 2020
Posts: 233
|
| Posted: Tue Dec 29, 2020 2:21 am Post subject: |
|
|
A friend of mine created a Botnet script, and best part is that its VERY easy to add more commands, i'll find it in my Database tomorrow, if you want to give it a go 
Probably not as good as slennox's script, But it's a good way to learn/pratice Tcl 
_________________
ComputerTech |
|
| Back to top |
|
|
geek
Voice
Joined: 24 Oct 2008
Posts: 13
|
| Posted: Wed Dec 30, 2020 9:33 am Post subject: |
|
|
| ok, very thanks |
|
| Back to top |
|
|
ComputerTech
Master
Joined: 22 Feb 2020
Posts: 233
|
| Posted: Mon Jan 04, 2021 1:52 pm Post subject: |
|
|
Sorry for the late response (been busy with new years) here is the code.
| Code: |
#Creator Spyda,
#made for ComputerTech
bind PUB B .join bn:pub:join
proc bn:pub:join {nick uhost hand chan args} {
global botnick
set c 0
if {[llength [join $args]] > 0} {
if {![string match -nocase [lindex [join $args] 0] $botnick]} {
return
}
if {[llength [join $args]] > 1} {
incr c
}
}
if {$c} {
putquick "PRIVMSG $chan :\[ok, channel add $botnick joining [lindex [join $args] 1]\]"
channel add [lindex [join $args] 1]
}
}
bind PUB B .part bn:pub:part
proc bn:pub:part {nick uhost hand chan args} {
global botnick
set c 0
if {[llength [join $args]] > 0} {
if {![string match -nocase [lindex [join $args] 0] $botnick]} {
return
}
if {[llength [join $args]] > 1} {
incr c
}
}
if {$c} {
putquick "PRIVMSG $chan :\[ok, channel removed $botnick parting [lindex [join $args] 1]\]"
channel remove [lindex [join $args] 1]
}
}
bind PUB B .jump bn:pub:jump
proc bn:pub:jump {nick uhost hand chan args} {
global botnick
set c 0
if {[llength [join $args]] > 0} {
if {![string match -nocase [lindex [join $args] 0] $botnick]} {
return
}
if {[llength [join $args]] > 1} {
incr c
}
}
if {$c} {
putquick "PRIVMSG $chan :\[ok, jumping $botnick to [lindex [join $args] 1]:[lindex [join $args] 2]\]"
jump [lindex [join $args] 1] [lindex [join $args] 2]
} else {
putquick "PRIVMSG $chan :\[ok, jumping $botnick to default\]"
jump
}
}
bind pub B .restart do:restart
proc do:restart {nick uhost hand chan args} {
global botnick
set c 0
if {[llength [join $args]] > 0} {
if {![string match -nocase [lindex [join $args] 0] $botnick]} {
return
}
if {[llength [join $args]] > 1} {
incr c
}
}
putquick "PRIVMSG $chan :Restart Requested By $nick Restarting...)"
restart
}
bind pub B .rehash do:rehash
proc do:rehash {nick uhost hand chan args} {
global botnick
set c 0
if {[llength [join $args]] > 0} {
if {![string match -nocase [lindex [join $args] 0] $botnick]} {
return
}
if {[llength [join $args]] > 1} {
incr c
}
}
putquick "PRIVMSG $chan :Rehash Requested By $nick Rehashing...)"
rehash
}
bind pub B .die do:die
proc do:die {nick uhost hand chan args} {
global botnick
set c 0
if {[llength [join $args]] > 0} {
if {![string match -nocase [lindex [join $args] 0] $botnick]} {
return
}
if {[llength [join $args]] > 1} {
incr c
}
}
putquick "PRIVMSG $chan :Shutdown Requested By $nick Shutting Down...)"
die
}
bind pub B .say do:say
proc do:say {nick uhost hand chan args} {
global botnick
set c 0
if {[llength [join $args]] > 0} {
if {![string match -nocase [lindex [join $args] 0] $botnick]} {
return
}
if {[llength [join $args]] > 1} {
incr c
}
}
set msg [lrange [lindex $text 0] 1 end]
putserv "privmsg $chan :$msg"
}
|
as you can see how it is made
_________________
ComputerTech |
|
| Back to top |
|
|
CrazyCat
Owner
Joined: 13 Jan 2002
Posts: 673
Location: France
|
|
| Back to top |
|
|
ComputerTech
Master
Joined: 22 Feb 2020
Posts: 233
|
| Posted: Tue Jan 05, 2021 8:59 pm Post subject: |
|
|
Correct CrazyCat, but it does control any bots on that Botnet, so better using partyline commands than not but as i said, it's not as good as slennox's script, but it is much easier to add any command you wish to it 
_________________
ComputerTech |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
