egghelp/eggheads community

Public !join !part script

2003-11-15T17:45:26-04:00

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

Statistics: Posted by Sir_Fz — Sat Nov 15, 2003 5:45 pm

Public !join !part script

2003-11-15T17:23:14-04:00

???? What's wrong?

Statistics: Posted by masterstanf2k — Sat Nov 15, 2003 5:23 pm

Public !join !part script

2003-10-25T19:27:00-04:00

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

Statistics: Posted by masterstanf2k — Sat Oct 25, 2003 7:27 pm

Public !join !part script

2003-10-17T16:01:33-04:00

tyvm mate

much apreciated

Statistics: Posted by dotslasher — Fri Oct 17, 2003 4:01 pm

Public !join !part script

2003-10-17T11:15:00-04:00

try this:

Code:

## .JOIN ##bind pub m|- "!JOIN" pub_join_chanproc 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 "      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_chanproc 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 "    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...

Statistics: Posted by CrazyCat — Fri Oct 17, 2003 11:15 am

Public !join !part script

2003-10-17T10:50:33-04:00

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:

## .JOIN ##bind dcc m JOIN dcc_join_chanproc 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 "      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_chanproc 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 "    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:

set trigj "!Join" ;         set trigp "!Part" ;         ## .JOIN ##bind pub - $trigj pub_triggerjproc pub_triggerj {handle idx arg} {

help is greatly apreciated

Statistics: Posted by dotslasher — Fri Oct 17, 2003 10:50 am