Что нового

Помагите с Aimbot'ом!

PreDoK

Новичок
Сообщения
30
Репутация
3
Решил написать AIMBOT по цвету но одна очень большая проблема!
У меня мышь улетает в разные стороны когда появляется на экране определенный цвет, мышь тутже отлетает! Делаю для игры Point Blank (mmofps, Action, 1st Person, Online)!
Вот Исходник AimBot'а

Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <EditConstants.au3>

HotKeySet("{f5}", "_start")
HotKeySet("{f6}", "_stop")
Global $scan = 0

While 1
$px = TwoPixelSearch(0,0,1024,768, 0xAA1511, 10)
if @error = 0 Then
   MouseMove($px[0], $px[1])
	EndIf
WEnd

func TwoPixelSearch($left, $top, $right, $bottom, $findcolor, $tolerance = 0, $step = 0)
	While 1
		If $scan = 1 Then
		while not ($top >= $bottom)
      $px = PixelSearch($left, $top, $right, $bottom, $findcolor, $tolerance, $step)
      if @error = 1 Then ExitLoop ;No matching pixel found, exit loop
      if IsAdj($px, $findcolor, $tolerance) Then return $px ;We found the pixel we were looking for

      ;Search the rest of the current line:
      $top = $px[1]
      while not ($px[0] >= $right)
         $px = PixelSearch($px[0], $top, $right, $top, $findcolor, $tolerance, $step)
         if @error = 1 Then ExitLoop
         if IsAdj($px, $findcolor, $tolerance) Then return $px
         $px[0] = $px[0] + 1
      WEnd
      $top = $top + 1
	WEnd
	SetError(1)
   EndIf
   WEnd
EndFunc

func IsAdj($px, $color, $tolerance) ;Find if any pixels are adjsent to $px and of $color
   dim $pxtemp[2]
   $pxtemp[0] = $px[0]
   $pxtemp[1] = $px[1]

   ;Search above and to the left of the pixel
   if $px[0] > 0 and $px[1] > 0 Then $pxtemp = PixelSearch($px[0] - 1, $px[1] - 1, $px[0] + 1, $px[1], $color, $tolerance)
   if @error = 1 then return False
   if not ($pxtemp[0] = $px[0] and $pxtemp[1] = $px[1]) Then return True ;Return true if a pixel other than $px was found

   ;Search to the right of the pixel
   $pxtemp = PixelSearch($px[0] + 1, $px[1], $px[0] + 1, $px[1], $color, $tolerance)
   if @error = 0 then return true

   SetError(0)
   ;Search below the pixel
   if $px[0] > 0 Then $pxtemp = PixelSearch($px[0] - 1, $px[1] + 1, $px[0] + 1, $px[1] + 1, $color, $tolerance)
   if @error = 0 then return True
EndFunc
;----------------------------функции откл\вкл скана-------------------
Func _start()
$scan = 1
EndFunc   ;==>start

Func _stop()
$scan = 0
EndFunc   ;==>stop
Помогите с этим или может кто нибуть, знает еще способ написать аим на AutoIt?
За помощь отблагодарю!
 
Верх