Dictionary App for AndyCode Archiver

--[[
Copyright 2014 by Andy a.k.a. viluon

Dictionary app for AndyCode archiver
WARNING: NOT DESIGNED FOR COMPUTERCRAFT

note:add those l00ps!
note:check letter 'printability'

17/1219
]]
d=io.open("storage/sdcard0/DWorkspace/ACOS Archiver/dev/asd","w")
d:write("")
d:close()
local function addCom(txt,tr)
out=io.open("storage/sdcard0/DWorkspace/ACOS Archiver/dev/asd","a")
out:write("r('"..txt.."','"..tr.."')\n")
out:close()
end
local function addExt(tr,txt)
out=io.open("storage/sdcard0/DWorkspace/ACOS Archiver/dev/asd","a")
out:write("r('"..txt.."','"..tr.."')\n")
out:close()
end
local tOrigin={
"while true do",
"false",
"true",
"local function ",
"local ",
"tostring%(",
"tonumber%(",
"function%(%)",
"function",
"elseif ",
"if ",
"else",
"return ",
"then",
"while ",
"for ",
"end", }
local tDictionaryA={
"@",
"#",
"$",
"*",
"&",
"/",
"~",
"|",
"!",
"•",
"√",
"π",
"÷",
"×",
"£",
"¢",
"€",
"°",
"_",
"™",
"®",
"©",
"¶",
"^", }
local tDictionaryB={
"á",
"à",
"â",
"ä",
"æ",
"ã",
"å",
"ā",
"ě",
"é",
"è",
"ê",
"ë",
"ę",
"ė",
"ē",
"ï",
"î",
"í",
"ī",
"ì",
"į",
"ò",
"ô",
"ö",
"ó",
"ō",
"ø",
"œ",
"õ",
"ů",
"ú",
"û",
"ü",
"ù",
"ū",
"ý",
"ÿ",



"ř",
"ť",
"ź",
"ž",
"ż",
"š",
"ß",
"ś",
"ď",
"ć",
"č",
"ç",
"ń",
"ň",
"ñ",
"`", }
local function main()
local b=0
local count=0
for a=1,#tDictionaryA do
for index=1,#tDictionaryB do
b=b+1
if b>#tOrigin then break end
count=count+1
addCom(tostring(tOrigin[b]),tostring(tDictionaryA[a])..tostring(tDictionaryB[index]))
end
end
b=0
for a=1,#tDictionaryA do
for index=1,#tDictionaryB do
b=b+1
if b>#tOrigin then break end
addExt(tostring(tOrigin[b]),tostring(tDictionaryA[a])..tostring(tDictionaryB[index]))
end
end
print(count)
end
--[[
"",
"",
"",
"",

]]
main()