Регистрация Главная Сообщество
Сообщения за день Справка Регистрация
Навигация
Zhyk.org LIVE! Реклама на Zhyk.org Правила Форума Награды и достижения Доска "почета"

[autoIT] автовыстрел + рисовалка прицела [2]

-

Разработка ПО для Point Blank

- Бюро разработчиков Zhyk.Ru: создание чит-программ и прочего ПО для Point Blank

Ответ
 
Опции темы
Старый 01.10.2010, 16:56   #1
Заблокирован
 Рыцарь-капитан
Аватар для warl0ck
 
warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(
Регистрация: 29.01.2010
Сообщений: 547
Популярность: 41279
Сказал(а) спасибо: 692
Поблагодарили 2,270 раз(а) в 1,035 сообщениях
 
По умолчанию [autoIT] автовыстрел + рисовалка прицела [2]

[Ссылки могут видеть только зарегистрированные пользователи. ]
продолжение этой темы
суть скрипта: при загорании прицела(красным) автоматически начинать стрелять (специально для кемперов)

Код:
#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('MouseClickDelay',100) ;задержка нажатия мыши
        if MouseClick('right') Then ;если пкм зажата
        MouseClick('left') ; тогда жмем лкм
        EndIf
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-----------------
за макросы не банят!!!

пс кому больше нравиться старый способ стрельбы (те без пкм) тогда заменяем 34 строку на такое

Код:
Func clicks() ;функция "жмакания кнопок"
    AutoItSetOption('MouseClickDelay',50) ;задержка нажатия мыши
        MouseClick('left') ;  жмем лкм
EndFunc
Вложения
Тип файла: rar autoshoot+cross.rar (293.4 Кб, 2005 просмотров)

Последний раз редактировалось warl0ck; 01.10.2010 в 17:49.
  Ответить с цитированием
9 пользователя(ей) сказали cпасибо:
absolut27 (01.10.2010), Dekanet (01.10.2010), DizTerDiz (05.01.2012), KILLO_o (12.10.2010), Сергей =) (06.06.2011), slk.exe (05.01.2012), жека) (01.10.2010), †PrEDok† (02.10.2010), ™pROfi™ (07.03.2012)
Старый 01.10.2010, 17:11   #2
Заблокирован
 Рыцарь-капитан
Аватар для warl0ck
 
warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(
Регистрация: 29.01.2010
Сообщений: 547
Популярность: 41279
Сказал(а) спасибо: 692
Поблагодарили 2,270 раз(а) в 1,035 сообщениях
 
По умолчанию Re: [autoIT] автовыстрел + рисовка прицела [2]

Цитата:
Сообщение от жека)Посмотреть сообщение
А что с вин7 64х
Вот в прошлом макросе надо было кое что редактировать а тут ?

от имени администратора запускать.
ну и конечно же подобрать параметры моника.
  Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
absolut27 (01.10.2010), Next! (03.10.2010)
Старый 01.10.2010, 17:14   #3
 Сержант
Аватар для жека)
 
жека) у всех на слухужека) у всех на слухужека) у всех на слухужека) у всех на слухужека) у всех на слухужека) у всех на слухужека) у всех на слухужека) у всех на слухужека) у всех на слухужека) у всех на слуху
Регистрация: 02.05.2010
Сообщений: 125
Популярность: 1475
Сказал(а) спасибо: 149
Поблагодарили 205 раз(а) в 130 сообщениях
 
По умолчанию Re: [autoIT] автовыстрел + рисовка прицела [2]

Цитата:
Сообщение от warl0ckПосмотреть сообщение
от имени администратора запускать.
ну и конечно же подобрать параметры моника.

Моник напрягает, просто я так и не подобрал на "19 дюймов"
  Ответить с цитированием
Пользователь сказал cпасибо:
Next! (03.10.2010)
Старый 01.10.2010, 17:16   #4
Заблокирован
 Рыцарь-капитан
Аватар для warl0ck
 
warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(
Регистрация: 29.01.2010
Сообщений: 547
Популярность: 41279
Сказал(а) спасибо: 692
Поблагодарили 2,270 раз(а) в 1,035 сообщениях
 
По умолчанию Re: [autoIT] автовыстрел + рисовка прицела [2]

Цитата:
Сообщение от жека)Посмотреть сообщение
Моник напрягает, просто я так и не подобрал на "19 дюймов"

попробуй этот скрипт запусти(я там малех намудрил с окном, должно прокатить)
кстати у меня тоже 19 дюймов, расширение 1280,1024 и норм работает
  Ответить с цитированием
Пользователь сказал cпасибо:
жека) (01.10.2010)
Старый 01.10.2010, 20:41   #5
 Разведчик
Аватар для Gaifulla81
 
Gaifulla81 никому не известный тип
Регистрация: 20.05.2010
Сообщений: 3
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Отправить сообщение для Gaifulla81 с помощью ICQ Отправить сообщение для Gaifulla81 с помощью Skype™
 
По умолчанию Re: [autoIT] автовыстрел + рисовалка прицела [2]

А как это под себя переделать? У меня разрешения моника 1680х1050 ХР 32
Я этот открыл у меня экране появился синий крестик.Что дальше?
  Ответить с цитированием
Старый 01.10.2010, 20:44   #6
Заблокирован
 Рыцарь-капитан
Аватар для warl0ck
 
warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(
Регистрация: 29.01.2010
Сообщений: 547
Популярность: 41279
Сказал(а) спасибо: 692
Поблагодарили 2,270 раз(а) в 1,035 сообщениях
 
По умолчанию Re: [autoIT] автовыстрел + рисовалка прицела [2]

Цитата:
Сообщение от Gaifulla81Посмотреть сообщение
А как это под себя переделать? У меня разрешения моника 1680х1050 ХР 32
Я этот открыл у меня экране появился синий крестик.Что дальше?

insert- включить
delete - выключить
  Ответить с цитированием
Пользователь сказал cпасибо:
Next! (03.10.2010)
Старый 01.10.2010, 21:01   #7
 Разведчик
Аватар для элефант
 
элефант на правильном пути
Регистрация: 29.08.2010
Сообщений: 43
Популярность: 93
Сказал(а) спасибо: 59
Поблагодарили 27 раз(а) в 22 сообщениях
Отправить сообщение для элефант с помощью Skype™
 
По умолчанию Re: [autoIT] автовыстрел + рисовалка прицела [2]

Как всегда глупый вопрос задаю. У меня моник 24 и все идет рывками.В чем может быть причина? И крестик только на раб столе, в игре крестику нет но прога работает
з.ы. автокил от предка работает почти без рывков.
  Ответить с цитированием
Старый 01.10.2010, 21:12   #8
Заблокирован
 Рыцарь-капитан
Аватар для warl0ck
 
warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(
Регистрация: 29.01.2010
Сообщений: 547
Популярность: 41279
Сказал(а) спасибо: 692
Поблагодарили 2,270 раз(а) в 1,035 сообщениях
 
По умолчанию Re: [autoIT] автовыстрел + рисовалка прицела [2]

Цитата:
Сообщение от элефантПосмотреть сообщение
Как всегда глупый вопрос задаю. У меня моник 24 и все идет рывками.В чем может быть причина? И крестик только на раб столе, в игре крестику нет но прога работает
з.ы. автокил от предка работает почти без рывков.

в смысле рывками (слишком большая задержка перед выстрелом, или что то другое?)
если задержка тогда:
Код:
Func clicks() ;функция "жмакания кнопок"
        MouseClick('left') ;  жмем лкм
EndFunc
ну или

Код:
Func clicks() ;функция "жмакания кнопок"
    AutoItSetOption('MouseClickDelay',20) ;задержка нажатия мыши
        if MouseClick('right') Then ;если пкм зажата
        MouseClick('left') ; тогда жмем лкм
        EndIf
EndFunc
насчет крестика - он работает лишь в оконном режиме
  Ответить с цитированием
Пользователь сказал cпасибо:
†PrEDok† (02.10.2010)
Старый 01.10.2010, 22:26   #9
Заблокирован
 Рыцарь-капитан
Аватар для warl0ck
 
warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(
Регистрация: 29.01.2010
Сообщений: 547
Популярность: 41279
Сказал(а) спасибо: 692
Поблагодарили 2,270 раз(а) в 1,035 сообщениях
 
По умолчанию Re: [autoIT] автовыстрел + рисовалка прицела [2]

Цитата:
Сообщение от Aleks1996Посмотреть сообщение
плис выложи уже готовые скрипты

вот несколько примеров

без задержки
задержка 20
ну и старый дедовский способ(без задержки, только лкм)
ну и макросы в ехе(для лентяев) [Ссылки могут видеть только зарегистрированные пользователи. ]

Последний раз редактировалось warl0ck; 01.10.2010 в 22:31.
  Ответить с цитированием
Пользователь сказал cпасибо:
†PrEDok† (02.10.2010)
Старый 02.10.2010, 00:10   #10
Заблокирован
 Старший сержант
Аватар для †PrEDok†
 
†PrEDok† гордость нации†PrEDok† гордость нации†PrEDok† гордость нации†PrEDok† гордость нации†PrEDok† гордость нации†PrEDok† гордость нации†PrEDok† гордость нации†PrEDok† гордость нации†PrEDok† гордость нации†PrEDok† гордость нации†PrEDok† гордость нации
Регистрация: 09.06.2010
Сообщений: 182
Популярность: 2611
Сказал(а) спасибо: 354
Поблагодарили 1,228 раз(а) в 218 сообщениях
 
По умолчанию Re: [autoIT] автовыстрел + рисовалка прицела [2]

Всем ку!
Вот готовый макрос с прицелом в центре!(Работает токо пока в оконом режиме игры)
Старый код автовыстрела warl0ck подправил
Запускать до захода на мапу иначе маленький лаг с игрой!
Вкл - F5
Выкл - F6
Выход - Insert
Думаю картинка всем понравится любителям аниме!

Скрин:
[Ссылки могут видеть только зарегистрированные пользователи. ]
Вложения
Тип файла: rar MacrosCrosshairAuto.rar (826.8 Кб, 638 просмотров)

Последний раз редактировалось †PrEDok†; 02.10.2010 в 00:29.
  Ответить с цитированием
4 пользователя(ей) сказали cпасибо:
.:InSiDe:. (15.12.2010), ekzarxEscort (05.01.2012), lohamana (10.10.2010), warl0ck (02.10.2010)
Старый 02.10.2010, 10:57   #11
Заблокирован
 Рыцарь-капитан
Аватар для warl0ck
 
warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(
Регистрация: 29.01.2010
Сообщений: 547
Популярность: 41279
Сказал(а) спасибо: 692
Поблагодарили 2,270 раз(а) в 1,035 сообщениях
 
По умолчанию Re: [autoIT] автовыстрел + рисовалка прицела [2]

Цитата:
Сообщение от koloklПосмотреть сообщение
Можно убрать рисавалку прицела если удалить эти строки?

можно, еще вот эти строки удали в начале
Код:
 Global $cWidth = 23, $cHeight=30 ;параметры точки
$Cross = _Cross_Create(0, 0) ;рисуем точку

Последний раз редактировалось warl0ck; 02.10.2010 в 11:01.
  Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
kolokl (02.10.2010), †PrEDok† (02.10.2010)
Старый 11.10.2010, 02:33   #12
 Разведчик
Аватар для Vasia 111
 
Vasia 111 никому не известный тип
Регистрация: 20.04.2010
Сообщений: 22
Популярность: 9
Сказал(а) спасибо: 91
Поблагодарили 25 раз(а) в 24 сообщениях
 
Lightbulb Re: [autoIT] автовыстрел + рисовалка прицела [2]

Цитата:
Сообщение от DаnоzеПосмотреть сообщение
А можно чтоб в хед автоматом выстрелил???

Можно. Просто наведи на Хэд и он выстрелит.
А если ты хочешь чтобы прицел сам нашёл голову и сделал выстрел, то ты имеешь в виду АИМ, а не скрипт.
________________
ZBS!
  Ответить с цитированием
Старый 11.10.2010, 18:42   #13
 Разведчик
Аватар для ab3k
 
ab3k никому не известный тип
Регистрация: 02.09.2010
Сообщений: 3
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Отправить сообщение для ab3k с помощью Skype™
 
По умолчанию Re: [autoIT] автовыстрел + рисовалка прицела [2]

помогите народ у меня неработает,я скопировал,поменял чтобы только жало лкм(сам прицеливаюсь) потом запускаю у меня окно 1024х768 ,разшерение стола 1240х1024, вин 7 х32, если надо то прицел круг, у меня высвечивается прицел синий нарисованый ниже прицела в игре жму я инсерт и так и так нестановится он красным никак , и не стреляет напишите в скайп killerhiller2010 или личку плизз
  Ответить с цитированием
Старый 11.10.2010, 20:14   #14
Заблокирован
 Рыцарь-капитан
Аватар для warl0ck
 
warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(
Регистрация: 29.01.2010
Сообщений: 547
Популярность: 41279
Сказал(а) спасибо: 692
Поблагодарили 2,270 раз(а) в 1,035 сообщениях
 
По умолчанию Re: [autoIT] автовыстрел + рисовалка прицела [2]

Цитата:
Сообщение от ab3kПосмотреть сообщение
помогите народ у меня неработает,я скопировал,поменял чтобы только жало лкм(сам прицеливаюсь) потом запускаю у меня окно 1024х768 ,разшерение стола 1240х1024, вин 7 х32, если надо то прицел круг, у меня высвечивается прицел синий нарисованый ниже прицела в игре жму я инсерт и так и так нестановится он красным никак , и не стреляет напишите в скайп killerhiller2010 или личку плизз

а синий прицел не должен становиться красным, он зделан лишь для удобства(если интересно его настроит то
Код:
Global $cWidth = 23, $cHeight=30 ;параметры точки
подбираем на свои(наугад меняем и смотрим что получилось)
стрелять должно при загорании "СТАНДАРТНОГО ПРИЦЕЛА".

ps пишите какие макросы хотели бы увидеть(кончились идеи)

Последний раз редактировалось warl0ck; 11.10.2010 в 20:20.
  Ответить с цитированием
Старый 11.10.2010, 21:16   #15
Заблокирован
 Рыцарь-капитан
Аватар для warl0ck
 
warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(warl0ck сломал счётчик популярности :(
Регистрация: 29.01.2010
Сообщений: 547
Популярность: 41279
Сказал(а) спасибо: 692
Поблагодарили 2,270 раз(а) в 1,035 сообщениях
 
По умолчанию Re: [autoIT] автовыстрел + рисовалка прицела [2]

Цитата:
Сообщение от Vasia 111Посмотреть сообщение
В смысле какие бы мы хотели видеть? О_о
Макрос же только и ограничивается выстрелом при загорании прицела красным цветом и с последующим переключением на нож и обратно на основу.

Или я не прав и из макроса можно извлечь что-то большее?

кроме макросов на автовыстрел больше нечего не существует?
спамер и брут уже как бы не макрос
  Ответить с цитированием
Ответ

Метки
вконтакт-уг, google.ru, обж не любит хлеб, porno, warl0ck


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Скрипт] [autoIT] автовыстрел - своими руками warl0ck Разработка ПО для Point Blank 66 08.03.2012 07:41
Настройка прицела в CS Xaker Общение и обсуждение Counter-Strike 7 23.10.2010 01:09
[Помогите!] Уменьшение прицела 1.6 Secret_Advisor Общение и обсуждение Counter-Strike 5 19.09.2010 11:41

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 15:01.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net