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;