blob: 984dd8c24800647165c36144bc07c31e9056024e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
######################################################################################################
#
# playing KVIrc script
#
# I started this script cause I was scared about the colors of Pragmas mp3share script
# and the insecierness of dcc download.
#
# So I did set up this little script for mp3 advertising based on Pragmas ugly mp3share.
#
# Hints, donations and stuff can be delivered to istari@kvirc.net.
#
# This small script communicates with the platform mp3 player
# and advertises the currently played song
#
# The following things are left as exercise to the readed:
#
# - starting the platform mp3player if it is not running
#
######################################################################################################
file.mkdir $file.localdir(pics)
file.copy -o $file.extractPath($0)/playing_icon.png $file.localdir(pics/playing_icon.png)
action.create -w=cqd (playing_adv,$tr("Advertise MP3"),$tr("Advertises the currently played song"),playing_icon.png)
{
if(!($mp3player.isplaying))
{
echo It looks like your mp3 player is not playing
halt
}
switch ($mp3player.getchannels())
{
case("1"): %channel="mono"
break
case("2"): %channel="stereo"
break
}
%tmins = $($mp3player.getlength / 60000)
%tsecs = $(($mp3player.getlength % 60000) / 1000)
%tsecs1 = $(%tsecs / 10)
%tsecs2 = $(%tsecs % 10)
%mins = $($mp3player.gettime / 60000)
%secs = $(($mp3player.gettime % 60000) / 1000)
%secs1 = $(%secs / 10)
%secs2 = $(%secs % 10)
%rate = $($mp3player.getrate / 1000)
%size = $file.size("$mp3player.getfilename")
%msize = $(%size / (1024*1024))
%ksize = $((%size - ((%size / (1024*1024)) * 1024 * 1024) - (%size % 1024)) / 1024)
%bsize = $(%size % 1024)
if(%size > 0)
{
if(%msize > 0)
{
%size = "%msize MByte %ksize KByte"
}else{
if(%ksize > 0)
{
%size = "%ksize KByte %bsize Byte"
}else{
%size = "%bsize Byte"
}
}
me is listening to $mp3player.gettitle() =- %mins:%secs1%secs2 of %tmins:%tsecs1%tsecs2 -=- %rate Kbps -=- \
$mp3player.getfreq Hz -=- %channel -=- %size -=$o
}else{
me is streaming \"$mp3player.gettitle()\" from $mp3player.getfilename =- %mins:%secs1%secs2 mins -=- %rate Kbps -=- \
$mp3player.getfreq Hz -=- %channel -=$o
}
# offer.add -t=$(($mp3player.getlength / 1000) + 60) \
# -n="mp3_$mp3player.getposition" $mp3player.getfilename;
}
toolbar.create playing $tr("MP3 Sharing")
toolbar.additem playing playing_advertise
toolbar.show playing
alias(playing_uninstall)
{
# Kill the playing_adv alias
action.destroy -q playing_adv
# Kill this alias
alias(playing_uninstall){}
}
playing_addbutton
echo The playing script is installed.
if("$system.ostype" == "windows")
{
echo On Windows you need the Winamp multimedia player
echo freely available at http://www.winamp.com
echo You also need to install the gen_kvirc.dll from the KVIrc
echo distribution as a Winamp plugin (this involves copying the
echo file to the winamp \"plugins\" directory).
} else {
echo On Unix you need the Xmms multimedia player
echo freely available at http://www.xmms.org
}
echo Use playing_uninstall to uninstall the script.
echo Have fun :)
|
