[Aleksei4ik]

set #dl 40 //Кратчайшее расстояние между центрами соседних тайлов в пикселях (40для 640*480)
set #mbasex 513 //X координата пикселя кучки щепок под чаром
set #mbasey 386 //Y координата пикселя кучки щепок под чаром

Хотелось-бы подробности по-поводу этих строк...а то они вообще непонятны...

Добавлено через 10 часов 5 минут
Написал тут скриптик на кукинг...почти идеальный,но...это мой первый скрипт в жизни,но...убив на него целый день - работает почти без сбоев...изредко только сумку утаскивает...

:peremennie
set $think you can't think
set $must you must cook
set $what what do you want
goto podjech1 //переходим в секцию pusto

:podjech1
//if lastmsg $must //если не может пожарить
drag 839, 533 404, 307 2 //перекинуть 2 щепки
wait 2000
double_left 404, 306 //поджечь щепки
double_left 404, 306 //поджечь щепки
wait 1000
end_if
goto pusto //переходим в секцию pusto

:pusto
if wght <= 58 //если сумка пустая
drag 752, 513 863, 539 1000 //взять сырую рыбу из сумки на полу
wait 2000
end_if
goto shepki //переходим в секцию shepki

:shepki
if lastmsg $think //если не обнаружены щепки
drag 713, 312 841, 549 4 //взять щепки из пака на полу
wait 2000
end_if
goto podjech2 //переходим в секцию podjech2

:podjech2
if lastmsg $must //если не может пожарить
drag 839, 533 404, 307 2 //перекинуть 2 щепки
wait 2000
double_left 404, 306 //поджечь щепки
double_left 404, 306 //поджечь щепки
wait 1000
end_if
goto jarit1 //переходим в секцию jarit1

:jarit1
repeat 298 //жарить 298 стейков
double_left 864, 530 //мясо в сумке
left 401, 287 //тыкнуть на огонь
wait 300
end_repeat
if (lastmsg $think) or (lastmsg $must)
goto podjech1
end_if
//goto clean //переходим в секцию clean
goto pol1 //переходим в секцию pol1

:pol1
if wght >= 150
drag 406, 298 943, 469 all //взять с полу мясо и перекинуть в сумку жаренное мясо
end_if
goto jarit2 //переходим в секцию jarit2

:jarit2
repeat 300 //жарить 300 стейков
double_left 864, 530 //мясо в сумке
left 401, 287 //тыкнуть на огонь
wait 300
end_repeat
if (lastmsg $think) or (lastmsg $must)
goto podjech1
end_if
//goto clean //переходим в секцию clean
goto pol2 //переходим в секцию pol2

:pol2
if wght >= 150
drag 406, 298 943, 469 all //взять с полу мясо и перекинуть в сумку жаренное мясо
end_if
goto jarit3 //переходим в секцию jarit3

:jarit3
repeat 400 //жарить 400 стейков
double_left 864, 530 //мясо в сумке
left 401, 287 //тыкнуть на огонь
wait 300
end_repeat
if (lastmsg $think) or (lastmsg $must)
goto podjech1
end_if
//goto clean //переходим в секцию clean
goto pol3 //переходим в секцию pol3

:pol3
if wght >= 150
drag 406, 298 943, 469 all //взять с полу мясо и перекинуть в сумку жаренное мясо
end_if
goto clean //переходим в секцию clean

:clean
if wght >= 450 //полная сумка
drag 938, 469 691, 476 all //перекинуть готовую рыбу в сумку на полу
wait 2000
end_if
goto peremennie //переходим в секцию peremennie

Как должны распологаться сумки:
[Только зарегистрированные пользователи могут видеть ссылки. Регистрация!]