egghelp/eggheads community

oper fjoin/!move/vhost .tcl help

2004-09-06T00:44:36-04:00

Well what you can do here is make a list, of the main room channels which you want the bots triggers to only work on.

set mainrooms "#chan1 #chan2 #chan3"

Then in your procedure check if the trigger command is done on any of the mainrooms, then only go ahead and 'do your stuff'

Use this in your procedure at first:

Code:

if {([lsearch -exact [split [string tolower $mainrooms]] [string tolower $chan]] != -1)} {

This is what you needed, hope it helps!

Statistics: Posted by awyeah — Mon Sep 06, 2004 12:44 am

oper fjoin/!move/vhost .tcl help

2004-09-03T09:28:59-04:00

sorry i also forgot to mention that the fjoin and !move are only able to be done in the main room channels they usually use a variable how would that be done in .tcl for instance they would set the variable as %m.rooms and have all the main rooms listed on it

Statistics: Posted by Guest — Fri Sep 03, 2004 9:28 am

oper fjoin/!move/vhost .tcl help

2004-09-02T23:57:27-04:00

i have much difficulty understanding .tcl lol however from what i have seen im sure i could probably come up with the rest and also learn from it ty very much so for this however i have but just one question pertaining to this for instance using the !move command how would i make it so that if the user being moved is in #admins that the command would not proceed...
i apreciate all of your help ty very much for taking the time to help me learn this style of scripting

Statistics: Posted by Guest — Thu Sep 02, 2004 11:57 pm

oper fjoin/!move/vhost .tcl help

2004-09-02T20:50:06-04:00

That is mirc scripting not tcl. All you have done is change the on text events to tcl binds. which simply will not work.

First of all you must seperate binds from the code.. eg
bind pub m|m vhost my:vhostproc

proc my:vhostproc {nick host hand chan arg} {
your code here
}

A HUGE factor to realise is that tcl handles command arguments very differently, all arguements given with a command are stores in $arg not the $1 $2 $3- etc that mirc scripting uses.

Here is the first part to get you started, keep in mind this is very basic and untested. I highly suggest you RTFM : )

Code:

bind pub m|m vhost my:vhostprocproc my:vhostproc {nick host hand chan arg} {  putmsg NickServ "set [lindex $arg 0] [lindex $arg 1]"  putnotc $nick "Vhost of [lindex $arg 0] changed to [lindex $arg 1]"}

Statistics: Posted by DayCuts — Thu Sep 02, 2004 8:50 pm

oper fjoin/!move/vhost .tcl help

2004-09-02T17:17:15-04:00

that's not tcl.

Statistics: Posted by user — Thu Sep 02, 2004 5:17 pm

oper fjoin/!move/vhost .tcl help

2004-09-02T14:58:44-04:00

Code:

bind pub m|m vhost /ns set $2 $3- | /notice $nick vhost of $2 changed to $3-bind pub m|m fjoin { if ( [ $chan isin %m.rooms ] ) && ( [ $3 isin %m.rooms ] ) { /sajoin $2 $3 | /notice $nick $2 forced to join $3 }elseif ( [ $chan !isin %m.rooms ] ) { /halt }elseif ( [ $3 !isin %m.rooms ] ) { /notice $nick sorry but due to abuse only main channels can be forced to }bind pub m|m !move { if ( [ $chan isin %m.rooms ] ) && ( [ $3 isin %m.rooms ] ) && ( [ $chan != #admins ] ) { /sajoin $2 $3 | /timer 1 5 /sapart $2 $chan | /notice $nick $2 forced to $3 $+ , $2 will be parted from here in 5 seconds }elseif ( [ $chan !isin %m.rooms ] ) { /halt }elseif ( [ $3 !isin %m.rooms ] ) { /notice $nick sorry but due to abuse only main channels can be forced to }#main rooms set in variable %m.rooms

ok ive never made .tcl scripts before will this work if not can you tell me what i need to do to make it work

Statistics: Posted by Guest — Thu Sep 02, 2004 2:58 pm