WorldCheats Forum

Форум
Форум посвященный главным образом MMORPG играм. Никаких ХАЙДОВ!

 
ФорумПорталЧаВоПоискПользователиГруппыРегистрацияВход

Поделиться | 
 

 Ответы на вопросы

Предыдущая тема Следующая тема Перейти вниз 
На страницу : Предыдущий  1, 2, 3
АвторСообщение
Belfigor
Освоившийся
Освоившийся
avatar

Мужчина Количество сообщений : 259
Возраст : 18
Награда :  
Дата регистрации : 2009-04-29

СообщениеТема: Re: Ответы на вопросы   Вт Авг 04, 2009 10:53 am

Вернуться к началу Перейти вниз
Посмотреть профиль
kadavertsian
Пользователь
Пользователь
avatar

Мужчина Количество сообщений : 1
Возраст : 24
Награда :  
Дата регистрации : 2010-02-24

СообщениеТема: Re: Ответы на вопросы   Ср Фев 24, 2010 8:52 pm

Ребята помогите!!

Через команду pixelserch пробовал найти белый треугольник в овервю но он его не находит.

Подскажите плс где ошибка:

Func StationCheckdock()
$unknow = 0
Do
Sleep(1000)
If PixelSearch(727, 127, 728, 127, 0xCFCFCF, 50) Then
docking()
ToolTip("KOSMOS", 705, 951)
Else
$unknow = 1
ToolTip("DOCK", 705, 951)
EndIf
Until $unknow = 1
EndFunc
Вернуться к началу Перейти вниз
Посмотреть профиль
Gluck
Гость
avatar


СообщениеТема: Re: Ответы на вопросы   Пт Фев 26, 2010 7:45 pm

блин... что не работает? такое ощущение что вызов меню глючит... а понять не могу
$TTCx = 1
$TTCy = 2
Do
LoadingToOutospace()
StopShip()
CS(5000)
OpenMenu(1, 25, 25, 1, 1)
OpenMenu(1, $StrokeX, $StrokeY2, 1, 2)
WarpTest()
OpenMenu(1, $OverviewX, $OverviewY, 2, 1)
SearchingForIceRoid()
TargetingForIceRoid()
MiningIceRoid()
Timer(0, 436, "Варп на базу через ")
StopShip()
CS(1000)
OpenMenu(7, $MenuX, $MenuY, 1, 1)
OpenMenu(3, $StrokeX, $StrokeY2, 1, 2)
WarpTest()
OpenMenu(7, $MenuX, $MenuY, 1, 1)
OpenMenu(1, $StrokeX, $StrokeY2, 1, 2)
WaitDocking()
UnloadCargo()
Until $MainLoop = 0
CS(2000)

Func TT($TTT)
WinPos()
$TTCx = $WinPos[0] + $TTOx
$TTCy = $WinPos[1] + $TTOy
ToolTip($TTT, $TTCx, $TTCy)
EndFunc ;==>TT

Func WinPos()
$WinPos = WinGetPos("EVE")
EndFunc ;==>WinPos

Func OpenMenu($Stroke, $MenuX, $MenuY, $Type, $Run)
Global $MouseSpeed = 15
Select
Case $Type = 1
TT("Открываю Главное Меню")
winmove("EVE", "", 0, 21)
Case $Type = 2
TT("Открываю Овервью")
winmove("EVE", "", -520, 21)
$Correction = 0
EndSelect
Select
Case $Run = 1
TT("Открываю Главное Меню")
$Correction = 0
$Correction2 = 10
MouseClick("left",$MenuX, $MenuY, 1, $MouseSpeed)
Case $Run = 2
TT("Открываю Овервью")
$Correction = 15
$Correction2 = 0
Case $Run = 3
TT("Открываю Овервью")
$Correction = 15
$Correction2 = 0
EndSelect
Global $StrokeX = $MenuX+100
Global $StrokeY = $MenuY+$Correction2
Global $StrokeX2 = $StrokeX+100
Global $StrokeY2 = $MenuY+$Stroke*15-$Correction
Global $WaitTime = 150
CS($WaitTime)
StrokeSelect($Stroke, $StrokeX, $StrokeY2, $Type, $Run)
CS(500)
EndFunc ;==>OpenMenu
Func StrokeSelect($Stroke,$MenuX, $MenuY, $Type, $Run)
CS($WaitTime)
Select
Case $Stroke = 1
TT("Выделяю " &$Stroke& "-ю строку")
MouseMove($StrokeX, $StrokeY, $MouseSpeed)
CS($WaitTime)
MouseClick("left",$StrokeX, $StrokeY, 1, $MouseSpeed)
Case $Stroke > 1
TT("Выделяю " &$Stroke& "-ю строку")
MouseMove($StrokeX, $StrokeY2, $MouseSpeed)
CS($WaitTime)
MouseClick("left",$StrokeX, $StrokeY2, 1, $MouseSpeed)
EndSelect
Select
Case $Type = 1
MouseMove($StrokeX2, $StrokeY2, $MouseSpeed)
Case Else
;
EndSelect
EndFunc


Func LoadingToOutospace()
winmove("EVE", "", 0, 21)
MouseClick("left", 25, 785, 1, 15)
CS(1000)
Do
ToolTip("Undocking", 50, 30)
PixelSearch (55, 95-7, 57, 97-6, 0xE6E6E6, 10)
Until @error = 0
EndFunc ;==>LoadingToOutospace
Func StopShip()
MouseClick("left", 468, 758, 1, 20)
EndFunc ;==>StopShip
Func CS($Time) ;Сама функция: CS - название функции; $Time - Переменное значение берущееся из ссылки на эту функцию.
Sleep($Time) ;Команда Sleep, останавливающая выполнение скрипта на заданное время, где в данном случае в скобках в место конкретного числа указана переменная $Time, берущая свое значение из ссылки на эту функцию
EndFunc ;==>CS


Func WarpTest()
$i = 0
$WarpTestCheckSum = PixelGetColor($WarpTestX, $WarpTestY)
Do
CS(1000)
PixelSearch($WarpTestX, $WarpTestY, $WarpTestX+1, $WarpTestY+1, $WarpTestCheckSum, 10 )
If @error Then
$i = 1
EndIf
Until $i = 1
TT("Лечу")
CS(9000)
$WarpTestCheckSum = PixelGetColor($WarpTestX, $WarpTestY)
Do
CS(1000)
PixelSearch($WarpTestX, $WarpTestY, $WarpTestX+1, $WarpTestY+1, $WarpTestCheckSum, 10 )
If @error Then
$i = 0
EndIf
Until $i = 0
TT("Прилетел")
CS(5000)
EndFunc
Func SearchingForIceRoid()
ToolTip("Searching for the IceRoid", 50, 30)
MouseClick("left", 306, 227, 1, 10)
Sleep(1000)
EndFunc ;==>SearchingForIceRoid
Func TargetingForIceRoid()
SIButton(5)
Timer(0, 2, "Целюсь ")
TT("Нацелилсо ")
EndFunc
Func MiningIceRoid()
WinActivate("EVE")
CS(1000)
TT("Fireing 1st Laser")
Send("{F1}")
CS(1000)
Send("{F2}")
CS(1000)
EndFunc
Func Timer($TTMinutes, $TTSeconds, $Action)
For $Minutes = $TTMinutes to 0 Step -1
For $Seconds = $TTSeconds to 0 Step -1
CS(1000)
TT($Action & $Minutes & ":" & $Seconds &" секунд.")
Next
Next
EndFunc
Func WaitDocking()
$search = 0
Do
TT("Docking")
PixelSearch ($WinPos[0]+55, $WinPos[1]+67, $WinPos[0]+56, $WinPos[1]+68, 0xE6E6E6, 10)
If Not @error Then
OpenMenu(7, $MenuX, $MenuY, 1, 1)
OpenMenu(2, $StrokeX, $StrokeY2, 1, 2)
CS(5000)
Else
$search = 1
EndIf
Until $search = 1
CS(10000)
EndFunc ;==>WaitDocking
Func UnloadCargo()
MouseClickDrag("left", 284, 579, 320, 154, 30)
CS(5000)
EndFunc
Вернуться к началу Перейти вниз
valera
Гость
avatar


СообщениеТема: Re: Ответы на вопросы   Вт Мар 23, 2010 2:42 pm

ну что ж, подытожим. Два дня изучаю новый язык (тот же паскаль, бейсик). Успехи 1 скрипт - андок со станции на фриге, прыжок по закладке в белт, поиск астера, рытьё, назад на станцию, выгрузка. Правда я тут смухлевал. Использовал тупо ранне найденные позиции кнопок - всякие маус клики.
2 скрипт - прыжки по ранее заданному марштуру в импе (ясно дело)
Основные сложности нифига нормально не описаны команды с нужным синтаксисом, приходиться внимальтельно изучать примерв на всякие точки, закорючки и запятые.
Вот небольшое пример: Скрипт ищет точку и цвет для проверки заданного места и цвета которые вы ранее нашли через AutoIt Window Info
$cvet_xy = PixelSearch( 0, 0, 1280, 1024, 0xA8A8A8, 10); параметры окна поиска меняются под конкретную задачу, как и цвет
If Not @error Then
$a=Hex(PixelGetColor($cvet_xy[0], $cvet_xy[1]), 6)
MsgBox(0, "X and Y are цвет", $cvet_xy[0] & "," & $cvet_xy[1] & " цвет " & $a )
EndIf

Возник вопрос тут на сайте всех послали в тему закрытую на другом форуме...форум дрянь - описывает всё что угодно, но не eve. Так же в темах отсутствуют половину модулей на которые ссылаются. Ещё говорилось о тот что в eve цвета "плавают" (пока с этим не встречался), но всё таки киньте ссылку на тему с обсуждением вопроса поиска в данном месте (-+ 20 позиций например) самого часто встречаемого цвета (раз цвет плывет будет каждый раз заного искать цвет кнопок) или проблема определения значков разной формы в графическом виде. Пробывал сам решить проблему, но увы не смог задать двухмерный массив типа $massiv(цвет,цвет) сам, для сравнения массивов цветов заданных самому (типа все желтые) и выдранные из игры.
Пока склоняют не умножать сущьности и забить на такие сложности. Пока не добрался до маккинавы так что копка льда и более наглые занятия, вроде ханпа - сальвага и т.д. не особо интересуют. Надо же и самому играть
Вернуться к началу Перейти вниз
VV
Гость
avatar


СообщениеТема: не могу разобратся   Пн Май 24, 2010 4:31 pm

Попробовал сделать скрипт на открытие врека и его лутание (запускать если врек ближе 2500 м):

Func loot1()
MouseClick( "left", 858, 187, 2 ); открыл врек двойным нажатием лкм на вреке в оверью
Sleep(2500)
MouseClick( "right", 725, 720 ); по пкм открывает меню на вещи во вреке
Sleep(1000)
MouseClick( "left", 730, 740 ); выбирает в открывшемся меню пункт выделить все
Sleep(1500)
MouseClickDrag("left", 725, 720, 413, 669 ); тащим в трюм
Sleep(2000)
EndFunc

Но не могу понять как запустить - окно ЕВЕ работает, вручную пускаю этот скрипт - ничего не происходит. Или неправильно написал его?
Вернуться к началу Перейти вниз
????????
Гость
avatar


СообщениеТема: ..   Пн Июн 14, 2010 12:57 am

Паходу убежал Ваш наставник =D
Вернуться к началу Перейти вниз
guest
Гость
avatar


СообщениеТема: Re: Ответы на вопросы   Ср Мар 16, 2011 12:08 pm

Сколько одновременно ботов можно запустить на одном компе и что для этого надо? от чего зависит это количество?
Вернуться к началу Перейти вниз
Спонсируемый контент




СообщениеТема: Re: Ответы на вопросы   

Вернуться к началу Перейти вниз
 
Ответы на вопросы
Предыдущая тема Следующая тема Вернуться к началу 
Страница 3 из 3На страницу : Предыдущий  1, 2, 3

Права доступа к этому форуму:Вы не можете отвечать на сообщения
WorldCheats Forum :: Лаборатория Читера :: EVE Online :: Помощь новичкам-
Перейти: