Results 1 to 6 of 6

Thread: Type Backwards

  1. #1
    Join Date
    Sep 2010
    Posts
    5,754
    Mentioned
    136 Post(s)
    Quoted
    2736 Post(s)

    Default Type Backwards

    ojohoy si a rehtom rekcuf

    oops sorry

    Every time you hit space, the word you typed appears backwards.




    Simba Code:
    program autoAltCode;
      //3/25/2019  rj

    procedure resetKeys();
    var
      i : integer;
    begin
      keyUp(32);
      for i := 65 to 90 do
        if isKeydown(i) then
          keyUp(i);
    end;

    procedure typeWordBackwards(keyCodes:TIntegerArray);
    var
      i, t, k:integer;
    begin
      if isKeyDown(32) then
      begin
        keyUp(32);

        for i := high(keyCodes) downto 0 do
          pressKey(8);
        for i := high(keyCodes) downto 0 do
          pressKey(keyCodes[i]);

        resetKeys();
        pressKey(32);
        wait(10);
        exit;
      end;
    end;

    function recordKeyStrokes():TIntegerArray;
    var
      resLength, t, i:integer;
    begin

      resLength := 0;
      setLength(result, 1);
      repeat

        for i := 65 to 90 do

          if isKeyDown(i) then
          begin
            result[resLength] := i;
            setLength(result, length(result + 1));
            resLength := resLength + 1;
            t := getSystemTime;
            keyUp(i);
          end;

      until isKeyDown(32);


    end;

    procedure Loop;
    var
      thisWord:TIntegerArray;
    begin

      thisWord := recordKeyStrokes();
      if (length(thisWord) > 1) then
        typeWordBackwards(thisWord);
      setLength(thisWord, 0);
      resetKeys();
    end;

    begin
      resetKeys();
      repeat
        loop;
        //wait(1);
      Until false;
    end.

    *This program only records A-Z and nothing else, no holding keys down, no backspace, no uppercase

  2. #2
    Join Date
    Feb 2009
    Location
    Irvine, CA
    Posts
    2,871
    Mentioned
    8 Post(s)
    Quoted
    135 Post(s)

    Default

    woh dluoc uoy ton kniht ot esrever eht redro fo eht sdrow depyt sa llew

  3. #3
    Join Date
    Sep 2010
    Posts
    5,754
    Mentioned
    136 Post(s)
    Quoted
    2736 Post(s)

    Default

    Quote Originally Posted by TomTuff View Post
    woh dluoc uoy ton kniht ot esrever eht redro fo eht sdrow depyt sa llew
    esuaceb taht seriuqer krow dna mi ytterp yzal

  4. #4
    Join Date
    Sep 2014
    Location
    C:\Simba\
    Posts
    557
    Mentioned
    9 Post(s)
    Quoted
    71 Post(s)

    Default

    this is like Villavu in its first years came back to life
    Feel free to ask me any questions, I will do my best to answer them!

    Previously known as YouPee.

  5. #5
    Join Date
    Oct 2011
    Location
    England
    Posts
    399
    Mentioned
    10 Post(s)
    Quoted
    176 Post(s)

    Default

    @Joopi efil ot kcab emac sraey tsrif sti ni uvalliV ekil si sihT
    Yer a wizard, 'oopi

  6. #6
    Join Date
    Sep 2012
    Location
    Netherlands
    Posts
    2,727
    Mentioned
    191 Post(s)
    Quoted
    1461 Post(s)

    Default

    Quote Originally Posted by Joopi View Post
    this is like Villavu in its first years came back to life
    rj shit posting at it finest

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •