Добавлена тема оформления "Clickermann" для кода с подсветкой синтаксиса. Выбирается из выпадающего списка "Код" (рядом с "цвет", "размер" и "шрифт") в режиме редактирования поста. Либо просто BB-тегом "code=clickermann"
Show Posts
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.
Это мой вариант. Не все гладко, но меня устраивало. Я его забросил.
Для одной удочки. Первый заброс в локе ваш - дальше запускаете. Ловит, выпускает, режет, продает.
Это к какой-то 1 локе привязано ? Пробовал на паре локаций... не работает. Либо что-то править надо ?
неужели нельзя поделится информацией о боте
IF_PICTURE_IN (0,505, 1025, 546, "ne kl.bmp")Уважаемый Oraven, а что это за картинки ? откуда их взять ?
IF_PICTURE_IN (60,583, 112, 617, "sadok.bmp")
Спасибо.
А это нужно у ssanarhist спросить. Ведь это его код здесь: http://crapware.aidf.org/forum/index.php?topic=320.msg7297#msg7297
А лучше написать самому.
ne kl.bmp - индикатор удочки
sadok.bmp - проверяет садок на заполнение
//Определяем координаты
While($x=0)
if(iskeydown(1)=1)
$x=$_xmouse
$y=$_ymouse
LOGWRITE ("Координаты: ",$x," ",$y)
Else
WAITMS(50)
end_if
end_cyc
//Заброс удочки
LCLICK($x,$y)
LOGWRITE ("Забросили")
wait(3)
b:
GETSCREEN
COLORMODE(8, $x+21,503,$x+23,505)
IF(PXL($x+23,504)=16777215)
//LOGWRITE ("Не клюет")
wait(1)
goto(b)
Else
LOGWRITE ("Клюнула")
LCLICK($x+23,505) // по иконке
wait(8)
KEYDOWN(#SPACE)
WAITMS(50)
KEYUP(#SPACE)
wait(1)
// Цикл тянем
GETSCREEN
COLORMODE(8, $x+21,503,$x+23,505)
$check = 0
while((PXL($x+23,503)=16777215) & ($check = 0))
LOGWRITE ("Тянем")
WAITMS(50)
KEYDOWN(#H)
WAITMS(300)
KEYUP(#H)
WAITMS(50)
KEYDOWN(#G)
WAITMS(280)
KEYUP(#G)
WAITMS(200)
GETSCREEN
COLORMODE(7, 10,30,981,518)
IF(PXL(415,448)=8388607)
INC($myvar, 1)
LOGWRITE ("Поймали ",$myvar)
wait(2)
LCLICK(411,476)
wait(1)
keypress(#SPACE)
$check = 1
END_IF
GETSCREEN
COLORMODE(8, $x+21,503,$x+23,505)
end_cyc
END_IF
нужно проверить координату Y. она не задается автоматически... вот скрипт и считает, что у вас постоянно клюет. откройте лог.
нужно проверить координату Y. она не задается автоматически... вот скрипт и считает, что у вас постоянно клюет. откройте лог.
QuoteПодскажите пожалуйста, что надо сделать чтобы использовать ваш бот, скачал кликерман ввел в редактор то что написали для 1 удочки, но чтото не работает, подскажите как правильно если не трудно
1) запускаем скрипт
2) щелчек левойкнопкой в месте заброса
3) все!
//Определяем координаты
While($x=0)
if(iskeydown(1)=1)
$x=$_xmouse
$y=$_ymouse
LOGWRITE ("Координаты: ",$x," ",$y)
Else
WAITMS(50)
end_if
end_cyc
//Заброс удочки
LCLICK($x,$y)
LOGWRITE ("Забросили")
wait(3)
b:
GETSCREEN
COLORMODE(8, $x+21,503,$x+23,505)
IF(PXL($x+23,504)=16777215)
//LOGWRITE ("Не клюет")
wait(1)
goto(b)
Else
LOGWRITE ("Клюнула")
LCLICK($x+23,505) // по иконке
wait(8)
KEYDOWN(#SPACE)
WAITMS(50)
KEYUP(#SPACE)
wait(1)
// Цикл тянем
GETSCREEN
COLORMODE(8, $x+21,503,$x+23,505)
$check = 0
while((PXL($x+23,503)=16777215) & ($check = 0))
LOGWRITE ("Тянем")
WAITMS(50)
KEYDOWN(#H)
WAITMS(300)
KEYUP(#H)
WAITMS(50)
KEYDOWN(#G)
WAITMS(280)
KEYUP(#G)
WAITMS(200)
GETSCREEN
COLORMODE(7, 10,30,981,518)
IF(PXL(415,448)=8388607)
INC($myvar, 1)
LOGWRITE ("Поймали ",$myvar)
wait(2)
LCLICK(411,476)
wait(1)
keypress(#SPACE)
$check = 1
END_IF
GETSCREEN
COLORMODE(8, $x+21,503,$x+23,505)
end_cyc
END_IFQuoteИсправил ошибки. Строки всегда пишутся в кавычках, и не нужно оставлять мусор ввиде ";"
Код: Clickermann
Спасибо!