[1.4.6] RedPower 2 [Prerelease 6]

Posted 20.05.2012 - 10:17

• Back to top

Posted 20.05.2012 - 10:47

• Back to top

Posted 20.05.2012 - 13:18

Вот с буфером очень нужно:авто-склад на серве несколько раз забивался базальтом (друг + вулкан + динамит/лазер)С нефтью, наверное, на Элорам давили Не удобно будет качать нефть из под земли.А насчёт компа, как я понял, его немного переписали и ФОРТ расширили.Дискеты выкидываем и пишем проги заново.Но зато можно использовать дискеты для хранения данных (а не только ФОРТ).Была идея сделать аналог строителя из БК, но забросил т.к. работать будет медленно и функционал более ограничен. (О да, здания в дискетках :)UPD: Ах да, надеюсь платы будут нормально сидеть на фреймах - слетают также как рычаги.

• Back to top

Posted 20.05.2012 - 16:51

Моё оборудование снова работает и я могу продолжить работу И в первую очередь добавил программки от HitriyLis и продолжил работу над словарем.

• Back to top

Posted 20.05.2012 - 20:40

• Back to top

Posted 20.05.2012 - 20:58

• Back to top

Posted 20.05.2012 - 21:50

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

И не вздумайте пользоваться прохождением

• Back to top

Posted 20.05.2012 - 21:55

• Back to top

Posted 20.05.2012 - 22:43

SSP volcanos now generate properly.

Я ждал этого со второго пререлиза!

• Back to top

Posted 21.05.2012 - 02:54

• Back to top

Posted 21.05.2012 - 03:25

Как-то так:

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

В некоторых чанках вулкан не сгенерировался. Как сейчас, не знаю (не генерировал новый мир еще).

• Back to top

Posted 21.05.2012 - 11:59

• Back to top

Posted 21.05.2012 - 17:23

• Back to top

Posted 21.05.2012 - 18:19

Скоро апдейт, посоны!

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

[youtube'>http://www.youtube.com/watch?v=6pyrTM_aZQI[/youtube]

Видали уже. Очень полезные и удобные функции для компа добавят. Также радует ферма булыжника с мхом

• Back to top

Posted 21.05.2012 - 19:29

: TABLEPAGE256 0 DOI 10 /MODSWAP 7 * 2DUPSWAP AT-XY I [paste][/paste]4 + SWAP AT-XYI EMITLOOP CR ;

• Back to top

Posted 21.05.2012 - 19:42

• Back to top

Posted 21.05.2012 - 20:46

• Back to top

Posted 21.05.2012 - 22:33

• Back to top

Posted 21.05.2012 - 22:51

Окей, по порядку:

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

Код сильно уменьшился за счёт нового слова AT-XY(столбец,строка-->) - устанавливает курсор в нужное место. До этого приходилось подгонять таблицу с помощью пробелов.
Всего в таблице 256 символов (1 байт). 128 различных символов и их инвертированные/выделенные варианты (выделение определяет старший бит).
Вывод символа на терминал осуществляет слово EMIT(номер_символа-->). Если число больше 255, то отсекается старший байт.

Итак, код:

: TABLEPAGE

Нам нужно вывести все 256 символов. Сделаем это с помощью цикла:

256 0 DO

Для удобства будем выводить по 10 на строку.
Нам нужно знать положение выводимых элементов по их номеру. Для этой цели нам подойдёт целочисленное деление: Целое - номер строки, остаток - номер элемента в строке.

I 10 /MOD

Слово /MOD(делимое,делитель-->остаток,целое) делит первое число на второе и заносит в стек остаток и целое (Комментарии в скобках очень удобны и наглядны .
Если сразу использовать слово AT-XY, то выводимые данные будет накладываться, т.к. необходимо вывести строку из 7 символов на 1 элемент (3 символа на номер, пробел, сам символ и ещё 2 пробела). У нас в стеке 2 числа и нужно умножить второе на 7:

(стб,стр)SWAP 7 *(стр,стб*7)

Если сейчас использовать SWAP AT-XY, то курсор переместится на нужное место для нового элемента, но, поскольку номера элементов имеют разную длину, то нам также понадобится знать положение самого символа. Его можно вычислить из положения элемента таблицы просто прибавив 4.
Чтобы не проводить дополнительных, долгих и ненужных вычислений, просто скопируем то, что уже есть:

2DUP (стр,стб*7-->стр,стб*7,стр,стб*7)

Теперь можем вывести номер элемента:

SWAP AT-XY I [paste][/paste]

Вторую пару чисел используем для самого символа:

4 + SWAP AT-XY I EMIT

Стек чист и цикл завершён.

LOOP CR ;

Хм, не знаю как лучше описывать код:
разрывать пояснениями или сначала код, а потом построчно.

Насчёт "Картинка на FORTH" - это просто эксперимент (набираю методы для создания терминального GUI):
Если нужны пояснения, то так и быть, сделаю, но когда-нибудь "потом".

И о словаре:
Можно начать с того, что "и так понятно", но в кратком виде.

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

Математические операции:
+ (A,B-->A+
- (A,B-->A-
* (A,B-->A*
/ (A,B-->целое_от_A/B)
MOD (A,B-->остаток_от_A/B)
/MOD (A,B-->остаток,целое)
1+ (A-->A+1)
1- (A-->A-1)
2* (A-->A*2)
2/ (A-->A/2)
NEGATE (A-->-A)

Побитовые операции:
INVERT (A-->не_A) - НЕ
XOR (A,B-->C) - исключающее ИЛИ
OR (A,B-->C) - ИЛИ
AND (A,B-->C) - И
<< (A,n--> - побитовый сдвиг влево n раз (1 сдвиг равносилен умножению на 2)
u>> (A,n--> - побитовый сдвиг вправо n раз (1 сдвиг равносилен делению на 2)
(Нужно проверить: циклические они или нет)

Логические операции:
Результат - логические константы TRUE или FALSE. (-1 и 0 соответственно)
= (A,B-->Bool) - равно
>= (A,B-->Bool) - больше или равно (не меньше)
<= (A,B-->Bool) - меньше или равно (не больше)
> (A,B-->Bool) - больше
< (A,B-->Bool) - меньше
<> (A,B-->Bool) - не равно
0< (A-->Bool) - меньше нуля
0<> (A-->Bool) - не равно нулю
0= (A-->Bool) - равно нулю

Простые операции с памятью:
Адрес - номер байта в оперативной памяти.
Число - 2 байта.
! (n,addr-->) - заносит число n по адресу addr
+! (addr-->) - увеличивает на единицу число адресу addr
-! (addr-->) - уменьшает на единицу число адресу addr
@ (addr-->n) - число по адресу addr заносится в стек
С! (b,addr-->) - заносит байт b по адресу addr
C@ (addr--> - байт по адресу addr заносится в стек

Далее надоело...

P.S: Чёрд! Снова слишком много букв!

• Back to top

Posted 22.05.2012 - 03:49

• Back to top