joinpart.tcl - make eggdrops join or part channels

[duarteper]

hello o/

joinpart.tcl by duarteper

Type in channel :
!join #CHANNEL
!part #CHANNEL

Code: Select all

###############################################
########
#######
######   join us pt.PTchat.org
#####     add joinpart.tcl to eggrop .conf file
####       !Join #Channel
###         !Part #Channel
##
#

bind pub n|n !join pub:join 
bind pub n|n !part pub:part 

### BOTNET begin 
bind BOT - bjoin bjoin 
bind BOT - bpart bpart 

proc bjoin {from key arg} { 

   if {![validchan [lindex [split $arg] 0]]} { 
      channel add [lindex [split $arg] 0] 
   } 
} 

proc bpart {from key arg} { 

   if {[validchan [lindex [split $arg] 0]]} { 
      channel remove [lindex [split $arg] 0] 
   } 
} 

### botnet end 

proc 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 
   } 
}

putlog "JoinPartChan by duarteper - Loaded!" 

i hope this helps you [[]]

[Madalin]

The script is incomplet ... it doesnt have the part where the other linkedk bots receive the JOIN/PART command. So please copy-paste the entire script if you want this be public

[duarteper]

The script is incomplet ... it doesnt have the part where the other linkedk bots receive the JOIN/PART command. So please copy-paste the entire script if you want this be public

sorry this script is working on my eggdrops

[Madalin]

Yes it works but you need the

bind BOT - command proc

For the bjoin/bpart BOT commands. So what you copy-paste is incomplete and it will work for you but not for anyone else[/code]

[dirty]

What Madalin is trying to say is that you need to paste the tcl that you have in the "leaf" bot as well because it won`t work otherwise. The script is complete but you need to paste the other one as well.

[duarteper]

i change this

Code: Select all

bind pub n|n !wjoin41 pub:join 
bind pub n|n !wpart41 pub:part 

to this

Code: Select all

bind pub n|n !join pub:join 
bind pub n|n !join pub:part 

is that the insue?

[Madalin]

No the script as i said is incomplet. An important part (the botnet part) is missing. So the script will only work with the current bot but the botnet part will not work.
This means the bot with the script will join/part but the others (on the botnet if others are linked) they wont interract

That botnet part can be in another .tcl file or in the same tcl as the !join/part command

[duarteper]

With Madalin help, code edited on fisrt post
thanks Madalin