egghelp/eggheads community

!wb public command [SOLVED]

2009-06-09T19:33:26-04:00

Thanks guys! And much thanks to you speechles, I never knew "PutServ-O-Matic" existed.

Statistics: Posted by holycrap — Tue Jun 09, 2009 7:33 pm

Re: mIRC to TCL

2009-06-09T18:00:32-04:00

Hi,

I have a simple mIRC code below which does the following:

!wb test
Welcome back, test!

How do I go about doing this in TCL? I want to add more commands, for exe in the code below I can just copy and paste the entire block and change *wb* to something else and I have another command. Can someone show me how to do this in TCL?

Thank you!
Code:
on *:text:*wb*:#: { if $1 == %c $+ wb { if $2 == $null { msg $chan 13Welcome Back $nick $+ ! | halt } else { msg $chan 13Welcome Back $2 $+ ! } }}

If they all are simply mirc remotes returning message to the channel. Why not just use the Putserv-O-Matic script and alter it's triggers, they are simply wildcard triggers the same as mirc would use. Change the flags in the bind below from it's present -|- of none to your flavor of control.

Code:

bind pubm -|- "*" mycommands_proc

Statistics: Posted by speechles — Tue Jun 09, 2009 6:00 pm

!wb public command [SOLVED]

2009-06-08T10:40:57-04:00

not sure if i understand all that msl code, but i think you are trying to make people get a response from the bot when they say !wb in channel.

!wb + argument makes the bot respond with welcome back + argument
and
!wb without argument makes the bot respond with welcome back + nick

if thats the case you might try the code below, untested btw:

Code:

bind pub - !wb wb_procproc wb_proc { nick uhost handle chan text } {set text [split $text]if { $text == "" } {putserv "PRIVMSG $chan :Welcome back $nick!"} else {putserv "PRIVMSG $chan :Welcome back [lindex $text 0]!"}}

Statistics: Posted by raider2k — Mon Jun 08, 2009 10:40 am

!wb public command [SOLVED]

2009-06-10T21:57:23-04:00

Hi,

I have a simple mIRC code below which does the following:

!wb test
Welcome back, test!

How do I go about doing this in TCL? I want to add more commands, for exe in the code below I can just copy and paste the entire block and change *wb* to something else and I have another command. Can someone show me how to do this in TCL?

Thank you!

Code:

on *:text:*wb*:#: {  if $1 == %c $+ wb {    if $2 == $null { msg $chan 13Welcome Back $nick $+ ! | halt }    else { msg $chan 13Welcome Back $2 $+ ! }  }}

Edit: Changed subject to be more relevant. (Sir_Fz)

Statistics: Posted by holycrap — Mon Jun 08, 2009 9:11 am