Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- local f=string.byte;local d=string.char;local c=string.sub;local C=table.concat;local u=math.ldexp;local P=getfenv or function()return _ENV end;local e=setmetatable;local s=select;local i=unpack;local h=tonumber;local function r(f)local l,n,o="","",{}local t=256;local a={}for e=0,t-1 do a[e]=d(e)end;local e=1;local function i()local l=h(c(f,e,e),36)e=e+1;local n=h(c(f,e,e+l-1),36)e=e+l;return n end;l=d(i())o[1]=l;while e<#f do local e=i()if a[e]then n=a[e]else n=l..c(l,1,1)end;a[t]=l..c(n,1,1)o[#o+1],l,t=n,n,t+1 end;return table.concat(o)end;local t=r('26C27427423M27525G26K1K1R21X26K27425C26S27B22M26S27425D26K25W26C22M27E26C25W25G27I25G27426527W27P27Z26425W27I27O26C26528522M28528727K28927526427I26427426824K27I24K27426924S23826C23024S27426K28K1R22N28M26C26L25021W27P25027426H27522M27526S25827I25827426O23O27I23O27427025O27I25O27426V27U1R22M27W22S23P29526C22Z29X23L24C27422Z2A226C23P26S27W23J27K26C26H2A226D22B2A526H22S1K26C22B22S29P2181R1R22W2AP24B26S23W27B22Y23W29F29M1R22Y29O26C27128521S28526W2B12B327426R1C1L1R21T1C26D22S23L22S2952252AN26C23L2301426C23E2302742BS29522M2BX26C23X28Z22M28Z23T28H27P2C924528T27P2CD24128828524D2BQ22M2BQ2492CK2BQ24525G27W29T27424525824K26D22M29E26C2412CD22Z2CD24D29J26C22C2D72492C22C127424L2DC2C22412CR2802742412582502CY2D024929327P2DS24L22427422M2DW26C24822K27I22K2742492E427P2E72E628C2E724G2BB2B424S29C2B22D026I24C24426D2272A222S25J24427B22424426C22S26I23W22S2EN2AZ2EQ29H1R22429J22S24P2E226C22J2E72512102AK22J21027424Q26K21026D23827E2EQ26C2ET27422S24T21G23826D21U21G27424X22K22C26D23G2E724X1C2AK22X1C2742592102FM22M2FI26C2591K2AK22M2AK26C24H2182GM2182DE2GO2GN2E52GC27P2GY2ER2AQ22M2441R24B24A26K2F02212FP25J2FR2F52FT2492GI22Z2GI26I26K2EM23I2HB2752DZ2EQ28W22428M2F82FA2FC2742HK2G42272HO2FS2EW2FV2FX2FZ2742512G32G52FD142AK2372BU2GP2GR26C22V2GT26C2492IG22Z2IG25J23G2AQ2242IS24B23T2G029Y2IY24521O2A32J22B527522H27525J1S26J26C2241S2H523T25825W26D22F2D02FN2JI22I28Q26C26R26C1Q2AR2JS24B25L28Z22Z28Z25X2D32CD25X2J62J82JA2JC2JE24B25D2702A927027L26K29522R27R27M29J27Q27425H2A827P2AB25H26K28C27R2KS2DX27R2JB27426F26M27523S23V23P23K24724024623X23U23N26F26827523N23P23T23L2L127524J23L24024R23Q23Y23L23R24024726F2JR27421923E25922O24123624F26E22E1W23J26Q1R21P1225Q1622325A22625724V2222752MN1K26326F26A27525323V24124623R2LK2MN2MR2752L82LA2LC26F26F2N224123Q2LE27523R23W23P2462MN2NH2NI1423V24K26F27127522N1O25H1126A1126Y24221R21W21X26521G1921J26V21I23F23X23A23U24823I141O2NI28628Z2NI24K27727426D2752OM2OL2ON2OF2OO26C2OS2OU2OQ2OP2OX2OT2OW2OZ2OY2OV2P22P02P32P12P72P62P92P52PB2P42PD2P82PC2PF2PE2OF2PH2PK2PA2PE2PM2PL2PG2PO2PR2PG2MN2PS2PN2PQ2PJ2PY2PW2PZ2PJ2PV2PK');local o=bit and bit.bxor or function(e,n)local l,o=1,0 while e>0 and n>0 do local t,c=e%2,n%2 if t~=c then o=o+l end e,n,l=(e-t)/2,(n-c)/2,l*2 end if e<n then e=n end while e>0 do local n=e%2 if n>0 then o=o+l end e,l=(e-n)/2,l*2 end return o end local function e(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;local l=1;local function n()local n,t,e,c=f(t,l,l+3);n=o(n,228)t=o(t,228)e=o(e,228)c=o(c,228)l=l+4;return(c*16777216)+(e*65536)+(t*256)+n;end;local function a()local e=o(f(t,l,l),228);l=l+1;return e;end;local function K()local l=n();local n=n();local c=1;local o=(e(n,1,20)*(2^32))+l;local l=e(n,21,31);local e=((-1)^e(n,32));if(l==0)then if(o==0)then return e*0;else l=1;c=0;end;elseif(l==2047)then return(o==0)and(e*(1/0))or(e*(0/0));end;return u(e,l-1023)*(c+(o/(2^52)));end;local r=n;local function h(e)local n;if(not e)then e=r();if(e==0)then return'';end;end;n=c(t,l,l+e-1);l=l+e;local l={}for e=1,#n do l[e]=d(o(f(c(n,e,e)),228))end return C(l);end;local l=n;local function r(...)return{...},s('#',...)end local function C()local d={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,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={};local f={};local t={d,nil,l,nil,f};t[4]=a();for e=1,n()do l[e-1]=C();end;for t=1,n()do local c=o(n(),33);local n=o(n(),186);local o=e(c,1,2);local l=e(n,1,11);local l={l,e(c,3,11),nil,nil,n};if(o==0)then l[3]=e(c,12,20);l[5]=e(c,21,29);elseif(o==1)then l[3]=e(n,12,33);elseif(o==2)then l[3]=e(n,12,32)-1048575;elseif(o==3)then l[3]=e(n,12,32)-1048575;l[5]=e(c,21,29);end;d[t]=l;end;local e=n()local o={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};for n=1,e do local l=a();local e;if(l==1)then e=(a()~=0);elseif(l==0)then e=K();elseif(l==3)then e=h();end;o[n]=e;end;t[2]=o for e=1,n()do f[e]=n();end;return t;end;local K=pcall local function u(h,e,f)local e=h[1];local l=h[2];local C=h[3];local o=h[4];return function(...)local n=1;local a=-1;local d={...};local s=s('#',...)-1;local function P()local c=e;local t=l;local e=C;local o=o;local e=r local h={};local e={};local l={};for e=0,s do if(e>=o)then h[e-o]=d[e+1];else l[e]=d[e+1];end;end;local e=s-o+1 local e;local o;while true do e=c[n];o=e[1];if o<=30 then if o<=14 then if o<=6 then if o<=2 then if o<=0 then l[e[2]]=l[e[3]]*t[e[5]];elseif o>1 then l[e[2]]=l[e[3]]-l[e[5]];else local o;l[e[2]]=f[t[e[3]]];n=n+1;e=c[n];l[e[2]]=l[e[3]][t[e[5]]];n=n+1;e=c[n];l[e[2]]={};n=n+1;e=c[n];l[e[2]]=t[e[3]];n=n+1;e=c[n];l[e[2]]=t[e[3]];n=n+1;e=c[n];l[e[2]]=t[e[3]];n=n+1;e=c[n];o=e[2];l[o]=l[o]-l[o+2];n=n+e[3];end;elseif o<=4 then if o>3 then local o=e[3];local n=l[o]for e=o+1,e[5]do n=n..l[e];end;l[e[2]]=n;else do return end;end;elseif o==5 then l[e[2]]=l[e[3]]%t[e[5]];else l[e[2]]={};end;elseif o<=10 then if o<=8 then if o>7 then l[e[2]]=f[t[e[3]]];else a=e[2];end;elseif o>9 then local h;local f;local o;local d;local t;l[e[2]]=l[e[3]];n=n+1;e=c[n];l[e[2]]=l[e[3]];n=n+1;e=c[n];l[e[2]]=l[e[3]];n=n+1;e=c[n];t=e[2];d={};o=0;f=t+e[3]-1;for e=t+1,f do o=o+1;d[o]=l[e];end;h={l[t](i(d,1,f-t))};f=t+e[5]-2;o=0;for e=t,f do o=o+1;l[e]=h[o];end;a=f;n=n+1;e=c[n];l[e[2]]=l[e[3]][l[e[5]]];n=n+1;e=c[n];l[e[2]]=l[e[3]];n=n+1;e=c[n];l[e[2]]=l[e[3]];n=n+1;e=c[n];l[e[2]]=l[e[3]];n=n+1;e=c[n];l[e[2]]=l[e[3]];n=n+1;e=c[n];l[e[2]]=l[e[3]];else l[e[2]]=l[e[3]][l[e[5]]];end;elseif o<=12 then if o>11 then l[e[2]]();a=A;else l[e[2]]=l[e[3]]+t[e[5]];end;elseif o==13 then l[e[2]][l[e[3]]]=l[e[5]];else n=n+e[3];end;elseif o<=22 then if o<=18 then if o<=16 then if o>15 then l[e[2]]=l[e[3]]-t[e[5]];else a=e[2];end;elseif o==17 then if(t[e[2]]<l[e[5]])then n=n+1;else n=n+e[3];end;else n=n+e[3];end;elseif o<=20 then if o==19 then l[e[2]]=l[e[3]]-t[e[5]];else l[e[2]]=l[e[3]][t[e[5]]];end;elseif o==21 then l[e[2]][l[e[3]]]=l[e[5]];else l[e[2]]=l[e[3]]+l[e[5]];end;elseif o<=26 then if o<=24 then if o==23 then if(l[e[2]]<l[e[5]])then n=n+1;else n=n+e[3];end;else if(t[e[2]]<l[e[5]])then n=n+1;else n=n+e[3];end;end;elseif o>25 then local n=e[2];local o=l[e[3]];l[n+1]=o;l[n]=o[t[e[5]]];else l[e[2]]=f[t[e[3]]];end;elseif o<=28 then if o==27 then local o;local a;l[e[2]]=f[t[e[3]]];n=n+1;e=c[n];l[e[2]]=f[t[e[3]]];n=n+1;e=c[n];a=e[2];o=l[e[3]];l[a+1]=o;l[a]=o[t[e[5]]];n=n+1;e=c[n];l[e[2]]=t[e[3]];n=n+1;e=c[n];l[e[2]]=l[e[3]];n=n+1;e=c[n];l[e[2]]=l[e[3]];n=n+1;e=c[n];l[e[2]]=l[e[3]];n=n+1;e=c[n];l[e[2]]=l[e[3]];n=n+1;e=c[n];l[e[2]]=t[e[3]];n=n+1;e=c[n];l[e[2]]=f[t[e[3]]];else l[e[2]]=l[e[3]]+l[e[5]];end;elseif o==29 then local o=e[3];local n=l[o]for e=o+1,e[5]do n=n..l[e];end;l[e[2]]=n;else l[e[2]]=#l[e[3]];end;elseif o<=45 then if o<=37 then if o<=33 then if o<=31 then local o=e[2];l[o]=l[o]-l[o+2];n=n+e[3];elseif o>32 then local o=e[2];local c={};local n=0;local t=o+e[3]-1;for e=o+1,t do n=n+1;c[n]=l[e];end;local c={l[o](i(c,1,t-o))};local e=o+e[5]-2;n=0;for e=o,e do n=n+1;l[e]=c[n];end;a=e;else if(t[e[2]]>=l[e[5]])then n=n+1;else n=n+e[3];end;end;elseif o<=35 then if o==34 then l[e[2]]=l[e[3]]-l[e[5]];else l[e[2]]=l[e[3]][l[e[5]]];end;elseif o==36 then local s;local d;local o;local h;local f;l[e[2]]=l[e[3]]%t[e[5]];n=n+1;e=c[n];l[e[2]]=l[e[3]]+t[e[5]];n=n+1;e=c[n];l[e[2]]=l[e[3]];n=n+1;e=c[n];l[e[2]]=l[e[3]];n=n+1;e=c[n];l[e[2]]=l[e[3]];n=n+1;e=c[n];l[e[2]]=l[e[3]];n=n+1;e=c[n];l[e[2]]=l[e[3]];n=n+1;e=c[n];l[e[2]]=l[e[3]];n=n+1;e=c[n];f=e[2];h={};o=0;d=f+e[3]-1;for e=f+1,d do o=o+1;h[o]=l[e];end;s={l[f](i(h,1,d-f))};d=f+e[5]-2;o=0;for e=f,d do o=o+1;l[e]=s[o];end;a=d;n=n+1;e=c[n];l[e[2]]=l[e[3]][l[e[5]]];else local o=e[2];local c={};local n=0;local t=o+e[3]-1;for e=o+1,t do n=n+1;c[n]=l[e];end;local c={l[o](i(c,1,t-o))};local e=o+e[5]-2;n=0;for e=o,e do n=n+1;l[e]=c[n];end;a=e;end;elseif o<=41 then if o<=39 then if o>38 then l[e[2]]=l[e[3]]%t[e[5]];else if(l[e[2]]~=l[e[5]])then n=n+1;else n=n+e[3];end;end;elseif o>40 then l[e[2]]=#l[e[3]];else if(l[e[2]]<l[e[5]])then n=n+1;else n=n+e[3];end;end;elseif o<=43 then if o==42 then if(l[e[2]]~=l[e[5]])then n=n+1;else n=n+e[3];end;else local o=e[2];local n=l[e[3]];l[o+1]=n;l[o]=n[t[e[5]]];end;elseif o==44 then l[e[2]]={};else l[e[2]]=l[e[3]]/t[e[5]];end;elseif o<=53 then if o<=49 then if o<=47 then if o>46 then do return end;else l[e[2]]=t[e[3]];end;elseif o>48 then l[e[2]]=l[e[3]]/t[e[5]];else local o=e[2];l[o]=l[o]-l[o+2];n=n+e[3];end;elseif o<=51 then if o==50 then l[e[2]]=l[e[3]][t[e[5]]];else l[e[2]]=l[e[3]];end;elseif o>52 then l[e[2]]=l[e[3]];else l[e[2]]=t[e[3]];end;elseif o<=57 then if o<=55 then if o>54 then l[e[2]]=l[e[3]]/t[e[5]];n=n+1;e=c[n];l[e[2]]=l[e[3]]-l[e[5]];n=n+1;e=c[n];l[e[2]]=l[e[3]]/t[e[5]];n=n+1;e=c[n];l[e[2]]=l[e[3]]*t[e[5]];n=n+1;e=c[n];l[e[2]]=l[e[3]];n=n+1;e=c[n];l[e[2]]=l[e[3]];n=n+1;e=c[n];n=n+e[3];else local o=e[2];local t=l[o+2];local c=l[o]+t;l[o]=c;if t>0 then if c<=l[o+1]then n=n+e[3];l[o+3]=c;end;elseif c>=l[o+1]then n=n+e[3];l[o+3]=c;end;end;elseif o>56 then l[e[2]]=l[e[3]]*t[e[5]];else local o=e[2];local t=l[o+2];local c=l[o]+t;l[o]=c;if t>0 then if c<=l[o+1]then n=n+e[3];l[o+3]=c;end;elseif c>=l[o+1]then n=n+e[3];l[o+3]=c;end;end;elseif o<=59 then if o>58 then l[e[2]]=l[e[3]]+t[e[5]];else l[e[2]]();a=A;end;elseif o==60 then if(t[e[2]]>=l[e[5]])then n=n+1;else n=n+e[3];end;else local s;local d;local o;local h;local f;l[e[2]]=l[e[3]][t[e[5]]];n=n+1;e=c[n];l[e[2]]=l[e[3]][t[e[5]]];n=n+1;e=c[n];f=e[2];h={};o=0;d=f+e[3]-1;for e=f+1,d do o=o+1;h[o]=l[e];end;s={l[f](i(h,1,d-f))};d=f+e[5]-2;o=0;for e=f,d do o=o+1;l[e]=s[o];end;a=d;n=n+1;e=c[n];l[e[2]]();a=f;n=n+1;e=c[n];do return end;end;n=n+1;end;end;A,B=r(K(P))if not A[1]then local e=h[7][n]or'?'error('ERROR IN IRONBREW SCRIPT [LINE '..e..']:'..A[2])else return i(A,2,B)end;end;end;return u(C(),{},P())();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement