script to send msg to user as soon as they join channel

MnM · Post by **MnM** » Thu Jan 27, 2005 2:16 am

Hi all,

I require a script that can send a msg to the user that just joined a particular channel.
I need around 12 lines to issue some instructions, each on a new line.
Can anybody help me with this please?

Thanks guys.

^DooM^ · Post by **^DooM^** » Thu Jan 27, 2005 5:00 am

Click

awyeah · Post by **awyeah** » Thu Jan 27, 2005 5:39 am

It will be something like this:

Code: Select all

#Set the channel to message the user on
set msg_chan "#mychannel"

bind join - "*" msg:user

proc msg:user {nick uhost hand chan} {
 global msg_chan
 if {![isbotnick $nick] && [string equal -nocase $msg_chan $chan]} {
  puthelp "PRIVMSG $nick :......line 1......."
  puthelp "PRIVMSG $nick :......line 2......."
  puthelp "PRIVMSG $nick :......line 3......."
  puthelp "PRIVMSG $nick :......line 4......."
  puthelp "PRIVMSG $nick :......line 5......."
  puthelp "PRIVMSG $nick :......line 6......."
  puthelp "PRIVMSG $nick :......line 7......."
  puthelp "PRIVMSG $nick :......line 8......."
  puthelp "PRIVMSG $nick :......line 9......."
  puthelp "PRIVMSG $nick :......line 10......."
  puthelp "PRIVMSG $nick :......line 11......."
  puthelp "PRIVMSG $nick :......line 12......."
}

Generally sending 12 lines of message to a user joining a channel wouldn't be my idea of a script which wouldn't be a good script. You should make your messages small, short and precise to the point.

If your channel is big, then your bot will have alot of queues and might lag, but still I used puthelp here, where 1 msg would be sent after a delay of 1 sec.

De Kus · Post by **De Kus** » Thu Jan 27, 2005 11:18 am

better idea might be to send an URL and write the complete 12 line text there

.

Ofloo · Post by **Ofloo** » Fri Jan 28, 2005 4:44 am

or just dcc a txt with the data in it with a trigger .. to get it of course .., or spread out your data with timers.. if it's ofcourse not one .. text other wize there is no use..

mcdarby · Post by **mcdarby** » Thu Feb 03, 2005 2:06 am

awyeah wrote:It will be something like this:
Code: Select all
#Set the channel to message the user on
set msg_chan "#mychannel"

bind join - "*" msg:user

proc msg:user {nick uhost hand chan} {
 global msg_chan
 if {![isbotnick $nick] && [string equal -nocase $msg_chan $chan]} {
  puthelp "PRIVMSG $nick :......line 1......."
  puthelp "PRIVMSG $nick :......line 2......."
  puthelp "PRIVMSG $nick :......line 3......."
  puthelp "PRIVMSG $nick :......line 4......."
  puthelp "PRIVMSG $nick :......line 5......."
  puthelp "PRIVMSG $nick :......line 6......."
  puthelp "PRIVMSG $nick :......line 7......."
  puthelp "PRIVMSG $nick :......line 8......."
  puthelp "PRIVMSG $nick :......line 9......."
  puthelp "PRIVMSG $nick :......line 10......."
  puthelp "PRIVMSG $nick :......line 11......."
  puthelp "PRIVMSG $nick :......line 12......."
}
Generally sending 12 lines of message to a user joining a channel wouldn't be my idea of a script which wouldn't be a good script. You should make your messages small, short and precise to the point.

If your channel is big, then your bot will have alot of queues and might lag, but still I used puthelp here, where 1 msg would be sent after a delay of 1 sec.

Um, that was giving a number of errors starting with:

Tcl error in file 'eggdrop.conf':
missing close-brace
while executing
"proc notice:user {nick uhost hand chan}"

Attempting to add the close-brace leads to this.

Tcl error in file 'eggdrop.conf':
can't read "chan": no such variable
while executing
"string equal -nocase $notice_chan $chan"

Might want to check to make sure that scripts right.

Alchera · Post by **Alchera** » Thu Feb 03, 2005 3:17 am

Change:

Code: Select all

  puthelp "PRIVMSG $nick :......line 12......." 
}

to:

Code: Select all

  puthelp "PRIVMSG $nick :......line 12......." 
 }
}

MnM · Post by **MnM** » Thu Feb 03, 2005 3:48 am

Thanks guys.

awyeah · Post by **awyeah** » Thu Feb 03, 2005 4:25 am

Forgot the proc close bracket in a hurry heh.

Always remember the number of "{" opening curly brackets in a procedure should be always equal to the number of "}" closing curly brackets; if there not the same you will get a tcl error and if your bot is online it will crash and disconnect untill you fix this.

^DooM^ · Post by **^DooM^** » Thu Feb 03, 2005 4:28 am

Edit Plus has a nice little function to show matching curley braces. Just highlight the brace and press CTRL + } and it highlites its matching brace. if there is no matching brace it doesnt highlite anything and you know theres a problem. Helped me out no end of times

Ofloo · Post by **Ofloo** » Thu Feb 03, 2005 7:19 am

and if you use the eggdrop thingy syntax highlighter, and completion then you don't even need to worry about that cause when typing if or something like that editplus adds them auto

greenbear · Post by **greenbear** » Thu Feb 03, 2005 12:56 pm

so notepad users are hardcore nowadays, eh

^DooM^ · Post by **^DooM^** » Thu Feb 03, 2005 2:15 pm

gb wrote:so notepad users are hardcore nowadays, eh

hardcore indeed. I couldn't be without my nice coloured text and auto complete / indenting these days..

So i am lazy