egghelp/eggheads community

/msg nick join and part

2007-05-28T22:36:21-04:00

i'm looking for the exact same thing , but to msg me when anyone joins a selected channel

Statistics: Posted by notrox — Mon May 28, 2007 10:36 pm

/msg nick join and part

2007-05-24T18:43:27-04:00

Tcl has some issues with a few characters, such as "-", within variable names. In these cases you need to enclose the variable name with {}, ie. ${default-flags}.

Thank you nml375 , the script works great now...just didn`t need no more for the $default-flags, because the eggdrop.conf has a option to set them and the adduser comand work with that option.

The new cod :

Code:

bind msg n addchan s:addchanbind msg n delchan s:delchanproc s:addchan {nick uhost hand text} { global botnick default-flags  if {$text == "" || [string index $text 0] != "#"} {    putserv "NOTICE $nick :SYNTAX: /msg $botnick addchan #channel"    } elseif {[validchan $text]} {    putserv "NOTICE $nick :\002$text \002is already added"    } else {    channel add $text    adduser ~$text    chattr ~$text +C    putserv "NOTICE $nick :Channel added:\002 $text \002"  }}proc s:delchan {nick uhost hand text} { global botnick  if {$text == "" || [string index $text 0] != "#"} {    putserv "NOTICE $nick :SYNTAX: /msg $botnick delchan #channel"    } elseif {![validchan $text]} {    putserv "NOTICE $nick :\002$text \002is not a valid channel"    } else {    channel remove $text    deluser ~$text    putserv "NOTICE $nick :Channel deleted:\002 $text \002"  }}

now I ask one last thing, how do add an option that will not add the username to the database with the "#" in front of the name ?

Code:

<|Rbot1> [00:38] |Rbot2: newuser ~#chan hp(01:41:09) <|Rbot1> [00:38] |Rbot2: chattr ~#chan hpC---- .whois ~#chan<|Rbot1> [00:37] #h4nd# whois ~#chan<|Rbot1> HANDLE       PASS NOTES FLAGS           LAST<|Rbot1> ~#chan      no       0 hpC             never (nowhere)

a simple adduser without the "#" , some thing like this:

Code:

 .whois ~chan<|Rbot1> [00:37] #h4nd# whois ~chan<|Rbot1> HANDLE       PASS NOTES FLAGS           LAST<|Rbot1> ~chan      no       0 hpC             never (nowhere)

Statistics: Posted by Riddler — Thu May 24, 2007 6:43 pm

/msg nick join and part

2007-05-24T17:43:48-04:00

@xU:
Try replacing "stirng" with "string". And dont, ever, use lindex on plain strings! It's designed to be used on proper tcl-lists only (list and split is your friend here).

Also, I am abit confused as to why you have a hardcoded nick in the middle of the code...

Finally, for simple informational msgs, you'd be better off using puthelp rather than putquick.

Statistics: Posted by nml375 — Thu May 24, 2007 5:43 pm

/msg nick join and part

2007-05-24T17:33:48-04:00

Hi,

Code:

############################################## Date: 25May06 ##############################      xU (Qadsia@hotmail.com        WeArab: #Qadsia ########      msg-part.tcl        ####################################################################################################################################################################################                                                             #       Note:             ##                    Name: MeShari                            #                         ##                Nickname:  xU                                #        None             ##                     IRC: Irc.WeArab.Net: -j #qadsia         #                         ##                   Email: Qadsia@hotmail.com                 #                         ##                                                             #                         ##                                                             #################################################################################################################### ## bind ############bind msgm - * proc:privmsg## proc ############proc proc:privmsg { nick uhost hand text } {set text [string tolower $text]if {([stirng tolower bondie] == "[string tolower $nick]")} {if {[lindex $text 0]) == "!join")} {if {([lindex $text 1] == "")} {putquick "privmsg $nick :WARNING: Please enter Channel /msg  !join #channel"}if {([botonchan [lindex $text 1]])} {putquick "privmsg $nick :WARNING: Iam already on channel!"} else {if {([lindex $text 1]) != "")} {putquick "privmsg $chan :NOTE: Try to join [lindex $text 1];channel add [lindex $text 1];utimer 1 save}}}if {[lindex $text 0]) == "!part")} {if {([lindex $text 1] == "")} {putquick "privmsg $nick :WARNING: Please enter Channel /msg  !part #channel"}if {(![botonchan [lindex $text 1]])} {putquick "privmsg $nick :WARNING: Iam not in channel!"} else {if {([lindex $text 1]) != "")} {putquick "privmsg $chan :NOTE: Try to part [lindex $text 1];channel remove [lindex $text 1];utimer 1 save}}}}}

Statistics: Posted by xU — Thu May 24, 2007 5:33 pm

/msg nick join and part

2007-05-22T13:20:59-04:00

Tcl has some issues with a few characters, such as "-", within variable names. In these cases you need to enclose the variable name with {}, ie. ${default-flags}.

Statistics: Posted by nml375 — Tue May 22, 2007 1:20 pm

/msg nick join and part

2007-05-22T08:31:02-04:00

I looked everywhere for this "killuser" command, and didn't find squat. Where'd you get this at?
Code:
  deluser     Description: attempts to erase the user record for a handle    Returns: 1 if successful, 0 if no such user exists    Module: core

oki...thanks for the advice...

New modification to the Code and i have this:

Code:

bind msg n addchan s:addchan bind msg n delchan s:delchan proc s:addchan {nick uhost hand text} {  global botnick default-flags   if {$text == "" || [string index $text 0] != "#"} {     putserv "NOTICE $nick :SYNTAX: /msg $botnick addchan #channel"     } elseif {[validchan $text]} {     putserv "NOTICE $nick :\002$text \002is already added"     } else {     channel add $text     newuser ~$text $default-flags     chattr ~$text +C     putserv "NOTICE $nick :Channel added:\002 $text \002"   } } proc s:delchan {nick uhost hand text} {  global botnick   if {$text == "" || [string index $text 0] != "#"} {     putserv "NOTICE $nick :SYNTAX: /msg $botnick delchan #channel"     } elseif {![validchan $text]} {     putserv "NOTICE $nick :\002$text \002is not a valid channel"     } else {     channel remove $text     deluser ~$text     putserv "NOTICE $nick :Channel deleted:\002 $text \002"   } }

Ok, the delchan command works great, but the addchan command has still an error.

Code:

 [14:28] Tcl error [s:addchan]: can't read "default": no such variable

.....

Statistics: Posted by Riddler — Tue May 22, 2007 8:31 am

/msg nick join and part

2007-05-21T19:01:29-04:00

I looked everywhere for this "killuser" command, and didn't find squat. Where'd you get this at?

Code:

  deluser     Description: attempts to erase the user record for a handle    Returns: 1 if successful, 0 if no such user exists    Module: core

Statistics: Posted by YooHoo — Mon May 21, 2007 7:01 pm

/msg nick join and part

2007-05-21T17:22:19-04:00

Try:

Code:

bind msg n {join} msg:joinbind msg n {part} msg:partproc msg:join {nick uhost hand text} {  global botnick lastbind  if {$text == "" || [string index $text 0] != "#"} {    putserv "NOTICE $nick :Usage: /msg $botnick $lastbind #channel."  } elseif {[llength [channels]] >= 20} {    putserv "NOTICE $nick :All channels filled!"  } elseif {[validchan $text]} {    putserv "NOTICE $nick :$text is already added."  } else {    channel add $text    putserv "NOTICE $nick :Joined $text."  }}proc msg:part {nick uhost hand text} {  global botnick lastbind  if {$text == "" || [string index $text 0] != "#"} {    putserv "NOTICE $nick :Usage: /msg $botnick $lastbind #channel."  } elseif {![validchan $text]} {    putserv "NOTICE $nick :$text is not a valid channel."  } else {    channel remove $text    putserv "NOTICE $nick :Parted $text."  }}

NOTE: Not Tested!

Ok, I`ve tested in this original structure, and it works very good but ..
i want to change some of the code and make the bot add the channel olso like a user in eggdrop.user with a the $default-flags and a +C.

Code:

bind msg n addchan s:addchanbind msg n delchan s:delchanproc s:addchan {nick uhost hand text} { global botnick default-flags  if {$text == "" || [string index $text 0] != "#"} {    putserv "NOTICE $nick :SYNTAX: /msg $botnick addchan #channel"    } elseif {[validchan $text]} {    putserv "NOTICE $nick :\002$text \002is already added"    } else {    channel add $text     newuser ~$text $default-flags    chattr ~$text +C    putserv "NOTICE $nick :Channel added:\002 $text \002"  }}proc s:delchan {nick uhost hand text} { global botnick   if {$text == "" || [string index $text 0] != "#"} {    putserv "NOTICE $nick :SYNTAX: /msg $botnick delchan #channel"    } elseif {![validchan $text]} {    putserv "NOTICE $nick :\002$text \002is not a valid channel"    } else {    channel remove $text     killuser ~$text    putserv "NOTICE $nick :Channel deleted:\002 $text \002"  }}

but i has an error...

Code:

[23:10] Tcl error [s:addchan]: can't read "default": no such variable

and this

Code:

[23:21] Tcl error [s:delchan]: invalid command name "killuser"

any sugestions ?

Statistics: Posted by Riddler — Mon May 21, 2007 5:22 pm

/msg nick join and part

2006-12-19T15:09:21-04:00

Code:

bind msg - "join" cmd:joinbind msg - "part" cmd:partproc cmd:join {nick uhost hand arg} {  if {[string match -nocase "mynick" $nick]} {    channel add $arg  }}proc cmd:part {nick uhost hand arg} {  if {[string match -nocase "mynick" $nick]} {    channel remove $arg  }}

though this would work, you shouldn't use string match.

Code:

bind msg - "join" cmd:joinbind msg - "part" cmd:partproc cmd:join {nick uhost hand arg} {  if {[string equal -nocase "mynick" $nick]} {    channel add $arg  }}proc cmd:part {nick uhost hand arg} {  if {[string equal -nocase "mynick" $nick]} {    channel remove $arg  }}

is the script I'd use (though as mentioned before, you should use handles rather than nick matching)

Statistics: Posted by metroid — Tue Dec 19, 2006 3:09 pm

/msg nick join and part

2006-12-18T20:17:32-04:00

Still using the wrong proc arguments. All of you except tosser for that matter.

Comes with being tired probably.

* Alchera slaps his forehead

Statistics: Posted by Alchera — Mon Dec 18, 2006 8:17 pm

/msg nick join and part

2006-12-18T19:39:44-04:00

Hmm isnt this part of the Forum called request ?! Sometimes its easier just to write down how it worx then "quizzing" around
Code:
bind MSG - "join" joinbind MSG - "part" partproc join { nickname hostname handle channel } {    channel add $channel  }} proc part { nickname hostname handle channel } {    channel remove $channel  }}

Bondie you obv. dont know your proc header for MSG, how do you get channel from a private message? Also you missed out arguments (text) in that header..
Your also overwriting the built-in command 'join'

Try:

Code:

bind msg - "join" cmd:joinbind msg - "part" cmd:partproc cmd:join {nick uhost hand arg} {  if {[string match -nocase "mynick" $nick]} {    channel add $arg  }}proc cmd:part {nick uhost hand arg} {  if {[string match -nocase "mynick" $nick]} {    channel remove $arg  }}

Statistics: Posted by r0t3n — Mon Dec 18, 2006 7:39 pm

/msg nick join and part

2006-12-18T15:24:33-04:00

Hmm isnt this part of the Forum called request ?! Sometimes its easier just to write down how it worx then "quizzing" around

Code:

bind MSG - "join" joinbind MSG - "part" partproc join { nickname hostname handle channel } {    channel add $channel  }} proc part { nickname hostname handle channel } {    channel remove $channel  }}

Statistics: Posted by Bondie — Mon Dec 18, 2006 3:24 pm

/msg nick join and part

2006-12-18T14:00:58-04:00

Still using the wrong proc arguments. All of you except tosser for that matter.

Statistics: Posted by metroid — Mon Dec 18, 2006 2:00 pm

/msg nick join and part

2006-12-18T12:15:18-04:00

He told you what to do

Code:

bind MSG - "join" joinbind MSG - "part" partproc join {nickname hostname handle channel argument} {if {$nickname == "bondie"} {   channel add $channel   }} proc part {nickname hostname handle channel argument} {if {$nickname == "bondie"} {   channel remove $channel   }}

But it isn't that smart to bind the command to - and check for the nickname. Anyone could just name himself to Bondie and they could let your bot join/part channels
This would be better

Code:

bind MSG n "join" joinbind MSG n "part" partproc join {nickname hostname handle channel argument} {   channel add $channel} proc part {nickname hostname handle channel argument} {   channel remove $channel}

Statistics: Posted by bloodLiner — Mon Dec 18, 2006 12:15 pm

/msg nick join and part

2006-12-18T09:52:41-04:00

well if i knew how to i wouldnt post it in request.

Statistics: Posted by Bondie — Mon Dec 18, 2006 9:52 am