Compressor

--[[
Pure Lua compressor made by Andy73 a.k.a. viluon

Copyright 2014
version 0.2 BETA (1st public release)

usage: compressor <file input path> <file output path>
]]


local args={...}
local file=fs.open(args[1],"r")
local r=string.gsub
print("FileSize original:"..fs.getSize(args[1]))
local t=file.readAll()
file:close()
--t is a string, will be later saved
--FIRST ROUND SYMBOL @ (12x)
t=r(t,"true","@ě")
t=r(t,"false","@š")
t=r(t,"setTextScale","@č")
t=r(t,"setBackgroundColor","@ř")
t=r(t,"os.loadAPI","@ž")
t=r(t,"color","@ý")
t=r(t,"setTextColor","@á")
t=r(t,"text","@í")
t=r(t,"Text","@é")
t=r(t,"write","@ú")
t=r(t,"elseif","@ů")
t=r(t,"local","@ˇ")
t=r(t,"function","@´")
--SECOND ROUND SYMBOL # (12x)
t=r(t,"then","#ě")
t=r(t,"end","#š")
t=r(t,"else","#č")
t=r(t,"tostring%(","#ř")
t=r(t,"tonumber%(","#ž")
t=r(t,"string","#ý")
t=r(t,"math","#á")
t=r(t,"=os.pullEventRaw%(","#í")
t=r(t,"=os.pullEvent%(","#é")
t=r(t,"= os.pullEventRaw%(","#ú")
t=r(t,"= os.pullEvent%(","#ů")
t=r(t,"window","#ˇ")
t=r(t,"process","#´")
--THIRD ROUND SYMBOL ! (12x)
t=r(t,"and","!ě")
t=r(t,"not","!š")
t=r(t,"print","!č")
t=r(t," == ","!ř")
t=r(t," ~= ","!ž")
t=r(t,"= fs.exists%(","!ý")
t=r(t,"=pcall%(","!á")
t=r(t,"= pcall%(","!í")
t=r(t,"pcall%(","!é")
t=r(t,"=fs.open%(","!ú")
t=r(t,"= fs.open%(","!ů")
t=r(t,"fs.exists%(","!ˇ")
t=r(t,"print%(","!´")
--FOURTH ROUND SYMBOL / (12x)
t=r(t,"=fs.isDir%(","/š")
t=r(t,"= fs.isDir%(","/č")
t=r(t,"fs.isDir%(","/ř")
t=r(t,"=fs.isReadOnly%(","/ž")
t=r(t,"= fs.isReadOnly%(","/ý")
t=r(t,"fs.isReadOnly%(","/á")
t=r(t,"=fs.getDrive%(","/í")
t=r(t,"= fs.getDrive%(","/é")
t=r(t,"fs.getDrive%(","/ú")
t=r(t,"=fs.getSize%(","/ů")
t=r(t,"= fs.getSize%(","/ˇ")
t=r(t,"fs.getSize%(","/´")

local target=fs.open(args[2],"w")
target.write(t)
target:close()

print("FileSize comprimed:"..fs.getSize(args[2]))
one=fs.getSize(args[1])/100
size=fs.getSize(args[2])
percent=100-size/one
print("comprimed by "..percent.."%")



--[[
t=r(t,"true","/š")
t=r(t,"true","/č")
t=r(t,"true","/ř")
t=r(t,"true","/ž")
t=r(t,"true","/ý")
t=r(t,"true","/á")
t=r(t,"true","/í")
t=r(t,"true","/é")
t=r(t,"true","/ú")
t=r(t,"true","/ů")
t=r(t,"true","/ˇ")
t=r(t,"true","/´")
]]