StarMirror/OpenComputerScripts
1
0
Fork 0
mirror of https://github.com/Kiritow/OpenComputerScripts.git synced 2024-03-22 13:10:46 +08:00
Code Issues Projects Releases Wiki Activity

Try to fix debug call errors

Browse Source
This commit is contained in:
Kirigaya Kazuto 2018-03-12 17:02:06 +08:00
parent 6d5160fa77
commit 9cbe89fc5c
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
world.lua
View File

@ -14,20 +14,21 @@ function CopyArea(ax,ay,az,bx,by,bz)
if(az>bz) then az,bz=bz,az end if(az>bz) then az,bz=bz,az end
local total=(bx-ax+1)*(by-ay+1)*(bz-az+1) local total=(bx-ax+1)*(by-ay+1)*(bz-az+1)
local cnt=0 local cnt=0
local world=debugcard.getWorld()
for x=ax,bx,1 do for x=ax,bx,1 do
for y=ay,by,1 do for y=ay,by,1 do
for z=az,bz,1 do for z=az,bz,1 do
cnt=cnt+1 cnt=cnt+1
print("Adding Block (" .. x .. "," .. y .. "," .. z .. ") " .. cnt .. " of " .. total .. " [" .. cnt*100/total .. "%]") print("Adding Block (" .. x .. "," .. y .. "," .. z .. ") " .. cnt .. " of " .. total .. " [" .. cnt*100/total .. "%]")
if(not debugcard.getWorld().isLoaded(x,y,z)) then if(not world.isLoaded(x,y,z)) then
error("Block (" .. x .. "," .. y .. "," .. z .. ") is not loaded.") error("Block (" .. x .. "," .. y .. "," .. z .. ") is not loaded.")
end end
local t={} local t={}
t.x=x t.x=x-ax
t.y=y t.y=y-ay
t.z=z t.z=z-az
t.id=debugcard.getWorld().getBlockId(x,y,z) t.id=world.getBlockId(x,y,z)
t.meta=debugcard.getWorld().getMetadata(x,y,z) t.meta=world.getMetadata(x,y,z)
table.insert(box,t) table.insert(box,t)
end end
end end
@ -40,7 +41,7 @@ function PasteArea(box,ax,ay,az)
local world=debugcard.getWorld() local world=debugcard.getWorld()
for k,v in ipairs(box) do for k,v in ipairs(box) do
print("Pasting to (" .. ax+v.x .. "," .. ay+v.y .. "," .. az+v.z .. ")") print("Pasting to (" .. ax+v.x .. "," .. ay+v.y .. "," .. az+v.z .. ")")
world.setBlock(ax+v.x,ay+v.y,az+v.z,v.meta) world.setBlock(ax+v.x,ay+v.y,az+v.z,v.id,v.meta)
cnt=cnt+1 cnt=cnt+1
end end
return cnt return cnt