pyrex/chameleonic
1
1
Fork 1
Code Issues Pull Requests 2 Packages Projects Releases Wiki Activity

Remove rot13

Browse Source
This commit is contained in:
Pyrex 2023-01-01 16:11:20 -08:00
parent e6d0e306d5
commit fe72d6b92b
1 changed files with 6 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
chameleonic.p8
View File

@ -1734,15 +1734,6 @@ end
-->8 -->8
--hint system --hint system
function rot13(s)
local sord = pack(ord(s,1,#s))
for i,c in ipairs(sord) do
if (inorder{65, c, 77} or inorder{97, c, 109}) sord[i]=c+13
if (inorder{78, c, 90} or inorder{110, c, 122}) sord[i]=c-13
end
return chr(unpack(sord))
end
--hint file format: --hint file format:
-- each row is one hint. -- each row is one hint.
-- 4 or 5 columns -- 4 or 5 columns
@ -1765,21 +1756,19 @@ hints = {}
add(real_modules,hints) add(real_modules,hints)
function hints:init() function hints:init()
local h = gsv[[0`42`57`🅾️ yVPX` ■ local h = gsv[[0`42`57`🅾️ pULL` ■
0`42`73`❎, ❎ cHYY``69,67;55,67 0`42`73`❎, ❎ pULL``69,67;55,67
1`35`33`⁘` cHYY`62,35;41,35 1`35`33`⁘` pULL`62,35;41,35
1`79`82`cHYY ■``100,94;100,88 1`79`82`pULL ■``100,94;100,88
1`42`98`⁘`VTABER`66,99;52,99;52,75;28,75;28,120 1`42`98`⁘`IGNORE`66,99;52,99;52,75;28,75;28,120
2`75`65` `⁘`86,67;76,67;76,71 2`75`65` `⁘`86,67;76,67;76,71
2`104`73` ■`cHYY`81,75;86,75 2`104`73` ■`pULL`81,75;86,75
2`27`42`⁘``36,16;36,44;31,44 2`27`42`⁘``36,16;36,44;31,44
3`51`106`■``52,97;52,104 3`51`106`■``52,97;52,104
3`-1`-1```28,78;28,45 3`-1`-1```28,78;28,45
3`-1`-1```65,35;83,35 3`-1`-1```65,35;83,35
3`-1`-1```97,35;105,35]] 3`-1`-1```97,35;105,35]]
for rec in all(h) do for rec in all(h) do
rec[4]=rot13(rec[4])
if(rec[5]) rec[5]=rot13(rec[5])
if(rec[6]) rec[6]=gsv(rec[6],";",",") if(rec[6]) rec[6]=gsv(rec[6],";",",")
local lh = self[rec[1]] local lh = self[rec[1]]
if lh then if lh then