All pastes #591685 Raw Edit

blackbird

public lua v1 · immutable
#591685 ·published 2007-06-27 10:29 UTC
rendered paste body
function findinsphere(ply)	local pos = ply:GetPos()	local sphere = ents.FindInSphere(pos,300)	for k,v in pairs(sphere) do		if v:IsPlayer() then			if v:IsAlive() then								local user = v				local name = user:Nick()				ply:SetNWString("peoplebyme",string.lower(ply:GetNWString("peoplebyme")).." "..string.lower(name))			end		end		local plode = string.Explode(" ",ply:GetNWString("peoplebyme"))		for key,value in pairs(plode) do			if not 	end	local plode = string.Explode(" ",string.lower(ply:GetNWString("peoplebyme")))	local count = 0	for k,v in pairs(plode) do		for key,value in pairs(sphere) do			if v == value:Nick() then				count = count+1				print(count)			end		end		print(count)		if count == 0 then			table.remove(plode,k)		end		newtable = table.concat(plode," ")		ply:SetNWString("peoplebyme",newtable)	end	timer.Simple(3,findinsphere)endtimer.Simple(3,findinsphere)local people = user:GetNWString("peoplebyme")local plode = string.Explode(" ",people)for k,v in pairs(player.GetAll()) do	for key,value in pairs(plode) do		if string.lower(v:Nick()) == value then			local ply = v			local pos = ply:EyePos()			pos.z = pos.z+15			pos = pos:ToScreen()						draw.DrawText( ply:Nick(), "TargetID", pos.x + 1, pos.y + 1, Color( 0, 0, 0, 255 ), 1 );			draw.DrawText( ply:Nick(), "TargetID", pos.x, pos.y, team.GetColor( ply:Team() ), 1 );										draw.DrawText( ply:GetNWString( "job" ), "TargetID", pos.x + 1, pos.y + 21, Color( 0, 0, 0, 255 ), 1 );			draw.DrawText( ply:GetNWString( "job" ), "TargetID", pos.x, pos.y + 20, Color( 255, 255, 255, 200 ), 1 );		end	endend