[LUA] Questfunktionen by Sensenmann

if in_list(pc.get_level(), {1, 9, 23}) then
if in_list(1, {pc.get_level(), pc.get_armor(), pc.get_alignment()}) then

function in_list(compare, list)
	for i = 1, table.getn(list) do
		if compare == list[i] then return true end
	end
	return false
end

if in_range(pc.get_level(), 25, 50) then

function in_range(compare, value1, value2)
    return compare >= value1 and compare <= value2
end

if compare_list_one({pc.get_level(), pc.get_weapon(), pc.get_alignment()}, {10, 189, 12000}) then

function compare_list_one(list1, list2)
	for i = 1, math.min(table.getn(list1), table.getn(list2)) do
		if list1[i] == list2[i] then return true end
	end
	return false
end

if compare_list_all({pc.get_level(), pc.get_weapon(), pc.get_alignment()}, {10, 189, 12000}) then

function compare_list_all(list1, list2)
	for i = 1, math.min(table.getn(list1), table.getn(list2)) do
		if list1[i] != list2[i] then return false end
	end
	return true
end

min({1, 2, -1, -10, 12, 1, 2, 3, 9})

function min(list)
	table.sort(list)
	return list[1]
end

max({1, 2, -1, -10, 12, 1, 2, 3, 9})

function max(list)
	table.sort(list)
	return list[table.getn(list)]
end

next_val(game.get_event_flag("mehrteiliges_event"), 0, 5)

function next_val(v, start, stop)
	if v < stop then
		return v+1
	else
		return start
	end
end

distinct({1, 1, 1, 2, 3, 3, 1, 2, 5, 4})

function distinct(tbl)
	local ntbl = {}
	local function check_inserted_values(value)
		for _,inserted in ipairs(ntbl) do
			if inserted == value then
				return
			end
		end
		table.insert(ntbl, value)
	end
	for _,value in ipairs(tbl) do
		check_inserted_values(value)
	end
	return ntbl
end

get_smallest_id({1, 2, 3, 4, 6, 7}, -2)
get_smallest_id({1, 2, 3, 4, 6, 7})

function get_smallest_id(tbl, base)
	local j = 1
	table.sort(tbl)
	for i = base or 1, table.getn(tbl) do
		if tbl[j] > i then
			return i
		end
		j = j+1
	end
end

modulo(10, 5)

function modulo(v1, v2)
	return v1-(math.floor(v1/v2)*v2)
end

modulo(10, 5)

function kpwas(v1, v2)
	local str = tostring(v1/v2)
	local i = 1
	repeat
		i = i+1
	until not tonumber(string.sub(str, i, i))
	return tonumber(string.sub(str, i+1))
end

modulo_bool(10, 5)

function modulo_bool(v1, v2)
	return v1/v2 == math.ceil(v1/v2)
end

count({1, 1, 10, 1, 2, 2}, 2)

function count(tbl, v)
	table.sort(tbl)
	local count = 0
	for i = 1, table.getn(tbl) do
		if tbl[i] == v then
			count = count+1
		elseif tbl[i] > v then
			break
		end
	end
	return count
end

math_round(1.5)

math_round(1.4999)

function math_round(var)
	return (var+0.5 >= math.ceil(var) and math.ceil(var) or math.floor(var))
end