From 0c7471e8d5e2723a49f9eb7312629b1fd424657d Mon Sep 17 00:00:00 2001 From: Wuzzy Date: Sat, 7 Jan 2017 02:52:27 +0100 Subject: [PATCH] Add basic command block --- mods/redstone/mesecons_commandblock.rar | Bin 1866 -> 0 bytes .../mesecons_commandblock/depends.txt | 3 + mods/redstone/mesecons_commandblock/init.lua | 207 ++++++++++++++++++ 3 files changed, 210 insertions(+) delete mode 100644 mods/redstone/mesecons_commandblock.rar create mode 100644 mods/redstone/mesecons_commandblock/depends.txt create mode 100644 mods/redstone/mesecons_commandblock/init.lua diff --git a/mods/redstone/mesecons_commandblock.rar b/mods/redstone/mesecons_commandblock.rar deleted file mode 100644 index 34a4c1057698b811d9c677860396910798b4b090..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1866 zcmWGaEK-zWXE;Bhn1O+p0RoORmnbwiGH^05fH9MZ`#E2mb$QOR28s*{3JeUnsl}==sJ7#RE{7#NtIe|9wh zn`A79$E3`>%o4qv(nKD{fHPO5@?65X zbWZjIKZKvp+|JMWptbyb@7}=s$$V~!hu-C!+1VMYkZv`n?MKaib>TDn&Smh{oT^gQ zkFlF6p>OCtM}ONF-CYkJ{92khu`4Y##F8&V&3UztXTDe8!t;Lw%j?7+*(W?O6`tYr zr-s96ov-DyGh4nkOLtA}2%V<-=JkeiF-v+7(Gc4^b(;6F!w#^1O~+lgMNg z6kV|A&F#ai#nMeV6~&@E+nz4WPh3A)T>iJf4Kb5e!)9wHsTl=ZZ!mK!pPI~=B&4`z zhS|d$)BMUCN3G6WE#Ay~_qQic)@A-ItB1#RnF{95$jMr{zWg(z%%K4GPEY<-4B{_- zSK6Jvt8{GYYv1{LdfjuT>sMZX&i{q~-e19oybG)QSIsv1q0}aMWjgoIotEp1-C}H> zFjrT9cAxEOm+^6>gMf(8evw~M-p~8x+4^J6_XmBOkF`~8fR8K-Y|(xm1Rn5!`F@8EH{i7oSyoX)$S(e6_XcNxwm*d+2vgOU`us< zxn_pw4FTUvR}C&t-j%=V@~!nsPuE{4dTQLTz_m?kx#;tR8!ufm#64Z+oPM{cw7G7| z+|@G83Oea`CcRpA%Ry*!m&@IgyGxwnTDi|Zy_69z=kj!m%7TblDQE5-wd!?Sur=M} zv~xs2;)i*M=V(5h81Jd*+U4<_=k1Q|IZ`a^t}N9I>P$NIzj20R$(r+CD;MUkO6ZDC z*m9v)O)$(wA?w)s6FEQ1TDMJ}7pwJDZ~Fd3;TfI^%kHvEEZv>(+h@^~zuy|2+}kb$ z`sMwo<+!8pa%W}omY^x;_R07jZe$3!m$^_&{Jm!dPR`|+A)im6r$6w1!r9jsn3X=kgh^>3+yg(vpNAO5h)gZu03DHDD- z9s4?a#+@|Re--yCzI{LT_v2OVUwk`OAKkE3?bKO@=%Q6Oyz)FYPCMeLz3`y4;I9`C zBE(A08{Ph(9o;GsR{zNKM3qI2=V`w*br)VMQ(vyt^OjBddC{d{%Pe`WpMJp?W7C#* zpBHWY)}NB3xO;_l+>|99eyjSKs$N@LrHP&1lD^K?GOzwr>AqR7{&lX~o$=kSOY=r) zX2y}V-}{8l`As$BYce_^AO6hu(Ou;U@2{umuAFw4>&V+>4L6w1Z*B9+no)W>+SKBm z^75pE-(t4*KannY6;$}p;b=hj*4Eg}wSAFXzMjiGSZ~;#*>j+GalnH%8QHUc#O_X= z?X_~M)syBAn@?`F&=UU2&NjQOsx3U-rd&sNL&@g@2g}&_-n~7@z_RFSnZbkSlbpIm zgXEVlFM3+(6VRTp*6P{&b-SFV{GHpO_VE0I;=S$$<#wtLoG;4u*C~9Ey{cL2wKUfx zbItM0rxwMNnLS)sXhPvXz`T8CeFbmYrw zx5wK)9o=1Yy1*#!a*WKJ`2MYD1s|o%Q2lrAx7a^P7xkTdn`HXiZTs6o^A@Sz+2nbu z=tsEb8|%7b5u5mSpGywdC*gQEz+&mHe`V5V`X_~I^IAkC9bE99DXcfS_QpKjpt75j zjqg8`SmCppeJcAQM(2t93$`}wU46A~e&OMj7fa@RNWQYmuk5;&)pw@uwkqfJIb|Mq z{hY!yf_E+Bd({4SdsIi?{!Q2ZCw`1rAm4Xm{jR5(Gd7*Qu=S1Ti_Fgt%7h!FLq6rK zU1?V(x8ir#%g(VLfOd+)(0|NsS Xhy|*zL<~e31aQ@SM{KJZ9M~BEC>Vfl diff --git a/mods/redstone/mesecons_commandblock/depends.txt b/mods/redstone/mesecons_commandblock/depends.txt new file mode 100644 index 00000000..99bc4787 --- /dev/null +++ b/mods/redstone/mesecons_commandblock/depends.txt @@ -0,0 +1,3 @@ +mesecons +doc? +doc_items? \ No newline at end of file diff --git a/mods/redstone/mesecons_commandblock/init.lua b/mods/redstone/mesecons_commandblock/init.lua new file mode 100644 index 00000000..5819946a --- /dev/null +++ b/mods/redstone/mesecons_commandblock/init.lua @@ -0,0 +1,207 @@ +minetest.register_chatcommand("say", { + params = "", + description = "Say as the server", + privs = {server=true}, + func = function(name, param) + minetest.chat_send_all(name .. ": " .. param) + end +}) + +minetest.register_chatcommand("tell", { + params = " ", + description = "Say to privately", + func = function(name, param) + local found, _, target, message = param:find("^([^%s]+)%s+(.*)$") + if found == nil then + minetest.chat_send_player(name, "Invalid usage: " .. param) + return + end + if not minetest.get_player_by_name(target) then + minetest.chat_send_player(name, "Invalid target: " .. target) + end + minetest.chat_send_player(target, name .. " whispers: " .. message, false) + end +}) + +minetest.register_chatcommand("hp", { + params = " ", + description = "Set health of to hitpoints", + privs = {ban=true}, + func = function(name, param) + local found, _, target, value = param:find("^([^%s]+)%s+(%d+)$") + if found == nil then + minetest.chat_send_player(name, "Invalid usage: " .. param) + return + end + local player = minetest.get_player_by_name(target) + if player then + player:set_hp(value) + else + minetest.chat_send_player(name, "Invalid target: " .. target) + end + end +}) + +local function initialize_data(meta) + local commands = minetest.formspec_escape(meta:get_string("commands")) + meta:set_string("formspec", + "invsize[9,5;]" .. + "textarea[0.5,0.5;8.5,4;commands;Commands;"..commands.."]" .. + "label[1,3.8;@nearest, @farthest, and @random are replaced by the respective player names]" .. + "button_exit[3.3,4.5;2,1;submit;Submit]") + local owner = meta:get_string("owner") + if owner == "" then + owner = "not owned" + else + owner = "owned by " .. owner + end + meta:set_string("infotext", "Command Block\n" .. + "(" .. owner .. ")\n" .. + "Commands: "..commands) +end + +local function construct(pos) + local meta = minetest.get_meta(pos) + + meta:set_string("commands", "tell @nearest Commandblock unconfigured") + + meta:set_string("owner", "") + + initialize_data(meta) +end + +local function after_place(pos, placer) + if placer then + local meta = minetest.get_meta(pos) + meta:set_string("owner", placer:get_player_name()) + initialize_data(meta) + end +end + +local function receive_fields(pos, formname, fields, sender) + if not fields.submit then + return + end + local meta = minetest.get_meta(pos) + local owner = meta:get_string("owner") + if owner ~= "" and sender:get_player_name() ~= owner then + return + end + meta:set_string("commands", fields.commands) + + initialize_data(meta) +end + +local function resolve_commands(commands, pos) + local players = minetest.get_connected_players() + + -- No players online: remove all commands containing + -- @nearest, @farthest and @random + if #players == 0 then + commands = commands:gsub("[^\r\n]+", function (line) + if line:find("@nearest") then return "" end + if line:find("@farthest") then return "" end + if line:find("@random") then return "" end + return line + end) + return commands + end + + local nearest, farthest = nil, nil + local min_distance, max_distance = math.huge, -1 + for index, player in pairs(players) do + local distance = vector.distance(pos, player:getpos()) + if distance < min_distance then + min_distance = distance + nearest = player:get_player_name() + end + if distance > max_distance then + max_distance = distance + farthest = player:get_player_name() + end + end + local random = players[math.random(#players)]:get_player_name() + commands = commands:gsub("@nearest", nearest) + commands = commands:gsub("@farthest", farthest) + commands = commands:gsub("@random", random) + return commands +end + +local function commandblock_action_on(pos, node) + if node.name ~= "mesecons_commandblock:commandblock_off" then + return + end + + minetest.swap_node(pos, {name = "mesecons_commandblock:commandblock_on"}) + + local meta = minetest.get_meta(pos) + local owner = meta:get_string("owner") + if owner == "" then + return + end + + local commands = resolve_commands(meta:get_string("commands"), pos) + for _, command in pairs(commands:split("\n")) do + local pos = command:find(" ") + local cmd, param = command, "" + if pos then + cmd = command:sub(1, pos - 1) + param = command:sub(pos + 1) + end + local cmddef = minetest.chatcommands[cmd] + if not cmddef then + minetest.chat_send_player(owner, "The command "..cmd.." does not exist") + return + end + local has_privs, missing_privs = minetest.check_player_privs(owner, cmddef.privs) + if not has_privs then + minetest.chat_send_player(owner, "You don't have permission " + .."to run "..cmd + .." (missing privileges: " + ..table.concat(missing_privs, ", ")..")") + return + end + cmddef.func(owner, param) + end +end + +local function commandblock_action_off(pos, node) + if node.name == "mesecons_commandblock:commandblock_on" then + minetest.swap_node(pos, {name = "mesecons_commandblock:commandblock_off"}) + end +end + +local function can_dig(pos, player) + local meta = minetest.get_meta(pos) + local owner = meta:get_string("owner") + return owner == "" or owner == player:get_player_name() +end + +minetest.register_node("mesecons_commandblock:commandblock_off", { + description = "Command Block", + tiles = {"jeija_commandblock_off.png"}, + inventory_image = minetest.inventorycube("jeija_commandblock_off.png"), + groups = {cracky=2, mesecon_effector_off=1}, + on_construct = construct, + after_place_node = after_place, + on_receive_fields = receive_fields, + can_dig = can_dig, + sounds = default.node_sound_stone_defaults(), + mesecons = {effector = { + action_on = commandblock_action_on + }}, +}) + +minetest.register_node("mesecons_commandblock:commandblock_on", { + tiles = {"jeija_commandblock_on.png"}, + groups = {mesecon_effector_on=1, not_in_creative_inventory=1}, + drop = "mesecons_commandblock:commandblock_off", + on_construct = construct, + after_place_node = after_place, + on_receive_fields = receive_fields, + can_dig = can_dig, + sounds = default.node_sound_stone_defaults(), + mesecons = {effector = { + action_off = commandblock_action_off + }} +})