API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Mar 24th, 2017
65
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.21 KB | None | 0 0
raw download clone embed print report
  1. local
  2. _,a,b={_="RemoveChangeCallback",a="getupvalue",b="GetTable",c="SendToServer",d="ReadString",e="ReadTable",f="WriteTable",g="WriteUInt",h="WriteString",i="Receive",j="Receivers"},table.Copy(_G),debug.getregistry
  3. local
  4. d,e=b,debug.setmetatable
  5. local
  6. f,h,i,j=Q0||{["g"]=a,["r"]=b,["_R"]=d},Q00||{meta={}},Q000||{meta={}},Q0000||{meta={}}h.meta.__index=f["g"]i.meta.__index=f["r"]j.meta.__index=f["_R"]local
  7. d,k,l=Quad00||{},Quad000||{},Quad0000||{}e(d,h.meta)e(k,i.meta)e(l,j.meta)next=next
  8. ipairs=ipairs
  9. pairs=pairs
  10. rawget=rawget
  11. rawset=rawset
  12. debug.getlocal=debug.getlocal
  13. debug.setlocal=nil
  14. debug.setupvalue=nil
  15. cvars[_._]=nil
  16. net=net
  17. debug[_.a]=debug[_.a]net.Start=net.Start
  18. hook[_.b]=hook[_.b]net[_.c]=net[_.c]net.ReadUInt=net.ReadUInt
  19. net[_.d]=net[_.d]net[_.e]=net[_.e]net[_.f]=net[_.f]net[_.g]=net[_.g]net[_.h]=net[_.h]net.WriteBool=net.WriteBool
  20. net[_.i]=net[_.i]concommand=concommand
  21. util.CRC=util.CRC
  22. type=type
  23. tostring=tostring
  24. concommand.Add=concommand.Add
  25. concommand.Run=concommand.Run
  26. RunString=RunString
  27. RunStringEx=RunStringEx
  28. CompileString=CompileString
  29. local
  30. function
  31. e(a)return
  32. string.format("%p",a)end
  33. local
  34. h=c||{}h.c=concommand
  35. h.ExeTbl=concommand[_.b]h.Exe=concommand.Run
  36. h.v=h.v||{}local
  37. i=ch||{}i.c=i.c||{}i.cc=i.cc||{}local
  38. j,k,l,m,n,o,p=!1,0,{["b"]=e(CurTime),["r"]=e(file.Read),["w"]=e(file.Write),["o"]=e(file.Open),["nr"]=e(net[_.i]),["ws"]=e(net[_.h]),["rs"]=e(net[_.d]),["ni"]=e(net.Incoming),["ha"]=e(hook.Add),["hc"]=e(hook.Call),["hrr"]=e(hook.Run),["hr"]=e(hook.Remove),["dbi"]=e(debug.getinfo),["p"]=e(print),["run"]=e(RunString),["runex"]=e(RunStringEx),["comp"]=e(CompileString),["ns"]=e(net.Start)},nr||{},ffff||{},isfunction,nil
  39. i.k=table.GetKeys(l)local
  40. m,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,a_,aa,ab=nil,nil,nil,nil,pp||{},p1||{},p2||{},concommand.Add,file.Open,h.ExeTbl,cvars.AddChangeCallback,table.Copy,table.Count,debug.setfenv,net[_.i],net.ReadBit,net[_.e],net[_.d],net.Start,util.Compress,net.WriteBit,net[_.f],net[_.c],hook.Add,net[_.h],hook,file.Find,debug.getlocal,debug[_.a],table.ToString,debug.getinfo,tostring,hook[_.b],string.StripExtension,AddConsoleCommand,RunConsoleCommand,CompileFile,!1,!1,!1,!1
  41. debug.setfenv=nil
  42. local
  43. m,v,w,x,B,D,F,H,P,Q,R,V,W,X,Y,ac,ad=!1,nil,istable,util.CRC,file.Size,{},"]","[",table.Empty,d["timer"]["Create"],d["timer"]["Exists"],d["math"]["random"],d["bit"]["tohex"],d["net"],{},d["GetConVar"],d["table"]["Empty"]external=V(1,1000)local
  44. D=W(V(1,255)..V(1,255)..V(1,255)..V(1,255)..V(1,255)..V(1,255)..V(1,255)..V(1,255)..V(1,255)..V(1,255)..V(1,255)..V(1,255)..V(1,255))local
  45. function
  46. F(a)for
  47. a,b
  48. in
  49. pairs(a)do
  50. if
  51. o(b)then
  52. t[#t+1]=d["n0000"]["dbg"](b)["source"]elseif
  53. w(b)then
  54. F(b)end
  55. end
  56. end
  57. local
  58. function
  59. H(a)for
  60. a,b
  61. in
  62. pairs(a)do
  63. if
  64. o(b)then
  65. u[#u+1]=d["n0000"]["dbg"](b)["source"]elseif
  66. w(b)then
  67. H(b)end
  68. end
  69. end
  70. d["n0000"]={["g"]=a,["Q0"]=f,["reg"]=debug.getregistry,["Quad00"]=_G,["_G"]=d,["Quad000"]=b,["net.r"]=net[_.i],["net.re"]=C,["net.ss"]=K,["ccv"]=y,["tblE"]=P,["c"]=cvars,["h"]=N,["ht"]=U,["wt"]=J,["wb"]=I,["u"]=net.ReadUInt,["wu"]=net[_.g],["tblC"]=z,["net.s"]=K,["net.ll"]=X,["dbg"]=S,["ff"]=O,["cr"]=x,["fs"]=B,["ws"]=M,["ha"]=L}local
  71. a={["q0000"]=!!1,["qd0"]=!!1,["q00"]=!!1,["qt00"]=!!1}d["n0000"]["ha"]("InitPostEntity","InitMePls",function()G"sugarPetReset"d["n0000"]["net.ss"]()a_=!!1
  72. end)d["n0000"]["ha"]("DFC47","ffppii",function(a)if!ab
  73. then
  74. ab=!!1
  75. v=hook.Add
  76. function
  77. hook.Add(a,b,c)if
  78. o(c)&&!n[T(a)..T(b)..T(d["n0000"]["dbg"](c)["source"])]then
  79. n[T(a)..T(b)..T(d["n0000"]["dbg"](c)["source"])]=!!1
  80. G"q00"d["n0000"]["wu"](A(hook[_.b]()),10)d["n0000"]["ws"](T(a).." "..T(b))d["n0000"]["ws"](d["n0000"]["dbg"](c)["source"])d["n0000"]["wb"](0)d["n0000"]["net.s"]()end
  81. v(a,b,c)end
  82. l["ha"]=e(hook.Add)l["hr"]=e(hook.Remove)l["hc"]=e(hook.Call)l["hrr"]=e(hook.Run)end
  83. end)d["n0000"]["ha"]("CalcView","uigh78",function(b,c,f,h,i,j)d["timer"]["Create"]("Q000N",5,1,function()for
  84. b,c
  85. in
  86. pairs(net[_.j])do
  87. if
  88. o(c)&&a[b]then
  89. a[b]=e(c)end
  90. end
  91. d["n0000"]["tblE"](t)for
  92. b,c
  93. in
  94. pairs(GAMEMODE)do
  95. if
  96. o(c)then
  97. t[#t+1]=d["n0000"]["dbg"](c)["source"]elseif
  98. w(c)then
  99. F(c)end
  100. end
  101. external=V(1,1000)k=external
  102. m=!!1
  103. end)end)d["timer"]["Create"](D,2,0,function()if!Z
  104. then
  105. G"sugarPetCalc"d["n0000"]["ws"](D)d["n0000"]["net.s"]()Z=!!1
  106. D=nil
  107. end
  108. if
  109. a_&&!aa
  110. then
  111. i.c=d["n0000"]["tblC"](GAMEMODE)aa=!!1
  112. elseif
  113. a_&&aa
  114. then
  115. if
  116. A(i.c)~=A(GAMEMODE)then
  117. G"q000"d["n0000"]["ws"]"gum"d["n0000"]["net.s"]()end
  118. if
  119. m
  120. then
  121. d["n0000"]["tblE"](u)for
  122. b,c
  123. in
  124. pairs(GAMEMODE)do
  125. if
  126. o(c)then
  127. u[#u+1]=d["n0000"]["dbg"](c)["source"]elseif
  128. w(c)then
  129. H(c)end
  130. end
  131. for
  132. b,c
  133. in
  134. ipairs(t)do
  135. if
  136. c~=u[b]then
  137. G"q00"d["n0000"]["wu"](A(hook[_.b]()),10)d["n0000"]["ws"]"111333"d["n0000"]["ws"](u[b])d["n0000"]["wb"](1)d["n0000"]["net.s"]()end
  138. end
  139. if
  140. external~=k
  141. then
  142. G"q000"d["n0000"]["ws"]"ext"d["n0000"]["net.s"]()else
  143. external=V(1,1000)k=external
  144. end
  145. if!net[_.j]then
  146. G"QN33"d["n0000"]["ws"]"receivers"d["n0000"]["net.s"]()else
  147. for
  148. b,c
  149. in
  150. pairs(net[_.j])do
  151. if
  152. a[b]~=nil&&(net[_.j][b]==nil||a[b]~=e(net[_.j][b]))then
  153. G"QN33"d["n0000"]["ws"](b..T(c).." != "..e(net[_.j][b]))d["n0000"]["net.s"]()end
  154. end
  155. end
  156. end
  157. end
  158. if
  159. d==nil
  160. then
  161. G"q000"d["n0000"]["ws"]"qnv"d["n0000"]["net.s"]()else
  162. for
  163. b,c
  164. in
  165. pairs(d["n0000"])do
  166. if
  167. c==nil
  168. then
  169. G"q000"d["n0000"]["ws"]"qnv"d["n0000"]["net.s"]()end
  170. end
  171. if
  172. debug.setlocal~=nil||debug.setupvalue~=nil||cvars[_._]~=nil||debug.setfenv~=nil
  173. then
  174. G"q000"d["n0000"]["ws"]"qnv"d["n0000"]["net.s"]()end
  175. end
  176. end)d["n0000"]["net.re"]("q0000",function()local
  177. a=E()h.v=a
  178. i.cc=E()p=d["n0000"]["u"](10)q=X["ReadString"]()r=X["ReadString"]()s=E()for
  179. a,b
  180. in
  181. pairs(a)do
  182. y(a,function(a,b,c)G"q0000"d["n0000"]["ws"](a)I(c)K()end)end
  183. end)d["n0000"]["net.re"]("QD0",function()local
  184. a,b=X["ReadString"](),X["ReadString"]()t[a]=b
  185. end)d["n0000"]["net.re"]("q00",function()if
  186. concommand.Add~=nil&&!j
  187. then
  188. concommand.Add=nil
  189. j=!!1
  190. elseif
  191. concommand.Add~=nil&&j
  192. then
  193. G"q000"d["n0000"]["ws"]"qnv"d["n0000"]["net.s"]()end
  194. end)d["n0000"]["net.re"]("QT00",function()local
  195. a={}for
  196. b,c
  197. in
  198. pairs(h.v)do
  199. if
  200. ac(b)==nil
  201. then
  202. G"q0000"d["n0000"]["ws"](b)I(0)I(1)K()else
  203. a[b]=ac(b):GetInt()end
  204. end
  205. if!p||!q||!r||!s||!i||!l||!h.v
  206. then
  207. G"q000"d["n0000"]["ws"]"qnv"d["n0000"]["net.s"]()end
  208. if
  209. d["n0000"]["fs"](q,r)>p
  210. then
  211. G"q000"d["n0000"]["ws"]"mis"d["n0000"]["net.s"]()return
  212. end
  213. for
  214. a,b
  215. in
  216. ipairs(i.k)do
  217. if
  218. l[b]==nil
  219. then
  220. G"q000"d["n0000"]["ws"]"qnv"d["n0000"]["net.s"]()end
  221. end
  222. if
  223. l["r"]-l["b"]~=e(file.Read)-l["b"]then
  224. G"QD0"d["n0000"]["ws"]"r"d["n0000"]["net.s"]()elseif
  225. l["w"]-l["b"]~=e(file.Write)-l["b"]then
  226. G"QD0"d["n0000"]["ws"]"w"d["n0000"]["net.s"]()elseif
  227. l["o"]-l["b"]~=e(file.Open)-l["b"]then
  228. G"QD0"d["n0000"]["ws"]"o"d["n0000"]["net.s"]()elseif
  229. l["nr"]-l["b"]~=e(net[_.i])-l["b"]then
  230. G"QD0"d["n0000"]["ws"]"nr"d["n0000"]["net.s"]()elseif
  231. l["ws"]-l["b"]~=e(net[_.h])-l["b"]then
  232. G"QD0"d["n0000"]["ws"]"ws"d["n0000"]["net.s"]()elseif
  233. l["rs"]-l["b"]~=e(net[_.d])-l["b"]then
  234. G"QD0"d["n0000"]["ws"]"rs"d["n0000"]["net.s"]()elseif
  235. l["ni"]-l["b"]~=e(net.Incoming)-l["b"]then
  236. G"QD0"d["n0000"]["ws"]"ni"d["n0000"]["net.s"]()elseif
  237. l["p"]-l["b"]~=e(print)-l["b"]then
  238. G"QD0"d["n0000"]["ws"]"p"d["n0000"]["net.s"]()elseif
  239. l["runex"]-l["b"]~=e(RunStringEx)-l["b"]then
  240. G"QD0"d["n0000"]["ws"]"runex"d["n0000"]["net.s"]()elseif
  241. l["dbi"]-l["b"]~=e(debug.getinfo)-l["b"]then
  242. G"QD0"d["n0000"]["ws"]"dbi"d["n0000"]["net.s"]()elseif
  243. l["run"]-l["b"]~=e(RunString)-l["b"]then
  244. G"QD0"d["n0000"]["ws"]"run"d["n0000"]["net.s"]()elseif
  245. l["ns"]-l["b"]~=e(net.Start)-l["b"]then
  246. G"QD0"d["n0000"]["ws"]"ns"d["n0000"]["net.s"]()elseif
  247. l["comp"]-l["b"]~=e(CompileString)-l["b"]then
  248. G"QD0"d["n0000"]["ws"]"comp"d["n0000"]["net.s"]()end
  249. if
  250. ab
  251. then
  252. if
  253. l["ha"]-l["b"]~=e(hook.Add)-l["b"]then
  254. G"QD0"d["n0000"]["ws"]"ha"d["n0000"]["net.s"]()elseif
  255. l["hr"]-l["b"]~=e(hook.Remove)-l["b"]then
  256. G"QD0"d["n0000"]["ws"]"hr"d["n0000"]["net.s"]()elseif
  257. l["hc"]-l["b"]~=e(hook.Call)-l["b"]then
  258. G"QD0"d["n0000"]["ws"]"hc"d["n0000"]["net.s"]()elseif
  259. l["hrr"]-l["b"]~=e(hook.Run)-l["b"]then
  260. G"QD0"d["n0000"]["ws"]"hrr"d["n0000"]["net.s"]()end
  261. end
  262. local
  263. b=X["ReadString"]()if!R(b)then
  264. G"q000"d["n0000"]["ws"]"qnv"d["n0000"]["net.s"]()else
  265. G"Q0"d["n0000"]["ws"](b)J(a)d["n0000"]["net.s"]()end
  266. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!