[TFM] Roleta

-- Roleta do Silvinho
-- Créditos:Brenower
-- Tables
p1={"Ro","Le","Ti","Nha"};
rod=0;
v=0;
vv=0;
time=os.time();
ret="";
-- Functions
function f5()
    ret="";
    for i,v in pairs(p1) do
        ret=ret.."<N>"..v.."  ";
    end
end

function girar()
    if vv == v then
        rod=0;
        gs=p1[v]:gsub("<N>","<VP>")
        p1[v]=gs;
        f5()
        ui.addTextArea(0,"<p align='center'><font size='14'><J>Roleta<br /><font size='12'><br />"..ret,NIL,300,150,200,100,1,1,0.7,true)
        ui.addTextArea(1,"<font size='12'><br /><VP><VP>"..p1[v],NIL,300,270,nil,nil,1,1,0.7,true)
    else
        vv=vv+1;
        p1[vv]="<R>"..p1[vv].."<N>";
        f5()
        ui.addTextArea(0,"<p align='center'><font size='14'><J>Roleta<br /><font size='12'><br />"..ret,NIL,300,150,200,100,1,1,0.7,true)
        ui.addTextArea(1,"<font size='12'><br /><R>"..p1[vv],NIL,300,270,nil,nil,1,1,0.7,true)
    end
end

function escolher()
    if rod == 0 then
        v=math.random(#p1)
        vv=0;
        rod=1;
        f5()
    end
    ui.addTextArea(0,"<p align='center'><font size='14'><J>Roleta<br /><font size='12'><br />"..ret.."",NIL,300,150,200,100,1,1,0.7,true)
end

-- Inicio do script
escolher()
ui.addTextArea(0,"<p align='center'><font size='14'><J>Roleta<br /><font size='12'><br />"..ret.."",NIL,300,150,200,100,1,1,0.7,true)
-- Loop
function eventLoop()
    if time < os.time()-1000 and rod == 1 then
        girar()
        time=os.time();
        gs=p1[vv]:gsub("<R>","<N>")
        p1[vv]=gs;
    end
end