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