53 replies to this topic

[Expenox]

Here I will post all the programs I will make.

Thank you MechaTallon for helping me.
Thank you Dragon53535 for being epic.

Hateful comments will be ignored.

I've just came back from a long summer of laying back, and sadly losing some Lua knowledge, but I'm almost sure i'll get it all back!

If you would like up-to-date programs go to my GitHub! (I will always update the pastebin links, but it won't be instant!)

Also, if i've made a mistake with one of the links or something, please let me know! I want this to be a very clean forum and also very nice looking/working. Give me feedback on how my programs are, and always if you want to give me ideas! I'm not the greatest coder, but I enjoy what I do!
GitHub (Live Updates)


Expenox's Lock Code

Spoiler

os.pullEvent = os.pullEventRaw
local side = "back"
local password = "expenox"
while true do
term.write("Enter Password: ")
local input = read("*")
input = string.lower(input)
if input == password then
print("Correct Password!")
redstone.setOutput(side, true)
sleep(3)
redstone.setOutput(side, false)
os.reboot()
else
print("Wrong password!")
sleep(2)
os.reboot()
end
end

>> Download <<
(pastebin get Td4KRY4e)
Pastebin

ExpeCraft
(Work in progress + Recoded)

Spoiler

Advanced Computer

Spoiler

os.pullEvent = os.pullEventRaw
local login = {"expenox", "expenox"}
term.clear()
term.setCursorPos(1,1)
term.setTextColor(colors.magenta)
print("+=================================================+")
print("+					 ExpeOS					  +")
print("+												 +")
term.setTextColor(colors.yellow)
print("+												 +")
print("+				   Version 1.0				   +")
print("+=================================================+")
term.setTextColor(colors.cyan)
term.setCursorPos(1,8)
term.write("User: ")
term.setCursorPos(1,10)
term.write("Password: ")
term.setCursorPos(7,8)
term.setTextColor(colors.lime)
local input = read()
newinput = string.lower(input)
if newinput ~= login[1] then
  term.setCursorPos(20,10)
  term.setTextColor(colors.red)
  print("Invalid User!")
  sleep(2)
  os.reboot()
elseif newinput == login[1] then
	term.setCursorPos(11,10)
	local input = read("*")
	input = string.lower(input)
	if input == login[2] then
	  term.setCursorPos(20,10)
	  textutils.slowPrint("Welcome, Expenox!",10)
	  sleep(1)
	  term.clear()
	  term.setCursorPos(1,1)
	  term.setTextColor(colors.magenta)
	  print("ExpeOS v1.0")
else
	  term.setCursorPos(20,10)
	  term.setTextColor(colors.red)
	  print("Invalid Password!")
	  sleep(2)
	  os.reboot()
  end
end

Normal Computer

Spoiler

os.pullEvent = os.pullEventRaw
local login = {"User", "Pass"}
term.clear()
term.setCursorPos(1,1)
print("+=================================================+")
print("+				  ExpeOS (Lite)				  +")
print("+												 +")
print("+												 +")
print("+				   Version 1.0				   +")
print("+=================================================+")
term.setCursorPos(1,8)
term.write("User: ")
term.setCursorPos(1,10)
term.write("Password: ")
term.setCursorPos(7,8)
local input = read()
newinput = string.lower(input)
if newinput ~= login[1] then
  term.setCursorPos(20,10)
  print("Invalid User!")
  sleep(2)
  os.reboot()
elseif newinput == login[1] then
	term.setCursorPos(11,10)
	local input = read("*")
	input = string.lower(input)
	if input == login[2] then
	  term.setCursorPos(20,10)
	  textutils.slowPrint("Welcome, Expenox!",10)
	  sleep(1)
	  term.clear()
	  term.setCursorPos(1,1)
	  print("ExpeOS v1.0")
else
	  term.setCursorPos(20,10)
	  print("Invalid Password!")
	  sleep(2)
	  os.reboot()
  end
end

>> Download <<
(pastebin get C4pytvNS startup) - Advanced Computer
(pastebin get w0MS3v12 startup) - Normal Computer
Pastebin (Advanced Computer)
Pastebin (Normal Computer)

Expenox's Quarry Management (With help of Dragon53535)
(Work In Progress)

Spoiler

Code

Spoiler

os.pullEvent = os.pullEventRaw
local option = {[[|#################################################|
|				 Quarry Management			   |
|					Status: ]],[[				  |
|												 |]],
[[|												 |
|#################################################|]],
"|						On					   |",
"|						Off					  |",
"|					   >On					   |",
"|					   >Off					  |"}
local function clear(arg)
if arg == 1 then
  term.setCursorPos(1,6)
  term.clearLine()
  term.setCursorPos(1,5)
  term.clearLine()
  print(option[6])
  write(option[5])
elseif arg == 2 then
  term.setCursorPos(1,6)
  term.clearLine()
  term.setCursorPos(1,5)
  term.clearLine()
  print(option[4])
  write(option[7])
end
end
function backon()
if fs.exists("Settings") == true then
  main1()
elseif fs.exists("Settings") == false then
  firsttimesetup()
end
end
function firsttimesetup()
fs.makeDir("Settings")
local check = fs.open("Settings/Status","w")
check.writeLine("Off")
check.close()
main1()
end
function main2(new)
local x = 1
term.clear()
term.setCursorPos(1,1)
write(option[1]..new)
print(option[2])
print(option[6])
print(option[5])
print(option[3])
while true do
  local event, param1 = os.pullEvent("key")
  if param1 == 200 then
   clear(1)
   x = 1
  elseif param1 == 208 then
   clear(2)
   x = 2
  elseif param1 == 28 then
   if x == 2 then
	local file = fs.open("Settings/Status","w")
	file.writeLine("Off")
	file.close()
	main1()
   elseif x == 1 then
	local file = fs.open("Settings/Status","w")
	file.writeLine("On")
	file.close()
	main1()
   end
  end
end
end
function main1()
local file = fs.open("Settings/Status","r")
local fileData = {}
local line = file.readLine()
repeat
  table.insert(fileData,line)
  line = file.readLine()
until line == nil
file.close()
if fileData[1] == "On" then
  rs.setOutput("back",false)
  main2("On ")
elseif fileData[1] == "Off" then
  rs.setOutput("back",true)
  main2("Off")
end
end
backon()

Pictures

Spoiler

On
Off

>> Download <<
(pastebin get pJhTrRZ1)
Pastebin

Edited by Expenox, 10 November 2013 - 11:46 PM.

[tom2018]

change the read to read("*") and it will star out the entered characters
also ad os.pullEvent = os.pullEventRaw to prevent ctrl + t

[casr144]

Cool. Basic but cool.

[casr144]

There is the problem of people terminating the program, though. You can prevent this by typing: "os.pullEvent = os.pullEventRaw" at the start of the program.

[Expenox]

Thanks guys. />

[PixelToast]

i made a text box that might help :3

Spoiler

USAGE:
textbox("label goes here")

function textbox(bartext)
term.setCursorBlink( true )
	local sLine = ""
local nPos = 0
local oW, oH = term.getSize()
local w,h=oW-4,math.floor(oH/2)
local sx,sy=4,math.floor(oH/2)
local function redraw()
  local nScroll = 0
  if sx + nPos >= w then
   nScroll = (sx + nPos) - w
  end
  term.setCursorPos(3,math.floor(oH/2)-1)
  write(string.rep("-",oW-5))
  term.setCursorPos(3,math.floor(oH/2)+1)
  write(string.rep("-",oW-5))
  term.setCursorPos(math.floor(oW/2)-math.floor(#bartext/2),math.floor(oH/2)-1)
  write(bartext)
  term.setCursorPos( sx, sy )
  term.write(term.write( string.rep(" ", w - sx + 1) ))
  term.setCursorPos( sx, sy )
  term.write(term.write( string.sub( sLine, nScroll + 1 ) ))
  term.setCursorPos(3,math.floor(oH/2))
  write("|")
  term.setCursorPos(oW-3,math.floor(oH/2))
  write("|")
  term.setCursorPos( sx + nPos - nScroll, sy )
end
redraw()
while true do
  local sEvent, param = os.pullEvent()
  if sEvent == "char" then
   sLine = string.sub( sLine, 1, nPos ) .. param .. string.sub( sLine, nPos + 1 )
   nPos = nPos + 1
   redraw()
  
  elseif sEvent == "key" then
	  if param == 28 then
	-- Enter
	break
  
   elseif param == 203 then
	-- Left
	if nPos > 0 then
	 nPos = nPos - 1
	 redraw()
	end
  
   elseif param == 205 then
	-- Right  
	if nPos < string.len(sLine) then
	 nPos = nPos + 1
	 redraw()
	end
  
   elseif param == 200 or param == 208 then
				-- Up or down
	if _tHistory then
	 if param == 200 then
	  -- Up
	  if nHistoryPos == nil then
	   if #_tHistory > 0 then
		nHistoryPos = #_tHistory
	   end
	  elseif nHistoryPos > 1 then
	   nHistoryPos = nHistoryPos - 1
	  end
	 else
	  -- Down
	  if nHistoryPos == #_tHistory then
	   nHistoryPos = nil
	  elseif nHistoryPos ~= nil then
	   nHistoryPos = nHistoryPos + 1
	  end	
	 end
	
	 if nHistoryPos then
					 sLine = _tHistory[nHistoryPos]
					 nPos = string.len( sLine )
					else
	  sLine = ""
	  nPos = 0
	 end
	 redraw()
				end
   elseif param == 14 then
	-- Backspace
	if nPos > 0 then
	 sLine = string.sub( sLine, 1, nPos - 1 ) .. string.sub( sLine, nPos + 1 )
	 nPos = nPos - 1	
	 redraw()
	end
   elseif param == 29 then
	term.setCursorBlink( false )
	return nil
   end
  end
end
term.setCursorBlink( false )
term.setCursorPos( w + 1, sy )
return sLine
end

it also works for turtles and monitors :3

[Skullblade]

Not to be mean or anything but there are already WAY too many lock programs on the tutorial already and none of them are really all that different so as to saving space on the forum please (this goes to every1) don't post programs that are already here. Especially door locks...i mean there are only so many ways you can make a wheel and this isn't something new.

[PixelToast]

Skullblade, on 29 October 2012 - 01:19 AM, said:

Not to be mean or anything but there are already WAY too many lock programs on the tutorial already and none of them are really all that different so as to saving space on the forum please (this goes to every1) don't post programs that are already here. Especially door locks...i mean there are only so many ways you can make a wheel and this isn't something new.

there is a near infinite space on the forums, just let these types of posts get buried due to lack of bumps

[Skullblade]

What i meant by 'space' was more just GUI space and not having tons of the same program clutter the forums

[Expenox]

First off before you start complaining read the title "expenox's programs" there will be more then this.
And I'm quite happy with my lock code I can look back on it and be happy I made it,
And didn't copy and paste it.

[Expenox]

PixelToast, on 29 October 2012 - 01:13 AM, said:

i made a text box that might help :3

Spoiler

USAGE:
textbox("label goes here")

function textbox(bartext)
term.setCursorBlink( true )
	local sLine = ""
local nPos = 0
local oW, oH = term.getSize()
local w,h=oW-4,math.floor(oH/2)
local sx,sy=4,math.floor(oH/2)
local function redraw()
  local nScroll = 0
  if sx + nPos >= w then
   nScroll = (sx + nPos) - w
  end
  term.setCursorPos(3,math.floor(oH/2)-1)
  write(string.rep("-",oW-5))
  term.setCursorPos(3,math.floor(oH/2)+1)
  write(string.rep("-",oW-5))
  term.setCursorPos(math.floor(oW/2)-math.floor(#bartext/2),math.floor(oH/2)-1)
  write(bartext)
  term.setCursorPos( sx, sy )
  term.write(term.write( string.rep(" ", w - sx + 1) ))
  term.setCursorPos( sx, sy )
  term.write(term.write( string.sub( sLine, nScroll + 1 ) ))
  term.setCursorPos(3,math.floor(oH/2))
  write("|")
  term.setCursorPos(oW-3,math.floor(oH/2))
  write("|")
  term.setCursorPos( sx + nPos - nScroll, sy )
end
redraw()
while true do
  local sEvent, param = os.pullEvent()
  if sEvent == "char" then
   sLine = string.sub( sLine, 1, nPos ) .. param .. string.sub( sLine, nPos + 1 )
   nPos = nPos + 1
   redraw()

  elseif sEvent == "key" then
	  if param == 28 then
	-- Enter
	break

   elseif param == 203 then
	-- Left
	if nPos > 0 then
	 nPos = nPos - 1
	 redraw()
	end

   elseif param == 205 then
	-- Right  
	if nPos < string.len(sLine) then
	 nPos = nPos + 1
	 redraw()
	end

   elseif param == 200 or param == 208 then
				-- Up or down
	if _tHistory then
	 if param == 200 then
	  -- Up
	  if nHistoryPos == nil then
	   if #_tHistory > 0 then
		nHistoryPos = #_tHistory
	   end
	  elseif nHistoryPos > 1 then
	   nHistoryPos = nHistoryPos - 1
	  end
	 else
	  -- Down
	  if nHistoryPos == #_tHistory then
	   nHistoryPos = nil
	  elseif nHistoryPos ~= nil then
	   nHistoryPos = nHistoryPos + 1
	  end	
	 end
	
	 if nHistoryPos then
					 sLine = _tHistory[nHistoryPos]
					 nPos = string.len( sLine )
					else
	  sLine = ""
	  nPos = 0
	 end
	 redraw()
				end
   elseif param == 14 then
	-- Backspace
	if nPos > 0 then
	 sLine = string.sub( sLine, 1, nPos - 1 ) .. string.sub( sLine, nPos + 1 )
	 nPos = nPos - 1	
	 redraw()
	end
   elseif param == 29 then
	term.setCursorBlink( false )
	return nil
   end
  end
end
term.setCursorBlink( false )
term.setCursorPos( w + 1, sy )
return sLine
end

it also works for turtles and monitors :3

Awesome!

[Heracles421]

Skullblade, on 29 October 2012 - 01:19 AM, said:

Not to be mean or anything but there are already WAY too many lock programs on the tutorial already and none of them are really all that different so as to saving space on the forum please (this goes to every1) don't post programs that are already here. Especially door locks...i mean there are only so many ways you can make a wheel and this isn't something new.

Ok, this might be yet another door lock, but tell me, you felt happy with the first program you ever made? Well, this guy does, just let it be

[Expenox]

Sorry for no posts in a while! I've been trying to make my house computer controlled! :3
Will post some more programs soon!

[Expenox]

Updated!

[Expenox]

MechaTallon, on 16 December 2012 - 10:35 AM, said:

Can you please include the pastebin code in the post itself so we can just download it to our computers without clicking a link? Thanks! And good luck to your programs.

I want some color to the login system!

Ah, yes. Sorry for not doing that, and I will get working on the color for the login system, it was in my plans for it, but didnt have the time. Now I do!
+ Can now download from your computer in-game.

[Expenox]

MechaTallon, on 16 December 2012 - 11:07 AM, said:

xD Awesome!

also, in the login system, can you make it store the password information in a file?
And encode it in byte code?

string.byte - Encode
string.char - Decode

:3 thanks

I have never done that before, but sure I'll try

[Expenox]

MechaTallon, on 16 December 2012 - 11:27 AM, said:

awesome!
^-^ It'll be awesome looking if it has colors and encoding!

Lol i've been working on the file part for the last 20 minutes and haven't tested yet hope it works. =~=

[Expenox]

MechaTallon, on 16 December 2012 - 11:46 AM, said:

:3 the file part shouldn't be VERY complex.

If it doesn't work I'll give you some code.

Ran into some problems..

Spoiler

term.clear()
local sFile, sPass = "pass.txt", ""
if fs.exist(sFile) then
    local hRead = assert(fs.open(sFile, "r"))
    hRead.close()
end    
term.setCursorPos(1,1)
print("Welcome to Expocraft v1.0 by Expenox")
if sPass == "" then
    print("Set your password: ")
    local sInput = read()
    if sInput ~= "" then
        print("Your password is " .. sInput .. "!")
        sPass = sInput
        hWrite = fs.open(sFile, "w")
        hWrite.write(sPass)
        hWrite.close()
     end
  end
end
sleep(1)
term.write("Login: ")
local input = read("*")
input = string.lower(input)
if input == sPass then
 print("Correct password!")
 textutils.slowPrint("Getting account info...")
 sleep(2)
 term.clear()
 term.setCursorPos(1,1)
 print("ExpoCraft v1.0")
else
 textutils.slowPrint("Wrong password!")
 sleep(2)
 os.reboot()
end

[Expenox]

MechaTallon, on 16 December 2012 - 12:23 PM, said:

Fixed, at least I think so.

term.clear()
term.setCursorPos(1,1)
local sFile = "pass.txt"
local sPass = ""
if fs.exists(sFile) then
ak = fs.open(sFile, "r")
sPass = ak:readAll()
ak:close()
else
print("Set your password: ")
	local sInput = read()
	if sInput ~= "" then
		print("Your password is " .. sInput .. "!")
		sPass = sInput
		hWrite = io.open(sFile, "w")
		hWrite.write(sPass)
		hWrite.close()
	 end
end
term.clear()
term.setCursorPos(1,1)
print("Welcome to Expocraft v1.0 by Expenox")
sleep(1)
term.write("Login: ")
local input = read("*")
input = string.lower(input)
if input == sPass then
print("Correct password!")
textutils.slowPrint("Getting account info...")
sleep(2)
term.clear()
term.setCursorPos(1,1)
print("ExpoCraft v1.0")
else
textutils.slowPrint("Wrong password!")
sleep(2)
os.reboot()
end

After set password
io:68; index expected, got nil
So basicly after that it just saves the pass as it is "" and asks for the pass next time.

[Expenox]

Well I tried. =~= Not that advanced yet, so I can see why mine didn't work.
Sorry about that, but I will add those colors soon.
Working on my turtle Lumberjack right now.
And i'm stuck. I got to turtle.compare then just forgot what I was going to do.