Allmusic search: help me converting a one line mIRC script.

[kare]

Hello, I need an allmusic tcl search script for my eggdrop. It would work like this:

<XXX> !artist the faint
<YYY> AMG Artist Search: http://www.allmusic.com/cg/amg.dll?p=amg&sql=1the|faint


Note the replacement of spaces into '|'.
My friend made it for mIRC, so here it is so your work is easier.

on 1:TEXT:!artist*:#:/msg $chan AMG Artist Search: http://www.allmusic.com/cg/amg.dll?p=amg&sql=1 $+ $replace($2-,$chr(32),|)

I couldn't find a google script that I could edit, the one I use visits the first result and posts its link.
Thanks in advance, hoping this helps some people.

[ppslim]

Code: Select all

bind pub - !artist pub:artistweb
proc pub:artistweb {nick uh hand chan arg} {
  puthelp "PRIVMSG $chan :AMG Artist Search: http://www.allmusic.com/cg/amg.dll?p=amg&sql=1 [join [split $arg] |]"
}

[kare]

Thanks a lot for the fast reply. It works great. I had to remove a space between the link and "[join" so the URL is clickable.

Final code:

bind pub - !artist pub:artistweb
proc pub:artistweb {nick uh hand chan arg} {
puthelp "PRIVMSG $chan :AMG Artist Search: http://www.allmusic.com/cg/amg.dll?p=amg&sql=1[join [split $arg] |]"
}