netbots

[geek]

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?

[CrazyCat]

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

[geek]

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

[CrazyCat]

netbots use... botnet, so it doesn't care about ipv4 or ipv6, it only cares about your botnet
I'll have a check on this plugin but I don't think you'll have any trouble with it.

[ComputerTech]

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

[geek]

ok, very thanks

[ComputerTech]

Sorry for the late response (been busy with new years) here is the code.

Code: Select all

#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

[CrazyCat]

This is not a botnet script but a way to use party-line commands in public channel.

[ComputerTech]

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