egghelp/eggheads community

allmusic.tcl - music band information.

2014-04-05T06:58:11-04:00

hello mate owner of allmusic script

can you write these awesome script in English - please it request - thanks in advance mate

there some Error!
Code:
Tcl error [::allmusic::allmusic_pub]: can't read "formedtext": no such variableTcl error [::allmusic::allmusic_pub]: Missing host part: http://www.allmusic.comhttp://www.allmusic.com/artist/mirror-lakes-mn0002917168

And this.

!allm mirror lakes
<@bionic> #1 Name: Mirror Lakes, Genre: International, Years Active: 2010s
<@bionic> #2 Name: Lake Street Dive, Genre: Jazz, Pop/Rock, R&B, Years Active: 2000s - 2010s
<@bionic> #3 Name: Emerson, Lake & Palmer, Genre: Pop/Rock, Classical, Years Active: 1970s - 2010s
<@bionic> Mirror Lakes | Discography | AllMusic
<@bionic> Years active: Active 2010s.
<@bionic> Genres: International.

Statistics: Posted by username — Sat Apr 05, 2014 6:58 am

allmusic.tcl - music band information.

2014-04-05T06:42:08-04:00

Tried and not working.
!allmusic eminem
!music eminem

and nothing appeared.

Updated:

!allm eminem
<@bionic> #1 Name: Eminem, Genre: Rap, Years Active: 1990s - 2010s
<@bionic> #2 Name: Tiye Eminem
<@bionic> #3 Name: Edine, Genre: Pop/Rock, Years Active: 2010s
<@bionic> Eminem | Music Biography, Credits and Discography | AllMusic
<@bionic> Years active: Active 1990s - 2010s.
<@bionic> Genres: Rap. :: Styles: Hardcore Rap / Midwest Rap.
<@bionic> Themes: Cool & Cocky / Drinking / Freedom / Guys Night Out / Hanging Out / Late Night / Politics/Society.
<@bionic> Biography: The best-selling white rapper of all time, alternately comic and confrontational, both hugely talented and highly controversial.
<@bionic> Similar Artists: Influenced by Geto Boys / Influenced by Ice Cube / Associated with Trick Trick / Associated with D12 / Associated with Royce da 5'9" / Influenced by Run-D.M.C..

Statistics: Posted by username — Sat Apr 05, 2014 6:42 am

allmusic.tcl - music band information.

2014-04-01T02:25:06-04:00

Tried and not working.
!allmusic eminem
!music eminem

and nothing appeared.

Statistics: Posted by G00gle — Tue Apr 01, 2014 2:25 am

allmusic.tcl - music band information.

2014-03-09T15:36:29-04:00

hello mate owner of allmusic script

can you write these awesome script in English - please it request - thanks in advance mate

there some Error!

Code:

Tcl error [::allmusic::allmusic_pub]: can't read "formedtext": no such variableTcl error [::allmusic::allmusic_pub]: Missing host part: http://www.allmusic.comhttp://www.allmusic.com/artist/mirror-lakes-mn0002917168

Statistics: Posted by prashant — Sun Mar 09, 2014 3:36 pm

allmusic.tcl - music band information.

2013-12-25T06:19:46-04:00

Thank you, kind sir!

Statistics: Posted by janari — Wed Dec 25, 2013 6:19 am

allmusic.tcl - music band information.

2013-12-20T10:54:42-04:00

Thank you, thank you, thank you.

Statistics: Posted by username — Fri Dec 20, 2013 10:54 am

allmusic.tcl - music band information.

2013-12-19T17:29:27-04:00

You are awesome
I love this script.

Statistics: Posted by spithash — Thu Dec 19, 2013 5:29 pm

allmusic.tcl - music band information.

2013-12-19T12:11:20-04:00

Its Russian.

Code:

    if {$text == ""} {        putserv "PRIVMSG $chan :$allmusic(color1)Use $allmusic(color2)$lastbind $allmusic(color3) $allmusic(color1)to get some information about choosen band.\003"        return 0    }

Code:

    if {[info exists allmusic(lasttime,$chan)] && [expr $allmusic(lasttime,$chan) + $allmusic(delay)] > [clock seconds]} {        putserv "NOTICE $nick :$allmusic(color1)You can use one request in $allmusic(color2)$allmusic(delay) $allmusic(color1)[lindex {. second seconds seconds} [::allmusic::allmusic_numgrp $allmusic(delay)]]."        putserv "NOTICE $nick :$allmusic(color1)Wait $allmusic(color3)[expr $allmusic(delay) - [expr [clock seconds] - $allmusic(lasttime,$chan)]] $allmusic(color1)[lindex {. second seconds seconds} [::allmusic::allmusic_numgrp [expr $allmusic(delay) - [expr [clock seconds] - $allmusic(lasttime,$chan)]]]] and try again."        return 0    }

Statistics: Posted by username — Thu Dec 19, 2013 12:11 pm

allmusic.tcl - music band information.

2013-12-18T11:36:26-04:00

Okay, thank you, it helps a lot.

My intentions were that the bot gives only one, perhaps two lines of info about each search, but I think I can get it configured so it's not too spammy even in an active chan.

And yeah, maybe that Çàïðîñ íå ÷àùå îäíîãî ðàçà etc isn't russian language itself, but notepad++ gives me excactly that kind of jibberish and it might be because I don't have russian language pack installed, so it doesn't recognize it properly, the author of this script and the script itself are from egghelp.RU

Statistics: Posted by janari — Wed Dec 18, 2013 11:36 am

allmusic.tcl - music band information.

2013-12-12T11:28:38-04:00

That doesn't seem to be Russian, or it is and Google Translate fails to recognize it.. Anyway, you don't need any translation cos it's quite simple and there aren't many stuff to configure.

All you have to edit is located here:

Code:

array set allmusic {    pref {!}    binds {allmusic allm amus}        searchres 3        biolength 500    msg 1    delay 10        color1 \00314        color2 \00303        color3 \00305    version "allmusic.tcl version 1.4"    author "tvrsh"}

The pref (in this case it's "!") is the sign that comes in front of the commands it will answer to. Having a sign in front helps as you won't trigger it by accident when mentioning any of the words you set it to answer.

The binds combined with the pref are the exact commands it will answer to. In this case it will reply when someone uses: !allmusic, !allm or !amus.

The searchres it's used to limit the displayed result and the biolength should be self explanatory.

The msg is used to make it work with private messages sent to the bot, not just with commands on the channel.

The delay should be used to prevent users from flooding it with requests.

The color 1, 2 and 3 should be self explanatory.

Anything else?

Edit:

putserv "PRIVMSG $chan :$allmusic(color1)Èñïîëüçóéòå $allmusic(color2)$lastbind $allmusic(color3)<íàçâàíèå êîëëåêòèâà> $allmusic(color1)äëÿ ïîèñêà è ïîëó÷àåíèÿ èíôîðìàöèè î íåì.\003"

Warns user about the correct syntax.

putserv "NOTICE $nick :$allmusic(color1)Çàïðîñ íå ÷àùå îäíîãî ðàçà â $allmusic(color2)$allmusic(delay) $allmusic(color1)[lindex {. ñåêóíäó ñåêóíäû ñåêóíä} [::allmusic::allmusic_numgrp $allmusic(delay)]]."
putserv "NOTICE $nick :$allmusic(color1)Ïîäîæäèòå $allmusic(color3)[expr $allmusic(delay) - [expr [clock seconds] - $allmusic(lasttime,$chan)]] $allmusic(color1)[lindex {. ñåêóíäó ñåêóíäû ñåêóíä} [::allmusic::allmusic_numgrp [expr $allmusic(delay) - [expr [clock seconds] - $allmusic(lasttime,$chan)]]]] äî ñëåäóþùåãî çàïðîñà."

My guess is that here it warns the user that he's flooding the bot and should wait a specified amount of time.

Statistics: Posted by caesar — Thu Dec 12, 2013 11:28 am

allmusic.tcl - music band information.

2013-12-12T09:07:12-04:00

Hi

Is it possible to translate those comments in your script to english? I've been searching script like this, but I don't know how to configure it properly since I don't understand russian.

Statistics: Posted by janari — Thu Dec 12, 2013 9:07 am

allmusic.tcl - music band information.

2013-10-22T02:50:03-04:00

Awesome, works great now, thank you. I love this script!

Statistics: Posted by spithash — Tue Oct 22, 2013 2:50 am

allmusic.tcl - music band information.

2013-10-21T12:08:41-04:00

Try it again.

Statistics: Posted by username — Mon Oct 21, 2013 12:08 pm

allmusic.tcl - music band information.

2013-10-18T05:26:55-04:00

so, I got version 1.4 from this website, but there's an error that crashes the bot
http://www.egghelp.ru/files/656

Code:

[12:26] missing close-brace    while executing"namespace eval allmusic {    # Ñáðàñûâàåì çíà÷åíèÿ âñåõ ïåðåìåííûõ.    foreach p [array names allmusic *] { catch {u..."    (file "scripts/allmusic.tcl" line 31)    invoked from within"source scripts/allmusic.tcl"

Statistics: Posted by spithash — Fri Oct 18, 2013 5:26 am

allmusic.tcl - music band information.

2013-09-08T13:13:30-04:00

/me pokes username

Statistics: Posted by spithash — Sun Sep 08, 2013 1:13 pm