v2+ Rock The Vote - Skip 5.0

LUA 351

V2+ Rock The Vote - Skip 5.0 By xdedeone on 26th February 2019 04:32:26 PM

--[[ ### Rock-The-Vote v5 ###]]--
--[[ ### by H® Shaft ###]]--
--[[ ### for Phasor v2+ ###]]--
-- changes: enabling rock the vote, and vote percentage required for skipping map is now editable per map, see lines 48 thru 92
-- re-formed to allow use as persistent or non-persistent and to be reloadable for compatibility with other scripts without error
-- re-worked to be less spammy in the chat
-- prefix globals
default_script_prefix = "\171 RTV \187 "
phasor_privatesay = privatesay
phasor_say = say
function GetRequiredVersion()
return 200
end
function OnScriptLoad(processId, game, persistent)
map_reset = false
game_started = false
GAME = game
GetGameAddresses(game)
ScriptLoad()
end
function ScriptLoad()
-- don't edit ---
GetGameAddresses(GAME)
writeword(special_chars, 0x9090)
rockthevote = {}
rtv_required = {}
rtv_table = {}
cur_players = 0
rtv_timeout = 1
rtv_initiated = 0
game_started = true
for i = 0,15 do
if getplayer(i) then
cur_players = cur_players + 1
end
end
if map_reset == true then
map_reset = false
game_started = true
end
-- ------------------ Edit Below This Line --------------------------
-- enable rtv on this map Edit Boolean: enable = true, disable = false
rockthevote. beavercreek = true
rockthevote. bloodgulch = true
rockthevote. boardingaction = true
rockthevote. carousel = true
rockthevote. chillout = true
rockthevote. damnation = true
rockthevote. dangercanyon = true
rockthevote. deathisland = true
rockthevote. gephyrophobia = true
rockthevote. hangemhigh = true
rockthevote. icefields = true
rockthevote. infinity = true
rockthevote. longest = true
rockthevote. prisoner = true
rockthevote. putput = true
rockthevote. ratrace = true
rockthevote. sidewinder = true
rockthevote. timberland = true
rockthevote. wizard = true
-- vote % of players required to skip the map Edit Percent Required (decimal value)
rtv_required. beavercreek = 0.7
rtv_required. bloodgulch = 0.8
rtv_required. boardingaction = 0.6
rtv_required. carousel = 0.7
rtv_required. chillout = 0.7
rtv_required. damnation = 0.7
rtv_required. dangercanyon = 0.7
rtv_required. deathisland = 0.6
rtv_required. gephyrophobia = 0.8
rtv_required. hangemhigh = 0.7
rtv_required. icefields = 0.7
rtv_required. infinity = 0.6
rtv_required. longest = 0.7
rtv_required. prisoner = 0.6
rtv_required. putput = 0.7
rtv_required. ratrace = 0.7
rtv_required. sidewinder = 0.7
rtv_required. timberland = 0.7
rtv_required. wizard = 0.7
-- ------------------ Edit Above This Line --------------------------
-- don't edit ---
if map_name then rockthevote[map_name] = rockthevote[map_name] or true end
if map_name then rtv_required[map_name] = rtv_required[map_name] or 0.6 end
end
function OnNewGame(map)
ScriptLoad()
game_started = true
end
function OnServerCommand(player, command)
local allow = nil
local cmd = tokenizecmdstring(command)
local tokencount = #cmd
if tokencount > 0 then
if cmd[1] == "sv_map_reset" then
map_reset = true
game_started = true
ScriptLoad()
allow = true
elseif cmd[1] == "sv_script_reload" then
map_reset = true
game_started = true
ScriptLoad()
allow = true
end
end
return allow
end
function GetGameAddresses(game)
if game == "PC" or GAME == "PC" then
map_name = readstring(0x698F21)
network_base = 0x745BA8
special_chars = 0x517D6B
else
map_name = readstring(0x61D151)
network_base = 0x6C7988
special_chars = 0x4CE0CD
end
end
function OnPlayerJoin(player)
if getplayer(player) then
cur_players = cur_players + 1
announce = registertimer(20000, "announcement", player)
end
end
function OnPlayerLeave(player)
if getplayer(player) then
cur_players = cur_players - 1
end
end
function announcement(id, count, player)
if getplayer(player) and game_started then
privatesay(player, "Map skipping is enabled. Type SKIP or RTV to vote to skip the map.")
end
return false
end
function privatesay(player, message, script_prefix)
if GAME == "PC" then
phasor_privatesay(player, (script_prefix or default_script_prefix) .. " " .. message, false)
else
phasor_privatesay(player, message, false)
end
end
function say(message, script_prefix)
if GAME == "PC" then
phasor_say((script_prefix or default_script_prefix) .. " " .. message, false)
else
phasor_say(message, false)
end
end
function killmessage(message, killer) -- Self-explanatory
for player=0,15 do
if getplayer(player) and player ~= killer then
phasor_privatesay(player, message, false)
end
end
end
function OnServerChat(player, type, message)
local response = nil
if player then
local name = getname(player)
local hash = gethash(player)
local t = tokenizecmdstring(message)
local count = #t
if t[1] == nil then
return true
end
if string.lower(t[1]) == "rtv" or string.lower(t[1]) == "skip" then
response = false
if count == 1 and rockthevote[map_name] then
if rtv_initiated >= 0 then
local rtv_count = 0
local rtv_number = round(cur_players * rtv_required[map_name], 0)
for i = 0,15 do
if getplayer(i) then
if rtv_table[gethash(i)] == 1 then
rtv_count = rtv_count + 1
end
end
end
if game_started then
if rtv_count == 0 then
rtv_initiated = 1
rtv_table[hash] = 1
rtv_count = rtv_count + 1
say(name .. " has voted to skip this map! " .. rtv_count .. " of " .. rtv_number .. " votes required, type \"skip\" to join the vote.")
rtvtimer = registertimer(120000, "rtvTimer")
else
if rtv_table[hash] == 1 then
privatesay(player, "You have already voted.")
elseif rtv_table[hash] == nil then
rtv_table[hash] = 1
rtv_count = rtv_count + 1
say(name .. " has voted to skip this map! " .. rtv_count .. " of " .. rtv_number .. " votes required, type \"skip\" to join the vote.")
end
end
if rtv_count >= rtv_number then
removetimer(rtvtimer)
rtvtimer = nil
rtv_initiated = rtv_timeout
svcmd("sv_map_next")
end
else
privatesay(player, "The game has already ended.")
end
else
privatesay(player, "You cannot initiate a vote a this time.")
end
elseif count == 1 and not rockthevote[map_name] then
privatesay(player, "Voting is disabled for this map.")
end
return response
end
return response
end
return response
end
function OnGameEnd(stage)
if stage == 1 then
game_started = false
if rtvtimer then
rtvtimer = nil
end
if announce then
announce = nil
end
rtv_initiated = -1
end
end
function rtvTimer(id, count)
if count == 1 then
rtv_initiated = rtv_timeout
rtv_table = {}
say("The current vote to skip the map has expired!")
return false
else
return true
end
end
function round(num)
under = math.floor(num)
upper = math.floor(num) + 1
underV = -(under - num)
upperV = upper - num
if (upperV > underV) then
return under
else
return upper
end
end
--[[ Created by H® Shaft.
Thanks to Oxide, AelitePrime, Nugget & Wizard.
Visit http://halorace.org/forum/index.php?topic=514.0 or
Visit http://pastebin.com/u/HR_Shaft for more phasor scripts
]]

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

--[[ ###    Rock-The-Vote v5  ###]]--
--[[ ###     by H® Shaft      ###]]-- 
--[[ ###    for Phasor v2+    ###]]--

-- changes: enabling rock the vote, and vote percentage required for skipping map is now editable per map, see lines 48 thru 92
-- re-formed to allow use as persistent or non-persistent and to be reloadable for compatibility with other scripts without error
-- re-worked to be less spammy in the chat

-- prefix globals
default_script_prefix = "\171 RTV \187 "
phasor_privatesay = privatesay
phasor_say = say

function GetRequiredVersion()
	return 200
end
 
function OnScriptLoad(processId, game, persistent)
	map_reset = false
	game_started = false
    GAME = game
	GetGameAddresses(game)
    ScriptLoad()
end

function ScriptLoad()
	
	-- don't edit ---
	GetGameAddresses(GAME)
	writeword(special_chars, 0x9090)
	rockthevote = {}
	rtv_required = {}
	rtv_table = {}
	cur_players = 0
	rtv_timeout = 1
	rtv_initiated = 0
	game_started = true
	for i = 0,15 do
		if getplayer(i) then	
			cur_players = cur_players + 1
		end
	end
	if map_reset == true then
		map_reset = false
		game_started = true
	end		
	
	-- ------------------ Edit Below This Line --------------------------
	-- enable rtv on this map							Edit Boolean: enable = true, disable = false
	rockthevote.			beavercreek 		= 		true 			
	rockthevote.			bloodgulch	 		= 		true				
	rockthevote.			boardingaction 		= 		true	
	rockthevote.			carousel 			=		true 			
	rockthevote.			chillout 			= 		true	
	rockthevote.			damnation 			= 		true	
	rockthevote.			dangercanyon 		= 		true				
	rockthevote.			deathisland 		= 		true			
	rockthevote.			gephyrophobia 		= 		true	
	rockthevote.			hangemhigh 			=		true				
	rockthevote.			icefields 			= 		true				
	rockthevote.			infinity 			= 		true				
	rockthevote.			longest 			=	 	true				
	rockthevote.			prisoner 			= 		true				
	rockthevote.			putput 				= 		true 			
	rockthevote.			ratrace 			= 		true				
	rockthevote.			sidewinder 			= 		true				
	rockthevote.			timberland 			= 		true				
	rockthevote.			wizard 				= 		true

-- vote % of players required to skip the map		Edit Percent Required (decimal value)
	rtv_required.			beavercreek 		= 		0.7 			
	rtv_required.			bloodgulch	 		= 		0.8				
	rtv_required.			boardingaction 		= 		0.6				
	rtv_required.			carousel 			=		0.7 			
	rtv_required.			chillout 			= 		0.7		
	rtv_required.			damnation 			= 		0.7		
	rtv_required.			dangercanyon 		= 		0.7				
	rtv_required.			deathisland 		= 		0.6			
	rtv_required.			gephyrophobia 		= 		0.8		
	rtv_required.			hangemhigh 			=		0.7				
	rtv_required.			icefields 			= 		0.7				
	rtv_required.			infinity 			= 		0.6				
	rtv_required.			longest 			=	 	0.7				
	rtv_required.			prisoner 			= 		0.6				
	rtv_required.			putput 				= 		0.7 			
	rtv_required.			ratrace 			= 		0.7				
	rtv_required.			sidewinder 			= 		0.7				
	rtv_required.			timberland 			= 		0.7				
	rtv_required.			wizard 				= 		0.7
		
	-- ------------------ Edit Above This Line --------------------------
	
	-- don't edit ---	
	if map_name then rockthevote[map_name] = rockthevote[map_name] or true end
	if map_name then rtv_required[map_name] = rtv_required[map_name] or 0.6 end

end

function OnNewGame(map)
	ScriptLoad()
	game_started = true
end

function OnServerCommand(player, command)
	local allow = nil
	local cmd = tokenizecmdstring(command)
	local tokencount = #cmd
	if tokencount > 0 then
	
		if cmd[1] == "sv_map_reset" then
			map_reset = true
			game_started = true			
			ScriptLoad()					
			allow = true
			
		elseif cmd[1] == "sv_script_reload" then
			map_reset = true
			game_started = true
			ScriptLoad()		
			allow = true
		end
		
	end
	return allow
end

function GetGameAddresses(game)
	if game == "PC" or GAME == "PC" then
		map_name = readstring(0x698F21)
		network_base = 0x745BA8	
		special_chars = 0x517D6B
	else
		map_name = readstring(0x61D151)
		network_base = 0x6C7988
		special_chars = 0x4CE0CD
	end
end

function OnPlayerJoin(player)
	if getplayer(player) then
		cur_players = cur_players + 1
		announce = registertimer(20000, "announcement", player)
	end	
end

function OnPlayerLeave(player)
	if getplayer(player) then
		cur_players = cur_players - 1
	end		
end

function announcement(id, count, player)
	if getplayer(player) and game_started then
		privatesay(player, "Map skipping is enabled. Type SKIP or RTV to vote to skip the map.")
	end
	return false	
end

function privatesay(player, message, script_prefix)
    if GAME == "PC" then
        phasor_privatesay(player, (script_prefix or default_script_prefix) .. " " .. message, false)
    else
        phasor_privatesay(player, message, false)
    end
end

function say(message, script_prefix)
    if GAME == "PC" then
        phasor_say((script_prefix or default_script_prefix) .. " " .. message, false)
    else
        phasor_say(message, false)
    end
end

function killmessage(message, killer) -- Self-explanatory 
	for player=0,15 do
		if getplayer(player) and player ~= killer then
			phasor_privatesay(player, message, false)
		end
	end
end

function OnServerChat(player, type, message)
	local response = nil
	if player then
		local name = getname(player)
		local hash = gethash(player)
	
		local t = tokenizecmdstring(message)
		local count = #t
		if t[1] == nil then 
			return true
		end

if string.lower(t[1]) == "rtv" or string.lower(t[1]) == "skip" then 
			response = false
			if count == 1 and rockthevote[map_name] then
				if rtv_initiated >= 0 then
					local rtv_count = 0 
					local rtv_number = round(cur_players * rtv_required[map_name], 0)
					for i = 0,15 do
						if getplayer(i) then
							if rtv_table[gethash(i)] == 1 then 
								rtv_count = rtv_count + 1
							end
						end
					end
					if game_started then
						if rtv_count == 0 then
							rtv_initiated = 1 
							rtv_table[hash] = 1 
							rtv_count = rtv_count + 1 
							say(name .. " has voted to skip this map! " .. rtv_count .. " of " .. rtv_number .. " votes required, type \"skip\" to join the vote.")
							rtvtimer = registertimer(120000, "rtvTimer")
						else
							if rtv_table[hash] == 1 then
								privatesay(player, "You have already voted.")
							elseif rtv_table[hash] == nil then 
								rtv_table[hash] = 1
								rtv_count = rtv_count + 1 
								say(name .. " has voted to skip this map! " .. rtv_count .. " of " .. rtv_number .. " votes required, type \"skip\" to join the vote.")
							end
						end
						if rtv_count >= rtv_number then
							removetimer(rtvtimer)
							rtvtimer = nil
							rtv_initiated = rtv_timeout
							svcmd("sv_map_next")
						end
					else
						privatesay(player, "The game has already ended.")
					end
				else
					privatesay(player, "You cannot initiate a vote a this time.")
				end
			elseif count == 1 and not rockthevote[map_name] then 
				privatesay(player, "Voting is disabled for this map.")
			end
			return response
		end
		return response
	end		
	return response
end

function OnGameEnd(stage)
	if stage == 1 then
		game_started = false
		if rtvtimer then 
			rtvtimer = nil
		end
		if announce then 
			announce = nil
		end 
		rtv_initiated = -1 
	end	
end

function rtvTimer(id, count)
	if count == 1 then
		rtv_initiated = rtv_timeout
		rtv_table = {}
		say("The current vote to skip the map has expired!")
		return false
	else
		return true
	end
end

function round(num)
    under = math.floor(num)
    upper = math.floor(num) + 1
    underV = -(under - num)
    upperV = upper - num
    if (upperV > underV) then
        return under
    else
        return upper
    end
end

--[[ Created by H® Shaft.
Thanks to Oxide, AelitePrime, Nugget & Wizard. 
Visit http://halorace.org/forum/index.php?topic=514.0 or
Visit http://pastebin.com/u/HR_Shaft for more phasor scripts
]]