CC Particle Generator obj Viewer with multiple generators

br=10
delay=0.15
rand=true
ptgOffset={}
ptgOffset[0]=1
ptgOffset[1]=2
ptgOffset[2]=3
ptgOffset[3]=4
args={...}

function loadFile(filename)
    fp=fs.open(filename,"r")
    lines={}
    i=1
    lines[i]=fp.readLine()
    while lines[i]~=nil do
        i=i+1
        lines[i]=fp.readLine()
    end
    return lines
end

function split (inputstr, sep)
        if sep == nil then
                sep = "%s"
        end
        local t={}
        for str in string.gmatch(inputstr, "([^"..sep.."]+)") do
                table.insert(t, str)
        end
        return t
end

function compileObj(lines)
    v = {}
    vt = {}
    vn = {}
    f = {}
    l = {}
    print(#lines)
    for i=5, #lines do
        if string.sub(lines[i],1,2)=="v " then
            table.insert(v,split(lines[i]))
        end
        if string.sub(lines[i],1,2)=="vt" then
            table.insert(vt,split(lines[i]))
        end
        if string.sub(lines[i],1,2)=="vn" then
            table.insert(vn,split(lines[i]))
        end
        if string.sub(lines[i],1,2)=="f " then
            table.insert(f,split(lines[i]))
        end
        if string.sub(lines[i],1,2)=="l " then
            table.insert(l,split(lines[i]))
        end
    end
end

compileObj(loadFile(args[1]))

function wrapPs(peripheralName)
    periTab = {}
    sideTab = {}
    if peripheralName == nil then
        print("Fehler")
    end
    local peripherals = peripheral.getNames()
    local i2 = 1
    for i = 1, #peripherals do
        if peripheral.getType(peripherals[i]) == peripheralName then
            periTab[i2] = peripheral.wrap(peripherals[i])
            sideTab[i2] = peripherals[i]
            i2 = i2 + 1
        end
    end
    if periTab ~= {} then
        return periTab, sideTab
    else
        return nil
    end

    function getPSide(peripheralName)
        if peripheralName == nil then
            print("Fehler")
        end
        local peripherals = peripheral.getNames()
        local i = 1
        while i < #peripherals and peripheral.getType(peripherals[i]) ~= peripheralName do
            i = i + 1
        end
        if peripheral.getType(peripherals[i]) == peripheralName then
            return peripherals[i]
        else
            return nil
        end
    end
end

pgs,pgss=wrapPs("particle_generator")

for i=1,#pgs do
    pgs[i].setGeneratorProperty("spawn_y",30)
    pgs[i].setGeneratorProperty("scale",0.5)
    pgs[i].setGeneratorProperty("motion_y",0)
    pgs[i].setGeneratorProperty("life",1000)
    pgs[i].setGeneratorProperty("collide",true)
    pgs[i].setGeneratorProperty("selected_particle",1)
    pgs[i].setGeneratorProperty("red",50)
    pgs[i].setGeneratorProperty("green",255)
    pgs[i].setGeneratorProperty("blue",200)
end

y=1
line=1
pgn=1
if rand==false then
    for i=1,#v do
        if pgn>#pgs then
        pgn=1
        end
        pgs[pgn].setGeneratorProperty("spawn_x",tonumber(v[i][2])*br)
        pgs[pgn].setGeneratorProperty("spawn_y",tonumber(v[i][3])*br+ptgOffset[tonumber(string.sub(pgss[pgn],20))])
        pgs[pgn].setGeneratorProperty("spawn_z",tonumber(v[i][4])*br)
        pgn=pgn+1
        sleep(delay)
    end
else
    while true do
    i=math.random(1,#v)
        if pgn>#pgs then
        pgn=1
        end
        pgs[pgn].setGeneratorProperty("spawn_x",tonumber(v[i][2])*br)
        pgs[pgn].setGeneratorProperty("spawn_y",tonumber(v[i][3])*br+ptgOffset[tonumber(string.sub(pgss[pgn],20))])
        pgs[pgn].setGeneratorProperty("spawn_z",tonumber(v[i][4])*br)
        pgn=pgn+1
        sleep(delay)
    end

end


for i=1,#pgs do
    pgs[i].setGeneratorProperty("motion_y",0)
    pgs[i].setGeneratorProperty("life",0)
end