schrolock, on 27 June 2012 - 09:53 PM, said:

function start()
 print("password required to open")
 a = read()
 if a == "password" then
  print ("Access Granted") --Minor spelling error
  rs.setOutput("right", true) --Corrected code, unfinished string, nil function call: rs.setOutput("right", true). I did not even notice this until posting it in the forum, as the rest of the program became green. right.true is not a function, you put a period instead of a comma. Lastly, forgot to close the string, "right", by adding a quotation mark at the end.
 else
  print ("Access Denied") -- Capitalized words
  rs.setOutput("left", true)
  sleep(3)
  os.shutdown
 end --Forgot to close 'if' statement, or function. In short, you left out one 'end'.
end

start()

Vandie, on 27 March 2012 - 07:51 PM, said:

local note = "whatever note you want to play" --ex. E F G A B C D including sharps and flats.
while true do --Loop runs forever.
id, message = os.pullEvent("rednet_message") --os.pullEvent "pulls" every event that happens during program execution; with the filter "rednet_message", only rednet message events will be pulled.
 if message == note then --Checks to see if the broadcasted note is the note this computer is responsible for.
  rs.setOutput("back", true) --Turns on redstone.
  sleep(0.1) --Might be necessary, might not.
  rs.setOutput("back", false) --Turns off redstone.
 end
end

paralell.waitForAll(rednet.broadcast(note1), rednet.broadcast(note2))

while true do
  term.setCursorPos(1, 3)
  write "F, L, R, B, M, U, D?"
  local input = read() --If you do not capitalize your letters, all 'if statement' conditions will be false and skipped over, resulting in the 'else' code being run.
  --use 'local input = string.upper(read())' instead
  if input == string.upper(f) then --Unrelated: Forgot quotation marks around the letter f here.
	rednet.send(58,"f")
	print "Turtle Forward"

  elseif input == string.upper("b") then --Never write a condition like this.
   --It is the same as 'elseif input == "B" then'
   --I think the code you really wanted was 'elseif string.upper(input) == "B" then'
   --But again, using 'local input = string.upper(read())' above will make all input capitalized after pressing enter.
	rednet.send(58,"b")
	print "Turtle Backward"
  --code
  --code
  --code
  --code
  else --Always good to have else statements, helps a lot with debugging.
   print "No command Exists"
  end
end

local id, msg = rednet.receive()
msg = string.upper(msg)

local input = read()
input = string.upper(input)

else
print("No command exists.")
end

MysticT, on 25 June 2012 - 12:44 AM, said:

if tSong[1] ~= "nil" then --Yes, this is a string because leaving a nil key in a table is poor programming etiquette, if you ask me.

local note = "whatever note you want to play" --ex. E F G A B C D including sharps and flats
while true do
 id, message = os.pullEvent("rednet_message")
 if message == note then
  --handle redstone turn-on state
  --turn off redstone state
 end
end

local iBPM = nil
if tSong[1] ~= "nil" then --Yes, this is a string because leaving a nil key in a table is poor programming etiquette, if you ask me.
 iBPM = 60 / tSong[1]
else
 print("Enter BPM: ")
 iBPM = 60 / tonumber(io.read())
end
tTimer = os.startTimer(iBPM)

local terminate = false
local iBPM --previously declared, just here so you do not forget
local i = 3
local iEnd = tSong[2] --need some internal way to tell the end of the song, table length stored in entry 2. Just thought of a better way using #tSong but I'm not going to change the code a third time.
while terminate == false do
 evt, p1 = os.pullEvent("timer")
 if p1 == "tTimer" then
  tTimer = os.startTimer(iBPM)
 end
 rednet.broadcast(tSong[i])
 i = i + 1
 if i == iEnd + 1 then
  terminate = true
end
end

local tSong = {1 C, 2 E, 5 F, 2 G, 3 A, 4 B}

GravityScore, on 24 June 2012 - 01:26 PM, said:

kazagistar, on 24 June 2012 - 02:21 PM, said:

file.writeLine(message)

MysticT, on 24 June 2012 - 03:55 PM, said:

• Determine routers dynamically, and
  
• Open the correct side for rednet.
  
• Alerts you when your modem is removed or a modem is placed, and
  
• Opens rednet on the correct side when it's placed (just had an idea for a pre-release, program will dynamically close rednet if modem is destroyed/removed)

Pinkishu, on 24 June 2012 - 07:49 PM, said:

if input == "password" then

local iSeed = math.random()
local tTemp = {}
local tMessage = {}
function encrypt(t)
write your own function
return t
end
math.randomseed( iSeed )
tMessage = encrypt(tTemp)
rednet.send/broadcast([id,] tMessage)

OmegaVest, on 22 June 2012 - 07:08 PM, said:

local tWords = {}
for match in string.gmatch(sMessage, "[^ t]+") do
 table.insert( tWords, match .. "b" )
end

Quote

term.clear()
term.setCursorPos(1, 1)
local iEncrypt = nil
local sMessage = nil
local tWords = {}

function NULLencrypt(tWords)  --tried to encrypt as a whole before I realized I could do it during table.insert
for i = 1, #tWords do --function NULLencrypt is not necessary in program code as it is not used
  local sTemp = nil
  for i = 1, string.len(tWords[i]) do
   if i == 1 then
	sTemp = tWords[i]:byte(i)
   else
	sTemp = sTemp .. " " .. tWords[i]:byte(i)
   end
   tWords[i] = sTemp
  end
end
return true
end

function encrypt(string)
local sTemp = nil
for i = 1, string.len(string) do
  if i == 1 then
   sTemp = string:byte(i)
  else
   sTemp = sTemp .. " " .. string:byte(i)
  end
end
return sTemp
end

term.write("Enter message: ")
sMessage = tostring(io.read())

for match in string.gmatch(sMessage, "[^ t]+") do
table.insert( tWords, encrypt(match) .. "b" )
end

for i = 1, #tWords do
print(tWords[i])
end

Enter message: HEY, I JUST MET YOU, AND THIS IS CRAZY. BUT HERE'S MY NUMBER, SO CALL ME MAYBE. --' Now may this song be stuck in your head forever.
72 69 89 44b
73b
74 85 83 84b
77 69 84b
89 79 85 44b
65 78 68b
84 72 73 83b
73 83b
67 82 65 90 89 46b
66 85 84b
72 69 82 69 39 83b
77 89b
78 85 77 66 69 82 44b
83 79b
67 65 76 76b
77 69b
77 65 89 66 69 46b

A2Creativity, on 16 June 2012 - 05:06 PM, said:

function writeChar(char)  --Future update will be able to make longer messages
 term.setCursorPos(charNum + string.len(username) + 3, cursorY) --right now limit is 48 minus username length and 2 extra characters
 if charNum <= 48 - (string.len(username) + 2) then --so it all fits on-screen
  term.write(char)
  message[charNum] = char
  charNum = charNum + 1
 end
end

function handleEvent() 
 local evt, p1, p2 = os.pullEvent()
 if evt == "char" then
  writeChar(p1)
 elseif evt == "key" then
  handleKey(p1)
 elseif evt == "rednet_message" then
  messageReceive(p1, p2)
 elseif evt == "timer" then
  handleTimers(p1)
 elseif evt == "peripheral" then
  handleModem(p1)
  updatePast("Modem detected on " .. p1) --custom function that will display messages, pass message as parameter.
  updatePast("Network restored.")
 elseif evt == "peripheral_detach" then
  updatePast("Modem detached on " .. p1)
  updatePast("No network connectivity.")
 end
end

local tArgs = { ... } --Array containing all arguments
if #tArgs > 0 then --'#' returns index of an array, line checks tArgs to make sure there is at least one value.
print( "" ) --Prints program usage or coder-defined action.
print( "" )
return  --good practice to return all functions, I do not do it but I may have to start.
end

sleep(5) -- should be sleep(openTime)

rs.setOutput(side, true)
rs.setOutput(side, false) --no sense in creating and keeping track of a variable you do not need, rs.setOutput("left", true) will do just fine.