0,]']±>Sï}WÿÍu§ðp8·d%qy)6o;]ÉA¦ösï÷ôôô”°ÂVl†3#dM._state or(type(DVs8kf2w)~="number"or math.type(DVs8kf2w)~="integer")then error("invalid persistent tic index")end;lastval=dM._state[DVs8kf2w+1] lastval=dM["_fix"..type(lastval)](lastval) if vms5 ~=nil then dM._state[DVs8kf2w+1]=vms5;dM._dirty=true;if not dM._batch then dM._savestate()end end;return lastval end;_G.pmem=setmetatable(dM,dM)end)() -- set format (22 rows of 40 characters, 4 uint32s for RNG state, 2 uint8s for position x/y, 1 uint8 for cursor state pmem.format = ("c40"):rep(22).."I4I4I4I4".."BBB" local display_help = false local CONSTANTS = {} CONSTANTS.ROWS = 22 CONSTANTS.RNG_STATE = CONSTANTS.ROWS CONSTANTS.CX = CONSTANTS.RNG_STATE + 4 CONSTANTS.CY = CONSTANTS.CX+1 CONSTANTS.CSTATE = CONSTANTS.CY+1 local seed_rng = (pmem(CONSTANTS.RNG_STATE)+pmem(CONSTANTS.RNG_STATE+1)+pmem(CONSTANTS.RNG_STATE+2)+pmem(CONSTANTS.RNG_STATE+3))==0 -- if the length of the first string is 0 (the PMEM enhancement pack truncates null bytes), let's fix that if #pmem(0)==0 then -- fill the character space with spaces memset(0x14004,32,CONSTANTS.ROWS*40) -- reload the state pmem.refresh=true -- set the cursor to 0,0 and the cursor state to on pmem(CONSTANTS.CX,0) pmem(CONSTANTS.CY,0) pmem(CONSTANTS.CSTATE,1) -- display the help to start display_help = true seed_rng = true end -- set state local chars = {} for i=1,CONSTANTS.ROWS do chars[i]=pmem(i-1) end local cx = pmem(CONSTANTS.CX) local cy = pmem(CONSTANTS.CY) local cstate = pmem(CONSTANTS.CSTATE) -- RNG local __uint32limit = (1<<32)-1 local __rotl = function(x,b) return ((x<>(32-b))&__uint32limit) end function __mulberry32(a) -- mulberry32 used to seed the RNG state a=(a+0x6D2B79F5)&__uint32limit local t = ((a~(a>>15))*(1|a))&__uint32limit t = t + ((((t~(t>>7))*(61|t))~t))&__uint32limit return a, t end function nextr() local s = {} for i=0,3 do s[i]=pmem(CONSTANTS.RNG_STATE+i) end local result = (__rotl(s[1]*5,7)*9)&__uint32limit local t = (s[1]<<9)&__uint32limit s[2]=s[2]~s[0] s[3]=s[3]~s[1] s[1]=s[1]~s[2] s[0]=s[0]~s[3] s[2]=s[2]~t s[3]=__rotl(s[3],11) for i=0,3 do pmem(CONSTANTS.RNG_STATE+i,s[i]) end return result end -- end RNG function randomize_char(cx,cy) local index=cy+1 local c=cx+1 -- bitmask with rejection method local mask = 127 -- pre-calculated local val repeat val = nextr()&mask until val<=95 local s = chars[index] s = s:sub(1,c-1)..string.char(32+val)..s:sub(c+1,-1) chars[index]=s pmem(cy,s) end local t = 0 function _printc(s,y,c) local _w = print(s,0,-6) print(s,(240//2)-(_w//2),y,c) end function TIC() cls(0) if display_help then _printc("RANDOM TEXT EDITOR",26,12) _printc("PRESS A TO RANDOMIZE THE TEXT AT THE CURSOR",38,12) _printc("D-PAD TO MOVE THE CURSOR AROUND",44,12) _printc("PRESS B TO TOGGLE THE CURSOR",50,12) _printc("PRESS X TO BRING THIS HELP BACK UP",56,12) _printc("PRESS A TO EXIT THIS MENU",68,12) if btn(4) then display_help = false if seed_rng then local a, seedval a = tstamp()&__uint32limit for i=0,3 do a, seedval = __mulberry32(a) seedval = seedval pmem(CONSTANTS.RNG_STATE+i,seedval) end -- ensure an all-zero state won't happen pmem(CONSTANTS.RNG_STATE,pmem(CONSTANTS.RNG_STATE)|1) -- discard the first 5 outputs for i=1,5 do nextr() end seed_rng=false end end else local y = (136//2)-((CONSTANTS.ROWS*6)//2) local oy = y for index=1,CONSTANTS.ROWS do if #(chars[index]:gsub("%s+$",""))>0 then print(chars[index]:gsub("%s+$",""),x,y,12,true) end y=y+6 end if (cstate&1)>0 and ((t//30)%2)>0 then rect(cx*6,oy+(cy*6),6,6,2) end if btnp(0,12,6) and (cstate&1)>0 then cy=(cy-1)%CONSTANTS.ROWS end if btnp(1,12,6) and (cstate&1)>0 then cy=(cy+1)%CONSTANTS.ROWS end if btnp(2,12,6) and (cstate&1)>0 then cx=(cx-1)%40 end if btnp(3,12,6) and (cstate&1)>0 then cx=(cx+1)%40 end if btnp(4) and (cstate&1)>0 then randomize_char(cx,cy) end if btnp(5) then cstate=cstate~1 end if btnp(6) then display_help=true end pmem(CONSTANTS.CX,cx) pmem(CONSTANTS.CY,cy) pmem(CONSTANTS.CSTATE,cstate) --print(""..cx..";"..cy,1,1,2) end t=t+1 end poke(0x3ff8,14)