Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #define WHITELIST_FILE "data/yellow_whitelist.txt"
- var/global/y_whitelist = list()
- proc
- load_ywhitelist()
- if (!fexists(WHITELIST_FILE)) //Doesn't it exists?
- text2file(null, WHITELIST_FILE) //CREATE IT
- y_whitelist = file2list(WHITELIST_FILE)
- isInWhitelist(var/K)
- load_ywhitelist()
- K = ckey(K)
- if (K in y_whitelist)
- return 1
- return 0
- addInWhitelist(var/K as text)
- load_ywhitelist()
- K = ckey(K)
- if (isInWhitelist(K))
- return 0
- text2file(K, WHITELIST_FILE)
- return 1
- removeFromWhitelist(var/K as text)
- load_ywhitelist()
- K = ckey(K)
- if (K in y_whitelist)
- y_whitelist -= K
- fdel(WHITELIST_FILE)
- text2file(dd_list2text(y_whitelist, "\n"), WHITELIST_FILE) //Goddamn BYOND.
- return 1
- return 0
- /datum/admins/proc
- AddIn()
- set category = "Server"
- set name = "Add in whitelist"
- if (usr.client.holder.rank in list("Game Master", "Host", "Game Admin"))
- var/ask = input(usr, "Do you want to add...", 0) as num
- if (!ask && ask < 0)
- return
- for (var/i=1, i<=ask,i++)
- var/key = input(usr, "A key:") as text
- if (!key)
- return
- if (!addInWhitelist(key))
- usr << "[ckey(key)] is already there"
- return
- log_admin("\blue [key_name_admin(usr)] added [ckey(key)] in the whitelist")
- message_admins("[key_name_admin(usr)] has added [ckey(key)] to whitelist.", 1)
- else
- usr << "\red You don't have such high rank to do this."
- RemoveFrom()
- set category = "Server"
- set name = "Remove from whitelist"
- if (usr.client.holder.rank in list("Game Master", "Host", "Game Admin"))
- var/ask = input(usr, "Do you want to remove...", 0) as num
- if (!ask && ask < 0)
- return
- for (var/i=1, i<=ask,i++)
- var/key = input(usr, "A key:") as text
- if (!key)
- return
- if (!removeFromWhitelist(key))
- usr << "[ckey(key)] isn't in there."
- return
- log_admin("\blue [key_name_admin(usr)] removed [ckey(key)] from the whitelist")
- message_admins("[key_name_admin(usr)] has removed [ckey(key)] from whitelist.", 1)
- else
- usr << "\red You don't have such high rank to do this."
- InWhitelist()
- set category = "Server"
- set name = "Is player in whitelist?"
- var/key = input(usr, "A key:") as text
- if (!key)
- return
- if (isInWhitelist(key))
- usr << "[ckey(key)] is in the whitelist"
- else
- usr << "[ckey(key)] isn't in the whitelist"
- ShowWhitelist()
- set category = "Server"
- set name = "Show whitelist"
- load_ywhitelist()
- var/dat = dd_list2text(y_whitelist, "<br>")
- usr << browse(dat, "window=whitelist")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement