help with an automated join script

[Bondie]

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]

You are using the wrong arguments for MSG. Read the tcl-commands.doc.

[Bondie]

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]

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?