initevents



set %pila EGG		  ;pila

set %item MMF			  ;?????? ??????? ??????????????? (???????)

set %chest FVQBLMD;?????? ???? ???????????? ???????? ???????, ? ????? ?????? (Foldet Cloth')

set %log ZLK			;Logi

set %kolbaski GND

set %milk ZBM



Display yesno Have you alredy made 1 scroll?

if #dispres = yes

goto start

if #dispres = no

{

display Make 1 scroll, and restart scrpt...

halt

}

start:

finditem %pila c_ , #backpackid

set #lobjectid #findid

event macro 17 0

wait 20

click 492 453

goto scaner



Scaner:

set %overt #scnt + 18

Scan:

DELETEJOURNAL

SCANJOURNAL 1

if You_put_ in #journal || Your_skill in #journal || You_fail in #journal || #scnt => %overt

goto start

if World_Save_has_ in #journal

{

wait 5s

goto Scaner

}

if You_need_ in #journal

{

goto reload

goto Scaner

}

if You_are_hungry! in #sysmsg

{

gosub eat

goto Scaner

}

wait 15

goto scan



Reload:

set #lobjectid %chest

event macro 17 0

while #contid <> %chest

wait 1

finditem %item c_ , #backpackid

exevent drag #findid #findstack

exevent dropc %chest

wait 15

finditem %log c_ , %chest

if #findkind = -1

{

Display Out of logs!

halt

}

exevent drag #findid 500

exevent dropc #backpackid

wait 10

goto start





sub eat

finditem %milk c_ , %chest

exevent drag #findid 1

exevent dropc #backpackid

set #lobjectid #findid

event macro 17 0

event macro 17 0

wait 1s

finditem %milk c_ , %chest

exevent drag #findid 1

exevent dropc #backpackid

set #lobjectid #findid

event macro 17 0

event macro 17 0

wait 1s

finditem %kolbaski c_ , %chest

exevent drag #findid 1

exevent dropc #backpackid

set #lobjectid #findid

event macro 17 0

event macro 17 0

wait 3s

return