allmusic.tcl - music band information.

[caesar]

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: Select all

	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.

[janari]

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

[username]

Its Russian.

Code: Select all

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

Code: Select all

    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
    }

[spithash]

You are awesome
I love this script.

[username]

Thank you, thank you, thank you.

[janari]

Thank you, kind sir!

[prashant]

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: Select all

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

[G00gle]

Tried and not working.
!allmusic eminem
!music eminem

and nothing appeared.

[username]

Tried and not working.
!allmusic eminem
!music eminem

and nothing appeared.

Updated:

<tvrsh> !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..

[username]

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: Select all

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

And this.

<tvrsh> !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.