Lexington and Concord

local m,G do local Z=math.floor local K=math.random local E=table.remove local B=string.char local T=0 local w=2 local x={}local t={}local y=0 local Q={}for Z=1,256,1 do(Q)[Z]=Z end repeat local Z=K(1,#Q)local m=E(Q,Z);(t)[m]=B(m-1)until#Q==0 local U={}local function d()if#U==0 then T=(T*165+4902720711367)%35184372088832 repeat w=(w*65)%257 until w~=1 local K=w%32 local m=(Z(T/2^(13-(w-K)/32))%4294967296.0)/2^K local G=Z((m%1)*4294967296.0)+Z(m)local E=G%65536 local B=(G-E)/65536 local x=E%256 local t=(E-x)/256 local y=B%256 local Q=(B-y)/256 U={x,t,y,Q}end return table.remove(U)end local J={}G=setmetatable({},{__index=J,__metatable=nil})function m(Z,K)local G=J if(G)[K]then else U={}local m=t T=K%35184372088832 w=K%255+2 local E=string.len(Z);(G)[K]=""local B=139 for E=1,E,1 do B=((string.byte(Z,E)+d())+B)%256;(G)[K]=(G)[K]..(m)[B+1]end end return K end end local Z={game}local K=(((Random)[(G)[m(".\179\172",30418210757402)]]()))[(G)[m("\194M+I\211b%\152\251h",392755506985)]]((Random)[(G)[m("\201vm",3623377817324)]]());((((getgenv()))[(G)[m("\a\030\002\206\200L\218\203s}",18751605061500)]](((Z)[1])[(G)[m("\031,\132\230\228\208?",21570839428804)]]((Z)[1],(G)[m("\217+\158\233\233\182\1313\b4mi\147\235\234\017\209\235\220\144\189\207\250]\238\1636>\218TT\167P\246]\238\221\153=\193\133\169\165}Y\237\001\131^\132T\204^\195\146i\191\015\015\156\215\159\142\127\129\148\228\223\208'\176\189\194\132\228[\197\a\162\252?\182\196E\015\198xp\169\176?O\249\158\023\205d\175!8\233_\016\129\182\238N\014\025e4\024\148\012\2482\027\255\164{",28691726905140)])))())((G)[m("\006",18613582571915)],(((Random)[(G)[m("Y\r\223",15197424888427)]]()))[(G)[m("\198\189\226TB\230\244\028\237\190 ",11347433517748)]]((Random)[(G)[m("\133D$",21771774368514)]](K),-(math)[(G)[m("\2106\136",4650187707513)]](2,31),(math)[(G)[m("/\131i",14036414891903)]](2,31)),K)