Sulfito_PointSaving/lua/autorun/server/mapcalc.lua

if engine.ActiveGamemode() ~= "zombiesurvival" then return end

-- this code grabs the data from the file about the map. if none exists it makes a default.
timer.Simple(25, function()
	mapwins = 0
	maploss = 0
	if not file.Exists("zsmapinfo", "DATA") then
		file.CreateDir("zsmapinfo")
	end
	local mapname = string.lower(game.GetMap())
	if file.Exists("zsmapinfo/"..mapname..".txt", "DATA") then
		local data = util.JSONToTable(file.Read("zsmapinfo/"..mapname..".txt", "DATA"))
		mapwins = data.mapwins
		maploss = data.maploss
		mapboost = data.mapboost
		mapjackpot = data.mapjackpot
	else
		local main = {}
		main["mapwins"] = 0
		main["maploss"] = 0
		main["mapboost"] = 1-- use a scale from 1 to 5
		main["mapjackpot"] = 25
		file.Write( "zsmapinfo/"..mapname..".txt", util.TableToJSON( main ) )
		print("map win file not found. created one.")
	end
	zombpercentcountmap = 0
	totpercentcountmap = 1
end)

-- this hook checks to make sure there are zombies on the server. later it should check to see if any are afk.
roundtime = 0
prereqcount = false
hook.Add("WaveStateChanged", "zombpercentcalc", function()
	roundtime = CurTime()

	if !timer.Exists("zombiepercentcalc") then
		timer.Create("zombiepercentcalc", 10, 0, function()
		if #(team.GetPlayers(TEAM_UNDEAD)) >0 then
			zombpercentcountmap =zombpercentcountmap + 1
		end
		totpercentcountmap = totpercentcountmap + 1
		
		end)
	end
end)

hook.Add("EndRound", "givedapoints", function(winner)
	timer.Destroy("zombiepercentcalc")
	
	timer.Simple(0,function()
		print("point bonus hook")
		local mapname = string.lower(game.GetMap())
		local zombiepercentcalcmap = (zombpercentcountmap/totpercentcountmap) or .01
		local mapplaytotal = mapwins + maploss
		local pointstogive = 10
		zombiepercentcalcmap = zombiepercentcalcmap or .01
		-- we need to make sure that zombies were on the server for more than half the game.
		if zombiepercentcalcmap <=.5 then
			PrintMessage(HUD_PRINTTALK,"No end of game points because zombies were not even playing half the time!")
		elseif mapplaytotal <= 5 then
		--print(mapplaytotal)
			PrintMessage(HUD_PRINTTALK,"sorry but this map needs to be played at least "..(5-mapplaytotal).." more times before you can get points for winning.")
			if winner == TEAM_UNDEAD then
				maploss = maploss + 1
			elseif winner == TEAM_HUMAN then
				mapwins = mapwins +1
			else
				print("wow you fucked up! no seriously how do you not have a winner?")
			end
			if winner == TEAM_UNDEAD then
				if mapjackpot <= 2500 then
					mapjackpot = mapjackpot*1.1
				end
			end
			local main = {}
			main["mapwins"] = mapwins
			main["maploss"] = maploss
			main["mapboost"] = mapboost
			main["mapjackpot"] = mapjackpot
			file.Write( "zsmapinfo/"..mapname..".txt", util.TableToJSON( main ) )
		else
			if winner == TEAM_UNDEAD then
				if mapjackpot <= 2500 then
					mapjackpot = math.Round(mapjackpot*1.1)
				end
			else
				mapjackpot = 25
			end
			local multiplywin = 2
			if mapplaytotal <10 then
				multiplywin = 2
			elseif mapplaytotal<25 then
				multiplywin = 1.9
			elseif mapplaytotal <50 then
				multiplywin = 1.8
			elseif mapplaytotal<100 then
				multiplywin = 1.7
			elseif mapplaytotal < 250 then
				multiplywin = 1.6
			elseif mapplaytotal < 500 then
				multiplywin = 1.4
			elseif mapplaytotal < 1000 then
				multiplywin = 1.2
			else
				multiplywin = 1
			end
			
			if winner == TEAM_UNDEAD then
				maploss = maploss + 1
			elseif winner == TEAM_HUMAN then
				mapwins = mapwins +1
			else
				print("wow you fucked up!")
			end
			
			local main = {}
			main["mapwins"] = mapwins
			main["maploss"] = maploss
			main["mapboost"] = mapboost
			main["mapjackpot"] = mapjackpot
			file.Write( "zsmapinfo/"..mapname..".txt", util.TableToJSON( main ) )
			
			local finalmultiply = 1
			if winner == TEAM_UNDEAD then
				finalmultiply = (mapboost * (mapwins/mapplaytotal) * zombiepercentcalcmap) or .01
				pointstogive = math.Round(50 * finalmultiply) or 1
			elseif winner == TEAM_HUMAN then
				finalmultiply = (mapboost * multiplywin * (maploss/mapplaytotal) *zombiepercentcalcmap) or .01
				pointstogive = math.Round((50 * finalmultiply) + mapjackpot) or 1
			end
			
			PrintMessage(HUD_PRINTTALK,"<c=0,255,255>This map has been played "..mapplaytotal.." times with humans winning "..(mapwins).." times.("..(math.Round((mapwins/mapplaytotal)*100)).."%)</c>")
			PrintMessage(HUD_PRINTTALK,"<c=0,255,255>Zombies were only playing for "..(zombiepercentcalcmap*100).."% of the time.</c>")
			PrintMessage(HUD_PRINTTALK,"<c=0,255,255>frequency multiplier for this map is:"..multiplywin..". play maps infrequently for a higher value!</c>")
			PrintMessage(HUD_PRINTTALK,"<c=0,255,255>Special boost for this map is:"..(mapboost)..". tell an admin if you think it should be changed!</c>")
			PrintMessage(HUD_PRINTTALK,"<c=204,204,0>Map jackpot is now "..(mapjackpot)..".</c>")
			
			--regular points ZS points
			--[[if (game.GetMap() ~= "zs_obj_gauntlet_v3" and game.GetMap() ~="zs_gauntlet_reborn_b6") and gmod.GetGamemode().Name == "Zombie Survival" then
				for k,v in pairs(team.GetPlayers(TEAM_HUMAN)) do
					v:SetMoney((v:GetDTInt(1) + pointstogive) )
					--WriteData(v:SteamID64(), v:GetPoints())
					v:SaveMoney()
					v:SaveMoneyTXT()
					v:PrintMessage(HUD_PRINTTALK,"<c=255,0,0>You gained "..(pointstogive).." this round for playing to the end!</c>")
				end
				for k,v in pairs(team.GetPlayers(TEAM_UNDEAD)) do
					v:SetMoney(math.Round((v:GetMoney() + (pointstogive/5)) ))
					--WriteData(v:SteamID64(), v:GetPoints())
					v:SaveMoney()
					v:SaveMoneyTXT()
					v:PrintMessage(HUD_PRINTTALK,"<c=255,0,0>You gained "..(math.Round(pointstogive/2)).." points this round for playing to the end!</c>")
				end
			end]]
			
		end
		if (game.GetMap() ~= "zs_obj_gauntlet_v3" and game.GetMap() ~="zs_gauntlet_reborn_b6") and gmod.GetGamemode().Name == "Zombie Survival" then
			if winner == TEAM_HUMAN then
				for k,ply in pairs(player.GetAll()) do
					if ply:Team() == TEAM_HUMAN then
						if ply:GetPoints()- ply:GetMoney()> 0 then
							ply:SetMoney(ply:GetPoints()+((ply:GetPoints()- ply:GetMoney()))+pointstogive)
							ply:SaveMoney()
							ply:SaveMoneyTXT()
							ply:PrintMessage(HUD_PRINTTALK,"<c=255,0,0>You gained "..(pointstogive).." this round for playing to the end!</c>")
						else
							ply:SetMoney(ply:GetPoints()+pointstogive)
							ply:SaveMoney()
							ply:SaveMoneyTXT()
							ply:PrintMessage(HUD_PRINTTALK,"<c=255,0,0>You gained "..(pointstogive).." this round for playing to the end!</c>")
						end
					else
						if ply:GetPoints()- ply:GetMoney()> 0 then
							ply:SetMoney(ply:GetPoints()+((ply:GetPoints()- ply:GetMoney())*.15)+(pointstogive/2))
							ply:SaveMoney()
							ply:SaveMoneyTXT()
							ply:PrintMessage(HUD_PRINTTALK,"<c=255,0,0>You gained "..(pointstogive/2).." this round for playing to the end!</c>")
						else
							ply:SetMoney(ply:GetPoints()+(pointstogive/2))
							ply:SaveMoney()
							ply:SaveMoneyTXT()
							ply:PrintMessage(HUD_PRINTTALK,"<c=255,0,0>You gained "..(pointstogive/2).." this round for playing to the end!</c>")
						end
					end
				end
			else
				for k,ply in pairs(player.GetAll()) do
					if ply:GetPoints()- ply:GetMoney()> 0 then
						ply:SetMoney(ply:GetPoints()+((ply:GetPoints()- ply:GetMoney())*.15)+(pointstogive/2))
					else
						ply:SetMoney(ply:GetPoints()+(pointstogive/2))
					end
				end
			end
		end
	end)
end)