Цитата:
Сообщение от Fer123
Я не знаю как правильно объяснить и тут надо полностью просмотреть скрипт но в общем для 9 скрипта
в процедуре InventoryUpdate:
после строчек
Код:
EnchantLevel:=ReadH(j);
CustType2:=ReadH(j);
AugmentationID:=ReadD(j)
;
вставь
if (UpdType=2) and (ObjectID=ItemOID) then CurEnchLvl:=EnchantLevel;
в процедуре CheckBoxItem_Click и ComboBoxItem после
Код:
ItemOID:=BaseItems[ComboBoxItem.ItemIndex+1,2];
ItemID:=BaseItems[ComboBoxItem.ItemIndex+1,3];
вставь CurEnchLvl:=BaseItems[ComboBoxItem.ItemIndex+1,10];
По убирай везде где есть
Код:
repeat
ItemOID:=GetItemEnchant(ItemID, CurEnchLvl);
if ItemOID=0 then begin
inc(CurEnchLvl);
Edit2.text:=inttostr(CurEnchLvl);
end;
until ItemOID<>0;
и другие присвоения CurEnchLvl. А также всякие проверки на сломанность оружия, все равно блессами точишь.
|
09 это для Грации,а мне для Interlude нужно.Но щас попробую.
Добавлено через 17 минут
Попробывал,в итоге ошибку в скрипте какую-то выбивало,короче скрипт испортился.Есть еще какие-то предложения или может ты сам попробуешь исправить?А то у меня может просто не получается.