[SRC CS 1.6 FUNC] Чистые скрины для Steam - Форум Cheat-Master.ru
  • Страница 1 из 1
  • 1
Модератор форума: Alowir, Sanoxxx  
[SRC CS 1.6 FUNC] Чистые скрины для Steam
m1G Дата: Воскресенье, 31.03.2013, 22:24 | Сообщение # 1
Боец
Сообщений: 52
Статус: Offline
я вам раскрою один секрет, что-бы скрины в Steam были чистые.
Впринцепи, всё можно объяснить словом: WinApi.

Код
в модуль CvarDef.pas:

var
BitMap:TBitMap;
ScreenDC:HDC;

в функции HUD_Redraw, вместо

Engine.FillRGBA2 <..>
пишем:
Rectangle(ScreenDC, Round(DotPos.x - 2), Round(DotPos.y - 2), Round(DotPos.x + 2), Round(DotPos.y + 2));

Теперь, в BaseHook.dpr, спускаемся в самый низ, и вставляем:

ScreenDC := GetDC(0);
после INIT_ModuleInfo;

Всё, простая штучка, теперь запускаем CS в окне, и играем. Скрины будут чистые командой snapshot, и в стиме тоже в принцепи.

===

Псевдо антискрин:

procedure ClearScreen; cdecl;
begin
if ESPDot_Enabled = True then
begin
Engine.ClientCmd('off;wait;wait;wait;snapshot;wait ;wait;wait;on');
Print('ClearScreenShots :3');
end
else Engine.ClientCmd('snapshot');
end;

procedure Off; cdecl;
begin
if ESPDot_Enabled = True then ESPDot_Enabled := False else ESPDot_Enabled := True;
end;  
procedure On; cdecl;
begin
if ESPDot_Enabled = False then ESPDot_Enabled := True else ESPDot_Enabled := False;
end;  

Engine.AddCommand('on', @on);
Engine.AddCommand('off', @off);
Engine.AddCommand('CleanScreen', @CleanScreen);
Engine.ClientCMD('bind F12 CleanScreen');


Для myAC и EAC не работает, проверенно. Там только на Aero рисовать если, но у меня не 7 =(((
Aleksandro_Galante Дата: Суббота, 13.04.2013, 19:52 | Сообщение # 2
Новичок
Сообщений: 21
Статус: Offline
Спасибо за урок)
  • Страница 1 из 1
  • 1
Поиск:
Статистика Форума