how would i do this with tcl??

matt2kjones · Post by **matt2kjones** » Sun Mar 16, 2003 3:25 pm

ok say for example, a user types !something

the bot would then reply, with data typed in a tcl file for !something

do u understand what i mean???

thanx

spock · Post by **spock** » Mon Mar 17, 2003 10:29 am

Code: Select all

set something "you cant take my virginity"

bind pub - something pub:something
proc pub:something {nick host handle chan bla} {
  global something
  putmsg $chan $something
}

says "you cant take my virginity" in the chan if someone types something (as first word on a line).

matt2kjones · Post by **matt2kjones** » Mon Mar 17, 2003 12:31 pm

hey thanx!

what do i replace nick and handle with???

spock · Post by **spock** » Mon Mar 17, 2003 12:57 pm

you dont.

the nick/handle of the person triggering the bind will be passed on to the procedure automatically

matt2kjones · Post by **matt2kjones** » Mon Mar 17, 2003 1:10 pm

ok thanx, so what do i change on there so if someone types !info it will display the text???

what do i replace?

thanx

spock · Post by **spock** » Mon Mar 17, 2003 1:41 pm

bind pub <flags> <command> <proc>
procname <nick> <user@host> <handle> <channel> <text>

bind pub - something pub:something

"something" is the command. if you want !info to be the command, then replace something with !info.

spock · Post by **spock** » Mon Mar 17, 2003 1:42 pm

im sure you could have guessed that though

matt2kjones · Post by **matt2kjones** » Mon Mar 17, 2003 4:09 pm

ok is this right then.......

set something "Test Writting"

bind pub - something pub:!test
proc pub:something {nick host handle chan bla} {
global something
putmsg $chan $something
}

spock · Post by **spock** » Mon Mar 17, 2003 6:51 pm

no.

bind pub <flags> <command> <proc>

please guess again

matt2kjones · Post by **matt2kjones** » Tue Mar 18, 2003 6:34 am

hey sorry

im a complete newbie at tcl

i have got it now and it works awsome!!!!

thanx

one thing, what would i change putmsg $chan $text to so that it goes to just that user not the whole channel???

thanx

spock · Post by **spock** » Tue Mar 18, 2003 12:30 pm

putmsg $nick $something

if you want it to notice instead of privmsg

putnotc $nick $something

matt2kjones · Post by **matt2kjones** » Tue Mar 18, 2003 8:45 pm

cheers thats great!!!!