equal
deleted
inserted
replaced
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} |