Print Page - Winamp song name in dc++

Title: Winamp song name in dc++
Post by: uNiOn on 28 March, 2004, 22:13:56

Hey i just started a aradio on my hub... now i whant it to randomly anounce witch song it plays in the hub is it possible to do a script that does it... well hope someone can help....

Cheers =P

Title:
Post by: yepyepyep4711 on 28 March, 2004, 22:17:36

I guess you could try searching for it first...

http://board.univ-angers.fr/thread.php?threadid=182&boardid=11&sid=be5338485f80da3793183e58b1826caa

Title:
Post by: uNiOn on 28 March, 2004, 23:13:36

well tried this one did?nt get it to work
... =/

Title:
Post by: Mike on 29 April, 2004, 11:24:27

why a script Borf from our network made a plugin for winamp that enbles you to post what you're listening to on winamp. go to dchub://borf.mine.nu

Title:
Post by: plop on 29 April, 2004, 20:05:27

QuoteOriginally posted by Mike
why a script Borf from our network made a plugin for winamp that enbles you to post what you're listening to on winamp. go to dchub://borf.mine.nu

type /winamp in bcdc++/PhantomDC.

plop

Title:
Post by: Mike on 29 April, 2004, 21:11:22

QuoteOriginally posted by plop
QuoteOriginally posted by Mike
why a script Borf from our network made a plugin for winamp that enbles you to post what you're listening to on winamp. go to dchub://borf.mine.nu
type /winamp in bcdc++/PhantomDC.

plop

yes that is a way but not everyone use those clients since they arent allowed in some hubs, so i say the way i posted is ok for normal DC++ users.

Title:
Post by: Borf on 04 May, 2004, 09:17:29

My plugin thingy doesn't automatically show what song a shoutcast radio is playing, it's just a program that shows what song you're playing in winamp (much like moo.dll)

Title:
Post by: NotRabidWombat on 04 May, 2004, 15:17:31

From a long time ago.

Code Select

-- Shoutcast interface through PtokaX script
-- Author: RabidWombat
-- Requirements: the winamp source of the shoutcast server
-- is running on the hub server where this script is AND
-- you have installed Clever (a GREAT utility)
-- This is the version I downloaded for testing purposes
-- [URL]http://www.jukkis.net/clever/clever_2_98.zip[/URL]
-- This is site for all offered versions:
-- [URL]http://www.jukkis.net/[/URL]

sCleverDir = "C:\\clever\\";
sBotName = "ShoutCastBot";

low = strlower;

sHelpOutput = "Commands\r\n";
sOpHelpOutput = "Op Commands\r\n";

function Main()
	tCommands = {
		[low("!SC.next")] 	= { ShoutCastNext,	1,	"Play next song in playlist" },
		[low("!SC.prev")] 	= { ShoutCastPrev,	1,	"Play prev song in playlist" },
		[low("!SC.playlist")]	= { ShoutCastPlayList,	0,	"Display Playlist" },
		[low("!SC.play")]	= { ShoutCastPlay,	1,	"Play" },
		[low("!SC.pause")]	= { ShoutCastPause,	1,	"Pause" },
		[low("!SC.stop")]	= { ShoutCastStop,	1,	"Stop" },
		[low("!SC.status")]	= { ShoutCastStatus,	0,	"Display Status" },
		[low("!SC.help")]	= { ShoutCastHelp,	0,	"Help Message" },
	};

	for sCmd, tCmd in tCommands do
		if(tCmd[2] == 1) then
			sOpHelpOutput = sOpHelpOutput..sCmd.."-\t"..tCmd[3].."\r\n";
		else
			sHelpOutput = sHelpOutput..sCmd.."-\t"..tCmd[3].."\r\n";
		end
	end

	frmHub:RegBot(sBotName);
end

function DataArrival(curUser, sData)
	local s, e, cmd, args = strfind(sData, "%b<>%s+(%S+)%s*([^%|]*)%|$");

	if(cmd == nil) then return 0; end
	cmd = strlower(cmd);

	if(tCommands[cmd] and (tCommands[cmd][2] == 0 or curUser.bOperator)) then
		curUser:SendData(sData);
		tCommands[cmd][1](curUser, args);
		return 1;
	end
end

function ShoutCastNext()
	execute(sCleverDir.."clever.exe next");
end

function ShoutCastPrev()
	execute(sCleverDir.."clever.exe prev");
end

function ShoutCastPlayList(curUser)
	execute(sCleverDir.."clever.exe playlist > output.tmp");
	readfrom("output.tmp");

	local line = read("*a");

	if(line) then
		line = gsub(line, "\n", "\r\n");
		curUser:SendData(sBotName, "\r\n"..line);
	end

	readfrom();
end

function ShoutCastPlay()
	execute(sCleverDir.."clever.exe play");	
end

function ShoutCastPause()
	execute(sCleverDir.."clever.exe pause");
end

function ShoutCastStop()
	execute(sCleverDir.."clever.exe stop");
end

function ShoutCastStatus(curUser)
	execute(sCleverDir.."clever.exe status > output.tmp");

	readfrom("output.tmp");

	local line = read("*a");

	if(line) then
		line = gsub(line, "\n", "\r\n");
		curUser:SendData(sBotName, "\r\n"..line);
	end

	readfrom();
end

function ShoutCastHelp(curUser)
	curUser:SendData(sBotName, sHelpOutput);
	if(curUser.bOperator) then
		curUser:SendData(sBotName, sOpHelpOutput);
	end
end

-NotRabidWombat

Title:
Post by: TheKing on 22 May, 2004, 10:46:09

i m unabke 2 run the script nothin happs... ne ideas on how 2 make it .. sorry for bein a pain in da ass but as u c frm my profile i m a newbie.

TIA

TheKing

Title:
Post by: Dj_OcTaGoN on 03 December, 2004, 08:50:06

Have u installed Clever (http://www.jukkis.net/)?

cheers // Dj_OcTaGoN

PtokaX forum

Archive => Archived 4.0 boards => Finished Lua 4 scripts => Topic started by: uNiOn on 28 March, 2004, 22:13:56