а вот и скрипт
initevents
set %pila GTL ; tinker tools
set %item HEG ;Итемсы которые изготавливаются (бутли)
set %chest KSKHLMD;Сундук куда сбрасываются сделаные бутли, и лежат инги (Cooper)
set %log RMK ;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 200
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
