-
Notifications
You must be signed in to change notification settings - Fork 0
/
samuelhook.lua
1 lines (1 loc) · 19.5 KB
/
samuelhook.lua
1
do local a=[[77fuscator 0.5.0 - discord.gg/CEHsVcBcuf]];return(function(b,c,d,e,f,f,g,h,i,j,k,l,l,m,n,o,p,q,r,s,t,u,u,v,w,w,x,y,y,z,z,z,ba,ba,bb,bb,bb,bc)local bd=2671;local be=477;local bf=186;local bg=328;local bh=299;local bi=31;local bj=8935;local bk=656;local bl=269;local bm=648;local bn=31919;local bo=13314;local bp=941;local bq=27493;local br=495;local bs=954;local bt=574;local bu=10;local bv=10827;local bw=36;local bx=287;local by=8;local bz=504;local ca=977;local cb=9;local cc=178;local cd=11;local ce=256;local cf=4;local cg=356;local ch=324;local ci=9577;local cj=1;local ck=2;local cl=0;local cm=3;local cn=6;local co,cp,cq,cr,cs,cs,ct=string.sub,table.concat,string.char,tonumber,next,((table.create or function(co,cp)local cq={};for cr=cj,co do cq[cr]=cp;end;return cq;end))or tostring;local ct=cj;local cu;cu=function(cv)local cw,cx,cy,cz,da,db,dc,dd,dd;local dd=cl while true do dd=(dd+cj)if(dd<cn or dd==cn)then if(dd<cm or dd==cm)then if(dd==ck or dd>ck)then if not(dd~=ck)then cy=cs(#cv)else cz=ce end else cw,cx=g,g end else if(dd<cf or dd==cf)then da=cs(cz)else if not(dd~=cn)then db=cj else for ce=cl,cz-cj do local cs=cl while true do cs=(cs+cj)if cs<ck then da[ce]=cq(ce)else break end end end end end end else if(dd>bu or dd==bu)then if(dd<bu or dd==bu)then while(db<#cv and not(#a~=d))do local a;local d=cl while true do d=d+cj if(d>cm or d==cm)then if(d>cf or d==cf)then if not(d~=cf)then cy[(#cy+cj)],cw,cz=cx,cx,cz+cj else break end else da[cz]=cw..co(cx,cj,cj)end else if not(d~=cj)then a=dc()else if da[a]then local d=cl while true do d=d+cj if not(d~=cj)then cx=da[a]else break end end else local a=cl while true do a=a+cj if not(a~=cj)then cx=cw..co(cw,cj,cj)else break end end end end end end end else if(dd>cd)then break else return cp(cy)end end else if(dd>by or dd==by)then if(dd<cb)then cw=cq(dc())else cy[cj]=cw end else dc=function()local a=cr(co(cv,db,db),bw)db=db+cj local d=cr(co(cv,db,(db+a-cj)),bw)db=db+a return d end end end end end end local a=cu(b);local b={}c={k,i,m,u,x,l,y,o,j,q,w,s,};local c=v;local d=c(b);local q,s=1,(-ci+(function()local q=ch;local s=cc;local v=cg;local w=bv;local x=ca;local y=br;local bq=bq;local br=bs;local bn=bn;local bm=bm;local bs=bz;local bu=bx;local bh=bh;local bl=bl;local bt=bt;local bo=bo;local bv=cm;local be=be;local bj=bj;local bg=bg;local bp=bp;local bk=bk;local bd=bd;local bw=cj;local bx=ck;local bf=bf;local bz=cl;local ca,cb=bz,bw;local q=(function(cc,cd,ce,cg)ce(cc(cc,cg,cg and cd,cd),(cd(ce,cd and ce,ce,cd)and cg(cd,cd,cg,cg)),cc(cd and cd,(cc and cd),cd,(cc and cd)),cd(cg,ce,cc,ce and cd))end)(function(cc,cd,ce,cg)if((ca>bf))then local ch=bz while true do ch=((ch+bw))if(ch<bx)then return cg else break end end end ca=((ca+bw))cb=((((cb+bf))%bd))if(((((cb%bk))>bg)or not((((cb%bk)))~=bg)))then local bd=bz while true do bd=((bd+bw))if((not(bd~=bw)or bd<bw))then cb=((((cb*bp))%bj))else if(bd<bv)then return cg((cd(cg,ce,cd,(cd and cc))and cc(cc,cc,cc,(ce and cc))),cg(cg,cc,cc,cc),cc(cd,((cd and cg)),ce and cg,cc),cg(cg,cd,ce,ce))else break end end end else local bd=bz while true do bd=((bd+bw))if((bd>bw))then break else return cc end end end return cd end,function(bd,bf,bg,bj)if((ca>be))then local be=bz while true do be=(be+bw)if(be<bx)then return bd else break end end end ca=((ca+bw))cb=(((((cb-bl)))%bo))if((((cb%bt)))<bu)then local be=bz while true do be=((be+bw))if not(not(be==bw))then return bj(bj(bj,bf,bj,bj),bg(bg,bd,bd,bd),bj(((bj and bd)),(bj and bd),bj,(bj and bf)),bd(bj,bg,bd,((bd and bg))))else break end end else local be=bz while true do be=be+bw if(be<bx)then return bj else break end end end return bd end,function(bd,be,bf,bg)if(ca>bh)then local bh=bz while true do bh=(bh+bw)if not(not(bh==bx))then break else return bf end end end ca=((ca+bw))cb=((((cb-bs))%bn))if((((cb%bm))<q or not((cb%bm)~=q)))then local q=bz while true do q=(q+bw)if((q>bx or not(q~=bx)))then if q<bv then return be else break end else cb=((((cb+br)))%bq)end end else local q=bz while true do q=((q+bw))if(q<bx)then return bd(bf(be,bf,(bd and bf),((bg and bf))),bg(bd,be,bd,bf),bg(be,bd,bf,(bd and bf)),bd(be,bf,be,bd))else break end end end return bd(bg(bd,bf,(bg and bf),(bd and bg)),be(bd and bg,bg,bf,bd),((be(bg and be,be,bg,be)and be(bf,bd,bd,bf))),bf(bd,be,bg and be,bd))end,function(q,bd,be,bf)if(ca>y)then local y=bz while true do y=((y+bw))if(y>bw)then break else return bf end end end ca=(ca+bw)cb=(((cb*x))%w)if(((cb%v)<s))then local s=bz while true do s=((s+bw))if not(not(s==bw))then return be else break end end else local s=bz while true do s=(s+bw)if not(not(s==bw))then return bd((bd(q,q and bf,(bf and q),be)and bf(bd,bf,bd,((bd and bd)))),bf(bd,q,(bd and be),q),(bf(((q and q)),q,bd,q)and bf(bd,be,bd,bf)),(bf(q,q,bd,q)and bd(bd,bf,bf,q)))else break end end end return bf(bf(be,q,bd,bf),((bd(q,be,be,be)and be(q,q,(bf and q),q))),be(bf,(be and q),(bf and q),be),(q(bd,bd,bd,q)and bd((q and bf),(bd and bf),q,bd)))end)return cb;end)());local v={}local w;w=function(x,y)local bd,be,be,be;local be=cl while true do be=be+cj if(be==cm or be>cm)then if not(be~=cm)then return bd else break end else if not(be~=ck)then for be=cl,bi do local bf,bg;local bh=cl while true do bh=bh+cj if(bh<cm or bh==cm)then if(bh<cj or bh==cj)then bf=x%ck else if(bh>ck)then if not(bf~=cl)then local bf=cl while true do bf=(bf+cj)if not(bf~=ck)then break else if not(bg~=cj)then local bf=cl while true do bf=bf+cj if(bf<cj or bf==cj)then y=y-cj else if(bf>ck)then break else bd=bd+ck^be end end end end end end else local bf=cl while true do bf=bf+cj if(bf>ck or bf==ck)then if bf<cm then if not(bg~=cl)then local bf=cl while true do bf=(bf+cj)if(bf<ck)then bd=(bd+(ck^be))else break end end else local be=cl while true do be=be+cj if be<ck then y=(y-cj)else break end end end else break end else x=(x-cj)end end end else bg=(y%ck)end end else if(bh==cf or bh<cf)then y=(y/ck)else if not(bh~=cn)then break else x=x/ck end end end end end else bd=cl end end end end local x;x=function(y,bd)local be=cl while true do be=(be+cj)if not(be~=cj)then return((y*ck^bd));else break end end end local y;y=function()local bd,be;local bf=cl while true do bf=(bf+cj)if(bf==cm or bf>cm)then if(bf==3 or bf<3)then q=q+ck;else if not(bf~=4)then return((x(be,by))+bd);else break end end else if(bf>cj)then bd,be=w(bd,s),w(be,s);else bd,be=h(a,q,q+ck)end end end end do for s,bd in o,l(ct)do v[s]=bd;end;end;local s=v;local bd;bd=function(be,bf)local bg=cl while true do bg=(bg+cj)if not(bg~=2)then break else return p(be/(ck^bf));end end end local p=((2^32)-1);local bd;bd=function(be,bf)local bg=0 while true do bg=(bg+1)if not(bg~=cj)then return(((be+bf))-w(be,bf))/ck else break end end end local y=y();local be;be=function(bf,bg)local bh=0 while true do bh=(bh+cj)if(bh>1)then break else return p-bd((p-bf),p-bg)end end end local p;p=function(bd,bf,bg)local bh;local bh=0 while true do bh=bh+cj if(bh>1)then break else if bg then local bh;local bj=cl while true do bj=(bj+cj)if(bj==cj or bj<cj)then bh=((bd/ck^((bf-cj)))%ck^(((bg-cj)-((bf-cj)))+cj))else if bj>ck then break else return(bh-(bh%cj))end end end else local bg;local bh=cl while true do bh=(bh+cj)if(bh<cj or bh==cj)then bg=(ck^(bf-cj))else if(bh>ck)then break else return((((bd%((bg+bg)))==bg or(bd%((bg+bg)))>bg))and cj or cl)end end end end end end end local bd;bd=function()local bf,bg,bh,bj;local bk=0 local bl=5;while true do bk=bk+cj if(bk<2 or bk==2)then if(bk>cj)then bf,bg,bh,bj=w(bf,y),w(bg,y),w(bh,y),w(bj,y);else bf,bg,bh,bj=h(a,q,q+3)end else if(bk==cm or bk<cm)then q=q+4;else if not(bk~=bl)then break else return(((x(bj,24)+x(bh,16)+x(bg,8)))+bf);end end end end end local bf;bf=function()local bg;local bh=0 while true do bh=bh+cj if(bh==3 or bh>3)then if(bh<cf)then return bg;else break end else if not(bh~=ck)then q=(q+cj);else bg=w(h(a,q,q),y)end end end end local bg,bh,bj;bg=(-28000+(function()local bk=425;local bl=2;local bm=3308;local bn=850;local bo=93;local bp=324;local bq=1620;local br=810;local bs=760;local bt=37755;local bu=493;local bv=1;local bw=0;local bx,by=bw,bv;local bk=(function(bz,ca)bz(ca(bz,((bz and bz))),bz(bz,ca))end)(function(bz,ca)if bx>bu then local bu=bw while true do bu=(bu+bv)if not(not(bu==bv))then return bz else break end end end bx=(bx+bv)by=(((by*bs))%bt)if(((by%bq)>br)or not(((by%bq))~=br))then local bq=bw while true do bq=(bq+bv)if not(not(bq==bv))then return ca(bz((ca and bz),bz),ca((ca and ca),ca))else break end end else local bq=bw while true do bq=(bq+bv)if bq>bv then break else return bz end end end return ca end,function(bq,br)if(bx>bp)then local bp=bw while true do bp=((bp+bv))if(bp>bv)then break else return bq end end end bx=(bx+bv)by=(((by-bo))%bm)if(by%bn)>bk then local bk=bw while true do bk=(bk+bv)if not(not(bk==bv))then return bq(bq(bq,br),br(br,bq))else break end end else local bk=bw while true do bk=(bk+bv)if(bk<bl)then return br else break end end end return br end)return by;end)());bh=(-5835+(function()local bk=118;local bl=236;local bm=49267;local bn=1008;local bo=19360;local bp=186;local bq=12724;local br=482;local bs=849;local bt=1698;local bu=674;local bv=362;local bw=267;local bx=27400;local by=1348;local bz=111;local ca=1012;local cb=2;local cc=1;local cd=0;local ce,cg=cd,cc;local bk=(function(ch,ci,co)ci(ch(co,co,(co and co)),ci(ch,ch,ci),(ci((ch and co),ch,co)and ci(co,ch,ch)))end)(function(ch,ci,co)if((ce>bz))then local bz=cd while true do bz=((bz+cc))if not(not(bz==cb))then break else return ci end end end ce=(ce+cc)cg=((cg*ca)%bx)if(((((cg%by))>bu)or not(((cg%by))~=bu)))then local bu=cd while true do bu=((bu+cc))if(bu>cc)then break else return co end end else local bu=cd while true do bu=((bu+cc))if bu<cb then return ch(co(ci,ci,co),ci(ch,ci,ci),ci(co,ch,(ci and ch)))else break end end end return ch(((ch(co,co,((co and co)))and co(ci,co,ci))),((co(ch,ch,ch)and ci(ch and co,ci,co))),co(ch,(ci and co),ch))end,function(bu,bx,by)if((ce>bw))then local bw=cd while true do bw=(bw+cc)if((bw>cc))then break else return bx end end end ce=ce+cc cg=(((cg+bv))%bq)if((not(((cg%bt))~=bs)or(((cg%bt))>bs)))then local bq=cd while true do bq=(bq+cc)if(not(bq~=cc)or bq<cc)then cg=((cg+br))%bo else if((bq>cb))then break else return by end end end else local bo=cd while true do bo=bo+cc if bo>cc then break else return bu((by(bx,bu,(by and bu))and bu(bu,by,by)),bx(bx,by,bu),bx(bx,bx and by,bu))end end end return bx(bx(bx,bu,(bu and by)),bu(bx,((bx and bu)),by),by(bu,bu,bu))end,function(bo,bq,br)if ce>bp then local bp=cd while true do bp=bp+cc if(bp>cc)then break else return bo end end end ce=(ce+cc)cg=((cg-bn))%bm if((cg%bl))>bk then local bk=cd while true do bk=bk+cc if((bk<cb))then return br(br(bq,bq,(br and bo)),bq(bq,bo,br),bq(bq,bo,((bo and bo))))else break end end else local bk=cd while true do bk=bk+cc if bk<cb then return br else break end end end return bo end)return cg;end)());bj=(-19385+(function()local bk=879;local bl=1758;local bm=20850;local bn=322;local bo=247;local bp=462;local bq=32052;local br=7947;local bs=838;local bt=1676;local bu=301;local bv=767;local bw=824;local bx=37560;local by=422;local bz=844;local ca=28145;local cb=795;local cc=2;local cd=1;local ce=488;local cg=0;local ch,ci=cg,cd;local bk=(function(co,cp,cq)cp(cp(cp,(cp and cp),co),cp(cp,cp,cp),cq(((co and cq)),co,(co and cp)))end)(function(co,cp,cq)if(ch>ce)then local ce=cg while true do ce=(ce+cd)if((ce<cc))then return cq else break end end end ch=(ch+cd)ci=((((ci*cb))%ca))if(((ci%bz))<by)then local by=cg while true do by=(by+cd)if((not(by~=cc)or(by>cc)))then if(by>cc)then break else return co(co(cq,co,cq),co(co,((co and cq)),cq),co(co,co,co))end else ci=((ci+bw))%bx end end else local bw=cg while true do bw=(bw+cd)if not(not(bw==cd))then return cq else break end end end return cp end,function(bw,bx,by)if((ch>bu))then local bu=cg while true do bu=((bu+cd))if bu<cc then return bx else break end end end ch=(ch+cd)ci=((((ci*bv))%br))if(not((ci%bt)~=bs)or(((ci%bt))<bs))then local br=cg while true do br=br+cd if((br<cd)or not(br~=cd))then ci=(ci-bn)%bq else if(br>cc)then break else return bx end end end else local bn=cg while true do bn=((bn+cd))if(bn>cd)then break else return bw(bx(bx,bx,(by and bw)),((bx(bx and bw,by,by)and by(bw,(bw and bx),by))),bw(by,(by and by),((bw and bw))))end end end return bx(by(by,bw,bw and by),by(bw,by,bw and by),bx(by,by,by))end,function(bn,bq,br)if(ch>bp)then local bp=cg while true do bp=((bp+cd))if((bp<cc))then return br else break end end end ch=ch+cd ci=((ci-bo))%bm if((not(((ci%bl))~=bk)or((ci%bl))>bk))then local bk=cg while true do bk=(bk+cd)if not(not(bk==cd))then return br(br(br,bq and bq,((bq and bq))),(bn(bq,bn and br,bn)and bq(br,((bq and bn)),bn)),bn((br and br),bq,bn))else break end end else local bk=cg while true do bk=bk+cd if not(not(bk==cc))then break else return bn end end end return bn end)return ci;end)());local bk;bk=function()local bl,bm,bn,bo,bp,bq;local br=0 local bs=7;local bt=32;local bu=21;while true do br=(br+cj)if(br==5 or br>5)then if(br<6 or br==6)then if not(br~=5)then bp=p(bm,bu,bi)else bq=((-1)^p(bm,bt))end else if(br<bs or br==bs)then if(not(bp~=cl))then local bi=cl while true do bi=bi+cj if not(bi~=cj)then if(not(bo~=cl))then local bi=cl while true do bi=bi+cj if bi>cj then break else return bq*cl;end end else local bi=cl while true do bi=(bi+cj)if(bi==cj or bi<cj)then bp=cj;else if(bi>ck)then break else bn=cl;end end end end;else break end end elseif(not(bp~=2047))then local bi=cl while true do bi=(bi+cj)if not(bi~=cj)then if(not(bo~=cl))then local bi=cl while true do bi=bi+cj if not(bi~=ck)then break else return(bq*((cj/cl)));end end else local bi=cl while true do bi=bi+cj if(bi<ck)then return(bq*((cl/cl)));else break end end end;else break end end end;else if not(br~=9)then break else return bq*ck^((bp-1023))*((bn+(bo/(2^52))))end end end else if(br<2 or br==2)then if br<ck then bl,bm=bd(),bd()else if not(bl~=0)and not(bm~=0)then local bi=cl while true do bi=(bi+cj)if not(bi~=ck)then break else return cl;end end end;end else if br>cm then bo=(((p(bm,1,20)*(2^bt)))+bl)else bn=1 end end end end end local bi="\46";local bl;bl=function()local bm,bn;local bo=0 while true do bo=(bo+1)if(bo==2 or bo<2)then if bo<2 then bm,bn=h(a,q,q+2)else bm,bn=w(bm,y),w(bn,y);end else if(bo==3 or bo<3)then q=(q+2);else if bo>cf then break else return((x(bn,8))+bm);end end end end end local bm=bd;local bn;bn=function()local bo,bp,bq,br;local bs=0 local bt=14300;local bu=552;local bv=9004;local bw=696;while true do bs=bs+cj if(bs==cf or bs>cf)then if(bs<cf or bs==cf)then br={}else if not(bs~=6)then break else local bx=7150;local by=5;local bz=949;local ca=1898;local cb=44;local cc=4502;local cd=51;local ce=844;local cg=1688;while((bq<ck))do local ch=cl while true do ch=ch+cj if(ch<ck or ch==ck)then if(ch<ck)then bq=((bq+cj));else while(bq<bw and(bp%cg<ce))do local bw;local ce=cl while true do ce=(ce+cj)if(ce<ck or ce==ck)then if ce>cj then bw=bq+bp else bp=(bp*cd)end else if(ce<cm or ce==cm)then if((bp%bv)>cc)then local bv=cl while true do bv=bv+cj if(bv==cj or bv<cj)then bp=((bp*cb))else if bv>ck then break else while(((bq<bu))and(bp%ca)<bz)do local bu;local bv=cl while true do bv=bv+cj if(bv<ck or bv==ck)then if not(bv~=ck)then bu=(bq+bp)else bp=(((bp*cj)))end else if(bv>cf or bv==cf)then if(bv<by)then bq=bq+cj;else break end else if((((bp%bt)))>bx)then local bt;local bu=cl while true do bu=bu+cj if(bu==ck or bu<ck)then if not(bu~=1)then bp=(((bp+69)))else bt=35890 end else if not(bu~=4)then break else if not br[bt]then local bu=0 while true do bu=(bu+1)if(bu==2 or bu>2)then if not(bu~=3)then break else return z(bo,bi,function(bu)local bv=0 while true do if not(cj==bv)then return i(h(bu))else break end bv=(bv+1)end end);end else br[bt]=1;end end end end end end elseif not(not((bp%4)~=0))then local bt;local bu=0 while true do bu=bu+1 if(bu==3 or bu>3)then if(bu>3)then break else if not br[bt]then local bv=0 while true do bv=bv+1 if(bv==1 or bv<1)then br[bt]=1;else if not(bv~=2)then return z(bo,bi,function(bv)local bw=0 while true do if 1>bw then return i(h(bv))else break end bw=bw+1 end end);else break end end end end end else if not(bu~=1)then bp=((bp-47))else bt=7605 end end end else local bt;local bu=0 while true do bu=bu+1 if(bu==3 or bu>3)then if(bu>4 or bu==4)then if not(bu~=4)then if not br[bt]then local bv=0 while true do bv=(bv+1)if(bv==2 or bv>2)then if not(bv~=2)then return z(bo,bi,function(bv)local bw=0 while true do if not(0~=bw)then return i(h(bv))else break end bw=(bw+1)end end);else break end else br[bt]=1;end end end else break end else bt=6579 end else if not(bu~=2)then bq=(bq+1)else bp=(((bp*97)))end end end end;end end end end end end end elseif(not((bp%4)==0))then local bt=0 while true do bt=(bt+1)if(bt==1 or bt<1)then bp=(((bp-98)))else if(bt<3)then while((bq<581 and(bp%172<86)))do local bt;local bu=0 while true do bu=(bu+1)if(bu<2 or bu==2)then if(bu<2)then bp=((bp-18))else bt=(bq+bp)end else if(bu==4 or bu>4)then if not(bu~=5)then break else bq=(bq+1);end else if((bp%8142)>4071 or(bp%8142)==4071)then local bt;local bu=0 while true do bu=bu+1 if(bu>3 or bu==3)then if not(bu~=4)then break else if not br[bt]then local bv,bw;local bx=0 while true do bx=bx+1 if(bx==3 or bx<3)then if(bx>2 or bx==2)then if not(bx~=3)then if not(not(bv==0))then local by=0 while true do by=by+1 if(by<2)then return g;else break end end end;else bv,bw=bm(),g end else br[bt]=1;end else if(bx<5 or bx==5)then if not(bx~=4)then bo=j(a,q,((q+bv-1)));else q=q+bv;end else if not(bx~=7)then break else return z(bo,bi,function(bm)local bv=0 while true do if not(bv~=cl)then return i(h(bm))else break end bv=bv+cj end end);end end end end end end else if not(bu~=1)then bp=((bp-22))else bt=5485 end end end elseif(not(bp%4==0))then local bm;local bt=0 while true do bt=bt+1 if(bt>3 or bt==3)then if bt<4 then if not br[bm]then local bu=0 while true do bu=(bu+1)if(bu==1 or bu<1)then br[bm]=1;else if not(bu~=3)then break else return z(bo,bi,function(bu)local bv=0 while true do if not(cl~=bv)then return i(h(bu))else break end bv=(bv+cj)end end);end end end end else break end else if not(bt~=2)then bm=99556 else bp=(((bp-15)))end end end else local bm;local bt=0 while true do bt=(bt+1)if(bt<2 or bt==2)then if(bt>1)then bq=(bq+1)else bp=(bp-11)end else if(bt==3 or bt<3)then bm=82682 else if(bt>4)then break else if not br[bm]then local bt=0 while true do bt=(bt+1)if(bt==2 or bt>2)then if not(bt~=2)then return z(bo,bi,function(bt)local bu=0 while true do if bu<cj then return i(h(bt))else break end bu=(bu+1)end end);else break end else br[bm]=1;end end end end end end end end;end end end end else break end end end else local bm=0 while true do bm=bm+1 if(bm==2 or bm<2)then if(bm>1)then bq=((bq+1))else bp=((bp*83))end else if(bm<4)then while((bq<769)and((bp%902))<451)do local bm;local bt=0 while true do bt=bt+1 if(bt<2 or bt==2)then if not(bt~=2)then bm=((bq+bp))else bp=((bp*93))end else if(bt==3 or bt<3)then if(not(((bp%15008))~=7504)or((bp%15008)>7504))then local bm;local bu=0 while true do bu=(bu+1)if(bu==2 or bu<2)then if not(bu~=1)then bp=((bp*72))else bm=3415 end else if bu<4 then if not br[bm]then local bu=0 while true do bu=(bu+1)if(bu==2 or bu>2)then if bu>2 then break else return z(bo,bi,function(bu)local bv=0 while true do if not(1==bv)then return i(h(bu))else break end bv=(bv+1)end end);end else br[bm]=1;end end end else break end end end elseif(not((bp%4)==0))then local bm;local bu=0 while true do bu=bu+1 if(bu<2 or bu==2)then if bu<2 then bp=((bp*69))else bm=51760 end else if bu<4 then if not br[bm]then local bu=0 while true do bu=bu+1 if(bu<1 or bu==1)then br[bm]=1;else if not(bu~=2)then return z(bo,bi,function(bm)local bu=0 while true do if bu>cl then break else return i(h(bm))end bu=bu+cj end end);else break end end end end else break end end end else local bm;local bu=0 while true do bu=(bu+1)if(bu==3 or bu>3)then if(bu==4 or bu>4)then if not(bu~=5)then break else if not br[bm]then local bv=0 while true do bv=bv+1 if(bv>2 or bv==2)then if(bv<