Aide-mémoire

-- un commentaire jusqu'au bout de la ligne
--[[ un commentaire sur
     plusieurs lignes ]]
local compte = 0                  -- une variable locale (mettez local presque toujours)
vitesse = 128                     -- une variable globale, vue par tous les fichiers
local nom, ouvert = "Mine", true  -- plusieurs d'un coup
local rien = nil                  -- nil : pas de valeur ; seuls nil et false sont faux

-- nombres : 12  3.5  1e3  0xFF     texte : "a"  'b'  [[sur plusieurs lignes]]
local x = 7 // 2 + 7 % 2 + 2 ^ 3  -- 3 + 1 + 8 : division entière, reste, puissance
local ligne = "Stock : " .. compte  -- .. colle du texte (et des nombres)
local taille = #ligne             -- # est la longueur d'un texte ou d'une liste
-- comparer : == ~= (ou !=) < > <= >=      logique : and or not

if compte > 10 then
  print("beaucoup")
elseif compte > 0 then
  print("quelques-uns")
else
  print("aucun")
end

while compte < 3 do compte = compte + 1 end
repeat compte = compte - 1 until compte == 0
for i = 1, 10 do end                      -- 1, 2 ... 10
for i = 10, 1, -2 do end                  -- 10, 8 ... 2
for i, v in ipairs({"a", "b"}) do end     -- une liste, dans l'ordre
for k, v in pairs({x = 1, y = 2}) do end  -- chaque clé d'une table
for v in {"a", "b"} do end                -- les valeurs d'une liste
-- break sort de la boucle

local function aire(l, h)
  return l * h                    -- une fonction renvoie une seule valeur
end
local function coin(l, h)
  return {x = l, y = h}           -- plusieurs valeurs : renvoyer une table
end

local minerais = {"fer", "or"}            -- une liste : minerais[1] vaut "fer"
local pile = {nom = "fer", nombre = 64}   -- un enregistrement : pile.nom, pile["nombre"]
minerais[#minerais + 1] = "cuivre"        -- ajouter à la fin
pile.nombre = nil                         -- retirer une clé

local fort = ("bonjour"):upper()  -- les fonctions de texte marchent comme des méthodes
local r = pcall(aire, 2, 3)       -- r.ok, puis r.value ou r.error

local minuteur = os.start_timer(1)
while true do
  local e = os.pull_event()
  if e.name == "timer" and e.id == minuteur then
    minuteur = os.start_timer(1)  -- chaque seconde : redessiner, lire les capteurs...
  elseif e.name == "redstone" then
    print("gauche : " .. rs.get("left"))
  elseif e.name == "click" then
    print("clic en " .. e.x .. ", " .. e.y)
  elseif e.name == "char" and e.char == "q" then
    break
  end
end

local function borner(x, bas, haut)
  return math.max(bas, math.min(haut, x))
end
local trmin = borner(math.floor(rs.get("back") * 256 / 15), 0, 256)

local coffre = peripheral.find("inventory")
if coffre == nil then error("aucun inventaire trouvé") end
print(coffre.count("minecraft:iron_ingot") .. " lingots de fer")

local function enregistrer(chemin, reglages)
  local lignes = {}
  for k, v in pairs(reglages) do table.insert(lignes, k .. "=" .. tostring(v)) end
  fs.write(chemin, table.concat(lignes, "\n"))
end

local function relire(chemin)
  local reglages = {}
  local texte = fs.read(chemin)
  if texte == nil then return reglages end
  for ligne in string.split(texte, "\n") do
    local egal = string.find(ligne, "=")
    if egal then reglages[string.sub(ligne, 1, egal - 1)] = string.sub(ligne, egal + 1) end
  end
  return reglages
end

enregistrer("reglages", {cible = 128, mode = "auto"})
print(tonumber(relire("reglages").cible) + 1)

129

-- le dépôt
net.broadcast({objet = "minecraft:iron_ingot", nombre = 64}, "stock")

-- la salle de contrôle
while true do
  local m = net.receive()
  if m.channel == "stock" then print(m.data.objet .. " : " .. m.data.nombre) end
end

local r = pcall(fs.write, "journal", "plaques : 12")
if not r.ok then print("enregistrement impossible : " .. r.error) end