Рабочий бот на Рыбное место.

[RestKiller]

Всем привет.Вот посидел и написал скрипт на бота.он умеет закидывать удочку,убирать окна и т.д.
Вот сам скрипт:

set #Sx 566
set #Sy 451
get color #Sc #Sx, #Sy
if #Sx, #Sy #Sc
:Start
left 1089, 555 
wait 2700
:Poplavok
while #Sx, #Sy #Sc
if 805, 558 131797 
goto Poplavok
else
left 1097, 558 
goto Loviti
end_if
end_while
:Okna
set #i 1
while_not #Sx, #Sy #Sc
left 1028, 544 1030, 543 
wait 200 
left 984, 420 
wait 1000
left 1017, 354 
if #i > 3
alarm glass.wav //если с 3 попыток не все окна закроются то пилот играет звук разбитого стекла
end_script
else
set #i #i + 1
end_if
end_while
goto Start
:Loviti
while #Sx, #Sy #Sc
if_not 944, 767 61938 
left_down 1123, 567 
left_down 1071, 572  
else  1001, 765 98770   
left_up 773, 769 57597  
left_up 773, 769 57597   
goto Loviti 
end_if
end_while
goto Okna
else
goto Okna
end_if

Если руки не корявые то всё будет работать)))
Прошу не флудить!!!!!!!!!

[сандя]

Давай на чистоту"!
Во первых бот не твой , а polonii (http://zhyk.ru/forum/showthread.php?t=171779)
Во вторых этот вариант не рабочий на 95%
В третьих он является образцом для того , чтобы скаптить свой бот:

set #Sx 628 //координата х неподвижной точки с не изменным цветом
set #Sy 427 //координата у неподвижной точки с не изменным цветом
get color #Sc #Sx, #Sy //определение цвета непожвижной точки
if #Sx, #Sy #Sc //пока неподвижная точка не засвечена окном улова или хз каким ещё окном коих в игре множество, начать
:Start //начать
left 1117, 624 //шелчёк по "забросить удочку"
wait 3000 //ждём пока поплавок встанет на место
:Poplavok //метка проверки а на месте ли поплавок, или уже окунулся =)
while #Sx, #Sy #Sc //пока неподвижная точка не засвечена...
if 851, 602 255 //если поплавок на месте ***
goto Poplavok //проверить поплавок ещё раз
else //иначе
left 1108, 624 //подсеч рыбу нажатием кнопки "тянуть"
goto Loviti //и разумеется перейти к вылавливанию оной
end_if
end_while
:Okna //закрытие окон коие засвечивают собой нашу неподвижную точку
while_not #Sx, #Sy #Sc //пока неподвижная точка не обретёт обратно свой цвет(не засвеченный)
left 1091, 557 //координаты крестика закрытия окна "рыба сорвалась, не клюёт"
wait 200
left 1000, 555 //координаты крестика закрытия окна нового уровня
wait 200
left 1000, 555 //координаты крестика закрытия окна рекордов
wait 200
left 1000 555 //координаты крестика закрытия окна рейтинга
wait 200
left 1030, 435 //координаты крестика закрытия окна нашего с трудом добытого улова
wait 1000 //на случай лагов
goto Okna //проверить все ли окна закрылись(тут специально нет координат окна "поломка снасти" чтобы пилот застопорился в случае поломки)
end_while //закончить проверку окон
goto Start //вернуться к началу
:Loviti //наш глючный алгоритм вылавливания
while #Sx, #Sy #Sc //пока неподвижная точка не засвечена...
if_not 932, 810 1634303 //*пока точка не жёлтая
left_down 1063, 620 //зажать левую кнопку мыши на кнопке "тянуть"
left_down 1155, 615 //то же самое но **
else //если точка * перестала быть жёлтой
left_up 1078, 629 //отпустить левую кнопку мыши
left_up 1141, 622 //тот же гемор с двойным щелчком**
goto Loviti //вернуться к проверкам
end_if
end_while
goto Okna
else
goto Okna
end_if
//*тут указаны координаты жёлтой точки на середине полосы силы нагрузки на снасти
//** если скрипт щёлкнет 1 раз по кнопке тянуть то ничего страшного но когда он выполняя условия процедуры вылавливания
//щёлкнет там же 2 раз то например Opera расценит этот двойной щелчёк мыши по 1 и той же координате как приказ выделить
//всё окно а это плохо отразится на нашей уже вам знакомой неподвижной точке цвет которой увы изменится поэтому повторив
//зажатие мыши по другой кооринате кнопки "тянуть" скрипт никогда не сможет дважды лупануть по 1-ой и той же координате
//и не нужно копать интернет в поисках "как запретить в Opera выделение мышью"
//***на поплавках есть небольше участки в которых соседние точки имеют одинаковый цвет и хотя поплавок колеблется
//точка находящаяся в середине такого учаска имеет неизменный цвет пока рыба не "клюнет" и поплавок не сдвинется
//на значительное расстояние




и последнее когда закидываешь скрипт нужно указывать в каком браузере работает, на какой локации и на какую удочку или спининг!!!!



Вот этот работает на Опере на матчевое удилище в локации Заводье под ПОЛНЫМ тонусом:

set #Sx 875
set #Sy 332
get color #Sc #Sx, #Sy
if #Sx, #Sy #Sc
:Start
left 850, 450
wait 2700
:Poplavok
while #Sx, #Sy #Sc
if 581, 439 988091
goto Poplavok
else
left 850, 450
goto Loviti
end_if
end_while
:Okna
while_not #Sx, #Sy #Sc
left 786, 289
wait 200
left 783, 287
wait 200
left 834, 439
wait 200
goto okna
end_while
goto Start
:Loviti
while #Sx, #Sy #Sc
if_not 651, 670 1020978
left_down 850, 450
goto Loviti
else 705, 669 638587
left_up 850, 450
goto Loviti
end_if
end_while
wait 1000
goto Okna
else
goto Okna
end_if


П.С. На Мазилле даже не пытайтесь запускать у пилот т. к. там стоит антиботовская программа( меняет точки при попытке поставить бота)

[RestKiller]

1)Скрипт работает на всех локациях и скрипт рабочий написал я он ток дал основу(вот если бы он дал полностью рабочий скрипт тогда бы я не писал что написал я)
2)Попробуй мой срипт он должен работать(попробуй в опере сделай масштаб 100% прокрути колёсико на мышке полностью вверх и потом запускай скрипт)

[t-ik]

сори может не в тему там у автора в скрипте в самом конце надо "f" дописать чтобы "if" получилось

[antropopan]

Парни, окна в игре можно закрывать клавишей Esc ощутите экономию времени и сил заменой трети всего скрипта, отвечающей за закрытие окон, фразой "Send Escape".

И не надо будет прописывать координаты крестиков окошек сообщений