add channel from bothub

[MasterScript]

I like That.

How to make like that?

/msg bothub addchan botleaf #chan


Thanks

[caesar]

Hi,

I've split your post from the original topic as it's quite old and there's no need to revive a dead one if you can make a new one, not to mention that what you wanted is a bit different from what was there. Nevertheless, is the bothub connected to botleaf, are on the same channel or how should the command be transmitted?

[MasterScript]

Thanks

[caesar]

thanks for? answer my question regarding the connection.

[MasterScript]

Yeap,

Yes, bothub have been connected to botleaf.

BotHub
- Bots1
- Bots2
- Bots3
- Bots4

Command:
addchan - to add bots to channel : /msg BotHub addchan Bots1 #Channel
remchan - to remove bots from channel : /msg BotHub remchan Bots1 #channel

adduser - to add user/staff to BotHub : /msg BotHub adduser usernick flag
deluser - to remove user/staff from BotHub : /msg BotHub deluser usernick
access - to check user/staff access :/msg BotHub access usernick

User Flag:
n- Root Admin (Root)
m - Co Admin (cadmin)
o - Bots Operator (bop)
hp - General Operator(gop)

To add user as Rood Admin:
/msg BotsHub adduser MasterScript root


Thanks

[Madalin]

I tested the botnet link for addchan/remchan (and worked) i didnt tested adduser/deluser (but it should work) and i didnt had time to make the access command (when i will find time i will make that to)

Code: Select all

bind MSG n addchan addchan:msg
bind MSG n remchan remchan:msg
bind MSG n adduser adduser:msg
bind MSG n deluser deluser:msg

bind BOT - botnet botnet:bot

proc addchan:msg {nick uhost hand arg} {

	set bot [lindex [split $arg] 0]
	set chan [lindex [split $arg] 1]

	if {[llength $bot] && [llength $chan]} {
		if {[matchattr $bot b]} {
			putbot $bot "BOTNET addchan $chan $nick"
		}
	}
}

proc remchan:msg {nick uhost hand arg} {

	set bot [lindex [split $arg] 0]
	set chan [lindex [split $arg] 1]

	if {[llength $bot] && [llength $chan]} {
		if {[matchattr $bot b]} {
			putbot $bot "BOTNET remchan $chan $nick"
		}
	}
}

proc adduser:msg {nick uhost hand arg} {

	set who [lindex [split $arg] 0]
	set flag [lindex [split $arg] 1]

	if {[validuser [nick2hand $who]]} {
		chattr [nick2hand $who] +$flag

		putserv "PRIVMSG $nick :Succesfully added $who with +$flag"
	} else {
		foreach a [channels] {
			foreach b [chanlist $a] {
				if {$b == $who} {
					adduser $who "*!*@[lindex [split [getchanhost $who $a] @] 1]"
					chattr $who +$flag

					putserv "PRIVMSG $nick :Succesfully added $who with +$flag"
				}
			}
		}
	}
}

proc deluser:msg {nick uhost hand arg} {

	set who [lindex [split $arg] 0]

	if {[validuser [nick2hand $who]]} {
		deluser [nick2hand $who]

		putserv "PRIVMSG $nick :Succesfully deleted $who (hand: [nick2hand $who])"
	} else {
		putserv "PRIVMSG $nick :User $who doesnt exists"
	}
}

proc botnet:bot {from key arg} {

	set chan [lindex [split $arg] 1]
	set nick [lindex [split $arg] 2]

	switch -exact -- [lindex [split $arg] 0] {
		addchan {
			if {![validchan $chan]} {
				channel add $chan

				putbot $from "BOTNET say $chan $nick"
			} else {
				putbot $from "BOTNET validchan $chan $nick"
			}
		}
		remchan {
			if {![validchan $chan]} {
				putbot $from "BOTNET invalid $chan $nick"
			} else {
				channel remove $chan
			}
		}
		validchan {
			putserv "PRIVMSG $nick :$chan is a validchan"
		}
		invalid {
			putserv "PRIVMSG $nick :$chan is not valid"
		}
		say {
			putserv "PRIVMSG $nick :I joined $chan.."
		}
	}
}

[MasterScript]

Thank you very much.

Do you have any simple same like my tcl?

[Madalin]

You could try look at a&a script. It has alot of commands

wget wget.ascript.name

Configure bot1.conf/settings.conf/eggdrop.conf

And run the eggdrop

If you have problems let me know