/
githubmirror
/
vgstation13
Обзор
Документация
Войти
/
githubmirror
/
vgstation13
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
Bleeding-Edge
code/modules/scripting/Implementations/_Logic.dm
240 строк
5 KB
DamianX
Changed all relative paths to absolute (#31078)
19 окт 2021, 00:28
Не верифицирован
19 окт 2021, 00:28
a443872
Код
Авторство
О чём код?
// Script -> BYOND code procs #define SCRIPT_MAX_REPLACEMENTS_ALLOWED 200 // --- List operations (lists known as vectors in n_script) --- // Clone of list() /proc/n_list() var/list/returnlist = list() for(var/e in args) returnlist.Add(e) return returnlist // Clone of pick() /proc/n_pick() var/list/finalpick = list() for(var/e in args) if(isobject(e)) if(istype(e, /list)) var/list/sublist = e for(var/sube in sublist) finalpick.Add(sube) continue finalpick.Add(e) return pick(finalpick) // Clone of list[] /proc/n_listpos(var/list/L, var/pos, var/value) if(!istype(L, /list)) return if(isnum(pos)) if(!value) if(L.len >= pos && !(pos > L.len)) return L[pos] else if(L.len >= pos && !(pos > L.len)) L[pos] = value else if(istext(pos)) if(!value) return L[pos] else L[pos] = value // Clone of list.Copy() /proc/n_listcopy(var/list/L, var/start, var/end) if(!istype(L, /list)) return return L.Copy(start, end) // Clone of list.Add() /proc/n_listadd() var/list/chosenlist var/i = 1 for(var/e in args) if(i == 1) if(isobject(e)) if(istype(e, /list)) chosenlist = e i = 2 else if(chosenlist) chosenlist.Add(e) // Clone of list.Remove() /proc/n_listremove() var/list/chosenlist var/i = 1 for(var/e in args) if(i == 1) if(isobject(e)) if(istype(e, /list)) chosenlist = e i = 2 else if(chosenlist) chosenlist.Remove(e) // Clone of list.len = 0 /proc/n_listcut(var/list/L, var/start, var/end) if(!istype(L, /list)) return return L.Cut(start, end) // Clone of list.Swap() /proc/n_listswap(var/list/L, var/firstindex, var/secondindex) if(!istype(L, /list)) return if(L.len >= secondindex && L.len >= firstindex) return L.Swap(firstindex, secondindex) // Clone of list.Insert() /proc/n_listinsert(var/list/L, var/index, var/element) if(!istype(L, /list)) return return L.Insert(index, element) // --- Miscellaneous functions --- // Clone of sleep() /proc/delay(var/time) sleep(time) // Clone of rand() /proc/rand_chance(var/low = 0, var/high) return rand(low, high) // Clone of prob() /proc/prob_chance(var/chance) return prob(chance) // Merge of list.Find() and findtext() /proc/smartfind(var/haystack, var/needle, var/start = 1, var/end = 0) if(haystack && needle) if(isobject(haystack)) if(istype(haystack, /list)) if(length(haystack) >= end && start > 0) var/list/listhaystack = haystack return listhaystack.Find(needle, start, end) else if(istext(haystack)) return findtext_char(haystack, needle, start, end) // Clone of copytext() /proc/docopytext(var/string, var/start = 1, var/end = 0) if(istext(string) && isnum(start) && isnum(end)) if(start > 0) return copytext(string, start, end) // Clone of length() /proc/smartlength(var/container) if (istext(container)) return length_char(container) return length(container) // BY DONKIE~ // String stuff /proc/n_lower(var/string) if(istext(string)) return lowertext(string) /proc/n_upper(var/string) if(istext(string)) return uppertext(string) /proc/time() return world.time + (12 HOURS) /proc/timestamp(var/format = "hh:mm:ss") // Get the game time in text return time2text(world.time + (10 HOURS), format) // Yes, 10, not 12 hours, for some reason time2text() is being moronic (T-thanks BYOND), and it's adding 2 hours to this, I don't even know either. /proc/string_explode(var/string, var/separator = "") if(istext(string) && (istext(separator) || isnull(separator))) return splittext(string, separator) /proc/n_repeat(var/string, var/amount) if(istext(string) && isnum(amount)) var/i var/newstring = "" if(length(newstring)*amount >=1000) return for(i=0, i<=amount, i++) if(i>=1000) break newstring = newstring + string return newstring // I don't know if it's neccesary to make my own proc, but I think I have to to be able to check for istext. /proc/n_str2num(var/string) if(istext(string)) return text2num(string) // Clamps N between min and max /proc/n_clamp(var/num, var/min = 0, var/max = 1) if(isnum(num) && isnum(min) && isnum(max)) return clamp(num, min, max) // Number shit /proc/n_num2str(var/num) if(isnum(num)) return num2text(num) // Squareroot /proc/n_sqrt(var/num) if(isnum(num)) return sqrt(num) // Magnitude of num /proc/n_abs(var/num) if(isnum(num)) return abs(num) // Round down /proc/n_floor(var/num) if(isnum(num)) return round(num) // Round up /proc/n_ceil(var/num) if(isnum(num)) return round(num)+1 // Round to nearest integer /proc/n_round(var/num) if(isnum(num)) if(num-round(num)<0.5) return round(num) return n_ceil(num) /proc/n_sin(var/const/x) return sin(x) /proc/n_cos(var/const/x) return cos(x) /proc/n_asin(var/const/x) return arcsin(x) /proc/n_acos(var/const/x) return arccos(x) /proc/n_max(...) return max(arglist(args)) /proc/n_min(...) return min(arglist(args)) /proc/n_replacetext(Haystack, Needle, Replacement, Start = 1, End = 0) try // Let's not cause runtimes due to people screwing up NTSL. return replacetext(Haystack, Needle, Replacement, Start, End) catch return /proc/n_replacetextEx(Haystack, Needle, Replacement, Start = 1, End = 0) try // Ditto. return replacetextEx(Haystack, Needle, Replacement, Start, End) catch return