Forum

CS2D

Scripts

How to check if the server is playing a sound

Forums overview CS2D overview Scripts overview Log in to reply

How to check if the server is playing a sound

30 replies

1 2

Re: How to check if the server is playing a sound

Zeik
User Off

Offline

23.01.17 11:40:23 pm

I forgot to change queueSound:

1
2
3

function queueSound(id, queue, sound)
  List.push(queue[id], sound)
end

It should work now:

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

-- Queue implementation (https://www.lua.org/pil/11.4.html)

List = {}
Array = {}

function Array.newBooleans(max)
  local array = {}
  for i=0,max do
    array[i] = false
  end
  return array
end

function Array.newLists(max)
  local lists = {}
  for i=0,max do
    lists[i] = List.new()
  end
  return lists
end

function List.new()
  return {first = 0, last = -1}
end

function List.push(list, e)
  list.first = list.first - 1
  list[list.first] = e
end

function List.pop(list)
  if (List.isEmpty(list)) then return nil end
  list.last = list.last - 1
  return list[list.last + 1]
end

function List.isEmpty(list)
  if (list.first > list.last) then return true else return false end
end

-- Using the queue

queue = Array.newLists(32)
isSoundRunning = Array.newBooleans(32)
sounds = {{"mysound1",3000}, {"mysound2",5000}}

function killSound(id)
  isSoundRunning[id] = false
end

function queueSound(id, queue, sound)
  List.push(queue[id], sound)
end

function playSound(id, queue)
  if (isSoundRunning[id] == false) then
    if (not List.isEmpty(queue[id])) then
      isSoundRunning[id] = true
      local sound = List.pop(queue[id])
      if (id == 0) then
        parse("sv_sound "..sound[1])
      else
        parse("sv_sound2 "..id.." "..sound[1])
      end
      timer(sound[2], "killSound", tostring(id))
      print(sound[1])
    end
  end
end

addhook("ms100","ms")
function ms()
  playSound(0, queue)
  for id in ipairs(queue) do
    playSound(id, queue)
  end
end

addhook("kill", "_kill")
function _kill(id)
  -- queueSound(0, queue, sounds[1])
  queueSound(id, queue, sounds[1])
end

Sound durations

VADemon
User Off

Offline

24.01.17 01:19:04 am

That's a quick and simple way to make a list with sound durations:

Code

soundtime = {}

soundtime.dirQueue = {
	"sfx/"
}

soundtime.fileQueue = {}

function soundtime:addDirQueue(dir)
	table.insert(self.dirQueue, dir)
	--print("Directory".. dir .." was added to queue, total dirs: ".. #self.dirQueue)
end

function soundtime:addFileQueue(file)
	table.insert(self.fileQueue, file)
	if file:find("[\128-\255]") then
		print("Extended ASCII: ".. file)
	end
	--print("File ".. file .." was added to queue, total files: ".. #self.fileQueue)
end

function soundtime:scanDir(dir)
	--print("Scanning dir: ".. dir)
	
	for name in io.enumdir(dir) do
		if name ~= "." and name ~= ".." and name ~= "Thumbs.db" then
		
			if io.isdir(dir .. name) then
				self:addDirQueue(dir .. name .."/")
				--print(name)
			else
				self:addFileQueue(dir .. name)
				--print(name)
			end
			
		end
	end
end

function soundtime:startScan()
	local position = 0
	
	while #self.dirQueue > position do
		position = position + 1
		
		--print("Job unit #".. position)
		self:scanDir(self.dirQueue[position])
	end
	
end

function soundtime.getDuration(path)
	local pipe = io.popen("ffprobe -v error -show_entries format=duration -of default=noprint_wrappers=1:nokey=1 \"".. path .."\"")
	local duration
	
	if pipe then
		duration = pipe:read("*l")
		pipe:close()
	end
	
	return duration
end

function soundtime.export()
	local file = assert(io.open("soundtime.lua", "w"))
	if not file then return end
	
	soundtime:startScan()
	
	file:write("return {\n")
	
	for i = 1, #soundtime.fileQueue do
		local duration = soundtime.getDuration(soundtime.fileQueue[i])
		if duration then	-- some files are invalid, some will not be found due to Unicode chars
			file:write("[\"".. soundtime.fileQueue[i] .."\"] = ".. tostring(duration) ..",\n")
		end
	end
	
	file:write("}")
	file:close()
	
	msg("Soundtime has finished export")
end

Download ffmpeg's "ffprobe.exe" and put it to CS2D root folder (ffmpeg package for Linux)

Put the script to autorun/

Start in-game server and type this in console: "lua soundtime.export()"

Wait 2-10 minutes

cs2d/soundtime.lua will contain the sound times

Some files will not return a duration because ffmpeg thinks they're corrupt

Load this list with:

local longtablenamesmakemytaillonger = dofile("soundtime.lua")

The table consists of
["sound path"] = "duration in seconds"

Re: How to check if the server is playing a sound

Mami Tomoe
User Off

Offline

24.01.17 01:39:31 pm

Zeik: One error has left:

1
2
3
4
5
6

LUA ERROR: sys/lua/cool stuff/play.lua:27: attempt to index local 'list' (a nil value)
 -> sys/lua/cool stuff/play.lua:27: in function 'push'
 -> sys/lua/cool stuff/play.lua:61: in function 'queueSound'
 -> sys/lua/cool stuff/main.lua:4: in main chunk
 -> [C]: in function 'dofile'
 -> sys/lua/server.lua:2: in main chunk

I have a question how to call

sv_sound

and how to call

sv_sound2

?
is it

queueSound(0,queue,sound[1])

for all and change 0 to id for one?

I also sometimes get this in console is that normal?

FATAL ERROR [UNHANDLED EXCEPTION]: CreateSoundBuffer failed (87)

Re: How to check if the server is playing a sound

Zeik
User Off

Offline

24.01.17 02:00:15 pm

Mami Tomoe: You have to create the queue like this:

queue = Array.newLists(32)

Are you doing it that way?

You call queueSound with 0 when the sound is for all:

queueSound(0, queue, sounds[1])

And with id when it's private:

queueSound(id, queue, sounds[1])

Re: How to check if the server is playing a sound

Mami Tomoe
User Off

Offline

24.01.17 03:13:41 pm

Yeah I have exactly the code you gave me in that more tag all I changed was the table for sounds

Isn't the list meant to be List?

When I put l

ua queueSound(0,queue,sounds[1])

in console I get this thing:

FATAL ERROR [UNHANDLED EXCEPTION]: CreateSoundBuffer failed (87)

And after a few seconds CS2D stops responding

edited 3×, last 24.01.17 03:28:04 pm

Re: How to check if the server is playing a sound

Zeik
User Off

Offline

24.01.17 06:14:11 pm

EDIT: Okay I debugged it and found out this:

1
2
3

function killSound(id)
  isSoundRunning[id] = false
end

The timer function was sending a id string and I forgot to convert it to number so it actually never "killed" the sound.

Here's the completely functional script with an example:

-- Queue implementation (https://www.lua.org/pil/11.4.html)

List = {}
Array = {}

function Array.newBooleans(max)
  local array = {}
  for i=0,max do
    array[i] = false
  end
  return array
end

function Array.newLists(max)
  local lists = {}
  for i=0,max do
    lists[i] = List.new()
  end
  return lists
end

function List.new()
  return {first = 0, last = -1}
end

function List.push(list, e)
  list.first = list.first - 1
  list[list.first] = e
end

function List.pop(list)
  if (List.isEmpty(list)) then return nil end
  list.last = list.last - 1
  return list[list.last + 1]
end

function List.isEmpty(list)
  if (list.first > list.last) then return true else return false end
end

-- Using the queue

queue = Array.newLists(32)
isSoundRunning = Array.newBooleans(32)
sounds = {{"fun/doublekill.wav",1000}, {"fun/firstblood.wav",1000}}

function killSound(id)
  isSoundRunning[tonumber(id)] = false
end

function queueSound(id, queue, sound)
  List.push(queue[id], sound)
end

function playSound(id, queue)
  if (isSoundRunning[id] == false) then
    if (not List.isEmpty(queue[id])) then
      isSoundRunning[id] = true
      local sound = List.pop(queue[id])
      if (id == 0) then
        parse("sv_sound "..sound[1])
      else
        parse("sv_sound2 "..id.." "..sound[1])
      end
      timer(sound[2], "killSound", tostring(id))
    end
  end
end

addhook("ms100","ms")
function ms()
  playSound(0, queue)
  for id in ipairs(queue) do
    playSound(id, queue)
  end
end

addhook("kill", "_kill")
function _kill(id)
  -- queueSound(0, queue, sounds[1])
  queueSound(id, queue, sounds[1])
end

edited 2×, last 24.01.17 06:41:28 pm

Re: How to check if the server is playing a sound

Mami Tomoe
User Off

Offline

24.01.17 06:55:01 pm

I have fixed a few bugs and now the script works but after a few seconds the script stops working with no errors at all so I did some debugging and I found this:

isSoundRunning[1]

is true even though there is no sound running.
Setting

isSoundRunning[1]

to false manually prints that:

FATAL ERROR [UNHANDLED EXCEPTION]: CreateSoundBuffer failed (87)

and will leave the isSoundRunning[1] as true unless I enter it a few more times.

Re: How to check if the server is playing a sound

Zeik
User Off

Offline

24.01.17 07:17:29 pm

I pointed out the solution in the comment just before yours

I tested it and it works perfectly. So if it doesn't work then you're doing something wrong with it.

PS: If you don't understand how it works or don't mind understanding it, then I'd recommend you to leave it as it is so you don't break anything.
Just modify this with your own sounds:

sounds = {{"fun/doublekill.wav",1000}, {"fun/firstblood.wav",1000}}

And then play a sound using only this function call changing the id argument for 0 if its a global sound or with a number between 1 and 32 to play it for a specific player only:

queueSound(id, queue, sounds[1])

If you change anything else in the script then you may mess up and it's up to you to fix it.

Re: How to check if the server is playing a sound

Mami Tomoe
User Off

Offline

25.01.17 01:24:37 pm

Thank you it all works now!
One last problem though is that when both functions are being used then both sounds will play, like the following:

1
2

queueSound(0,queue,sounds[2])
queueSound(id,queue,sounds[3])

In this case

id

will hear both sounds while other players only one

id

should be able to hear both sounds though

edited 1×, last 25.01.17 02:02:51 pm

Re: How to check if the server is playing a sound

Zeik
User Off

Offline

25.01.17 07:39:45 pm

If you want it like that then just change queueSound for this:

1
2
3
4
5
6
7
8
9

function queueSound(id, queue, sound)
  if (id ~= 0) then
    List.push(queue[id], sound)
  else
    for i in ipairs(queue) do
      List.push(queue[i], sound)
    end
  end
end

Re: How to check if the server is playing a sound

Mami Tomoe
User Off

Offline

25.01.17 07:54:15 pm

Thank you

I think it all works now

1 2