Stealth Client Forum

Code: Select all

Procedure HOTKEYSONOFF();
Begin
   if (GetGlobal('char','HOTKEYS') = 'ON') or (GetGlobal('char','HOTKEYS') = '') then
   begin
      SetGlobal('char','HOTKEYS','OFF');
      ClientPrintEx(0, 53, 3, '== Hotkeys OFF ==');
   end
   else
   begin
      SetGlobal('char','HOTKEYS','ON');
      ClientPrintEx(0, 63, 3, '== Hotkeys ON ==');
   end;
End;

Function IsHotkeysON(): Boolean;
Begin
   if (GetGlobal('char','HOTKEYS') <> 'ON') and (GetGlobal('char','HOTKEYS') <> '') then
   begin
      ClientPrint('ВНИМАНИЕ! У вас отключены хоткеи.');
      Result := FALSE;
   end
   else
      Result := TRUE;
End;

Code: Select all

if not IsHotkeysON then EXIT;