Text = {
"The year was 2025. Aerial drones had revealed a large weapons cache in Siberia.",
" ",
"United Nations investigators were sent to investigate.",
" ",
"Once they got there they were met by Russian military. ",
" ",
"The Russians captured and executed the agents.",
" ",
"What were once thought to be nuclear weapons were soon revealed as anti-matter.",
" ",
"A weapon like no one had ever seen. A global scare prompted a new kind of space race.",
" ",
"A secret task force assembled to begin work on what only science fiction had thought possible before.",
" ",
"They started to build deep space vessels capable of supporting life.",
" ",
"They believed there was a possibility of life on other planets.",
" ",
"As work neared completion of the Icarus; the Russians found out.",
" ",
"Only a portion of the life support was completed when the war began.",
" ",
"Knowing that this would be the end of earth a rash decision was made,",
" ",
"they were going to launch the Icarus and head for the moon.",
" ",
"Only one section of the ship had breathable air,",
" ",
"this is where they setup a station to refill breathable tanks so that people could survive in space.",
" ",
"In the first year of the war Russia had expanded its territory to berlin.",
" ",
"As there was no slowing them down the Icarus was launched.",
" ",
"Upon reaching the moon it had been revealed that in our 55 year absence a new species had inhabited the moon.",
" ",
"The powers of the tesseract were revealed and teleportation finally became a reality.",
" ",
"Several years had passed and thousands of drones later they had found a suitable planet.",
" ",
"With little life support leaders believed the best way of reaching this planet would be",
" ",
"to send small settler groups to the planet and begin colonizing it.",
" ",
"The settlers began to plant trees, grow crops and create breathable oxygen levels.",
" ",
"However, soon it was discovered that this planet had resources like no one had seen",
" ",
"People knew they could profit from this world and began to mine its resources.",
" ",
" Soon factions were forming, and small warfare was beginning to break out across this new planet….",
" ",
" ",
" ",
" ",

"Here we are today; this is the first bunker created by the Terra Nova Army",
" ",
"and serves as the hub for new survivors to get a new start on the world",
" ",
"we know today as INSERT WORLD NAME HERE.",
" ",
"You can buy supplies and view the ranks in the terra nova army.",
" ",
"New world rules will be in the main atrium along with ranks",
" ",
"and items that have been banished from the new world so that it does not have the same fate as earth.",
" ",
"Please view the rules or your fate could very well be decided by the military leaders.",
" ",
"Earth is still habitable however riddled with radiation it is very dangerous.",
" ",
"War still rages there and bombs fall frequently.",
" ",
"Resources are still there however death is almost emanate.",
" ",
"Travel there at your own risk.",
" ",
}
mon = peripheral.wrap("top")
mon.clear()
wScreen, hScreen = mon.getSize()

function Vertical()
for i = -#Text, hScreen do
	  for t = 1,#Text do
		mon.setCursorPos(1,i+t)
		mon.write(Text[t])
print(i+t.." "..i.." "..t)


	  end
   mon.setCursorPos(1,i)
   sleep(.8)
   mon.clear()
  end
end

while true do
Vertical()
end

rednet.open("top")
local monitor = peripheral.wrap("right")
local new = false
local items = {
["stone  "] = 0,
["brick  "] = 0,
["dirt   "] = 0,
["wodndor"] = 0,
["cobble "] = 0,
}
monitor.clear()
monitor.setCursorPos(1,1)
local function receive()
local _, item= rednet.receive(1)
local _, qty = rednet.receive(1)
  if items[item] then
	new = true
	items[item] = items[item] + qty
  else
  print("unrecognized item: "..tostring(item))
  end
for k,v in pairs(items) do
if new == true then
monitor.clear()
monitor.setCursorPos(1,1)
end
monitor.write(k..":"..v)
local x,y = monitor.getCursorPos()
print(y)
print(x)
x = x - 9
y = y+1
  if y == 28 then
	x = x + 10
	y = 1
  end
monitor.setCursorPos(x,y)
end
end
while true do
receive()
end

theoriginalbit, on 06 July 2013 - 02:39 AM, said:

local function receive()
  local _, item = rednet.receive()
  local _, qty = rednet.receive()
  if items[item] then --# if the item name sent is in our table
	items[item] = items[item] + qty --# add the quantity to the old total
  else
	print("unrecognised item: "..tostring(item))
  end
end

local function receive()
  local _, item = rednet.receive()
  local _, qty = rednet.receive()

darkrising, on 04 July 2013 - 04:15 AM, said:

account = {}

function newUser(pin, account)
  local u = {}
  u.pin = pin
  u.account = account
  return u
end

table.insert(account, newUser(2394994, 234))

-- in this example the new user will have an index of 1, so account[1].pin  would be there pin and
-- account[1].account would be their account number

rednet.open("top")
local blocks ={"brick", "stone"}
local amount = {1,1}
local function receive()
local senderId, message, distance = rednet.receive()
local senderId2, message2, distance2 = rednet.receive()
  for i, v in ipairs(blocks) do
    if message == v then
      print(blocks[i])
      message2 = (tonumber(message2))
      local amounts = amount[i]
      print(amounts)
      amounts = (tonumber(amounts))
      local newamount = (amounts + message2)
      table.remove(amount, amounts)
      table.insert(amount, amounts, newamount)
      print(amount[amounts])
    break
    elseif message ~= v then 
      table.insert(blocks, message)
      print("added".." "..message)
      table.insert(amount, message2)
      print("added".." "..message2)
    break
    end
  end
end

while true do 
receive()
end

rednet.open("top")
local items = {}
local amount = {}
local place = ""
local oldplace = ""
function receive()
local senderId, message, distance = rednet.receive()
local senderId2, message2, distance = rednet.receive()
print("message received")
      for k,v in ipairs(items) do
         if message == v then 
           senderId, message, distance = rednet.receive()
           oldplace = amount[k]
           place = amount[k] + message
           table.remove(amount, oldplace)
           table.insert(amount, oldplace, place)
         elseif message ~= v then
           table.insert(items, message)
           table.insert(amount, message2)
           print("inserted stuff")
     end
     end
     for i = 1,#items do
     print(items[i])
     end
     for i = 1,#amount do
     print(amount[i])
     end
print("function done")
receive()
end
term.clear()
term.setCursorPos(1,1)
receive()

term.clear()
term.setCursorPos(1,1)
rednet.open("left")
local successfullogin = false
print("welcome to the bank")
print("1] login")
print("2] create new account")
print("3] shutdown")
write(">")
local firstoption = read()
  if firstoption == "1" then
	rednet.send(51,"login", true)
	write("account number: ")
	local accountnumb = read()
	write("pin: ")
	local pinnumb = read("*")
	rednet.send(51, accountnumb, true)
	local senderId, message, distance = rednet.receive(5)
	print(message)
	senderId, message, distance = rednet.receive()
	  if pinnumb == message then
		successfullogin=true
	  end
  elseif firstoption == "2" then
	rednet.send(51, "create new account", true)
	write("Enter a 4 digit pin for your account: ")
	local pin = read("*")
	rednet.send(51,pin, true)
	localaccountsenderId, accountnumber, accountdistance = rednet.receive()
	write("Your account number is: "..accountnumber)
  sleep(2)
  elseif firstoption == "3" then
	print("shutting down...")
	sleep(1)
	os.shutdown()
	else
  print("unsuccessful login")
  sleep(1)
  end
function menu()
print("1) withdraw")
print("2) deposit")
print("3) wire tranfer")
print("4) balance inquiry")
print("5) logoff")
write("Enter a number: ")
local option = read()
   if option == "1" then
   print("Enter go back to go back to the menu")
   write("How much? ")
   local amount = read()
	 if amount == "go back" then
	 menu()
	 else
	 rednet.send(51, "withdraw", true)
	 rednet.send(51, amount, true)
	 print("withdrawing funds...")
	 print("gold will be in withdraw area")
	 sleep(1)
	 menu()
   end
   elseif option == "2" then
	 write("Do you want to deposit? y/n")
	 local deposit = read()
	   if deposit == "y" then
		 rednet.send(51,"deposit", true)
		 else
		 menu()
	   end  
   elseif option =="3" then
	 --wire transfer code
   elseif option == "4" then
	 rednet.send(51, "balance", true)
	 local senderidbalance, balancemessage, distancebalance = rednet.receive()
	 print(balancemessage)
   elseif option == "5" then
	 shell.run("startup")
   else
	 print("That isn't a selection")
	 sleep(1)
   end
   sleep(2)
   menu()
  end
if successfulogin == true then
rednet.send(51, "validuser", true)
menu()
else
term.clear()
term.setCursorPos(1,1)
shell.run("startup")
end

print("This is the account server")
print("If you need to add an account then please do so through the admin computer in the server rooom")
print("Do not restart ever")
print("If you restart then all of the accounts and pins will be lost")
local pins = ""
local accounts= ""
local accountsId = ""
local realaccount = false
local accountaccess = false
rednet.open("top")
local account = {566001,566002,566003,566004}
local accountId = {46,52,53,54}
local pin = {}
local accountbalance = {0,0,0,0}
function accountlogin() -- sets it so you can acces account functions
local senderId, message, distance = rednet.receive()
if message == "login" then
senderId, message, distance = rednet.receive()
for i,v in ipairs(account) do
  if message == v then
	accountnumb = message
	realaccount = true
	rednet.send(senderId, "accessing your account...", true)
	pins = (pin[i])
	accountsId = (accountID[i])
	rednet.send(senderId, pins, true)
  else
	rednet.send(senderId, "That account doesnt exist", true)  
  end
break
end
senderId, message, distance = rednet.receive()
  if message == "validuser" then
	accountaccess = true
  end
elseif message == "withdraw" then
  senderId, message, distance = rednet.receive()
  rednet.send(accountsId, message, true)
elseif message== "deposit" then
  senderId, message, distance = rednet.receive()
  rednet.send(accountsId, message, true)
elseif message == "create new account" then
  senderId, message, distance = rednet.receive()
  table.insert(pin, message)
  for i,v in ipairs(pin) do
	if message == v then
	local newaccount = (account[i])
	rednet.send(senderId, newaccount, true)
  end
end  
elseif message == "wire transfer" then
--wire transfer code
else
end
end
while true do
accountlogin()
end

rednet.open("right")
repeat
    turtle.turnLeft()
until turtle.compareTo(16) == true
local senderId, message, distance = rednet.receive()
if message <= 64 then
    turtle.suck()
elseif message > 64 and <=128 then
    turtle.suck()
    turtle.suck()  
elseif message >128 and <=192 then
    turtle.suck()
    turtle.suck()
    turtle.suck()
elseif message >192 and <=256 then
    for i = 1,4 do
        turtle.suck()
    end   
elseif message >256 and <=320 then
    for i = 1,5 do
        turtle.suck()
    end
elseif message >320 and <= 384 then
    for i = 1,6 do
        turtle.suck()
    end
elseif message >384 and <=448 then
    for i = 1,7 do
        turtle.suck()
    end
elseif message >448 and <= 512 then
    for i= 1,8 do
        turtle.suck()
    end
elseif message >512 and <= 576 then
    for i= 1,9 do
        turtle.suck()
    end
elseif message >576 and <= 640 then
    for i = 1,10 do
        turtle.suck()
    end
end