mirror of
https://github.com/goonstation/goonstation-2020.git
synced 2026-07-15 00:52:25 +01:00
ZeWaka
101 lines
2.6 KiB
Plaintext
101 lines
2.6 KiB
Plaintext
#define islist(x) istype(x, /list)
|
|
|
|
/proc/shuffle(var/list/shufflelist)
|
|
if(!shufflelist)
|
|
return
|
|
. = list()
|
|
var/list/old_list = shufflelist.Copy()
|
|
while(old_list.len)
|
|
var/item = pick(old_list)
|
|
. += item
|
|
if(old_list[item])
|
|
.[item] = old_list[item]
|
|
old_list -= item
|
|
|
|
/proc/uniquelist(var/list/L)
|
|
. = list()
|
|
for(var/item in L)
|
|
if(!(item in .))
|
|
. += item
|
|
|
|
proc/pickweight(list/L) // make this global
|
|
var/total = 0
|
|
var/item
|
|
for(item in L)
|
|
if(!L[item]) L[item] = 1 // if we didn't set a weight, call it 1
|
|
total += L[item]
|
|
total=rand(1, total)
|
|
for(item in L)
|
|
total-=L[item]
|
|
if(total <= 0) return item
|
|
return null // this should never happen, but it's a fallback
|
|
|
|
/proc/reverse_list(var/list/the_list)
|
|
var/list/reverse = list()
|
|
for(var/i = the_list.len, i > 0, i--)
|
|
reverse.Add(the_list[i])
|
|
return reverse
|
|
|
|
//Based on code from Popisfizzy: http://www.byond.com/forum/?post=134331#comment750984
|
|
proc/params2complexlist(params)
|
|
//This is a replacement for params2list that allows grouping with parentheses, to enable
|
|
//storing a list in a list.
|
|
//Example input: "name1=val1&name2=(name3=val3&name4=val4)&name5=val5"
|
|
//Example output list:
|
|
//name1 = val1
|
|
//name2 = name3=val3&name4=val4
|
|
//name5 = val5
|
|
if(!istext(params)) return
|
|
var/list/rlist = list()
|
|
var/len = length(params)
|
|
var/element = null
|
|
var/a = 1,p_count = 1
|
|
while(a < len)
|
|
a++
|
|
//Found a separator for a parameter-value pair. Store it
|
|
if(findtext(params,"&",a,a+1))
|
|
rlist += params2list(copytext(params,1,a))
|
|
params = copytext(params,a+1)
|
|
len = length(params)
|
|
a = 1
|
|
//Found a parameter with a complex value.
|
|
else if(findtext(params,"(",a,a+1))
|
|
//Store the element name
|
|
element = copytext(params,1,a-1)
|
|
params = copytext(params,a+1)
|
|
len = length(params)
|
|
a = 0
|
|
|
|
//Check for the matching parenthesis
|
|
p_count = 1
|
|
while(p_count)
|
|
a++
|
|
if(findtext(params,"(",a,a+1)) p_count ++
|
|
if(findtext(params,")",a,a+1)) p_count --
|
|
if(a >= len && p_count)
|
|
//Didn't find matching parenthesis and at end of string
|
|
//Invalid params list
|
|
return
|
|
|
|
//Found a matching parenthesis. Store it and the value in the list
|
|
rlist[element] = copytext(params,1,a)
|
|
|
|
//Check if we need to parse more
|
|
if(a >= len)
|
|
return rlist
|
|
else
|
|
params = copytext(params,a+2)
|
|
len = length(params)
|
|
a = 1
|
|
|
|
//Parse the remaining param string for the last list element
|
|
rlist += params2list(copytext(params,1))
|
|
return rlist
|
|
|
|
/proc/next_in_list(var/thing, var/list)
|
|
if (thing == list[length(list)])
|
|
return list[1]
|
|
for (var/v in 1 to length(list))
|
|
if (v > 1 && list[v-1] == thing)
|
|
return list[v]
|
|
return list[1] |