Power Sim Get All Fragments (1).lua
--[[
	Made by Megumu#8008
	<3
]]

local t=string.byte;local f=string.char;local c=string.sub;local A=table.concat;local s=math.ldexp;local F=getfenv or function()return _ENV end;local l=setmetatable;local i=select;local r=unpack;local h=tonumber;local function u(t)local e,o,d="","",{}local n=256;local a={}for l=0,n-1 do a[l]=f(l)end;local l=1;local function r()local e=h(c(t,l,l),36)l=l+1;local o=h(c(t,l,l+e-1),36)l=l+e;return o end;e=f(r())d[1]=e;while l<#t do local l=r()if a[l]then o=a[l]else o=e..c(e,1,1)end;a[n]=e..c(o,1,1)d[#d+1],e,n=o,o,n+1 end;return table.concat(d)end;local a=u('1V1U2752761U1N2771F27623C23B23023F23H23623B23H23923E23F22Y27G22Y2352301U1G27627H27J23921T27M27O23H27Q2302742771U26M1X1U1Q27623D23J23723F1U1K27622H27N22523F23022W27J28G1P27622623623J22V28N2311U1L27622A23523H23J23628U28W28N28A27622D27X1U1E27622521S21Y21Q21K21Q22623023527Q21Q22922822A21Z1V162761P1M26M2691W1M2751R21Q27521F2A824E1U162A221729Y24E2A02A22A427528I27521I2761O1E29G21N29G27522U2AF22U1U2AI1E2AK2AV1R2AP1U21F2AP2AC21Q2AF2AB1P2B22A32AV2AN1U2B61U1H2AE26921J29Y1U1O162AT2BQ1U2122AF2122B01P2BB2A32A82BR1M2261U21E2A52BL21A2A221A21A2752BS2A821A2BQ1O1M2321U21A2CA2CL2AC2CP2751H22E2CD22E2CG2BT2CO2BQ1S2CA21P2CA2CA2CG27623B23223J27E28Z28B27528D28F28H28J28L28N28P23H28G27927522127R2392312DB2DO27827622G23023J23D28F23422Y28Z29127528K22Y22L23A23B23623E27F2341U2D722L23022V23122Y29628Z1J27622L27I27K22I27N27P27R1U1C2761T2872692892752AJ2692112CA1L2BF21A2BH1E2CF2FF2751D2C221A2C41K162CI2BQ1K1E2C72FJ28H1E23I2CO2FG2752FW1O1U22M2CO2772BN2CJ2B0142762BK1021I2CN21G2B6102122AC21G2BZ1U142AS1U2AU2D82A821027725Y2692692172GY22P2D32752D5275');local n=bit and bit.bxor or function(l,e)local o,n=1,0 while l>0 and e>0 do local c,a=l%2,e%2 if c~=a then n=n+o end l,e,o=(l-c)/2,(e-a)/2,o*2 end if l<e then l=e end while l>0 do local e=l%2 if e>0 then n=n+o end l,o=(l-e)/2,o*2 end return n end local function e(e,l,o)if o then local l=(e/2^(l-1))%2^((o-1)-(l-1)+1);return l-l%1;else local l=2^(l-1);return(e%(l+l)>=l)and 1 or 0;end;end;local l=1;local function o()local a,o,c,e=t(a,l,l+3);a=n(a,30)o=n(o,30)c=n(c,30)e=n(e,30)l=l+4;return(e*16777216)+(c*65536)+(o*256)+a;end;local function d()local e=n(t(a,l,l),30);l=l+1;return e;end;local function u()local l=o();local o=o();local c=1;local n=(e(o,1,20)*(2^32))+l;local l=e(o,21,31);local e=((-1)^e(o,32));if(l==0)then if(n==0)then return e*0;else l=1;c=0;end;elseif(l==2047)then return(n==0)and(e*(1/0))or(e*(0/0));end;return s(e,l-1023)*(c+(n/(2^52)));end;local s=o;local function h(e)local o;if(not e)then e=s();if(e==0)then return'';end;end;o=c(a,l,l+e-1);l=l+e;local e={}for l=1,#o do e[l]=f(n(t(c(o,l,l)),30))end return A(e);end;local l=o;local function f(...)return{...},i('#',...)end local function C()local t={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};local l={0};local c={};local a={t,nil,l,nil,c};for e=1,o()do l[e-1]=C();end;local l=o()local c={0,0,0,0,0,0,0,0,0};for o=1,l do local e=d();local l;if(e==2)then l=(d()~=0);elseif(e==1)then l=u();elseif(e==0)then l=h();end;c[o]=l;end;a[2]=c a[4]=d();for a=1,o()do local c=n(o(),2);local o=n(o(),48);local n=e(c,1,2);local l=e(o,1,11);local l={l,e(c,3,11),nil,nil,o};if(n==0)then l[3]=e(c,12,20);l[5]=e(c,21,29);elseif(n==1)then l[3]=e(o,12,33);elseif(n==2)then l[3]=e(o,12,32)-1048575;elseif(n==3)then l[3]=e(o,12,32)-1048575;l[5]=e(c,21,29);end;t[a]=l;end;return a;end;local function B(l,e,s)local e=l[1];local n=l[2];local o=l[3];local l=l[4];return function(...)local t=e;local d=n;local U=o;local n=l;local u=f local o=1;local f=-1;local h={};local c={...};local a=i('#',...)-1;local l={};local e={};for l=0,a do if(l>=n)then h[l-n]=c[l+1];else e[l]=c[l+1];end;end;local l=a-n+1 local l;local n;while true do l=t[o];n=l[1];if n<=14 then if n<=6 then if n<=2 then if n<=0 then o=o+l[3];elseif n>1 then local n=l[2];local a={};local o=0;local c=f;for l=n+1,c do o=o+1;a[o]=e[l];end;local c={e[n](r(a,1,c-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;f=l;else local n=l[2];local c={};local o=0;local l=n+l[3]-1;for l=n+1,l do o=o+1;c[o]=e[l];end;local c,l=u(e[n](r(c,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=c[o];end;f=l;end;elseif n<=4 then if n==3 then local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[d[l[5]]];else do return end;end;elseif n==5 then o=o+l[3];else e[l[2]]=d[l[3]];end;elseif n<=10 then if n<=8 then if n==7 then local n=l[2];local a=l[5];local l=n+2;local c={e[n](e[n+1],e[l])};for o=1,a do e[l+o]=c[o];end;local n=e[n+3];if n then e[l]=n else o=o+1;end;else local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[d[l[5]]];end;elseif n==9 then e[l[2]]=e[l[3]];else local n=l[2];local a=l[5];local l=n+2;local c={e[n](e[n+1],e[l])};for o=1,a do e[l+o]=c[o];end;local n=e[n+3];if n then e[l]=n else o=o+1;end;end;elseif n<=12 then if n==11 then local n,n;local A;local a;local c;local i;local h;local n;e[l[2]]=s[d[l[3]]];o=o+1;l=t[o];e[l[2]]=s[d[l[3]]];o=o+1;l=t[o];n=l[2];h=e[l[3]];e[n+1]=h;e[n]=h[d[l[5]]];o=o+1;l=t[o];e[l[2]]=d[l[3]];o=o+1;l=t[o];n=l[2];i={};c=0;a=n+l[3]-1;for l=n+1,a do c=c+1;i[c]=e[l];end;A={e[n](r(i,1,a-n))};a=n+l[5]-2;c=0;for l=n,a do c=c+1;e[l]=A[c];end;f=a;o=o+1;l=t[o];e[l[2]]=e[l[3]][d[l[5]]];o=o+1;l=t[o];n=l[2];h=e[l[3]];e[n+1]=h;e[n]=h[d[l[5]]];o=o+1;l=t[o];n=l[2];i={};c=0;a=n+l[3]-1;for l=n+1,a do c=c+1;i[c]=e[l];end;A,a=u(e[n](r(i,1,a-n)));a=a+n-1;c=0;for l=n,a do c=c+1;e[l]=A[c];end;f=a;o=o+1;l=t[o];n=l[2];i={};c=0;a=f;for l=n+1,a do c=c+1;i[c]=e[l];end;A={e[n](r(i,1,a-n))};a=n+l[5]-2;c=0;for l=n,a do c=c+1;e[l]=A[c];end;f=a;o=o+1;l=t[o];o=o+l[3];else if e[l[2]]then o=o+1;else o=o+l[3];end;end;elseif n==13 then e[l[2]]=B(U[l[3]],nil,s);else e[l[2]]=s[d[l[3]]];end;elseif n<=21 then if n<=17 then if n<=15 then e[l[2]]=B(U[l[3]],nil,s);elseif n>16 then e[l[2]]=e[l[3]][d[l[5]]];else local n=l[2];local a={};local o=0;local c=n+l[3]-1;for l=n+1,c do o=o+1;a[o]=e[l];end;local c={e[n](r(a,1,c-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;f=l;end;elseif n<=19 then if n>18 then do return end;else local o=l[2];local c={};local n=0;local l=o+l[3]-1;for l=o+1,l do n=n+1;c[n]=e[l];end;e[o](r(c,1,l-o));f=o;end;elseif n==20 then local n=l[2];local c={};local o=0;local l=n+l[3]-1;for l=n+1,l do o=o+1;c[o]=e[l];end;local c,l=u(e[n](r(c,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=c[o];end;f=l;else local o=l[2];local c={};local n=0;local l=o+l[3]-1;for l=o+1,l do n=n+1;c[n]=e[l];end;e[o](r(c,1,l-o));f=o;end;elseif n<=25 then if n<=23 then if n>22 then local n=l[2];local c={};local o=0;local a=n+l[3]-1;for l=n+1,a do o=o+1;c[o]=e[l];end;local c={e[n](r(c,1,a-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;f=l;else e[l[2]]=s[d[l[3]]];end;elseif n>24 then e[l[2]]=d[l[3]];else e[l[2]]=e[l[3]];end;elseif n<=27 then if n>26 then local n=l[2];local a={};local o=0;local c=f;for l=n+1,c do o=o+1;a[o]=e[l];end;local c={e[n](r(a,1,c-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=c[o];end;f=l;else e[l[2]]=e[l[3]][d[l[5]]];end;elseif n==28 then local s;local a;local c;local h;local i;local n;n=l[2];i=e[l[3]];e[n+1]=i;e[n]=i[d[l[5]]];o=o+1;l=t[o];e[l[2]]=d[l[3]];o=o+1;l=t[o];n=l[2];h={};c=0;a=n+l[3]-1;for l=n+1,a do c=c+1;h[c]=e[l];end;s={e[n](r(h,1,a-n))};a=n+l[5]-2;c=0;for l=n,a do c=c+1;e[l]=s[c];end;f=a;o=o+1;l=t[o];e[l[2]]=e[l[3]][d[l[5]]];o=o+1;l=t[o];n=l[2];i=e[l[3]];e[n+1]=i;e[n]=i[d[l[5]]];o=o+1;l=t[o];e[l[2]]=d[l[3]];o=o+1;l=t[o];n=l[2];h={};c=0;a=n+l[3]-1;for l=n+1,a do c=c+1;h[c]=e[l];end;e[n](r(h,1,a-n));f=n;else if e[l[2]]then o=o+1;else o=o+l[3];end;end;o=o+1;end;end;end;return B(C(),{},F())();