VT:
Good botting
If you want the source code, it's autoit :
Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\administrateur\desktop\boulou\freeorbit\freeorbitpalla\v.2.kxf
$Form1_1 = GUICreate("FreeOrbit Palladium V.2.0 by AFzizou", 323, 201, 192, 124)
$Group1 = GUICtrlCreateGroup("Settings", 16, 8, 289, 113)
$ULButton = GUICtrlCreateButton("Upper-Left corner Mini-Map", 24, 24, 171, 25)
$DRButton = GUICtrlCreateButton("Down-Right corner Mini-Map", 24, 56, 171, 25)
$ULLabel = GUICtrlCreateLabel("No configured", 208, 32, 71, 17)
$DRLabel = GUICtrlCreateLabel("No configured", 208, 64, 71, 17)
$SButton = GUICtrlCreateButton("Ship", 24, 88, 171, 25)
$SLabel = GUICtrlCreateLabel("No configured.", 208, 96, 74, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$start = GUICtrlCreateButton("GO !", 16, 128, 107, 25)
$Label1 = GUICtrlCreateLabel("FreeOrbit Log", 16, 168, 292, 17, BitOR($SS_CENTER,$WS_BORDER))
$Label2 = GUICtrlCreateLabel("ESC to stop", 128, 136, 60, 17)
$touche = GUICtrlCreateInput("F2", 264, 128, 41, 21)
$Label3 = GUICtrlCreateLabel("Shield Aegis :", 192, 136, 68, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $autorisation1 = false, $autorisation2 = false, $autorisation3 = false, $right, $left, $up, $bottom, $SX, $SY, $hauteur = 750, $largeur = 750, $attaque = False
Func autoriser1()
$position = MouseGetPos()
$left = $position[0]
$up = $position[1]
$autorisation1 = true
GUICtrlSetData($ULLabel, "OK")
GUICtrlSetData($Label1, "OK")
EndFunc
Func Quitter()
Exit
EndFunc
Func distance($x2, $y2)
$distance = Sqrt(($SX-$x2)^2+($SY-$y2)^2)
Return $distance
EndFunc
Func tempsPause($distance)
Return 1000*($distance/300)+500
EndFunc
Func autoriser2()
$position = MouseGetPos()
$right = $position[0]
$bottom = $position[1]
$autorisation2 = true
GUICtrlSetData($DRLabel, "OK")
GUICtrlSetData($Label1, "OK")
EndFunc
Func autoriser3()
$position = MouseGetPos()
$SX = $position[0]
$SY = $position[1]
$autorisation3 = true
GUICtrlSetData($SLabel, "OK")
GUICtrlSetData($Label1, "OK")
EndFunc
Func rechercheNPC($npc)
$color = 0
If $npc==1 Then
$color = 7366242
ElseIf $npc==2 Then
$color = 4670520
ElseIf $npc==3 Then
$color = 8479043
ElseIf $npc==4 Then
$color = 2237747
Else
Return
EndIf
$position = PixelSearch(0, 0, 1799, 800, $color)
If Not @error Then
Return $position
EndIf
Dim $position[2] = [0, 0]
Return $position
EndFunc
Func attaqueNPC()
$i = 1
Dim $NPCpos[2] = [0, 0]
If Not $attaque Then
While $i <=4
If Not $attaque Then
$NPCpos = rechercheNPC($i)
If $NPCpos[0]<>0 Or $NPCpos[1]<>0 Then
$attaque = true
Dim $target = $NPCpos
MouseClick("left", $target[0], $target[1], 1 , 0)
Sleep(500)
Send("&")
EndIf
$i = $i + 1
EndIf
WEnd
Else
Dim $ciblePos[2] = [0, 0]
$ciblePos = PixelSearch(0, 0, 1799, 800, 0xF6080A)
If @error Then
$attaque = false
EndIf
EndIf
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ULButton
GUICtrlSetData($Label1, "Configuring : press Enter in the upper-left corner of your mini-map")
HotKeySet("{ENTER}", "autoriser1")
Case $DRButton
GUICtrlSetData($Label1, "Configuring : press Enter in the bottom right corner of your nini-map")
HotKeySet("{ENTER}", "autoriser2")
Case $SButton
GUICtrlSetData($Label1, "Configuring : press Enter in the bottom right corner of your nini-map")
HotKeySet("{ENTER}", "autoriser3")
Case $start
If Not $autorisation1 Or Not $autorisation2 Or Not $autorisation3 Or $touche == "" Then
GUICtrlSetData($Label1, "Configuration is needed !")
Else
GUISetState(@SW_MINIMIZE)
While 1
$bouc = TimerInit()
Send("{"&$touche&"}")
HotKeySet("{ESCAPE}", "quitter")
While TimerDiff($bouc<30000)
attaqueNPC()
HotKeySet("{ESCAPE}", "quitter")
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
$positionPalla = PixelSearch($SX - 200, $SY + 100, $SX + 200, $SY - 100, 8756139)
If Not @error Then
MouseClick("left", $positionPalla[0], $positionPalla[1], 1, 0)
GUICtrlSetData($Label1, "Flying to position")
Sleep(tempsPause(distance($positionPalla[0], $positionPalla[1])))
Else
$positionPalla = PixelSearch(0, $hauteur*0.5+50, 14199, $hauteur, 8756139)
If Not @error Then
MouseClick("left", $positionPalla[0], $positionPalla[1], 1, 0)
GUICtrlSetData($Label1, "Flying to position")
Sleep(tempsPause(distance($positionPalla[0], $positionPalla[1])))
Else
$positionPalla = PixelSearch(0, 0, 1499, $hauteur*0.5+50, 8756139)
If Not @error Then
MouseClick("left", $positionPalla[0], $positionPalla[1], 1, 0)
GUICtrlSetData($Label1, "Flying to position")
Sleep(tempsPause(distance($positionPalla[0], $positionPalla[1])))
Else
$x = Random($left, $right)
$y = Random($up, $bottom)
MouseClick("left", $x, $y, 1, 0)
GUICtrlSetData($Label1, "Fly")
$timer = TimerInit()
While (TimerDiff($timer)<=5000)
attaqueNPC()
HotKeySet("{ESCAPE}", "quitter")
$positionPalla = PixelSearch($SX - 200, $SY + 100, $SX + 200, $SY - 100, 8756139)
If Not @error Then
MouseClick("left", $positionPalla[0], $positionPalla[1], 1, 0)
GUICtrlSetData($Label1, "Flying to position")
Sleep(tempsPause(distance($positionPalla[0], $positionPalla[1])))
Else
$positionPalla = PixelSearch(0, $hauteur*0.5+50, 1499, $hauteur, 8756139)
If Not @error Then
MouseClick("left", $positionPalla[0], $positionPalla[1], 1, 0)
GUICtrlSetData($Label1, "Flying to position")
Sleep(tempsPause(distance($positionPalla[0], $positionPalla[1])))
GUICtrlSetData($Label1, "Sleep...")
Else
$positionPalla = PixelSearch(0, 0, 1499, $hauteur*0.5+50, 8756139)
If Not @error Then
MouseClick("left", $positionPalla[0], $positionPalla[1], 1, 0)
GUICtrlSetData($Label1, "Flying to position")
Sleep(tempsPause(distance($positionPalla[0], $positionPalla[1])))
EndIf
EndIf
EndIf
WEnd
EndIf
EndIf
EndIf
WEnd
WEnd
;8756139
EndIf
EndSwitch
WEnd
