//--->>> ФАРМ ГРИБОВ В ЛЕСУ/БОЛОТЕ МУРМАНСКА ДИНАМО-ФОНАРЁМ <<<---//

//*** все характеристики по нулям, не должно быть болезней, динамо-фонарь на 100% заряжен***//

//всплывающие окна погода/землятресения и т.д.
proc okno #a #b
    set #a 0
    set #b findimage (1596, 314 1686, 400  (C:\DAYR\DAY_R_IMAGE\pogoda.bmp) %arr 2 80 1 10)
    if #b > #a
        wait 300
        left %arr [1 1] %arr [1 2]
        wait 300
    end_if
    wait 300
end_proc

//локация, если всплывающеке окно закрыло локация
proc locachiya #c #d
    set #c 0
    set #d findimage (37, 663 173, 711   (C:\DAYR\DAY_R_IMAGE\chat.bmp) %arr 2 40 1 10)
    if #d > #c
        wait 300
        left 1496, 963  //выбирает локация
        wait 300
    end_if
    wait 300
end_proc


//локация, если всплывающее окно закрыло инвентарь, во время зарядки динамо-фонаря (proc zaryadkaFonarya #g #h)
proc inventar #cd #ef
    set #cd 1
    set #ef findimage (37, 663 173, 711   (C:\DAYR\DAY_R_IMAGE\chat.bmp) %arr 2 40 1 10)
    if #cd = #ef
        wait 300
        goto startProc
        wait 300
    end_if
    wait 300
end_proc

//если фонарь разряжен
proc fonarOff #cde #fqr
    set #cde 1
    set #fqr 0
    if #cde > #fqr
        wait 300
        left 419, 237 //динамо-фонарь (разряжен)
        wait 300
        left 1766, 479 //зарядить
        wait 8000
        call fonarTake
    end_if
    wait 300
end_proc

//берёт фонарь, если уснул после зарядки
proc fonarTake #ta #ke
    wait 300
    left 1512, 960 //локация
    wait 300
    left 1246, 957 //инвентарь
    wait 300
    left 194, 485 //выживание
    set #ta 1
    set #ke 0
    if #ta > #ke
        left 414, 260 //динамо фонарь
        wait 300
        call okno #a #b
        call inventar #cd #ef
        left 1804, 407 //использовать
    end_if
    wait 300
end_proc


//едим, пьем, спим, едим
proc edimSpimEdim #e #f
set #e 0
set #f 1
if #f > #e
    call okno #a #b
    wait 300
    left 1569, 953 //локация
    wait 300
    call okno #a #b
    left 743, 819  //пьём
    wait 300
    call okno #a #b
    left 891, 819   //жрем
    wait 300
    call okno #a #b
    left 1740, 791  //спим
    wait 16000
    call okno #a #b
    left 865, 813  //жрем
    wait 300
    call okno #a #b
    wait 300
end_if
end_proc

//фарм грибов
proc farmGribov #q #r
set #q 0
set #r 1
if #r > #q
    wait 300
//    for #farmG 0 25 1
    for #farmG 0 23 1
        left 1378, 840  //искать
        wait 1500
        call okno #a #b
        call locachiya #c #d
        call piz #pi #de
    end_for
    wait 2000
end_if
end_proc

//зарядка динамо-фонаря
proc zaryadkaFonarya #g #h
set #g 0
set #h 1
if #h > #g
    wait 300
    left 1241, 934 //инвентарь
    wait 300
    call okno #a #b
    call inventar #cd #ef
    left 65, 472  //выживание
    call okno #a #b
    call inventar #cd #ef
    wait 300
    left 427, 257 //динамо-фонарь
    call okno #a #b
    call inventar #cd #ef
    wait 300
    left 1785, 755  //зарядить
    wait 4500
    call okno #a #b
    call inventar #cd #ef
    //если фонарь разряжен - заряжает. Кординаты взяты у батарейки: 12:18-1:30
    set #fonarColor findcolor (362, 219 369, 223  1 1 (1056216-856711) %arr 2 -1 10)
    if #fonarColor > 0
        call fonarOff #cde #fqr
    end_if
    call okno #a #b
    call inventar #cd #ef
    left 1473, 946  //локация
    wait 300
    call okno #a #b
    call inventar #cd #ef
    left 1473, 946  //локация
    wait 300
    call okno #a #b
    left 1761, 788  //спать
    wait 7000
end_if
end_proc

//проверка на истощение 61-74 (цвета в таком диопазоне) при истощении 38 срабатывает
proc piz #pi #de
set #pi 1
set #de 0
if #pi > #de
    wait 300
    set #die findcolor (208, 4 282, 50   1 1 (676544-17151) %arr 2 -1 10)
    if #die > 0
        wait 300
        left 1473, 946  //локация
        wait 300
        left 1031, 827 //бриокарм
        wait 2000
    end_if
end_if
end_proc

//---->>>>>>>>> начало <<<<<<<<<--------//

for #gribs 0 1 1
    call okno #a #b
    call locachiya #c #d
    call farmGribov #q #r
    call edimSpimEdim #e #f
end_for
:startProc
call zaryadkaFonarya #g #h

//---->>>>>>>>> конец <<<<<<<<<--------//