mirror of
https://github.com/jimy-byerley/minetest-computers.git
synced 2024-12-22 16:50:37 +01:00
Create os.lua
This commit is contained in:
jimy-byerley
parent
a53e649c08
commit
ee87096ed0
250
os.lua
Normal file
250
os.lua
Normal file
@ -0,0 +1,250 @@
|
||||
computers.register_oscommand("help", function(cmdline, pos, player)
|
||||
local command = string.match(cmdline, "help *(.+)")
|
||||
local message
|
||||
if command == nil then
|
||||
message = "available commands : exit date localisation write read login logout password mail\n\ttype help COMMAND to have arguments of command"
|
||||
else
|
||||
message = computers.computer_help[command]
|
||||
end
|
||||
if message == nil then
|
||||
message = "no help for this command"
|
||||
end
|
||||
return message, true
|
||||
end)
|
||||
|
||||
computers.register_oscommand("date", function(cmdline, pos, player)
|
||||
local message = "[local time : "..(minetest.env:get_timeofday()*24).." ]"
|
||||
return message, true
|
||||
end,
|
||||
"date: give the faction time of day")
|
||||
|
||||
computers.register_oscommand("localisation", function(cmdline, pos, player)
|
||||
message = "local coordinates : "..pos.x..", "..pos.y..", "..pos.z.."]"
|
||||
return message, true
|
||||
end,
|
||||
"localisation: give the computer coordinates")
|
||||
|
||||
|
||||
computers.register_oscommand("connect", function(cmdline, pos, player)
|
||||
local command = ""
|
||||
local continue = true
|
||||
local x = 0
|
||||
local y = 0
|
||||
local z = 0
|
||||
local mode = ""
|
||||
command, x, y, z, mode = string.match(cmdline, "^([^ ]+) *([%d.-]+)[, ] *([%d.-]+)[, ] *([%d.-]+) *(.+)")
|
||||
|
||||
if x==nil or y==nil or z==nil then
|
||||
message = "bad command : connect X,Y,Z [OPTIONS]"
|
||||
else
|
||||
local remote_pos = {x=x, y=y, z=z}
|
||||
local node = minetest.env:get_node(remote_pos
|
||||
)
|
||||
if node.name == "ignore" then
|
||||
message = "no host online"
|
||||
else
|
||||
message = "connect : bad mode"
|
||||
if mode=="test" then message = "host online" end
|
||||
if mode=="enable" then
|
||||
minetest.env:punch_node({x=x, y=y, z=z})
|
||||
message = "[host enabled]"
|
||||
end
|
||||
if mode=="tunnel" then
|
||||
if node.name == "computers:laptop_close" then
|
||||
message = "disabled remote host, can't connect to it"
|
||||
else
|
||||
if node.name == "computers:laptop_connect" then
|
||||
message = "remote host is busy"
|
||||
else
|
||||
if node.name ~= "computers:laptop_blank" and node.name ~= "computers:laptop_smalltext" and node.name ~= "computers:laptop_bigtext" then
|
||||
message = "destination is not a computer"
|
||||
else
|
||||
node.name = "computers:laptop_connect"
|
||||
minetest.env:set_node(remote_pos, node)
|
||||
local self = minetest.env:get_node(pos)
|
||||
self.name = "computers:laptop_connect"
|
||||
minetest.env:set_node(pos, self)
|
||||
--set metadata
|
||||
local meta = minetest.env:get_meta(pos)
|
||||
local remotemeta = minetest.env:get_meta(remote_pos)
|
||||
meta:set_string("formspec", "field[destination;;${destination}]field[text;;${text}]")
|
||||
meta:set_string("infotext", "")
|
||||
meta:set_string("destination", ""..remote_pos.x..","..remote_pos.y..","..remote_pos.z)
|
||||
remotemeta:set_string("formspec", "field[destination;;${destination}]field[text;;${text}]")
|
||||
remotemeta:set_string("infotext", "")
|
||||
remotemeta:set_string("destination", ""..pos.x..","..pos.y..","..pos.z)
|
||||
--connection message
|
||||
continue = false
|
||||
message = "connection etablished"
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
return message, continue
|
||||
end,
|
||||
"connect X, Y, Z MODE [OPTIONS]: connect to a node or computer")
|
||||
|
||||
computers.register_oscommand("write", function(cmdline, pos, player)
|
||||
local command
|
||||
local x = 0
|
||||
local y = 0
|
||||
local z = 0
|
||||
local file = nil
|
||||
local str = nil
|
||||
command, x, y, z, file, str = string.match(cmdline, "^([^ ]+) *(%d+)[, ] *(%d+)[, ] *(%d+) *(%a+) *(.+)")
|
||||
|
||||
if x==nil or y==nil or z==nil or file==nil or str==nil then
|
||||
message = "bad command : memory-write X,Y,Z FILENAME STRING"
|
||||
else
|
||||
local node = minetest.env:get_node({x=x, y=y, z=z})
|
||||
if node.name == "air" then
|
||||
message = "no support, aborted"
|
||||
else
|
||||
local meta = minetest.env:get_meta({x=x, y=y, z=z})
|
||||
meta:set_string(file, str)
|
||||
message = "memory added to "..node.name.." "..file.." "..str
|
||||
end
|
||||
end
|
||||
return message, true
|
||||
end,
|
||||
"write X, Y, Z FILENAME STR: write a string in a node file")
|
||||
|
||||
computers.register_oscommand("read", function(cmdline, pos, player)
|
||||
local command
|
||||
local x = 0
|
||||
local y = 0
|
||||
local z = 0
|
||||
local file = nil
|
||||
command, x, y, z, file = string.match(cmdline, "^([^ ]+) *(%d+)[, ] *(%d+)[, ] *(%d+) *(%a+)")
|
||||
|
||||
if x==nil or y==nil or z==nil or file==nil then
|
||||
message = "bad command : memory-read X,Y,Z FILENAME STRING"
|
||||
else
|
||||
--if node has not metadata
|
||||
--else read contain
|
||||
|
||||
local node = minetest.env:get_node({x=x, y=y, z=z})
|
||||
if node.name == "air" then
|
||||
message = "inexistant destination, aborted"
|
||||
else
|
||||
local meta = minetest.env:get_meta({x=x, y=y, z=z})
|
||||
local contain = meta:get_string(file)
|
||||
if contain then
|
||||
message = "memory read from "..node.name.." : "..contain
|
||||
else
|
||||
message = "no data in this node"
|
||||
end
|
||||
end
|
||||
end
|
||||
return message, true
|
||||
end,
|
||||
"read X, Y, Z FILENAME STR read a node file")
|
||||
|
||||
--[[ commande autentificate :
|
||||
autentificate user password
|
||||
autentifie la machine hote par le nom d'utilisateur si le mot de passe est correct
|
||||
]]
|
||||
|
||||
COMPUTER_FILE = minetest.get_worldpath()..'/computer_accounts.txt'
|
||||
|
||||
local get_password = function(user)
|
||||
local file = io.open(COMPUTER_FILE, "r")
|
||||
local list = ""
|
||||
local u
|
||||
local p
|
||||
local i=1
|
||||
while file:lines(i)("*(.+) *(.+)") ~= nil do
|
||||
u,p = file:lines(i)("*(.+) *(.+)")
|
||||
print(u.." "..p)
|
||||
--u,p = string.match(list, "*(.+) *(.+)")
|
||||
if u==user then
|
||||
return p
|
||||
end
|
||||
i = i+1
|
||||
end
|
||||
io.close(file)
|
||||
end
|
||||
|
||||
local add_user = function(user, password)
|
||||
local file = io.open(COMPUTER_FILE, "r")
|
||||
local text = file:lines()
|
||||
io.close(file)
|
||||
file = io.open(COMPUTER_FILE, "w")
|
||||
text = user.." "..password.."\n"..text
|
||||
file:write(text)
|
||||
io.close(file)
|
||||
end
|
||||
|
||||
local del_user = function(user)
|
||||
local file = io.open(COMPUTER_FILE, "r")
|
||||
local list = file:lines()
|
||||
local text = ""
|
||||
io.close(file)
|
||||
local u
|
||||
local p
|
||||
for i in 1,#list do
|
||||
u,p = string.match(list[1], "*(.+) *(.+)")
|
||||
if u~=user then
|
||||
text = text..list[1]
|
||||
end
|
||||
end
|
||||
file = io.open(COMPUTER_FILE, "w")
|
||||
file:write(text)
|
||||
io.close(file)
|
||||
end
|
||||
|
||||
computers.register_oscommand("login", function(cmdline, pos, player)
|
||||
local command
|
||||
local user
|
||||
local password
|
||||
command, user, password = string.match(cmdline, "^([^ ]+) *(.+) *(.+)")
|
||||
|
||||
if user==nil then
|
||||
message = "bad command : autentificate USER PASSWORD"
|
||||
else
|
||||
local pass = get_password(user)
|
||||
if pass then
|
||||
if pass==password then
|
||||
message = "correct password"
|
||||
else
|
||||
message = "incorrect password"
|
||||
end
|
||||
else
|
||||
add_user(user, password)
|
||||
message = "user created"
|
||||
end
|
||||
end
|
||||
return message, true
|
||||
end,
|
||||
"login USER PASSWORD: use a username")
|
||||
|
||||
--[[ commande deautentificate :
|
||||
deautentificate
|
||||
desauthentifie l'utilisateur courrant
|
||||
"logout: don't use username"
|
||||
]]
|
||||
|
||||
--[[ commande userdel :
|
||||
deluser
|
||||
supprime le compte utilisateur actuel
|
||||
]]
|
||||
|
||||
--[[ commande password :
|
||||
password user password new
|
||||
change useer's password to new password
|
||||
"password USER PASSWORD NEW: change user password by new"
|
||||
]]
|
||||
|
||||
--[[ commande mail :
|
||||
mail receiver
|
||||
ajoute un mail de l'utilisateur courant au compte nomme
|
||||
la saisie du mail se fait apres cette commande
|
||||
mail
|
||||
affiche les mails recus
|
||||
mail 1
|
||||
lis le premier mail
|
||||
"mail [USER | NUM]: send mail to user or display mail list or display mail for number"
|
||||
]]
|
||||
|
||||
Loading…
Reference in New Issue
Block a user