вот этот
Code: Select all
sub MakeFull()
VAR CCurIng='0x0000', TCurIng=0
VAR jser, WCurIng=0, Kolvo = 200 ; На фулл с запасом
VAR Sunduk = '0x40468773' ; Cундук с инготами
VAR Meshok = '0x0E76' ; Тип мешка для фулов
VAR CIngots = '0x0488' ; Цвет инготов
VAR CurMesh, BagForFull='0x402FD427' ; Сериал мешка и сумки для них
.......................
неработают для крафта бронз фуллов

подкиньте рабочИЙ)