Easy coocking trainer by Absurd v1.0

; Easy coocking trainer by Absurd v1.0

;               Инструкция:
; Вы должны стоять у печки или у огня
; Пололожите в сундук сырые фиш стейки
; в бекпак Skillet - тулса для крафта
; или тинкер тулс и инги, сделайте
; один тулс для кукинга для крафта новых тулсов.
; Также сделайте один fish steak.
; Укажите нужные тайпы и ID сундука с стейками

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

; ID сундук с стейками
set %store GCWBTMD
; Type кукинг тулса
set %tools1 DND
; Type тинкер тулса
set %tools2 KTL
; Type сырого стейка
set %item1 IND
; Type жареного стейка
set %item2 HND
;-------------------------------------------------------------
finditem %store
if #findkind = 1
{
    set #lobjectid #findid
    event macro 17 0
    wait 40
    goto loop
}

loop:
if #weight >= ( #maxweight - 100 )
{
    finditem %item2 С_ , #backpackid
    if #findcnt > 0
    {
        exevent drag #findid #findstack
        exevent dropc %store
        wait 10
    }
}
finditem %tools1 C_ , #backpackid
if #findcnt > 0
    gosub prep
else
    gosub makeNewTools
goto loop

sub prep
finditem %item1 C_ , #backpackid
if #findcnt > 0
    gosub make
else
    gosub drag
return

sub drag
finditem %item1 C_ , %store
if #findkind = 0
{
    exevent drag #findid 1
    exevent dropc #backpackid
    wait 10
    gosub make
}
return

sub make
finditem %tools1 C_ , #backpackid
if #findkind = 0
{
    set #lobjectid #findid
    event macro 17 0

    ; нажатие на кнопку Make last в skillet
    ; изменить координаты кликов, если не
    ; работает на вашем шарде
    set %x #contposx + 285
    set %y #contposy + 413
    
    click %x %y dmc
    wait 10
}
return

sub makeNewTools
finditem ENK C_ , #backpackid
if #findstack < 4
{
    display Закончились инги!
    pause
}

finditem %tools2 C_ , #backpackid
if #findcnt > 0
{
    set #lobjectid #findid
    event macro 17 0
    wait 25
    
    ; нажатие на кнопку Make last в tinker tools
    ; изменить координаты кликов, если не
    ; работает на вашем шарде
    set %x1 #contposx + 286
    set %y1 #contposy + 413
    
    click %x1 %y1 dmc
    wait 15
}
else
{
    display Закончились тинкер тулсы
    pause
}
return