PtokaX forum

I need a schoutcast scripts, that shows ip to a radio in hub, and song

and i need a script that shows the current DJ, and i could  set it whit  !setdj or somthing
Or the dj use !onair, !offair  << only ops...

and mby the script shows bitorate, and stuff like that, mby the website 4 the radio whit !radio or somthing....

nobody?

what?? i know that it was a script for shoutcast on the old forum, but old forum is gone.... :-(

Hey,
I remember that script, I wish I had it too.  M aybe someone will post it again

GitchSoft

-- 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

-- http://www.jukkis.net/clever/clever_2_98.zip

-- This is site for all offered versions:

-- http://www.jukkis.net/

-- Original idea by yepyepyep4711 ;o)

-- Small changes by yepyepyep4711:

--   Bot does not appear in user list, line is commented. Uncomment it to see it again

--   Playlist now comes as a PM. Handy when it's big ; )

--   Incorporated "Play track number x of the playlist" command. ALL credit to RabidWombat : )

--   Minor help layout and text changes


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

sBotName = "Radio";


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 as PM" },

[low("!SC.playn")]= { ShoutCastPlayNumber,1,"Play track number x of the 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 (Play/Stop/Pause)" },

[low("!SC.help")]= { ShoutCastHelp,0,"Help message" },

};


for sCmd, tCmd in tCommands do

if(tCmd[2] == 1) then

sOpHelpOutput = sOpHelpOutput..sCmd.."\t\t-\t"..tCmd[3].."\r\n";

else

sHelpOutput = sHelpOutput..sCmd.."\t-\t"..tCmd[3].."\r\n";

end

end


-- frmHub:RegBot(sBotName); -- uncomment to see bot in user list

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:SendPM(sBotName, "\r\n"..line);

end


readfrom();

end


function ShoutCastPlay()

execute(sCleverDir.."clever.exe play");

end

function ShoutCastPlayNumber(curUser, args)

if(args and tonumber(args)) then

execute(sCleverDir.."clever.exe play "..tonumber(args));

end

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

hello, is there any update to this script? i have a problem with the !sc.playlist command. it works once, and then disconnects any user when they use that command again.