equal
deleted
inserted
replaced
188 {*Keys are in uKeys.pas*} |
188 {*Keys are in uKeys.pas*} |
189 SDL_MOUSEBUTTONDOWN: begin |
189 SDL_MOUSEBUTTONDOWN: begin |
190 AddFileLog('********************************************* touch down'); |
190 AddFileLog('********************************************* touch down'); |
191 |
191 |
192 SDL_GetMouseState(0, @x, @y); |
192 SDL_GetMouseState(0, @x, @y); |
|
193 uKeys.leftClick:= true; |
193 |
194 |
194 {* zoom slider *} |
195 {* zoom slider *} |
195 if (x <= 50) and (y <= 430) then |
196 if (x <= 50) and (y <= 430) then |
196 begin |
197 begin |
197 {$IFDEF DEBUGFILE} |
198 {$IFDEF DEBUGFILE} |
270 end; |
271 end; |
271 end; |
272 end; |
272 SDL_MOUSEBUTTONUP: begin |
273 SDL_MOUSEBUTTONUP: begin |
273 AddFileLog('********************************************* touch up'); |
274 AddFileLog('********************************************* touch up'); |
274 |
275 |
275 if bShowAmmoMenu = true then uKeys.leftClick:= true; |
276 // if bShowAmmoMenu = true then |
276 |
277 |
277 SDL_GetMouseState(0, @x, @y); |
278 SDL_GetMouseState(0, @x, @y); |
278 {* open ammo menu *} |
279 {* open ammo menu *} |
279 if (y > 430) and (x > 270) then |
280 if (y > 430) and (x > 270) then |
280 begin |
281 begin |
402 cLocaleFName:= 'en.txt'; |
403 cLocaleFName:= 'en.txt'; |
403 cFullScreen:= true; //T or F is is the same here |
404 cFullScreen:= true; //T or F is is the same here |
404 cAltDamage:= false; |
405 cAltDamage:= false; |
405 cShowFPS:= true; |
406 cShowFPS:= true; |
406 val('8', cTimerInterval); |
407 val('8', cTimerInterval); |
407 cReducedQuality:= false; |
408 cReducedQuality:= true; |
408 |
409 |
409 for p:= Succ(Low(TPathType)) to High(TPathType) do |
410 for p:= Succ(Low(TPathType)) to High(TPathType) do |
410 if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p] |
411 if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p] |
411 end; |
412 end; |
412 {$ENDIF} |
413 {$ENDIF} |