[Скрипт] [autoIT] автовыстрел - своими руками

[Diso]

Цитата: Сообщение от KILLO_o А вот вопрос к †PrEDok†,когда я нажимаю ф5(вкл)у меня пуха просто стреляет без остановки(запускал от администратора)что нужно сделать что бы норм работало?

Если у тебя лазерный прицел "Всегда красный" то он так и будет стрелять без остановки. Где то писалось что нужно выключить лазер( как выключать не знаю)

[KILLO_o]

Цитата: Сообщение от Diso Если у тебя лазерный прицел "Всегда красный" то он так и будет стрелять без остановки. Где то писалось что нужно выключить лазер( как выключать не знаю)

У меня сг550про лазерный прицел я читал сообщение.

[warl0ck]

Цитата: Сообщение от KILLO_o У меня сг550про лазерный прицел я читал сообщение.

значит скрипт видит где то красный цвет и агрыцца на него
попробуй перетянуть окно игры в левый верхний угол...

[Diso]

Цитата: Сообщение от KILLO_o У меня сг550про лазерный прицел я читал сообщение.

Попробуй включить скрипт для SSG(F6) , а не для автоматов просто догадки , всё же нужно попробовать

[Diso]

Хороший бинд на дробовик , Имеется функция самому выбирать на что срабатывать
[Ссылки могут видеть только зарегистрированные пользователи. ]
Все права пренадлежат авторам бинда и zhyk.ru
VirusTotal
Прислал <SkilleT>
Что даёт этот бинд?
Повышает скорострельность дробовика , и не только...

[†PrEDok†]

AutoKill v1.2.1
Вот новенекий автовыстрел!C графическим интерфейсом)
Поменял клавиши,добавил пулемет-дробан,добавил быстрый выход с проги на Insert!
Для нубов: СКM - Средняя кнопка мыши!
Дробовик-пулемет - после включении функции работает на ПКМ
[Ссылки могут видеть только зарегистрированные пользователи. ]
* * * * * * * * /headshot\

[элефант]

Выбираю дробаш, автокил, комп пискнет ..... а не работает . мож еще что нажать надо ?
/прога от Diso/

[Masoruk5]

предок, умоляю сделай что бы фастзум был по лкм и чтоб включался и выключался, те например "z"- вкл, т.е. когда вкл по лкм будет фаст зум, а когда предположим тык "x"-выкл то по лкм будет обычный выстрел, и еще желательно в коде или в *.au3 файле выложи, тогда будет вообще ня) хоть 10 спасибок тебе натыкаю..
Просто так уж вышло, что я прид***ился на снапу с лкм и при ислользовании любой другой кнопки реакция раза в 3 медленее, а так как я решил навремя забросить читы, это очень важно...

[<SkilleT>]

Цитата: Сообщение от элефант Выбираю дробаш, автокил, комп пискнет ..... а не работает . мож еще что нажать надо ? /прога от Diso/

Если Вы обратили внимание, то там не АвтоКилл а АвтоКлик.
При поставленной галочке при нажатии на ЛКМ программа начинает быстро и цыклично давить на ЛКМ.
На последней вкладке выбрали кнопку для срабатывания скрипта.
п.с. то не программа автовыстрел, не надо путать, стрелять надо самому, прога лиш быстро меняет оружие после выстрела тем самым ускоряя стрельбу.
не советую ставить выстрел на ЛКМ так как у вас не получится бросить гранату.
Лично мне скрипт очень нравиться, особенно с шотганом)))

[†PrEDok†]

По прозьбе Masoruk5, добавил изменения!
Fast Zoom для снайперки
"z"- вкл
"x"- выкл
Сробатывает на ЛКМ!

Цитата: Сообщение от Masoruk5 и еще желательно в коде или в *.au3 файле выложи

К коду нужны дополнительные скрипты!Возможно потом выложу!

[warl0ck]

оффтоп:

†PrEDok†, будь добр, добавь возможность выбора гор клавиши самому
ну типа так

HotKeySet(GUICtrlRead($intup1), "_функцие")

[yuracik]

Ктонибудь сделайте автовыстрел для М4а1 спешил(обмотки) с меня спс
мой монитор 19 дюймов 1280х1024

[warl0ck]

Цитата: Сообщение от yuracik фигово стреляет по 1 выстрелу(

вот этот код попробуй

Func clicks() ;функция "жмакания кнопок"
AutoItSetOption ("SendKeyDownDelay",200)
AutoItSetOption ("MouseClickDownDelay",200)
MouseClick("left")
EndFunc

[yuracik]

Цитата: Сообщение от warl0ck вот этот код попробуй Код: Func clicks() ;функция "жмакания кнопок" AutoItSetOption ("SendKeyDownDelay",200) AutoItSetOption ("MouseClickDownDelay",200) MouseClick("left") EndFunc

Весь макрос выложи я в них нешарю(

[warl0ck]

Цитата: Сообщение от yuracik Весь макрос выложи я в них нешарю(

#include <Misc.au3>

Global $Autoshoot = 0
;-------гор клавиши
HotKeySet("{INSERT}", "startAutoshoot") ;старт
HotKeySet("{DELETE}", "offAutoshoot") ;стоп
;-------- "тело" скрипта
While 1
    If $Autoshoot = 1 then ;
PixelSearch(300, 300, 999, 999, 0xff0000, 40, 2) ;поиск пикселя 0xFF0000 - цвет red, green, blue
    If Not @error then
AutoItSetOption ("SendKeyDownDelay",200)
AutoItSetOption ("MouseClickDownDelay",200)
MouseClick("left")
    EndIf
    EndIf
WEnd
;-------функции
Func startAutoshoot() ; функция включения
    $Autoshoot = 1
EndFunc ; конец функции

Func offAutoshoot() ; функция выключения
    $Autoshoot = 0
EndFunc ; конец функции

макрос с рисовалкой прицела

#include <Misc.au3>
#include <WindowsConstants.au3>

Global $Autoshoot = 0, $i, $color = 0xFF0000, $scan = 0
Global $cWidth = 23, $cHeight=30 ;параметры точки
$Cross = _Cross_Create(0, 0) ;рисуем точку

;-------гор клавиши
HotKeySet("{INSERT}", "startAutoshoot") ;старт
HotKeySet("{DELETE}", "offAutoshoot") ;стоп
;-------- "тело" скрипта
While 1 ;цикл
    If $Autoshoot = 1 then
        PixelSearch(300, 300, 999, 999, $color , 40, 2) ;поиск цвета
        If Not @error then ;если цвет находит
            $i = 1
            While $i < 2
                Call('clicks') ;вызов функции "жмакания кнопок"
                $i = $i + 1
            WEnd
        EndIf
    EndIf
WEnd
;-------функции
Func startAutoshoot() ; функция включения
    $Autoshoot = 1
    WinMove("Point Blank","" ,20,20, @DesktopWidth-40,@DeskTopHeight-40) ;параметры окна игры
EndFunc ; конец функции

Func offAutoshoot() ; функция выключения
    $Autoshoot = 0
EndFunc ; конец функции

Func clicks() ;функция "жмакания кнопок"
AutoItSetOption ("SendKeyDownDelay",200)
AutoItSetOption ("MouseClickDownDelay",200)
MouseClick("left")
EndFunc
;---------------------------------рисовалка прицела--------------------------
Func _Cross_Create($iXCord, $iYCord, $iColor = 0x0000ff, $iFlag = 0)
$hGUI = GUICreate('MouseCross', $cWidth, $cHeight, -1, -1, $WS_POPUP, $WS_EX_TOOLWINDOW + $WS_EX_LAYERED + $WS_EX_TRANSPARENT + $WS_EX_TOPMOST)
Local $iTransCol = 0xABCDEF
If $iColor = $iTransCol Then $iTransCol = 0xFBCDEF
;-------параметры прицела
GUISetBkColor($iTransCol)
GUICtrlCreateLabel("", 11, 15, 2, 10)
GUICtrlSetBkColor(-1, $iColor)
GUICtrlCreateLabel("", 0, 11, 10, 2)
GUICtrlSetBkColor(-1, $iColor)
GUICtrlCreateLabel("", 15, 11, 10, 2)
GUICtrlSetBkColor(-1, $iColor)
;--------------------------
GUISetState()
_API_SetLayeredWindowAttributes($hGUI, $iTransCol)
EndFunc

Func _API_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $isColorRef = False)
Local Const $AC_SRC_ALPHA = 1
Local Const $ULW_ALPHA = 2
Local Const $LWA_ALPHA = 0x2
Local Const $LWA_COLORKEY = 0x1
If Not $isColorRef Then
$i_transcolor = Hex(String($i_transcolor), 6)
$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
    Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $LWA_COLORKEY + $LWA_ALPHA)
Select
Case @error
Return SetError(@error, 0, 0)
Case $Ret[0] = 0
Return SetError(4, 0, 0)
Case Else
Return 1
EndSelect
EndFunc
;--------------------end----crosshair-----------------