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
|
function drawPicture()
drawDownBox(8, 31, win[7].w-17, win[7].h-40, 4)
if picture.img ~= 0 then
love.graphics.draw(picture.img, 8, 31)
end
end
function drawVideo()
end
function drawMusic()
drawDownBox(8,31,win[9].w-17,win[9].h-82,4)
love.graphics.setColor(20,20,20)
love.graphics.rectangle("fill",8,31,win[9].w-17,win[9].h-82)
drawControls(8+38,win[9].h-34-8)
drawDownBox(10+38+38+38,win[9].h-34+5,118,5,2)
drawUpBox(mplay.volx,mplay.voly,10,25,2)
love.graphics.setColor(0,256,0)
love.graphics.setFont(pixeloperators)
love.graphics.print(mplay.title, 10,82)
if mplay.p == true then
for i=1,10 do
if mplay.bar[i] == nil then
mplay.bar[i] = {}
mplay.bar[i].h = 20
mplay.bar[i].ht = 20
else
if mplay.bar[i].h > mplay.bar[i].ht then
mplay.bar[i].h = mplay.bar[i].h - 1
elseif mplay.bar[i].h < mplay.bar[i].ht then
mplay.bar[i].h = mplay.bar[i].h + 1
elseif mplay.bar[i].h == mplay.bar[i].ht then
mplay.bar[i].ht = math.random(0,40)
end
love.graphics.rectangle("fill",(23*i)-13,33,21,mplay.bar[i].h)
end
end
end
love.graphics.setFont(pressstart)
end
function drawControls(x,y)
love.graphics.setColor(256,256,256)
drawUpBox(x,y,32,32,2)
love.graphics.draw(but.but, x, y)
drawUpBox(x+38,y,32,32,2)
love.graphics.draw(but.stop, x+38, y)
drawUpBox(x-38,y,32,32,2)
love.graphics.draw(but.back, x-38, y)
end
function updateMusic()
if mouseClick(win[9].x+8+38,win[9].y+win[9].h-34-8,32,32) == true and mplay.m ~= 0 and mplay.pr == false then
if but.but == but.pause then
mplay.m:pause()
mplay.p = false
but.but = but.play
win[9].update = true
elseif but.but == but.play then
mplay.p = true
but.but = but.pause
win[9].update = true
end
mplay.pr = true
elseif mouseClick(win[9].x+8+38-38,win[9].y+win[9].h-34-8,32,32) == true and mplay.m ~= 0 and mplay.pr == false then
mplay.m:rewind()
mplay.p = true
but.but = but.pause
win[9].update = true
mplay.pr = true
elseif mouseClick(win[9].x+8+38+38,win[9].y+win[9].h-34-8,32,32) == true and mplay.m ~= 0 and mplay.pr == false then
mplay.m:stop()
mplay.p = false
but.but = but.play
win[9].update = true
mplay.pr = true
end
if mplay.p == true and mplay.m ~= 0 then
win[9].update = true
mplay.m:play()
end
if win[9].ex == true and mplay.m ~= 0 then
mplay.m:stop()
mplay.m = 0
end
if mplay.m ~= 0 then
local d = mplay.volx - mplay.volxmin
local v = 0.00806451612903226 * d
mplay.m:setVolume(v)
end
if mouseClick(win[9].x+mplay.volx,win[9].y+mplay.voly,10,25) == true and layer[1] == 9 then
mplay.drag = true
end
if mplay.drag == true then
if mplay.volpx + (sys.mouse.x - sys.mouse.p.x) <= mplay.volxmax
and mplay.volpx + (sys.mouse.x - sys.mouse.p.x) >= mplay.volxmin then
mplay.volx = mplay.volpx + (sys.mouse.x - sys.mouse.p.x)
elseif mplay.volpx + (sys.mouse.x - sys.mouse.p.x) > mplay.volxmax then
mplay.volx = mplay.volxmax
elseif mplay.volpx + (sys.mouse.x - sys.mouse.p.x) < mplay.volxmin then
mplay.volx = mplay.volxmin
end
win[9].update = true
else
mplay.volpx = mplay.volx
end
end
|
