69 // TODO: Scale on screen dimensions and/or axis value (game controller)?

    69 // TODO: Scale on screen dimensions and/or axis value (game controller)?

    70 //TODO what is this for?

    70 //TODO what is this for?

    71 movecursor(5 * CursorMovementX, 5 * CursorMovementY);

    71 movecursor(5 * CursorMovementX, 5 * CursorMovementY);

    72 

    72 

    73 

    73 

    76 // Controller(s)

    77 // Controller(s)

    77 k:= j; // should we test k for hitting the limit? sounds rather unlikely to ever reach it

    78 k:= j; // should we test k for hitting the limit? sounds rather unlikely to ever reach it

    78 for j:= 0 to Pred(ControllerNumControllers) do

    79 for j:= 0 to Pred(ControllerNumControllers) do

    79     begin

    80     begin

    80     for i:= 0 to Pred(ControllerNumAxes[j]) do

    81     for i:= 0 to Pred(ControllerNumAxes[j]) do

   101         begin

   102         begin

   102         tkbdn[k]:= ControllerButtons[j][i];

   103         tkbdn[k]:= ControllerButtons[j][i];

   103         inc(k, 1);

   104         inc(k, 1);

   104         end;

   105         end;

   105     end;

   106     end;

   107 

   108 

   108 end;

   109 end;

   109 

   110 

   110 

   111 

   111 procedure ProcessKey(code: LongInt; KeyDown: boolean);

   112 procedure ProcessKey(code: LongInt; KeyDown: boolean);