Public !join !part script

[dotslasher]

how can i make an eggy Join a channel with a public command?
i got a .join (for dcc) but i dunno what to change

Code: Select all

## .JOIN ##
bind dcc m JOIN dcc_join_chan
proc dcc_join_chan {handle idx arg} {
   global botnick chan
   set chan  [lindex $arg 0]
   set chans [channels]
   set why [lrange $arg 1 end]
   foreach chann $chans {
      if {[string tolower $chann] == [string tolower $chan]} {
         putdcc $idx "$handle JOIN Error: I'm already on $chan "
         return 0
      }
   }
   if {$chan == ""} {
      putdcc $idx "$handle JOIN Error: Usage: .join <Channel>"
      return 0
   }
   if {[string index $chan 0] != "#"} {
      set chan "#$chan"
   }
   channel add $chan {
    chanmode "+nt"
    idle-kick 20
    need-op {request_ops $chan }
    need-invite {gimmie_da_key $chan }
    need-key {gimmie_da_key $chan }
    need-unban {gimmie_da_key $chan }
    need-limit {gimmie_da_key $chan }
    flood-chan 10:60
    flood-deop 3:10
    flood-kick 3:10
    flood-join 5:60
    flood-ctcp 3:60
   }
   channel set $chan -bitch +secret -autoop -clearbans -stopnethack +enforcebans 
   channel set $chan -greet -revenge +dynamicbans -protectops -statuslog +userbans
   channel set $chan +shared -autovoice +cycle +seen +dontkickops +dontdeopops
   putlog "$handle added $chan to my monitor list"
   return 1
}


## .PART ##
bind dcc m PART dcc_part_chan
proc dcc_part_chan {handle idx vars} {
  global botnick
  set where [lindex $vars 0]
  set chans [channels]
  if {$where == ""} {
    putdcc $idx "$handle PART Error: Usage: part <Channel you want me to leave>"
    return 0
  }
  if {[string index $where 0] != "#"} {
    set where "#$where"
  }
  if {![string match *[string tolower $where]*  [string tolower $chans]]} {
    putdcc $idx "$handle PART Error: I'm not on $where."
    return 0
  }
  channel remove $where
  putlog "No longer monitoring $where as per request from $handle."
  return 1
}

i know i have to change dcc to pub but i got this error:
Tcl error [pub_triggerj]: called "pub_triggerj" with too many arguments

my edit:

Code: Select all

set trigj "!Join" ;         
set trigp "!Part" ;         

## .JOIN ##
bind pub - $trigj pub_triggerj
proc pub_triggerj {handle idx arg} {

help is greatly apreciated

[CrazyCat]

try this:

Code: Select all

## .JOIN ##
bind pub m|- "!JOIN" pub_join_chan
proc pub_join_chan {unick uhost handle uchan arg} {
   global botnick
   set chan  [lindex $arg 0]
   set chans [channels]
   set why [lrange $arg 1 end]
   foreach chann $chans {
      if {[string tolower $chann] == [string tolower $chan]} {
         putserv "PRIVMSG $unick :$unick JOIN Error: I'm already on $chan "
         return 0
      }
   }
   if {$chan == ""} {
      putserv "PRIVMSG $unick :$unick JOIN Error: Usage: !join <Channel>"
      return 0
   }
   if {[string index $chan 0] != "#"} {
      set chan "#$chan"
   }
   channel add $chan {
    chanmode "+nt"
    idle-kick 20
    need-op {request_ops $chan }
    need-invite {gimmie_da_key $chan }
    need-key {gimmie_da_key $chan }
    need-unban {gimmie_da_key $chan }
    need-limit {gimmie_da_key $chan }
    flood-chan 10:60
    flood-deop 3:10
    flood-kick 3:10
    flood-join 5:60
    flood-ctcp 3:60
   }
   channel set $chan -bitch +secret -autoop -clearbans -stopnethack +enforcebans
   channel set $chan -greet -revenge +dynamicbans -protectops -statuslog +userbans
   channel set $chan +shared -autovoice +cycle +seen +dontkickops +dontdeopops
   putserv "PRIVMSG $nick :$nick added $chan to my monitor list"
   return 1
}


## .PART ##
bind pub m|- "!PART" pub_part_chan
proc pub_part_chan {unick uhost handle uchan vars} {
  global botnick
  set where [lindex $vars 0]
  set chans [channels]
  if {$where == ""} {
    putserv "PRIVMSG $nick :$nick PART Error: Usage: !part <Channel you want me to leave>"
    return 0
  }
  if {[string index $where 0] != "#"} {
    set where "#$where"
  }
  if {![string match *[string tolower $where]*  [string tolower $chans]]} {
    putserv "PRIVMSG $nick :$nick PART Error: I'm not on $where."
    return 0
  }
  channel remove $where
  putserv "PRIVMSG $nick :No longer monitoring $where as per request from $handle."
  return 1
}

Not change a lot, just binds, proc calls and way to respond...

[dotslasher]

tyvm mate

much apreciated

[masterstanf2k]

I'm using it, and it's not working

[masterstanf2k]

???? What's wrong?

[Sir_Fz]

nothing's wrong, make sure you .rehash after loading the script.