local a = {
    a = {
        x = 12,
        y = 56,
    },
    b = {
        x = 562,
        y = 56,
    },
    c = {
        x = 12,
        y = 456,
    },
    d = {
        x = 542,
        y = 546,
    },
    e = {
        x = 1564,
        y = 546,
    }
}

for key, value in pairs(a) do
    print(key)
end

к примеру вот такой код

по моей логие оно должно вывести: a b c d e, а выводит:

почему это так и как лучше это пофиксить что бы оно всё выводило по очереди как в таблице?

Мега ультра код:

for i = 1, #game.screen do
	if game.screen.buffer[i] == nil then
		print('nil !')
		game.screen.buffer[i] = {visible = false}
	end
	print(game.screen.buffer[i].text, game.screen[i].text)

...

print('Copy buffer')
game.screen.buffer = {}
for i = 1,#game.screen do
	table.insert(game.screen.buffer, game.screen[i]) -- Пробовал (изначально было) game.screen.buffer[i] = game.screen[i], результат тотже
	print(game.screen.buffer[i].text)
end

В том то и смысл что если в скрине менялось значение, а в буфере нет, то означает что объект изменили и мы смотрим что изменили, после чего изменяем на значение скрина, а в конце копируем скрин в буфер потому-что значение то изменилось дабы если снова изменилось и так по кругу.

Весь код:

		for i = 1, #game.screen do
					if game.screen.buffer[i] == nil then
							print('nil !')
							game.screen.buffer[i] = {visible = false}
					end
					if game.screen[i].type == 'text' then
							print('text')
							if game.screen[i].visible ~= game.screen.buffer[i].visible then
									print('Visible')
									if game.screen[i] and not game.screen.buffer[i].visible then 
											local tmp = screen:addChild(GUI.text(game.screen[i].x,game.screen[i].y,game.screen[i].color,game.screen[i].text))
											game.screen[i].raw = tmp
									else
											game.screen[i].raw:remove()
									end
							end
							if game.screen[i].x ~= game.screen.buffer[i].x then
									game.screen[i].raw.localX = game.screen[i].x
									print('x')
							end
							if game.screen[i].y ~= game.screen.buffer[i].y then
									game.screen[i].raw.localY = game.screen[i].y
									print('y')
							end
							if game.screen[i].text ~= game.screen.buffer[i].text then
									game.screen[i].raw.text= game.screen[i].text
									print('text')
							end
							if game.screen[i].color ~= game.screen.buffer[i].color then
									game.screen[i].raw.color = game.screen[i].color
									print('color')
							end
					end
		end
		print('Copy buffer')
		game.screen.buffer = {}
		for i = 1,#game.screen do -- Поэелементно и в лоб шо-бы у нас не дюпались буфера (game.screen.buffer = game.screen <-- Содержить буфер), которые там и не будем использовать. (Внутри буффера)
			print(game.screen.buffer[i].text)
			table.insert(game.screen.buffer, game.screen[i]) -- Было еще и game.screen.buffer[i] = game.screen[i]
			print(game.screen.buffer[i].text)
		end

И надо сделать добавление юзера в вайт-лист командой из чата

допустим $$adduser НИК

Как считать ник?

Допустим отправляем в чат $$adduser Koteyk0o и получаем сообщение "$$adduser Koteyk0o"

Как из этого сообщения считать ник?

мне нужно выложить из робота алмаз
Как без использования select(номер слота) дать возможность роботу выкладывать алмаз в определённый слот сундука?

тип было так

a = "World"

а стало так

a = {W, o, r, l, d}

local component = require('component') 

local tunn = component.tunnel

local event = require('event') 

local robot = require('robot') 

function getMsg()

  return event.pull("modem_message")

while true do

  print(getMsg())

  robot.forward()

Мне нужно сделать так, чтобы в главном цикле получались сообщения из связанной карты, а затем выполняющий робот шел дальше. 

Но на деле происходит так: робот ждет сообщения, тупо стоя на одном месте. Он идет дальше только тогда, когда я отправляю сообщение.

Мне надо чтобы бот одновременно и шел и получал сообщения, не стопарясь, но при этом не запускалась куча процессов получения сообщения. Как такое реализовать? 

Задача - написать функцию L, где L(f, n) выдавало бы функцию Ln(a1)(a2)(...)(an) которая при выполнении выдает f(a1, a2, ..., an).

@ProgramCrafter подсказал написать так:

local function L(f,n)
  if n<=1 then return f
  else
    return function(a)
      return L(function(...)
        return f(a,...)
      end, n-1)
    end
  end
end

Такая функция работает при значениях n>=1, но не работает с n=0

f = L(print, 2)
f(1)(2) -- печатает: 1 2

f = L(print, 0)
f() -- выдает функцию print

Вопрос:

Нужна функция L, которая принимает в параметр функцию f и дополнительно n аргументов - стандартных значений, которые так же будут показывать количество аргументов.

local function L(f, ...)
  -- ???
end

-- Функция для примера - просто выводит три своих параметра
local function abc(a, b, c)
    return 
        '"a:'..tostring(a)..
        ' b:'..tostring(b)..
        ' c:'..tostring(c)..'"'
end

local f = L(abc, 'a', 'b', nil) -- Создаем λ-функцию с тремя значениями по умолчанию

-- Должно выводить:
print( f(1)(2)(3) ) -- "a:1 b:2 c:3"
print( f()()() ) -- "a:a b:b c:nil"
print( f(nil, 2)() ) -- "a:a b:2 c:nil"

Просто math.random() в конце ещё .0 добавляет. Нам не нужно дробное число.

Что именно означают вторые пары скобок? Для чего они нужны?

Также может прислать просто пустое сообщение.

извините что так много но я очь много времени потратил ;-;

event = require('event')
cmp = require('component')
os = require('os')
modem = cmp.modem
print('удачность соединения:')
print(modem.open(1))
two = false
thre = false
four = false
five = false
beep = cmp.computer.beep()
function prog()
  while boo == false do
    _, _, _, _, _, sus = event.pull("modem_message")
    print(sus)
    if sus == 'sms_chek' then
      if two == false then
        modem.broadcast(16, '2')
        print('послано 2')
        two = true
      else
        os.sleep(0.5)
        if thre == false then
          modem.broadcast(16, '3')
          print('послано 3')
          thre = true
        else
          os.sleep(0.5)
          if four == false then
            modem.broadcast(16, '4')
            print('послано 4')
            four = true
          else
            os.sleep(0.5)
            if five == false then
              modem.broadcast(16, '5')
              print('послано 5')
              five = true
            else
              print('ОШИБКА, НЕТ МЕСТ <SMS>')
            end
          end
        end
      end
    end
    if sus == 'sms_exit' then
      _, _, _, _, _, oi = event.pull("modem_message")
      if oi == '2' then
        two = false
      else if oi == '3' then
        thre = fasle
       end
      end
    if oi == '4' then
      four = false
    else if oi == '5' then
      five = false
    end
    end
    end
    if sus == 'sms_messege' then
      _, _, _, _, _, s = event.pull("modem_message")
      os.sleep(1)
      _, _, _, _, _, sms = event.pull("modem_message")
      if s == '' then
        print('чуть не произошла ошибка')
      else
      print('oправленно: ' .. sms .. '  ' .. 'на порт: ' .. s)
      portsms = tonumber(s)
      smska = sms
      modem.broadcast(portsms, 'SMS')
      os.sleep(1)
      modem.broadcast(portsms, sms)
      end
    end
  end
end
boo = false
function shell ()
  while exit == false do
    as = io.read()
    if as == 'exit' then exit = true
  end
    end
end
shell()
prog()

ето код сервера

реально много получается

код: планшета:

local cmp = require('component')
local modem = cmp.modem
local event = require('event')
local exit = false
print(modem.open(16))
local a = 0
modem.open(16)
sms = ''
while sms == '' do
  modem.broadcast(1, 'sms_chek')
  print('попытка соединения с сервером')
  _, _, _, _, _, sms = event.pull("modem_message")
  if sms == '2' then
   modem.close(16)
   modem.open(2)
   port = '2'
   print('порт: 2')
    print(modem.open(2))
  else if sms == '3' then
    modem.close(16)
    modem.open(3)
    port = '3'
    print('порт: 3')
    print(modem.open(3))
  else if sms == '4' then
    modem.close(16)
    modem.open(4)
    port = '4'
    print('порт: 4')
    print(modem.open(4))
  else if sms == '5' then
    modem.close(16)
    modem.open(5)
    port = '5'
    print('порт: 5')
    print(modem.open(5))
  end
end
end
end
end
smsRAM = false
RAM = ''
function send ()
  while exit == false do
    _, _, _, _, _, sms = event.pull(2, "modem_message")
    if sms == '' then
      
    else if sms == 'SMS' then
      print('получен смс:')
      _, _, _, _, _, sms = event.pull(2, "modem_message")
      RAM = sms
      smsRAM = true
      print(sms)
    end
    end
    local sa = io.read()
    if sa == 'exit' then
       exit = true
       modem.broadcast(1, 'sms_exit')
       modem.broadcast(1, port)
       
       cmp.computer.beep()
    else
      modem.broadcast(1, 'sms_messege')
      os.sleep(1)
      modem.broadcast(1, sa)
      local sa =io.read()
      modem.broadcast(1, sa)
      print('отправлено')
    end
    if sa == '' then
      if smsRAM == true then
        print(RAM)
        smsRAM = false
      end
    end
  end
end
send()

еше раз извините что много, прост хочется решить проблему

soc:write("MOTD")

motd = soc:read(100)

Всё роботает. А если я еще раз запрошу MOTD то или ошибка или ничего.

local reguser = "1.10a4d55a8d778e5022fab701977c5d840bbc486d0,d8f4590320e1343a915b6394170650a8f35d6926,8888"

мне надо всё ввести в переменные:

versions = 1.1

login = '10a4d55a8d778e5022fab701977c5d840bbc486d0'

pass = 'd8f4590320e1343a915b6394170650a8f35d6926'

seed = 8888

Как обрезать это?

Как реалезовать это:

bytes("PING", encoding="utf8")