Bot Palla v.2.5

04/26/2013 19:53 AFzizou98#1
Hi guys, few time ago I've done a pixelbot for palladium, now I've updating it, actually he defends himself against NPC *_*

VT: [Only registered and activated users can see links. Click Here To Register...]

Good botting :p

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
:mofo:
04/26/2013 19:55 Peshо#2
Could you make a tutorial?
04/26/2013 20:00 AFzizou98#3
Yes I can :)

For the moment, just some instuctions :

-1280x720
-worse quality
-put the window of DO in the left upper corner of the screen
04/26/2013 21:52 summershandy#4
I dont get the ship config button....where are you supposed to push enter and how do you set up the lazer that its supposed to fire, it always does 7 button...thanks
04/26/2013 23:30 blahblah9#5
some of the pixel bots are soo laggy on my comp do you know how to fix it?
04/27/2013 11:23 aha232#6
npc for free ....
04/27/2013 14:25 AFzizou98#7
I will update it, it should kill enforcers ships..