Новое
Поиск Расширенный
Искать в:

Эта тема

Форум

Пользователи

Help Files

Главная

Галерея
Главная
Форум
FAQ
Карта
Статьи
Wiki
Галерея

Отключен JavaScript

У вас отключен JavaScript. Некоторые возможности системы не будут работать. Пожалуйста, включите JavaScript для получения доступа ко всем функциям.

[1.7.10] ComputerCraft [1.74]

Автор Apokalypsys , 13.01.2012 21:16

Авторизуйтесь для ответа в теме

Сообщений в теме: 2863

#2121 Storm Whisper

Зачарователь

Пользователи
Сообщений: 1554

Откуда: Убежище 13

Написал 20.06.2013 - 13:39

Нее, после установки какой-то фигни будет так. Всё равно уродство, уж лучше транслит.

Applied Energistics

Наверх

#2122 RP2Crafter

Добытчик камня

Пользователи
Сообщений: 217

Написал 20.06.2013 - 14:05

Кто-нибудь пробовал программно различать черепах и компьютеры?P.S. Вариант обозвать по разному не предлагать.

Наверх

#2123 Dimus

Странник

Пользователи
Сообщений: 89

Написал 20.06.2013 - 14:29

if not turtle then print("Computer")else print("Turtle")end

Наверх

#2124 Cyxapuk

Главные модераторы
Сообщений: 8706

Ник в Minecraft:
Meegoo

Написал 20.06.2013 - 15:40

При вводе "привет" будет выводиться "п р и в е т " или "привет ", точно не знаю. Насколько я знаю, лекарства этому нет.

Дело в том, что русские буквы определяются не одним символом, а двумя (правда не помню, в какой кодировке это так). Например при вводе пароля в WoW русскими буквам получается тоже самое.

Наверх

#2125 RP2Crafter

Добытчик камня

Пользователи
Сообщений: 217

Написал 20.06.2013 - 16:08

Проверил: UTF-8, KOI-8r, CP1251, ANSI...везде "??????".P.S. Клиент не локализован

Наверх

#2126 Dimus

Странник

Пользователи
Сообщений: 89

Написал 20.06.2013 - 16:55

А задавался ли кто нибудь вопросом удаленного доступа к терминалу черепашки/компьютера, на подобии всем известного RAdminа?Если интересно, могу выложить свои наброски по этой теме

Наверх

#2127 Dimus

Странник

Пользователи
Сообщений: 89

Написал 20.06.2013 - 18:56

RAdmin
Имеем: черепаху и компьютер, снабженные модемами. Черепаха может лазить в пределах видимости реднета.
Необходимо: обеспечить управление черепахой, не приближаясь к ней на расстояние вытянутой руки.
Что делаем: на черепахе запускаем программу radmin_s с параметром ID компьютера, на компьютере запускаем программу radmin_c с параметром ID черепахи.
Что получаем: информация выводимая на терминал черепахи отображается на терминале компьютера, а команды вводимые в компьютер выполняются черепахой.

radmin_s

Скрытый текст

function open()  local bOpen, sFreeSide = false, nil  for n,sSide in pairs(rs[paste][/paste]getSides()) do    if peripheral[paste][/paste]getType( sSide ) == "modem" then      sFreeSide = sSide      if rednet[paste][/paste]isOpen( sSide ) then        bOpen = true        break      end    end  end  if not bOpen then    if sFreeSide then      print( "No modem active[paste][/paste] Opening "[paste][/paste][paste][/paste]sFreeSide[paste][/paste][paste][/paste]" modem" )      rednet[paste][/paste]open( sFreeSide )    else      print( "No modem attached" )      return false    end  end  return trueendif term[paste][/paste]_write then-- Если radmin_s уже запущен, выгружаем его  print("Radmin is stoped")  term[paste][/paste]write=term[paste][/paste]_write  term[paste][/paste]_write=nil  term[paste][/paste]setCursorPos=term[paste][/paste]_setCursorPos  term[paste][/paste]_setCursorPos=nil  term[paste][/paste]clear=term[paste][/paste]_clear  term[paste][/paste]_clear=nil  term[paste][/paste]clearLine=term[paste][/paste]_clearLine  term[paste][/paste]_clearLine=nil  term[paste][/paste]scroll=term[paste][/paste]_scroll  term[paste][/paste]_scroll=nil  term[paste][/paste]ClientID=nil  os[paste][/paste]pullEvent=os[paste][/paste]_pullEvent  os[paste][/paste]_pullEvent=nilelse  local tArgs = { [paste][/paste][paste][/paste][paste][/paste] }  if #tArgs == 0 then    print( "Usage: radmin_s <ClientID>" )    return  end  term[paste][/paste]ClientID=tonumber(tArgs[1])  if not term[paste][/paste]ClientID or term[paste][/paste]ClientID < 0 then    print( "Invalid <ClientID>" )    return  end  if not open() then return end  term[paste][/paste]_write=term[paste][/paste]write  --Сохраняем прежнюю функцию write()  function term[paste][/paste]write(text) -- и переопределяем ее    rednet[paste][/paste]send(term[paste][/paste]ClientID,'W'[paste][/paste][paste][/paste]text)    term[paste][/paste]_write(text)  end    term[paste][/paste]_setCursorPos=term[paste][/paste]setCursorPos  function term[paste][/paste]setCursorPos(x,y)    rednet[paste][/paste]send(term[paste][/paste]ClientID,'S'[paste][/paste][paste][/paste]math[paste][/paste]floor(x)[paste][/paste][paste][/paste]' '[paste][/paste][paste][/paste]y)    term[paste][/paste]_setCursorPos(x,y)  end    term[paste][/paste]_clear=term[paste][/paste]clear  function term[paste][/paste]clear()    rednet[paste][/paste]send(term[paste][/paste]ClientID,'C')    term[paste][/paste]_clear()  end    term[paste][/paste]_clearLine=term[paste][/paste]clearLine  function term[paste][/paste]clearLine()    rednet[paste][/paste]send(term[paste][/paste]ClientID,'L')    term[paste][/paste]_clearLine()  end    term[paste][/paste]_scroll=term[paste][/paste]scroll  function term[paste][/paste]scroll(n)    rednet[paste][/paste]send(term[paste][/paste]ClientID,'R'[paste][/paste][paste][/paste]n)    term[paste][/paste]_scroll(n)  end    os[paste][/paste]_pullEvent=os[paste][/paste]pullEvent  function os[paste][/paste]pullEvent(text)    local event, p1, p2, p3, p4, p5 = os[paste][/paste]pullEventRaw()    if event == "rednet_message" and p1==term[paste][/paste]ClientID then--    print(event[paste][/paste][paste][/paste]' '[paste][/paste][paste][/paste](p1 or 'nil')[paste][/paste][paste][/paste]' '[paste][/paste][paste][/paste](p2 or 'nil'))      local f,dat=string[paste][/paste]match(p2,"^([KC])([paste][/paste]*)")      if f=='K' then os[paste][/paste]queueEvent("key",tonumber(dat)) end      if f=='C' then os[paste][/paste]queueEvent("char",dat) end    end    return event, p1, p2, p3, p4, p5  end  print("Radmin is started with client "[paste][/paste][paste][/paste]term[paste][/paste]ClientID)end

radmin_c

Скрытый текст

function open()  local bOpen, sFreeSide = false, nil  for n,sSide in pairs(rs[paste][/paste]getSides()) do    if peripheral[paste][/paste]getType( sSide ) == "modem" then      sFreeSide = sSide      if rednet[paste][/paste]isOpen( sSide ) then        bOpen = true        break      end    end  end  if not bOpen then    if sFreeSide then      print( "No modem active[paste][/paste] Opening "[paste][/paste][paste][/paste]sFreeSide[paste][/paste][paste][/paste]" modem" )      rednet[paste][/paste]open( sFreeSide )    else      print( "No modem attached" )      return false    end  end  return trueendlocal tArgs = { [paste][/paste][paste][/paste][paste][/paste] }if #tArgs == 0 then  print( "Usage: radmin_c <ServerID>" )  returnendlocal ServerID=tonumber(tArgs[1])if not ServerID or ServerID < 0 then  print( "Invalid <ServerID>" )  returnendif not open() then return endterm[paste][/paste]setCursorBlink(true)while true do  local event,p1,p2 = os[paste][/paste]pullEvent()  if event=="rednet_message" and p1==ServerID then    local f,dat=string[paste][/paste]match(p2,"^([WSCLR])([paste][/paste]*)")    if     f=='W' then term[paste][/paste]write(dat)    elseif f=='S' then      local x,y=string[paste][/paste]match(dat,"(%d+) (%d+)")      term[paste][/paste]setCursorPos(tonumber(x),tonumber(y))    elseif f=='C' then term[paste][/paste]clear()    elseif f=='L' then term[paste][/paste]clearLine()    elseif f=='R' then term[paste][/paste]scroll(tonumber(dat))    end  end  if event=="key" then    rednet[paste][/paste]send(ServerID,'K'[paste][/paste][paste][/paste]p1)  end  if event=="char" then    rednet[paste][/paste]send(ServerID,'C'[paste][/paste][paste][/paste]p1)  endend

Програмки пока не отлажены, поэтому глюки неизбежны

Наверх

#2128 Apokalypsys

Добытчик дерева

Пользователи
Сообщений: 183

Написал 21.06.2013 - 01:17

moves = {["up"] = turtle[paste][/paste]up,["down"] = turtle[paste][/paste]down,["forward"] = turtle[paste][/paste]forward,["back"] = turtle[paste][/paste]back,["right"] = turtle[paste][/paste]turnRight["left"] = turtle[paste][/paste]turnLeft }local move = function (d)    moves[d]()end

ComputerCraft

Наверх

#2129 Storm Whisper

Зачарователь

Пользователи
Сообщений: 1554

Откуда: Убежище 13

Написал 21.06.2013 - 08:18

А зачем ["up"], если можно написать, если не ошибаюсь: {up=turtle.up}?

Applied Energistics

Наверх

#2130 Xytabich

Странник

Пользователи
Сообщений: 54

Откуда: Россия

Написал 21.06.2013 - 09:03

Люди, скажите пожалуйста, как создать файл с помощью программы, я по ходу что то не так делаю.

Наверх

#2131 RP2Crafter

Добытчик камня

Пользователи
Сообщений: 217

Написал 21.06.2013 - 09:29

http://www.computerc...fo/wiki/Fs.open

h = fs[paste][/paste]open("abcd", "w")h[paste][/paste]close()

Наверх

#2132 Apokalypsys

Добытчик дерева

Пользователи
Сообщений: 183

Написал 21.06.2013 - 10:14

Нужно открыть новый поток вывода:

local oFile = io[paste][/paste]open("назввние файла", "w")

Писать в файл:

oFile:write("что-то")

И обязательно закрыть:

oFile:close()

ComputerCraft

Наверх

#2133 Ukrainian

Странник

Пользователи
Сообщений: 83

Написал 21.06.2013 - 10:47

moves = {["up"] = turtle[paste][/paste]up,["down"] = turtle[paste][/paste]down,["forward"] = turtle[paste][/paste]forward,["back"] = turtle[paste][/paste]back,["right"] = turtle[paste][/paste]turnRight["left"] = turtle[paste][/paste]turnLeft }local move = function (d)    moves[d]()end

Спасибо конечно, но я уже сделал по другому. И действительно, зачем "[]"?

Наверх

#2134 DIMFIRE

Добытчик светокамня

Пользователи
Сообщений: 3412

Написал 21.06.2013 - 11:16

Может ли какая либо из черепашек вбирать для какого либо дальнейшего использования(автоэнчат, хранение для отдачи игроку и т д) опыт от соответствующего эффекта форестри-пчел?

Если вы задаете вопрос " у меня не работает двигатель/машина/etc" то сопровождайте его скриншотами что и как у вас не работает

Наверх

#2135 RP2Crafter

Добытчик камня

Пользователи
Сообщений: 217

Написал 21.06.2013 - 11:22

XP Turtle, не помню в каком плагине но есть такая. UPD: http://forum.feed-th... ... ost-191311

Наверх

#2136 Apokalypsys

Добытчик дерева

Пользователи
Сообщений: 183

Написал 21.06.2013 - 14:44

А зачем ["up"], если можно написать, если не ошибаюсь: {up=turtle.up}?

И действительно, зачем "[]"?

В данном случае, просто потому что у меня такой стиль. А стиль такой, потому что [""] практичней:

local t = {+156asf = 3}print(t["+156asf"])

stdin:1: unexpected symbol near `+'

local t = {["+156asf"] = 3}print(t["+156asf"])

ComputerCraft

Наверх

#2137 Dimus

Странник

Пользователи
Сообщений: 89

Написал 21.06.2013 - 14:47

moves = {["up"] = turtle[paste][/paste]up,["down"] = turtle[paste][/paste]down,["forward"] = turtle[paste][/paste]forward,["back"] = turtle[paste][/paste]back,["right"] = turtle[paste][/paste]turnRight["left"] = turtle[paste][/paste]turnLeft }local move = function (d)    moves[d]()end

А как вам такой вариант?

local move = function (d)    turtle[d]()end

Наверх

#2138 Storm Whisper

Зачарователь

Пользователи
Сообщений: 1554

Откуда: Убежище 13

Написал 21.06.2013 - 20:03

идеально, только вот ты повторил функцию.

Applied Energistics

Наверх

#2139 Xytabich

Странник

Пользователи
Сообщений: 54

Откуда: Россия

Написал 22.06.2013 - 13:36

Ок, есть только проблема, мне надо что бы записывалась в файл функция shell.run()Решил проблему, просто написал с одиночными кавычками =)

Наверх

#2140 Apokalypsys

Добытчик дерева

Пользователи
Сообщений: 183

Написал 22.06.2013 - 13:44

print("\"kavichki\"")

"kavichki"

ComputerCraft

Наверх

Обратно в Глобальные модификации

Количество пользователей, читающих эту тему: 8

0 пользователей, 8 гостей, 0 анонимных

[1.7.10] ComputerCraft [1.74]

#2121 Storm Whisper

#2122 RP2Crafter

#2123 Dimus

#2124 Cyxapuk

#2125 RP2Crafter

#2126 Dimus

#2127 Dimus

#2128 Apokalypsys

#2129 Storm Whisper

#2130 Xytabich

#2131 RP2Crafter

#2132 Apokalypsys

#2133 Ukrainian

#2134 DIMFIRE

#2135 RP2Crafter

#2136 Apokalypsys

#2137 Dimus

#2138 Storm Whisper

#2139 Xytabich

#2140 Apokalypsys

Количество пользователей, читающих эту тему: 8

Войти