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

Эта тема

Форум

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

Help Files

Главная

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

Отключен JavaScript

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

[1.4.6] RedPower 2 [Prerelease 6]

Автор VikR , 09.05.2012 09:40

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

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

#601 VikR

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

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

Написал 21.07.2012 - 18:35

HitriyLis, я слоу

Не догадался вначале указать этаж lol
Ну а так действительно код уменьшится, позже исправлю.

И сразу вопрос, пока не забыл: как разорвать внутренний цикл, чтобы код после него продолжил выполняться? EXIT не подходит, т.к. полностью выходит из слова. С LEAVE пробовал, но после него программа почему-то зависает, подозреваю, что я что-то не учел в нем.

Самый дружный и уютный сервер ТТЮХ! Ждёт Вас!

Наверх

#602 HitriyLis

Добытчик алмазов

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

Откуда: Север!

Написал 21.07.2012 - 19:01

Я так понимаю, цикл DO ... LOOP?
Тогда цитирую твой перевод:

Слово: UNLOOP
Синтаксис: ( -- )
Описание: Очищает один DO/LOOP. При использовании EXIT требуется отменить каждый DO/LOOP с помощью UNLOOP.

UPD1/UPD2: Чёт я сейчас тоже слоу...
Щас подумаю.

Прошу называть меня Хитрый Лис или просто, Лис.

У тех, кто пишет понятно, есть читатели; у тех, кто пишет туманно, есть комментаторы.
--Альберт Камю

Наверх

#603 VikR

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

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

Написал 21.07.2012 - 19:06

HitriyLis, цикл BEGIN ... BEGIN ... AGAIN ... AGAIN

Самый дружный и уютный сервер ТТЮХ! Ждёт Вас!

Наверх

#604 HitriyLis

Добытчик алмазов

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

Откуда: Север!

Написал 21.07.2012 - 19:26

BEGIN ... BEGIN ... AGAIN ... AGAIN

А!...
Тогда, заглядывая в описание слова LEAVE, делаем так:

BEGIN  [paste][/paste][paste][/paste][paste][/paste]  BEGIN    [paste][/paste][paste][/paste][paste][/paste]    <условие_выхода>    WHILE    [paste][/paste][paste][/paste][paste][/paste]  REPEAT  [paste][/paste][paste][/paste][paste][/paste]AGAIN

Прошу называть меня Хитрый Лис или просто, Лис.

У тех, кто пишет понятно, есть читатели; у тех, кто пишет туманно, есть комментаторы.
--Альберт Камю

Наверх

#605 VikR

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

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

Написал 21.07.2012 - 19:32

Завтра попробую твой вариант, т.к. сегодня это ни к чему хорошему не приведет

Самый дружный и уютный сервер ТТЮХ! Ждёт Вас!

Наверх

#606 Gromwild

Странник

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

Написал 23.07.2012 - 12:15

Господа, есть ли у кого успешный опыт работы в SMP 3 Билдкрафта? Сильно ли глючный?

Наверх

#607 VikR

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

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

Написал 23.07.2012 - 13:27

Gromwild, ты кажись темой ошибся. Тебе

Самый дружный и уютный сервер ТТЮХ! Ждёт Вас!

Наверх

#608 Gromwild

Странник

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

Написал 23.07.2012 - 13:45

Gromwild, ты кажись темой ошибся. Тебе

Наверх

#609 VikR

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

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

Написал 25.07.2012 - 19:36

HitriyLis, LEAVE даже не понадобился, когда выполнялось действие перед WHILE, то сразу выходило из внутреннего цикла, а до этого выполнялось действие перед WHILE.

Самый дружный и уютный сервер ТТЮХ! Ждёт Вас!

Наверх

#610 HitriyLis

Добытчик алмазов

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

Откуда: Север!

Написал 26.07.2012 - 01:18

К LEAVE я тебя "отправил" потому, что в его описание написано, что он только для цикла DO ... LOOP. Ну это ладно...

Меня осенило на прикол:
На компе, который "не жалко", введите HEX 7 304 +! и смотрите что будет. Потом объясню что происходит. Если вы запустили на компе, который всёже жалко, то не паникуйте, а 7 раз нажмите бакспейс =)

UPD: Закончил перевод. Объяснение прикола ищите внутри =)

Низкоуровневое управление устройствами.

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

Стандартный ФОРТ позволяет использовать устройства не вникая в механизм их работы, но в нём нет слов, позволяющих использовать все возможности этих устройств. Управляются устройства через собственную память, доступ к которой можно получить с помощью RBP! (память этих устройств как бы "отображается" в памяти компьютера). Я буду расписывать "карту" памяти каждого устройства, где число до двоеточия - смещение адреса окна (т.е. если написано 0хFF, то необходим байт с адресом 0х300 + 0хFF = 0х3FF), 2 числа через дефис - диапазон, а после двоеточия - смысл этого байта или диапазона.

Начнём с самого простого - с декодера. В ФОРТе достаточно команд для полноценного управления декодером, поэтому на нём проще объяснить принцип управления. Итак, память декодера выглядит следующим образом:

0x00-0x01: Регистр входа (это 2-х байтовое число считывает IOX@)0x02-0x03: Регистр генерации сигнала (это число устанавливает IOX!)

Первые 2 байта, это совокупность сигналов, которые декодер генерирует и принимает (надеюсь, вы уже знаете как кодируются цвета =). Вторая пара байтов - только те сигналы, которые декодер генерирует. Например, если нет никаких сигналов, то оба числа равны 0. Если выполнена команда 2 IOX! и нет других сигналов, то оба числа равны 2. И наконец, если выполнена предыдущая команда и на декодер подаётся сигнал только с белого провода, то первое число 3, а второе 2.

Дисковод:

0x00-0x7F: Буфер дисковода, размером в 1 сектор[paste][/paste]0x80-0x81: Номер сектора0x82: Команда для дисковода: (далее значения этого байта) 0: Ничего или удачное завершение предыдущей команды 1: Прочитать имя дискеты 2: Записать имя дискеты 3: Прочитать ID дискеты (серийный номер) 4: Прочитать сектор дискеты 5: Записать сектор дискеты 0xFF: Неудачное завершение предыдущей команды

Серийный номер:
Каждая дискета, при создании, получает случайный ID, состоящий из 16 HEX цифр в виде строки. Этот ID задаётся раз и навсегда (можно только "сбросить" на ID загрузочной дискеты с ФОРТом). Чтобы прочитать ID, необходимо в байт 0x82 поместить число 3 и подождать, когда дисковод сменит его на 0 или 0xFF (да, на выполнение команды нужно время). После выполнения команды, дисковод оставит в начале буфера ID в виде текста (оставшееся место заполняется нулями). Дисковод выдаст ошибку только в одном случае: если нет дискеты.

Имя:
Каждую дискету можно назвать как угодно и переименовывать сколь угодно раз. Максимальная длина имени 64 символа. Чтение имени аналогично чтению ID, только другая команда. Для того, чтобы изменить имя дискеты, поместите это имя в буфер (не забудте, что последний байт должен быть нулевым) и выполните команду 2.
Ошибка может возникнуть если нет дискеты или вы попытались переименовать загрузочную дискету (у неё защита от записи).

Данные:
Данные с дискеты читаются и записываются на неё только секторами по 128 байт.
На каждой дискете может быть до 2049 секторов, это значит, что дискета может содержать до 262272 байт или, примерно, 256 Кб. Чтобы прочитать с дискеты нужный сектор, поместите его номер в байты 0x80-0x81 и выполните команду 4. Прочитанный сектор будет находится в буфере и вам остаётся только скопировать его в память компьютера (всем этим занимается DISKRS) или изменить данные прямо в буфере для последующей перезаписи.
Ошибка может возникнуть если нет дискеты или требуемый сектор не существует (чтение за пределом файла-образа).

Примечание: если размер файла не кратен 128 байтам, то сектор, содержащий конец файла, может быть прочитан и размещён в буфере, но дисковод не обнулит оставшуюся часть и выдаст ошибку.

Чтобы переписать сектор дискеты, поместите данные в буфер, поместите номер сектора в соответствующие место и выполните команду 5. Ошибка возникнет, если нет дискеты или эта дискета загрузочная (FORTH boot disk).

Терминал:
Разрешение монитора 80х50 знакомест. Нумерация строк и столбцов от 0 сверху-вниз и слева-направо.

Курсор:0x01: столбец x0x02: строка  y0x03: режим (0: спрятан, 1: сплошной, 2: мигающий)Буфер ввода с клавиатуры (16 байт, FIFO):0x04: Указатель начала очереди0x05: Указатель конца  очереди0x06: Значение клавиши в начале очередиДействия с облостями:0x07: Команда (1: заполнить, 2: выделить(инверсия цвета); 3: копировать)Координаты левого верхнего угла:0x08: x координата области источника / Значение для заполнения0x09: y (необходимо только для копирования)0x0A: х координата области, требуемой для изменения0x0B: y0x0C: Ширина области0x0D: Высота областиДоступ к видеопамяти:0x00: Номер строки для чтения/изменения0x10-0x60: Содержимое строки

Курсор:
Тут всё просто, помещаете в байты 0х01 и 0х02 нужные координаты и курсор переместится (этим занимается AT-XY). С режимом курсора тоже просто. Например, введите HEX 0 303 C! и курсор изчезнет (2 303 С! чтобы его вернуть).

Чтение с клавиатуры:
Терминал самостоятельно читает нажатие клавиш и помещает их значение в собственный буфер (при наличии места), даже если терминал не связан с компьютером. Буфер пуст, если оба указателя равны (это проверяет KEY?). Буфер переполнен, если указатель конца находится перед указателем начала. Таким образом, буфер может реально хранить 15 символов, если 16, то будет невозможно различить переполненный и пустой буфер. Если программе нужно прочитать символ, то необходимо сравнить указатели, если они не равны, то значение необработанной клавиши будет находится в байте 0x06. Терминал никак не реагирует на чтение с буфера, поэтому программе нужно самостоятельно увеличить на 1 указатель начала (всё это выполняет KEY). Заметьте, что терминал самостоятельно уменьшает число указателя, если оно больше 15 (возвращает остаток деления на 16).
Небольшой прикол: введите HEX 7 304 +! и компьютер зациклится выполняя эту команду снова и снова. Эта команда переставляет указатель начала очереди на 7 позиций вперёд, но т.к. очередь закольцована, то реально он переставляется на 9 позиций назад. Буфер теперь не пуст и ФОРТ думает, что вы что-то ввели и обрабатывает это обычным способом. В буфере сохранена предыдущая команда (точнее 3), которая снова колдует с буфером. Терминал работает самостоятельно и из такого цикла можно выбраться нажав 7 раз любую клавишу. Указатель конца очереди дойдёт до позиции, где расположен первый символ команды и при выполнении очередного цикла буфер будет пуст.

Видеопамять:
Программы могут напрямую менять информацию, выводимою на экран. Для этого надо в байт 0x00 поместить номер строки (от 0 до 49) и в последнем диапазоне менять данные по своим нуждам. Терминал может выводить 128 различных символов. Оставшиеся 128 символов те же самые, только выводятся с инверсией цвета (чёрное на зелёном). Различить символы с инверсией можно по старшему биту.

Действие с областями:
При очистке экрана и прокрутке ФОРТ-система не обращается к видеопамяти. Вместо этого она просто посылает команды с нужными параметрами на терминал, а тот сам делает всё необходимое. Это весьма удобно, т.к. можно сохранить место в памяти и сэкономить время на написание кода и в момент его исполнения.

Заполнение:
Для заполнения прямоугольного участка 1 символом нужно сделать следующее:

0x08

0x0A

0x0B

0x0C

0x0D

0x07

PAGE

Выделение

0x0A

0x0B

0x0C

0x0D

0x07

PAGE (Необходимо, чтобы прокрутка не сбила ваши настройки)HEX0  30A ! (Заполняем сразу 2 байта нулями)50 30C C! (80 столбцов в HEX-е 50)32 30D C! (50 строк в HEX-е 32)2  307 C! (Всё зелёное!)

Копирование

0x08

0x09

0x0A

0x0B

0x0C

0x0D

ABCDEFGHIJKLMNOPQRSTUVWXY

AGHIEFLMNJKQRSOPQRSTUVWXY

ABCDEFGHIJKGHIOPGHITUGHIY

Прошу называть меня Хитрый Лис или просто, Лис.

У тех, кто пишет понятно, есть читатели; у тех, кто пишет туманно, есть комментаторы.
--Альберт Камю

Наверх

#611 VikR

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

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

Написал 26.07.2012 - 17:15

HitriyLis, добавил твой перевод. И я не понял прикола =\ Создает эффект псевдо-зависания, обычно в таких случаях просто делают рестарт компа.

Самый дружный и уютный сервер ТТЮХ! Ждёт Вас!

Наверх

#612 Joiyt

Странник

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

Написал 26.07.2012 - 21:18

солярки будут вырабатывать энергию под водой (у меня подводная база из стекла)?вода это же вроде прозрачный блок

В Minecraft с Beta 1.5.

Наверх

#613 HitriyLis

Добытчик алмазов

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

Откуда: Север!

Написал 26.07.2012 - 22:44

И я не понял прикола =\

Прикол как раз в псевдо-зависании: коротко, стабильно и без компиляции.

Увидел на Paste Tool. Одна из функций позволяет перенести образ дискеты (с Бейсиком) через клиент. В одном из пунктов инструкции сказано: "ждите 12-14 часов"... Это.. Жесть... Не меньше.
Потом вспомнил, что _random

Сперва необходимо создать текстовый файл для наборщика. В тексте записан файл в виде цифр по 128 байт на строку (это необходимо, чтобы наборщик остановился и дал ФОРТу время записать сектор на дискету). Для удобства, я переделал программу для конвертации, которую сделал _random. Программа консольная. Первый параметр этой программы - имя файла образа, второй – имя текстового файла с результатом. Можно запустить другим способом: просто перетащите нужный файл на значок программы (т.е. "открыть с помощью...") и создастся файл out.txt с нужным содержимым.
Исходный текст программы:

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

#include <stdio[paste][/paste]h>#include <stdlib[paste][/paste]h>int main(int argc, char *argv[]){   FILE *f_img;   FILE *f_txt;   unsigned short buf;   if(argc == 1)   {      printf("The command line argument is not valid\n");      exit(0);   }   if ((f_img=fopen(argv[1],"rb")) == NULL)   {      printf("Error!\nCan't open input file!\n");      return 1;   }   if ((f_txt=fopen((argc > 2)?argv[2]:"out[paste][/paste]txt","w")) == NULL)   {      printf("Error!\n");      return 1;   }      unsigned short counter = 0;   buf = getc(f_img); //Предварительное чтение   while(!feof(f_img)) //Вополняется до конца файла   {      fprintf(f_txt,"%02X",buf);//Записывает байт в виде двух чисел	  counter++;	  if(128 == counter) //Если прочитали сектор,	  {		counter=0;		putc('\n',f_txt);//то даём ФОРТу "передышку" для записи сектора на диск	  }	  buf = getc(f_img);   }   putc('=',f_txt);//Выход из программы ФОРТа   fclose(f_img);   fclose(f_txt);   return 0;}

В RP компе набрать такую программу (снова переделанная программа Рандома):

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

DECIMAL1024 CONSTANT disk_buf \ Под буфер используется второе окно[paste][/paste]VARIABLE disk_s   \ Текущий сектор диска[paste][/paste]VARIABLE disk_n   \ Количество байт записанных в текущий сектор[paste][/paste]: end \ Проверка, не пустой ли буфер, если не пустой, то заполняем нулями пустую часть буфера и записываем на диск[paste][/paste]disk_n @ IF \ Если не 0   disk_buf disk_n @ +   128 disk_n @ -   0 FILL   disk_buf disk_s @ DISKWSTHEN QUIT ;: in_diap(N,A,B-->b) \ Возвращает TRUE, если A < N < B[paste][/paste]2 PICK > -ROT > AND ;: read (-->n) \ Читает 1 символBEGIN  KEY  DUP 47 58 in_diap \ от 0 до 9  IF 48 - EXIT THEN  DUP 64 71 in_diap \ от A до F  IF 55 - EXIT THEN  DUP 96 103 in_diap \ от a до f  IF 87 - EXIT THEN  61 = IF end THEN \ Символ "=" означает выход[paste][/paste]AGAIN ; \ Остальные символы игнорируются: read_byte (-->n) \ Читает 1 байтread 4 << read OR ;: PROG \ Запись вводимых с клавиатуры данных на диск[paste][/paste]0 disk_s !0 disk_n !BEGIN  read_byte disk_buf  disk_n @ + С!  1 disk_n +!  128 disk_n @ = IF      \ Если ввели в память 128 байт    disk_buf disk_s @ DISKWS   \ Записываем все на диск[paste][/paste]    1 disk_s +!    0 disk_n !  THENAGAIN ;

Далее нужно запустить наборщик Рандома (я пробовал с параметрами 1 и 50) и приготовить к набору подготовленный текст. Вставляем пустую дискету в дисковод, в компьютере пишем PROG, нажимаем F9 и ждём завершения. [attachment=0]Наборщик.zip[/attachment]

Прошу называть меня Хитрый Лис или просто, Лис.

У тех, кто пишет понятно, есть читатели; у тех, кто пишет туманно, есть комментаторы.
--Альберт Камю

Наверх

#614 _random

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

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

Написал 26.07.2012 - 23:05

HitriyLis, по твоему переводу непонятно какое быстродействие у устройств. Например, если в терминале изменить байт 0х04, то непонятно, сколько нужно ждать, перед тем как обновиться байт 0х06.
Я проверил, оказывается он обновляется моментально. Но с какой скоростью обрабатываются остальные команды, я не проверил.
Сначала я подумал, что каждый тик сначала обсчитываются внешние устройства компьютеров, а потом компьютеры по очереди выполняют некоторое число команд.
Для того чтобы это проверить я написал пару программ:

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

Программы запускаются на двух компьютерах соединенных кабелем. Вначале на компьютере с ID 7 запускается слово t2, которое ждет, пока другой компьютер не запишет в память число 11 по адресу 0х400, после чего записывает в память число 22 по адресу 0х402.

HEX: t2400 100 0 FILLBEGIN	400 @ 11 =UNTIL22 402 !;

Потом на другом компьютере в стек помещается какое-нибудь число и запускается слово t1. Это слово записывает в память компьютера с ID 7 число 11 по адресу 0х400, потом создает задержку и выводит число из компьютера с ID 7 с адреса 0х402.

HEX: t17 RBP!11 300 !0 DO LOOP302 @ [paste][/paste];

Если в слове t1 задержка мала, то оно выведет 0, иначе 22.
Подбором я определил, что будет выводиться 22, если число на вершине стека не меньше 0х1050 (примерно) или вместо пустого цикла стоит задержка в один тик.

Похоже, что из всего этого следует, что программы на компьютерах выполняются “не параллельно”, то есть каждый тик сначала один компьютер выполняет некоторое число команд, потом другой и т.д. Зато терминал обсчитывается после каждого обращения к его памяти.

Еще проверил принтер с более-менее большой картинкой:

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

HitriyLis, а перенос дискет ты в одиночной игре проверял? В SMP наверное дольше будет переноситься, но все равно очень круто получилось. Я перенос дискет только из-за принтера делал, и чуть было не передумал делать принтер из-за тормозов с переносом дискет.

Наверх

#615 HitriyLis

Добытчик алмазов

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

Откуда: Север!

Написал 26.07.2012 - 23:23

В вики про скорость реакции ничего не сказано. Но, предполагая механизм взаимодействия, подобное вполне может происходит моментально. Дело в том, что когда программа обращается к памяти, которая настроена как "окно", то генерируется пакет для RedBus. Пакет доходит до терминала, а терминал (точнее его блок) реагирует на пакет и изменяет свои данные как бы "вне очереди" тика...Ну, а про параллельное выполнение вполне логично...Про переносчик: можно его интегрировать в наборщик, но тут нужна твоя помощь. Я программирую хорошо, но вот в тонкостях Си не разбирался.UPD: И да, я проверял в сингле. Возможно, для SMP придётся набирать медленней, отсюда и потеря скорости... (но всё зависит от лагов). И у программы 1 минус: не видно прогресса.

Прошу называть меня Хитрый Лис или просто, Лис.

У тех, кто пишет понятно, есть читатели; у тех, кто пишет туманно, есть комментаторы.
--Альберт Камю

Наверх

#616 VikR

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

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

Написал 27.07.2012 - 05:23

солярки будут вырабатывать энергию под водой (у меня подводная база из стекла)? вода это же вроде прозрачный блок

Под водой не будут вырабатывать энергию. _random, ты заинтересовал меня своим принтером из-за картинки, здорово получается. Можешь скинуть карту с принтером? Хочу получше с конструкцией ознакомиться. Кстати, ты на серве ттюха делал тетрис?

Самый дружный и уютный сервер ТТЮХ! Ждёт Вас!

Наверх

#617 HitriyLis

Добытчик алмазов

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

Откуда: Север!

Написал 27.07.2012 - 11:52

Простой но предсказуемый генератор псевдослучайных чисел (алгоритм VARIABLE seed \ "Память" генератора25173 CONSTANT mult \ Множитель13849 CONSTANT inc \ Инкремент\ 65536 CONSTANT cycle \ Размер цикла (не умещается в 2 байта) : RANDU (-->RND)seed @ mult UM*DROP inc +DUP seed ! ; Константы можно сразу подставить.
Уравнение: seed = (mult * seed + inc ) MOD cycle
Вместо деления DROP.
Перед началом желательно задать случайный seed.
Каждое обращение к RANDU выдаст "случайную" пару байт.

Прошу называть меня Хитрый Лис или просто, Лис.

У тех, кто пишет понятно, есть читатели; у тех, кто пишет туманно, есть комментаторы.
--Альберт Камю

Наверх

#618 _random

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

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

Написал 27.07.2012 - 19:26

Наборщик это мой первый и единственный опыт использования WinAPI, причем большую часть текста программы я скопипастил из примеров майкрософта. Так что даже для того чтобы приделать отображение прогресса мне придется долго читать справку по WinAPI. По поводу интеграции: я добавил в наборщик возможность передачи имени файла с набираемым текстом через командную строку. Теперь можно автоматизировать с помощью батников. Например такой батник:

if %~x1 NEQ [paste][/paste]img exitimg2txt[paste][/paste]exe %1start kbd[paste][/paste]exe out[paste][/paste]txt

Если на этот батник перетащить образ диска, то образ конвертируется в out.txt, после чего запустится программа набора. img2txt.exe – конвертер, kbd.exe – наборщик. Карта с принтером: http://rghost.ru/39432566 Дискета с картинкой в дисководе, для проверки можно просто запустить слово print Картинку взял отсюда: http://piq.codeus.ne...cture/18589/cat В mtPaint слил все близкие цвета и удалил не использующиеся элементы палитры. Чтобы принтер не рисовал белый фон, я установил размер палитры в 17 элементов и залил то, что не нужно печатать, цветом 16-ого элемента палитры. Из-за того что двигатели иногда теряют заряд при перемещении их фреймами, я сделал очень большие задержки в программе. Программа целиком:

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

DECIMAL1 CONSTANT first	\ провод, подключенный к двигающемся, относительно карьера, двигателям2 CONSTANT s_mov	\ провода, подключенные к двигателям, работающими в направлениях ю,с,з,в,вниз,вверх соотв[paste][/paste]16 CONSTANT n_mov8192 CONSTANT w_mov8 CONSTANT e_mov16384 CONSTANT u_mov32768 CONSTANT d_mov1024 CONSTANT on	\ провод, подключенный к выключателю[paste][/paste] Карьер перемещается, только если включено[paste][/paste]\ При выключении карьер заканчивает текущий "шаг" и останавливается2048 CONSTANT brk	\ провод, подключенный к разрушителям блоков, разрушители блоков выстроены линиями с сев[paste][/paste] на югVARIABLE delay1 30 delay1 !	\ задержка между импульсами (точнее между задним и передним фронтом импульсов)VARIABLE delay2 5  delay2 !	\ длительность импульсаVARIABLE limit_hor 100 limit_hor !	\ предел перемещения по горизонтали, за одну командуVARIABLE limit_vert 100 limit_vert !	\ предел по вертикали\ если выключено, то возвращает истину (-1): on_offIOX@ on AND 0=;\ смещение на 1 блок\ направление/провод - вершина стека: stepdelay1 @ TICKSIOX! delay2 @ TICKS 0 IOX!delay1 @ TICKSfirst IOX! delay2 @ TICKS 0 IOX!;\ перемещение\ количество направление предел: movROT \ направление предел количествоDUP 0 <= IF 2DROP QUIT THEN\ напр[paste][/paste] кол[paste][/paste] кол[paste][/paste] пред[paste][/paste]DUP ROT > IF [paste][/paste]" limit" 2DROP QUIT THENon_off IF 2DROP [paste][/paste]" OFF" QUIT THENfirst IOX! delay2 @ TICKS 0 IOX!0 DO	DUP step	on_off IF [paste][/paste]" OFF" LEAVE THENLOOPDROP;\ перемещение на ю, с, з, в, вверх, вниз соотв[paste][/paste]\ количество блоков - вершина стека: s s_mov limit_hor @ mov ;: n n_mov limit_hor @ mov ;: w w_mov limit_hor @ mov ;: e e_mov limit_hor @ mov ;: u u_mov limit_vert @ mov ;: d d_mov limit_vert @ mov ;\ добыча, глубина - вершина стека: dmDUP 0 <= IF DROP QUIT THENDUP limit_vert @ > IF [paste][/paste]" limit" DROP QUIT THENon_off IF DROP [paste][/paste]" OFF" QUIT THENTRUE SWAP	\ истина - карьер на исходных координатах по горизонтали, ложь - карьер сдвинут (на восток)0 DO	brk IOX! delay2 @ TICKS 0 IOX!	\ смещение	IF e_mov step FALSE ELSE w_mov step TRUE THEN	brk IOX! delay2 @ TICKS 0 IOX!	d_mov step	on_off IF [paste][/paste]" OFF" LEAVE THENLOOPIF ELSE w_mov step THEN	\ по окончании добычи, или при выключении, карьер возвращается на исходные координаты по горизонтали;: step+x s_mov step ;: step-x n_mov step ;: step+y u_mov step ;128 ALLOT CONSTANT print_bufVARIABLE print_s	\ Текущий сектор диска[paste][/paste]VARIABLE print_n	\ Количество байт, прочитанных из текущего сектора[paste][/paste]VARIABLE delay3 30 delay3 !	\ Задержка при печати[paste][/paste]VARIABLE print_h	\ Высота изображения[paste][/paste]VARIABLE print_w	\ Ширина изображения[paste][/paste]: print0 print_s !print_buf 0 DISKRSprint_buf @ print_w !print_buf 2 + @ print_h !4 print_n !FALSE	\ Текущее направление движения, FALSE - направо, TRUE - налево[paste][/paste]print_h @ 0 DO	print_w @ 15 + 0 DO		7 IOXADDR !	\ Выбор порта, подключенного к установщикам блоков[paste][/paste]		print_n @ print_buf + @ IOX!		delay2 @ TICKS		0 IOX!		delay3 @ TICKS	\ Задержка после установки блоков[paste][/paste]		3 IOXADDR !	\ Выбор порта, использующегося при перемещении конструкции[paste][/paste]		I print_w @ 14 + <> IF	\ Если доехали до конца, то дальше двигаться не нужно[paste][/paste]			DUP IF step-x ELSE step+x THEN		THEN		delay3 @ TICKS	\ Задержка после перемещения[paste][/paste]		2 print_n +!		print_n @ 128 = IF			0 print_n !			1 print_s +!			print_buf print_s @ DISKRS		THEN	LOOP	step+y	IF FALSE ELSE TRUE THEN		\ Разворот[paste][/paste]LOOPDROP;

Да, это я перенес образ дискеты с тетрисом на ттюх.

Прикрепленные файлы

cat.zip 593байт Количество загрузок: 303
kbd.zip 69.08К Количество загрузок: 292

Наверх

#619 DanteRU

Странник

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

Написал 27.07.2012 - 22:43

Хелп, что за ошибка, после установки Рп2?

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

Наверх

#620 VikR

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

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

Написал 28.07.2012 - 08:58

_random, спасибо за карту.

Из-за того что двигатели иногда теряют заряд при перемещении их фреймами, я сделал очень большие задержки в программе.

Ты поставил много соляр, но я бы лучше поставил аккумуляторов побольше. Тогда будут заранее большие запасы блутричества. Да и при таких размерах можно без проблем соединить все двигатели во всех положения. У тебя остался образ того диска, а лучше сам код с неё? Умники расковыряли открытый комп =\, а штука ведь прикольная.

Хелп, что за ошибка, после установки Рп2?
Скрытый текст
--- BEGIN ERROR REPORT cda5f33d -------- Generated 28.07.12 1:40 Minecraft: Minecraft 1.2.5 OS: Windows 7 (x86) version 6.1 Java: 1.7.0_04, Oracle Corporation VM: Java HotSpot™ Client VM (mixed mode), Oracle Corporation LWJGL: 2.4.2 OpenGL: GeForce 210/PCIe/SSE2/3DNOW! version 3.3.0, NVIDIA Corporation java.lang.IllegalArgumentException: Parse error at eloraam.core.TagFile.readtag(TagFile.java:249) at eloraam.core.TagFile.readtag(TagFile.java:261) at eloraam.core.TagFile.readtag(TagFile.java:261) at eloraam.core.TagFile.readStream(TagFile.java:309) at eloraam.core.TagFile.readFile(TagFile.java:288) at eloraam.core.Config.loadConfig(Config.java:29) at RedPowerCore.initialize(RedPowerCore.java:92) at mod_RedPowerCore.initialize(mod_RedPowerCore.java:46) at mod_RedPowerWorld.initialize(mod_RedPowerWorld.java:36) at mod_RedPowerWorld.modsLoaded(mod_RedPowerWorld.java:20) at cpw.mods.fml.common.modloader.ModLoaderModContainer.postInit(ModLoaderModContainer.java:357) at cpw.mods.fml.common.Loader.postModInit(Loader.java:280) at cpw.mods.fml.common.Loader.initializeMods(Loader.java:605) at cpw.mods.fml.client.FMLClientHandler.onLoadComplete(FMLClientHandler.java:203) at net.minecraft.client.Minecraft.a(Minecraft.java:426) at net.minecraft.client.Minecraft.run(Minecraft.java:735) at java.lang.Thread.run(Unknown Source) --- END ERROR REPORT 29e0cc87 ----------

Скорей всего конфликт модов. Какие моды еще стоят?

Самый дружный и уютный сервер ТТЮХ! Ждёт Вас!

Наверх

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

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

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

[1.4.6] RedPower 2 [Prerelease 6]

#601 VikR

#602 HitriyLis

#603 VikR

#604 HitriyLis

#605 VikR

#606 Gromwild

#607 VikR

#608 Gromwild

#609 VikR

#610 HitriyLis

#611 VikR

#612 Joiyt

#613 HitriyLis

#614 _random

#615 HitriyLis

#616 VikR

#617 HitriyLis

#618 _random

Прикрепленные файлы

#619 DanteRU

#620 VikR

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

Войти