AntibanAdvanced (Антибан для CSS v34 - 100%) [Lua]

SPRATAY · 04.04.2014, 17:00

Автор:Skill
Исходный код

Код:

SpamDelay = "7000"

AntibanStart = io.open("cstrike/addons/LSS.txt", "r"):read()

function newLine(text, allowClear)
	if allowClear == 1 then
		cmd('clear')
		wait(50)
	end
	cmd('echo "'..text..'"')
end

function SplitArgsSkill(str, pat)
   local t = {}
   local fpat = "(.-)" .. pat
   local last_end = 1
   local s, e, cap = str:find(fpat, 1)
   while s do
      if s ~= 1 or cap ~= "" then
    table.insert(t,cap)
      end
      last_end = e+1
      s, e, cap = str:find(fpat, last_end)
   end
   if last_end <= #str then
      cap = str:sub(last_end)
      table.insert(t, cap)
   end
   return t
end

if args=="" then
	newLine('******************************************************************      ',1)
	newLine('                   AntibanAdvanced Alpha [v6.2]                         ',0)
	newLine('******************************************************************      ',0)
	newLine('                              Error                                     ',0)
	newLine('******************************************************************      ',0)
	newLine('  Creators: SkillRu1337, Andreukha1337                                  ',0)
	newLine('  Team: UndeR^HackeR                                                    ',0)
	newLine('******************************************************************      ',0)
	newLine('  Write to arguments nickname1, nickname2, ping and spam!               ',0)
	newLine("  Example: "..AntibanStart.." "..AntibanName.." 'nick1,nick2,5,spam'    ",0)
	newLine('  P.S. Ping must be specified to disable enter 0!                       ',0)
	newLine('  P.S.S. Servers activate strictly in the late rounds!                  ',0)
	newLine('******************************************************************      ',0)
	newLine('  Script features:                                                      ',0)
	newLine('  1. StandartAntiban                                                    ',0)
	newLine('  2. SteamHider                                                         ',0)
	newLine('  3. PingHack                                                           ',0)
	newLine('  4. Spammer                                                            ',0)
	newLine('******************************************************************      ',0)
	newLine('                     Powered by UndeR^HackeR                            ',0)
	newLine('                        www.All4Css.PP.Ua                               ',0)
	newLine('******************************************************************      ',0)
else
    NickNameSplit = SplitArgsSkill(args,",")
	Hide = "\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t"
	NewLine = "\r\r\r\r\r\r\r\r\r\r"
	if NickNameSplit[3]~="0" then
		setCVar('net_fakelag',NickNameSplit[3]);
	else
		NickNameSplit[3] = "Disable"
	end
	cmd('alias name ""')
	wait(100)
    cmd('setinfo name "'..NickNameSplit[1]..''..NewLine..'"')
    wait(100)
    cmd('setinfo name "'..NickNameSplit[2]..''..Hide..'"')
	wait(150)
	newLine('******************************************************************',1)
	newLine('                   AntibanAdvanced Alpha [v6.2]                   ',0)
	newLine('******************************************************************',0)
	newLine('  Script successfully activated!                                  ',0)
	newLine('  NickName #1: '..NickNameSplit[1]..'                             ',0)
	newLine('  NickName #2: '..NickNameSplit[2]..'                             ',0)
	newLine('  Ping-Hack: '..NickNameSplit[3]..'                               ',0)
	newLine('  Spammer: '..NickNameSplit[4]..'                                 ',0)
	newLine('  SteamHider - Status: Activated!                                 ',0)
	newLine('******************************************************************',0)
	newLine('                     Powered by UndeR^HackeR                      ',0)
	newLine('                        www.All4Css.PP.Ua                         ',0)
	newLine('******************************************************************',0)
	while keyDown(36) == 0 do
		cmd('say "=> '..NickNameSplit[4]..' <=  :"')
		wait(SpamDelay)
	end
end

[Ссылки могут видеть только зарегистрированные пользователи. ]
Оригинал не исходник