egghelp/eggheads community

Hello !join !part

2009-08-14T15:46:57-04:00

Put this snipplet on your Hub bot or the bot you want to issue the commands with.

Code:

bind pub n|- !join pub:joinbind pub n|- !part pub:partbind pub n|- !notice pub:noticebind pub n|- !say pub:sayproc pub:join {nick host hand chan text} { set newchan [lindex [split $text] 0] if {$newchan == ""} {  puthelp "NOTICE $nick :No Channel Given."  return 0 } putallbots "bjoin $newchan" if {![validchan "$newchan"]} {  channel add $newchan  return 1 } else {  puthelp "NOTICE $nick :I'm already on that channel"  return 0 }}proc pub:part {nick host hand chan text} { set oldchan [lindex [split $text] 0] if {$oldchan == ""} {  puthelp "NOTICE $nick :Please give a channel name."  return 0 } putallbots "bpart $oldchan" if {[validchan "$oldchan"]} {  channel remove $oldchan  return 1 } else {  puthelp "NOTICE $nick :I'm not on \002$oldchan\002"  return 0 }}proc pub:notice {nick host hand chan text} { set dest [lindex [split $text] 0] set notc [join [lrange [split $text] 1 end]] if {$dest == ""} {  puthelp "NOTICE $nick :No Target Given: will use this channel!"  set dest "$chan" } if {$notc == ""} {  puthelp "NOTICE $nick :No text given."  return 0 } putallbots "bnotice $dest $notc" puthelp "NOTICE $dest :$notc" return 1}proc pub:say {nick host hand chan text} { set dest [lindex [split $text] 0] set msg [join [lrange [split $text] 1 end]] if {$dest == ""} {  puthelp "NOTICE $nick :No Target Given: will use this channel"  set dest "$chan" } if {$msg == ""} {  puthelp "NOTICE $nick :No Text given"  return 0 } putallbots "bsay $dest $msg" puthelp "PRIVMSG $dest :$msg" return 1}

And Place this snipplet on all the other bots

Code:

bind bot - bjoin bot:bjoinbind bot - bpart bot:bpartbind bot - bnotice bot:bnoticebind bot - bsay bot:bsayproc bot:bjoin {from command text} { set newchan [lindex [split $text] 1] if {![validchan "$newchan"]} {  channel add $newchan  return }}proc bot:bpart {from command text} { set oldchan [lindex [split $text] 1] if {[validchan "$oldchan"]} {  channel remove $oldchan  return }}proc bot:bnotice {from command text} { set dest [lindex [split $text] 1] set notc [join [lrange [split $text] 2 end]] puthelp "NOTICE $dest :$notc" return}proc bot:bsay {from command text} { set dest [lindex [split $text] 1] set msg [join [lrange [split $text] 2 end]] puthelp "PRIVMSG $dest :$msg" return}

simpulz yes

Statistics: Posted by TCL_no_TK — Fri Aug 14, 2009 3:46 pm

Hello !join !part

2009-08-14T14:15:32-04:00

MenzAgitat

Thanks but its not working and please pt !notice nick also please
i try this on my channel it dosnt work

Thanks

Statistics: Posted by Thanhas — Fri Aug 14, 2009 2:15 pm

Hello !join !part

2009-08-14T13:46:32-04:00

extract from Bazman`s SuPeRsCrIpT v1.0 (translated in french by me but you can easily find the original script) :

Code:

bind pub n|n !join pub_do_joinproc pub_do_join {nick host handle channel testes} {  set who [lindex $testes 0]  if {$who == ""} {    putserv "NOTICE $nick :Syntaxe : !join <#channel>"    return 1  }  if {[validchan $who]} {    putserv "NOTICE $nick : Je suis déjà sur $who."    return 1  }  channel add $who  set owna [nick2hand $nick $channel]  putserv "NOTICE $nick :Nouveau chan ajouté : $who."  putserv "PRIVMSG $who :Coucou ! $who a été ajouté à ma liste de chans par $nick."  chattr $owna |+amno $who  return 1}bind pub n|n !part pub_do_partproc pub_do_part {nick host handle channel testes} {  if {$testes == ""} {    putserv "NOTICE $nick :Syntaxe : !part <#channel>"    return 1  }  putserv "PRIVMSG $channel :$testes a été supprimé de ma liste de chans par $nick."  putserv "NOTICE $nick :$testes a été supprimé de ma liste de chans."  channel remove $testes}

Statistics: Posted by MenzAgitat — Fri Aug 14, 2009 1:46 pm

Hello !join !part

2009-08-14T12:18:00-04:00

yah But if you can make it a bit more advance?

Statistics: Posted by Thanhas — Fri Aug 14, 2009 12:18 pm

Hello !join !part

2009-08-14T07:25:17-04:00

just a rough scratch as I dont have much time at the moment:

Code:

proc addchannel { from cmd text } {set text [split $text]set chan [lindex $text 0]channel add $chan}proc remchannel { from cmd text } {set text [split $text]set chan [lindex $text 0]channel remove $chan}

try to build something around it.

//edit:

{ from cmd text } is for bind bot
use
{ nick uhost handle chan text }
for bind pub to make eggdrops get info from channels

Statistics: Posted by raider2k — Fri Aug 14, 2009 7:25 am

Hello !join !part

2009-08-14T07:20:44-04:00

Hllo iam been tired alot to search after i am failed i am here to ask you guys help me please

i need a TCl which works for me:

When i am in Channel #xyz and i have there 4 Eggdrops there so by one command of me !join #zzzz all 4 shuold join there.
and so own for Part !part #zzz and all do part

it shuold work only for Owner and if possile put !say nick hello or !notice nick Hello

Thank you

Statistics: Posted by Thanhas — Fri Aug 14, 2009 7:20 am