WorldCheats Forum

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

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

Поделиться | 
 

 WreckOp

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

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

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

WreckOp v1.0

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 _FindWreckTest()
;~ MouseClick("left", $FindWreckXLoc, $FindWreckYLoc, 1, 10)
PixelSearch($SelectedTargetIconXLoc, $SelectedTargetIconYLoc, $SelectedTargetIconXLoc + 14, $SelectedTargetIconYLoc + 20, $SelectedTargetIconColor, $SelectedTargetIconShade)
If @error Then
;~ Return 2
MsgBox(1,1,"Врек найден")
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 ;;;;;;;;;;;;;;;;;;;ТУТ БАГ, ЕСЛИ ПОСТАВИТЬ 5 СКРИПТ ЗАВЕРШАЕТ РАБОТУ
EndIf
EndFunc
;==> _OpenWreck

Func _LootWreck()
;~ Send("!{F2}")
;~ FullCargoCheck()
;~ CS(Round(8500/$ShipMaxSpeed, 1))

_SIButton(3)
Sleep(1000)
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
Sleep(500)
Return 4
;~ FullCargoCheck()
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
;~ MsgBox(1,1,"Salvaged")
;~ Sleep(15000)

Do
Local
$ActiveWreckTest = PixelGetColor($SelectedTargetIconXLoc + 7, $SelectedTargetIconYLoc + 10)
CS(1000)
_log("Тест на исчезновение иконки")
Until $ActiveWreck <> $ActiveWreckTest
Return 1

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

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