WorldCheats Forum

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

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

Поделиться | 
 

 _WreckOp

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

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

СообщениеТема: _WreckOp   Чт Май 07, 2009 4:59 pm

Цитата :
_WreckOp v0.1 Change Log:
v0.1 - 07.05.2009 [Link]:
- Альфа релиз модуля. Расчитан на использование в основном только с новым видом главного цикла.

Цитата :
Главная тема [Link]
Содержание [Link]
Модуль облегчает работу скрипта с вреками. Возможны какие-нибудь сбои, надо тестить временем Smile


Последний раз редактировалось: Belfigor (Чт Май 07, 2009 5:04 pm), всего редактировалось 1 раз(а)
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

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

СообщениеТема: Re: _WreckOp   Чт Май 07, 2009 5:03 pm

#CS
Name: _FindWreck()
Return: 2 - Врек найден
0 - Вреки собраны

Name: _ApproachWreck()
Return: 5 - В случае успешной проверки

Name: _OpenWreck()
Return: 3 - В случае успешной проверки
287 - В случае провала

Name: _LootWreck()
Return: 4 - По окончании операции

Name: _SalvageWreck()
Return 1 - По окончанию операции
#CE


Func _FindWreck()

MouseClick("left", $FindWreckXLoc, $FindWreckYLoc, 1, 10)
CS(500)
PixelSearch($SelectedTargetIconXLoc, $SelectedTargetIconYLoc, $SelectedTargetIconXLoc + 14, $SelectedTargetIconYLoc + 20, $SelectedTargetIconColor, $SelectedTargetIconShade)

If @error Then
Return 2 ;Врек найден
Else
MsgBox(1,1,"Вреки собраны")
Return 0
EndIf

EndFunc ;==> _FindWreck

Func _ApproachWreck()

CS(1000)
_SIButton(1)
Return 5

EndFunc ;==> _ApproachWreck

Func _OpenWreck()

PixelSearch($OpenWreckCheckXLoc, $OpenWreckCheckYLoc-1, $OpenWreckCheckXLoc+3, $OpenWreckCheckYLoc+1, $OpenWreckCheckColor, 10)
If Not @error Then
Return 3
Else
Sleep(1000)
_SIButton(3)
Return 287
EndIf

EndFunc ;==> _OpenWreck

Func _LootWreck()

MouseClick("left", $WreckWindowPosX, $WreckWindowPosY, 1, 10)
Send("^a")
PixelSearch($WreckWindowPosX-7, $WreckWindowPosY-7, $WreckWindowPosX+2, $WreckWindowPosY+2, Not 0x000000, 0)

If @error Then
MouseClickDrag("left", $WreckWindowPosX, $WreckWindowPosY, $CargoHoldX+130, $CargoHoldY+105, 10)
EndIf

CS(500)
Return 4

EndFunc ;==> _LootWreck

Func _SalvageWreck()

Send("{F1}{F2}{F3}{F4}")
MouseClick("left", $FindWreckXLoc, $FindWreckYLoc, 1, 0)
Local $ActiveWreck = PixelGetColor($SelectedTargetIconXLoc + 7, $SelectedTargetIconYLoc + 10)
CS(5000)

Do
PixelSearch($SalvageIconX-1, $SalvageIconY-1, $SalvageIconX+1, $SalvageIconY+1, Not 0x000000, 1)

If @error Then
Sleep(10000)
Else
$Salvaged = 1
EndIf

Until $Salvaged = 1

Do
Local $ActiveWreckTest = PixelGetColor($SelectedTargetIconXLoc + 7, $SelectedTargetIconYLoc + 10)
CS(1000)
Until $ActiveWreck <> $ActiveWreckTest
Return 1

EndFunc ;==> _SalvageWreck
Вернуться к началу Перейти вниз
Посмотреть профиль
 
_WreckOp
Предыдущая тема Следующая тема Вернуться к началу 
Страница 1 из 1

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