egghelp.org community Forum Index
[ egghelp.org home | forum home ]
egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

help with an automated join script

 
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Requests
View previous topic :: View next topic  
Author Message
Bondie
Voice


Joined: 17 Dec 2006
Posts: 7

PostPosted: Sun Dec 17, 2006 2:06 pm    Post subject: help with an automated join script Reply with quote

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:
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" 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
 
   }
 
}
Back to top
View user's profile Send private message
metroid
Owner


Joined: 16 Jun 2004
Posts: 771

PostPosted: Sun Dec 17, 2006 3:17 pm    Post subject: Reply with quote

You are using the wrong arguments for MSG. Read the tcl-commands.doc.
Back to top
View user's profile Send private message
Bondie
Voice


Joined: 17 Dec 2006
Posts: 7

PostPosted: Sun Dec 17, 2006 3:37 pm    Post subject: Reply with quote

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:
bind msg - join msg:join
proc msg:join { nickname hostname handle channel arguments } {
 channel add $arguments
}
Back to top
View user's profile Send private message
Sir_Fz
Revered One


Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

PostPosted: Sun Dec 17, 2006 6:07 pm    Post subject: Reply with quote

Quote:
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?
_________________
Follow me on GitHub

- Opposing

Public Tcl scripts
Back to top
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Requests All times are GMT - 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Forum hosting provided by Reverse.net

Powered by phpBB © 2001, 2005 phpBB Group
subGreen style by ktauber