[1.7.10] ComputerCraft [1.74]

Программа "DiggerRooms"

Программа для рытья комнат/помещений в форме кубойда.

Картинка кликабельна.

Особенности:
*Все переменные задаются в параметрах запуска программы.
*Не сбивается если на пути буду игроки или монстры!!!
*Большое количество доступных опций, а будет еще больше.
*Опция для предотвращения ошибок, связанных с сыпучими материалами.

Вдохновлялся я программой DigiDigi от Ratinod.

Вот код программы, все знаки табуляции заменены на двойные пробелы.
DiggerRooms:

--"DiggerRooms" to Kaerius, 01-03-2013local tArgs = {[paste][/paste][paste][/paste][paste][/paste]}if #tArgs < 6 then print( "<Visota> <Dlina> <Shirina> <Up/Down( u/d )> <Left or Right?( l/r )> <Gravel/Sand control mod( y/n )>" ) returnendlocal digd = 0local digu = 0local dig = 0local step = 0local every = 0local gou = 0local god = 0local gof = 0local height = tonumber( tArgs[1] ) - 1local width = tonumber( tArgs[2] ) - 1local length = tonumber( tArgs[3] )local modud = tArgs[4]local modlr = tArgs[5]local modg = tArgs[6]if modud == "u" then  vert = 0else  vert = heightendif modlr == "l" then  party = 1else  party = 2endlocal function report()  local all = ( height + 1 ) * ( width + 1 ) * ( length ) - 2  local progress1 = ( digd + digu + dig )  local progress2 = ( gou + god + gof )  shell[paste][/paste]run( 'clear' )  print( "Visota: ", height + 1 )  print( "Dlina: ", width + 1 )  print( "Shirina: ", length )  print( "Fuel spend: ", all )  print( "Up/Down( u/d): ", modud )  print( "Left or Right?( l/r ): ", modlr )  print( "Gravel/Sand control mod( y/n ): ", modg )  print( " - / - / - / - / - / - / - / - / - / - " )  print( "Fuel level: ", turtle[paste][/paste]getFuelLevel() )  print( "Pass block: ", progress2 )  print( "Excavated blocks: ", progress1 )endlocal function digi( direction )  report()  if direction == 1 then     if turtle[paste][/paste]digUp() then       digu = digu + 1    end  end  if direction == 2 then    if turtle[paste][/paste]dig() then      dig = dig + 1    end  end  if direction == 3 then     if turtle[paste][/paste]digDown() then      digd = digd + 1    end  endendlocal function fuel()  if fuelLevel == "unlimited" then    return true  end  local needed = ( ( height + 1 ) * ( width + 1 ) * ( length ) - 2 ) - ( gou + god + gof )  if turtle[paste][/paste]getFuelLevel() < needed then    for n = 1, 16 do      if turtle[paste][/paste]getItemCount( n ) > 0 then        turtle[paste][/paste]select( n )        if turtle[paste][/paste]refuel( 1 ) then          while turtle[paste][/paste]getFuelLevel() < needed and turtle[paste][/paste]getItemCount( n ) > 0 do            turtle[paste][/paste]refuel( 1 )          end          if turtle[paste][/paste]getFuelLevel() >= needed then            turtle[paste][/paste]select( 1 )            return true          end        end      end    end  turtle[paste][/paste]select( 1 )  return false  endendlocal function vertical()  if vert == 0 then    while true do      fuel()      if turtle[paste][/paste]up() then        vert = vert + 1        gou = gou + 1      else        digi( 1 )      end      if vert == height then         break          end     end  else    while true do      fuel()      if turtle[paste][/paste]down()then        vert = vert - 1        god = god + 1      else        digi( 3 )      end      if vert == 0 then         break      end    end  endendlocal function go()  fuel()  while true do     if turtle[paste][/paste]forward()then      gof = gof + 1      return true    else      digi( 2 )      if modg == "y" then        sleep( 0[paste][/paste]5 )      end    end  endendlocal function turn()  if party == 1 then    turtle[paste][/paste]turnLeft()    go()    turtle[paste][/paste]turnLeft()    party = party + 1  else    turtle[paste][/paste]turnRight()    go()    turtle[paste][/paste]turnRight()    party = party - 1  endendwhile true do  vertical()  if step == width then    every = every + 1    step = 0    if every == length then      return true    end     turn()  else    go()    step = step + 1  end  if every == length then    return true  end end