Offline
Stream functions library for Lua (14)Not sure if it can do what i need.
Basically i want all maps in the "maps/" folder to be in an infinite menu. Can someone help me? (I have the infinite menu already)
Forum
CS2D
Scripts Read maps for a menu
Read maps for a menu
12 replies
1 
Stream functions library for Lua (14)Not sure if it can do what i need.
Basically i want all maps in the "maps/" folder to be in an infinite menu. Can someone help me? (I have the infinite menu already)
I cant send you the source code of it because the computer when the file is stored dont turns on. If i get the PC back i tell you.
Admin/mod comment
Removed the random off-topic message from your post /DC
_Yank: Okay thanks. 
sheeL I thought you left the website...? OT: I also made that and encountered the same problem as
_Yank. Maybe there's a way to let the script only read .map? 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
function get_map_table(d)
local t = {}
-- Detect OS
if ( os.execute("uname -o") == "GNU/Linux" ) then
-- We're on a GNU/Linux machine, will list only maps
local s = os.execute("ls -aX maps/ | grep *.map")
for w in string.gmatch(s, "[^\n]+") do
t[#t+1] = w
end
return t
else
-- Assume Windows, will list all files even if they aren't maps (you could filter it out by removing any strings that don't end with '.map')
local s = os.execute("dir /B maps/")
for w in string.gmatch(s, "[^\n]+") do
t[#t+1] = w
end
return t
end
end
_Yank: This interests you? haha@
archmage: No work's hahha, and he maybe no go try use Linux(maybe). 1
parse("maps")
maps 
VADemon won the party.That's really shows all the maps, now I'm trying to make all the maps to be shown in the menu.
@
VADemon: Can you help me with a menu example with parse("maps")? Load maps in a lua Menuio.popen version(Windows)
1
2
3
4
5
6
7
8
9
10
11
2
3
4
5
6
7
8
9
10
11
function ScanMap(ext)
local temp={}
local lpstr=io.popen("dir /b maps\\")
for w in lpstr:read("*a"):gmatch("[^\n]+") do
if w:sub(-4)==".map" then
table.insert(temp,ext==true and w:sub(1,-5) or w)
end
end
lpstr:close()
return temp
end
addhook log > function to save map names parse "maps" map list is saved by now (log hook), removehook log2) By now every map name should be in the table, sorting into "official" map types (de_ zm_ etc.), everything else in alphabetical order
3) Use
[EngiN33R] UniMenu (31) (with caching on server start)4) PROFIT
I am lazy.
It's all well and good, except you also need to grab the output from the console. Still, it's not that difficult, and it's more universal and generally safer than using the system shell, so
VADemon wins a prize for thinking differently.Try this, I tested it and it should work well.
EDIT: As per VADemon's suggestion, I shortened the code and generally made it a bit more elegant.
1
2
3
4
5
6
7
8
9
10
11
12
13
2
3
4
5
6
7
8
9
10
11
12
13
maplist = {}
function grabmaps(txt)
if (txt ~= "----- Maps -----") then
maplist[#maplist+1] = txt
end
end
function showMaps()
addhook("log","grabmaps")
parse("maps")
freehook("log","grabmaps")
end
If anyone want to make something similiar in the future i used this piece of code:
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
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
os.execute('dir "maps" > tmp')
maps2={}
for file in io.lines("tmp") do
if file:sub(-4) == ".map" then
table.insert(maps2,string.sub(file,38,-5))
end
end
os.execute('del tmp') --windows
addhook("say","_say")
function _say(id,txt)
if txt == "!lol" then
for _,map in ipairs(maps2) do
msg(map) --showing that it works
end
end
end
function selectmenu(id, page)
local page = page or 1
local pages = math.ceil(#maps2 / 6)
if page < 1 then page = pages end
if page > pages then page = 1 end
local m = 'Start a vote for a new map P'.. page
for i = 6 * page - 5, 6 * page do
if maps2[i] then m = m ..', '.. maps2[i] else m = m ..',' end
end
if page == pages then m = m ..',,<<- First page' else m = m ..',,Next page -->' end
if page == 1 then m = m ..',Last page ->>' else m = m ..',<-- Previvius page' end
menu(id, m)
end
Thanks all for help !
1