This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.
For more information, see this announcement post . Click the X in the top right-corner of this box to dismiss this message.
Requests for complete scripts or modifications/fixes for scripts you didn't write. Response not guaranteed, and no thread bumping!
Bondie
Voice
Posts: 7 Joined: Sun Dec 17, 2006 1:52 pm
Post
by Bondie » Sun Dec 17, 2006 2:06 pm
Hello.
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: Select all
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: Select all
bind MSG - "join" join
bind MSG - "part" part
proc 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
}
}
metroid
Owner
Posts: 771 Joined: Wed Jun 16, 2004 2:46 am
Post
by metroid » Sun Dec 17, 2006 3:17 pm
You are using the wrong arguments for MSG. Read the tcl-commands.doc.
Bondie
Voice
Posts: 7 Joined: Sun Dec 17, 2006 1:52 pm
Post
by Bondie » Sun Dec 17, 2006 3:37 pm
metroid wrote: 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: Select all
bind msg - join msg:join
proc msg:join { nickname hostname handle channel arguments } {
channel add $arguments
}
Sir_Fz
Revered One
Posts: 3794 Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:
Post
by Sir_Fz » Sun Dec 17, 2006 6:07 pm
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?