equal
deleted
inserted
replaced
87 if HasBorder then DisableSomeWeapons; |
87 if HasBorder then DisableSomeWeapons; |
88 AddClouds; |
88 AddClouds; |
89 AssignHHCoords; |
89 AssignHHCoords; |
90 AddMiscGears; |
90 AddMiscGears; |
91 StoreLoad; |
91 StoreLoad; |
92 InitWorld; |
92 InitWorld; |
93 ResetKbd; |
93 ResetKbd; |
94 SoundLoad; |
94 SoundLoad; |
95 if GameType = gmtSave then |
95 if GameType = gmtSave then |
96 begin |
96 begin |
97 isSEBackup:= isSoundEnabled; |
97 isSEBackup:= isSoundEnabled; |
180 //SDL_VIDEORESIZE: Resize(max(event.resize.w, 600), max(event.resize.h, 450)); |
180 //SDL_VIDEORESIZE: Resize(max(event.resize.w, 600), max(event.resize.h, 450)); |
181 {$IFNDEF IPHONEOS} |
181 {$IFNDEF IPHONEOS} |
182 SDL_MOUSEBUTTONDOWN: if event.button.button = SDL_BUTTON_WHEELDOWN then uKeys.wheelDown:= true; |
182 SDL_MOUSEBUTTONDOWN: if event.button.button = SDL_BUTTON_WHEELDOWN then uKeys.wheelDown:= true; |
183 SDL_MOUSEBUTTONUP: if event.button.button = SDL_BUTTON_WHEELDUP then uKeys.wheelUp:= true; |
183 SDL_MOUSEBUTTONUP: if event.button.button = SDL_BUTTON_WHEELDUP then uKeys.wheelUp:= true; |
184 {$ENDIF} |
184 {$ENDIF} |
|
185 SDL_JOYAXIS: ControllerAxisEvent(event.jaxis.which, event.jaxis.axis, event.jaxis.value); |
|
186 SDL_JOYHAT: ControllerHatEvent(event.jhat.which, event.jhat.hat, event.jhat.value); |
|
187 SDL_JOYBUTTONDOWN: ControllerButtonEvent(event.jbutton.which, event.jbutton.button, true); |
|
188 SDL_JOYBUTTONUP: ControllerButtonEvent(event.jbutton.which, event.jbutton.button, false); |
185 SDL_QUITEV: isTerminated:= true |
189 SDL_QUITEV: isTerminated:= true |
186 end; |
190 end; |
187 CurrTime:= SDL_GetTicks; |
191 CurrTime:= SDL_GetTicks; |
188 if PrevTime + cTimerInterval <= CurrTime then |
192 if PrevTime + cTimerInterval <= CurrTime then |
189 begin |
193 begin |
386 /////////////// |
390 /////////////// |
387 procedure Game; |
391 procedure Game; |
388 var s: shortstring; |
392 var s: shortstring; |
389 begin |
393 begin |
390 WriteToConsole('Init SDL... '); |
394 WriteToConsole('Init SDL... '); |
391 SDLTry(SDL_Init(SDL_INIT_VIDEO) >= 0, true); |
395 SDLTry(SDL_Init(SDL_INIT_VIDEO or SDL_INIT_JOYSTICK) >= 0, true); |
392 WriteLnToConsole(msgOK); |
396 WriteLnToConsole(msgOK); |
393 |
397 |
394 SDL_EnableUNICODE(1); |
398 SDL_EnableUNICODE(1); |
395 |
399 |
396 WriteToConsole('Init SDL_ttf... '); |
400 WriteToConsole('Init SDL_ttf... '); |
397 SDLTry(TTF_Init <> -1, true); |
401 SDLTry(TTF_Init <> -1, true); |
398 WriteLnToConsole(msgOK); |
402 WriteLnToConsole(msgOK); |
399 |
403 |
400 ShowMainWindow; |
404 ShowMainWindow; |
401 |
405 |
|
406 ControllerInit; // has to happen before InitKbdKeyTable to map keys |
402 InitKbdKeyTable; |
407 InitKbdKeyTable; |
403 |
408 |
404 if recordFileName = '' then InitIPC; |
409 if recordFileName = '' then InitIPC; |
405 WriteLnToConsole(msgGettingConfig); |
410 WriteLnToConsole(msgGettingConfig); |
406 |
411 |
429 |
434 |
430 TryDo(InitStepsFlags = cifAllInited, |
435 TryDo(InitStepsFlags = cifAllInited, |
431 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', |
436 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', |
432 true); |
437 true); |
433 |
438 |
434 MainLoop |
439 MainLoop; |
|
440 ControllerClose |
435 end; |
441 end; |
436 |
442 |
437 ///////////////////////// |
443 ///////////////////////// |
438 procedure GenLandPreview; |
444 procedure GenLandPreview; |
439 var Preview: TPreview; |
445 var Preview: TPreview; |