Texto movil

--Script hecho por Miiiclaroo
local text = "Saint & tora"     --texto que aparecerá
local x = 200                   --ubicación en x (de 0 a 800)
local y = 100                   --ubicación en y (de 0 a 400)
local width = 200               --largo del cuadro de texto
local height =30                --alto del cuadro de texto
local letter_size = 20          --tamaño de letra

--no modificar nada de aquí en adelante

local actual_lenght
local text_lenght
local right = true
local left = false

function define_text(string)
text_lenght = string.len(string)
actual_lenght = text_lenght
end

function write_right()
ui.addTextArea(1,"<font size='"..letter_size.."' color='#00000'><p align='right'>"..text:sub(1,actual_lenght),nil,x,y,width,height,0,0,true)
actual_lenght = actual_lenght -1
end

function write_left()
if actual_lenght < 1 then actual_lenght = 1 end
ui.addTextArea(1,"<font size='"..letter_size.."' color='#00000'><p align='left'>"..text:sub(1,actual_lenght),nil,200,100,width,height,0,0,0,true)
actual_lenght = actual_lenght +1
end

function eventLoop()
if actual_lenght > -1 and right then
write_right()
elseif actual_lenght == -1 then
right = false
left = true
end
if left then
    if actual_lenght >= text_lenght then
        left = false
        right = true
    else
        write_left()
    end
end
end

define_text(text)