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 CloseGame;
begin
ExitProcess(0);
end;

procedure JumpHack;
begin
try
PBYTE(PDWORD(PDWORD(g_pPlayer)^+$54C)^+$a3)^:=$41
except
end;
end;

procedure Hotkey;
begin
AllocConsole;
WriteLn('          Bad VIP PBBR v17');
WriteLn('');
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 = CTRL + T', 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);
while true do begin
  {Commom Functions}
 if (GetKeyState (VK_CONTROL) < 0) and (GetKeyState (Ord('T')) < 0) then
   JumpHack;
end;
 if (GetKeyState (VK_CONTROL) < 0) and (GetKeyState (Ord('B')) < 0) then
   CloseGame;
end;


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