Initial commit

This commit is contained in:
E 2021-04-16 21:37:54 -04:00
commit 6ccf34bddc
6 changed files with 308 additions and 0 deletions

208
gwe_csm/init.lua Normal file
View File

@ -0,0 +1,208 @@
local Q={
O={}, -- queue objects
P=0, -- queue position
p=false, -- paused
palette={}, -- blocks we've placed (for chat filtering)
T=0.0, -- time since last block
E=0.0, -- time elapsed
S=1.25, -- time limit
}
--TODO: add negotiation w/ server?
--TODO: add undo by logging original block in the queue then reversing queue direction
minetest.register_globalstep(function(t)
if not Q.p and #Q.O > Q.P then
Q.T=Q.T+t
if Q.T>Q.S then
Q.E=Q.E+t
Q.T=0
Q.P=Q.P+1
local qe=Q.O[Q.P]
local cmd, ca="setblock", qe.x..","..qe.y..","..qe.z.." "..qe.block
minetest.send_chat_message("/"..cmd.." "..ca)
Q.palette[qe.block]=true
-- minetest.display_chat_message("/"..cmd.." "..ca)
-- minetest.run_server_chatcommand(cmd, ca)
end
end
end)
minetest.register_on_receiving_chat_message(function(msg)
for k, v in pairs(Q.palette) do
if msg=="\27(T@mcl_commands)\27F"..k.."\27E spawned.\27E" then -- I have no idea what this string is.
return true
end
end
end)
minetest.register_chatcommand("block", {
params = "<Block> <X> <Y> <Z> [<W> <H> <L>]",
description = "Build a rectangle of <Block> at <X>,<Y>,<Z>",
func = function(params)
local p,op={}, {}
_, _, op.Block, op.X, op.Y, op.Z, op.W, op.H, op.L=string.find(params, "([%S]+) ([-%d]+) ([-%d]+) ([-%d]+) ?([-%d]*) ?([-%d]*) ?([-%d]*)")
for k, v in pairs(op) do
if v~="" then
p[k]=tonumber(v) or v
end
end
if not p.Block or not p.X or not p.Y or not p.Z then
return false, "[Error: bad command]: missing "..((not p.Block) and "Block ") .. ((not p.X) and "X ") .. ((not p.Y) and "Y ") .. ((not p.Z) and "Z")
end
if p.W < 0 then
p.W=-p.W
p.X=p.X-p.W
end
if p.H < 0 then
p.H=-p.H
p.Y=p.Y-p.H
end
if p.L < 0 then
p.L=-p.L
p.Z=p.Z-p.L
end
for x=0,p.W do
for y=0,p.H do
for z=0,p.L do
table.insert(Q.O, {block=p.Block, x=p.X+x-1, y=p.Y+y-1, z=p.Z+z-1})
end
end
end
end,
})
-- TODO: add runtime pattern (re)loading
-- TODO: make different types of patterns available
-- - delta coords, generator functions, "XXXXyXXXX" {X="mcl_core:dirt", y="mcl_core:cobble"}, etc.
gme_designs={
["spiral3x3"]={
{x=-1, y= 0, z=-1},
{x=-1, y= 0, z= 0},
{x=-1, y= 1, z= 1},
{x= 0, y= 1, z= 1},
{x= 1, y= 2, z= 1},
{x= 1, y= 2, z= 0},
{x= 1, y= 3, z=-1},
{x= 0, y= 3, z=-1},
},
},
minetest.register_chatcommand("spiral3x3", {
params = "<Block> <H> [<X> <Y> <Z>]",
description = "Build a powered rail spiral at <H>×4 block high at <X>,<Y>,<Z> or your current position.",
func = function(params)
local p,op={}, {}
_, _, op.Block, op.H, op.X, op.Y, op.Z=string.find(params, "([%S]+) ([%d]+) ?([-%d]*) ?([-%d]*) ?([-%d]*)")
for k, v in pairs(op) do
if v~="" then
p[k]=tonumber(v) or v
end
end
if not p.Block or not p.H then
return false, "[Error: bad command]: missing "..((not p.Block) and "Block ") .. ((not p.H) and "H ")
end
if not p.X or not p.Y or not p.Z then
local pp=minetest.localplayer:get_pos()
p.X, p.Y, p.Z=pp.x, pp.y, pp.z
end
for n=0,p.H do
for k, v in ipairs(gme_designs["spiral"]) do
table.insert(Q.O, {block=p.Block, x=p.X+v.x, y=p.Y+v.y+(n*4), z=p.Z+v.z})
table.insert(Q.O, {block="mcl_minecarts:golden_rail", x=p.X+v.x, y=p.Y+v.y+1+(n*4), z=p.Z+v.z})
end
end
end,
})
minetest.register_chatcommand("spiral5x5", {
params = "<Block> <H> [<X> <Y> <Z>]",
description = "Build a powered rail spiral at <H>×4 block high at <X>,<Y>,<Z> or your current position.",
func = function(params)
local p,op={}, {}
_, _, op.Block, op.H, op.X, op.Y, op.Z=string.find(params, "([%S]+) ([%d]+) ?([-%d]*) ?([-%d]*) ?([-%d]*)")
for k, v in pairs(op) do
if v~="" then
p[k]=tonumber(v) or v
end
end
if not p.Block or not p.H then
return false, "[Error: bad command]: missing "..((not p.Block) and "Block ") .. ((not p.H) and "H ")
end
if not p.X or not p.Y or not p.Z then
local pp=minetest.localplayer:get_pos()
p.X, p.Y, p.Z=pp.x, pp.y, pp.z
end
local dm, dmi={
{x= 1,z= 0},
{x= 0,z= 1},
{x=-1,z= 0},
{x= 0,z=-1},
}, 1
local l={x=p.X+2, y=p.Y, z=p.Z-2}
for n=0,p.H+math.floor(p.H/4) do
local nd=math.floor(n/4)+1
dmi=(nd%#dm)+1
-- print("dmi:", n, nd, dmi, dump2(dm[dmi]))
local nl={
x=l.x+dm[dmi].x,
y=l.y+1,
z=l.z+dm[dmi].z,
}
if n%4==0 then
nl.y=l.y
else
if n%5~=0 then
table.insert(Q.O, {block="mcl_ocean:sea_lantern", x=p.X, y=nl.y, z=p.Z})
end
table.insert(Q.O, {block=p.Block, x=nl.x, y=nl.y-1, z=nl.z})
end
table.insert(Q.O, {block=p.Block, x=nl.x, y=nl.y, z=nl.z})
table.insert(Q.O, {block="mcl_minecarts:golden_rail", x=nl.x, y=nl.y+1, z=nl.z})
l=nl
end
end,
})
minetest.register_chatcommand("delay", {
params = "<S>",
description = "Set delay to S seconds per-operation (Default of 1.25s)",
func = function(param)
Q.S=tonumber(param)
return true, "[Delay set]"
end,
})
minetest.register_chatcommand("pause", {
description = "Toggle execution of the GWB queue",
func = function(param)
Q.p=not Q.p
if Q.p then
return true, "[Queue paused]"
else
return true, "[Queue resumed]"
end
end,
})
minetest.register_chatcommand("abort", {
description = "Clear the current GWB edit queue",
func = function(param)
Q.O={}
Q.P=0
Q.T=0.0
Q.palette={}
return true, "[Queue cleared]"
end,
})
minetest.register_chatcommand("status", {
description = "View the current queue status",
func = function(param)
return true, "Queue:\n"..
(#Q.O).." operations ("..(#Q.O-Q.P).." remaining) = "..((Q.P/#Q.O)*100).."%\n"..
Q.S.."s per operation\n"..
"~"..((#Q.O-Q.P)*Q.S).."s remaining"
end,
})

2
gwe_csm/mod.conf Normal file
View File

@ -0,0 +1,2 @@
name = gwe
description = Ghetto WorldEdit

69
ping_csm/init.lua Normal file
View File

@ -0,0 +1,69 @@
local dndl=nil
local dnd=false
local mcount=0
local function get_dnd_hud_text() return " mention DND (" .. mcount .. ")" end
local s=Settings and Settings("ping.conf") or nil -- apparently this isn't added yet?
local snd=s and s.get("sound") or "awards_got_generic"
local vol=s and tonumber(s.get("volume")) or 1.0
local col=s and s.get("color") or "#FF1111"
local hist={}
local function log_history(msg)
-- escape string for later
local n=string.gsub(msg, "([%^%$%(%)%%%.%[%]%*%+%-%?])", "%%%1")
table.insert(hist, n)
return false
end
local function do_ping(msg)
for k, v in ipairs(hist) do
if v ~= "" and string.match(msg, v) then
table.remove(hist, k)
return false
end
end
local n=minetest.localplayer:get_name()
if string.match(msg, "%W"..n.."%W") then
minetest.display_chat_message(string.gsub(msg, "(%W)("..n..")(%W)", "%1"..minetest.colorize(col, "%2").."%3"))
if not dnd then
minetest.sound_play(snd, { gain=vol } )
else
mcount=mcount+1
minetest.localplayer:hud_change(
dndl,
"text",
get_dnd_hud_text()
)
end
return true
end
end
minetest.register_chatcommand("dnd", {
description = "Toggle *ping Do-Not-Disturb",
func = function(param)
dnd=not dnd
local s="off"
if dnd then
s="on"
dndl=minetest.localplayer:hud_add({
position={x=0,y=0.5},
number=0xFF1111,
text=" mention DND",
alignment={x=1,y=0},
})
elseif dndl ~= nil then
minetest.localplayer:hud_remove(dndl)
dndl=nil
mcount=0
end
return true, "DND is "..s
end,
})
minetest.register_on_sending_chat_message(log_history)
minetest.register_on_receiving_chat_message(do_ping)

2
ping_csm/mod.conf Normal file
View File

@ -0,0 +1,2 @@
name = ping
description = Play a sound when someone says *ping

25
repl_csm/init.lua Normal file
View File

@ -0,0 +1,25 @@
minetest.register_chatcommand("e", {
params = "<code>",
description = "Evaluate <code>, print the results",
func = function(param)
if not param then
return false
end
local ok, fn = pcall(function()
return loadstring(param)
end)
if ok ~= true then
return false, "[err loading]: "..fn
end
local ok, res = pcall(fn)
if ok == true then
if res then
return true, "[ok]: "..dump2(res)
else
return true, "[ok]"
end
else
return false, "[err executing]: "..res
end
end,
})

2
repl_csm/mod.conf Normal file
View File

@ -0,0 +1,2 @@
name = repl
description = Read. Eval. Print. Loop.