31
Биржа труда / Re: Требуется бот для браузерной онлайн игры. За работу заплачу.
« on: July 27, 2014, 05:35:58 PM »
Ну а указать для какой именно игры не судьба? Или это военная тайна? ))
Добавлена тема оформления "Clickermann" для кода с подсветкой синтаксиса. Выбирается из выпадающего списка "Код" (рядом с "цвет", "размер" и "шрифт") в режиме редактирования поста. Либо просто BB-тегом "code=clickermann"
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
//Чистка почты
$c1 = 4079426
$c2 = 592154
$c3 = 1399552
$c4 = 7165792
M:
TRAYSAY("Чищу почту") //сообщение в трее о работе кликера (удалите строку если напрягает)
LCLICK(95,85) //кнопка быстрого перехода на почту на панели закладок в бразе. менять координаты при необходимости!!!
WAIT(3)
$r1 = 467
$r2 = 344
$r3 = $r1+10
$r4 = $r2+10
po:
GOSUB(Per)
GETSCREEN
if_pixel_in(870, 300, 900, 550, 1339325)
LCLICK($_return1+10, $_return2+2)
else
LCLICK(35,85)//кнопка быстрого перехода в магазин на панели закладок в бразе. менять координаты при необходимости!!!
TRAYSAY("писем нет") // сообщение о том что почта пустая и остановка скрипта
halt
end_if
WAIT(1)
GETSCREEN
if_pixel_in(1045, 555, 1065, 575, 2286590)
else
goto(UD)
end_if
Me:
WHILE($r1<705)
IF_PIXEL_IN($r1,$r2, $r3,$r4, 3158058)
$j = $_return1
$j2 = $_return2
goto(psh)
else
INC($r1,53)
INC($r3,53)
END_IF
END_CYC
WHILE($r1 = 732)
INC($r2,53)
INC($r4,53)
$r1 = 467
$r3 = $r1+10
END_CYC
IF($r2>556)
LCLICK(35,85)
TRAYSAY("забито") //можно удалить если напрягает, сообщение о том что рюкзак забит полностью и остановка скрипта
halt
END_IF
goto(Me)
psh:
WAITMS(500)
LCLICK(925,560)
LDOWN(920,564)
WAITMS(RND(700,900))
MOVE($j,$j2)
WAITMS(500)
LUP($j,$j2)
LCLICK(800,10)
KEYPRESS(#ENTER)
GOSUB (PROD)
GOTO(po)
UD:
LCLICK(1070, 540)
GOSUB(Del)
KEYPRESS(#ENTER)
WAIT(1)
GOSUB (Per)
goto(po)
SUB(Ent)
$br = 0
WHILE($br = 0)
WAITMC(500)
GETSCREEN
IF_PIXEL_IN(815,340, 830, 360, 55547)
$br = 1
END_IF
END_CYC
END_SUB
SUB(PROD)
$br = 0
WHILE($br= 0)
WAITMC(500)
GETSCREEN
IF_PIXEL_IN(815, 340, 830, 360, 55547)
else
$br = 1
END_IF
END_CYC
END_SUB
SUB(Del)
$br = 0
WHILE($br = 0)
WAITMC(500)
GETSCREEN
IF_PIXEL_IN(815, 340, 830, 360, 8901117)
$br = 1
END_IF
END_CYC
END_SUB
SUB(Per)
$b = 0
WHILE($b = 0)
WAIT(1)
GETSCREEN
if_pixel_in(820, 387, 821, 388, 9935251)
$b = 1
END_IF
END_CYC
END_SUB
[/spoiler]4.8 отсутствует кстати, скачал 4.7SE
Или используй 4.8 или жди исправления.