Perm gen Error

--[[



]]-- Config Below - Configuration ci-dessous - Konfiguration unter

disableUpdate = true


-- CODE PART --

function clear()
term.clear()
term.setCursorPos(1,1)
end

function fileReader(fileName)-- UNUSED
file = fs.open(fileName, "r")

fLines = { }

repeat

line = file.readLine()

if line == "STOP" then
stop = true
else
fLines[#fLines + 1] = line
end



until stop == true
end

function langauge() -- MSG STORAGE
if ln == "en" then
yes, no = "Yes", "No"
lmsg = "Load packs"
lmsg2 = "It's all."
lmsg3 = "I want to load others packs."
lmsg4 = "Enter file name"
lmsg5 = "File not found!"
lmsg6 = "Starting processing procedure"
lmsg7 = "Not compatible with the chosen version of CraftBukkit"
elseif ln == "es" then
yes, no = "Si", "No"
LMSG = "packs de carga"
lmsg2 = "No es todo."
lmsg3 = "quiero cargar otros paquetes."
lmsg4 = "Introduzca nombre de archivo"
lmsg5 = "Archivo no encontrado"
lmsg6 = "Inicio de procedimiento de procesamiento"
lmsg7 = "No es compatible con la version elegida de CraftBukkit"
elseif ln == "fr" then
yes, no = "Oui", "Non"
lmsg = "Chargez les packs"
lmsg2 = "J'ai fini de choisir les packs"
lmsg3 = "Je veux ajouter un autre pack a la selection"
lmsg4 = "Entrez le nom du fichier"
lmsg5 = "Fichier introuvable!"
lmsg6 = [[Demarrage de la procedure de traitement;
messages en anglais uniquement]]
lmsg7 = "Non compatible avec la version craftbukkit choisie"
elseif ln == "de" then
yes, no = "Ja", "Nicht"
lmsg = "Wahlen Sie alle Pakete"
lmsg2 = "Ich beendete Auswahl von Paketen"
lmsg3 = "Ich mochte einen anderen Satz hinzufugen"
lmsg4 = "Geben Sie den Dateinamen"
lmsg5 = "Datei nicht gefunden!"
lmsg6 = [[Startup Modalitäten der Verarbeitung,
Meldungen nur in englischer Sprache.]]
lmsg7 = "Nicht kompatibel mit der gewählten Version CraftBukkit"
end
end

function uniLang()
umsg =  [[Choose your langauge
Selectionez votre langue
Wahlen Sie eine Sprache]]
umsg2 = [[
OUTDATED DEPASSE UBERHOLT ANTICUADO
Please go to:
Veuillez aller sur:
Gehen Sie bitte auf:
Por favor vaya a:

[MASKED LINK]

and update this program. Thanks
et mettre a jour le programme. Merci
und aktualisieren das Programm. Danke.
y actualizar el programa. Gracias.
]]
end

clear()

function updatePart()
if disableUpdate == false then
page = http.get("http://pastebin.com/raw.php?i=[MASKED]")
upVerS = page.readLine()
page.close()
upVer = tonumber(upVerS)
if v < upVer then
outdatedScreen()
end
else
print "WARNING: Update function disabled!"
sleep(5)
clear()
end
end

function selectingPart()

clear()

-- Start screen
print[[




============================
[Insert name of the program here]
============================
]]

sleep(4)
clear()
menu1Stat = 0


---- LANG PART ----

repeat
pressedOk = false
clear()
print (umsg)
if menu1Stat == 0 then
print[[> English]]
print[[  Francais]]
print[[  Deutsch(BETA)]]
print[[  Espanol(BETA)]]
elseif menu1Stat == 1 then
print[[  English]]
print[[> Francais]]
print[[  Deutsch(BETA)]]
print[[  Espanol(BETA)]]
elseif menu1Stat == 2 then
print[[  English]]
print[[  Francais]]
print[[> Deutsch(BETA)]]
print[[  Espanol(BETA)]]
elseif menu1Stat == 3 then
print[[  English]]
print[[  Francais]]
print[[  Deutsch(BETA)]]
print[[> Espanol(BETA)]]
end
event, param1 = os.pullEvent("key")
if param1 == 208 then
menu1Stat = menu1Stat + 1
elseif param1 == 200 then
menu1Stat = menu1Stat - 1
elseif param1 == 28 then
pressedOk = true
end
if menu1Stat == 4 then menu1Stat = 0
elseif menu1Stat == -1 then menu1Stat = 3 end
until pressedOk == true
if menu1Stat == 0 then ln = "en"
elseif menu1Stat == 1 then ln = "fr"
elseif menu1Stat == 2 then ln = "de"
elseif menu1Stat == 2 then ln = "es" end
langauge()

function checkVer(file2Check)
tnFile = fs.open(file2Check, "r")
ug = tnFile.readLine()
ug = nil

end

---- END LANG PART ----



---- TXT PART ----

err = false
exi = false
repeat

clear()

print (lmsg4.." (*.txt):")

if err == true then print(lmsg5) end

inFile = read()

if fs.exists(inFile) == true then exi = true
else err = true end

until exi == true

txtFile = inFile

---- END TXT PART ----



---- PERMG PART ----

done = false
permgFiles = { }
clear()
repeat
clear()
done3 = false
repeat

print (lmsg)
print "=========="
print (lmsg4.." (*.permg)")
if err == true then print(lmsg5) end
if nbc == true then print(lmsg6) end
err, nbc = false, false
tmp = read()

if fs.exists(tmp) == true then done3 = true
else err = true end

until done3 == true

useless = true -- Just for Notepad++ ;)

if useless == true then -- Again Menu
pressedOk = false
menu1Stat = 0
repeat
pressedOk = false
clear()
print (lmsg)
print "=========="
if menu1Stat == 0 then
print ("> "..lmsg2)
print ("  "..lmsg3)
elseif menu1Stat == 1 then
print ("  "..lmsg2)
print ("> "..lmsg3)
end
event, param1 = os.pullEvent("key")
if param1 == 208 then
menu1Stat = menu1Stat + 1
elseif param1 == 200 then
menu1Stat = menu1Stat - 1
elseif param1 == 28 then
pressedOk = true
end
if menu1Stat == 2 then menu1Stat = 0
elseif menu1Stat == -1 then menu1Stat = 1 end
until pressedOk == true
end

if menu1Stat == 0 then done = true end

until done == true

---- END PERMG PART ----


end

function processingPart()

permgCmd = { }
permgPrm = { }


--------------------------

function readPermg(permgFile)

print("Reading "..permgFile.." ...")
x = os.clock()
sleep(1)
aFile = fs.open(permgFile, "r")
hRead = false

repeat

sleep(0.2)

line = aFile.readLine()
print(line)

if line == "STOP" then

--print "stop"
hRead = true

else

permgCmd[#permgCmd + 1] = line

line2 = aFile.readLine()
--print (line2)
permgPrm[#permgPrm + 1] = line2

end

until hRead == true or line == "STOP" or line2 == "STOP" or line == "stop" or line2 == "stop" or line == "" or line == nil or line2 == nil or line2 == ""

sleep(0.5)
y = os.clock()-x
print ("Done in "..y.." sec.")
sleep(4)
end

--------------------------

clear()

print (lmsg6)
-- permgFiles
-- txtFile
sleep(5)
print "Starting Packages Reading..."
sleep(4)


if #permgFiles > 0 then readPermg(permgFiles[1]) end -- 1
if #permgFiles > 1 then readPermg(permgFiles[2]) end -- 2
if #permgFiles > 2 then readPermg(permgFiles[3]) end -- 3
if #permgFiles > 3 then readPermg(permgFiles[4]) end -- 4
if #permgFiles > 4 then readPermg(permgFiles[5]) end -- 5
if #permgFiles > 5 then readPermg(permgFiles[6]) end -- 6
if #permgFiles > 6 then readPermg(permgFiles[7]) end -- 7
print "Packages Reading Done."
sleep(3)

--[[ LOG TEST - IGNORE IT
tFile = fs.open("OUT.txt", "w")
tFile.writeLine(permgCmd[55])
tFile.writeLine(permgPrm[55])
tFile.writeLine(permgCmd[56])
tFile.writeLine(permgPrm[56])
tFile.writeLine(permgCmd[57])
tFile.writeLine(permgPrm[57])
tFile.close()
]]--

print "Starting Server File Reading..."
sleep(3)
print ("Reading file "..txtFile.." ...")
sleep(1)

---

function uls()
ulss = txFile.readLine()
end

function us()
return(txFile.readLine())
end



---- TXT READ PART ----

txtNames, txtPlc = { }, { }
txtColors, txtColorsID = { }, { }

acGroup = 0

txFile = fs.open(txtFile, "r")
serverName = txFile.readLine()
uls()
finish = false
line = nil

cmdsG1, cmdsG2 = { }, { }
cmdsG3, cmdsG4 = { }, { }
cmdsG5, cmdsG6 = { }, { }
cmdsG7, cmdsG8 = { }, { }
cmdsG9 = { }








repeat ------------------------------------------------

sleep(0.2)
line = txFile.readLine()

if line == nil or line == "" or line == "stop" or line == "STOP" then
finish = true
print "stop"
else

if line == "START GROUP" then

acGroup = acGroup + 1

-- Group Info

txtNames[#txtNames + 1] = txFile.readLine()
txtPlc[#txtPlc + 1] = txFile.readLine()
txtColors[#txtColors + 1] = txFile.readLine()

-- Commands

fni2 = false
repeat
sleep(0.1)
tnpLine = txFile.readLine()
if tnpLine == "END GROUP" then fni2 = true
else

if acGroup == 1 then cmdsG1[#cmdsG1 + 1] = tnpLine
elseif acGroup == 2 then cmdsG2[#cmdsG2 + 1] = tnpLine
elseif acGroup == 3 then cmdsG3[#cmdsG3 + 1] = tnpLine
elseif acGroup == 4 then cmdsG4[#cmdsG4 + 1] = tnpLine
elseif acGroup == 5 then cmdsG5[#cmdsG5 + 1] = tnpLine
elseif acGroup == 6 then cmdsG6[#cmdsG6 + 1] = tnpLine
elseif acGroup == 7 then cmdsG7[#cmdsG7 + 1] = tnpLine
elseif acGroup == 8 then cmdsG8[#cmdsG8 + 1] = tnpLine
elseif acGroup == 9 then cmdsG9[#cmdsG9 + 1] = tnpLine end


end




until fni2 == true

end





end

until finish == true -------------------------------

txFile.close()

---- END TXT READ PART ----


---- TEMP LOG TEST ----

--[[
jFile = fs.open("LOGTEST.txt", "w")
jFile.write(txtNames[1])
jFile.write(txtNames[2])
jFile.write(txtPlc[1])
jFile.write(txtPlc[2])
jFile.write(txtColors[1])
jFile.write(txtColors[2])

jFile.write(cmdsG1[1])
jFile.write(cmdsG1[2])
jFile.write(cmdsG1[3])

jFile.write(cmdsG2[1])
jFile.write(cmdsG2[2])
]]--

---- END TEMP LOG TEST ----



end --processingPart

function convertingPart() --------------------------------------------------    WORK HERE
print "Starting Converting Part..."
sleep(3)
print "Converting colors..."

tmpLoop = 0

repeat -- Color converter

sleep(0,1)
tmpLoop = tmpLoop + 1

if txtColors[tmpLoop] == "Black" then txtColorsID[tmpLoop] = "0"
elseif txtColors[tmpLoop] == "Dark Blue" then txtColorsID[tmpLoop] = "1"
elseif txtColors[tmpLoop] == "Dark Green" then txtColorsID[tmpLoop] = "2"
elseif txtColors[tmpLoop] == "Dark Teal" then txtColorsID[tmpLoop] = "3"
elseif txtColors[tmpLoop] == "Dark Red" then txtColorsID[tmpLoop] = "4"
elseif txtColors[tmpLoop] == "Purple" then txtColorsID[tmpLoop] = "5"
elseif txtColors[tmpLoop] == "Gold" then txtColorsID[tmpLoop] = "6"
elseif txtColors[tmpLoop] == "Gray" then txtColorsID[tmpLoop] = "7"
elseif txtColors[tmpLoop] == "Dark Gray" then txtColorsID[tmpLoop] = "8"
elseif txtColors[tmpLoop] == "Blue" then txtColorsID[tmpLoop] = "9"
elseif txtColors[tmpLoop] == "Bright Green" then txtColorsID[tmpLoop] = "a"
elseif txtColors[tmpLoop] == "Teal" then txtColorsID[tmpLoop] = "b"
elseif txtColors[tmpLoop] == "Red" then txtColorsID[tmpLoop] = "c"
elseif txtColors[tmpLoop] == "Pink" then txtColorsID[tmpLoop] = "d"
elseif txtColors[tmpLoop] == "Yellow" then txtColorsID[tmpLoop] = "e"
elseif txtColors[tmpLoop] == "White" then txtColorsID[tmpLoop] = "f"

end


until tmpLoop == 10

print "Colors converted."
tmpLoop = nil
sleep(3)
print "Converting commands..."
sleep(1)

function uCmdConverter(command) -- COMMAND FINDER
print("544, "..command)
sleep(2)
ucmdLoop = 0
repeat
ucmdLoop = ucmdLoop + 1
sleep(0.1)
print(ucmdLoop)
sleep(0.5)

if permgCmd[ucmdLoop] == command then

print (command.." founded in ID "..ucmdLoop.. ".")
sleep(1)
toreturn = ucmdLoop
quitsc = true
end
print "557"
until ucmdLoop > #permgCmd + 1 or quitsc == true


end

function cmdConverter(groupID) -- GROUP CONVERTER (commands --> perms)
print "564"
if groupID == 1 then cdm = cmdsG1
elseif groupID == 2 then cdm = cmdsG2
elseif groupID == 3 then cdm = cmdsG3
elseif groupID == 4 then cdm = cmdsG4
elseif groupID == 5 then cdm = cmdsG5
elseif groupID == 6 then cdm = cmdsG6
elseif groupID == 7 then cdm = cmdsG7
elseif groupID == 8 then cdm = cmdsG8
elseif groupID == 9 then cdm = cmdsG9
end
print(groupID..", "..type(groupID))
cdmLoop = 0
sleep(0.2)
repeat
sleep(0.1)
cdmLoop = cdmLoop + 1
if cdm[cdmLoop] == nil then
sleep(0.1)
else
print("582")
print(cdmLoop)
sleep(2)
uCmdConverter(cdm[cdmLoop])
end
until cdmLoop > 75


end




tmpLoopp = 0

repeat
sleep(2)
tmpLoopp = tmpLoopp + 1

if txtNames[tmpLoopp] == nil then
print ("No group at ID "..tmpLoopp..".")
else
print ("Processing Group ID "..tmpLoopp.." ("..txtNames[1]..") ...")
sleep(2)
cmdConverter(tmpLoopp)
end

until tmpLoopp == 10



end




function writingPart()
[not writed yet]
end

function outdatedScreen()
while true do
print(umsg2)
sleep(999)
clear()
end
end



---- PROGRAM LAUNCHING ----

uniLang()
v = 100
updatePart()
selectingPart()
processingPart()
convertingPart()
writingPart()

---- END PROGRAM LAUNCHING ----