cyberpresidentvanellope/Paradise
1
0
Fork 0
mirror of https://github.com/ParadiseSS13/Paradise.git synced 2026-07-21 03:55:05 +01:00
Code Issues Packages Projects Releases Wiki Activity

Made banned people who aren't banned under the same key they are trying to log in as show what key they were banned as to admins

Browse Source 
turned on the thing to show where to go to appeal
This commit is contained in:
Miniature
2012-05-12 00:48:17 +09:30
parent e3772d4158
commit 77987f76f5
3 changed files with 26 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
code/modules/admin/NewBan.dm
+24 -4
View File
@@ -36,10 +36,16 @@ var/savefile/Banlist
ClearTempbans()
return 0
else
return "[Banlist["reason"]]\n(This ban will be automatically removed in [GetBanExp(Banlist["minutes"])].)"
log_access("Failed Login: [clientvar] - Banned")
message_admins("\blue Failed Login: [clientvar] - Banned")
alert(clientvar,"You have been banned.\nReason : [Banlist["reason"]]\n(This ban will be automatically removed in [GetBanExp(Banlist["minutes"])].)[config.appeal_address ? "\nYou may try to appeal this at [config.appeal_address]" : ""]","Ban","Ok")
return 1
else
Banlist.cd = "/base/[key][id]"
return "[Banlist["reason"]]\n(This is a permanent ban)"
log_access("Failed Login: [clientvar] - Banned")
message_admins("\blue Failed Login: [clientvar] - Banned")
alert(clientvar,"You have been banned.\nReason : [Banlist["reason"]]\n(This is a permanent ban.)[config.appeal_address ? "\nYou may try to appeal this at [config.appeal_address]" : ""]","Ban","Ok")
return 1
Banlist.cd = "/base"
for (var/A in Banlist.dir)
@@ -50,9 +56,23 @@ var/savefile/Banlist
ClearTempbans()
return 0
else
return "[Banlist["reason"]]\n(This ban will be automatically removed in [GetBanExp(Banlist["minutes"])].)"
if(key != Banlist["key"])
log_access("Failed Login: [clientvar] - Banned as [Banlist["key"]]")
message_admins("\blue Failed Login: [clientvar] - Banned as [Banlist["key"]]")
else
log_access("Failed Login: [clientvar] - Banned")
message_admins("\blue Failed Login: [clientvar] - Banned")
alert(clientvar,"You have been banned.\nReason : [Banlist["reason"]]\n(This ban will be automatically removed in [GetBanExp(Banlist["minutes"])].)[config.appeal_address ? "\nYou may try to appeal this at [config.appeal_address]" : ""]","Ban","Ok")
return 1
else
return "[Banlist["reason"]]\n(This is a permanent ban)"
if(key != Banlist["key"])
log_access("Failed Login: [clientvar] - Banned as [Banlist["key"]]")
message_admins("\blue Failed Login: [clientvar] - Banned as [Banlist["key"]]")
else
log_access("Failed Login: [clientvar] - Banned")
message_admins("\blue Failed Login: [clientvar] - Banned")
alert(clientvar,"You have been banned.\nReason : [Banlist["reason"]]\n(This is a permanent ban.)[config.appeal_address ? "\nYou may try to appeal this at [config.appeal_address]" : ""]","Ban","Ok")
return 1
return 0