40 procedure ControllerButtonEvent(joy, button: Byte; pressed: Boolean);

    40 procedure ControllerButtonEvent(joy, button: Byte; pressed: Boolean);

    41 

    41 

    42 var hideAmmoMenu: boolean;

    42 var hideAmmoMenu: boolean;

    43 	wheelUp: boolean = false;

    43 	wheelUp: boolean = false;

    44 	wheelDown: boolean = false;

    44 	wheelDown: boolean = false;

    46         leftClick: boolean = false;

    46         leftClick: boolean = false;

    47         middleClick: boolean = false;

    47         middleClick: boolean = false;

    48         rightClick: boolean = false;

    48         rightClick: boolean = false;

    49 

    49 

    50 upKey: boolean = false;

    50 upKey: boolean = false;

   128 // mouse wheels (see event loop in project file)

   128 // mouse wheels (see event loop in project file)

   129 tkbdn[4]:= ord(wheelDown);

   129 tkbdn[4]:= ord(wheelDown);

   130 tkbdn[5]:= ord(wheelUp);

   130 tkbdn[5]:= ord(wheelUp);

   131 wheelUp:= false;

   131 wheelUp:= false;

   132 wheelDown:= false;

   132 wheelDown:= false;

   134 tkbdn[1]:= ord(leftClick);

   134 tkbdn[1]:= ord(leftClick);

   135 tkbdn[2]:= ord(middleClick);

   135 tkbdn[2]:= ord(middleClick);

   136 tkbdn[3]:= ord(rightClick);

   136 tkbdn[3]:= ord(rightClick);

   137 leftClick:= false;

   137 leftClick:= false;

   138 middleClick:= false;

   138 middleClick:= false;

   342 		keynames[k]:= 'j' + inttostr(j) + 'b' + inttostr(i);

   342 		keynames[k]:= 'j' + inttostr(j) + 'b' + inttostr(i);

   343 		inc(k, 1);

   343 		inc(k, 1);

   344 		end;

   344 		end;

   345 	end;

   345 	end;

   346 

   346 

   348 DefaultBinds[  1]:= '/put';

   348 DefaultBinds[  1]:= '/put';

   349 DefaultBinds[  3]:= 'ammomenu';

   349 DefaultBinds[  3]:= 'ammomenu';

   350 DefaultBinds[  8]:= 'hjump';

   350 DefaultBinds[  8]:= 'hjump';

   351 DefaultBinds[ 13]:= 'ljump';

   351 DefaultBinds[ 13]:= 'ljump';

   352 DefaultBinds[ 32]:= '+attack';

   352 DefaultBinds[ 32]:= '+attack';