need help for small url script

wipo · Post by **wipo** » Mon Feb 10, 2003 6:10 am

first of all, im new here and my english sucks a little

I have a little problem. I need a simple tcl what do a little command for me.

For example.
If i do !blaat the bot give me a url. he just have to give me a url i selected.
I want a couple of !commands, maybe 3 or so and each of them will give me the url i have early bind to that ! command

Does this script exist ? (i can't script but i think this is a very small script ? or am i wrong

spock · Post by **spock** » Mon Feb 10, 2003 7:04 pm

i imagine that the tcl archive @ egghelp.org is full of pub command scripts. if you are unable to obtain one, someone will post a solution

wipo · Post by **wipo** » Tue Feb 11, 2003 7:42 am

Yes there are a lot op pub command tcl scripts at the tcl section. ive seen them all, but all the scripts have to many functions like !op !deop etc. all sort of that. but that stuff i don't wanna have at the same tcl i already have some sort of that.

Papillon · Post by **Papillon** » Tue Feb 11, 2003 9:45 am

Code: Select all

bind pub - !bla post_the_url
bind pub - !bla2 post_the_url
bind pub - !bla3 post_the_url

set url(1) "http:www.bla.com"
set url(2) "http:www.bla.org"
set url(3) "http:www.bla.net"

proc post_the_url {nick host hand chan arg} {
  global lastbind url
  switch -exact -- $lastbind {
    "!bla" { putserv "PRIVMSG $nick :$url(1)" }
    "!bla2" { putserv "PRIVMSG $nick :$url(2)" }
    "!bla3" { putserv "PRIVMSG $nick :$url(3)" }
  }
}

this should do the trick

wipo · Post by **wipo** » Tue Feb 11, 2003 10:47 am

Papillon wrote:

Code: Select all

bind pub - !bla post_the_url
bind pub - !bla2 post_the_url
bind pub - !bla3 post_the_url

set url(1) "http:www.bla.com"
set url(2) "http:www.bla.org"
set url(3) "http:www.bla.net"

proc post_the_url {nick host hand chan arg} {
  global lastbind url
  switch -exact -- $lastbind {
    "!bla" { putserv "PRIVMSG $nick :$url(1)" }
    "!bla2" { putserv "PRIVMSG $nick :$url(2)" }
    "!bla3" { putserv "PRIVMSG $nick :$url(3)" }
  }
}

this should do the trick

wow i really needed this, thx a lot, very nice of you, thx

one small thing, is it possible to only show this to group of persons ? i have a normal channel and a private channel, and people in the normal aren't allowed tho see the urls. can i bind it to 1 channel, so !bla only works in one channel and not in both ?

Papillon · Post by **Papillon** » Tue Feb 11, 2003 12:58 pm

Code: Select all

bind pub - !bla post_the_url 
bind pub - !bla2 post_the_url 
bind pub - !bla3 post_the_url 

set url(1) "http:www.bla.com" 
set url(2) "http:www.bla.org" 
set url(3) "http:www.bla.net" 
set url(channel) "#somechannel"

proc post_the_url {nick host hand chan arg} { 
  global lastbind url 
  if {[string tolower $chan] != $url(channel)} {return 0}
  switch -exact -- $lastbind { 
    "!bla" { putserv "PRIVMSG $nick :$url(1)" } 
    "!bla2" { putserv "PRIVMSG $nick :$url(2)" } 
    "!bla3" { putserv "PRIVMSG $nick :$url(3)" } 
  } 
}

wipo · Post by **wipo** » Tue Feb 11, 2003 4:43 pm

It works great

thx a lot.