jailbreakplusplus/gamemode/core/sv_player.lua

-- ####################################################################################
-- ##                                                                                ##
-- ##                                                                                ##
-- ##     CASUAL BANANAS CONFIDENTIAL                                                ##
-- ##                                                                                ##
-- ##     __________________________                                                 ##
-- ##                                                                                ##
-- ##                                                                                ##
-- ##     Copyright 2014 (c) Casual Bananas                                          ##
-- ##     All Rights Reserved.                                                       ##
-- ##                                                                                ##
-- ##     NOTICE:  All information contained herein is, and remains                  ##
-- ##     the property of Casual Bananas. The intellectual and technical             ##
-- ##     concepts contained herein are proprietary to Casual Bananas and may be     ##
-- ##     covered by U.S. and Foreign Patents, patents in process, and are           ##
-- ##     protected by trade secret or copyright law.                                ##
-- ##     Dissemination of this information or reproduction of this material         ##
-- ##     is strictly forbidden unless prior written permission is obtained          ##
-- ##     from Casual Bananas                                                        ##
-- ##                                                                                ##
-- ##     _________________________                                                  ##
-- ##                                                                                ##
-- ##                                                                                ##
-- ##     Casual Bananas is registered with the "Kamer van Koophandel" (Dutch        ##
-- ##     chamber of commerce) in The Netherlands.                                   ##
-- ##                                                                                ##
-- ##     Company (KVK) number     : 59449837                                        ##
-- ##     Email                    : info@casualbananas.com                          ##
-- ##                                                                                ##
-- ##                                                                                ##
-- ####################################################################################

JB.Gamemode.PlayerInitialSpawn = function(gm,ply)
	ply:SetTeam(TEAM_PRISONER) -- always spawn as prisoner;
	JB:DebugPrint(ply:Nick().." has successfully joined the server.");
end;

JB.Gamemode.PlayerSpawn = function(gm,ply)
		if (ply:Team() ~= TEAM_PRISONER and ply:Team() ~= TEAM_GUARD) or
			(not ply._jb_forceRespawn and (JB.State == STATE_LASTREQUEST or JB.State == STATE_PLAYING or (JB.State ~= STATE_IDLE and CurTime() - JB.RoundStartTime > 10)))
		then
			ply:KillSilent();
			gm:PlayerSpawnAsSpectator(ply);
			return;
		end

	ply._jb_forceRespawn=false
	ply:StripWeapons();
	ply:StripAmmo();

	gm.BaseClass.PlayerSpawn(gm,ply);

	ply.originalRunSpeed = ply:GetRunSpeed();
end;

JB.Gamemode.PlayerDeathThink = function( gm,ply )
	if ( ply:KeyPressed( IN_ATTACK ) || ply:KeyPressed( IN_ATTACK2 ) || ply:KeyPressed( IN_JUMP ) ) and ply:GetObserverMode() == OBS_MODE_NONE then
		if JB.State == STATE_IDLE then
			ply:Spawn();
		else
			JB.Gamemode:PlayerSpawnAsSpectator(ply)
		end
	end
end

JB.Gamemode.PlayerCanPickupWeapon = function( gm, ply, entity )
	if not ply:Alive() then return false end

	if entity:GetClass() == "weapon_physgun" then
		return ply:IsSuperAdmin()
	end

	if not ply:CanPickupWeapon(entity) then return false end

	if entity.IsDropped and (not entity.BeingPickedUp or entity.BeingPickedUp ~= ply) then
		return false;
	end

	if JB:CheckWeaponReplacements(ply,entity) then entity:Remove(); return false end

	return true
end

JB.Gamemode.PlayerShouldTakeDamage = function(gm,a,b)
	if IsValid(a) and IsValid(b) and a:IsPlayer() and b:IsPlayer() and a:Team() == b:Team() and (JB.State == STATE_SETUP or JB.State == STATE_PLAYING or JB.State == STATE_LASTREQUEST) and (not IsValid(JB.TRANSMITTER) or a:Team() ~= TEAM_PRISONER or not JB.TRANSMITTER:GetJBWarden_PVPDamage()) then
		return false
	end
	return true;
end

JB.Gamemode.IsSpawnpointSuitable = function()
    return true
end

JB.Gamemode.PlayerDeath = function(gm, victim, weapon, killer)
	victim:StripWeapons()
	victim:SendNotification("You are muted until the round ends")

	if victim.GetWarden and IsValid(JB.TRANSMITTER) and JB.TRANSMITTER:GetJBWarden() == victim:GetWarden() then
		JB:BroadcastNotification("The warden has died")
		timer.Simple(.5,function()
			for k,v in pairs(team.GetPlayers(TEAM_GUARD))do
				if v:Alive() and v ~= victim then
					JB:BroadcastNotification("Prisoners get freeday");
					break;
				end
			end
		end);
	end

	if IsValid(killer) and killer.IsPlayer and killer:IsPlayer()
	and	killer:Team() == TEAM_PRISONER and victim:Team() == TEAM_GUARD
	and killer.AddRebelStatus
	and not killer:GetRebel()
	and tonumber(JB.Config.rebelSensitivity) >= 1
	and JB.State ~= STATE_LASTREQUEST then
		JB:DebugPrint(killer:Nick().. "  is now a rebel!!");
		killer:AddRebelStatus();
	end

	if IsValid(killer) and killer.IsPlayer and killer:IsPlayer() and (killer:Team() == TEAM_GUARD or killer:Team() == TEAM_PRISONER) and killer:Alive() then
		JB:BroadcastQuickNotification(victim:Nick().." was killed by "..killer:Nick());
	else
		JB:BroadcastQuickNotification(victim:Nick().." has died");
	end

	if JB.State == STATE_PLAYING and victim:Team() == TEAM_GUARD and JB:AliveGuards() == 2 and JB:AlivePrisoners() > 3 and not IsValid(JB:GetWarden()) and not JB.ThisRound.notifiedLG and tobool(JB.Config.notifyLG) then
		JB.ThisRound.notifiedLG = true;
		JB:BroadcastNotification("Last guard kills all");
	end

	if JB.State == STATE_PLAYING and victim:Team() == TEAM_PRISONER and JB:AlivePrisoners() == 2 and not JB.ThisRound.notifiedLR then
		JB.ThisRound.notifiedLR = true;
		JB:BroadcastNotification("The last prisoner now select a last request from the menu (F4).");
		JB:BroadcastNotification("Custom last requests may only affect the current round!");
	end

	if JB.State == STATE_LASTREQUEST then
		local guard,prisoner = unpack(JB.LastRequestPlayers);
		if IsValid(guard) and guard == victim then
			JB.LastRequest = "0";
		end
	end

	JB:DamageLog_AddPlayerDeath(victim, weapon, killer)
end

JB.Gamemode.ScalePlayerDamage = function( gm, ply, hitgroup, dmginfo )
	if ( hitgroup == HITGROUP_HEAD ) then
        dmginfo:ScaleDamage( 3 )
    elseif ( hitgroup == HITGROUP_LEFTARM or hitgroup == HITGROUP_RIGHTARM ) then
        dmginfo:ScaleDamage( 0.8 )
    elseif ( hitgroup == HITGROUP_LEFTLEG or hitgroup == HITGROUP_RIGHTLEG ) then
     	dmginfo:ScaleDamage( 0.4 )
    end
end

JB.Gamemode.GetFallDamage = function() return 0 end

local fallsounds = {
   Sound("player/damage1.wav"),
   Sound("player/damage2.wav"),
   Sound("player/damage3.wav")
};
JB.Gamemode.OnPlayerHitGround = function(gm,ply, in_water, on_floater, speed)
   if in_water or speed < 460 or not IsValid(ply) then return end

   local damage = math.pow(0.05 * (speed - 420), 1.30)

   if on_floater then damage = damage / 2 end

   if math.floor(damage) > 0 then
      local dmg = DamageInfo()
      dmg:SetDamageType(DMG_FALL)
      dmg:SetAttacker(game.GetWorld())
      dmg:SetInflictor(game.GetWorld())
      dmg:SetDamageForce(Vector(0,0,1))
      dmg:SetDamage(damage)

      ply:TakeDamageInfo(dmg)

      if damage > 5 then
			sound.Play(table.Random(fallsounds), ply:GetShootPos(), 55 + math.Clamp(damage, 0, 50), 100)
      end
   end
end

JB.Gamemode.PlayerCanHearPlayersVoice = function( gm, listener, talker )
	if (not talker:Alive() )
		or (talker:Team() == TEAM_PRISONER and ((CurTime() - JB.RoundStartTime) < 30)) then return false,false; end

	if(talker.GetWarden and talker:GetWarden()) then
		return true,false;
	end
	return true,false;
end

JB.Gamemode.EntityTakeDamage = function ( gm, ent, dmg )
	JB:DamageLog_AddEntityTakeDamage( ent,dmg )
end

hook.Add("PlayerDisconnected","JB.PlayerDisconnected.CheckDisconnect",function(p)
	if JB.State == STATE_LASTREQUEST then
		local guard,prisoner = unpack(JB.LastRequestPlayers);
		if IsValid(guard) and guard == p then
			JB.LastRequest = "0";
		end
	end
end)

hook.Add("DoPlayerDeath", "JB.DoPlayerDeath.DropWeapon", function(ply)
	if IsValid(ply) and IsValid(ply:GetActiveWeapon()) and ply:GetActiveWeapon():GetClass() ~= "jb_fists" then
		local wep = ply:GetActiveWeapon();
		wep.IsDropped = true;
		wep.BeingPickedUp = false;
		ply:DropWeapon(wep)
	end
end)

hook.Add("EntityTakeDamage", "JB.EntityTakeDamage.WeaponScale", function(ent, d)
	local att = d:GetInflictor()

	if att:IsPlayer() then
		local wep = att:GetActiveWeapon()

		if IsValid(wep) and not wep.NoDistance and wep.EffectiveRange then
			local dist = ent:GetPos():Distance(att:GetPos())

			if dist >= wep.EffectiveRange * 0.5 then
				dist = dist - wep.EffectiveRange * 0.5
				local mul = math.Clamp(dist / wep.EffectiveRange, 0, 1)

				d:ScaleDamage(1 - wep.DamageFallOff * mul)
			end
		end
	end
end)

hook.Add("PlayerHurt", "JB.PlayerHurt.MakeRebel", function(victim, attacker)
	if !IsValid(attacker) or !IsValid(victim) or !attacker:IsPlayer() or !victim:IsPlayer() or tonumber(JB.Config.rebelSensitivity) ~= 2 then return end
	if attacker:Team() == TEAM_PRISONER and victim:Team() == TEAM_GUARD and attacker.SetRebel
	and not attacker:GetRebel()
	and JB.State ~= STATE_LASTREQUEST then
		attacker:AddRebelStatus();
	end
end)

local painSounds = {
	"vo/npc/male01/ow01.wav",
	"vo/npc/male01/ow02.wav",
	"vo/npc/male01/pain01.wav",
	"vo/npc/male01/pain02.wav",
	"vo/npc/male01/pain03.wav",
	"vo/npc/male01/pain04.wav",
	"vo/npc/male01/pain05.wav",
	"vo/npc/male01/pain06.wav",
	"vo/npc/male01/pain07.wav",
	"vo/npc/male01/pain08.wav",
	"vo/npc/male01/pain09.wav"
}
hook.Add("EntityTakeDamage", "JB.EntityTakeDamage.SayOuch", function(victim)
	if IsValid(victim) and victim:IsPlayer() and math.random(1,6) == 1 then
		victim:EmitSound(painSounds[math.random(#painSounds)],math.random(100,140),math.random(90,110))
	end
end)

concommand.Remove("changeteam");

function JB:BroadcastNotification(text,omit)
	net.Start("JB.SendNotification");
	net.WriteString(text);
	if omit then
		net.SendOmit(omit);
		return;
	end
	net.Broadcast();
end

function JB:BroadcastQuickNotification(text)
	net.Start("JB.SendQuickNotification");
	net.WriteString(text);
	net.Broadcast();
end


function JB.Gamemode:AllowPlayerPickup( ply, object )
    return (ply:Alive() and (JB.State == STATE_PLAYING or JB.State == STATE_SETUP or JB.State == STATE_LASTREQUEST) and IsValid(JB.TRANSMITTER) and JB.TRANSMITTER:GetJBWarden_ItemPickup());
end

function JB.Gamemode:PlayerUse( ply, ent )
	if not ply:Alive() or not (ply:Team() == TEAM_GUARD or ply:Team() == TEAM_PRISONER) then
		return false
	end
	return true
end



JB.Gamemode.ShowHelp = function() end
JB.Gamemode.ShowTeam = function() end
JB.Gamemode.ShowSpare1 = function() end
JB.Gamemode.ShowSpare2 = function() end