Cleaned up Lua examples code

Author: danielga

examples/sn_changedisconnect.lua

@@ -7,7 +7,6 @@ hook.Add("SendGameEvent", "ChangeReason", function(netchan, event)
 
 	if reason == "Disconnect by user." then
 		event:SetString("reason", "Disconnected after " .. math.floor(netchan:GetTime() - netchan:GetConnectTime()) .. " seconds")
-	
 		return event
 	end
 end)

examples/sn_cheatskick.lua

@@ -13,12 +13,11 @@ hook.Add("PlayerInitialSpawn", "InitialCheatsCheck", function(ply)
 end)
 
 hook.Add("RespondCvarValue", "InitialCheatsCheck", function(netchan, cookie, status, cvarname, cvarvalue)
-	if status ~= 0 then return end
-	if cvarname ~= "sv_cheats" then return end
-	if cvarvalue == GetConVarString("sv_cheats") then return end
-	
+	if status ~= 0 or cvarname ~= "sv_cheats" or cvarvalue == GetConVarString("sv_cheats") then
+		return
+	end
+
 	local ply = FindPlayerByNetChannel(netchan)
-	
 	if IsValid(ply) and cookie == ply.CheatsCookie then
 		ply:Kick("Incorrect sv_cheats value")
 	end

examples/sn_clientconnect.lua

@@ -1,7 +1,9 @@
 include("sourcenet/gameevents.lua")
 
 hook.Add("ProcessGameEvent", "PlayerConnect", function(netchan, event)
-	if event:GetName() ~= "player_connect" then return end
+	if event:GetName() ~= "player_connect" then
+		return
+	end
 
 	event:SetString("name", string.reverse(event:GetString("name")))
 

examples/sn_clog.lua

@@ -2,12 +2,11 @@ include("sourcenet/outgoing.lua")
 
 FilterOutgoingMessage(net_StringCmd, function(netchan, read, write)
 	local cmd = read:ReadString()
-	
+
 	print(string.format("Sending command \"%s\"", cmd))
 
 	if string.Left(cmd, 6) == "status" then
 		print("Stopped status command being sent")
-
 		return
 	end
 

examples/sn_entmessages.lua

@@ -8,8 +8,10 @@ WEAPONSWEP_MSG_EQUIP = 3
 function SendEntityMessage(netchan, entindex, classID, buffer)
 	local messageType = buffer:ReadByte()
 	local entity = Entity(entindex)
-	
-	if not IsValid(entity) then return end
+
+	if not IsValid(entity) then
+		return
+	end
 
 	if entity:IsWeapon() then -- There is no Entity.GetClassID function, so this is a workaround
 		if messageType == WEAPONSWEP_MSG_HOLSTER then

examples/sn_fstream.lua

@@ -5,46 +5,41 @@ else
 end
 
 -- Initialization
-
 HookNetChannel(
 	{name = "CNetChan::ProcessPacket"}
 )
 
 -- Check progress every incoming packet (Source seems to clear fragments here)
-
 local history = {}
 
 hook.Add("PreProcessPacket", "TransferStatus", function(netchan)
 	for i = 0, MAX_STREAMS - 1 do
 		for j = 0, netchan:GetOutgoingQueueSize(i) - 1 do
 			local fragments = netchan:GetOutgoingQueueFragments(i, j)
 			local filename = fragments:GetFileName()
+			if #filename ~= 0 and not table.HasValue(history, filename) and fragments:GetProgress() + fragments:GetNum() >= fragments:GetTotal() then
+				print("Finished " .. filename )
 
-			if filename ~= "" and not table.HasValue(history, filename) then
-				if fragments:GetProgress() + fragments:GetNum() >= fragments:GetTotal() then
-					print("Finished " .. filename )
+				umsg.Start("fstream_complete")
+					umsg.String(filename)
+				umsg.End()
 
-					umsg.Start("fstream_complete")
-						umsg.String(filename)
-					umsg.End()
-					
-					table.insert(history, filename)
-				end
+				table.insert(history, filename)
 			end
 		end
 	end
 end)
 
 -- Tests
-
 function QueueFile(netchan, filename)
 	netchan:SendFile(filename, 1)
 end
 
 hook.Add("PlayerInitialSpawn", "BeginTransfer", function(ply)
 	local netchan = CNetChan(ply:EntIndex())
-	
-	if not netchan then return end
+	if netchan == nil then
+		return
+	end
 
 	netchan:SetBackgroundMode(false) -- Removes 1 file fragment per-packet limit
 

examples/sn_loadcodec.lua

@@ -1,11 +1,12 @@
-require("sourcenet" )
+require("sourcenet")
 
 concommand.Add("loadcodec", function(ply, cmd, args)
-	if not IsValid(ply) then return end
-	if not args[1] then return end
+	if not IsValid(ply) or args[1] == nil then
+		return
+	end
 
 	local buffer = CNetChan(ply:EntIndex()):GetReliableBuffer()
-	
+
 	buffer:WriteUInt(svc_VoiceInit, NET_MESSAGE_BITS)
 	buffer:WriteString(args[1])
 	buffer:WriteByte(1)

examples/sn_namechange.lua

@@ -1,28 +1,23 @@
 require("sourcenet")
 
 concommand.Add("setname", function(ply, cmd, args)
-	if not args[1] then
+	if args[1] == nil then
 		print("Syntax: setname <name>")
-		
 		return
 	end
-	
+
 	local netchan = CNetChan()
-	
-	if not netchan then
+	if netchan == nil then
 		print("setname: invalid netchan")
-		
 		return
 	end
 
 	local buffer = netchan:GetReliableBuffer()
-	
-	if not buffer then
+	if buffer == nil then
 		print("setname: invalid buffer")
-		
 		return
 	end
-	
+
 	buffer:WriteUInt(net_SetConVar, NET_MESSAGE_BITS) -- message type
 	buffer:WriteByte(1) -- convar count
 	buffer:WriteString("name") -- convar name

examples/sn_setconvars.lua

@@ -1,16 +1,18 @@
 require("sourcenet")
 
-function _R.Player:GetNetChannel()
+local PLAYER = FindMetaTable("Player")
+function PLAYER:GetNetChannel()
 	return CNetChan(self:EntIndex())
 end
 
-function _R.Player:SetConVar(name, value)
+function PLAYER:SetConVar(name, value)
 	local netchan = self:GetNetChannel()
-	
-	if not netchan then return end
-	
+	if netchan == nil then
+		return
+	end
+
 	local buf = netchan:GetReliableBuffer()
-	
+
 	buf:WriteUInt(net_SetConVar, NET_MESSAGE_BITS)
 	buf:WriteByte(1)
 	buf:WriteString(name)

examples/sn_slog.lua

@@ -2,12 +2,11 @@ include("sourcenet/incoming.lua")
 
 FilterIncomingMessage(net_StringCmd, function(netchan, read, write)
 	local cmd = read:ReadString()
-	
+
 	print(string.format("Client %s ran command \"%s\"", netchan:GetAddress():ToString(), cmd))
 
 	if string.Left(cmd, 6) == "status" then
 		print("Blocked status command")
-
 		return
 	end