Yoko

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'   ; Сериал мешка и сумки для них 
.......................