MOD解説 > ComputerCraft > サンプルプログラム

サンプルプログラムについて

サンプルプログラム

パスワードドア

pass = ("password")
print("Enter password.")
a = read()
if a == pass then
  print("Password correct!")
  rs.setOutput("Output", true)
  sleep(N)
  rs.setOutput("Output", false)
else
  print("Password incorrect!")
end

NOT回路

if rs.getInput("Input") == false then
  rs.setOutput("Output", true)
end
while true do
  os.pullEvent("redstone")
  if rs.getInput("Input") == true then
    rs.setOutput("Output", false)
  else
    rs.setOutput("Output", true)
  end
end

ランダムパルス回路

while true do
  a = math.random(1, 10)
  if a == 5 then
    rs.setOutput("Output", true)
    sleep(0.2)
    rs.setOutput("Output", false)
    sleep(0.2)
  else
    sleep(0.4)
  end
end

ワイヤレスレッドストーンスイッチ

rednet.open("modem")
rednet.send(id, "")

rednet.open("modem")
while true do
  os.pullEvent("rednet_message")
  rs.setOutput("Output", true)
  os.pullEvent("rednet_message")
  rs.setOutput("Output", false)
end

鉄道建設プログラム

function reversedirection()
  turtle.turnRight()
  turtle.turnRight()
end

function dig(n)
  turtle.up()
  for i=1,n do
    while turtle.detect() == true do
      turtle.dig()
      sleep(0.5)
    end
    turtle.forward()
    turtle.digDown()
  end
  turtle.down()
end

function construction(n)
  for i=1,n do
    if turtle.detectDown() == false then
      turtle.select(1)
      turtle.placeDown()
      turtle.up()
    else
      turtle.up()
    end
    turtle.select(2)
    turtle.placeDown()
    turtle.forward()
    turtle.down()
  end
end

a = read()
dig(a)
reversedirection()
construction(a)
reversedirection()

Turtle遠隔操作プログラム

function keyconvert(k)
  if k == 17 then
    return "Forward"
  elseif k == 31 then
    return "Back"
  elseif k == 30 then
    return "TurnLeft"
  elseif k == 32 then
    return "TurnRight"
  elseif k == 42 then
    return "Down"
  elseif k == 57 then
    return "Up"
  elseif k == 18 then
    return "Exit"
  else
    return "This key is not assigned."
  end
end

print("w = Forward\ns = Back\na = TurnLeft\nd = TurnRight\nshift = Down\nspace = Up\ne = Exit")
rednet.open("modem")
while true do
  a, b = os.pullEvent("key")
  c = keyconvert(b)
  if c == "This key is not assigned." then
    print(c)
  else
    rednet.send(id, c)
    print(c)
    if c == "Exit" then break end
  end
end

rednet.open("right")
while true do
  a, b = rednet.receive()
  if b == "Exit" then break end
  if b == "Forward" then
    turtle.forward()
  elseif b == "Back" then
    turtle.back()
  elseif b == "TurnLeft" then
    turtle.turnLeft()
  elseif b == "TurnRight" then
    turtle.turnRight()
  elseif b == "Down" then
    turtle.down()
  elseif b == "Up" then
    turtle.up()
  end
end

チェック柄床・壁建設プログラム

function turtle_go(f)
  if f then
    b = turtle.forward()
  else
    b = turtle.up()
  end
  if not b then
    if turtle.getFuelLevel == 0 then
      print("Fuel_Empty.")
      os.queueEvent("terminate")
    else
      print("Faild_to_Move.")
      os.queueEvent("terminate")
    end
  end
end

function checkItemCount(n)
  if turtle.getItemCount == 0 then
    if n == 1 then
      for i = 1, 15, 2 do
        if turtle.getItemCount(i) > 0 then
          turtle.select(i)
          turtle.transferTo(1)
          turtle.select(1)
          break
        end
        if i == 15 then
          print("Materials_Empty.")
          os.queueEvent("terminate")
        end
      end
    else
      for i = n, (n + 12), 4 do
        if turtle.getItemCount(i) > 0 then
          turtle.select(i)
          turtle.transferTo(n)
          turtle.select(n)
          break
        end
        if i == n + 12 then
          print("Materials_Empty.")
          os.queueEvent("terminate")
        end
      end
    end
  end
end

function construct_line(type, count, odd)
  for i = (odd + 1), (odd + count) do
    if i % 2 == 1 then
      turtle.select(1)
      checkItemCount(1)
      turtle.placeDown()
    else
      if type == 0 then
        turtle.select(2)
        checkItemCount(2)
        turtle.placeDown()
      else
        turtle.select(4)
        checkItemCount(4)
        turtle.placeDown()
      end
    end
    turtle_go(true)
  end
end

function turtle_turn(mode)
  if mode == 0 then
    turtle.turnLeft()
    turtle_go(true)
    turtle.turnLeft()
    turtle_go(true)
  elseif mode == 1
    turtle.turnRight()
    turtle_go(true)
    turtle.turnRight()
    turtle_go(true)
  else
    turtle.turnRight()
    turtle.turnRight()
    turtle_go(false)
    turtle_go(true)
  end
end

function construct_plane(x, y, mode)
  for i = 1, y do
    if mode == "floor" then
      if i % 2 == 1 then
        construct_line(1, x, 0)
        turtle_turn(0)
      else
        construct_line(2, x, x % 2)
        turtle_turn(1)
      end
    elseif mode == "wall" then
      if i % 2 == 1 then
        construct_line(1, x, 0)
        turtle_turn(2)
      else
        construct_line(2, x, x % 2)
        turtle_turn(2)
      end
    else
      print("Invaild_Mode.")
      os.queueEvent("terminate")
    end
  end
  print("Construction_Ended.")
end

construct_plane(x, y, "mode")

簡易クァーリプログラム（個人用）

function dig_program()
  a = 0
  while turtle.digDown() or turtle.detectDown()==false do
    turtle.down()
    turtle.dig()
    a = a + 1
    for i=1,3 do
      turtle.turnRight()
      turtle.dig()
    end
  end
  for i=1,a-1 do
    turtle.up()
  end
  turtle.select(2)
  turtle.place()
  for i=1,3 do
    turtle.turnRight()
    turtle.place()
  end
  turtle.up()
  for i=3,16 do
    turtle.select(2)
    if turtle.compareTo(i) then
      turtle.select(i)
      turtle.dropDown()
    end
  end
  turtle.placeDown()
  turtle.select(1)
  print("mission completed!")
end
print("enter current z")
height = read()
d_b = (height - 5) * 2
print("move blocks:"..d_b)
if (turtle.getFuelLevel() < d_b) then 
  print("short coal number:"..(d_b - turtle.getFuelLevel()) / 80)
else
  print("current fuel level is "..turtle.getFuelLevel()..", go(1) or stop(0)?:")
  if "1" == read()  then
    dig_program()
  else
    print("exit")
  end
end

タートルインベントリ選択ルーチン

function select_f(s,e)
  local v = 1
  for i = s,e do
    if turtle.getItemCount(i) ~= 0 then
      v = i
      break
    end
    if i == e then
      write("Block null ")
      print(i)
      os.queueEvent("terminate")
    end
  end
  turtle.select(v)
end

block1_s = 1
block1_e = 5
block2_s = 6
block2_e = 10

function select_f(s,e)
  中省略
end

while true do
  select_f(block1_s,block1_e)
  turtle.placeDown()
  turtle.forward()
  select_f(block2_s,block2_e)
  turtle.placeDown()
  turtle.forward()
  sleep(0.05)
end

コメント

コメント欄の運営・編集方針に関してはコメント欄方針を参照してください。
このコメント欄はwikiの情報充実のため、追記がしやすいよう設けた物なので、編集が苦手な方は以下のコメントフォームへ書き込んで頂ければ有志でページに取り込みます。
編集に関わらない質問は一切受け付けておらず、一律して削除されます。
注意書きをよく読んだ上で、質問掲示板または非公式日本ユーザーフォーラムをご利用ください。
Wikiの運営に関連する話はWiki運営掲示板、雑談等は非公式日本ユーザーフォーラムにてお願いします。
表示される親コメントには限りがあるので、返信の際は返信したいコメント横のチェックを付けて返信するようご協力お願いします。