bind bot B freechans bot:freechans

proc bot:freechans {bot com txt} {
	global settings

	if {[llength [channels]] < $settings(max_chans)} {

		putbot $bot "chansfree"

	}
}

bind bot B addchan bot:addchan

proc bot:addchan {bot com txt} {

	set txt  [split $txt]

	set chan [lindex $txt 0]
	set who  [lindex $txt 1]
	set x    [lrange $txt 2 5]
	set mix  [lindex $txt 6]
	
	pub:join [lindex $x 1] $chan $who $x $mix
}



proc speak {chan} {
global tchan
set tchan "$chan"
bind pubm - "* nu-mi amintesc sa-l fi vazut pe *" chan:purge
bind pubm - "* i don`t remember seeing *" chan:purge
puthelp "privmsg $chan :2Va rugam asteptati pana voi verifica canalul 4$chan."
puthelp "privmsg $chan :2Please wait untill I will verify the channel 4$chan."
}


proc speak2 {chan} {
global tchan
set tchan "$chan"
puthelp "privmsg $chan :!seen a"
}


proc speak3 {chan} {
global chanserv
set tchan "$chan"
if {[onchan X $chan]} {puthelp "PRIVMSG $chan :2Te rog adauga botului 499 si autoop la X astfel: 4/msg X adduser $chan $::chanserv(user) 499 2& 4/msg x modinfo $chan automode $::chanserv(user) op 2 si da paste la confirmari pe acest canal. Ai 2 minute sa dai paste la confirmare, in caz contrar voi parasi canalul !!"} else { puthelp "PRIVMSG $chan :2Te rog adauga autoop la psyBNC astfel: 4/addautoop $chan :*!*@$::chanserv(user).users.undernet.org2 si da paste la confirmare pe acest canal. Ai 2 minute sa dai paste la confirmare, in caz contrar voi parasi canalul !!" }
utimer 65 [unbind pubm - "* nu-mi amintesc sa-l fi vazut pe *" chan:purge]
utimer 66 [unbind pubm - "* i don`t remember seeing *" chan:purge]
bind pubm - "* am setat AUTOMODE la OP *" chan:cycle
bind pubm - "* set AUTOMODE to OP *" chan:cycle
bind pubm - "* hostmask *" chan:cycle
bind pubm - "* hostul *" chan:cycle
}

proc speak4 {chan} {
global chanserv
set tchan "$chan"
if {[onchan X $chan]} {puthelp "PRIVMSG $chan :2Please add 499 and autoop to X using: 4/msg X adduser $chan $::chanserv(user) 499 2& 4/msg x modinfo $chan automode $::chanserv(user) op2 and paste the confirmations in here. You have 2 minute to paste the confirmation, else I will leave the channel !!"} else { puthelp "PRIVMSG $chan :2Please add autoop to the psyBNC using: 4/addautoop $chan :*!*@$::chanserv(user).users.undernet.org2 and paste the confirmation in here. You have 2 minute to paste the confirmation, else I will leave the channel !!" }
}


proc chan:cycle {nick host hand chan txt} {
	putquick "part $chan :2Cycling channel to see if I can get autoop on $chan"
}


proc speak5 {chan} {
global tchan
set tchan "$chan"
utimer 180 [unbind pubm - "* am setat AUTOMODE la OP *" chan:cycle]
utimer 181 [unbind pubm - "* set AUTOMODE to OP *" chan:cycle]
utimer 182 [unbind pubm - "* hostmask *" chan:cycle]
utimer 183 [unbind pubm - "* hostul *" chan:cycle]
puthelp "privmsg $chan :4Inregistrare COMPLETA.2 Va rugam sa nu abuzati de botul #U&U, in caz contrat acesta va pleca de pe canalul dumneavoastra."
puthelp "privmsg $chan :4Registration COMPLETED.2 Please don`t abuse to the #U&U eggdrop, in the other way he will leave you channel."
}

putlog "\00304 Request 2 loaded"