>?""""""fffffffi"iff")""""")fff"ffݝ -ݝ-f)ffiff֙)"))fff֝f)"""---")")"")ffffff`i)&&"""""iiff" mfff""-bff"fmfݒ)"")ffff)""-m&""""""""""iffffffibf&""""""biff"ibffff-"f)f"fffmfݙ"))""bffff "bf-""ݙ-""""""""bffffffif)i"""""""bf)"bffff"m&fiҝ&bmfffm))"""ffffff&&f&bfm&"-"""ݝ"""""""""bffffff)"i""""""ff-"""bfff"-"f &fi&bffffffݙ""""mffffff&fffffff"-"""ݝ"-"""""""ffffffff)"i"""""""f&b"""fffb)""bf&bifmffffffff")ݝmffffffffmffݝ-""")""f""""ffffffff)"""""""""")"b"""b""""m&ffff&bfffffff")-)""mffffff&m"ݙ-""ҙ"fff""bffffffffi"b"""""bf&&""f"""""bbffmifffffff"""""mffffmff&bݙݙ""ifff""mfffffi)"")"ff&fffim"""--bfffffimff"""--"""mmffffffm"ݝ""ݐНmff)"""mfffff""bff"f&mffff)ffif""""""bfffffff&"ݙ"""-")"" ffffmff""""""ٝ--"&mf ))"""bm"""f&"f"b&ff"i)"")-"bffmfm&ݖ-""ݙ""""mffffff&m"""""-"ݙ&mf""""m")"""f&"&"b&fff&"")&"b-""-"-bfffmffm֙ݙ""""ffffff"""""""ffi""ݙi))"""f&""&""f)"")""""-""""֝mfmfmfݙٝ--""""ifff-m""""""b&ٙ))ݙifi""""" bf&"b""bff)"")""""-""-"ݝbff-ݝݝ-""""fffm--"""""bffif-iib&)"&"fff&""iff"""b)"""""""fmfݝݝ)""""fffm---"ݝ"bbfiffݙf"")bff-"""if"""ff-""-""mݖmfݝi-""")fff"-"-)ٙ"f"bfffݙif)fff""""f-"m-"""""""fmffff-""fiff-""--""i)ffݙiiiffffb"--"-"""-"-"""mffffmݝf-&"fffi-"""""&""f&""iff֙i"bfff""""b""m&-""mfmf""""ifff)"-""""fbf"&""im&f&ٝff"bf"""""&""mffmffmm-biifffi))Ғm-""-f&"""""bif&"ifi&f"bݙ"""ffb"&"-"mfffmfffݙfff""m"""-f֝ """bf""iffififb"ٙ)""ffbf"""""ݝfmf&ffff"f-""""mf֝)""bffm""ifififif"ٝ""""iff"""m-"֝ifݖi-bff")-"""fff-"""""bf")i)iffffiffif&i)")")bif-"""m"ff&ݝffff֙&"m")bf)))b-"fmf-""""""&"if)fffiffffffffiff&""")b&fm"-bm&ݖfffff""")"i)))ifff"""mffff"""""b"""ff-bbfffiffffffffff"""""ҝff-mfm-""ffffifm&""""if)"bffffff-"""fffff"""b&"""f-fbffififfffffffffm"""""""bm-ffm""""fffiff)"""""f"iifff-""-m&fffmf"""""&"""m&"ffiffffffffffff""ٙ"""")i-mf-""ffٙfff-""bf&"ffm-"""ݝmf&ffff&")"f"""bfffffifffff֝)""ҙ""")i""f""fݝf&"f")"ffff&"ff&fffmݙ"""bfff&b")")&"&)-"&ffff&fifffff֙))ҙٙ""m""mmm""fffff֝&ffffff"f"mf-")""ݙbff""&")"&""")"""&ffffbifffff""""""if-"""fm-"ffffffݝ&ffffffmfmff-ٖ)ݝbf"f&"""ff&b""""""bbf""imfff")"""if&"ffm"m-"ݙifffffffffiffmfmfffݙ)b"&""""ff&b"""""""b&)""biݙ)""""""iffffmffff-"ٝٙiffffffbfiff Нfffffݙݒ)""""""ifffff"""""""""-""b)֙))""""ff&fmbfmfݝbf֖iffffٙiffi`mfffffݝm""f""""mff&bf""bf"f"""ݒ"ْ""fff)fmbfmfffff)ifff&"iii mݝi""""""""""f"&&b")"bf"&"""" ݝ-ْfb-ffffmfb"b)"""bff&f"bfiff mݝmff"""""""""""&bffb""""""&"")")"-ݒٙ"ffm""fmmf""""b&"""""b&i )imf""""""bff"&"bfff""""""""f&"" "-ҙ&"-ݙii-bffbm""bmfmf"""")"""""""iff)fff&"""b&fb"&"bf&b""""""ff)" "ٝ--mٙiݙfff-&bfmff""f))b&""b""ffff-ݝ""ffm&b&""fbf"m&"""b&b""-"ff)""")""-fiݙffff&ffmmi)""bf")f&"ff&"&ffff-"bfbfff"&""""b&"""""b"-""-ݖ""fbi)"""ݝfffٙ-&ffffffiff")""&"f&ffff"f"-""fff&f""""""&"""""""""""""-fffi)""ݝif֙ٝmi)""ibffffff&""&"&bfff"f"&"ݝb&ifbf"""""""""""b"""""""ݒ"ff""-""ҝ֙ٝmffݖ""iff&"f&ݙiff&")"f&fifff"&"ݝ""-f&i&bf))"""""&""""&"""""-")ff"ff"ݒݝff")fmf"f-ݙ-""""bfff֝iffbf"ݝݝ")f&"f&"f&""""""&""""""""m-")iff"bf"-"ݝf֙mf)bffmfffm""ffffݝmbf"ٝٝ&i&mf&"mi""fff&""- """"""--"""iff&ff--ٝ֝ݙif))"""bbffmfffٝ")"bfff&-bffݝ)bi&"fff"""fb"ffff&f""""""""--"""ifffff-"ݝ֙ݙm)""""fm-f)"""f&b&bf")mffݙٝi&""fmf-"f&bfff&"f""""f"""--"ݙififf&&"-iݙifݝmif)-ffݝif"""b"bffi-f"ݙٝi&ffffmmm&b"ff&"mf"""""&&"ݙ)-ifff&"--֝iifimffmf֝)""bff-"ݝ"ݙi-mf-fm&""if"bff " """"&f""ݙ)ݝii"֙mffffffff)""""ffff-"")""fm"-"f""ݝ&iff """ff""mf""-֙f"ݙbfff&"ٝ"mmff)"")""bݙibff)-"f)"))""bffm-""f&"ݙmff"""""b"""mff"""""ffݝٝff&ffim"biݙiffff֝)")mff&m-m&"ݙiif-"&""""""mfff&""mfݝݙٝi)ffmfbffmmfmmٙm"ݙb&fffif-ҙ)mf"mm""mmfii-f)""&f"ffff&"ݙݝݙ-)fffiff"fffi"ffff)"ٙf)mf"-""mٖ)f--f`)"""f&-ffff&""fݙm֙f))f&bf-"fffffݝٙݙbfffݙ"ٙf"mff"""m))""""f"""b&-ff-mݝmffݖfff&"i--mfm֙ݝٝ-"ffmi&"ٙ""-"mf֙"""""ff-""ff""fff-mfmݙfifmݙff&"fb-""mݝٝ""&bffifҙݙ-)ݝ-""mmf)"" ҙ-bfff""ҙf&"ݝmݝݝf)f&bbҙ"mmݝfݝٝ""-"-"iiffibfٝݝ-"-"-fmff&""mٝ-bff""""""""ݝf"fbff֙֝iٙ"-"m"if&"bffݝf""-"fff""-f֙-ff&"""""-"""-i&"))")&fmmmfݝ"-bmbim&fٝݝf&""""mٙffbfbfffҙ-&"""")"""--"")"""iff&"&imiffݝ""bf""-"ݙ"f"""-ݙݝݝfbfffff&m-""")"mffff-"-""")"ifif"&fimfff-"ݝii&b""-ݝ)"""""-ݝmmffbffffbfݝ-""&"")"""ffmb&""""""""""bif"ݙfbifif֝---&))"")-"ݒ)-""""")"ݝmfݐffbffffffٙ-"""""""""ffff&b"""""""""bff&i&bifbfffݝ--m֙)""f-ݒ)-"""""")""ٝ"ffb&fffffٙ-"""""""fffm&"&ݝ""""&""""fff"bffif"ݝmffݝݙݝm"ff)""m-"-""-"""""""""")))mfffbffff& ݝ)"""")"bbf-"f"""ٙ)"""""""""""fffݙݙmfݙݝ-""ffff)-"""-"""""""""")ݝ`ffb&fi)""ҝ-""""")""bff&"")"&""""""""""ݝٝmfݙݝ"""ٙf"""-""""""""""ٙifffbfff""""-ҙ)""""ffmf"&ٝ"""""""""fmݝfݙݝ"ٝif""--"""""""if))"i֝ٝfffbfff""-"ݝ)""""b&fff&ٝ)""-""""fݝݝ"mݖݙ""""ݙݙ"-"-m&"""""ٙ""ٝfiff&"f""""")""""fff"&-ݙf""""")mffݝmmݙ"b")""""--""f&"f&""ݙٙ֝ff"ff""""""ݙ""")bbbfm&--"i֙"""")mݙimfmٙi&""-"""""""""ffff&""ݝٝfff&""ff)""""-ݝ")fbff""ifff-""ݙٝݝmffݝݒ-"""-"""""mff&""mݙiff"""ff&"""ݝݙ")&"i&"")iff-")"ݙݙݝmffm-"&""ҝ-"-""""""mmfffݙm֝iffff&""""""ݝݙ)"""ff""")fifݒ)"")-mm--""m"""""-ҝ")""""""mmffbiݙi֙fffffi&"&""f"ݙݙْ""i&"""""i")mff&-""ݝ"ݝ"""""""""-))"""ffffmffffi&"ff"f"""")ݙ""b&i&f""""""f)ٝmfff&"""ݝ"""""""")"-ifffiifmfiffiff&f&"""-ٝ)-&""ff&"&""""""ٝݙٙ)mff-""-""ҙ"""""-"ݙ"ifffiffimfiffiff&ff"""""ݙ--""bff&""""fݝ)mif&")-""""""""""ݙiffffiݙififffimiffb&") "-"b&bҒfff"""""fݒҝif))"""""""""""iffݙmfiff)iffff"")""--ҙ֙"mffݒ"""""b"))Ғimfff""")ݙ""""-)""ffff&"ݙfffff)"fff&"b)-)ٝm&ff""b&""""""f"ݙ)fff-""ҙٙ"""""ݙٙiii)""""ffff"")"f&b"")"-ٝm&fff&"""""""ffݙݒݝi""")ݝ-)"))i)ٝݝff"""f)ff"bfbf"""ҝ"-f"&bf"""""fffݙi)ݙݝif""""ݝ-")))"iff"f)"""fff&"""ҝ&""mbf""")"fffm-"ݝٙ""""")")""-"b)iff&&fmff&"&&f""""fٝm&bfmff-"""i-fff"-"""ݝ""""")"--""""")"")"")"fb)ifff&f)mffff"f&b&""bff"mffmf&""""ifmfff"")ٙ)ݝ"""--""")"""")""f)ififffffifff"&"b&"""bfif"&"&bffff--"""ififfff"""ٝݝ""""""""--""""")biffff)"iffi)&"b"""""mfifҖ"mffff"&""""bfffffmf)"))""ҝݙ"-"""""-")"""")if"f&f&)"ffi)""f&""-mf"""mfffffff&"f"bfffff֝""""""ݙݝ""-""""""")ݙ&ffff&f&"ffffifi&""b&"""""""f""m&&-f&f&f&f&"bffffff)"")"""""ݝٝ)---""ҝ")mmݙ&ff)iffb)""bffif"&ff""""""""fmff"f"fi&&""mfffff-""")"&"ݝݝ"""ݝ-"mfifff"""ffffiffbbf&""bf"""f"-"mff&"bbf"b""f&""im֙m&"")"bݝ Н-ݝٝmfiiff"""""fffm&bff""" ""f"bfmf`fbf""&"f&-)iݝi&""))""ݙ "ݝݝݝݝimfffii`fff""""""""fm&"bf"&""m)""f"""bfmffffff&""ibf)"if)ݝf"b""ifҝݝݙݝݙݝ)"ݝmffififfffb&"""""""mmf&"b"""""b"""""""ffffff&b&bf&fiffiٝff""""iݙiݝ-")""ݙiiffififff&"""""""""mmmf&"bf""""-"""""bffffffmffbf&ifiiiff&""""")ٙ-""""ҙiffݝifffffff&"""""""""&b&"ffb""bb"""-"fffffff&bfݙifffff&""""""-"""ififfݙffffffff&"bf"""""--""""&"b""b"""ݙbfffffff&ff֝i-mfffff""""bfݝm-ݒ""ݙffmffݝffffiff&ff""""""""-"""""bff"""֙-)ffff&ffff&ݙiݒmfffff"""""fmf"--ݒ"-ٙfffmfٙmffff)ff&b""b""""""b""b&&f&m""fb&mff"""bfff"ݝٝmfffb"""""f&)mf""--""ҝffffiٝmmffҖ"fb"""""f"""""-mfbfm-""ffffffmfffff&mf)b֝iffb""&"""ffffݝf""-"""""-"ݝfٙfݝҝ&""""""f""""bii--bff"-"ffffffmfm-&ff&bff)m"""b"ffifݙfm&"""""-"b)""ٙiݝݙ)""bf-""fbfff""bimm-"b""f"ffffffmmbf"ݝݝݙ)f&b&"""fifݝ)-"""""""&"-)"iݖifim)"bf)"""bf&""""&mf"""f"bmfffffmmf"-"i-fff&"""ifݝ"&-""""""f&")"ݙ)"b&b)"""iff"f)i&"b&""&f"mmffffffffmf"iٝm&"bf&""bfݝ&")-b--"fb""""iiiݙ)-ff)"""iff"")f""ff&"" f&mfffݝmf"ݝ"-m&"-"&""&)bfݝ"mf-"f"""""biii"")""i`fb")b"b&"""""fffm"fff&ݒ)mi""ff"""i"ݙݙ)""f-"f"""")bmif")iff""")b"f&""""mfffbݝm-"ff"ݙ)ݙmif)-&bf&""""""ٙ)"""-"bf"""ifݙ"-)"if&""f"fff&"""""mffbffݝm&"ff"ҙҒfݝ)fmi)b-"f&"""""Җ""""m&"-"ifii)""&-")""fbmfff&"""""mf֝ffi&"f"""f)-m)bݖ)"""""""-""---"ffٖf))"-f))fff"mb"&"b"""ffff֝mffff&-)"&""ݙ"fif)b""ݝ--""-m""""""""-"biffmfff&i""""֝i)ffff&mf&""b"""ffݝifm--b"""")mbfff""ݙ""ݙm""""-""-"""bmffffm""""""bݝ)""bfff-ff&"bf"""f f-f"""""""fmfff"ݝ--ݝݝ-""""---"b&fffffif)""ݝiff"""fffmf"f""""mfffmbf")""""""b"ff)"ݙ-""ݙ"""""""-bfffffmffif֖)bfmffff)""bfffmfb&&b"mfff""")""b&bm""ݙ))""ٙ)""""""""""""f&ffffiffi&""fiffff)"-fffffff&bf&b"fݝff""---"-""-))"ݝ"""""""-""-""ffffmٙifffbf"b"fmmiffi"" fff&"ff&ff&""ҙ fmfff-""ݙ)")"bݝ-""""-"""ff-""""bff&mݙffffffffim֝ffff&i"`ffffbfffff""ҝݙݙfi""fb"ݙݙ--"""-""""""""f&""ݙٝmfffffffmfmff `fff&"""""fbf"Йݙݖfݙݝ""""m"ff"ݖٝmmff""""--"b""""""ݝmfffmi "ffff"""))bf&ҙmݙ֝ݝݝ"b&"fmbffݝffmmݙ)""--"-"""""""ٝmfffmݝ"ݝ)fff)"""&f&"m ݙ""-mffffffݝff&bf"""&"b&"&ݙٙݖfifffmݖ""" ff"""))"ff ݝ""fffffffݝݙif)""bff)---"""ff""ݝݖfffff&bffffmf""ݝmf"""&""f fffݝi""&mfbffff" f)""ff&)" ""--"""""f&"ݙfffifffimfffffm"f)"""""ff "fffݝ֙)"f&""fffii)""f&f"""""""""ff""iݝmfffifiif&ifffif""f""""""ff&"fffݙ"ff""ffݝi)"-&&f"b"-m""""bf&""iݝmfffiiffffmffff""m""""""bf&ffffifݝݙ"fff""ffݝ-ffi-f""fmf"f"fb"""ifmfffiiffffmffff"m)b&""f"b"bfffiݝݝ)"ff&""ff ݙ""bfbݝffffff"&""iffmffmffffmffmfmf"""m)b&"bf&f&fffݝٝ""mf&"""mݙ`fffm"ifݖf)bff)))iffffffbmfffmf"""m""&"ff"f&fffݝ-""""f&""b""mff fff&"`ݝiii)iff&bff&ffff-i""""ff"""bff"ffffim-""""ff"m""ffffݝifmf-f`ffi"ffbffff"&""mff )bfffffffffmݙ-"""-"f"bfffff `ݙffffff&ifff&bff-ffffffffff""b-ffifffffffffiffݝ"""mf"bfffff`fffff""&""ffff -ffif&"f&"bfffffff&"""" fffffffffffmffݝ""""bf&bffff`ffff"""""bmmmffi fiݙf&"&b"""fifffff&ff"""ffif"iiiffffffݙ ""-""b"f`ffff`ffff"""""fmff`fffifݙ)f"b&""""fffffff ff""mff&if&iffffmfffݝ)"")ݝ)"b"ffff ff"&""""mmf`ffmff"""f)b""""" mff`ff&"""mfifff)ii`ff``fmm"")ݙ-b"fffff-""-"-mf`fffmf"b"f"b""""bifffff&&"&ݝiff`)" `f`-- title: countries -- author: potato imaginator -- desc: Press Left / Right to change 'd' Value . Press 'Z' to Reset -- script: lua d=8 dir_x={[0]=0,0,-1,1} dir_y={[0]=-1,1,0,0} col1={12,3,5,10} col2={14,1,7,8} col3={13,2,6,9} rev_col={[13]=1,[2]=2,[6]=3,[9]=4} function init() a={} for i=0,240//d-1 do a[i]={} for j=0,136//d-1 do a[i][j]= {x=d*i,y=d*j,c=math.random(1,4)} end end end init() cls() function upd() for i=0,240//d-1 do for j=0,136//d-1 do dir=math.random(0,3) a[i][j].x=a[i][j].x+dir_x[dir] a[i][j].y=a[i][j].y+dir_y[dir] end end end function OVR() b={} for i=0,239 do b[i]={} for j=0,135 do b[i][j]=0 end end for i=0,239 do for j=0,135 do for k=-1,1,2 do if pix((i+k)%240,j) ==pix(i,j) then b[i][j]=b[i][j]+1 end if pix(i,(j+k)%136) ==pix(i,j) then b[i][j]=b[i][j]+1 end end end end for i=0,239 do for j=0,135 do if b[i][j]==4 then pix(i,j,col1[rev_col[pix(i,j)]]) end end end for i=0,240//d-1 do for j=0,136//d-1 do pix (a[i][j].x,a[i][j].y, col2[a[i][j].c]) end end for i=-1,1 do for j=-1,1 do print('d = '..d,10+i,10+j,0) end end print('d = '..d,10,10,12) end function TIC() upd() for i=0,240//d-1 do for j=0,136//d-1 do pix (a[i][j].x,a[i][j].y, col3[a[i][j].c]) end end if btnp(2) then d=math.max(d-1,1) init() cls() elseif btnp(3) then d=d+1 init() cls() end if btnp(4) then init() cls() end end