egghelp/eggheads community

Make a bot join a channel on public text

2010-02-12T07:59:04-04:00

Never mind..

Statistics: Posted by Froberg — Fri Feb 12, 2010 7:59 am

Make a bot join a channel on public text

2009-10-12T08:32:30-04:00

I have tested my code above and it works fine. I really don't see what the difference is between 'inviting' a bot and sending/receiving a message instructing it to join a particular channel.

If you wish to write your own, I'll leave you to it. However, I suggest you get a text/script editor that is capable of detecting syntax errors such as Komodo Edit (seperate Tcl Linter needs to be installed). There are glaring syntax errors in your code and those are only the ones that can be detected before it is run.

Statistics: Posted by arfer — Mon Oct 12, 2009 8:32 am

Make a bot join a channel on public text

2009-10-12T07:55:07-04:00

See now im getting no error's but no join. and im monitoring both bots.

if it is any eaiser we could try and turn it into an /invite bot

i have some coded already we could never get it going. -

Code:

 ######################################################################## Duplicate bot check procedures for the Eggie botnet ################## Code copyright 2009 Josh Johnson "SnoFox" ################################## All rights reserved ############################################################################################ Configuration variables; probably duplicated elsewhere >.> ###global chkchan# Set the channel where the bots are all halfopped onset chkchan #Eggs############################################ Code starts here, obviously ############################################# On-join check to find duplicatesbind join - *@* sf:dupecheck:join# On-invite check to see if the channel is temporarily blacklisted (recent failed join)bind raw - INVITE sf:invite:parse# Allow temporary blacklists to be broadcast on the botnetbind bot - sf:temp:blist sf:bot:bl:add# On join procproc sf:dupecheck:join {nick host hand chan} {# If the channel is in the config file, DON'T CHECK IT# May be changed to a channel flag; +nocheckdupesif {![isdynamic $chan]} { return 0 }# Inititalize variables we'll needglobal botnick chkchan# Am I joining the channel?if {$botnick == $nick} {# I have joined the channel# Loop through all users in the channel to find other botsforeach x [chanlist $chan] {if {[ishalfop $x $chkchan]} {# Bot found! Skip the rest of the loop and part the channelset botfound $xcontinue}}if {[info exists botfound]} {# We found another bot in the loop; let's get out of here! :Psf:blacklist:temp $chan {Failed invite}; # Blacklist the channel to prevent join/part spamputallbots "sf:temp:blist $chan :Failed invite"; # Announce the blacklist to other botsputquick "PART $chan :Another Eggie bot was found! ($botfound)"channel remove $chanreturn 1}# No bots foundreturn 0}}proc sf:on:invite {nick host hand chan} {if {[sf:blacklist:chk $chan] == 0} {channel add $chan +bmotion} else {putserv "NOTICE $nick :This channel recently failed at getting a bot. Try again in a few minutes."}}proc sf:invite:parse {mask numeric params} {# Split everything up into something useable and pass it onset opts [split $mask "!"]set nick [lindex $opts 0]set host [lindex $opts 1]set opts [split [join $args] ":"]set chan [join [lindex $opts 1]]set hand [nick2hand $nick]set chan $chansf:on:invite $nick $host $hand $chanreturn 0; # Return 0 so Eggdrop will continue processing the invite}###### Blacklist handling ####### Blacklist checker script.# @return 0 - if not blacklisted# @return string - if blacklisted, string holds the reasonproc sf:blacklist:chk {chan} {# nickname, hostname, and handle are ommited in this script as it's not needed (yet)global {sf-blist} chkchan# Is it our access channel? >.>if {$chan == $chkchan} { return 0 }# Does the array exist?if {![array exists {sf-blist}]} {# Array is non-existant; no channels are blacklistedreturn 0}# Is the channel blacklisted?if {[array get {sf-blist} $chan] == ""} {# No it is notreturn 0}# It must be blacklisted. Return the reasonreturn [array get {sf-blist} $chan]}proc sf:blacklist:temp {chan reason} {global {sf-blist}array set {sf-blist} $chan "$reason"; # Add it to the blacklist arrayutimer 60 "sf:blacklist:remove $chan"; # In a minute, unblacklist it}proc sf:blacklist:remove {chan} {global {sf-blist}array unset {sf-blist} $chan}proc sf:bot:bl:add {bot command text} {sf:blacklist:temp [lindex [split $text] 0] [lrange $text 1 end]}# End of File #

i don't know if that helps =/

Statistics: Posted by Sammyy — Mon Oct 12, 2009 7:55 am

Make a bot join a channel on public text

2009-10-12T06:50:36-04:00

I can't immediately see why you would be getting that error if you have correctly configured the script. The statement using vInviteBotFlags looks fine and the variable is correctly defined as global. Unless you have made changes to the script? It seems strange that the script worked for you in the first place then later gave that error.

However, the statement using vInviteBotFlags has been taken out of the proc and bot flags instead tested in the bind statement. As per the following code.

btw If you get Tcl errors, please ensure that you have .set and .tcl commands enabled and in the partyline do .set errorInfo

This will give a full explanation of the problem

Code:

# invitebot.tcl# uses a command bot to send msg to another bot from a preconfigured list to join a channel# bot will part the new channel if too many bots there already# same script with same configuration must be loaded on ALL bots# includes command bot AND all bots in preconfigured list below### ----------------------------------------- ###### ---------- SYNTAX ----------------------- #### assuming default command trigger !# !join ?botname? <#channelname># <#channelname> must be specified# if ?botname? is not specified, one is chosen at random from the preconfigured list# if ?botname? is specified, it must be one from the preconfigured list### ----------------------------------------- ###### ---------- CONFIGURATION ---------------- #### set here the single character command triggerset vInviteBotTrigger !# set here the bot flag(s) required to use commandsset vInviteBotFlags n# set here the command channelset vInviteBotCommandChan "#Atlantis"# set here the name of the command bot# it should not be one of the bots listed bellow in vInviteBotBotnet# the command bot does not need to be in the new channelset vInviteBotCommandBot "osmosis"# set here a list of the bots that can be commanded to join a new channel# the list should not include the command bot as set above in vInviteBotCommandBotset vInviteBotBotnet {    "Baal"    "Heracles"    "McKay"    "gormless"    "ZeroPointModule"}# set here the maximum number of bots from vInviteBotBotnet that can reside in a new channel# does not effect the numbers in the command channelset vInviteBotMaxBots 2### ----------------------------------------- ###### ---------- CODE ------------------------- ###proc pInviteBotTrigger {} {    global vInviteBotTrigger    return $vInviteBotTrigger}bind PUB $vInviteBotFlags [pInviteBotTrigger]join pInviteBotJoinCommandproc pInviteBotJoinCommand {nick uhost hand chan text} {    global vInviteBotBotnet vInviteBotCommandChan vInviteBotCommandBot    if {[isbotnick $vInviteBotCommandBot]} {        if {[string equal -nocase $vInviteBotCommandChan $chan]} {            set arguments [split [string trim $text]]            switch -- [llength $arguments] {                1 {                    set botname [lindex $vInviteBotBotnet [rand [llength $vInviteBotBotnet]]]                    putquick "PRIVMSG $chan :($nick) Randomly selected bot $botname"                    set channel [string trim $text]                }                2 {                    set botname [lindex $arguments 0]                    set channel [lindex $arguments 1]                }                default {                    putserv "PRIVMSG $chan :($nick) -error- correct syntax is [pInviteBotTrigger]join  <#channel>"                    return 0                }            }            if {[lsearch -exact [string tolower $vInviteBotBotnet] [string tolower $botname]] != -1} {                if {[regexp -- {^#} $channel]} {                    if {[onchan $botname $chan]} {                        putquick "PRIVMSG $chan :($nick) Sending JOIN command to $botname"                        putserv "PRIVMSG $botname :JOIN $channel"                    } else {putserv "PRIVMSG $chan :($nick) -error- $botname is not on the command channel"}                } else {putserv "PRIVMSG $chan :($nick) -error- $channel is not a valid channel name"}            } else {putserv "PRIVMSG $chan :($nick) -error- $botname was not found in my botnet list"}        }    }    return 0}bind MSG - JOIN pInviteBotMsgReceiveproc pInviteBotMsgReceive {nick uhost hand text} {    global vInviteBotCommandChan vInviteBotCommandBot    if {[string equal -nocase $vInviteBotCommandBot $nick]} {        if {[llength [split $text]] == 1} {            if {[regexp -- {^#} $text]} {                if {![validchan $text]} {                    putquick "PRIVMSG $vInviteBotCommandChan :Received JOIN command from $nick, joining $text"                    channel add $text                    utimer 10 [list pInviteBotCheckUsers $text]                } else {putquick "PRIVMSG $vInviteBotCommandChan :Ignoring JOIN command from $nick, already monitoring $text"}            }        }    }    return 0}proc pInviteBotCheckUsers {chan} {    global vInviteBotBotnet vInviteBotCommandChan vInviteBotMaxBots    if {([botonchan $chan]) && ([llength [set users [chanlist $chan]]] != 0)} {        set count 0        foreach person $users {            if {[lsearch -exact [string tolower $vInviteBotBotnet] [string tolower $person]] != -1} {                incr count            }        }        if {$count > $vInviteBotMaxBots} {            putquick "PRIVMSG $vInviteBotCommandChan :Too many bots already in $chan, parting"            channel remove $chan        } else {putquick "PRIVMSG $vInviteBotCommandChan :JOIN confirmed, $count bot(s) detected"}    } else {        putquick "PRIVMSG $vInviteBotCommandChan :Failed to retrieve channel list for $chan, parting"        if {[validchan $chan]} {            channel remove $chan        }    }    return 0}# eof

Statistics: Posted by arfer — Mon Oct 12, 2009 6:50 am

Make a bot join a channel on public text

2009-10-12T07:23:32-04:00

Oh WOW thanks so much man, i really have to learn TCL to appriciate this!

Thanks so much!

Edit

[05:44] Tcl error [pInviteBotJoinCommand]: invalid command name "vInviteBotFlags"

Statistics: Posted by Sammyy — Sun Oct 11, 2009 8:27 am

Make a bot join a channel on public text

2009-10-06T10:32:21-04:00

Try this. Limited testing done already. READ what it says.

Your idea of simultaneously sending a network /whois to multiple users then capturing all the appropriate raw responses is not good. Quite apart from the difficulty, it potentially floods the IRCD.

Code:

# invitebot.tcl# uses a command bot to send msg to another bot from a preconfigured list to join a channel# bot will part the new channel if too many bots there already# same script with same configuration must be loaded on ALL bots# includes command bot AND all bots in preconfigured list below### ----------------------------------------- ###### ---------- SYNTAX ----------------------- #### assuming default command trigger !# !join ?botname? <#channelname># <#channelname> must be specified# if ?botname? is not specified, one is chosen at random from the preconfigured list# if ?botname? is specified, it must be one from the preconfigured list### ----------------------------------------- ###### ---------- CONFIGURATION ---------------- #### set here the single character command triggerset vInviteBotTrigger !# set here the bot flag(s) required to use commandsset vInviteBotFlags n# set here the command channelset vInviteBotCommandChan "#Atlantis"# set here the name of the command bot# it should not be one of the bots listed bellow in vInviteBotBotnet# the command bot does not need to be in the new channelset vInviteBotCommandBot "osmosis"# set here a list of the bots that can be commanded to join a new channel# the list should not include the command bot as set above in vInviteBotCommandBotset vInviteBotBotnet {    "Baal"    "Heracles"    "McKay"    "gormless"    "ZeroPointModule"}# set here the maximum number of bots from vInviteBotBotnet that can reside in a new channel# does not effect the numbers in the command channelset vInviteBotMaxBots 2### ----------------------------------------- ###### ---------- CODE ------------------------- ###proc pInviteBotTrigger {} {    global vInviteBotTrigger    return $vInviteBotTrigger}bind PUB - [pInviteBotTrigger]join pInviteBotJoinCommandproc pInviteBotJoinCommand {nick uhost hand chan text} {    global vInviteBotBotnet vInviteBotCommandChan vInviteBotCommandBot vInviteBotFlags    if {[isbotnick $vInviteBotCommandBot]} {        if {[string equal -nocase $vInviteBotCommandChan $chan]} {            if {[matchattr $hand $vInviteBotFlags]} {                set arguments [split [string trim $text]]                switch -- [llength $arguments] {                    1 {                        set botname [lindex $vInviteBotBotnet [rand [llength $vInviteBotBotnet]]]                        putquick "PRIVMSG $chan :($nick) Randomly selected bot $botname"                        set channel [string trim $text]                    }                    2 {                        set botname [lindex $arguments 0]                        set channel [lindex $arguments 1]                    }                    default {                        putserv "PRIVMSG $chan :($nick) -error- correct syntax is [pInviteBotTrigger]join  <#channel>"                        return 0                    }                }                if {[lsearch -exact [string tolower $vInviteBotBotnet] [string tolower $botname]] != -1} {                    if {[regexp -- {^#} $channel]} {                        if {[onchan $botname $chan]} {                            putquick "PRIVMSG $chan :($nick) Sending JOIN command to $botname"                            putserv "PRIVMSG $botname :JOIN $channel"                        } else {putserv "PRIVMSG $chan :($nick) -error- $botname is not on the command channel"}                    } else {putserv "PRIVMSG $chan :($nick) -error- $channel is not a valid channel name"}                } else {putserv "PRIVMSG $chan :($nick) -error- $botname was not found in my botnet list"}            }        }    }    return 0}bind MSG - JOIN pInviteBotMsgReceiveproc pInviteBotMsgReceive {nick uhost hand text} {    global vInviteBotCommandChan vInviteBotCommandBot    if {[string equal -nocase $vInviteBotCommandBot $nick]} {        if {[llength [split $text]] == 1} {            if {[regexp -- {^#} $text]} {                if {![validchan $text]} {                    putquick "PRIVMSG $vInviteBotCommandChan :Received JOIN command from $nick, joining $text"                    channel add $text                    utimer 10 [list pInviteBotCheckUsers $text]                } else {putquick "PRIVMSG $vInviteBotCommandChan :Ignoring JOIN command from $nick, already monitoring $text"}            }        }    }    return 0}proc pInviteBotCheckUsers {chan} {    global vInviteBotBotnet vInviteBotCommandChan vInviteBotMaxBots    if {([botonchan $chan]) && ([llength [set users [chanlist $chan]]] != 0)} {        set count 0        foreach person $users {            if {[lsearch -exact [string tolower $vInviteBotBotnet] [string tolower $person]] != -1} {                incr count            }        }        if {$count > $vInviteBotMaxBots} {            putquick "PRIVMSG $vInviteBotCommandChan :Too many bots already in $chan, parting"            channel remove $chan        } else {putquick "PRIVMSG $vInviteBotCommandChan :JOIN confirmed, $count bot(s) detected"}    } else {        putquick "PRIVMSG $vInviteBotCommandChan :Failed to retrieve channel list for $chan, parting"        if {[validchan $chan]} {            channel remove $chan        }    }    return 0}# eof

** edited ** at 3:45pm ... take the latest version above

Statistics: Posted by arfer — Tue Oct 06, 2009 10:32 am

Make a bot join a channel on public text

2009-10-05T09:41:54-04:00

Ello there,

okay I'm currently running over 30+ bMotion bots with help of some friends but were not online 24 / 7 and that is why im asking if a script could be made o.o!

All bots currently idle in #Eggs on an IRC server (Which is unimportant so i wont state it) and we want users to pic their own bots. So i had an idea to get a script that users can make a bot join. Basicly a user join's #Eggs and says !join [Bot-Name] channel if no Bot-Name is specified than a random bot joins, but when the bot joins it checks with users of the channel and if theres more than 2 bots alreaddy in the channel it just joined, the bot would automaticly part. all bots are halfop in #Eggs.

Our old script idea was that we join the bots to the channel with the telnet session a script automacticly parts with 2 bots in the channel sensing via the botnet but our botnet uptime is terrible thats how i came up with the idea to whois a halfop in #Eggs see if that halfop in #Eggs is in #NEWCHANNEL.

-End of idea.

We were running a on-invite script that any user can invite any bot and they could all join and all set +bmotion upon joining and would spam, here's the old code -

Code:

 bind raw - INVITE join:inviteproc join:invite {from key arg} { channel add [lindex [split $arg :] 1] +bmotion return 0}

-by Sir_Fz @ http://forum.egghelp.org/viewtopic.php? ... ght=invite

Statistics: Posted by Sammyy — Mon Oct 05, 2009 9:41 am