hedgewars/hwengine.pas
changeset 2601 21ed7cec1fa2
parent 2600 7b21daf84933
child 2602 3deb9ff104da
equal deleted inserted replaced
2600:7b21daf84933 2601:21ed7cec1fa2
   194                         if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then
   194                         if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then
   195 				cHasFocus:= event.active.gain = 1;
   195 				cHasFocus:= event.active.gain = 1;
   196 		//SDL_VIDEORESIZE: Resize(max(event.resize.w, 600), max(event.resize.h, 450));
   196 		//SDL_VIDEORESIZE: Resize(max(event.resize.w, 600), max(event.resize.h, 450));
   197 {$IFDEF TOUCHINPUT}
   197 {$IFDEF TOUCHINPUT}
   198                 SDL_MOUSEMOTION: begin
   198                 SDL_MOUSEMOTION: begin
   199                         WriteLnToConsole('*********************************************       motion');
   199 {$IFDEF DEBUGFILE}
       
   200                         AddFileLog('*********************************************       motion');
       
   201 {$ENDIF}
   200                         mouseState:= SDL_GetMouseState(0, @x, @y);
   202                         mouseState:= SDL_GetMouseState(0, @x, @y);
   201                         SDL_GetRelativeMouseState(0, @dx, @dy);
   203                         SDL_GetRelativeMouseState(0, @dx, @dy);
   202                         
   204                         
   203                         direction:= nodir;
   205                         direction:= nodir;
   204 
   206 
   229                                 end;
   231                                 end;
   230                         end;
   232                         end;
   231                 end;
   233                 end;
   232         {*MoveCamera is in uWord.pas -- conflicts with other commands*}
   234         {*MoveCamera is in uWord.pas -- conflicts with other commands*}
   233                 SDL_MOUSEBUTTONDOWN: begin
   235                 SDL_MOUSEBUTTONDOWN: begin
   234                         WriteLnToConsole('*********************************************       touch down');
   236 {$IFDEF DEBUGFILE}
   235 
   237                         AddFileLog('*********************************************       touch down');
       
   238 {$ENDIF}
   236                         mouseState:= SDL_GetMouseState(0, @x, @y);                       
   239                         mouseState:= SDL_GetMouseState(0, @x, @y);                       
   237 
   240 
   238                         {* attack *}
   241                         {* attack *}
   239                         if (x > 50) and (x <= 270) and (y <= 50) then
   242                         if (x > 50) and (x <= 270) and (y <= 50) then
   240                         begin
   243                         begin
   265 {$ENDIF}
   268 {$ENDIF}
   266                                 uKeys.backspaceKey:= true;
   269                                 uKeys.backspaceKey:= true;
   267                         end;
   270                         end;
   268                 end;
   271                 end;
   269                 SDL_MOUSEBUTTONUP: begin
   272                 SDL_MOUSEBUTTONUP: begin
       
   273 {$IFDEF DEBUGFILE}
   270                         AddFileLog('*********************************************       touch up');
   274                         AddFileLog('*********************************************       touch up');
       
   275 {$ENDIF}
   271 
   276 
   272                         mouseState:= SDL_GetMouseState(0, @x, @y);
   277                         mouseState:= SDL_GetMouseState(0, @x, @y);
   273                         uKeys.leftClick:= true;
   278                         uKeys.leftClick:= true;
   274 
   279 
   275                         {* open ammo menu *}
   280                         {* open ammo menu *}
   433 		cLocaleFName:= 'en.txt';
   438 		cLocaleFName:= 'en.txt';
   434 		cFullScreen:= true; //T or F is is the same here
   439 		cFullScreen:= true; //T or F is is the same here
   435 		cAltDamage:= false;
   440 		cAltDamage:= false;
   436 		cShowFPS:= true;
   441 		cShowFPS:= true;
   437 		val('8', cTimerInterval);
   442 		val('8', cTimerInterval);
   438 		cReducedQuality:= true;
   443 		cReducedQuality:= false;
   439 
   444 
   440         for p:= Succ(Low(TPathType)) to High(TPathType) do
   445         for p:= Succ(Low(TPathType)) to High(TPathType) do
   441 			if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]
   446 			if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]
   442      end;
   447      end;
   443 {$ENDIF}
   448 {$ENDIF}