How get TCL doing standard mIRC script?

Yoda · Post by **Yoda** » Thu Oct 31, 2002 5:03 am

I would like to know how do TCLs that works like mIRC Remote folders scripts.

an example?:

on 1:JOIN:#:/msg $chan Welcome $nick

or

on 5:PART:#mIRC,#newbies:/describe $chan waves bye-bye to $nick *sniff*

or

on 1:JOIN:#: {
ctcp $nick LOCATION
if ($chan == #one) /notice $Nick welcome $nick

this because the binds onjoin/join dont work on my server.

Yoda

ppslim · Post by **ppslim** » Thu Oct 31, 2002 5:52 am

I plain don't understand what you are getting at with this, though I will have a stab at it.

Tcl is not mIRC.

mIRC is it's own programing language (though not a very nice one).

You simply can't use mIRC script as a replacment for Tcl. This is plinly due to the fact that mIRC scriptw ould be slow. It's not open source, and it doesn't come as a seperate binary.

The only place mIRC script exists in in mIRC.

In the JOIN bind in not working in eggdrop for you, then it won't work in mIRC either.

if it is working in mIRC, then it's your Tcl script that is at fault.

Maybe a little more info next time you post, every question seems to be rather vague.

Weirdo · Post by **Weirdo** » Thu Oct 31, 2002 7:38 am

What i noticed when creating my first tcl scripts and being a mirc scripter myself, is that TCL is so much better. Mirc takes a lot of shortcuts, but the same things can be achieved by both, only TCL tends to be 5 times faster

For example, you have a on Join channel script there
You need to be a regular user so that could be the user needs to be bot registered, IE a channel greeting for any registered member. This is already in the bot, do .help info for more on this command.

a Partiing greeting can be done using a bind i suppose, although these are kinda lame, and they do get VERY irritating when you get a netsplit, possible crashing your bot, or flooding it (And i have seen this happen

)

And the binds for join will work, if you getting an error, please tell us what it is, or show us the code you using, otherwise we cant help

Yoda · Post by **Yoda** » Thu Oct 31, 2002 7:49 am

I want that scripts works on all chat users, not only with bot users, I think that this is the problem. But simple script like the onjoin one:

Code: Select all

bind join - "#channel *!*@*" channel_join 

proc channel_join {nick host chan uhost} { 
putserv "PRIVMSG $nick :welcome" 
}

dont work, instead the flag is -

I use eggdrop on a channel that has 140/200 users and scripts must works will all, as no one is bot user (only me)

I am pretty annoied about it, but I really dont know why it happened and how handle.

Weirdo · Post by **Weirdo** » Thu Oct 31, 2002 7:53 am

In partyline, do you get an error message?

Yoda · Post by **Yoda** » Thu Oct 31, 2002 8:04 am

no, absolutely nothing. this get me upset about

I did many and many variations on many an many scripts but it's the same

Weirdo · Post by **Weirdo** » Thu Oct 31, 2002 8:12 am

i have an on join script for fast opping and autohalfopping registered users in cometanime

Code: Select all

bind join o * join:autoop
proc join:autoop {nick uhost hand chan} {

What i noticed, is that you have that "#channel ..." in your bind, try removing it, you can always add an if statement in your procedure to prevent the proc running on any other channel

Ian-Highlander · Post by **Ian-Highlander** » Fri Nov 01, 2002 8:54 am

Try something like this

Code: Select all

bind join * * channel_join

proc channel_join {nick host handle channel} {
if {[string tolower $channel] == [string tolower "#YOURCHANNEL"]} {
puthelp "NOTICE $nick :welcome"
 }
}

HTH

Regards

Ian-Highlander

Yoda · Post by **Yoda** » Fri Nov 01, 2002 12:42 pm

I tried it.
works only on the bot itself sending himself a the message in party line.
nothing happen with all other public users and no errors noticed.

ppslim · Post by **ppslim** » Sun Nov 03, 2002 2:59 pm

Ha, now call me an idiot, but are we talking about the right kind of script here.

DO you want it to trigger when a user joins a channel, or the partyline?

Yoda · Post by **Yoda** » Sun Nov 03, 2002 4:52 pm

a channel

when someone join the channel, everybody, not only bot's users, all without difference

ppslim · Post by **ppslim** » Sun Nov 03, 2002 5:32 pm

Use - for the flags

I Hav enot looked into this, but using a - (a dash) is the standard.

stdragon · Post by **stdragon** » Sun Nov 03, 2002 6:05 pm

Code: Select all

bind join - * channel_join

proc channel_join {nick uhost hand chan} { 
  putserv "PRIVMSG $nick :welcome"
  putlog "got join for $nick on $chan"
}

Now watch the console. If you aren't getting a log entry for every person who joins, then maybe you have another script that is interfering? Maybe a flood script or stats script.

darko`` · Post by **darko``** » Mon Nov 04, 2002 1:46 pm

Heh, how are you imputting the lines that are pasted here? As i could notice you have mixed up the variable names in your original script. Not that it metters really, you can refere to variable that holds a nickname as a $foobar for all TCL cares, but it is kinda confusing when you refer to variable that holds channel name as $uhost >:>