View previous topic :: View next topic |
Author |
Message |
LiquidCode Moderator Team
Joined: 05 Dec 2000 Posts: 1751 Location: Space and Time
|
Posted: Thu Aug 07, 2003 7:55 pm Post subject: WinAmp Control DSU |
|
|
Here is a WinAmp Control DSU file. Not Much, but, you may find it usefull and fun to play with.
Download _________________ Chris
Http://theblindhouse.com
Last edited by LiquidCode on Fri Aug 08, 2003 2:17 pm; edited 1 time in total |
|
Back to top |
|
|
Skit3000 Admin Team
Joined: 11 May 2002 Posts: 2166 Location: The Netherlands
|
Posted: Fri Aug 08, 2003 9:59 am Post subject: |
|
|
This can be handy for people who have for example a wireless mouse and have there PC in the living room. That way you can let your mouse act as a remote controller by catching the mouseclicks on the screen.
Example:
Code: | #Include WinAmpControl.dsu
#Define Command, WAC
WAC StartWA
%%text = %%text@lf()""Left-Left@tab()@tab()Next
%%text = %%text@lf()""Left-Center@tab()Pause
%%text = %%text@lf()""Left-Right@tab()Next
%%text = %%text@lf()@lf()""Center-Left@tab()Volume Up
%%text = %%text@lf()""Center-Center@tab()Play / Stop
%%text = %%text@lf()""Center-Right@tab()Volume Down
%%text = %%text@lf()@lf()""Right-Left@tab()Repeat
%%text = %%text@lf()""Right-Center@tab()Play Audio CD
%%text = %%text@lf()""Right-Right@tab()Shuffle
DIALOG CREATE,Wireless Winamp Control,-1,0,@sysinfo(SCREENWIDTH),@sysinfo(SCREENHEIGHT),CLICK
DIALOG ADD,STYLE,STYLE1,,18,,,
DIALOG ADD,TEXT,TEXT1,200,240,,,%%text,,STYLE1,CLICK
DIALOG SHOW
:Evloop
wait event
goto @event()
:Text1Click
:Click
%%mousebutton = @click(B)
if @equal(%%mousebutton,LEFT)
wait event,1
if @not(@equal(@event(),TIMER))
%%mousebutton = @click(B)
if @equal(%%mousebutton,LEFT)
WAC Next
beep
end
if @equal(%%mousebutton,CENTER)
WAC Pause
beep
end
if @equal(%%mousebutton,RIGHT)
WAC Prev
beep
end
end
end
if @equal(%%mousebutton,CENTER)
wait event,1
if @not(@equal(@event(),TIMER))
%%mousebutton = @click(B)
if @equal(%%mousebutton,LEFT)
WAC VolUp
beep
end
if @equal(%%mousebutton,CENTER)
if @equal(%%playing,true)
WAC Stop
beep
%%playing = false
else
WAC Play
beep
%%Playing = true
end
end
if @equal(%%mousebutton,RIGHT)
WAC VolDwn
beep
end
end
end
if @equal(%%mousebutton,RIGHT)
wait event,1
if @not(@equal(@event(),TIMER))
%%mousebutton = @click(B)
if @equal(%%mousebutton,LEFT)
WAC Repeat
beep
end
if @equal(%%mousebutton,CENTER)
WAC AudioCD
beep
end
if @equal(%%mousebutton,RIGHT)
WAC Shuffle
beep
end
end
end
goto Evloop
:Close
exit |
_________________ [ Add autocomplete functionality to your VDS IDE windows! ]
Voor Nederlandse beginners met VDS: bekijk ook eens deze tutorial! |
|
Back to top |
|
|
LiquidCode Moderator Team
Joined: 05 Dec 2000 Posts: 1751 Location: Space and Time
|
|
Back to top |
|
|
Skit3000 Admin Team
Joined: 11 May 2002 Posts: 2166 Location: The Netherlands
|
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You can attach files in this forum You can download files in this forum
|
|