Доброго дня, коллеги!
Вопрос, переделал скрипт под крафт банок на крафт хилинг поушенов. Всё вроде прописал, но готовые банки он в сундук не складывает, не понимаю где надо поправить. Реагент лежит в сумке - его вес вообще не ощущается, берет из одного сундука 50 банок пустых, крафтит поушены, но не скидывает их в другой сундук, почему не понимаю - посоветуйте, что поправить. Заранее спасибо!
initevents
initevent
uoswap:
if #charname <> Sjmage
{
UOXL swap
goto uoswap
}
set %BOX GJRHKMD ; where to take ings
SET %MUSORKA GJRHKMD ; where to put flacks
set %eatBOX DYUNKMD
SET %REG PGJ ;ings
SET %Skreg 50 ; quantity of ings to take
SET %ITEM VGJ; type of production
SET %Tool RQF ; tool
SET %TIME1 150 ; wait on the production screen
SET %TIME2 15 ; wait to transfer items
set %eatTIME 900
set %Drink ZBM
set %eat HND_GND
set %SCNT #SCNT + %eatTIME
GOSUB Craft
SUB Craft
if #SCNT >= %SCNT
gosub eat
Finditem %Tool C_ , #BackpackID
IF #Findkind <> -1 4
SET #LobjectID #FindID
Event Macro 17 0
wait 10
Click 486 453
GOSUB Journal
return
SUB Journal
Deletejournal
set %CNT #SCNT2 + %TIME1
scan:
event SysMessage
Scanjournal
IF You_are_hungry in #Journal || You_are_hungry in #sysmsg
GOSUB eat
IF You_need IN #Journal ;|| IF You_need IN #Sysmsg
GOSUB Tresh
IF You_put IN #Journal ;|| IF You_put IN #Sysmsg
GOSUB craft
IF #SCNT2 > %CNT
GOSUB craft
goto scan
Return
return
SUB Tresh
musorka:
Finditem %ITEM C_ , #BackpackID
IF #Findkind <> -1
{
exevent Drag #FindID #FindStack
exevent Dropc %MUSORKA
wait %TIME2
goto musorka
}
Finditem %Banka C_ , #BackpackID
IF #Findkind <> -1 3
exevent Drag #FindID #FindStack
exevent Dropc %BOX
wait %TIME2
Finditem %REG C_ , #BackpackID
IF #Findkind <> -1 3
exevent Drag #FindID #findstack
exevent Dropc %BOX
wait %TIME2
reg:
Finditem %REG C_ , %BOX
IF #findstack >= 3 4
exevent Drag #FindID %Skreg
exevent Dropc #BackpackID
wait %TIME2
GOSUB Craft
ignoreitem #findID
goto reg
return
sub eat
Finditem %eat C_ , %eatBOX
IF #Findkind <> -1 3
exevent Drag #FindID 1
exevent Dropc #BackpackID
wait %TIME2
Finditem %drink C_ , %eatBOX
IF #Findkind <> -1 3
exevent Drag #FindID 1
exevent Dropc #BackpackID
wait %TIME2
finditem %eat C_ , #backpackID
if #findkind <> -1 3
set #LobjectID #FindID
event macro 17
wait 5
finditem %drink C_ , #backpackID
if #findkind <> -1 3
set #LobjectID #FindID
event macro 17
wait 5
set %SCNT #SCNT + %eatTIME
return
