egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-12-17T18:07:52-04:00 https://forum.eggheads.org/app.php/feed/topic/12838 2006-12-17T18:07:52-04:00 2006-12-17T18:07:52-04:00 https://forum.eggheads.org/viewtopic.php?p=69015#p69015 <![CDATA[help with an automated join script]]>
MSG
bind msg <flags> <command> <proc>
procname <nick> <user@host> <handle> <text>

Description: used for /msg commands. The first word of the user's
msg is the command, and everything else becomes the text argument.
Module: server
do you see a 'channel' argument passed to the proc?

Statistics: Posted by Sir_Fz — Sun Dec 17, 2006 6:07 pm

]]> 2006-12-17T15:37:16-04:00 2006-12-17T15:37:16-04:00 https://forum.eggheads.org/viewtopic.php?p=69012#p69012 <![CDATA[help with an automated join script]]>
You are using the wrong arguments for MSG. Read the tcl-commands.doc.
edit: i have tried that.... but still not working. Really need support. Please

Code: 

bind msg - join msg:joinproc msg:join { nickname hostname handle channel arguments } { channel add $arguments }

Statistics: Posted by Bondie — Sun Dec 17, 2006 3:37 pm

]]> 2006-12-17T15:17:34-04:00 2006-12-17T15:17:34-04:00 https://forum.eggheads.org/viewtopic.php?p=69010#p69010 <![CDATA[help with an automated join script]]> Statistics: Posted by metroid — Sun Dec 17, 2006 3:17 pm

]]> 2006-12-17T14:06:37-04:00 2006-12-17T14:06:37-04:00 https://forum.eggheads.org/viewtopic.php?p=69008#p69008 <![CDATA[help with an automated join script]]> I have a a request script that tells the bot (wich can be requested) to join a channel.
The request Script works with a msg (its written in msl) like.... a user requests a bot < !request #channel > my msl Bot goes to check the chan and if all requirements meet the bot joins the channel after i got a msg from the requestbot ( /msg botname join/part #channel). well my problem is that it does not work in TCL language coz i am not that good in TCL scripting and i need some help.

Here is the msl script that the bot (who can be requested) is using

Code: 

on *:TEXT:join *:?:{   if ($nick == requester) {     join $2    } }on *:TEXT:part *:?:{   if ($nick == requester) {     part $2    } }
and that is the TCL code, wich is not working

Code: 

bind MSG - "join" joinbind MSG - "part" partproc join { nickname hostname handle channel arguments } { if {($nickname == "requester")} {    channel add $arguments    } } proc part { nickname hostname handle channel arguments } { if {($nickname == "requester")} {    channel remove $arguments    } }

Statistics: Posted by Bondie — Sun Dec 17, 2006 2:06 pm

]]>