Could you try this?:
function CommandDoit(a_Split)
do
local area = cBlockArea()
area:Create(500, 100, 100)
for x = 0, 499 do
for y = 0, 99 do
for z = 0, 99 do
area:SetBlockType(x, y, z, 1)
end
end
end
end
collectgarbage()
print("finished")
return true
end

