#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\Downloads\darkorbit.ico
#AutoIt3Wrapper_Outfile=Pallabot By SoapArg.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Region#Region --- CodeWizard generated code Start ---
MsgBox(0, "Pallabot By SoapArg", "Welcome to pallabot v1.1 by SoapArg!" & @CRLF & "Open DarkOrbit Client then let the bot find your life bar and start botting!")
#EndRegion --- CodeWizard generated code End ---
#include<Misc.au3>
#include <windowsconstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <myImageSearch.au3>
$mini_x1 = 0
$mini_y1 = 0
$mini_y2 = 0
$mini_x2 = 0
Global $x1 = 0
Global $y1 = 0
HotKeySet("{TAB}", "bot")
HotKeySet("{ESC}", "exi")
HotKeySet("{s}", "sell")
HotKeySet("{P}", "pause")
HotKeySet("{p}", "pause")
Func pause()
While 1
Sleep(9999)
WEnd
EndFunc
Func bot()
Global $p = InputBox("Use Pet?", "Enable Pet= 1, Disable Pet = 3", "0")
While 1
Select
Case $p = 1
pet1()
Case $p = 2
pet2()
Case $p = 3
lifecheck()
Case $p = 4
repair()
Case $p = 5
bot1()
Case $p = 6
bot2()
Case $p = 7
map()
Case $p = 9
sell()
Case $p = 10
off()
Case $p = 11
des()
Case $p = 12
start()
EndSelect
WEnd
EndFunc
Func exi()
Exit
EndFunc
$life100 = _imagesearch("pic\life.PNG", 1, $x1, $y1, 1)
If $life100 = 1 Then
Sleep(500)
TrayTip("Life found!", "100%", 5, 0)
ElseIf $life100 = 0 Then
Sleep(1000)
TrayTip("Life found!", "You life is less than 99%! You May Repair!", 8, 0)
EndIf
Func pet1()
$petsearch = _imagesearch("pic\pet.png", 1, $x1, $y1, 1)
$petplay = _imagesearch("pic\play.png", 1, $x1, $y1, 1)
$petmode = _imagesearch("pic\mode.png", 1, $x1, $y1, 1)
$petloot = _imagesearch("pic\loot.png", 1, $x1, $y1, 1)
If $petsearch = 1 Then
MouseMove($x1, $y1, 0)
MouseClick("left", $x1, $y1, 1, 0)
Sleep(500)
ElseIf $petplay = 1 Then
MouseMove($x1, $y1, 0)
MouseClick("left", $x1, $y1, 1, 0)
Sleep(500)
ElseIf $petmode = 1 Then
MouseMove($x1, $y1, 0)
MouseClick("left", $x1, $y1, 1, 0)
Sleep(500)
If $petloot = 1 Then
MouseMove($x1, $y1, 0)
MouseClick("left", $x1, $y1, 1, 0)
$p = 2
EndIf
EndIf
EndFunc
Func pet2()
$petoff = _imagesearch("pic\petoff.png", 1, $x1, $y1, 1)
If $petoff = 1 Then
MouseMove($x1, $y1, 0)
MouseClick("left", $x1, $y1, 1, 0)
$p = 3
EndIf
EndFunc
Func lifecheck()
$rep = _imagesearch("pic\destroyed.png", 1, $x1, $y1, 1)
$des = _imagesearch("pic\situ.png", 1, $x1, $y1, 1)
$sell = _imagesearch("pic\sell.png", 1, $x1, $y1, 1)
$life100 = _imagesearch("pic\life.PNG", 1, $x1, $y1, 1)
If $life100 = 0 Then
TrayTip("Life Unter 95%", "Need to Repair", 5, 0)
$p = 4
ElseIf $life100 = 1 Then
TrayTip("Life", "100%", 5, 0)
$p = 5
EndIf
If $sell = 1 Then
TrayTip("Sell Time", "Please Wait", 5, 0)
$p = 10
EndIf
If $des = 1 Then
TrayTip("Ship Destroyed!", "Reparing in situ", 5, 0)
MouseMove($x1, $y1, 0)
MouseClick("left", $x1, $y1, 1, 0)
Sleep(5000)
$p = 11
EndIf
EndFunc
UPS, not all the code dude. Try again.
life detected! and it doesnt do anything . I hve 100% life but bot says i have 99%.