From 5c4ebc932d8c02522802c842d43d863d89aca162 Mon Sep 17 00:00:00 2001
From: Apickx <Apickx@cogarr.org>
Date: Mon, 28 Dec 2015 19:10:44 -0500
Subject: Initial commit

---
 gamemode/shared/weaponswap.lua | 168 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 168 insertions(+)
 create mode 100644 gamemode/shared/weaponswap.lua

(limited to 'gamemode/shared/weaponswap.lua')

diff --git a/gamemode/shared/weaponswap.lua b/gamemode/shared/weaponswap.lua
new file mode 100644
index 0000000..f6e0a5c
--- /dev/null
+++ b/gamemode/shared/weaponswap.lua
@@ -0,0 +1,168 @@
+
+local meta = FindMetaTable("Player")
+
+if (CLIENT) then
+	local Num = 0
+	local STi = CurTime()
+
+	hook.Add("PlayerBindPress","SwapWeapons",function(pl,bind,pressed)
+		if (LocalPlayer():IsPigeon()) then 
+			if (bind:find("invprev")) then return true
+			elseif (bind:find("invnext")) then return true end
+		end
+		
+		if (pressed) then
+			local Wep = pl:GetActiveWeapon()
+			
+			if (bind:find("invprev")) then 
+				Num = Num+1
+				STi = CurTime()
+				
+				if (Num > 9) then Num = 0 end
+				
+				net.Start("Select") net.WriteUInt(Num,4) net.SendToServer()
+				
+				surface.PlaySound("wintersurvival2/hud/itemequip.wav")
+				
+				if (IsValid(Wep)) then
+					if (pl.Weapons and pl.Weapons[Num]) then Wep:SetWeaponHoldType(pl.Weapons[Num].Item.HoldType) 
+					else Wep:SetWeaponHoldType("normal") end
+				end
+				
+				return true
+			elseif (bind:find("invnext")) then 
+				Num = Num-1
+				STi = CurTime()
+				
+				if (Num < 0) then Num = 9 end
+				
+				net.Start("Select") net.WriteUInt(Num,4) net.SendToServer()
+				
+				surface.PlaySound("wintersurvival2/hud/itemequip.wav")
+				
+				if (IsValid(Wep)) then
+					if (pl.Weapons and pl.Weapons[Num]) then Wep:SetWeaponHoldType(pl.Weapons[Num].Item.HoldType) 
+					else Wep:SetWeaponHoldType("normal") end
+				end
+				
+				return true
+			end
+		end
+	end)
+
+	function GetWeaponSlot()
+		return Num
+	end
+
+	function GetRecentSwapTime()
+		return STi
+	end
+	
+	net.Receive("ReceiveSelect",function() 
+		local pl = net.ReadEntity()
+		if (!IsValid(pl)) then return end
+		
+		pl.Select = net.ReadUInt(4) 
+		local wep = pl:GetActiveWeapon()
+		
+		if (!IsValid(wep)) then return end
+		
+		if (pl.Weapons and pl.Weapons[pl.Select]) then wep:SetWeaponHoldType(pl.Weapons[pl.Select].Item.HoldType)
+		else wep:SetWeaponHoldType("normal") end
+	end)
+	
+	net.Receive("SetSlot",function() 
+		local pl = net.ReadEntity()
+		
+		if (!IsValid(pl)) then return end
+		if (!pl.Weapons) then pl.Weapons = {} end
+		
+		local id = net.ReadUInt(5)
+		local na = net.ReadString()
+		local A = GetItemByName(na)
+		
+		if (A) then pl.Weapons[id] = {Name = na,Item = A}
+		else pl.Weapons[id] = nil end
+		
+		pl:EmitSound("wintersurvival2/hud/itemequip.wav")
+	end)
+	
+	function RequestEquip(id,item)
+		net.Start("SetSlotReq")
+			net.WriteUInt(id,5)
+			net.WriteString(item)
+		net.SendToServer()
+	end
+	
+	function RequestUnEquip(id)
+		net.Start("SetSlotReqUn")
+			net.WriteUInt(id,5)
+		net.SendToServer()
+	end
+	
+	function EraseSlot(id)
+		net.Start("EraseSlot")
+			net.WriteUInt(id,5)
+		net.SendToServer()
+	end
+else
+	util.AddNetworkString("Select")
+	util.AddNetworkString("ReceiveSelect")
+	util.AddNetworkString("SetSlot")
+	util.AddNetworkString("SetSlotReq")
+	util.AddNetworkString("SetSlotReqUn")
+	util.AddNetworkString("EraseSlot")
+	
+	net.Receive("Select",function(siz,pl) pl.Select = net.ReadUInt(4) pl:UpdateSelection() end)
+	net.Receive("SetSlotReq",function(siz,pl) pl:SetWeaponSlot(net.ReadUInt(5),net.ReadString()) end)
+	net.Receive("SetSlotReqUn",function(siz,pl) pl:UnEquipWeaponSlot(net.ReadUInt(5)) end)
+	net.Receive("EraseSlot",function(siz,pl) pl:UnEquipWeaponSlot(net.ReadUInt(5),true) end)
+	
+	function meta:UpdateSelection(pl)
+		if (self.Select) then 
+			net.Start("ReceiveSelect") 
+				net.WriteEntity(self)
+				net.WriteUInt(self.Select,4)
+			if (IsValid(pl)) then net.Send(pl)
+			else net.Broadcast() end
+		end
+		
+		if (self:CanPlaceStructure()) then self:GhostRemove() end
+	end
+	
+	function meta:SetWeaponSlot(id,item)
+		if (!self:HasItem(item)) then return end
+		if (!self.Weapons) then self.Weapons = {} end
+		
+		self:RemoveItem(item,1)
+		
+		local A = GetItemByName(item)
+		
+		if (self.Weapons[id]) then self:AddItem(self.Weapons[id].Name,1) end
+		
+		self.Weapons[id] = {Name = item,Item = A}
+		
+		net.Start("SetSlot")
+			net.WriteEntity(self)
+			net.WriteUInt(id,5)
+			net.WriteString(item)
+		net.Broadcast()
+	end
+	
+	function meta:UnEquipWeaponSlot(id,bErase)
+		if (!self.Weapons or !self.Weapons[id]) then return end
+		
+		if (!bErase) then self:AddItem(self.Weapons[id].Name,1) end
+		
+		self.Weapons[id] = nil
+		
+		net.Start("SetSlot")
+			net.WriteEntity(self)
+			net.WriteUInt(id,5)
+		net.Broadcast()
+	end
+end
+
+function meta:GetSelectedWeapon()
+	return self.Select or 0
+end
\ No newline at end of file
-- 
cgit v1.2.3-70-g09d2