Создание предмета через itemUserData

globals
integer array Item_Init
integer array ItemUserDataMas
item array ItemsInSlots
integer ItemUserDataAmount = 0
integer Cnt_Inv = 0
integer Cnt_Item_Init = 0
constant integer Min_Inv = 5 // UnitItemInSlot()
endglobals

set Cnt_Item_Init=1
loop
exitwhen Cnt_Item_Init>Item_Init_Number_End
set ItemUserDataMas[Cnt_Item_Init] = Cnt_Item_Init
if ItemUserDataMas[Cnt_Item_Init] == Item_Init[Cnt_Item_Init] then
call SetItemUserData(GetManipulatedItem(), Cnt_Item_Init)
endif
//call Text(" == " + I2S( ItemUserDataMas[Cnt_Item_Init] ))
set Cnt_Item_Init = Cnt_Item_Init + 1
endloop

call SetItemUserData(ItemsInSlots[Cnt_Inv], Cnt_Item_Init)
//это не вариант

if ItemUserDataMas[Cnt_Item_Init] == Item_Init[Cnt_Item_Init] then
//вообще не сработает та как Item_Init возвращает GetItemTypeId предмета а ItemUserDataMas[Cnt_Item_Init] это значение 1 2 3 и так до 105

А чего ты отладку вызываешь после цикла, а не внутри него? Раз ссылаешься на ту переменную, которая у тебя толкает сам цикл.

//set Cnt_Inv = 1
//loop
//call Text(" == " + I2S( Cnt_Inv ))// 1 2 3 4 5 6 7
//exitwhen Cnt_Inv >Max_Inv
//call Text(" == " + I2S( Cnt_Inv ))// 1 2 3 4 5 6
//set Cnt_Inv = Cnt_Inv + 1
//call Text(" == " + I2S( Cnt_Inv ))// 2 3 4 5 6 7
//endloop

constant integer Max_Inv = bj_MAX_INVENTORY //6

Да, поэтому ставить его надо НЕ в конце.

Ты там делаешь x[a]=a, т.е. что бы ссослаться на индекс массива тебе нужно получить его номер, а его номер - это его же индекс... Зачем?
А после этого SetData(i,x[a]+1)
Хотя по сути это равно SetData(i,a+1)

set Cnt_Item_Init=1
loop
exitwhen Cnt_Item_Init>Item_Init_Number_End
set ItemUserDataMas[Cnt_Item_Init] = Cnt_Item_Init
if ItemUserDataMas[Cnt_Item_Init] == Item_Init[Cnt_Item_Init] then
call SetItemUserData(GetManipulatedItem(), Cnt_Item_Init)
endif
//call Text(" == " + I2S( ItemUserDataMas[Cnt_Item_Init] ))
set Cnt_Item_Init = Cnt_Item_Init + 1
endloop

set Cnt_Inv = 0
loop
exitwhen Cnt_Inv > Min_Inv
set ItemsInSlots[Cnt_Inv] = UnitItemInSlot(GetManipulatingUnit(), Cnt_Inv)
set Cnt_Inv = Cnt_Inv + 1

call Text(" == " + I2S( GetItemUserData(ItemsInSlots[Cnt_Inv]) ))
endloop

call SetItemUserData(GetManipulatedItem(), Cnt_Item_Init)

Вот смотри далее... Ты задаешь переменную для тела цикла, и считаешь её пока она не упрётся в лимит от инита = 105
Т.е. цикл отработает 105 раз и сделает следующее:
Записывает дату подобранного предмета как тело = это числа от 1 до 105, т.е. тут происходит перезапись сто раз.
Пишет в другую переменную с индексам тела цикла само значение тела цикла.
...всё

Что тут должно произойти? Кроме как дата предмета будет равно 105 после последней перезаписи, а переменная ItemUserDataMas[1...105] = 1...105

Вот смотри далее... Ты задаешь переменную для тела цикла, и считаешь её пока она не упрётся в лимит от инита = 105
Т.е. цикл отработает 105 раз и сделает следующее:
Записывает дату подобранного предмета как тело = это числа от 1 до 105, т.е. тут происходит перезапись сто раз.
Пишет в другую переменную с индексам тела цикла само значение тела цикла.
...всё

Что тут должно произойти? Кроме как дата предмета будет равно 105 после последней перезаписи, а переменная ItemUserDataMas[1...105] = 1...105

---

Emafusail:

здесь проверяю

Но здесь нигде нет проверки что UserData подобранного предмета равно 0.
Разве не это значит "предмет у которого нет значения" ?

---

Emafusail:

меня интересует почему
call SetItemUserData(GetManipulatedItem(), Cnt_Item_Init)
устанавливает для всех предметов значение Item_Init_Number_End
а когда проверяю Значения в инвентаре у них у всех значение 105
а не 1 2 3 4 5 6 7 8 9 исходя из GetItemTypeId

Из-за того что ты перезаписываешь это UserData для подобранного предмета

А теперь можешь описать что ты пытаешься реализовать?

Emafusail:

ДА! Но оно записывает Только Последний Индекс для всех предметов
SetItemUserData
не различает индекс 1 2 3 4 5 6 а записывает только Последний индекс т.е 105 Для всех предметов!

Не "только последний", а "все 105 поочереди с перезаписью".
Сначало предмет имеет значение 0 (видимо), цикл ему тут же делает 1...тут же делает 2...тут же 3...4...5...6...и так до 105, и только тогда отваливает от него.

set Cnt_Item_Init=1
loop
exitwhen Cnt_Item_Init>Item_Init_Number_End

set ItemUserDataMas[Cnt_Item_Init] = Cnt_Item_Init


call SetItemUserData(GetManipulatedItem(), ItemUserDataMas[Cnt_Item_Init])
//запишет для всех предметов которые получаю Значение 105


//call Text(" == " + I2S( ItemUserDataMas[Cnt_Item_Init] ))//1 .....105


set Cnt_Item_Init = Cnt_Item_Init + 1
endloop

Принимать? Или всё-таки возвращать? (при совпадении типа)

Emafusail:

при совпадении Типа конечно

Для этого нужно взять ТИП предмета (число в виде 'I03D'), и сравнить его сотвсеми из списка (а он у тебя длинной в 105), и при первомже совпадении вернуть его номер. Например это будет 37.
И уже с этими 37 делать всё что хочешь, т.к. номер имея ты и данные другие можно подтянуть.

Ну там еще можно лупить базу типа set t['I03D'] = 'I03D'
Хотя тут надо чуть по другому на индекс напирать, но смысмыс в общем такой.
Но одно другого не отменяет вообще

---

Emafusail, это всё числа, и 'I03D' тоже число.

Emafusail, еще раз пытаюсь тебе донести - это делать надо НЕ ТАК.

Ты, со стороны лог;ки движка, пишешь непонятно что непонятно и хочешь получать на выходе в непонятном месте весьма конкретный результат. Это так не работает. Тут нужно совсем по другому всё оформить.

Emafusail:

это всё числа, и 'I03D' тоже число.
да но оно возвращает 1227895620
а не значение 1

Ну так вычти из него 1227895619, и используй остаток как ИНДЕКС массива.
И будут у тебя типы предметов от 1227895620 до 1227895724

Emafusail:

ну хорошо, как ты это видишь?

Запись всех типов предметов в массив от 1 до 105
При подборе предмета проверка его на принадлежность к этим 105 предметам.
Нахождение совпадения, и, соответственно, его номера в массиве.
Работа с найденным номером.
Всё.

А почему просто не использовать хт с O(1) и не бегать по циклам с O(n)?

set Item_Init[ItemUserDataMas[1]] = 'I03D'