59     ControllerButtons: array[0..5] of array[0..19] of Byte;

    59     ControllerButtons: array[0..5] of array[0..19] of Byte;

    60 

    60 

    61     DefaultBinds, CurrentBinds: TBinds;

    61     DefaultBinds, CurrentBinds: TBinds;

    62 

    62 

    63     coeff: LongInt;

    63     coeff: LongInt;

    65     leftClick: boolean;

    65     leftClick: boolean;

    66     middleClick: boolean;

    66     middleClick: boolean;

    67     rightClick: boolean;

    67     rightClick: boolean;

    68 

    68 

    69     upKey: boolean;

    69     upKey: boolean;

    84     

    84     

    85     cursorUp: boolean;

    85     cursorUp: boolean;

    86     cursorDown: boolean;

    86     cursorDown: boolean;

    87     cursorLeft: boolean;

    87     cursorLeft: boolean;

    88     cursorRight: boolean;

    88     cursorRight: boolean;

    90 procedure setiPhoneBinds;

    90 procedure setiPhoneBinds;

    91 {$ENDIF}

    92 {$ENDIF}

    92 implementation

    93 implementation

    93 uses uTeams, uConsole, uMisc;

    94 uses uTeams, uConsole, uMisc;

    94 //const KeyNumber = 1024;

    95 //const KeyNumber = 1024;

    95 

    96 

   507 procedure initModule;

   508 procedure initModule;

   508 begin

   509 begin

   509     wheelUp:= false;

   510     wheelUp:= false;

   510     wheelDown:= false;

   511     wheelDown:= false;

   511     coeff:= 5;

   512     coeff:= 5;

   513     // this function is called by HW_allKeysUp so be careful

   514     // this function is called by HW_allKeysUp so be careful

   514     

   515     

   515     // mouse emulation

   516     // mouse emulation

   516     leftClick:= false;

   517     leftClick:= false;

   517     middleClick:= false;

   518     middleClick:= false;