Skip to content
Permalink
master
Switch branches/tags

Name already in use

A tag already exists with the provided branch name. Many Git commands accept both tag and branch names, so creating this branch may cause unexpected behavior. Are you sure you want to create this branch?

Redworks/rom/redworks/programs/RedWord

Go to file
 
 
Cannot retrieve contributors at this time
541 lines (492 sloc) 12.8 KB
Raw Blame
Open in GitHub Desktop
--Made by kijzeer
--Version 1.2
term.setCursorBlink(true)
local sNew = "| [Make new file] Open existing file |"
local sOpen = "| Make new file [Open existing file] |"
local sYes = "| [Yes] No |"
local sNo = "| Yes [No] |"
local sSave = "| [Save] Quit Save & Quit |"
local sQuit = "| Save [Quit] Save & Quit |"
local sSaveAndQuit = "| Save Quit [Save & Quit] |"
local iMenuXCor = 0
local sFile = ""
local sLine = ""
local tLines = {}
local iScrollX, iScrollY = 0,0
local x, y = 1,1
local w, h = term.getSize()
local function fMenuXCor()
iMenuXCor = (w/2)-21
end
local function fCheckDir()
if not fs.isDir("/files") then
fs.makeDir("/files")
end
if shell.dir() ~= "/files" then
shell.setDir("/files")
end
end
local function fExitDir()
term.clear()
shell.setDir("")
end
local function fOpenNew()
tLines = {}
table.insert(tLines, "")
end
local function fMenuNotExist()
term.clear()
term.setCursorBlink(false)
local sYesOrNo = sYes
term.setCursorPos(iMenuXCor,6)
write(" ___________________________________________")
term.setCursorPos(iMenuXCor,7)
write("| |")
term.setCursorPos(iMenuXCor,8)
write("| Error: File doesn't exist. |")
term.setCursorPos(iMenuXCor,9)
write("| Do you want to make it? |")
term.setCursorPos(iMenuXCor,10)
write("| |")
term.setCursorPos(iMenuXCor,11)
write(sYesOrNo)
term.setCursorPos(iMenuXCor,12)
write("|___________________________________________|")
repeat
local sEvent, param = os.pullEvent()
if sEvent == "key" then
param = tostring(param)
if param == "203" or param == "205" then
if sYesOrNo == sYes then
sYesOrNo = sNo
term.setCursorPos(iMenuXCor,11)
write(sYesOrNo)
elseif sYesOrNo == sNo then
sYesOrNo = sYes
term.setCursorPos(iMenuXCor,11)
write(sYesOrNo)
end
end
end
until param == "28"
if sYesOrNo == sYes then
bExit = false
fOpenNew()
elseif sYesOrNo == sNo then
bExit = true
end
end
local function fLoad()
sPath = shell.resolve(sFile)
if fs.exists( sPath ) then
local file = io.open( sPath , "r")
local sLine = file:read()
while sLine do
table.insert(tLines, sLine)
sLine = file:read()
end
file:close()
else
fMenuNotExist()
end
end
local function fMenuNew()
term.clear()
term.setCursorBlink(false)
term.setCursorPos(iMenuXCor,1)
write(" ___________________________________________")
term.setCursorPos(iMenuXCor,2)
write("| |")
term.setCursorPos(iMenuXCor,3)
write("| How do you want to call the file? |")
term.setCursorPos(iMenuXCor,4)
write("| |")
term.setCursorPos(iMenuXCor,5)
write("| |")
term.setCursorPos(iMenuXCor,6)
write("|___________________________________________|")
term.setCursorPos(iMenuXCor+6,5)
sFile = io.read()
sFileExt = string.sub(sFile, -3)
if sFileExt ~= ".txt" then
sFile = sFile..".txt"
end
sPath = shell.resolve(sFile)
if fs.exists(sPath) then
term.clear()
local sYesOrNo = sYes
term.setCursorPos(iMenuXCor,6)
write(" ___________________________________________")
term.setCursorPos(iMenuXCor,7)
write("| |")
term.setCursorPos(iMenuXCor,8)
write("| Error: File already exist. |")
term.setCursorPos(iMenuXCor,9)
write("| Do you want to edit it? |")
term.setCursorPos(iMenuXCor,10)
write("| |")
term.setCursorPos(iMenuXCor,11)
write(sYesOrNo)
term.setCursorPos(iMenuXCor,12)
write("|___________________________________________|")
repeat
local sEvent, param = os.pullEvent()
if sEvent == "key" then
param = tostring(param)
if param == "203" or param == "205" then
if sYesOrNo == sYes then
sYesOrNo = sNo
term.setCursorPos(iMenuXCor,11)
write(sYesOrNo)
elseif sYesOrNo == sNo then
sYesOrNo = sYes
term.setCursorPos(iMenuXCor,11)
write(sYesOrNo)
end
end
end
until param == "28"
if sYesOrNo == sYes then
bExit = false
fLoad()
elseif sYesOrNo == sNo then
bExit = true
end
else
fOpenNew()
end
term.setCursorBlink(true)
end
local function fMenuOpen()
term.clear()
term.setCursorBlink(false)
term.setCursorPos(1,8)
write("Files:")
term.setCursorPos(iMenuXCor,10)
shell.run("ls")
term.setCursorPos(iMenuXCor,1)
write(" ___________________________________________")
term.setCursorPos(iMenuXCor,2)
write("| |")
term.setCursorPos(iMenuXCor,3)
write("| Which file do you want to open? |")
term.setCursorPos(iMenuXCor,4)
write("| |")
term.setCursorPos(iMenuXCor,5)
write("| |")
term.setCursorPos(iMenuXCor,6)
write("|___________________________________________|")
term.setCursorPos(iMenuXCor+7,5)
term.setCursorBlink(true)
sFile = read()
sFileExt = string.sub(sFile, -3)
if sFileExt ~= ".txt" then
sFile = sFile..".txt"
end
sPath = shell.resolve(sFile)
local file = io.open( sPath , "r")
local sLine = file:read()
while sLine do
table.insert(tLines, sLine)
sLine = file:read()
end
file:close()
bExit = false
end
local function fMenuStart()
local sChoose = sNew
fMenuXCor()
term.clear()
term.setCursorBlink(false)
term.setCursorPos(iMenuXCor,6)
write(" ___________________________________________")
term.setCursorPos(iMenuXCor,7)
write("| |")
term.setCursorPos(iMenuXCor,8)
write("| Welcome to the RedworksOS Word Processor, |")
term.setCursorPos(iMenuXCor,9)
write("| what do you want to do? |")
term.setCursorPos(iMenuXCor,10)
write("| |")
term.setCursorPos(iMenuXCor,11)
write(sChoose)
term.setCursorPos(iMenuXCor,12)
write("| |")
term.setCursorPos(iMenuXCor,13)
write("| To access menu press Ctrl. |")
term.setCursorPos(iMenuXCor,14)
write("|___________________________________________|")
repeat
local sEvent, param = os.pullEvent()
if sEvent == "key" then
param = tostring(param)
if param == "203" or param == "205" then
if sChoose == sNew then
sChoose = sOpen
term.setCursorPos(iMenuXCor,11)
write(sChoose)
elseif sChoose == sOpen then
sChoose = sNew
term.setCursorPos(iMenuXCor,11)
write(sChoose)
end
end
end
until param == "28"
if sChoose == sOpen then
term.clear()
fMenuOpen()
elseif sChoose == sNew then
term.clear()
fMenuNew()
end
term.setCursorBlink(true)
end
local function fMenuExit()
term.clear()
term.setCursorBlink(false)
local sSaveOrQuit = sSave
term.setCursorPos(iMenuXCor,6)
write(" ___________________________________________")
term.setCursorPos(iMenuXCor,7)
write("| |")
term.setCursorPos(iMenuXCor,8)
write("| What do you want to do? |")
term.setCursorPos(iMenuXCor,9)
write("| |")
term.setCursorPos(iMenuXCor,10)
write(sSaveOrQuit)
term.setCursorPos(iMenuXCor,11)
write("|___________________________________________|")
repeat
local sEvent, param = os.pullEvent()
if sEvent == "key" then
if param == 203 then
if sSaveOrQuit == sSave then
sSaveOrQuit = sSaveAndQuit
term.setCursorPos(iMenuXCor,10)
write(sSaveOrQuit)
elseif sSaveOrQuit == sQuit then
sSaveOrQuit = sSave
term.setCursorPos(iMenuXCor,10)
write(sSaveOrQuit)
elseif sSaveOrQuit == sSaveAndQuit then
sSaveOrQuit = sQuit
term.setCursorPos(iMenuXCor,10)
write(sSaveOrQuit)
end
elseif param == 205 then
if sSaveOrQuit == sSave then
sSaveOrQuit = sQuit
term.setCursorPos(iMenuXCor,10)
write(sSaveOrQuit)
elseif sSaveOrQuit == sQuit then
sSaveOrQuit = sSaveAndQuit
term.setCursorPos(iMenuXCor,10)
write(sSaveOrQuit)
elseif sSaveOrQuit == sSaveAndQuit then
sSaveOrQuit = sSave
term.setCursorPos(iMenuXCor,10)
write(sSaveOrQuit)
elseif param == 29 or param == 157 then
end
end
end
until param == 28 or param == 29 or param == 157
while true do
if param == 29 or param == 157 then
break
elseif sSaveOrQuit == sSave then
fSave()
term.setCursorBlink(true)
bExit = false
break
elseif sSaveOrQuit == sQuit then
bExit = true
break
elseif sSaveOrQuit == sSaveAndQuit then
bExit = true
fSave()
break
end
end
end
function fSave()
local file = io.open( sPath, "w" )
if file then
for n, sLine in ipairs( tLines ) do
file:write( sLine .. "\n" )
end
file:close()
end
end
local function fPrintText()
for y=1,h do
term.setCursorPos( 1 - iScrollX, y )
term.clearLine()
local sLine = tLines[ y + iScrollY ]
if sLine ~= nil then
write( sLine )
end
end
term.setCursorPos( x - iScrollX, y - iScrollY )
end
local function fPrintLine()
local sLine = tLines[y]
term.setCursorPos( 1 - iScrollX, y - iScrollY )
term.clearLine()
term.write( sLine )
term.setCursorPos( x - iScrollX, y - iScrollY )
end
local function fSetCursor(x, y)
local screenX = x - iScrollX
local screenY = y - iScrollY
if screenX < 1 then
iScrollX = x - 1
screenX = 1
fPrintText()
elseif screenX > w then
iScrollX = x - w
screenX = w
fPrintText()
end
if screenY < 1 then
iScrollY = y - 1
screenY = 1
fPrintText()
elseif screenY > h then
iScrollY = y - (h)
screenY = h
fPrintText()
end
term.setCursorPos( screenX, screenY )
end
fCheckDir()
fMenuStart()
term.clear()
term.setCursorPos(x,y)
term.setCursorBlink(true)
fPrintText()
while true do
if not bExit then
local sEvent, param = os.pullEvent()
if sEvent == "key" then
if param == 200 then
if y > 1 then
y = y - 1
x = math.min( x, string.len( tLines[y] ) + 1 )
fSetCursor( x, y )
end
elseif param == 208 then
if y < #tLines then
y = y + 1
x = math.min( x, string.len( tLines[y] ) + 1 )
fSetCursor( x, y )
end
elseif param == 203 then
if x > 1 then
x = x - 1
fSetCursor( x, y )
end
elseif param == 205 then
if x < string.len( tLines[y] ) + 1 then
x = x + 1
fSetCursor( x, y )
end
elseif param == 14 then
if x > 1 then
local sLine = tLines[y]
tLines[y] = string.sub(sLine,1,x-2) .. string.sub(sLine,x)
fPrintLine()
x = x - 1
fSetCursor( x, y )
elseif y > 1 then
local sPrevLen = string.len( tLines[y-1] )
tLines[y-1] = tLines[y-1] .. tLines[y]
table.remove( tLines, y )
fPrintText()
x = sPrevLen + 1
y = y - 1
fSetCursor( x, y )
end
elseif param == 28 then
local sLine = tLines[y]
tLines[y] = string.sub(sLine,1,x-1)
table.insert( tLines, y+1, string.sub(sLine,x) )
fPrintText()
x = 1
y = y + 1
fSetCursor( x, y )
elseif param == 29 or param == 157 then
fMenuExit()
if bExit then
break
else
fPrintText()
end
elseif param == 199 then
y = 1
x = string.len( tLines[y] ) + 1
fSetCursor(x, y)
elseif param == 207 then
y = # tLines
x = string.len( tLines[y] ) + 1
fSetCursor(x, y)
elseif param == 201 then
if y > h then
y = y - h
else
y = 1
end
if y < 1 then
y = 1
end
x = string.len( tLines[y] ) + 1
fSetCursor(x, y)
elseif param == 209 then
if # tLines > h then
y = y + h
else
y = #tLines
end
if y > # tLines then
y = #tLines
end
x = string.len( tLines[y] ) + 1
fSetCursor(x, y)
elseif param == 15 then
local sLine = tLines[y]
tLines[y] = string.sub(sLine,1,x-1) .. " " .. string.sub(sLine,x)
fPrintLine()
x = x + 4
fSetCursor(x, y)
elseif param == 211 then
if x < string.len(tLines[y]) + 1 then
local sLine = tLines[y]
tLines[y] = string.sub(sLine,1,x-1) .. string.sub(sLine,x+1)
fPrintLine()
fSetCursor( x, y )
elseif x == string.len(tLines[y]) + 1 then
if y < #tLines then
tLines[y] = tLines[y] .. tLines[y+1]
table.remove( tLines, y + 1 )
fPrintText()
fSetCursor( x, y )
end
end
end
elseif sEvent == "char" then
local sLine = tLines[y]
tLines[y] = string.sub(sLine,1,x-1) .. param .. string.sub(sLine,x)
fPrintLine()
x = x + string.len( param )
fSetCursor(x, y)
end
else
break
end
end
fExitDir()
term.clear()
term.setCursorBlink(false)
term.setCursorPos(1,1)