\sƒ+&v0,˶ʑVG^!0$' [ u؊$\=1C?
c%}\տx]ygmr*L.3L%Iv_z?ɵ*$T\ :堻Z:`]mפ :{x}+ұʕݻJ {\yWW+ֿ>ׯv{~(;LH~vEm;W忺y/.Ҩ`?>ʧꉽ>8q wp|ϝ'ukיma9GxïO3: !ʶCi'
U?J9Ytk+C\Og9I-1N&b09+Κ ŧg^ i(P PɼȸA$M3PR[4ɫ;ʯHV/d ㉳Ivqq@ lKʴ؝I{Ic%шXBƁ8E;D(ش0$048^Yn%i
ѫ~f3^=!s'Q هrE033gsP$CKsd; jLȣD~.TH.cB 3rgQBa-)C
mL&Ibb5Թ"C"#@v53-1S8{Z^EM&zO[g~{?&+XU)H 5
UVH<'1ޔ3B]O 5=T(AJDh
)v(A '. a!2^~/՚S}k.< rX (,jYߑ* +fZevB@znViVEn`1T4@siksJ)^K\@F#0$L)PbD'@fv#̉߹ʩ ٹ
.$hbڱo
]OZ(
'uFMw.G%F%FA0Vv
8aHDN%zf
mXewį[ gB@2F5VJH$$ P>6d(Ag-BYfײ/s c/ЍIZd1eKXF7۷qQPu*"nPi31>B,?K䴣$ ,SgNatXa=R3dlB\|*f8wwl.9KeQd52t%1>X䗩-Y 5g\Õ#j EQ aN#ف "I,Gkbrɀ|XXOG #[/kFl7KMZs|z:=1Sojɑ7*`B$ͬ "e U{ ~EDn ,Ire1JLH28BK=5"qE5{"¬ղAo{8wEר:gX,RI\ioZzM]{!TDȦ Ip$
EC줭U254"@t"Fo(U}Oݫ W1">]bpZ 6Y'3A,Xurfl}@ьU(nB҅FcnPFYѵ$.y1$ej5܉8 D %;)I}#TW.Y 3uUK;+~viNxc
j \; _q2R=E G2v+ɪ8GA Up NX f?ӞC' {Ss騒t{<5'TS%Le3 V]rUG e5fTi>U& \X圞v\O#eL0;S.)䱈tl \ʣqnW̦74=gɏ2~Uᔻ;8O=%~WB"TeU D *hU\ C\R3Rp5(4_Vq "<__
˸_%S
'%__GkW8% NlI1xJD$rv.= _XCbXU`7< %aQJL>bX[!<*^FLm!^Ju 7uق@oSM s&<cJ뼌GP] nƃ_plZT3 7$0E <2_r7 Qx WPR jUl SB͡lgXJ | ėt$(_=K:ADV N%ձ8ĢKz6;;]q&>=
f? nl @;֎=#g1kOP|?>9=ڣ?(H}O[ $62ްǟl T|۴ bO8U:ِFI[9(Ûw,uW}vu6En{|Z..4=.j [M-6B(B+ =:R4pID\>"yKVEP %r$^_aD{<͊'2 ?4F! ʓ$
ciOMdQm_-4Y5NTތeEźDjZi1 t*t)axy!NT$svhvx
s PB-ݵAk1?; /~7M9>;뫛x~Xtr~^R3˂zS cS} 3qS xh2\QmnOG NakU oxו @0ʜ)֝TTG)1PpH"
$Y~nn繷o 0֍P!bnau tF<'~o1xLKEʳb왻A JxjUh(=3n4*#+.L^)JlxU|kYBǔe~fցۍ.pX=b) O*6*bT9 $/~s^Q?IϿg˿Դ_~_k3&hK ĖJX_Je |NwN{P[U+Bsռ}z. %- "C}R;_R]/.uNϗ/x$}0.FeP_PK3Ϛ>)_Ń;wN^vaٕ:7~4j {voDqN)jy}˕'yYf0S~N,_qүܬowvyr審 }I֦ßvMmI?WٜFGBGr&X
CI$9MЫXhyyI1[ Γ#a%'Q/5˶ ѦFb`쿓}WvY}WiԷfU:Kϕ| LB !Z knSWU,P粥J
%1
<= {ߓ )k̈dYdןP4ruc4l{ g,2?X!ꗅ`z| 3}l|bV g7v}3i *lafY` ZfmUtzS&{NB~W5TAGk9.!^VE,\?/ #k5[`=riI\.-~D |]% 秎\fת(]3Y%
^Jaw00{جFms^ g(E?9}z nw#Ҕ=] wr `T%G_=_Z M1CXĹ{cE 6[Z_ w|~w/K <nĒ.|.:8әAntm.R@ۓW
`+l^vk*aI.C+bz
r`sy&^zpJE/ڰ[G\ z:j㜤Wڦy\q<)]s1fCY{G6;짟
L()FLodOE9 ᰜX&_ <[fpHg/Y`T[(FX\IyɒUq{= d.h ̕ӧ `TI4Z
local map_def={
example = {
p1x=168,
p1z=530,
p2x=780,
p2z=1016,
background="itm_example.png",
},
}
local itm_cache={}
local itm_pdata={}
local itm_conf_mindia=0.1
minetest.register_privilege("itm", { description = "Allows to display train map", give_to_singleplayer = true, default = false })
local function create_map_form_with_bg(d)
local minx, minz, maxx, maxz = math.min(d.p1x, d.p2x), math.min(d.p1z, d.p2z), math.max(d.p1x, d.p2x), math.max(d.p1z, d.p2z)
local form_x, form_z=10,10
local edge_x, edge_z = form_x/(maxx-minx), form_z/(maxz-minz)
local len_x, len_z=math.max(edge_x, itm_conf_mindia), math.max(edge_z, itm_conf_mindia)
local form="size["..(form_x+edge_x)..","..(form_z+edge_z).."] background[0,0;0,0;"..d.background..";true] "
local lbl={}
for pts, tid in pairs(advtrains.detector.on_node) do
local pos=minetest.string_to_pos(pts)
form=form.."box["..(edge_x*(pos.x-minx))..","..(form_z-(edge_z*(pos.z-minz)))..";"..len_x..","..len_z..";red]"
lbl[sid(tid)]=pos
end
for t_id, xz in pairs(lbl) do
form=form.."label["..(edge_x*(xz.x-minx))..","..(form_x-(edge_z*(xz.z-minz)))..";"..t_id.."]"
end
return form
end
local function create_map_form(d)
if d.background then
return create_map_form_with_bg(d)
end
local minx, minz, maxx, maxz = math.min(d.p1x, d.p2x), math.min(d.p1z, d.p2z), math.max(d.p1x, d.p2x), math.max(d.p1z, d.p2z)
local form_x, form_z=10,10
local edge_x, edge_z = form_x/(maxx-minx), form_z/(maxz-minz)
local len_x, len_z=math.max(edge_x, itm_conf_mindia), math.max(edge_z, itm_conf_mindia)
local form="size["..(form_x+edge_x)..","..(form_z+edge_z).."]"
local lbl={}
for x,itx in pairs(itm_cache) do
if x>=minx and x<=maxx then
for z,y in pairs(itx) do
if z>=minz and z<=maxz then
local adn=advtrains.detector.get({x=x, y=y, z=z})
local color="gray"
if adn then
color="red"
lbl[sid(adn)]={x=x, z=z}
end
form=form.."box["..(edge_x*(x-minx))..","..(form_z-(edge_z*(z-minz)))..";"..len_x..","..len_z..";"..color.."]"
end
end
end
end
for t_id, xz in pairs(lbl) do
form=form.."label["..(edge_x*(xz.x-minx))..","..(form_x-(edge_z*(xz.z-minz)))..";"..t_id.."]"
end
return form
end
local function cache_ndb()
itm_cache={}
local ndb_nodes=advtrains.ndb.get_nodes()
for y, xzt in pairs(ndb_nodes) do
for x, zt in pairs(xzt) do
for z, _ in pairs(zt) do
if not itm_cache[x] then
itm_cache[x]={}
end
itm_cache[x][z]=y
end
end
end
end
minetest.register_chatcommand("itm", {
params="[x1 z1 x2 z2] or [mdef]",
description="Display advtrains train map of given area.\nFirst form:[x1 z1 x2 z2] - specify area directly.\nSecond form:[mdef] - Use a predefined map background(see init.lua)\nThird form: No parameters - use WorldEdit position markers.",
privs={itm=true},
func = function(name, param)
local mdef=string.match(param, "^(%S+)$")
if mdef then
local d=map_def[mdef]
if not d then
return false, "Map definiton not found: "..mdef
end
itm_pdata[name]=map_def[mdef]
minetest.show_formspec(name, "itrainmap", create_map_form(d))
return true, "Showing train map: "..mdef
end
local x1, z1, x2, z2=string.match(param, "^(%S+) (%S+) (%S+) (%S+)$")
if not (x1 and z1 and x2 and z2) then
if worldedit then
local wep1, wep2=worldedit.pos1[name], worldedit.pos2[name]
if wep1 and wep2 then
x1, z1, x2, z2=wep1.x, wep1.z, wep2.x, wep2.z
end
end
end
if not (x1 and z1 and x2 and z2) then
return false, "Invalid parameters and no WE positions set"
end
local d={p1x=x1, p1z=z1, p2x=x2, p2z=z2}
itm_pdata[name]=d
minetest.show_formspec(name, "itrainmap", create_map_form(d))
return true, "Showing ("..x1..","..z1..")-("..x2..","..z2..")"
end,
})
minetest.register_chatcommand("itm_cache_ndb", {
params="",
description="Cache advtrains node database again. Run when tracks changed.",
privs={itm=true},
func = function(name, param)
cache_ndb()
return true, "Done caching node database."
end,
})
local timer=0
function advtrains_itm_mainloop(dtime)
timer=timer-math.min(dtime, 0.1)
if timer<=0 then
for pname,d in pairs(itm_pdata) do
minetest.show_formspec(pname, "itrainmap", create_map_form(d))
end
timer=2
end
end
minetest.register_on_player_receive_fields(function(player, formname, fields)
if formname=="itrainmap" and fields.quit then
itm_pdata[player:get_player_name()]=nil
end
end)
function advtrains_itm_init()
--automatically run itm_cache_ndb
minetest.after(2, cache_ndb)
end