WinampScript

[Madman]

I desided to make my own winamp.

Please read the inctructions in the begning

Damm.. it's to long for the board... ;p

Here we go... =)

WinampScript

[NotRabidWombat]

Please take my name off of that.

-NotRabidWombat

[Madman]

hmm.... done....

[6Marilyn6Manson6]

Hi madman... can you made this script for Windows Media Player? Thanks

[Madman]

Originally posted by 6Marilyn6Manson6
Hi madman... can you made this script for Windows Media Player? Thanks

No... since clever is for winamp only...
it can be done but then we must have a program that can change stuff in winamp media player by command line... and i doubt that microsoft has support for changing things in there media player thru a dos promt...

sorry...

[6Marilyn6Manson6]

Originally posted by madman

Originally posted by 6Marilyn6Manson6
Hi madman... can you made this script for Windows Media Player? Thanks

No... since clever is for winamp only...
it can be done but then we must have a program that can change stuff in winamp media player by command line... and i doubt that microsoft has support for changing things in there media player thru a dos promt...

sorry...

No problem madman.. thanks a lot for your reply  :)

[MDFP]

Hi Madman.
You Said that you've to config Clever firts, but, config what?
I cant see nothing!

Thanks

[Madman]

Run the clever.exe file, it should popup a cmd window and tell u to type the direcectory to winamp.
if not, go to c:\CLEVER and delete clever.cfg adn run the exe file agin...

[yoonohoo]

Is the link dead or is it me?

[Psycho_Chihuahua]

must be you...

try this one --> PtokaX Script Database

[MDFP]

Hi Guys.

Showld this sctipr work with earlier versions of Winamp?


Thanks

[Madman]

I'm useing it on 2.91... =) Also tested some on 5.x

[hnr21]

Well... i'm using Win 2003 Build 3790, PtokaX0.3.3.1 and Winamp 5.08c and clever seems to not work very well as when entering "clever.exe songtitle" returns diff. outputs ... none stating the full title name just parts of it :(
Maybe i'm doing' smth wrong here ...

[hnr21]

Ohh ...well, i disabled in Winamp's 'General Preferences' the "Scroll title in teh Windows taskbar" option and now it works properly.....

[[NL]Tazzie]

Nice one madman, but i made a minor change.

Since there are user who also have a moderator/netfounder. That one is unable to load the winamp song.

SendComm = 1      -- Send user command [right click] "1"=yes "0"=no

SetTo = {
 [0] = 1,   -- Masters
 [1] = 1,   -- Operators
 [2] = 1,   -- Vips
 [3] = 1,   -- Regs
 [4] = 1,   -- Moderator
 [5] = 1,   -- NetFounder
 [-1] = 0,  -- Users
}

WinampProfile = {
 [0] = 1,   -- Masters
 [1] = 0,   -- Operators
 [2] = 0,   -- Vips
 [3] = 0,   -- Regs
 [4] = 1,   -- Moderator
 [5] = 1,   -- NetFounder
[-1] = 0,   -- Users(unregged)
}

function NewUserConnected(user)
   if SendComm == 1 and SetTo[user.iProfile] == 1 then
      user:SendData("$UserCommand 1 3 ?W?n?m??\\Command $<%[mynick]> !cmd||")
      user:SendData("$UserCommand 1 3 ?W?n?m??\\Status on winamp $<%[mynick]> !w.status||")
      user:SendData("$UserCommand 1 3 ?W?n?m??\\Show current playing song $<%[mynick]> !w.song||")
      user:SendData("$UserCommand 1 3 ?W?n?m??\\Show pretty info about song $<%[mynick]> !w.pretty||")
      user:SendData("$UserCommand 1 3 ?W?n?m??\\Get track nr $<%[mynick]> !w.tracknr|")
      if WinampProfile[user.iProfile] == 1 then
         user:SendData("$UserCommand 1 3 ?W?n?m??\\Play (track) $<%[mynick]> !w.play %[line: Tracknr (Optional)]||")
         user:SendData("$UserCommand 1 3 ?W?n?m??\\Pause song $<%[mynick]> !w.pause||")
         user:SendData("$UserCommand 1 3 ?W?n?m??\\Stops song $<%[mynick]> !w.stop||")
         user:SendData("$UserCommand 1 3 ?W?n?m??\\Previous song $<%[mynick]> !w.prev||")
         user:SendData("$UserCommand 1 3 ?W?n?m??\\Next song $<%[mynick]> !w.next||")
         user:SendData("$UserCommand 1 3 ?W?n?m??\\Set vol $<%[mynick]> !w.vol %[line: number 0-255]||")
         user:SendData("$UserCommand 1 3 ?W?n?m??\\Get playlist $<%[mynick]> !w.playlist||")
         user:SendData("$UserCommand 1 3 ?W?n?m??\\Clear the playlist $<%[mynick]> !w.clear||")
         user:SendData("$UserCommand 1 3 ?W?n?m??\\Make the playlist $<%[mynick]> !w.makepl||")
         user:SendData("$UserCommand 1 3 ?W?n?m??\\Reload playlist $<%[mynick]> !w.reload||")
         user:SendData("$UserCommand 1 3 ?W?n?m??\\Toggle shuffle $<%[mynick]> !w.shuffle||")
         user:SendData("$UserCommand 1 3 ?W?n?m??\\Toggle Repeat $<%[mynick]> !w.repeat||")
         user:SendData("$UserCommand 1 3 ?W?n?m??\\Check shuffle mode $<%[mynick]> !w.getshuffle||")
         user:SendData("$UserCommand 1 3 ?W?n?m??\\Check repeat mode $<%[mynick]> !w.getrepeat||")
         user:SendData("$UserCommand 1 3 ?W?n?m??\\Start winamp $<%[mynick]> !w.start||")
         user:SendData("$UserCommand 1 3 ?W?n?m??\\Close winamp $<%[mynick]> !w.close||")
      end
   end
end

[Sarpanch]

Can anyone tell me exactly how and what this script acutally does bcuz ive got an rough idea but not very sure thanks in advance )

[Madman]

Sure.. it's simple...
The script allows you to control winamp on the hub pc.
You can pause, jump 2 next track, previous track, show current playing song and so on...

[Sarpanch]

so would i hav to use the Shoutcast software also? well i would have to wudnt i?

[Madman]

Nope.... Winamp and Clever is enough....

[Sarpanch]

Lol ive tried to make it work any give me step by step guide on how 2 do this? u can just pm me if thats ok wid you :]

[Madman]

Sure...

1) Install winamp
2) Install Clever
3) Go to where you installed Clever
4) Open a new explorer window
5) Go to C:\
5.1) Create a folder called CLEVER on C:
6) Open C:\CLEVER
7) Switch back to the other explorer window
8) Run Clever.exe
9) Type the path to Winamp (For me D:\Program\Winamp)
10) Type 0 or 1, i choose 0
11) Open the script, find the Setup table
12) change ["Clever"] = "The path 2 where you installed clever",
12.1) Do the same with ["Music"] = "Where you have the Mp3s",
13) Rember that you have to type 2 \ in the text above..
if it's C:\Program\Clever\  then type C:\\Program\\Clever\\
Same goes for Music
14) make sure that Winamp and Script are started...
15) Done....

Now you can reconnect to the hub and you should have a menu called WinampScript   If you dont change that as well ;)

[Sarpanch]

Thanks alot Madman, if i need any help ill come back to you if you dont mynd  )  btw does it matter where the music is does it have to be in tha same clever folder? or any and just put the path to it?

[Madman]

The music can be in any folder.. as long as it's on the same compuer...

[deus]

trying to make this bot show who used the command !w.play

want it to be something like this
Playing... track nr: 379  Requested by: USERNAME
and of course i want everyone to see this in MC

i thought it would be something like this:

SendToAll(Setup.Name, "Playing... track nr: " ..nr .."  Requested by: " ..curUser() )

but that didnt work (if it did i wouldnt post here)
*EDIT* fixed the problem above using curUser.sName *EDIT*

one more thing if possible it would be nice to make the bot send a "pretty" on a selected time like every hour or so but only if status is playing

can someone help me? i'm new at coding lua so i really want to learn some more

[Madman]

Originally posted by deus
one more thing if possible it would be nice to make the bot send a "pretty" on a selected time like every hour or so but only if status is playing :P

can someone help me? i'm new at coding lua so i really want to learn some more ;)

Yes.. The bold lines are the ones added...

Setup = {
	["Clever"] = "D:\\Program\\clever\\", -- Where did you install Clever
	["Music"] = "D:\\ServerMusic\\", -- And where do you have you Mp3 files?
	["Name"] = "WinampScript", --The bots name
	-- Outcome of standard  Playing ][ title ][ 
	["BeforeTitle"] = "Playing ][",
	["AfterTitle"] = "][",
	["Menu"] = "WinampScript"[b], -- Notice the , !
	["Time"] = 1,[/b]
}

function Main()
	frmHub:RegBot(Setup.Name)
	[b]SetTimer(1000*60*60*Setup.Time)
	StartTimer()[/b]
end

[b]function OnTimer()
	os.execute(Setup.Clever.. "clever.exe status > winamp.tmp")
	local file = io.open("winamp.tmp")
	local status = file:read("*all") file:close() os.remove("winamp.tmp")
	if status == "Pause" or status == "Stop" then
	else
		os.execute(Setup.Clever.. "clever.exe prettyinfo > winamp.tmp")
		local file = io.open("winamp.tmp")
		local info = file:read("*all") file:close() os.remove("winamp.tmp")
		SendToAll(Setup.Name, "\r\n" ..info) return 1
	end
end[/b]

Thought it was better 2 copy that... then try to instrut u to do that....

The script in the link has NOT been updated...