rednet.open("right")
local running = true
args = ... or 1

local function atk()
if running == true then
turtle.attack()
print("attacking")
sleep(tonumber(args))
else
print("wait for command")
sleep(10)
end
end

local function switchit()
event, id, text = os.pullEvent()
if text == "on" then
running = true
elseif text =="off" then
running = false
print("Stop attack")
end
end

while true do
parallel.waitForAny(switchit,atk)
end

rednet.open("right")
local running = true

local function atk()
while true do
if running == true then
turtle.attack()
print("attacking")
end
sleep(0.8)
end
end

local function switchit()
event, id, text = os.pullEvent()
if text == "on" then
running = true
elseif text =="off" then
running = false
print("Stop attack")
end
end

while true do
parallel.waitForAny(switchit,atk)
end
end

peripheral.call(string side, string method, ...) any
Calls a method on a peripheral. The arguments (apart from side and method) and the return values depend on the method being called. If no peripheral is connected, returns nil.

LordIkol, on 05 September 2013 - 03:27 AM, said:

BigTwisty, on 05 September 2013 - 12:11 PM, said:

Lyqyd, on 06 September 2013 - 12:57 AM, said:

It isn't an example of how he could do that though, because of those exceptions. Your answer has been shown to be inferior. The correct response is to accept the better answer, thank the poster for the correction if you desire, and move on. Ask a Pro is all about the quality of the answers, so attempting to justify a less useful answer isn't helpful.

BlankWolf, on 05 September 2013 - 02:25 AM, said:

Well I hade done somthing similar.
Thats an example how you can do that.

str = "Build an automated cow farm to stockpile leather" -- the string you will print to the screen
termX, termY = term.getSize()
write('1. ')
for word in string.gmatch(x, "%S+") do -- that will give you word by word from the string (wihtout a space)
  x, y = term.getCursorPos()
  if (#word + x > termX) then -- checks if the word will fit to the screen
	print() -- when not go to the next line
  end
  write(word) -- write the word
  if (#word + x < termX) then -- checks if there is space for a space
	write(' ') -- write the space
  end
end

I can't test the code. So sorry if there is any syntax error />

local sm = {"I hate Cats","Coding HTML for Food","The Internet is for Stuff","Minecraft is a little boring when you not have Computercraft installed"}

local function splistring(x)
local c ={}
local i=1
for word in string.gmatch(x, "[%a%d]+") do
--if tonumber(word) == nil then
c[i]= word
--else
--c[i] = tonumber(word)
--end
i=i+1
end
return c
end

local function newprint(line, row, str, mchars)
local actline = line
if #str > mchars then
local mytext = splistring(str)
local newtext = mytext[1].." "
for i = 2,#mytext do
if #newtext+#mytext[i] < mchars then
newtext = newtext..mytext[i].." "
else
term.setCursorPos(row,actline)
term.write(newtext)
actline = actline+1
newtext = mytext[i].." "
end
end
term.setCursorPos(row,actline)
term.write(newtext)
else
term.setCursorPos(row,actline)
term.write(str)
end
end

term.clear()
newprint(1,2,sm[3],15)

local timer = os.startTimer(10) --#The interval that you would like to wait
while true do
  local event, result = os.pullEvent()
  if event=="timer" and timer==result then --#If a timer event is pulled and its ID matches the one returned by startTimer
	break --#Break out of the loop and continue with code execution
  elseif event=="key" then
	 --print("you pressed a key")
	end
  end

rednet.open("back")
term.clear()
term.setCursorPos(1,1)
users = {} --create a table
users["mrjosheyhalo"] = "code1982" --adding an entry the key is the username and the value the password
users["loki"] = "1234" --adding another user

write("Username: ")
user = read()
if not users[user] then --check if this user exists by checking if the key is in the table
term.clearLine()
write("user does not exist")  --errormessage
sleep(2)
os.reboot() --shutdown
else --if user exists go on
write("Password: ") --ask for password
    p1 = read(".")  --read the password to variable
  if p1 == users[user]  then --check if the password fits with the password value of the given user in the table
   print("Welcome "..user) --rest should be clear
   rednet.send(9,"open",true)
   print("Door Open Please wait")
   sleep(7)
   os.reboot()
	    else
   print("wrong password")
   sleep(2)
		    os.reboot()
	    end
end

 theoriginalbit, on 18 August 2013 - 11:33 AM, said:

local function changecommand(old,new)
for k,v in pairs(tcom) do
  if v == old then
   tcom[k] = new
   cb.tell(Master,"the command for k is now: "..new)
  end
end
end

local commands = {
  ["hello"] = function()
	print("Hello!")
  end
}

if commands[cmd] then
  commands[cmd]()
end

local function changeCommand(old, new)
  if not commands[old] then
	return print("No command with that name")
  end
  commands[new] = commands[old]
  commands[old] = nil
end

 theoriginalbit, on 18 August 2013 - 10:54 AM, said:

local function changecommand(old,new)
for k,v in pairs(tcom) do
  if v == old then
   tcom[k] = new
   cb.tell(Master,"the command for k is now: "..new)
  end
end
end

 Bubba, on 18 August 2013 - 10:57 AM, said:

local commands = {
  [{["hello"]=true,["hola"]=true}] = function()
	print("I can respond to hello in several different languages.")
  end;
}

local input = read()

for key,func in pairs(commands) do
  if key[input] then
	func()
  end
end

 MKlegoman357, on 18 August 2013 - 09:46 AM, said:

local tcom = {}
tcom["up"] ="rauf"
tcom["down"]  = "runter"

local tfunctions = {}
tfunctions["up"] = moveUp
tfunctions["down"]  = moveDown

for k,v in pairs(tcom) do
   if v == commands[2] then
	pcall(tfunctions[k],tonumber(commands[3]))
   end
  end

local status = true
while true do
mysignal = redstone.getInput("back") --checks redstone signal at the back
  if mysignal == true and status == true then  --if signal true and status true digs the cable (status true is just to make sure he is not digging whole time)
   turtle.dig() --dig the cable in front
   status = false --set status to false means network is off
  elseif mysignal == false and status == false then -- if no redstone signal and network is off
   turtle.select(1) -- select slot with the cable
   turtle.place()  --place the cable
   status = true --remember that system is on now.
  end  -- end if
sleep(1) --sleep 1 second
end --end while

-- Schliessen
if XY == "51,1" and button == 1 then
shell.run("ApfelOS/aTerm")
break
end

-- Schliessen
if XY == "51,1" and button == 1 then
shell.run("ApfelOS/aTerm")
break -- dieses break weg und es geht. ausserdem macht dein terminal programm nichts ausser sagen das man shut-off eingeben soll.
end

local function getMaster()
t = s.getTargets()
for name, basicDetails in pairs(t) do

  if name == "Sir_Block_Alot" then
  print("Found My Master: "..name)

  -- get more details about them
  local Master = s.getTargetDetails(name)

  mHealth = Master.Health
  mx = math.floor(Master.Position.X)
  mz = math.floor(Master.Position.Z)
  my = math.floor(Master.Position.Y)
  -- print their health
  print("Health: "..mHealth)
  print("Position: "..mx.. " / " ..mz.. " / " ..my  )
  print("------")
  return mx, mz, my
  end
end
end

local function getMaster()
  local Master = s.getTargetDetails("Sir_Block_Alot")

  mHealth = Master.Health
  mx = math.floor(Master.Position.X)
  mz = math.floor(Master.Position.Z)
  my = math.floor(Master.Position.Y)
  -- print their health
  print("Health: "..mHealth)
  print("Position: "..mx.. " / " ..mz.. " / " ..my  )
  print("------")
  return mx, mz, my
  end
end
end

local enter = nil
local bedrockF = nil
local bedrockU = nil
local bedrockD = nil
local bedrockL = nil
local bedrockR = nil
local bedrockB = nil
local bedrock = nil

local enter = false
local bedrockF = false
local bedrockU = false
local bedrockD = false
local bedrockL = false
local bedrockR = false
local bedrockB = false
local bedrock = false

immibis, on 14 August 2013 - 03:02 AM, said:

data = select(4, NIR.get(1))

print("building")
actslot = 1

local function checkslot(sn)
if turtle.getItemCount(sn) == 0  and  actslot < 16 then
  turtle.select(actslot+1)
  actslot = actslot + 1
elseif actslot == 16 then
  print("last slot reached")
end
end
local function placeshit()
  turtle.place()
  turtle.back()
  turtle.place()
  turtle.back()
  turtle.place()
  turtle.back()
  turtle.place()
  turtle.turnRight()
  turtle.place()
  turtle.turnLeft()
  turtle.back()
  turtle.turnRight()
  turtle.forward()
  turtle.place()
  turtle.turnLeft()
  turtle.back()
  turtle.turnLeft()
end

local function moveback(x)
for i=1,x do
  turtle.back()
end
end

for x = 1, 4 do
checkslot(actslot)
  for i = 1,2 do
   placeshit()
   moveback(3)
  end
placeshit()
turtle.up()
	turtle.back()
	turtle.back()
	turtle.back()
end

local function checkslot(sn)
while turtle.getItemCount(sn) == 0  and  actslot < 16 do
  turtle.select(actslot+1)
  actslot = actslot + 1
end
end