【CC】电脑mod Lua语言与程序设计讨论帖（9月7日更新） - Minecraft(我的世界)中文论坛

个人感觉这个4是没有必要这么复杂的，“倒车”完全可以通过掉头然后直走来实现，一次次转圈，效率较低。

由于我一开始就决定做成开源的，所以将源代码发布如下：（时间仓促，没错行，望见谅！）

CC++是我个人设计的API，收录了一些常用的功能封成函数，使用时可直接调用（类似C++运行库）。

编程爱好者也可下载作为自己程序的运行库使用，大家想增加什么功能，都可以向我提；也欢迎自编的函数发上来，我会测试收录，谢谢大家！

经过一段时间的积累，又新增了一些函数，从Bate升为Bate0.2版本

--这是一个侦测储物格中是否存在方块的函数。
--被侦测的储物格如果有方块，就返回真；没有就跳到下一格，若16个格子都没有方块，就返回假
function jiance()
n = 1
bzh = 0
local shenyu = turtle.getItemCount(n)
while shenyu == 0 do
n = n+1
if n > 16 then
write "There is not enough boxes, the program exits!\n"
shenyu = 100
bzh = 1
return false
end
turtle.select(n)
shenyu = turtle.getItemCount(n)
end
if bzh ~= 1 then
return true
end
end
--这是一个检测turtle两侧是否有方块的函数。
--若两侧都有方块，返回3；只有左侧有方块，返回2；只有右侧有方块，返回1；两侧都没有方块，返回0。
--测试通过
function jianchazuoyou()
local pd1,pd2 = false,false
turtle.turnLeft()
pd1 = turtle.detect()
turtle.turnRight()
turtle.turnRight()
pd2 = turtle.detect()
turtle.turnLeft()
if pd1 == true then
if pd2 == true then
return 3
else
return 2
end
else
if pd2 == true then
return 1
else
return 0
end
end
pd1,pd2 = nil
end
--这是一个自动打开电脑，掌上电脑，turtle的无线路由器的API
--测试通过
function openRednet()
Side = {"front","back","left","right","top","bottom"}
local n = 1
while n < 7 do
True = peripheral.isPresent(Side[n])
if True == true then
side = Side[n]
end
n = n+1
end
rednet.open(side)
end
--这是一个切换显示器的函数
--测试通过
function screenOutput(sige)
if peripheral.isPresent(sige) then
term.redirect(peripheral.wrap(sige))
term.restore()
else
write "feiled!"
end
end
--turtle加油核心
--这是一个用于给turtle加油的函数。
--若加油成功，返回turn；若失败，返回fslse。
--如果是1.4以下版本的computercraft是不需要此函数的。
--测试通过。
function jiayou()
local n = 0
local js = 0
local yanzhen = false
local yz = false
local t = 5
while js < 4 and yanzhen == false do
while n < 16 do
n = n+1
yz = yanzhen
turtle.select(n)
yanzhen = turtle.refuel(1)
yanzhen = yanzhen or yz
end
if yanzhen == false then
write "Fueling failed, please re-add fuel!\n"
sleep (t)
t = t+1
end
n = 0
js = js+1
end
if yanzhen then
write "add fuel sucess!\n"
return yanzhen
else
write "Adding fuel failure, the end of the program!\n"
return yanzhen
end
turtle.select(1)
end
--这是侦测储油量的函数。
--如果可移动格数小于10格，打出提示信息,并返回1.
--如果燃料耗尽，提示重新加入，并在5秒后自动重新加入燃料。
--如成功,返回0。
--若三次加油均失败，打印加油失败信息，并返回2。
--如果是1.4以下版本的computercraft是不需要此函数的。
--测试通过
function yljc()
local yd = turtle.getFuelLevel()
if yd < 15 and yd > 0 then
print ("Note: The fuel is running out!")
library.jiayou()
return 1
elseif yd == 0 then
local js = 0
local yd = 0
local t = 2
while yd < 10 and js < 4 do
write "Fuel runs out!\nPlease re-fueling\n"
sleep (t)
t = t+5
while turtle.getFuelLevel() <= 15 do
library.jiayou()
end
yd = turtle.getFuelLevel()
js = js+1
end
if js == 4 then
write "Adding fuel failure, the end of the program!"
return 2
else
return 0
end
else
return 0
end
end

复制代码

--挖矿程序核心
--对行走失败时的处理程序，先判断是否是方块阻塞；然后判断是否是生物阻塞；剑要放在第15物品槽中
--测试通过。
function g_obstruct()
bl1 = turtle.dig()
if bl1 == false then
turtle.select(15)
turtle.equipLeft()
turtle.attack()
turtle.attack()
turtle.attack()
turtle.equipLeft()
turtle.select(1)
end
end
--行走函数，可以记录位置（x,y,z）和朝向（direction）；direction1,2,3,0分别代表北、东、南、西
--燃油大于等于最小返回距离时返回true；否则返回false。
--测试通过。
function tT_go(x,y,z,direction,remind)
rhJudge = false
goSuccess = turtle.forward()
while goSuccess == false do
library.g_obstruct()
goSuccess = turtle.forward()
library.yljc()
end
if remind == true then
x,y,z = library.azimuthRecorder(x,y,z,direction,"go")
end
rhJudge = library.g_rhJudge(x,y,z)
return rhJudge,x,y,z
end
--转向函数，记录朝向变化
--返回朝向
--测试通过。
function tT_LR(mode,direction)
if mode == 'l' then
turtle.turnLeft()
_,_,_,direction = library.azimuthRecorder(0,0,0,direction,"turnLeft")
elseif mode == 'r' then
turtle.turnRight()
_,_,_,direction = library.azimuthRecorder(0,0,0,direction,"turnRight")
elseif mode == 'b' then
direction = library.tT_LR('r',direction)
direction = library.tT_LR('r',direction)
end
direction = direction % 4
return direction
end
--方位记录器，在方位（x，y，z）和朝向发生变化时记录变化数据
--返回方位和朝向
--测试通过。
function azimuthRecorder(x,y,z,direction,mode)
if mode == "turnLeft" then
direction = direction - 1
elseif mode == "turnRight" then
direction = direction + 1
elseif mode == "go" then
if direction == 1 then
y = y+1
elseif direction == 2 then
x = x+1
elseif direction == 3 then
y = y-1
elseif direction == 0 then
x = x-1
end
end
return x,y,z,direction
end
--判断返回函数，燃油大于等于最小返回距离时返回true；否则返回false。
--测试通过。
function g_rhJudge(x,y,z)
gH = math.abs(x)+math.abs(y)+math.abs(z)
if gH >= turtle.getFuelLevel() - 1 then
return true
end
return false
end
--最快返回函数，沿最近矿道返回
--测试通过。
function tT_goHome(x,y,z,direction,beginDirection)
if beginDirection == 1 then
library.confirmDirection(3,0,x,y,z,direction)
elseif beginDirection == 2 then
library.confirmDirection(1,0,x,y,z,direction)
elseif beginDirection == 3 then
library.confirmDirection(1,2,x,y,z,direction)
elseif beginDirection == 0 then
library.confirmDirection(3,2,x,y,z,direction)
end
end
--方向确认函数，确认最快返回的方向并计算线路
--测试通过。
function confirmDirection(a,b,x,y,z,direction)
abl_X = math.abs(x) % 5
abl_Y = math.abs(y) % 5
if abl_X >= abl_Y then
while direction ~= a do
direction = library.tT_LR('l',direction)
end
else
while direction ~= b do
direction = library.tT_LR('l',direction)
end
end
if direction == b then
if abl_X ~= 0 then
for i = 0,abl_X-1 do
_,x,y = library.tT_go(x,y,z,direction,false)
end
end
direction = library.tT_LR('r',direction)
if math.abs(y) ~= 0 then
for i = 0,math.abs(y)-1 do
_,x,y = library.tT_go(x,y,z,direction,false)
end
end
direction = library.tT_LR('l',direction)
if math.abs(x)-abl_X ~= 0 then
for i = 0,math.abs(x)-abl_X-1 do
_,x,y = library.tT_go(x,y,z,direction,false)
end
end
elseif direction == a then
if abl_Y ~= 0 then
for i = 0,abl_Y-1 do
_,x,y = library.tT_go(x,y,z,direction,false)
end
end
direction = library.tT_LR('l',direction)
if math.abs(x) ~= 0 then
for i = 0,math.abs(x)-1 do
_,x,y = library.tT_go(x,y,z,direction,false)
end
end
direction = library.tT_LR('r',direction)
if math.abs(y)-abl_Y ~= 0 then
for i = 0,math.abs(y)-abl_Y-1 do
_,x,y = library.tT_go(x,y,z,direction,false)
end
end
direction = library.tT_LR('l',direction)
end
direction = library.tT_LR('r',direction)
direction = library.tT_LR('r',direction)
end

复制代码