Keep them prying eyes off your computer while your AFK NMZ
Simba Code:
const
password = '1995';
activateOn = 'e';
pauseTime = 150;
timeAllowed = 6000;
type TPassword = record
pass:string;
delay, index:integer;
end;
procedure TPassword.new(p:string;d:integer);
begin
self.pass := p;
self.delay := d;
self.index := 1;
end;
procedure TPassword.new(p:string);overload;
begin
self.new(p, 100);
end;
function getPressedKey(minCode, maxCode:integer):integer;
var
i:integer;
begin
for i := minCode to maxCode do
if (isKeyDown(i)) then
exit(i);
end;
function getPressedKey():integer;overload;
begin
result := getPressedKey(8, 220);
end;
function notKeyPressed(c:char):boolean;
begin
result := (getPressedKey() = getKeyCode(c));
end;
function anyKeyButPressed(c:char):boolean;
var
pressed:integer;
begin
pressed := getPressedKey();
result := (pressed >= 8) and (not notKeyPressed(c));
end;
function TPassword.entered(maxTime:integer):boolean;
begin
end;
var
myPassword:TPassword;
t:integer;
begin
setDesktopAsClient();
activateClient();
wait(1000);
myPassword.new(password, 100);
repeat
moveMouse(0, 0);
wait(pauseTime);
if (isKeyDown(getKeyCode(activateOn))) then
begin
wait(250);
writeln('Enter Password');
t := getSystemTime();
repeat
moveMouse(0, 0);
if (isKeyDown(getKeyCode(myPassword.pass[myPassword.index]))) then
begin
if (myPassword.index = length(myPassword.pass)) then
begin
messageBox('Computer unlocked', '', 0);
terminateScript;
end else begin
myPassword.index := myPassword.index + 1;
wait(pauseTime);
writeln('Please enter the next key');
end;
end else if (anyKeyButPressed(myPassword.pass[myPassword.index])) then
begin
writeln('Password sequence reset');
myPassword.index := 1;
end;
until (getSystemTime - t >= timeAllowed);
end;
Until False;
end.