cc-memo

build craftの水門とタートルを使ったバケツフィラー（動画有り）

Sun, 15 Jun 2014 04:22:29 GMT

・空バケツで液体を汲む作業の自動化。バケツフィラーのタートル版。
・前回作った「autoRefuel」で面倒くさかった、溶岩バケツの補充を楽にする為に作成。
・この ”システム” から、どこかの「autoRefuel」施設までバケツを運ぶ部分は未完なので、
　まだ面倒くさいままですが。
・溶岩以外の液体でも使用可能。Build Craftのオイルとか。
・作っている途中で「Minecraftとタートルと僕」の中の人に、
　MoreTurtlesの「液体タートル」を使う方法を教えていただいたのですが、
　作りかけを捨てるのももったいないので、意地で作成。
　（早くこれを終わらせてえさやりタートル使いたい、、、）

【構成要素の説明】

つづきはこちら

filer（ファイラー）

Sun, 01 Jun 2014 17:49:24 GMT

標準の ls が遅いので、単に早いだけの ls を作ろうとしていたはずだったのだが、ついつい機能を追加してしまい、ファイラーのようなものになってしまったので、filerという名前にした。
※どうでもいいけど、得られる便利さに見合わないぐらいソースが長い気がする、、、

画像で説明

filerコマンドを実行すると、カレントディレクトリのファイルとディレクトリが、画像のように表示される。
・qキーを押すと、filerコマンドを終了する。
・カーソルの上下でページを切り替えることができる。
　⇒５ページ目を表示した後で、４ページ目に戻る、という操作が可能。
・この状態でカーソルキーの右を押すと、、、

画像のように、ファイル／ディレクトリを選択する矢印（-->）が表示される。
・カーソルキーの左を押すと、最初の状態（矢印が表示されない状態）に戻る。
・カーソルキーの右を押すことで、矢印の左側にある”アクション”を切り替える事ができる。
　以下の”アクション”が選択できる。
　・cd　　ディレクトリ移動（選択項目がディレクトリの場合）
　・edit　　選択したファイルを edit コマンドで開く（選択項目がファイルの場合）
　・delete　選択したファイルを削除する
　・rename　選択したファイルのファイル名を変更する
　・copy　　選択したファイルをコピーする。（同一ディレクトリ内でのコピー専用）
　・move　　選択したファイルを移動、または、コピーする。
　　（別のディレクトリに移動／コピーする場合に使用）
　・[other]　任意のコマンドを実行する。
　　　コマンドを入力する場面で、カーソルキーの上を押すと、
　　　選択したファイル／ディレクトリ名が表示され、それを編集できるので、少し楽かも。

つづきはこちら

tr (turtle runner)

Sun, 18 May 2014 19:32:21 GMT

・trというコマンドを作ってみた。
・いつもの俺々フレームワークの「ミニ言語」を使ってタートルを動かす為のプログラム。
・ちょっとした用事の為にタートルを使いたいと思っても、
　わざわざその為のプログラムを書くは面倒くさい、という場合に
　このtrコマンドを使って、使い捨てのプログラムを作って走らせると良いかもしれない。
　ファイルに保存することも可能。
　そのファイルをeditで編集して、trで実行させることも可能。
　（但しまだ改行は非対応、、、だと思う）
・ヘルプ機能付き。

　tr --help

　というように、trコマンドの後に「--help」オプションを付けて実行すると、
　linuxとかの「manページ」風のヘルプが表示される。

　また、「ミニ言語」のスクリプト入力中に、
　どんなコマンドが有るか忘れてしまった場合は、スクリプト中に「?」と入力し、
　Enterキーを押すことでもヘルプが表示される。
　ヘルプ終了後、元のスクリプトの作成を再開することができる。
・もう少し盛り込みたい機能もあるのだが、とりあえず投稿。

画像で説明。

trと打つと上記のメッセージが表示されるので、ここにタートルを動かす手順を記入する。
この例では
((ffr)4)2
と入力しているが、これは
前進、前進、右に９０度回転
を８回繰り返す、という意味。

つづきはこちら

autoRefuel

Thu, 15 May 2014 19:44:44 GMT

タートルの給油、面倒ですよね。

そこで今回ご紹介したいのが、この、

つづきはこちら

バグ取り

Tue, 13 May 2014 12:39:42 GMT

（注：バグまだ取れてません、、、）

『テスト用拠点６号』。

『遠征どこでもドア』と『ChickenChunks』を愛用しています。

今回はバグ取りをしてゆきます。

タートル同士で共食いをしてしまう件。掘られたタートルが持っていたアイテムが散らばってしまうので、デフォルトでは行えないようにする。<<< 1 >>>

目の前にブロックが有って、それがタートルではない場合は掘っても良い。という条件にした。
（turtle.detect() == true かつ、peripheral.getType("front") が "turtle" を返さない場合。）

turtle.detect()を条件に加えていないと、
判定しようとしている場所に、タートルが移動して入り込んできているが、まだ止まっていない状態を検知できずに、タートルをdig()してしまう。
この時、peripheral.getType("front") 等が "turtle" を返さない為。

でも、溶岩や水源等もturtle.detect() == falseなので、それらを掘って排除することが出来なくなってしまった。

拠点を作ろうとした場所に溶岩の池があったとしても、これまでは、溶岩を掘って消し去ることが出来たのだが、これからどうしたものか、、、（拠点を作る場合は、他のタートルを壊しても良い、というふうに割り切るのも何か微妙。）

次、

つづきはこちら

昨晩のブランチマイニング結果

Mon, 12 May 2014 12:59:14 GMT

バグ取りする気が起きないので、ちょっとお茶を濁してみる。
『テスト用拠点４号』。マイニングタートル８機で採掘。
上段の４機は行儀良く待機していてくれたが、エラーが出てた。

下段の４機には、fuelLevelが2000以下の時にスタート地点で中断するコードが入っていなかった為、各機好き勝手な場所で燃料切れ。

別のタートルに掘られてチェストに収まってるやつとかも居た。

成績はこんな感じ。

つづきはこちら

mining （ブランチマイニング）

Thu, 08 May 2014 14:59:24 GMT

mining
ブランチマイニングを行うプログラム。

つづきはこちら

nekoPosi() / nekoNega()

Wed, 07 May 2014 08:12:16 GMT

lib_neko_0.1.1
マイニングタートルで、ブランチマイニングをする時などに使用する、
必要なブロックだけを根こそぎ採集するプログラム（ライブラリ）。

つづきはこちら

kyoten／採掘・移動に失敗する場合の考慮

Fri, 02 May 2014 09:20:47 GMT

kyoten
地下深くに拠点（と称した適当な大きさの部屋）を作るプログラム。
ブランチマイニングの拠点として使用する場合は、高度80以下の場所から開始する必要有り。

lib_turtle_0.2.1
毎度の俺々フレームワーク
以下は、lib_turtle_0.2.0からの更新点

[採掘時に砂とか砂利が落ちてくる場合を考慮して処理を追加した]
上を掘る場合
砂や砂利が崩れてくる場合があるので、掘った方向のブロックがなくなるまで、採掘を繰り返す。

正面を掘る場合
砂や砂利が崩れてくる場合があるので、掘った方向のブロックがなくなるまで、採掘を繰り返す。

①はsleep(0)の間隔で目の前のブロックがなくなるまでdig()することでクリア出来るが、、、

①
　砂
　砂
　砂
亀石
石石石

つづきはこちら

archer3

Thu, 01 May 2014 09:33:53 GMT

archer2をさらに改良。繰り返し処理も「ミニ言語」？内で行えるようにした。
debug.logには、かなりお世話になった。

lib_log

LOG_FILE_NAME = "debug.log";

function log(txt)

local hFile;

if fs.exists(LOG_FILE_NAME) then

hFile = fs.open(LOG_FILE_NAME, "a");

else

hFile = fs.open(LOG_FILE_NAME, "w");

end

hFile.writeLine(txt);

hFile.close();

end

lib_turtle_0.2.0

dofile("lib_log");

local function myPlace(para1)

if para1 == 0 then

turtle.placeUp();

elseif para1 == 1 then

turtle.place();

elseif para1 == 2 then

turtle.placeDown();

end

local function myThrow(para1, para2)

if para1 == 0 then

turtle.dropUp(para2);

elseif para1 == 1 then

turtle.drop(para2);

elseif para1 == 2 then

turtle.dropDown(para2);

end

local function myExcavate(para1)

if para1 == 0 then

turtle.digUp();

elseif para1 == 1 then

turtle.dig();

elseif para1 == 2 then

turtle.digDown();

end

local function myZzz(para1)

sleep(para1 / 1000);

end

local function myOutput(para1, para2)

local dir = { [0] = "top", [1] = "front", [2] = "bottom",

[3] = "left", [4] = "back", [5] = "right" };

if para2 == 1 then

rs.setOutput(dir[para1], true);

else

rs.setOutput(dir[para1], false);

end

local cmdInfo =

{

f = { paraCnt = 0, func = turtle.forward; }, -- [f]orward

b = { paraCnt = 0, func = turtle.back; }, -- [b]ack

l = { paraCnt = 0, func = turtle.turnLeft; }, -- turn [l]eft

r = { paraCnt = 0, func = turtle.turnRight; }, -- turn [r]ight

u = { paraCnt = 0, func = turtle.Up; }, -- [u]p

d = { paraCnt = 0, func = turtle.Down; }, -- [d]own

s = { paraCnt = 1, func = turtle.select; }, -- [s]elect

p = { paraCnt = 1, func = myPlace; }, -- [p]lace

t = { paraCnt = 2, func = myThrow; }, -- [t]hrow = drop

e = { paraCnt = 1, func = myExcavate; }, -- [e]xcavate = dig

z = { paraCnt = 1, func = myZzz; }, -- [z]zz = sleep

o = { paraCnt = 2, func = myOutput; }, -- set [o]utput (redstone)

};

local function getParam(command, idx)

local buff = "";

local ch = "";

for i = idx, command:len() do

ch = command:sub(i, i);

--log("getParam i = " .. i .. " / ch =[" .. ch .. "]");

if ch == "," then

if buff == "" then

return nil, i + 1;

else

return tonumber(buff), i + 1;

end

elseif nil ~= string.find("0123456789", ch, 1, true) then

buff = buff .. ch;

else

if buff ~= "" then

return tonumber(buff), i;

end

if buff == "" then

return nil, command:len() + 1;

else

return tonumber(buff), command:len() + 1;

end

local function get1Cmd(command, idx)

local cmd = string.sub(command, idx, idx);

local para1, para2, nextIdx, paraCnt;

--log(idx .. " / " .. cmd);

if nil ~= cmdInfo[cmd] then

paraCnt = cmdInfo[cmd].paraCnt;

else

--log("unknown command [" .. cmd .. "]");

error("unknown command [" .. cmd .. "]");

end

if -1 == paraCnt then

return nil, nil, nil, idx + 1;

elseif paraCnt == 0 then

return cmd, nil, nil, idx + 1;

elseif paraCnt == 1 then

para1, nextIdx = getParam(command, idx + 1);

return cmd, para1, nil, nextIdx;

elseif paraCnt == 2 then

para1, nextIdx = getParam(command, idx + 1);

para2, nextIdx = getParam(command, nextIdx);

return cmd, para1, para2, nextIdx;

end

local function checkLoop(command)

local kBgn = {""};

local loopInfo = {};

local ch, repeatCnt, nextIdx, kBgnIdx;

for i = 1, command:len() do

ch = command:sub(i, i);

if "(" == ch then

table.insert(kBgn, i);

elseif ")" == ch then

repeatCnt, nextIdx = getParam(command, i + 1);

loopInfo[i] = { beginIdx = table.remove(kBgn),

endIdx = i,

nextIdx = nextIdx,

repeatCnt = repeatCnt,

currentCnt = 0 };

--log("loopInfo[" .. i .. "]");

--log(" beginIdx = " .. loopInfo[i].beginIdx);

--log(" endIdx = " .. loopInfo[i].endIdx);

--log(" nextIdx = " .. loopInfo[i].nextIdx);

--log(" repeatCnt = " .. loopInfo[i].repeatCnt);

--log(" currentCnt = " .. loopInfo[i].currentCnt);

i = nextIdx;

end

return loopInfo;

end

function doCommand(command)

command = command .. " ";

local loopInfo = checkLoop(command);

--for i, dat in pairs(loopInfo) do

--log("check loopInfo")

--log(" i = " .. i);

--log(" " .. dat.beginIdx .. " / " .. dat.endIdx .. " / " .. dat.repeatCnt);

--end

local cmd, para1, para2, nextIdx, ch;

local i = 1;

while true do

ch = command:sub(i, i);

--log("doCommand idx = " .. i .. " [" .. ch .. "]");

if ")" == ch then

--log("i = " .. i);

--log( loopInfo[i].beginIdx .. " / " .. loopInfo[i].endIdx .. " / "

-- .. loopInfo[i].nextIdx .. " / " .. loopInfo[i].repeatCnt);

loopInfo[i].currentCnt = loopInfo[i].currentCnt + 1;

if loopInfo[i].repeatCnt <= loopInfo[i].currentCnt then

loopInfo[i].currentCnt = 0;

i = loopInfo[i].nextIdx;

else

i = loopInfo[i].beginIdx;

end

elseif " " == ch then

i = i + 1;

elseif "\n" == ch then

i = i + 1;

elseif "(" == ch then

i = i + 1;

else

cmd, para1, para2, nextIdx = get1Cmd(command, i);

--log(" nextIdx = " .. nextIdx);

i = nextIdx;

if cmd ~= nil then

cmdInfo[cmd].func(para1, para2);

end

if command:len() <= i then

break;

end

archer3

dofile("lib_turtle_0.2.0");

local NUM_SHOT = 3;

local NUM_STEP = 4;

local SHOT_WAIT = 0.2 * 1000;

local cmd =

"ll"

.. "\n("

.. "\n s2 p0 s3 t0," .. NUM_SHOT

.. "\n ("

.. "\n o0,1"

.. "\n z" .. SHOT_WAIT

.. "\n o0,0"

.. "\n z" .. SHOT_WAIT

.. "\n )" .. NUM_SHOT

.. "\n s2 e0 (b)4"

.. "\n)" .. NUM_STEP;

print("cmd:" .. cmd);

doCommand(cmd);