Очередная версия скрипта на чистку почты. Убраны кой-какие ошибки, конечно же наделаны новые, убраны привязки к картинкам кроме 1.bmp, по прежнему эта картинка нужна. Должен заметить что скрипт сделан для Мазилы поэтому в других бразах работать не будет. Для хрома мне пока не требуется, поэтому не пробовал даже. Возможно придётся подтачивать под мониторы меньше 17". У меня рабочий моник 20" и второй 19" на обоих пашет без проблемм.
При работе скрипта раскладка клавы в кликере ОБЯЗАТЕЛЬНО!!! должна быть русской.
//Чистка почты и продажа лута в магаз
$c1 = 4079426
$c2 = 592154
$c3 = 1399552
mag1:
LCLICK(863,81) // координаты менять или придумывать что то своё. У меня это ссылка на магаз, вынесена на панель закладок в бразе
GOSUB(WAIT_MA)
GETSCREEN
IF_PIXEL_IN(550,200, 800, 600, 1919430)
$x = $_return1
$y = $_return2
END_IF
$x3 = $x-198
$x4 = $x-148
$y3 = $y-22
$y4 = $y-14
sl1:
getscreen
if_pixel_in($x3, $y3, $x4, $y4, $c1, $c2, $c3)
LCLICK($x, $y+2)
WAITMS(RND(300,500))
KEYPRESS(#ENTER)
GOSUB(WAIT_MA)
GOTO(sl1)
end_if
sl2:
getscreen
if_pixel_in($x3, $y3+50, $x4, $y4+50, $c1, $c2, $c3)
LCLICK($x, $y+52)
WAITMS(RND(300,500))
KEYPRESS(#ENTER)
GOSUB(WAIT_MA)
GOTO(sl2)
end_if
sl3:
getscreen
if_pixel_in($x3, $y3+100, $x4, $y4+100, $c1, $c2, $c3)
LCLICK($x, $y+102)
WAITMS(RND(300,500))
KEYPRESS(#ENTER)
GOSUB(WAIT_MA)
GOTO(sl3)
end_if
sl4:
getscreen
if_pixel_in($x3, $y3+150, $x4, $y4+150, $c1, $c2, $c3)
LCLICK($x, $y+152)
WAITMS(RND(300,500))
KEYPRESS(#ENTER)
GOSUB(WAIT_MA)
GOTO(sl4)
end_if
sl5:
getscreen
if_pixel_in($x3, $y3+200, $x4, $y4+200, $c1, $c2, $c3)
LCLICK($x, $y+202)
WAITMS(RND(300,500))
KEYPRESS(#ENTER)
GOSUB(WAIT_MA)
GOTO(sl5)
end_if
sl6:
getscreen
if_pixel_in($x3, $y3+250, $x4, $y4+250, $c1, $c2, $c3)
LCLICK($x, $y+252)
WAITMS(RND(300,500))
KEYPRESS(#ENTER)
GOSUB(WAIT_MA)
GOTO(sl6)
end_if
sl7:
getscreen
if_pixel_in($x3, $y3+300, $x4, $y4+300, $c1, $c2, $c3)
LCLICK($x, $y+302)
WAITMS(RND(300,500))
KEYPRESS(#ENTER)
GOSUB(WAIT_MA)
GOTO(sl7)
end_if
ht1:
getscreen
if_pixel_in($x3, $y3+300, $x4, $y4+300, 11438, 9437313, 9456128)
SOUND("pause.wav")
HALT
end_if
LCLICK(929,81) // координаты менять или придумывать что то своё. У меня это ссылка на почту, вынесена на панель закладок в бразе
WAIT(RND(12,14))
po:
GETSCREEN
if_pixel_in(800, 230, 1100, 320, 11982062)
$x2 = $_return1
$y2 = $_return2
else
goto(F)
end_if
LCLICK(79,17) //Это координаты - кнопоська вызова меню в фаерфоксе (Firefox)
WAITMS(150)
LCLICK(69,118) //а так же эти - фунция поиска текста (найти) У меня панель меню убрана. если у вас она стоит по умолчанию, то или убрать или переделывать координаты
WAITMS(150)
KEYSTRING("Сервер")
WAITMS(300)
getscreen
if_pixel_in(800,230,1300,600, 7919672)
$p = $_return1
$p1 = $_return2
end_if
LCLICK($p,$p1+2)
WAITMS(4500)
LCLICK($x2+20,$y2+256)
WAITMS(115)
LCLICK($x2+20,$y2+256)
GOSUB (WAIT_KN)
WAITMS(10)
KEYPRESS(#ENTER)
GOSUB (WAIT_FON)
LCLICK($p+10,$p1+2)
WAITMS(RND(600,1000))
LCLICK($x2+170,$y2+237)
WAITMS(300)
KEYPRESS(#ENTER)
GOSUB (WAIT_FON)
GETSCREEN
COLORMODE(6)
IF_PICTURE_IN($x2-440,$y2+18,$x2-175,$y2+230, "1.bmp")
COLORMODE(0)
goto(po)
else
COLORMODE(0)
goto(mag1)
END_IF
F:
LCLICK(863,81) // координаты менять или придумывать что то своё. У меня это ссылка на магаз, вынесена на панель закладок в бразе
GOSUB(WAIT_MA)
GETSCREEN
IF_PIXEL_IN($x3, $y3+300, $x4, $y4+300, $c1, $c2, $c3)
goto(mag1)
else
HALT
end_if
SUB(WAIT_MA)
$break = 0
WHILE($break = 0)
WAIT(1)
GETSCREEN
IF_PIXEL_IN(550,200, 800, 600, 1919430)
$break = 1
END_IF
END_CYC
END_SUB
SUB(WAIT_FON)
$break = 0
WHILE($break = 0)
WAIT(1)
GETSCREEN
IF_PIXEL_IN($x2-57, $y2+70, $x2-27, $y2+78, 1447960, 1382167, 1513753)
$break = 1
END_IF
END_CYC
END_SUB
SUB(WAIT_KN)
$break = 0
WHILE($break = 0)
WAIT(1)
GETSCREEN
IF_PIXEL_IN($x2-235, $y2+40, $x2-85, $y2+140, 4011934, 4145055)
$break = 1
END_IF
END_CYC
END_SUB
