Threaded Mode | Linear Mode

Valery · 25.08.2014 23:23

+1

Era is for H3 what fire invention was to humanity!

I would never have worked so much for 3.58.

Pouah! Start map, find erm error turn 145, restart map, find error turn 245, restart. 148

Berserker · 25.08.2014 23:57

totkotoriy, спасибо за добрый отзыв. В свою очередь хочу передать благодарность ZVS, MoP, Sav-у, Bes-у, SyDr-у, Валерию и ещё доброй д.жине людей, благодаря которым стало возможным сделать то, что было сделано.

Valery, don't even remind that hell! Btw, I used DEE program to upload scripts to existing game at those times

gamecreator · 06.09.2014 23:50

По-моему я нашёл ошибку. Пишу

!!SN:M-1/200/0/0;

Если верить справке, должно создать массив из 200 целых элементов (они 4-байтовые хоть?) и вернуть индекс в v1. Но v1=-2 и понятно, что никак к массиву не обратиться.
Эра 2.4 (из первого сообщения), новее не нашёл.

Berserker · 07.09.2014 00:49

Возвращается автоматически выделенный ID массива. Автоматические выделенные ID или слоты начинаются с -2 и являются отрицательными числами. Дальше

!!VRy1:Sv1;
!!SN:My1/6/999; Установили 7-му элементу массива с ID y1 значение 999
!!SN:My1; Удалили массив. Просто для прмиера

gamecreator · 07.09.2014 01:35

Хмм... действительно, ошибка в другом. Даже не знаю Эра тут виновата или нет, но такого быть не должно. Вот мой код:

!?FU920010;
!!SN:M-1/200/0/0; make new array of 200 numbers
!!VRy1:Sv1; save array id
...
!!DO920013/0/199/1:Py1/?x1; get available box id
!?FU920013; return index of the first zero element in era array x1 to x2
!!SN:Mx1/x16/?y1; <------ вот тут ошибка, x1 почему-то становится равно 1 уже на второй итерации
!!VRx2&y1=0:Sx16;
!!VRx16&y1=0:S2000000000; exit loop

gamecreator · 07.09.2014 13:03

Получилось обойти этот загадочный баг вот таким костылём:

!!VRv2:Sy1;
!!DO920013/0/199/1:P=v2/?x1; get available box id

gamecreator · 07.09.2014 13:25

Ну и не говоря о том, что в ЕРМ = и ? в FU:P работают исключительно с v-переменными, но это уже проблема Вога, а не Эры.

Berserker · 07.09.2014 18:53

y-переменные затираются раньше, чем выполняется P?[...]. Это известная вещь, исправлена в 3.59.
x1..x16 тоже глобальные, так что ?x1 довольно опасно.

!?FU920010;
!!SN:M-1/200/0/0; make new array of 200 numbers
!!VRy1:Sv1; save array id
...
!!FU920013:Py1; v1 is index of first free item or -1
!?FU920013; return index of the first zero element in era array
; x1 - array
!!VRy1:S0; y1 - item is found = false
!!VRy2:S0; y2 - counter
!!SN:Mx1/?y3; y3 - array length
!!if&y2<y3:; #3 while item index is in array bounds
!!SN:Mx1/y2/?y4; y4 - current item
!!VRy1&y4=0:S1; set found to true if current item is free
!!en:;
!!VRy2:+1;
!!SN&y1=0/y2<y3:G3; repeat if not found and item index is in array bounds
!!VRv1&y1=0:S-1;
!!VRv1&y1=1:Sy2-1;

gamecreator · 08.09.2014 22:31

Как скопировать строковое значение из массива в массив напрямую? Потому что как-то мало толку от длинных строк если их нельзя получить кроме как через z-переменную.

Berserker · 09.09.2014 00:31

~~Знаю, но в настоящий момент никак. Ну то бишь нужно написать несложную функцию.~~ Добавлять подстроки с 2.46 стало легко:

Code:

[+] Added new modifier syntax for SN command parameters:

  SN:X$ (without &), SN:M#/$, SN:M#/#/$, SN:W#/$.

  Traditional "d" adds 0 or empty string, d[...] is equivalent to d+.

  d+, d-, d*, d:, d& (string concatenation).

  Example: !!SN:W^Gold^/y1 W^Gold^/d-500 W^Gold^/d*11 W^Gold^/d:10; Gold = y1 -500 * 1.1

!!SN:My1/y2/d&^ ещё одна запись, в том числе %Z3^;

Код для копирования длинной строки в другую длинную ниже:

Quote:!?FU(array item to item copy);
; x1 - array 1 ID (source)
; x2 - array 1 index (source)
; x3 - array 2 ID (destination)
; x4 - array 2 index (destination)
!!SN:Mx1/?y1/x2 Ky1/?y2; y1 - source] string address, y2 - string length

!!if&y2=0:;
    !!SN:Mx3/x4/^^; zero length string
!!el:;
    !!VRy3:Sy2 :4 +1; y3 - length of buffer in integers
    !!SN:M-1/y3/0/0; allocate temporal array
    !!VRy4:Sv1; y4 - temporal array
    !!SN:My4/?y5/0; y5 - temporal buffer address
    !!SN:Ky2/y1/y5; copy source string to temporal buffer
    !!VRy6:Sy5+y2; y6 - address of terminating byte
    !!UN:Cy6/1/0; write terminating byte
    что за ерунду я пишу? )
!!en:;

!!SN:M(src array)/?y1/(src index) M(dst array)/(dst index)/y1; насколько я помню, эта магия должна сработать.
; команды Эры, принимающие строки, одинаково хорошо переваривают и адреса pchar-ов

igrik · 09.09.2014 00:45

ууу. черная магия...

gamecreator · 09.09.2014 01:17

(09.09.2014 00:31)Berserker Wrote: команды Эры, принимающие строки, одинаково хорошо переваривают и адреса pchar-ов

О, точно то что надо. Спасибо.

Berserker · 09.09.2014 22:24

igrik, да нет )
Все команды Эры получают параметры в виде 4-байтовых чисел. Для строк это обычно адрес первого символа. Когда ты пишешь z1, команда получает адрес ЕРМ-переменной. Когда ^hello^, строка сперва сохраняется во временном буфере, затем команде передаётся её адрес, после чего буфер освобождается.

!!SN:M(src array)/?y1/(src index); записывает в y1 адрес первого символа строки в указанном массиве
!!SN:M(dst array)/(dst index)/y1; устанавливает новое значение элемента массива. Команде передаётся адрес строки )
Таким образом, длинные строки (> 512 байт) можно копировать между собой и использовать как буфер для накопления:
!!SN:M../../d&^ соединение строк^;

gamecreator · 13.09.2014 19:58

Вот ещё баг. Эра не понимает ссылки на переменные типа zx4. Например, вот эта команда не работает:

!!SN:My4/0/zx4;

gamecreator · 13.09.2014 20:44

Ещё мод WoG Rus требует Secondary Skills Scrolling (иначе игра вылетает при открытии окна героя), про это нигде не сказано.

Threaded Mode \| Linear Mode ERA II » WoG Era 2: Русская и Английская версии
Author	Message