library Project1;

uses
  SysUtils,
  Windows,
  Classes,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

var
 Quiabo : DWORD;
 func:Pointer;
 old:cardinal;
 str : string;
 Place : Pointer;
 ProtecaoAntiga : DWORD;

procedure ChangeFontColor(Str:string; cColor: word);
begin
 SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), cColor);
 Writeln(Str);
end;

procedure ThreadHotkeys;
begin
 while true do begin
  if GetAsyncKeyState (VK_F3) <> 0  then       // JUMP HACK
   PBYTE(PDWORD(PDWORD(g_pPlayer)^+$54C)^+$a3)^:=$41
 end;
  if (GetKeyState (VK_CONTROL) < 0) and (GetKeyState (Ord('B')) < 0) then
   ExitProcess(0);
end;

procedure CONSOLE;
var
hID:DWORD;
begin
AllocConsole;
CreateThread(nil, 0, @ThreadHotkeys, nil, 0, hID);
SetConsoleTitleA('Bad_VIP PBBR v17 - Console - Hotkeys');
ChangeFontColor('No Recoil H = F1', FOREGROUND_GREEN);
ChangeFontColor('No Recoil V = F2', FOREGROUND_GREEN);
ChangeFontColor('Precisao 100 = F3', FOREGROUND_GREEN);
ChangeFontColor('Peso 99 = CTRL + A', FOREGROUND_GREEN);
ChangeFontColor('Rapid Fire = CTRL + B', FOREGROUND_GREEN);
ChangeFontColor('Fast Reload = CTRL + C', FOREGROUND_GREEN);
ChangeFontColor('Fast Reload SUB E SNIPER = CTRL + D', FOREGROUND_GREEN);
ChangeFontColor('No Fall Damage = CTRL + E', FOREGROUND_GREEN);
ChangeFontColor('No Respawn = CTRL + F', FOREGROUND_GREEN);
ChangeFontColor('Fast Weapon Switch = CTRL + G', FOREGROUND_GREEN);
ChangeFontColor('No Respawn = CTRL + H', FOREGROUND_GREEN);
ChangeFontColor('Jump Hack = F3 (POR ENQUANTO)', FOREGROUND_GREEN);
ChangeFontColor('Fast Shot = ALT + B', FOREGROUND_GREEN);
ChangeFontColor('Auto Invite = ALT + C', FOREGROUND_GREEN);
ChangeFontColor('AK F.C + REPEAT HACK = F7', FOREGROUND_GREEN);
ChangeFontColor('Aug G + REPEAT HACK = F6', FOREGROUND_GREEN);
ChangeFontColor('Glock + REPEAT HACK = F8', FOREGROUND_GREEN);
ChangeFontColor('Unlimited Ammo = ALT + D', FOREGROUND_GREEN);
ChangeFontColor('Wall Name = ALT + E', FOREGROUND_GREEN);
ChangeFontColor('Fast Knife = SHIFT + A', FOREGROUND_GREEN);
ChangeFontColor('Auto GO = SHIFT + B', FOREGROUND_GREEN);
ChangeFontColor('Unlimited Ammo = ALT + F', FOREGROUND_GREEN);
ChangeFontColor('Anti Vote Kick = ALT + G', FOREGROUND_GREEN);
ChangeFontColor('Infinite F.C ON/OFF = F4/F5', FOREGROUND_GREEN);
ChangeFontColor('Close Game = CTRL + B', FOREGROUND_GREEN);
end;


var hID:DWORD;
begin
BeginThread(nil, 0, @CONSOLE, nil, 0, hID);
Place := GetProcAddress(GetModuleHandle('ntdll.dll'), 'LdrLoadDll');
VirtualProtect(Place, 9, PAGE_READWRITE, ProtecaoAntiga);
VirtualProtect(Place, 9, ProtecaoAntiga, ProtecaoAntiga);
end.


//HOTKEY COM LETRA   if (GetKeyState (VK_CONTROL) < 0) and (GetKeyState (Ord('T')) < 0) then