Вернуться   D3Scene.Ru Софт портал игр | Хаки | Проги | Статьи > Point Blank > Читы и баги для Point Blank
Присоединяйся к нам

Читы и баги для Point Blank Многопользовательский экшен от первого лица.



Ответ
 
Опции темы Опции просмотра
Старый 09.10.2010, 02:56   #1
Освоившийся


 
Аватар для ParniSha
 
Регистрация: 11.10.2009
Адрес: Panama
Сообщений: 648
Репутация: 475
Автор По умолчанию

[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
[Ссылки скрыты от гостей.]
(c)Zhyk.ru

Последний раз редактировалось ParniSha; 09.10.2010 в 02:58.
  Ответить с цитированием Наверх
Старый 23.02.2011, 23:11   #2
Новичок
 
Аватар для evloglar
 
Регистрация: 23.02.2011
Сообщений: 1
Репутация: 0
По умолчанию

а куда сохронять и под каким именем
  Ответить с цитированием Наверх
Старый 02.03.2011, 23:50   #3
Новичок
 
Аватар для Liteg
 
Регистрация: 16.04.2010
Сообщений: 4
Репутация: 1
По умолчанию

Как им пользоваться?
  Ответить с цитированием Наверх
Старый 10.03.2011, 09:50   #4
Старожил


 
Аватар для gg.Groove
 
Регистрация: 21.08.2010
Адрес: Almaty
Сообщений: 1,054
Репутация: 212
По умолчанию

Liteg, Autoit скачайте
__________________

[Ссылки скрыты от гостей.]
  Ответить с цитированием Наверх
Ответ


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы
Опции просмотра

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

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

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


Powered by vBulletin
Copyright © 2017 vBulletin Solutions, Inc.
Перевод: zCarot | Дизайн: G-A | Верстка: OldEr
Текущее время: 15:39. Часовой пояс GMT +4.