29 program hwengine; |
29 program hwengine; |
30 {$ENDIF} |
30 {$ENDIF} |
31 |
31 |
32 uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uKeys, uSound, |
32 uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uKeys, uSound, |
33 uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uRandom, uLandTexture, uCollisions, |
33 uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uRandom, uLandTexture, uCollisions, |
34 sysutils, uTypes, uVariables, uCommands, uUtils, uCaptions, uDebug, uCommandHandlers, uLandPainted {$IFDEF ANDROID}, GLUnit {$ENDIF}; |
34 sysutils, uTypes, uVariables, uCommands, uUtils, uCaptions, uDebug, uCommandHandlers, uLandPainted,uTouch {$IFDEF ANDROID}, GLUnit {$ENDIF}; |
35 |
35 |
36 {$IFDEF HWLIBRARY} |
36 {$IFDEF HWLIBRARY} |
37 procedure initEverything(complete:boolean); |
37 procedure initEverything(complete:boolean); |
38 procedure freeEverything(complete:boolean); |
38 procedure freeEverything(complete:boolean); |
39 procedure Game(gameArgs: PPChar); cdecl; export; |
39 procedure Game(gameArgs: PPChar); cdecl; export; |
167 if event.window.event = SDL_WINDOWEVENT_SHOWN then |
167 if event.window.event = SDL_WINDOWEVENT_SHOWN then |
168 begin |
168 begin |
169 cHasFocus:= true; |
169 cHasFocus:= true; |
170 onFocusStateChanged() |
170 onFocusStateChanged() |
171 end; |
171 end; |
172 SDL_FINGERDOWN: WriteToConsole('finger down'); |
172 SDL_FINGERMOTION: onTouchMotion(event.tfinger.x, event.tfinger.y,event.tfinger.dx, event.tfinger.dy, event.tfinger.fingerId); |
173 SDL_FINGERMOTION: WriteToConsole('finger is moving'); |
173 SDL_FINGERDOWN: onTouchDown(event.tfinger.x, event.tfinger.y, event.tfinger.fingerId); |
174 SDL_FINGERUP: WriteToConsole('finger up'); |
174 SDL_FINGERUP: onTouchUp(event.tfinger.x, event.tfinger.y, event.tfinger.fingerId); |
175 {$ELSE} |
175 {$ELSE} |
176 KeyPressChat(event.key.keysym.unicode); |
176 KeyPressChat(event.key.keysym.unicode); |
177 SDL_MOUSEBUTTONDOWN: if event.button.button = SDL_BUTTON_WHEELDOWN then wheelDown:= true; |
177 SDL_MOUSEBUTTONDOWN: if event.button.button = SDL_BUTTON_WHEELDOWN then wheelDown:= true; |
178 SDL_MOUSEBUTTONUP: if event.button.button = SDL_BUTTON_WHEELUP then wheelUp:= true; |
178 SDL_MOUSEBUTTONUP: if event.button.button = SDL_BUTTON_WHEELUP then wheelUp:= true; |
179 SDL_ACTIVEEVENT: |
179 SDL_ACTIVEEVENT: |
251 cStereoMode:= smNone; |
251 cStereoMode:= smNone; |
252 {$ENDIF} |
252 {$ENDIF} |
253 |
253 |
254 cLogfileBase:= 'game'; |
254 cLogfileBase:= 'game'; |
255 initEverything(true); |
255 initEverything(true); |
256 |
|
257 WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')'); |
256 WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')'); |
258 AddFileLog('Prefix: "' + PathPrefix +'"'); |
257 AddFileLog('Prefix: "' + PathPrefix +'"'); |
259 AddFileLog('UserPrefix: "' + UserPathPrefix +'"'); |
258 AddFileLog('UserPrefix: "' + UserPathPrefix +'"'); |
260 for i:= 0 to ParamCount do |
259 for i:= 0 to ParamCount do |
261 AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |
260 AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |