WorldCheats Forum

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

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

Поделиться | 
 

 AutoSalvager

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

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

СообщениеТема: AutoSalvager   Сб Май 02, 2009 8:55 pm

Цитата :
AutoSalvager v0.3 Change Log:
v0.3 - 26.03.2009:
- Альфа релиз Salvage Бота

Цитата :
Главная тема [Link]
Содержание [Link]
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

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

СообщениеТема: Re: AutoSalvager   Сб Май 02, 2009 8:57 pm

AutoSalvager v0.3
50\50 рабочий скелет бота сальважера. Летает и сальважит вреки после миски. Может и встать, его надо дописывать
WinMove("EVE","",0,0)
$WinPos = WinGetPos("EVE")
$OverviewX = $WinPos[0] + 767
$OverviewY = $WinPos[1] + 138
$Loot1IconX = $OverviewX + 5
$Loot1IconY = $OverviewY + 58
$sBeginTime = TimerInit()
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{F9}", "Terminate")
Send("!{F2}")
Loot()
Func Loot()
Sleep(5000)
LootDetector()
EndFunc
Func
LootDetector()
MouseClick("left", $Loot1IconX, $Loot1IconY, 1, 0)
PixelSearch(784, 74, 779, 79, not 0x000000, 10)
If @error Then
ApproachWreck()
Else
MsgBox(1,1,"Вреки собраны")
Exit
EndIf
EndFunc
Func
ApproachWreck()
$OpenWreckCheckX = $WinPos[0] + 842
$OpenWreckCheckY = $WinPos[1] + 689
$OpenWreckTestColor = 0x000000
$Target = 0
CS(500)
SIButton(1)
Do
PixelSearch($OpenWreckCheckX, $OpenWreckCheckY-1, $OpenWreckCheckX+3, $OpenWreckCheckY+1, $OpenWreckTestColor, 10)
If Not @error Then
$Target = 1
LootWreck()
Else
Sleep(1000)
SIButton(3)
EndIf
Until
$Target = 1
EndFunc
Func
LootWreck()
$WreckWindowPosX = $WinPos[0] + 807
$WreckWindowPosY = $WinPos[1] + 694
$CargoHoldX = $WinPos[0] + 40
$CargoHoldY = $WinPos[1] + 610
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)
Else
;
EndIf
Sleep(500)
SalvageWreck()
EndFunc
Func
SalvageWreck()
$SalvageIconX = $WinPos[0] + 711
$SalvageIconY = $WinPos[1] + 64
$Salvaged = 0
Send("{F1}{F2}")
MouseClick("left", $Loot1IconX, $Loot1IconY, 1, 0)
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
Sleep(10000)
Loot()
EndFunc
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

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

СообщениеТема: Re: AutoSalvager   Вт Июн 09, 2009 8:09 am

v1.4
Цитата :
Opt("MustDeclareVars", 1)
#include "_SelectedItem v0.2.au3"
#include "_Log v0.3.au3"
#include "_WreckOp v1.0.au3"
#include "_CS v0.1.au3"
WinMove("EVE","",0,0)
Dim $WinPos = WinGetPos("EVE")
Dim $OverviewX = $WinPos[0] +
Dim $OverviewY = $WinPos[1] +
Dim $FindWreckXLoc = $OverviewX + 5
Dim $FindWreckYLoc = $OverviewY + 58
Dim $sBeginTime = TimerInit(), $sMSG
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{F9}", "Terminate")
Send("!{F2}")
Dim $SIX = $WinPos[0] + 756, $SIY = $WinPos[1] + 39
; GetStatus
Dim $MyBotStatus = 1
; SetStatus
Dim $Status
; _FindWreck
Dim $FindWreckXLoc = 772, $FindWreckYLoc = 196
Dim $SelectedTargetIconXLoc = 762, $SelectedTargetIconYLoc = 61, $SelectedTargetIconColor = 0x000000, $SelectedTargetIconShade = 1
; _CheckDistance
Dim $10DistanceCheckXLoc = 874, $10DistanceCheckYLoc =76, $DistanceCheckColor = 0x8A8A8A, $DistanceCheckShade = 10, $ShipMaxSpeed = 647
Dim $1KDistanceCheckXLoc = $SIX + 105, $1DistanceCheckYLoc = $SIY + 37, $1MDistanceCheckXLoc = $SIX + 110;К проверка ширина - 3, М проверка - ширина - 4
; _OpenWreck

Dim $OpenWreckCheckXLoc = $WinPos[0] + 842, $OpenWreckCheckYLoc = $WinPos[1] + 689, $OpenWreckCheckColor = 0x000000
; _LootWreck
Dim $WreckWindowPosX = $WinPos[0] + 807, $WreckWindowPosY = $WinPos[1] + 694, $CargoHoldX = $WinPos[0] + 40, $CargoHoldY = $WinPos[1] + 610
; _SalvageWreck
Dim $SalvageIconX = $WinPos[0] + 711, $SalvageIconY = $WinPos[1] + 64, $Salvaged = 0
Func _MainLoop()
While 1
Select

Case
GetStatus() = 1
_Log("Ищу Врек")
SetStatus(_FindWreck())
Case GetStatus() = 2
_Log("Двигаюсь к вреку")
SetSTatus(_ApproachWreck())
Case GetStatus() = 3
_Log("Лутаю врек")
SetStatus(_LootWreck())
Case GetStatus() = 4
_Log("Сальважу Врек")
SetStatus(_SalvageWreck())
Case GetStatus() = 5
_Log("Проверяю дистанцию 5")
SetStatus(_CheckDistance())
Case GetStatus() = 287
_Log("Открываю врек")
SetStatus(_OpenWreck())
Case GetStatus() = 286
_Log("ПРоверяю дистанцию 286")
SetStatus(_CheckDistance())
Case GetStatus() = 285
_Log("Проверяю дистанцию 285")
SetStatus(_CheckDistance())
Case GetStatus() = 0
_Log("Завершаю скрипт")
SetStatus(_Exit())
EndSelect
WEnd
EndFunc


Func GetStatus()
Return ($MyBotStatus)
EndFunc ;==> GetStatus

Func SetStatus($status)
$MyBotStatus = $status
EndFunc ;==> SetStatus

Func _Exit()
MsgBox(1,"BotStatus","Заканчиваю скрипт")
Exit
EndFunc
;==> _Exit

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc

Func
Terminate()
$sMSG = StringFormat("Cycle Time: %.02d minutes.", (TimerDiff($sBeginTime)/1000)/60 )
MsgBox(0, "Macro Statistics", $sMSG)
Exit 0
EndFunc
Вернуться к началу Перейти вниз
Посмотреть профиль
Спонсируемый контент




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

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

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