53 leftKey: boolean = false;

    53 leftKey: boolean = false;

    54 

    54 

    55 backspaceKey: boolean = false;

    55 backspaceKey: boolean = false;

    56 spaceKey: boolean = false;

    56 spaceKey: boolean = false;

    57 enterKey: boolean = false;

    57 enterKey: boolean = false;

    58 

    59 

    59 isAttacking: boolean = false;

    60 isAttacking: boolean = false;

    60 isWalking: boolean = false;

    61 isWalking: boolean = false;

    61 

    62 

    62 {$ENDIF}

    63 {$ENDIF}

   142 tkbdn[24]:= ord(downKey);

   143 tkbdn[24]:= ord(downKey);

   143 tkbdn[25]:= ord(leftKey);

   144 tkbdn[25]:= ord(leftKey);

   144 tkbdn[26]:= ord(rightKey);

   145 tkbdn[26]:= ord(rightKey);

   145 

   146 

   146 tkbdn[ 8]:= ord(backspaceKey);

   147 tkbdn[ 8]:= ord(backspaceKey);

   147 tkbdn[13]:= ord(enterKey);

   149 tkbdn[13]:= ord(enterKey);

   148 tkbdn[32]:= ord(spaceKey);

   150 tkbdn[32]:= ord(spaceKey);

   149 

   151 

   150 upKey:= false;

   152 upKey:= false;

   151 downKey:= false;

   153 downKey:= false;

   152 if isWalking = false then rightKey:= false;

   154 if isWalking = false then rightKey:= false;

   153 if isWalking = false then leftKey:= false;

   155 if isWalking = false then leftKey:= false;

   154 

   156 

   155 if isAttacking = false then spaceKey:= false;

   157 if isAttacking = false then spaceKey:= false;

   156 enterKey:= false;

   159 enterKey:= false;

   157 backspaceKey:= false;

   160 backspaceKey:= false;

   158 

   161 

   159 {$ENDIF}

   162 {$ENDIF}

   160 

   163 

   200 	tkbd[i]:= tkbdn[i]

   203 	tkbd[i]:= tkbdn[i]

   201 	end

   204 	end

   202 end;

   205 end;

   203 

   206 

   204 procedure ResetKbd;

   207 procedure ResetKbd;

   206     pkbd: PByteArray;

   209     pkbd: PByteArray;

   207 begin

   210 begin

   208 

   211 

   209 {$IFDEF SDL13}

   212 {$IFDEF SDL13}

   210 pkbd:= SDL_GetKeyboardState(@j);

   213 pkbd:= SDL_GetKeyboardState(@j);

   247 tkbdn[24]:= ord(downKey);

   250 tkbdn[24]:= ord(downKey);

   248 tkbdn[25]:= ord(leftKey);

   251 tkbdn[25]:= ord(leftKey);

   249 tkbdn[26]:= ord(rightKey);

   252 tkbdn[26]:= ord(rightKey);

   250 

   253 

   251 tkbdn[ 8]:= ord(backspaceKey);

   254 tkbdn[ 8]:= ord(backspaceKey);

   252 tkbdn[13]:= ord(enterKey);

   256 tkbdn[13]:= ord(enterKey);

   253 tkbdn[32]:= ord(spaceKey);

   257 tkbdn[32]:= ord(spaceKey);

   254 

   258 

   255 upKey:= false;

   259 upKey:= false;

   256 downKey:= false;

   260 downKey:= false;

   257 if isWalking = false then rightKey:= false;

   262 if isWalking = false then rightKey:= false;

   258 if isWalking = false then leftKey:= false;

   263 if isWalking = false then leftKey:= false;

   259 

   264 

   260 if isAttacking = false then spaceKey:= false;

   265 if isAttacking = false then spaceKey:= false;

   261 enterKey:= false;

   266 enterKey:= false;

   302 KeyNames[5]:= 'wheeldown';

   307 KeyNames[5]:= 'wheeldown';

   303 

   308 

   304 for i:= 6 to cKeyMaxIndex do

   309 for i:= 6 to cKeyMaxIndex do

   305     begin

   310     begin

   306     s:= SDL_GetKeyName(i);

   311     s:= SDL_GetKeyName(i);

   308     if s = 'unknown key' then KeyNames[i]:= ''

   313     if s = 'unknown key' then KeyNames[i]:= ''

   309        else begin

   314        else begin

   310        for t:= 1 to Length(s) do

   315        for t:= 1 to Length(s) do

   311            if s[t] = ' ' then s[t]:= '_';

   316            if s[t] = ' ' then s[t]:= '_';

   312        KeyNames[i]:= s

   317        KeyNames[i]:= s

   346 

   351 

   347 {$IFDEF TOUCHINPUT}

   352 {$IFDEF TOUCHINPUT}

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

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

   349 DefaultBinds[  3]:= 'ammomenu';

   354 DefaultBinds[  3]:= 'ammomenu';

   350 DefaultBinds[  8]:= 'hjump';

   355 DefaultBinds[  8]:= 'hjump';

   351 DefaultBinds[ 13]:= 'ljump';

   357 DefaultBinds[ 13]:= 'ljump';

   354 DefaultBinds[ 23]:= '+up';

   358 DefaultBinds[ 23]:= '+up';

   355 DefaultBinds[ 24]:= '+down';

   359 DefaultBinds[ 24]:= '+down';

   356 DefaultBinds[ 25]:= '+left';

   360 DefaultBinds[ 25]:= '+left';

   357 DefaultBinds[ 26]:= '+right';

   361 DefaultBinds[ 26]:= '+right';

   358 {$ENDIF}

   363 {$ENDIF}

   359 	

   364 	

   360 DefaultBinds[ 27]:= 'quit';

   365 DefaultBinds[ 27]:= 'quit';

   361 DefaultBinds[ 96]:= 'history';

   366 DefaultBinds[ 96]:= 'history';

   362 DefaultBinds[127]:= 'rotmask';

   367 DefaultBinds[127]:= 'rotmask';