Advertisement
DuperBsd

pet simulator x dupe script New and free!

Mar 18th, 2023
150
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 15.05 KB | None | 0 0
  1. ([[This file was protected with MoonSec V3 by Federal#9999]]):gsub('.+', (function(a) _oQOdswfXXO_K = a; end)); return(function(o,...)local t;local a;local f;local d;local h;local r;local e=24915;local n=0;local l={};while n<498 do n=n+1;while n<0x320 and e%0x40f6<0x207b do n=n+1 e=(e*561)%36800 local c=n+e if(e%0xf46)<=0x7a3 then e=(e*0x347)%0x3236 while n<0x1b5 and e%0x996<0x4cb do n=n+1 e=(e-707)%47730 local d=n+e if(e%0xecc)>0x766 then e=(e+0xea)%0x80b local e=99912 if not l[e]then l[e]=0x1 t=getfenv and getfenv();end elseif e%2~=0 then e=(e*0x210)%0x74c3 local e=85786 if not l[e]then l[e]=0x1 h=tonumber;end else e=(e-0x119)%0xa916 n=n+1 local e=87170 if not l[e]then l[e]=0x1 t=(not t)and _ENV or t;end end end elseif e%2~=0 then e=(e-0x1a5)%0x777d while n<0x285 and e%0x830<0x418 do n=n+1 e=(e-830)%18365 local t=n+e if(e%0xfba)<0x7dd then e=(e*0x285)%0xba1f local e=42058 if not l[e]then l[e]=0x1 r=string;end elseif e%2~=0 then e=(e*0x13b)%0x2165 local e=65013 if not l[e]then l[e]=0x1 f={};end else e=(e-0x351)%0xcb7 n=n+1 local e=4417 if not l[e]then l[e]=0x1 end end end else e=(e*0xb9)%0xb8b4 n=n+1 while n<0x232 and e%0x413e<0x209f do n=n+1 e=(e-457)%17412 local c=n+e if(e%0x14dc)<=0xa6e then e=(e-0x20e)%0x8c57 local e=89922 if not l[e]then l[e]=0x1 d=function(d)local e=0x01 local function l(n)e=e+n return d:sub(e-n,e-0x01)end while true do local n=l(0x01)if(n=="\5")then break end local e=r.byte(l(0x01))local e=l(e)if n=="\2"then e=f.MzygHavV(e)elseif n=="\3"then e=e~="\0"elseif n=="\6"then t[e]=function(e,n)return o(8,nil,o,n,e)end elseif n=="\4"then e=t[e]elseif n=="\0"then e=t[e][l(r.byte(l(0x01)))];end local n=l(0x08)f[n]=e end end end elseif e%2~=0 then e=(e*0x2b9)%0x74c9 local e=24001 if not l[e]then l[e]=0x1 a="\4\8\116\111\110\117\109\98\101\114\77\122\121\103\72\97\118\86\0\6\115\116\114\105\110\103\4\99\104\97\114\84\117\66\112\99\101\115\103\0\6\115\116\114\105\110\103\3\115\117\98\107\89\112\79\122\99\89\118\0\6\115\116\114\105\110\103\4\98\121\116\101\76\116\119\88\65\69\98\101\0\5\116\97\98\108\101\6\99\111\110\99\97\116\111\68\115\69\90\74\80\80\0\5\116\97\98\108\101\6\105\110\115\101\114\116\66\95\110\74\89\70\88\106\5";end else e=(e-0x155)%0x9ebb n=n+1 local e=47447 if not l[e]then l[e]=0x1 end end end end end e=(e-435)%41816 end d(a);local n={};for e=0x0,0xff do local l=f.TuBpcesg(e);n[e]=l;n[l]=e;end local function c(e)return n[e];end local r=(function(r,d)local a,l=0x01,0x10 local n={{},{},{}}local t=-0x01 local e=0x01 local o=r while true do n[0x03][f.kYpOzcYv(d,e,(function()e=a+e return e-0x01 end)())]=(function()t=t+0x01 return t end)()if t==(0x0f)then t=""l=0x000 break end end local t=#d while e<t+0x01 do n[0x02][l]=f.kYpOzcYv(d,e,(function()e=a+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 f.B_nJYFXj(n[0x01],(c((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+o)%0x100)));o=r+o;end end return f.oDsEZJPP(n[0x01])end);d(r(250,"CNF5&6X3L_-2e})d92"));d(r(105,"7fR9Ns0<Q;W>/yiO;<9N9QyX0sO9QOfOs9NWORQff>QiROiW<;is<iffy0Oi;0;QRR><s;OJQ<fy>i9Ri;<0Os<iyN0O<f%W;Q9Nyfs/y0;/9f;ysfy0<WW/N;Nyis<W}QWN9N0;0QO9;yR9>O0RO90fFQ/RN/OdQ%W0NfNf//<0ef9s99/RsWtN;98>>sR>/Ns<ORQyNN<0fsf9;/NRyR0fq<Q>9s>;sfORQR}WQi9W/s</i>;ff;<E#WOA;0R>y90sOOs<9s;<RiyQsOONW>R9<<5ifQ;;9QyW0Qa0<RR0yf0;iO<s><Nyf//yQRfR>QR_>Q0WYy90yfyN00mf;;Ri>/sQiQQnR<>fN;yQQ9Of<WyA0/<RO0QiRO>OO<OyQyR0WiN<i0<0fRWssfi<s;OyQs/i0<0yOy;0fi><s0/<<9R<W/sQ>Q<Oi>9iy0yQ<fOO;>9QW>ssym<;x>>Qssyyf<>m>N9yy>0>oeWQ9y/9N0iQ0iR9W0s/Q9fifiW;s9yifRZWW<NfyQ<Ri/Q0RQ>NNQii<sR<sN"));local e=(-12955+(function()local d,l=0,1;(function(l,n,e)n(e(e,n,e),e(l,l,n and e)and e(e,n and e,n),n(n,l,l))end)(function(n,t,e)if d>395 then return t end d=d+1 l=(l+790)%49861 if(l%896)<448 then l=(l-606)%21328 return t(n(e,n,n),n(e,e and e,t)and n(e,t,e),n(e,e,n))else return t end return e end,function(e,n,t)if d>149 then return n end d=d+1 l=(l*885)%16188 if(l%1206)>603 then return e else return e(t(e,e,e),n(t,t,t),e(e,n,n))end return t(n(n,t,n)and e(e and t,n,e),e(n,n and t,n)and t(t,e,n),e(t,n and e,e))end,function(t,n,e)if d>131 then return e end d=d+1 l=(l*603)%26177 if(l%762)>381 then return n else return n(t(e,e,n),n(n,t,e)and t(e,n and t,e),n(e,e and e,n))end return n(t(e,t,n),n(e,n and e,e)and e(e,t,t),e(n,t,t))end)return l;end)())local j=(getfenv)or(function()return _ENV end);local u=f.EZwezCsH or f.diezyTaR;local a=4;local z=1;local d=3;local t=2;local function k(y,...)local s=r(e,">l6A+QimSybEPBgKEi+#g?S}6XPQiL/zb9y++QKSy+KliC76b2+GgFBKimPGiBNMbo+JAKgKml&KP+mAlmbiASBSiKlKbEcJEA+kg2ShiA6SPQiAOEby+ggm+0lAPAm6wyE)Q+KA+gggSgWVBm+dgdS!m+6SPymAP/bi+ygPSQg,BmillAiVQ!K6SKA+PQiAl+bQ++bJym6yB+iSPFSB+KgKSglAPQiAPMyilAb)S6AyS9+iLQb++QK6Sl6PSAAyBymylyS9AyPfiF}:gBbK+KggmA6QPAQKKAE+Q6gySg6mBA+Sjyb+++gQSgTlB+m+l6+cgQSC6FP0E+iQlSE+l6S-6mPNiMZ8KmbQ+6PSSK6KPEOXly+Jg?S SSA+B+m/lAmb^KbKS+6yBAiA-KE6++bgSA6KPB6K(lEZ+ybKym6QP6iS0KbK+EKA+KKly:ASBlmylQESQiK+ySAyB+mylME:Q6K6yQA5PKSB6+PlmiGibKiEgAm+AQBliQnbPmiQ^bEbllbBiSl+BSm+gQbK+lgPim<SbQQ+;yyy6bP6y6KiyAiSgKbK6EglyQ6EbQ+B.+bm+6gAmAASPyQml+bm6ygAQA6BP6A6BiEiQigASPPqbBtHb;+j+SK+y+AMBAAbPKiKQ6glymggPmiyl+bSQQg6yQAAPQm6!AbK+gK+SQ6gB+6g?AbK+BbKibAQBAm+.lbg+KK+SS6QB6i+fBbQ;KK9SQA+BAiyRBESl6E6+K6BPliy4giKQ3gQy+AAPyiBlSbm+BbgSPAQPljAbW+LiaiKm6ig+S+lbG+ig!S56zlQBAiQl6Sy++Sj6bPIi?NORPbK+lg+yAA+B6iyRgbmg.SQ6&PXirQ+cQESQ+EA6WPQi ^^b8y++QKSy+K+i0lqb-+sg1BASAA6Pym-l+ik6PgKSl6+PQi+Pgig#gS16+Pfi;uFnmbl+BgQ6uPbi3-hbUyHAABS+1lAPAm6oyEhQ+SOAAPxioIjKAE++lK6y+6yPgimPMyA+AK6SyACB+mAPgighgS_A6P(ipGDKmbl+yK+Sy6gPm6o1ibKQ6bpmA6AB6iylVE+gYy&6UPqiY+AlQEAQ+gKSBlAPAm6!yErQ+PgSl6BPQu:bm+agFS!iSA+B+mkgmbQQ+yB6rP7i(*zb6+:g)Sz6lP iov1E6++ghSW6zPii-Z=b_Q6gAS26_P7iAj^bq+3CiSl62Pfifzib4+lgHSQ6TP+myZwb&+^giS}6lP3i+lybW+fgYSm6JPli79rEl+dg_Sz6lPziO^ME6+KgnS56_PEi4^dbsQ6K6S/64P_iP*abY+_K6ym6)Pti7}yb,+/gXy66PPHiX!CbS+0g*SaA6Bmit..b_+6gsS}62KJmEs_b0+GKQS!A6PVm6lbbp+/gNS66&PViaAOb6+CgjSU6lPGm:3*E6+EgYS86WP6i!R bFm9gPS%62P0imF(E++hK6SB6}Pvi}v6b3+:gdE-AEP4i}xJbg+=g+SGA6PliMYhbx+6g=Sr64Kuiyhhb9+^gKS4AAP9m6l+b1+Cg%SB64PHiol6EA+&glS*AlPDie#7PG+QgZSl63PliHlibzQ6K#Sr6AP1ibRfb%+Vg%SA6XPliuNAb9+DgjSsA+P{ir_Wbq+fg6S;6DPQi))*b9+lgTSl6^PXmlYeb!+<glSu6GP3iM!{b7+dg.");local n=0;f.lkuRrhPB(function()f.krGdxyhW()n=n+1 end)local function e(e,l)if l then return n end;n=e+n;end local l,n,c=o(0,o,e,s,f.LtwXAEbe);local function r()local l,n=f.LtwXAEbe(s,e(1,3),e(5,6)+2);e(2);return(n*256)+l;end;local b=true;local b=0 local function k()local e=n();local n=n();local d=1;local t=(l(n,1,20)*(2^32))+e;local e=l(n,21,31);local n=((-1)^l(n,32));if(e==0)then if(t==b)then return n*0;else e=1;d=0;end;elseif(e==2047)then return(t==0)and(n*(1/0))or(n*(0/0));end;return f.QdCEAEIi(n,e-1023)*(d+(t/(2^52)));end;local m=n;local function g(n)local l;if(not n)then n=m();if(n==0)then return'';end;end;l=f.kYpOzcYv(s,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+b),#l do e=e..f.kYpOzcYv(l,n,n)end return e;end;local b=#f.hxkldxOA(h('\49.\48'))~=1 local e=n;local function ee(...)return{...},f.raMXGeQp('#',...)end local function p()local h={};local u={};local e={};local s={u,h,nil,e};local e=n()local o={}for t=1,e do local l=c();local n;if(l==2)then n=(c()~=#{});elseif(l==3)then local e=k();if b and f.tnEUxkxq(f.hxkldxOA(e),'.(\48+)$')then e=f.UXcXUdTo(e);end n=e;elseif(l==0)then n=g();end;o[t]=n;end;for h=1,n()do local e=c();if(l(e,1,1)==0)then local f=l(e,2,3);local c=l(e,4,6);local e={r(),r(),nil,nil};if(f==0)then e[d]=r();e[a]=r();elseif(f==#{1})then e[d]=n();elseif(f==y[2])then e[d]=n()-(2^16)elseif(f==y[3])then e[d]=n()-(2^16)e[a]=r();end;if(l(c,1,1)==1)then e[t]=o[e[t]]end if(l(c,2,2)==1)then e[d]=o[e[d]]end if(l(c,3,3)==1)then e[a]=o[e[a]]end u[h]=e;end end;s[3]=c();for e=1,n()do h[e-(#{1})]=p();end;return s;end;local function _(l,n,e)local t=n;local t=e;return h(f.tnEUxkxq(f.tnEUxkxq(({f.lkuRrhPB(l)})[2],n),e))end local function ne(y,e,c)local function ne(...)local r,j,b,_,s,n,h,k,m,g,p,l;local e=0;while-1<e do if 3>e then if 1>e then r=o(6,51,1,34,y);j=o(6,91,2,25,y);else if-3<=e then repeat if 1~=e then n=-41;h=-1;break;end;b=o(6,81,3,37,y);s=ee _=0;until true;else n=-41;h=-1;end end else if e<5 then if 3<e then g=f.raMXGeQp('#',...)-1;p={};else k={};m={...};end else if e~=1 then for n=42,63 do if e<6 then l=o(7);break;end;e=-2;break;end;else l=o(7);end end end e=e+1;end;for e=0,g do if(e>=b)then k[e-b]=m[e+1];else l[e]=m[e+1];end;end;local e=g-b+1 local e;local o;local function f(...)while true do end end while true do if n<-40 then n=n+42 end e=r[n];o=e[z];if 13>=o then if 7>o then if 3>o then if o>=1 then if-1<o then repeat if 2~=o then do return end;break;end;for o=0,3 do if 2<=o then if o==2 then l[e[t]]=c[e[d]];n=n+1;e=r[n];else if(l[e[t]]==e[a])then n=n+1;else n=e[d];end;end else if o==0 then l[e[t]]=(e[d]~=0);n=n+1;e=r[n];else c[e[d]]=l[e[t]];n=n+1;e=r[n];end end end until true;else do return end;end else local n=e[t]local t,e=s(l[n](u(l,n+1,e[d])))h=e+n-1 local e=0;for n=n,h do e=e+1;l[n]=t[e];end;end else if o>4 then if o~=4 then repeat if o~=5 then l[e[t]]=c[e[d]];break;end;local n=e[t];local t=l[e[d]];l[n+1]=t;l[n]=t[e[a]];until true;else l[e[t]]=c[e[d]];end else if-1<=o then repeat if 3~=o then local n=e[t];local t=l[e[d]];l[n+1]=t;l[n]=t[e[a]];break;end;l[e[t]][e[d]]=e[a];until true;else l[e[t]][e[d]]=e[a];end end end else if 10>o then if 8>o then c[e[d]]=l[e[t]];else if o>=5 then repeat if o~=9 then l[e[t]]=(e[d]~=0);break;end;local e=e[t]l[e]=l[e](u(l,e+1,h))until true;else local e=e[t]l[e]=l[e](u(l,e+1,h))end end else if o<=11 then if o~=10 then l[e[t]]=c[e[d]];else l[e[t]]();end else if 9<o then repeat if o~=13 then for o=0,6 do if o<3 then if o>0 then if-2<=o then for f=11,73 do if o>1 then l[e[t]][e[d]]=e[a];n=n+1;e=r[n];break;end;l[e[t]]=c[e[d]];n=n+1;e=r[n];break;end;else l[e[t]][e[d]]=e[a];n=n+1;e=r[n];end else l[e[t]][e[d]]=e[a];n=n+1;e=r[n];end else if 4>=o then if o>3 then l[e[t]][e[d]]=e[a];n=n+1;e=r[n];else l[e[t]]=c[e[d]];n=n+1;e=r[n];end else if o>=1 then for f=16,74 do if 5~=o then l[e[t]]=c[e[d]];break;end;l[e[t]]=c[e[d]];n=n+1;e=r[n];break;end;else l[e[t]]=c[e[d]];end end end end break;end;l[e[t]][e[d]]=e[a];until true;else l[e[t]][e[d]]=e[a];end end end end else if o>=21 then if 24>o then if 21>=o then l[e[t]]();else if 21<=o then repeat if 22<o then if(l[e[t]]==e[a])then n=n+1;else n=e[d];end;break;end;c[e[d]]=l[e[t]];until true;else if(l[e[t]]==e[a])then n=n+1;else n=e[d];end;end end else if o>25 then if o>26 then l(e[t],e[d]);else local e=e[t]l[e]=l[e](u(l,e+1,h))end else if o>23 then repeat if o<25 then n=e[d];break;end;n=e[d];until true;else n=e[d];end end end else if 16>=o then if o<15 then local n=e[t]local t,e=s(l[n](u(l,n+1,e[d])))h=e+n-1 local e=0;for n=n,h do e=e+1;l[n]=t[e];end;else if 12~=o then repeat if o>15 then local o,a,c,f;l(e[t],e[d]);n=n+1;e=r[n];o=e[t]a,c=s(l[o](u(l,o+1,e[d])))h=c+o-1 f=0;for e=o,h do f=f+1;l[e]=a[f];end;n=n+1;e=r[n];o=e[t]l[o]=l[o](u(l,o+1,h))n=n+1;e=r[n];l[e[t]]();n=n+1;e=r[n];do return end;break;end;local o,a,f,r,c;local n=0;while n>-1 do if 2>=n then if 1>n then o=e;else if n==2 then f=d;else a=t;end end else if 4>=n then if 0<n then for e=30,53 do if 3<n then c=o[a];break;end;r=o[f];break;end;else r=o[f];end else if n~=5 then n=-2;else l(c,r);end end end n=n+1 end until true;else local o,c,a,f;l(e[t],e[d]);n=n+1;e=r[n];o=e[t]c,a=s(l[o](u(l,o+1,e[d])))h=a+o-1 f=0;for e=o,h do f=f+1;l[e]=c[f];end;n=n+1;e=r[n];o=e[t]l[o]=l[o](u(l,o+1,h))n=n+1;e=r[n];l[e[t]]();n=n+1;e=r[n];do return end;end end else if 18<o then if 18<=o then for f=20,73 do if o>19 then if(l[e[t]]==e[a])then n=n+1;else n=e[d];end;break;end;l[e[t]]=(e[d]~=0);break;end;else if(l[e[t]]==e[a])then n=n+1;else n=e[d];end;end else if 13<o then for f=40,88 do if o~=17 then for o=0,6 do if 3>o then if o>0 then if o>=-1 then repeat if o~=2 then l(e[t],e[d]);n=n+1;e=r[n];break;end;c[e[d]]=l[e[t]];n=n+1;e=r[n];until true;else l(e[t],e[d]);n=n+1;e=r[n];end else c[e[d]]=l[e[t]];n=n+1;e=r[n];end else if o<=4 then if 0~=o then repeat if o~=4 then l[e[t]]=c[e[d]];n=n+1;e=r[n];break;end;l[e[t]][e[d]]=e[a];n=n+1;e=r[n];until true;else l[e[t]]=c[e[d]];n=n+1;e=r[n];end else if o~=1 then repeat if 5~=o then l[e[t]][e[d]]=e[a];break;end;l[e[t]]=c[e[d]];n=n+1;e=r[n];until true;else l[e[t]]=c[e[d]];n=n+1;e=r[n];end end end end break;end;do return end;break;end;else do return end;end end end end end n=1+n;end;end;return ne end;local t=0xff;local c={};local r=(1);local d='';(function(n)local l=n local o=0x00 local e=0x00 l={(function(f)if o>0x24 then return f end o=o+1 e=(e+0xb0a-f)%0x2d return(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xee);c[r]=j();r=r+t;end return true end)'D_onu'and l[0x2](0x215+f))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xc2);end return true end)'SMzys'and l[0x1](f+0x1a5))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xb3);t[2]=(t[2]*(_(function()c()end,u(d))-_(t[1],u(d))))+1;c[r]={};t=t[2];r=r+t;end return true end)'U_kuC'and l[0x3](f+0x277))or f end),(function(t)if o>0x29 then return t end o=o+1 e=(e+0xf4d-t)%0xf return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xdc);end return true end)'cZhvw'and l[0x2](0x2f1+t))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x18);end return true end)'SavPJ'and l[0x1](t+0x2b7))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xb4);end return true end)'EJVwt'and l[0x3](t+0x388))or t end),(function(a)if o>0x2e then return a end o=o+1 e=(e+0x12e2-a)%0x3d return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x2b);d={d..'\58 a',d};c[r]=p();r=r+((not f.LVzrGIEs)and 1 or 0);d[1]='\58'..d[1];t[2]=0xff;end return true end)'t_Qvf'and l[0x1](0x2c1+a))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xa7);end return true end)'rUBud'and l[0x2](a+0x37b))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xbf);d='\37';t={function()t()end};d=d..'\100\43';end return true end)'rdwBk'and l[0x3](a+0xac))or a end)}l[0x3](0x239c)end){};local e=ne(u(c));return e(...);end return k((function()local n={}local e=0x01;local l;if f.LVzrGIEs then l=f.LVzrGIEs(k)else l=''end if f.tnEUxkxq(l,f.hKzxMjXe)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]+0x01]=0x03;return n;end)(),...)end)((function(e,n,l,d,t,o)local o;if e>=4 then if e<=5 then if 0<=e then for o=41,80 do if 4~=e then local e=d;do return function()local n=n(l,e(e,e),e(e,e));e(1);return n;end;end;break;end;local e=d;local t,d,o=t(2);do return function()local r,f,l,n=n(l,e(e,e),e(e,e)+3);e(4);return(n*t)+(l*d)+(f*o)+r;end;end;break;end;else local e=d;local t,d,o=t(2);do return function()local r,l,f,n=n(l,e(e,e),e(e,e)+3);e(4);return(n*t)+(f*d)+(l*o)+r;end;end;end else if e<=6 then do return t[l]end;else if 6<e then for n=15,54 do if e<8 then do return setmetatable({},{['__\99\97\108\108']=function(e,d,t,l,n)if n then return e[n]elseif l then return e else e[d]=t end end})end break;end;do return l(e,nil,l);end break;end;else do return setmetatable({},{['__\99\97\108\108']=function(e,d,t,l,n)if n then return e[n]elseif l then return e else e[d]=t end end})end end end end else if e<=1 then if e==1 then do return function(l,e,n)if n then local e=(l/2^(e-1))%2^((n-1)-(e-1)+1);return e-e%1;else local e=2^(e-1);return(l%(e+e)>=e)and 1 or 0;end;end;end;else do return n(1),n(4,t,d,l,n),n(5,t,d,l)end;end else if e>-2 then repeat if e<3 then do return 16777216,65536,256 end;break;end;do return n(1),n(4,t,d,l,n),n(5,t,d,l)end;until true;else do return 16777216,65536,256 end;end end end end),...)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement