Cache Cleaner

-- Cache Cleaner Script
-- Script by Aditya
-- Script v.1.2



cache = collectgarbage("count")
loading = 0

function clean()
 Screen:Clear()
 loading = loading + 1
 collectgarbage("collect")
 Screen:Print(""..cache.." KB Cache Found")
 Screen:Print(""..loading.."% Cleaning")
 if loading => 100 then
    Screen:Print(""..(cache-collectgarbage("count")).." KB Cache Cleaned!!")
 end
Screen:Update()
end

SetTimer(clean,300,100)