Бот для игры вкантакте Любимый питомец под uopilot

Честно говоря не могу представить как люди играют в такие игры у приложения больше мильона подписчиков. Создал я для фанатиков игры Любимые питомцы вкантактах ботика.

Ботик:) Кормит питомца, убирает за ним, ложит его спать, играется с ним, лечит, только еще не умеет он учить его, т.к. мне эта функция пока не доступна.
А еще бот ходит по друзям и лечит питомцев друзей и убирает за ними какашки-)

Вот сам скрипт. зы: для тех кто не знает как пользоваться, ищите у меня тему в этом дневнике как пользоваться uopilot
set #frnX 503
set #frnY 138
set #frnNum 0
:start
gosub funDeistv
gosub funOpenFrnd
goto start

:funOpenFrnd // бегает по друзякам
gosub funOWinFrn
if 528, 292 6326965
while 528, 292 6326965
gosub funClickFrn
if #frnNum = 0
left 528, 292 //кликаем вниз стрелку
end_if
gosub funOWinFrn
end_while
else
while 527, 145 8035518
gosub funClickFrn
if #frnNum = 0
left 527, 145 //кликаем вверх стрелку
end_if
gosub funOWinFrn
end_while
end_if
return
:funOWinFrn //заходим в раздел друзяк
if 472, 79 43241
left 472, 79
end_if
wait 1s
return

:funClickFrn //кликает по френду в списке
set #frnY1 #frnY + 20*#frnNum
set #frnNum #frnNum + 1
if #frnNum > 8
set #frnNum 0
end_if
left #frnX, #frnY1 //жмакаем на френде
wait 2s
move 397, 492 //кликаем ввойти в гости
if 397, 492 7770539
left 397, 492
wait 3s
gosub funDeiFrn
end_if
return

:funDeiFrn //действие у друзей
left 443, 531
gosub funWinDlg
wait 1s
left 537, 541
gosub funWinDlg
wait 3s
return

:funDeistv //делает действия у себя дома
move 520, 64 //Закрываем лишние окна
if 520, 64 5271184
left 520, 64
end_if
left 51, 47 //вернуться домой
gosub funWinDlg
if 196, 457 12660 //убраться
left 542, 541
gosub funWinDlg
end_if
wait 1s
if_not 487, 544 65451 //лечить
left 487, 544
gosub funWinDlg
end_if
wait 1s
if_not 385, 541 65451 //обучаться
left 353, 544
gosub funWinDlg
end_if
wait 1s
if_not 283, 538 65451 //играть
left 242, 551
wait 1s
left 188, 299
wait 1s
for #i 1 5 1
left 188, 299
wait 5s
end_for
gosub funWinDlg
end_if
wait 1s
if_not 185, 541 65451 //кушатб
for #i 1 3 1
left 146, 554
wait 1s
left 107, 257
wait 5s
end_for
end_if
if_not 79, 537 65451 //спать
left 79, 537
end_if
return

:funWinDlg //жмакает на всякие диалог окна
wait 1s
move 518, 110
if 518, 110 5271184
left 518, 110
end_if
wait 1s
return