v2+ Unique ID 2.0 - Halonet.net

LUA 237

V2+ Unique ID 2.0 By xdedeone on 26th February 2019 05:23:03 PM

--[[
Creator: AelitePrime
Script Name: Unique ID Script
Website: http://phasorscripts.wordpress.com/
Xfire: eliteprime14789x
Version: 2.0
Reason for Update:
- Phasor Update
]]
-- Modify
max_history = 25
-- Do not Modify
history = {}
players = 0
history_count = 0
player_ids = {}
unique_ids = {}
function GetRequiredVersion()
return 200
end
function OnScriptLoad(process, game, persistent)
profilepath = getprofilepath()
local file = io.open(profilepath .. "//data//uniqueids.data","r")
if file then
for line in file:lines() do
if line ~= nil then
local words = tokenizestring(line, ",")
settable(words[1], words[2], words[3], words[5], words[6], tonumber(words[4]))
players = tonumber(words[4])
end
end
players = players + 1
file:close()
end
for player=0,15 do
if getplayer(player) then
local name = getname(player)
local hash = gethash(player)
local ip = getip(player)
player_ids[player] = players
local bool = true
for i=0,#unique_ids do
if unique_ids[i] then
local words = tokenizestring(unique_ids[i].ip, ".")
unique_ids[i].ip2 = words[1] .."."..words[2]
local ip2 = string.sub(ip, 0, string.len(unique_ids[i].ip2))
if unique_ids[i].ip == ip or unique_ids[i].name == name or unique_ids[i].hash == hash or unique_ids[i].ip2 == ip2 then
if unique_ids[i].ip == ip then
player_ids[player] = i
bool = false
break
elseif unique_ids[i].name == name and unique_ids[i].hash == hash then
player_ids[player] = i
bool = false
break
elseif ip2 == unique_ids[i].ip2 and hash == unique_ids[i].hash or name == unique_ids[i].name then
player_ids[player] = i
bool = false
break
end
end
end
end
playerid = player_ids[player]
if bool then
settable(name, hash, ip, "false", 0, playerid)
players = players + 1
else
if unique_ids[playerid].banned == "true" then
settable(name, hash, ip, "true", unique_ids[playerid].time, playerid)
IDban(player)
else
settable(name, hash, ip, "false", 0, playerid)
end
end
end
end
timer = registertimer(990, "Timer")
end
function OnScriptUnload()
local file = io.open(profilepath .. "//data//uniqueids.data","w")
for i = 0,#unique_ids do
if unique_ids[i] then
file:write(unique_ids[i].name.. "," .. unique_ids[i].hash .. "," .. unique_ids[i].ip .. "," .. unique_ids[i].id .. "," .. unique_ids[i].banned .. "," .. unique_ids[i].time .."\n")
end
end
end
function OnGameEnd(stage)
if stage == 1 and timer then
removetimer(timer)
timer = nil
end
end
function OnServerCommand(player, command)
local response = nil
local t = tokenizecmdstring(command)
local count = #t
t[1] = string.lower(t[1])
if t[1] == "sv_banid" then
response = false
Command_UniqueIDBan(player, t[1], t[2], t[3], count)
elseif t[1] == "sv_playersids" then
response = false
Command_UniqudIDPlayersList(player, t[1], count)
elseif t[1] == "sv_search" then
response = false
Command_Search(player, t[1], t[2], count)
elseif t[1] == "sv_history" then
response = false
Command_History(player, t[1], count)
elseif t[1] == "sv_idbanlist" then
response = false
Command_UniqueIDBanlist(player, t[1], count)
elseif t[1] == "sv_unbanid" then
response = false
Command_UniqueIDunban(player, t[1], t[2], count)
elseif t[1] == "sv_cmds" then
response = false
sendresponse("sv_banid | sv_unbanid | sv_playersids\nsv_idbanlist | sv_search | sv_history", player)
end
return response
end
function OnPlayerJoin(player)
local name = getname(player)
local hash = gethash(player)
local ip = getip(player)
player_ids[player] = players
local bool = true
for i=0,#unique_ids do
if unique_ids[i] then
local words = tokenizestring(unique_ids[i].ip, ".")
unique_ids[i].ip2 = words[1] .."."..words[2]
local ip2 = string.sub(ip, 0, string.len(unique_ids[i].ip2))
if unique_ids[i].ip == ip or unique_ids[i].name == name or unique_ids[i].hash == hash or unique_ids[i].ip2 == ip2 then
if unique_ids[i].ip == ip then
player_ids[player] = i
bool = false
break
elseif unique_ids[i].name == name and unique_ids[i].hash == hash then
player_ids[player] = i
bool = false
break
elseif ip2 == unique_ids[i].ip2 and hash == unique_ids[i].hash or name == unique_ids[i].name then
player_ids[player] = i
bool = false
break
end
end
end
end
playerid = player_ids[player]
if bool then
settable(name, hash, ip, "false", 0, playerid)
players = players + 1
else
if unique_ids[playerid].banned == "true" then
settable(name, hash, ip, "true", unique_ids[playerid].time, playerid)
IDban(player)
else
settable(name, hash, ip, "false", 0, playerid)
end
end
end
function OnPlayerLeave(player)
if unique_ids[player_ids[player]].banned == "false" then
if history_count >= max_history then
history_count = 0
end
history[history_count] = {}
history[history_count].name = getname(player)
history[history_count].hash = gethash(player)
history[history_count].ip = getip(player)
history[history_count].id = player_ids[player]
history_count = history_count + 1
end
player_ids[player] = nil
end
function IDban(player)
local hash = gethash(player)
svcmd("sv_ban " .. resolveplayer(player))
local file = io.open(profilepath .. "\\banned.txt", "r")
if file then
local Lines = 0
for line in file:lines() do
Lines = Lines + 1
if line and line ~= "" then
if string.find(line, hash) then
svcmd("sv_unban " .. Lines - 2)
end
end
end
end
end
function Command_History(executor, command, count)
if count == 1 then
local response = "ID | Name\n"
for i=0,max_history do
if history[i] then
response = response .. "" .. history[i].id .. " | " .. history[i].name .. "\n"
end
end
sendresponse(response, executor)
else
sendresponse("Invalid Syntax " .. command, executor)
end
end
function Command_Search(executor, command, value, count)
if count == 2 then
local response = "ID | Name\n"
local bool = true
for i=0,players-1 do
if unique_ids[i] then
if string.len(value) == 32 then
if unique_ids[i].hash == value then
response = response .. "\n" .. i .. " | " .. unique_ids[i].name .. " | " .. unique_ids[i].ip
bool = false
end
else
if unique_ids[i].name == value then
response = response .. "\n" .. i .. " | " .. unique_ids[i].name .. " | " .. unique_ids[i].hash
bool = false
end
end
end
end
if bool then
response = "No Results found!"
end
sendresponse(response, executor)
else
sendresponse("Invalid Syntax " .. command .." [name or hash] ", executor)
end
end
function Command_UniqueIDBan(executor, command, id, time, count)
if count == 2 or time then
id = tonumber(id)
if id and id <= players-1 then
local bool = true
if unique_ids[id] then
if unique_ids[id].banned == "false" then
local player = playeridtoplayer(id)
unique_ids[id].banned = "true"
time = wordtotime(time) or -1
unique_ids[id].time = time
IDban(player)
else
bool = false
end
if bool then
if time == -1 then
sendresponse(unique_ids[id].name .. " has been banned indefinitely!", executor)
else
sendresponse(unique_ids[id].name .. " has been banned for " .. timetoword(time) .. "!", executor)
end
else
sendresponse("That ID has already been banned!", executor)
end
else
sendresponse("That ID is not in use.", executor)
end
else
sendresponse("Invalid Unique ID!", executor)
end
else
sendresponse("Invalid Syntax " .. command .." [ID] {time} ", executor)
end
end
function Command_UniqueIDunban(executor, command, ID, count)
if count == 2 then
ID = tonumber(ID)
if ID and ID <= players-1 then
if unique_ids[ID] then
if unique_ids[ID].banned == "true" then
unique_ids[ID].banned = "false"
unique_ids[ID].time = 0
sendresponse(unique_ids[ID].name .. " is now unbanned.", executor)
else
sendresponse(unique_ids[ID].name .. " is not banned.", executor)
end
else
sendresponse("That ID is not in use.", executor)
end
else
sendresponse("Invalid Unique ID!", executor)
end
else
sendresponse("Invalid Syntax " .. command .." [ID] ", executor)
end
end
function Command_UniqueIDBanlist(executor, command, count)
if count == 1 then
local response = "ID | Name | Time\n"
for i=0,players-1 do
if unique_ids[i] then
if unique_ids[i].banned == "true" then
response = response .. i .. " | " .. unique_ids[i].name .. " | " .. timetoword(unique_ids[i].time) .."\n"
end
end
end
sendresponse(response, executor)
else
sendresponse("Invalid Syntax " .. command, executor)
end
end
function Command_UniqudIDPlayersList(executor, command, count)
if count == 1 then
local response = "ID | Name\n"
for i= 0,15 do
if getplayer(i) then
local name = getname(i)
response = response .. "" .. player_ids[i] .. " | " .. name .. "\n"
end
end
sendresponse(response, executor)
else
sendresponse("Invalid Syntax " .. command, executor)
end
end
function playeridtoplayer(playerid)
for i=0,15 do
if getplayer(i) then
if playerid == player_ids[i] then
return i
end
end
end
end
function sendresponse(message, player)
if message == "" then
return
end
player = tonumber(player)
if tonumber(player) and player ~= nil and player ~= -1 and player >= 0 and player < 16 then
sendconsoletext(player, message)
else
hprintf(message)
end
end
function settable(name, hash, ip, boolean, time, id)
unique_ids[id] = {}
unique_ids[id].name = name
unique_ids[id].hash = hash
unique_ids[id].ip = ip
unique_ids[id].banned = boolean
unique_ids[id].time = tonumber(time)
unique_ids[id].id = id
end
function Timer(id, count)
for i=0,players-1 do
if unique_ids[i] then
if unique_ids[i].banned == "true" and unique_ids[i].time > 0 then
unique_ids[i].time = unique_ids[i].time - 1
if unique_ids[i].time == 0 then
unique_ids[i].banned = "false"
end
end
end
end
return true
end
function timetoword(time)
if time == -1 or time == "-1" then
return -1
elseif tonumber(time) then
local returntime = ""
local seconds = tonumber(time)
local days = math.floor(seconds/86400)
seconds = seconds - days*86400
local hours = math.floor(seconds/3600)
seconds = seconds - hours*3600
local minutes = math.floor(seconds/60)
seconds = seconds - minutes*60
if seconds ~= 0 then
returntime = seconds .. "s"
end
if minutes ~= 0 then
if returntime == "" then
returntime = minutes .. "m"
else
returntime = minutes .. "m " .. returntime
end
end
if hours ~= 0 then
if returntime == "" then
returntime = hours .. "h"
else
returntime = hours .. "h " .. returntime
end
end
if days ~= 0 then
if returntime == "" then
returntime = days .. "d"
else
returntime = days .. "d " .. returntime
end
end
if returntime == "" then
returntime = "0s"
end
return returntime
end
end
function wordtotime(time) -- Function Originally created by Nuggets, modified to work for this script.
if time then
if tonumber(time) then
return tonumber(time)
else
local timeban = 0
local num = ""
for i = 1, string.len(time) do
local char = string.sub(time, i, i)
if tonumber(char) then
num = num .. char
else
local holder = 0
if char == "s" then
holder = tonumber(num)
elseif char == "m" then
holder = tonumber(num) * 60
elseif char == "h" then
holder = tonumber(num) * 60 * 60
elseif char == "d" then
holder = tonumber(num) * 60 * 60 * 24
end
timeban = timeban + holder
num = ""
end
end
if timeban > 0 then
return tonumber(timeban)
end
end
else
return -1
end
end

Recent Pastes

Zombies One 057[...]

V2+ Commands[...]

MAC address code[...]

V1+ 3 Weapons 2.0

V1+ Death Kill[...]

V1+ Afk Detect 1.0

V1+ Killing Spree[...]

V1+ Tea bag Loving[...]

V1+ Blank Script[...]

V1+ Stock Pile 1.0

Raw Paste

--[[
	Creator: AelitePrime
	Script Name: Unique ID Script
	Website: http://phasorscripts.wordpress.com/
	Xfire: eliteprime14789x
	Version: 2.0
	
	Reason for Update:
		- Phasor Update
]]
-- Modify

max_history = 25

-- Do not Modify

history = {}
players = 0
history_count = 0
player_ids = {}
unique_ids = {}

function GetRequiredVersion()
	return 200
end

function OnScriptLoad(process, game, persistent)
	profilepath = getprofilepath()
	local file = io.open(profilepath .. "//data//uniqueids.data","r")
	if file then
		for line in file:lines() do
			if line ~= nil then
				local words = tokenizestring(line, ",")
				settable(words[1], words[2], words[3], words[5], words[6], tonumber(words[4]))
				players = tonumber(words[4])
			end
		end
		players = players + 1
		file:close()
	end
	for player=0,15 do
		if getplayer(player) then
			local name = getname(player)
			local hash = gethash(player)
			local ip = getip(player)
			player_ids[player] = players
			local bool = true
			for i=0,#unique_ids do
				if unique_ids[i] then
					local words = tokenizestring(unique_ids[i].ip, ".")
					unique_ids[i].ip2 =  words[1] .."."..words[2]
					local ip2 = string.sub(ip, 0, string.len(unique_ids[i].ip2))
					if unique_ids[i].ip == ip or unique_ids[i].name == name or unique_ids[i].hash == hash or unique_ids[i].ip2 == ip2 then
						if unique_ids[i].ip == ip then
							player_ids[player] = i
							bool = false
							break
						elseif unique_ids[i].name == name and unique_ids[i].hash == hash then
							player_ids[player] = i
							bool = false
							break
						elseif ip2 == unique_ids[i].ip2 and hash == unique_ids[i].hash or name == unique_ids[i].name then
							player_ids[player] = i
							bool = false
							break
						end
					end
				end
			end
			playerid = player_ids[player]
			if bool then
				settable(name, hash, ip, "false", 0, playerid)
				players = players + 1
			else
				if unique_ids[playerid].banned == "true" then
					settable(name, hash, ip, "true", unique_ids[playerid].time, playerid)
					IDban(player)
				else
					settable(name, hash, ip, "false", 0, playerid)
				end
			end
		end
	end
	timer = registertimer(990, "Timer")
end

function OnScriptUnload()
	local file = io.open(profilepath .. "//data//uniqueids.data","w")
	for i = 0,#unique_ids do
		if unique_ids[i] then
			file:write(unique_ids[i].name.. "," .. unique_ids[i].hash .. "," .. unique_ids[i].ip .. "," .. unique_ids[i].id .. "," .. unique_ids[i].banned .. "," .. unique_ids[i].time .."\n")
		end
	end
end

function OnGameEnd(stage)
	if stage == 1 and timer then
		removetimer(timer)
		timer = nil
	end
end

function OnServerCommand(player, command)
	local response = nil
	local t = tokenizecmdstring(command)
	local count = #t
	t[1] = string.lower(t[1])
	if t[1] == "sv_banid" then
		response = false
		Command_UniqueIDBan(player, t[1], t[2], t[3], count)
	elseif t[1] == "sv_playersids" then
		response = false
		Command_UniqudIDPlayersList(player, t[1], count)
	elseif t[1] == "sv_search" then
		response = false
		Command_Search(player, t[1], t[2], count)
	elseif t[1] == "sv_history" then
		response = false
		Command_History(player, t[1], count)
	elseif t[1] == "sv_idbanlist" then
		response = false 
		Command_UniqueIDBanlist(player, t[1], count)
	elseif t[1] == "sv_unbanid" then
		response = false 
		Command_UniqueIDunban(player, t[1], t[2], count)
	elseif t[1] == "sv_cmds" then
		response = false
		sendresponse("sv_banid  |  sv_unbanid  |  sv_playersids\nsv_idbanlist  |  sv_search  |  sv_history", player)
	end
	return response
end

function OnPlayerJoin(player)
	local name = getname(player)
	local hash = gethash(player)
	local ip = getip(player)
	player_ids[player] = players
	local bool = true
	for i=0,#unique_ids do
		if unique_ids[i] then
			local words = tokenizestring(unique_ids[i].ip, ".")
			unique_ids[i].ip2 =  words[1] .."."..words[2]
			local ip2 = string.sub(ip, 0, string.len(unique_ids[i].ip2))
			if unique_ids[i].ip == ip or unique_ids[i].name == name or unique_ids[i].hash == hash or unique_ids[i].ip2 == ip2 then
				if unique_ids[i].ip == ip then
					player_ids[player] = i
					bool = false
					break
				elseif unique_ids[i].name == name and unique_ids[i].hash == hash then
					player_ids[player] = i
					bool = false
					break
				elseif ip2 == unique_ids[i].ip2 and hash == unique_ids[i].hash or name == unique_ids[i].name then
					player_ids[player] = i
					bool = false
					break
				end
			end
		end
	end
	playerid = player_ids[player]
	if bool then
		settable(name, hash, ip, "false", 0, playerid)
		players = players + 1
	else
		if unique_ids[playerid].banned == "true" then
			settable(name, hash, ip, "true", unique_ids[playerid].time, playerid)
			IDban(player)
		else
			settable(name, hash, ip, "false", 0, playerid)
		end
	end
end

function OnPlayerLeave(player)
	if unique_ids[player_ids[player]].banned == "false" then
		if history_count >= max_history then
			history_count = 0
		end
		history[history_count] = {}
		history[history_count].name = getname(player)
		history[history_count].hash = gethash(player)
		history[history_count].ip = getip(player)
		history[history_count].id = player_ids[player]
		history_count = history_count + 1
	end
	player_ids[player] = nil
end

function IDban(player)
	local hash = gethash(player)
	svcmd("sv_ban " .. resolveplayer(player))
	local file = io.open(profilepath .. "\\banned.txt", "r")
	if file then
		local Lines = 0
		for line in file:lines() do
			Lines = Lines + 1
			if line and line ~= "" then
				if string.find(line, hash) then
					svcmd("sv_unban " .. Lines - 2)
				end
			end
		end
	end
end

function Command_History(executor, command, count)
	if count == 1 then
		local response = "ID  |  Name\n"
		for i=0,max_history do
			if history[i] then
				response = response .. "" .. history[i].id .. "  |  " .. history[i].name .. "\n" 
			end
		end
		sendresponse(response, executor)
	else
		sendresponse("Invalid Syntax " .. command, executor)
	end
end

function Command_Search(executor, command, value, count)
	if count == 2 then
		local response = "ID  |  Name\n"
		local bool = true
		for i=0,players-1 do
			if unique_ids[i] then
				if string.len(value) == 32 then
					if unique_ids[i].hash == value then
						response = response .. "\n" .. i .. "  |  " .. unique_ids[i].name  .. "  |  " .. unique_ids[i].ip
						bool = false
					end
				else
					if unique_ids[i].name == value then
						response = response .. "\n" .. i .. "  |  " .. unique_ids[i].name  .. "  |  " .. unique_ids[i].hash
						bool = false
					end
				end
			end
		end
		if bool then
			response = "No Results found!"
		end
		sendresponse(response, executor)
	else
		sendresponse("Invalid Syntax " .. command .." [name or hash] ", executor)
	end
end

function Command_UniqueIDBan(executor, command, id, time, count)
	if count == 2 or time then
		id = tonumber(id)
		if id and id <= players-1 then
			local bool = true
			if unique_ids[id] then
				if unique_ids[id].banned == "false" then
					local player = playeridtoplayer(id)
					unique_ids[id].banned = "true"
					time = wordtotime(time) or -1
					unique_ids[id].time = time
					IDban(player)
				else
					bool = false
				end
				if bool then
					if time == -1 then
						sendresponse(unique_ids[id].name .. " has been banned indefinitely!", executor)
					else
						sendresponse(unique_ids[id].name .. " has been banned for " .. timetoword(time) .. "!", executor)
					end
				else
					sendresponse("That ID has already been banned!", executor)
				end
			else
				sendresponse("That ID is not in use.", executor)
			end
		else
			sendresponse("Invalid Unique ID!", executor)
		end
	else
		sendresponse("Invalid Syntax " .. command .." [ID] {time} ", executor)
	end
end

function Command_UniqueIDunban(executor, command, ID, count)
	if count == 2 then
		ID = tonumber(ID)
		if ID and ID <= players-1 then
			if unique_ids[ID] then
				if unique_ids[ID].banned == "true" then
					unique_ids[ID].banned = "false"
					unique_ids[ID].time = 0
					sendresponse(unique_ids[ID].name .. " is now unbanned.", executor)
				else
					sendresponse(unique_ids[ID].name .. " is not banned.", executor)
				end
			else
				sendresponse("That ID is not in use.", executor)
			end
		else
			sendresponse("Invalid Unique ID!", executor)
		end
	else
		sendresponse("Invalid Syntax " .. command .." [ID] ", executor)
	end
end

function Command_UniqueIDBanlist(executor, command, count)
	if count == 1 then
		local response = "ID  |  Name  |  Time\n"
		for i=0,players-1 do
			if unique_ids[i] then
				if unique_ids[i].banned == "true" then
					response = response .. i .. "  |  " .. unique_ids[i].name .. "  |  " .. timetoword(unique_ids[i].time) .."\n" 
				end
			end
		end
		sendresponse(response, executor)
	else
		sendresponse("Invalid Syntax " .. command, executor)
	end
end

function Command_UniqudIDPlayersList(executor, command, count)
	if count == 1 then
		local response = "ID  |  Name\n"
		for i= 0,15 do
			if getplayer(i) then
				local name = getname(i)
				response = response .. "" .. player_ids[i] .. "  |  " .. name .. "\n" 
			end
		end
		sendresponse(response, executor)
	else
		sendresponse("Invalid Syntax " .. command, executor)
	end
end

function playeridtoplayer(playerid)
	for i=0,15 do
		if getplayer(i) then
			if playerid == player_ids[i] then 
				return i 
			end
		end
	end
end

function sendresponse(message, player)
	if message == "" then
		return
	end
	player = tonumber(player)
	if tonumber(player) and player ~= nil and player ~= -1 and player >= 0 and player < 16 then
		sendconsoletext(player, message)
	else
		hprintf(message)
	end
end

function settable(name, hash, ip, boolean, time, id)
	unique_ids[id] = {}
	unique_ids[id].name = name
	unique_ids[id].hash = hash
	unique_ids[id].ip = ip
	unique_ids[id].banned = boolean
	unique_ids[id].time = tonumber(time)
	unique_ids[id].id = id
end

function Timer(id, count)
	for i=0,players-1 do
		if unique_ids[i] then
			if unique_ids[i].banned == "true" and unique_ids[i].time > 0 then
				unique_ids[i].time = unique_ids[i].time - 1
				if unique_ids[i].time == 0 then
					unique_ids[i].banned = "false"
				end
			end
		end
	end
	return true
end

function timetoword(time)
	if time == -1 or time == "-1" then
		return -1
	elseif tonumber(time) then
		local returntime = ""
		local seconds = tonumber(time)
		local days = math.floor(seconds/86400)
		seconds = seconds - days*86400
		local hours = math.floor(seconds/3600)
		seconds = seconds - hours*3600
		local minutes = math.floor(seconds/60)
		seconds = seconds - minutes*60
		if seconds ~= 0 then
			returntime = seconds .. "s"
		end
		if minutes ~= 0 then
			if returntime == "" then
				returntime = minutes .. "m"
			else
				returntime = minutes .. "m " .. returntime
			end
		end
		if hours ~= 0 then
			if returntime == "" then
				returntime = hours .. "h"
			else
				returntime = hours .. "h " .. returntime
			end
		end
		if days ~= 0 then
			if returntime == "" then
				returntime = days .. "d"
			else
				returntime = days .. "d " .. returntime
			end
		end
		if returntime == "" then
			returntime = "0s"
		end
		return returntime
	end
end

function wordtotime(time) -- Function Originally created by Nuggets, modified to work for this script.
	if time then
		if tonumber(time) then
			return tonumber(time)
		else
			local timeban = 0
			local num = ""
			for i = 1, string.len(time) do
				local char = string.sub(time, i, i)
				if tonumber(char) then
					num = num .. char
				else
					local holder = 0
					if char == "s" then
						holder = tonumber(num)
					elseif char == "m" then
						holder = tonumber(num) * 60
					elseif char == "h" then
						holder = tonumber(num) * 60 * 60
					elseif char == "d" then
						holder = tonumber(num) * 60 * 60 * 24
					end
					timeban = timeban + holder
					num = ""
				end
			end
			if timeban > 0 then
				return tonumber(timeban)
			end
		end
	else
		return -1
	end
end