WorldCheats Forum

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

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

Поделиться | 
 

 LoadingToOutospace

Предыдущая тема Следующая тема Перейти вниз 
АвторСообщение
Belfigor
Освоившийся
Освоившийся
avatar

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

СообщениеТема: LoadingToOutospace   Пт Май 01, 2009 1:46 pm

Цитата :
LoadingToOutospace v1.4 Change Log:
v1.4 12.05.2009 [Link] [Deposit Link]:
-
Заработала команда "Dock"
v1.3 09.05.2009 [Link]:
-
Скрипт полностью переработан и переписан для работы с новой архитектурой через Case MainLoop
v0.2:
- хронология, сорц и изменения утеряны
v0.1 - 15.02.2009 [Link]:
- Альфа релиз модуля

Цитата :
Главная тема [Link]
Содержание [Link]


Последний раз редактировалось: Belfigor (Вт Май 12, 2009 9:24 am), всего редактировалось 9 раз(а)
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

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

СообщениеТема: Re: LoadingToOutospace   Пт Май 01, 2009 1:47 pm

LoadingToOutospace v0.1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;
;; Модуль LoadingToOutospace v0.1 Модуль выгрузки в космос
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;
;; Применение:
;; Само тело функции расместить в любой удобной части скрипта.
;; Использовать ссылку на функцию из любой части скрипта, чтобы инициировать процесс отстыковки от станции.
;; Зависимость: НЕТ
;; Описание:
;; Модуль выгрузки в космос - это независмый модуль не требующий для своей работы каких либо других модулей.
;; Принцип работы:
;; Установка окна EVE в исходное положение (0,21).
;; Инициализация процесса отстыковки путем нажатия на кнопку Undock.
;; Приостановка дальнейшего выполнения скрипта до момента подтверждения нахождения корабля в космосе.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;

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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

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

СообщениеТема: Re: LoadingToOutospace   Сб Май 09, 2009 6:59 am

_LoadingToOutospace v1.3

;Запрос на док: _DockUndock("Dock")
;Запрос на андок: _DockUndock("Undock")


Dim
$WinPos = WinGetPos("EVE")
Dim $UBX = $WinPos[0]+25, $UBY = $WinPos[1]+806 ;Undock Button X/Y
Dim $ISSAX1 = $WinPos[0]+54, $ISSAY1 = $WinPos[1]+67, $ISSAX2 = $ISSAX1+3, $ISSAY2 = $ISSAY1+3, $ISSAC = 0xE6E6E6, $ISSAS = 10;InSpaceSearchArea X/Y, 1/2, Color, Shade
Local $i
Func _DockUndock($DockUndockOp)
$ModuleName = "_DockUnDock"
Select
Case
$DockUndockOp = "Dock"
$i = 284
Case $DockUndockOp = "Undock"
$i = 283
Case Else
_EM("Неправильно задан параметр DockUndockOp.")
Exit
EndSelect
Do

_ShipState()
Until _ShipState() = $i
Return $i
EndFunc ;==>LoadingToOutospace

Func _ShipState()
PixelSearch ($ISSAX1, $ISSAY1, $ISSAX2, $ISSAY2, $ISSAC, $ISSAS)
If @error Then
Return
284 ;На станции
Else
Return
283 ;В космосе
EndIf
EndFunc


Последний раз редактировалось: Belfigor (Сб Май 09, 2009 8:22 pm), всего редактировалось 1 раз(а)
Вернуться к началу Перейти вниз
Посмотреть профиль
NCXI FKO
Пользователь
Пользователь
avatar

Мужчина Количество сообщений : 30
Возраст : 33
Награда :  
Дата регистрации : 2009-05-01

СообщениеТема: Re: LoadingToOutospace   Сб Май 09, 2009 7:25 pm

А чем старый модуль хуже нового ?
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

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

СообщениеТема: Re: LoadingToOutospace   Сб Май 09, 2009 8:19 pm

LoadingToOutospace v1.31
;Запрос на док: _DockUndock("Dock")
;Запрос на андок: _DockUndock("Undock")


Dim $WinPos = WinGetPos("EVE")
Dim $UBX = $WinPos[0]+25, $UBY = $WinPos[1]+806 ;Undock Button X/Y
Dim $ISSAX1 = $WinPos[0]+54, $ISSAY1 = $WinPos[1]+67, $ISSAX2 = $ISSAX1+3, $ISSAY2 = $ISSAY1+3, $ISSAC = 0xE6E6E6, $ISSAS = 10;InSpaceSearchArea X/Y, 1/2, Color, Shade
Local $i
Func _DockUndock($DockUndockOp)
$ModuleName = "_DockUnDock"
Select
Case
$DockUndockOp = "Dock"
_Dock()
Case $DockUndockOp = "Undock"
_Undock()
Case Else
_EM("Неправильно задан параметр DockUndockOp.")
Exit
EndSelect
EndFunc
;==>LoadingToOutospace

Func _ShipState()
PixelSearch ($ISSAX1, $ISSAY1, $ISSAX2, $ISSAY2, $ISSAC, $ISSAS)
If @error Then
Return
284 ;На станции
Else
Return
283 ;В космосе
EndIf
EndFunc

Func
_Undock()
$i = 283
MouseClick("left", 25, 785, 1, 15)

Do
_ShipState()
Until _ShipState() = $i

Do
_StopShip()
Until _StopShip() = 281

Return $i
EndFunc

Func
_Dock()
$i = 284
MsgBox(0, "Error", "Эта функция пока не поддерживается")
Return $i
EndFunc


Последний раз редактировалось: Belfigor (Сб Май 09, 2009 8:30 pm), всего редактировалось 2 раз(а)
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

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

СообщениеТема: Re: LoadingToOutospace   Сб Май 09, 2009 8:29 pm

NCXI FKO пишет:
А чем старый модуль хуже нового ?
LoadingToOutospace v0.1 мог:
- При обращении к нему по ссылке LoadingToOutospace() будучи на станции, нажать кнопку андок и приостановить выполнение скрипта до тех пор пока корабль не выгрузится в космос.

LoadingToOutospace v1.31 может:
- Работать в обоих направлениях

- Команда _DockUndock("Undock")
# Применение этой ссылки на станции вызовет:
1 - Нажатие кнопки Undock.
2 - Приостановку выполнения скрипта до того момента как корабль не завершит выгрузку в космос.
3 - Приостановку выполнения скрипта до полной остановки корабля.
4 - После выполнения всех действий - возврат числа 283

- Команда _DockUndock("Dock") Эта команда пока что почти не работает
# В будущем, применение этой ссылки на станции вызовет:
1 - Попытки докнуться до тех пор пока корабль не войдет в док.
2 - После выполнения всех действий - возврат числа 284

- Команда _ShipState()
# Применение этой ссылки возвращает данные о положении корабля.
- Если корабль на станции то вернется значение 284.
- Если корабль в космосе то вернется значение 283.
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

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

СообщениеТема: Re: LoadingToOutospace   Вт Май 12, 2009 9:17 am

LoadingToOutospace v1.4 [Deposit Link]
Dim $WinPos = WinGetPos("EVE")
Dim $UBX = $WinPos[0]+25, $UBY = $WinPos[1]+806 ;Undock Button X/Y
Dim $ISSAX1 = $WinPos[0]+54, $ISSAY1 = $WinPos[1]+67, $ISSAX2 = $ISSAX1+3, $ISSAY2 = $ISSAY1+3, $ISSAC = 0xE6E6E6, $ISSAS = 10;InSpaceSearchArea X/Y, 1/2, Color, Shade
Local $i

Func _DockUndock($DockUndockOp)
$ModuleName = "_DockUnDock"
Select
Case
$DockUndockOp = "Dock"
_Dock()
Case $DockUndockOp = "Undock"
_Undock()
Case Else
_EM("Неправильно задан параметр DockUndockOp.")
Exit
EndSelect
EndFunc
;==>LoadingToOutospace

Func _ShipState()
PixelSearch ($ISSAX1, $ISSAY1, $ISSAX2, $ISSAY2, $ISSAC, $ISSAS)
If @error Then
Return
284 ;На станции
Else
Return
283 ;В космосе
EndIf
EndFunc

Func
_Undock()
$i = 283
MouseClick("left", 25, 785, 1, 15)

Do
_ShipState()
Until _ShipState() = $i

Do
_StopShip()
Until _StopShip() = 281

Return $i
EndFunc

Func
_Dock()
$i = 284
Do
OpenMenu(6, $MenuX, $MenuY, 1, 1)
OpenMenu(3, $StrokeX, $StrokeY2, 1, 2)
For $ii = 1 to 10 Step 1
If _ShipState() = $i Then ExitLoop
CS(1000)
Next
Until
_ShipState() = $i
Return $i
EndFunc
Вернуться к началу Перейти вниз
Посмотреть профиль
NCXI FKO
Пользователь
Пользователь
avatar

Мужчина Количество сообщений : 30
Возраст : 33
Награда :  
Дата регистрации : 2009-05-01

СообщениеТема: Re: LoadingToOutospace   Вт Май 12, 2009 2:38 pm

Хм даже не представляю как этот модуль вставить! пробывал ошибки лезут!
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

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

СообщениеТема: Re: LoadingToOutospace   Вт Май 12, 2009 5:12 pm

Там используется ссылка на _EM модуль, выключи ее, этот модуль пока не выложен ибо не корректно работает время от времени, так же этот модуль требует для своей работы: OpenMenu v0.1 и CS v0.1 модули
Вернуться к началу Перейти вниз
Посмотреть профиль
Lexx98
Пользователь
Пользователь
avatar

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

СообщениеТема: Re: LoadingToOutospace   Вс Авг 09, 2009 12:30 pm

Кстати рекомендуется проверять цвет того треугольника по искомым координатам, ибо у меня он вроде как не E6E6E6, а E7E7E7 и соответственно подгонять под свой.
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

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

СообщениеТема: Re: LoadingToOutospace   Вс Авг 09, 2009 12:42 pm

оно ищет е6е6е6 с шейдом 10
Вернуться к началу Перейти вниз
Посмотреть профиль
Lexx98
Пользователь
Пользователь
avatar

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

СообщениеТема: Re: LoadingToOutospace   Вс Авг 09, 2009 3:12 pm

Я уже понял... Rolling Eyes
Вернуться к началу Перейти вниз
Посмотреть профиль
?????? ?
Гость
avatar


СообщениеТема: Вопрос!   Вт Май 11, 2010 6:53 am

Народ помогите разобраться... Пару дней назад решил создать бота - майнера для Евы. Нашел программу xStarter, позволяет сделать иммитацию присутствия в игре. А именно, записывает все движения мыши, клавы и потом воспроизводит... Грубо, но довольно просто. Естественно такой бот работает не очень стабильно. Отсутствие астероида, или быстрая его выроботка, или что-то помешало включить Экстрактор и всё, бот будет висеть на месте пока не настанет время отварпать. И естественно возник вопрос, а ведь можно и лучше наверное?Нашел AutoIT, скачал... Нарыл мануалов... Медленно но верно начинаю постигать основы, но... Столкнулся с проблемой которую не в силах решить сам. Суть проблемы:Есть такой момент в скрипте Func WaitingForWarpEnd()
Do
ToolTip("Warping", 50, 30)
Until PixelGetColor(515, 750) = 0x0F0F0F
EndFunc

я так понимаю что АвтоИТ по иконке определяет что Корабль варпает, видел еще один кусок текста где скрипт определяет на панеле обзора Красный крестик.И вот у вас вижу PixelSearch (55, 95-7, 57, 97-6, 0xE6E6E6, 10). Подскажите пожалуйста, как определять тип картинки? 
Вернуться к началу Перейти вниз
?????? ?
Гость
avatar


СообщениеТема: Как определить цвет иконки под курсором   Вт Май 11, 2010 11:31 pm

Разобрался...Нужно было просто повнимательнее посмотреть AutoIT v3 Window Info, там есть вкладка Mouse,  на ней есть три пункта, Позициа курсора(Position),ID курсора (Cursor ID) и Цвет(Color) вот он то и нужен был. 
Вернуться к началу Перейти вниз
Спонсируемый контент




СообщениеТема: Re: LoadingToOutospace   

Вернуться к началу Перейти вниз
 
LoadingToOutospace
Предыдущая тема Следующая тема Вернуться к началу 
Страница 1 из 1

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