Music Bot

[frankyk]

Hi,

can someone write me a script that will say something like this:

User [username] tells us he is currently listening to the SONG: [song name] by BAND: [band]

so like:

+listen Jimmy Eat World - In the Middle

would get this displayed:

Bot Name: User BillyBob tells us he is currently listening to the SONG: In the Middle by BAND: Jimmy Eat World

I suppose the - would divide name of the song and band, so spaces wouldn't matter until the - shows up

[nErBoS]

Hi,

Hope it helps..

--Requested by frankyk
--Made by nErBoS

sBot = "Music-Bot"

function Main()
	frmHub:RegBot(sBot)
end

function DataArrival(user, data)
	if (strsub(data,1,1) == "<" or strsub(data,1,5+strlen(sBot)) == "$To: "..sBot) then
	data = strsub(data,1,strlen(data)-1)
	s,e,cmd = strfind(data, "%b<>%s+(%S+)")
		if (cmd=="!listen") then
			ListenMusic(user, data)
			return 1
		end
	end
end

function ListenMusic(user, data)
local s,e,author,music = strfind(data, "%b<>%s+%S+%s+(%S+)%s+(.*)")
	if (author == nil or music == nil) then
		user:SendData(sBot, "Syntax Error, !listen  , you must write a name to the author and to the music.")
	else
		SendToAll(sBot, "User "..user.sName.." tells us he is currently listening to the SONG: "..music.." by BAND: "..author)
	end
end

In the Author Name i must have instead of space a underscore in the music name is no problem.

Best regards, nErBoS

[tezlo]

or with spaces..
+listen -