Что нового
Автор:
Фильтры

[Игры] AIM бот для 3D шутеров

F

foxisalt123

Новичок
Сообщения
10
Репутация
0
Доброго времени суток. Нужна помощь. Написал и сам не понял почему Венд не согласуется с Вхали.
Global $Aimbot = 0

Opt("MouseCoordMode", 0)
Opt("PixelCoordMode", 0)
Opt("MouseClickDelay", 0)
Opt("MouseClickDownDelay", 0)

Hotkeyset ("{HOME}", "AimAimbot")
Hotkeyset ("{INS}", "AimShootAimbot")
HotKeySet ("{End}", "TurnoffAimbot")
HotKeySet ("{Space}", "Reload")

Global $searchcolor = 0xFF2626;
Global $searchcolor1 = 0xFC0303;
Global $searchcolor2 = 0xF90000;
Global $searchcolor3 = 0xFA0000;
Global $searchcolor4 = 0xF70000;
Global $searchcolor5 = 0xFF0C0C;
Global $searchcolor6 = 0xFF2929;
Global $searchcolor7 = 0xFF1313;
Global $searchcolor8 = 0xFF1919;
Global $searchcolor9 = 0xF41919;
Global $searchcolor10 = 0xFF1616;
Global $searchcolor11 = 0xFF0909;
Global $searchcolor12 = 0xF40000;
Global $searchcolor13 = 0xF70303;
Global $searchcolor14 = 0xFA2F2F;
Global $searchcolor15 = 0xFF3333;
Global $searchcolor16 = 0xFA0000;

While 1
Sleep(1000)
Wend

Func AimAimbot()
$Aimbot = 1
While 1
If $Aimbot = 1 then
$coord = PixelSearch(663, 625, 675, 633, $searchcolor,16)
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
EndIf
EndIf
$Aimbot = 1
If $Aimbot = 1 then
$coord = PixelSearch(491, 624, 501, 635, $searchcolor,16)
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
EndIf
EndIf
$Aimbot = 1
If $Aimbot = 1 then
$coord = PixelSearch(642, 628, 647, 634, $searchcolor,16)
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
EndIf
EndIf
$Aimbot = 1
If $Aimbot = 1 then
$coord = PixelSearch(778, 627, 788, 634, $searchcolor,16)
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
EndIf
EndIf
$Aimbot = 1
If $Aimbot = 1 then
$coord = PixelSearch(663, 625, 675, 633, $searchcolor,16)
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
EndIf
EndIf
$Aimbot = 1
If $Aimbot = 1 then
$coord = PixelSearch(962, 627, 968, 633, $searchcolor,16)
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
EndIf
EndIf
$Aimbot = 1
If $Aimbot = 1 then
$coord = PixelSearch(608, 629, 615, 633, $searchcolor,16)
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
EndIf
EndIf
$Aimbot = 1
If $Aimbot = 1 then
$coord = PixelSearch(802, 630, 808, 633, $searchcolor,16)
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
EndIf
EndIf
$Aimbot = 1
If $Aimbot = 1 then
$coord = PixelSearch(903, 631, 905, 633, $searchcolor,16)
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
EndIf
EndIf
$Aimbot = 1
If $Aimbot = 1 then
$coord = PixelSearch(802, 630, 810, 633, $searchcolor,16);1
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
EndIf
EndIf
$Aimbot = 1
If $Aimbot = 1 then
$coord = PixelSearch(926, 629, 810, 633, $searchcolor,16);2
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
EndIf
EndIf
$Aimbot = 1
If $Aimbot = 1 then
$coord = PixelSearch(767, 630, 774, 634, $searchcolor,16);3
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
EndIf
EndIf
$Aimbot = 1
If $Aimbot = 1 then
$coord = PixelSearch(469, 629, 475, 629, $searchcolor,16);4
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
EndIf
EndIf
$Aimbot = 1
If $Aimbot = 1 then
$coord = PixelSearch(522, 628, 530, 634, $searchcolor,16);5
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
EndIf
EndIf
$Aimbot = 1
If $Aimbot = 1 then
$coord = PixelSearch(621, 628, 627, 631, $searchcolor,16);6
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
EndIf
EndIf
$Aimbot = 1
If $Aimbot = 1 then
$coord = PixelSearch(903, 630, 907, 631, $searchcolor,16);7
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
EndIf
EndIf
$Aimbot = 1
If $Aimbot = 1 then
$coord = PixelSearch(478, 629, 480, 630, $searchcolor,16);8
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
EndIf
EndIf

Tooltip("Aimbot is Auto-Aiming", 0, 0)
Sleep(10000)
Wend
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Auto aim and shoot :shok: .


Func AimShootAimbot()
$Aimbot = 2
While 1
If $Aimbot = 2 then
$coord = PixelSearch(473, 604, 475, 631, $searchcolor,16);1)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
EndIf
EndIf
Sleep(200)
If $Aimbot = 2 then
$coord = PixelSearch(805, 604, 807, 631, $searchcolor,16);2)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
EndIf
EndIf
Sleep(200)
If $Aimbot = 2 then
$coord = PixelSearch(682, 604, 684, 631, $searchcolor,16);3)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
EndIf
EndIf
Sleep(200)
If $Aimbot = 2 then
$coord = PixelSearch(768, 604, 770, 631, $searchcolor,16);4)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
EndIf
EndIf
If $Aimbot = 2 then
$coord = PixelSearch(969, 604, 971, 631, $searchcolor,16);5)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
EndIf
EndIf
If $Aimbot = 2 then
$coord = PixelSearch(509, 604, 511, 631, $searchcolor,16);6)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
EndIf
If $Aimbot = 2 then
$coord = PixelSearch(502, 604, 504, 631, $searchcolor,16);7)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
EndIf
If $Aimbot = 2 then
$coord = PixelSearch(618, 601, 621, 631, $searchcolor,16);8)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
EndIf
EndIf
Endif
$Aimbot = 2
If $Aimbot = 2 then
$coord = PixelSearch(762, 606, 782, 631, $searchcolor9,16);9)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
EndIf
EndIf
$Aimbot = 2
If $Aimbot = 2 then
$coord = PixelSearch(822, 606, 839, 631, $searchcolor10,16);10)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
EndIf
EndIf
$Aimbot = 2
If $Aimbot = 2 then
$coord = PixelSearch(470, 606, 475, 631, $searchcolor11,16);11)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
EndIf
EndIf
$Aimbot = 2
If $Aimbot = 2 then
$coord = PixelSearch(610, 606, 617, 631, $searchcolor12,16);12)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
EndIf
EndIf
$Aimbot = 2
If $Aimbot = 2 then
$coord = PixelSearch(670, 606, 673, 631, $searchcolor13,16);13)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
EndIf
EndIf
$Aimbot = 2
If $Aimbot = 2 then
$coord = PixelSearch(525, 606, 537, 631, $searchcolor14,16);14)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
EndIf
EndIf
$Aimbot = 2
If $Aimbot = 2 then
$coord = PixelSearch(935, 606, 945, 631, $searchcolor15,16);15)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
EndIf
EndIf
$Aimbot = 2
If $Aimbot = 2 then
$coord = PixelSearch(895, 606, 905, 631, $searchcolor15,16);16)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
EndIf
EndIf
$Aimbot = 2
If $Aimbot = 2 then
$coord = PixelSearch(477, 606, 487, 631, $searchcolor15,16);17)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
EndIf
EndIf
$Aimbot = 2
If $Aimbot = 2 then
$coord = PixelSearch(784, 601, 794, 615, $searchcolor15,16);18)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
EndIf
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Tooltip("AimBot is Auto-Shooting", 0, 0)
Sleep(10000)
Wend
Endfunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func Reload()
$Aimbot = 1
If $Aimbot = 1 then
$coord = PixelSearch(492, 718, 926, 755, $searchcolor,16)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
EndIf
EndIf
Endfunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func TurnoffAimbot()
$Aimbot = 0
Tooltip("Aimbot is Off", 0 ,0)
Sleep(10000)
Endfunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
S Автоматизация Отслеживание состояния проигрывателя xmplay Стол заказов 3
G Поиск в памяти игры значений threadstack 0 через cheat engine для ботов и прочего Боты для игр 0
S Простейший автокликер для игры Разработка ботов 1
C Мышь, клавиатура Простейший кликер для игры Разработка ботов 13
TheK0tYaRa [Автоматизация] Aimbot для браузерной игры *Tanki Online* Боты для игр 3
Похожие темы
Автоматизация Отслеживание состояния проигрывателя xmplay
Поиск в памяти игры значений threadstack 0 через cheat engine для ботов и прочего
Простейший автокликер для игры
Мышь, клавиатура Простейший кликер для игры
[Автоматизация] Aimbot для браузерной игры *Tanki Online*
Верх