sheepy-clone: comparison hedgewars/hwengine.pas

equal deleted inserted replaced

-:34abd278344e
+:22c1f4833a86
 program hwengine;
 {$ENDIF}
 uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uKeys, uSound,
 uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uRandom, uLandTexture, uCollisions,
-sysutils, uTypes, uVariables, uCommands, uUtils, uCaptions, uDebug, uCommandHandlers, uLandPainted;
+sysutils, uTypes, uVariables, uCommands, uUtils, uCaptions, uDebug, uCommandHandlers, uLandPainted {$IFDEF ANDROID}, log in 'log.pas', GLUnit{$ENDIF};
 {$IFDEF HWLIBRARY}
 procedure initEverything(complete:boolean);
 procedure freeEverything(complete:boolean);
-procedure Game(gameArgs: PPChar); cdecl; export;
+procedure Game(); cdecl; export;
 implementation
 {$ELSE}
 procedure OnDestroy; forward;
 procedure initEverything(complete:boolean); forward;
 isTerminated:= false;
 end;
 ///////////////////
 procedure MainLoop;
-{$WARNINGS OFF}
-// disable "Some fields weren't initialized" warning
-const event: TSDL_Event = ();
-{$WARNINGS ON}
 var PrevTime, CurrTime: Longword;
+event: TSDL_Event;
 begin
 PrevTime:= SDL_GetTicks;
 while isTerminated = false do
 begin
+{$IFDEF ANDROID}
-while SDL_PollEvent(@event) <> 0 do
+	SDL_PumpEvents();
+while SDL_PeepEvents(@event, 1, SDL_GETEVENT, SDL_FIRSTEVENT, SDL_LASTEVENT) > 0 do
+{$ELSE}
+	while SDL_PollEvent(@event) <> 0 do
+{$ENDIF}
 begin
 case event.type_ of
 SDL_KEYDOWN: if GameState = gsChat then
 {$IFDEF SDL13}
 // sdl on iphone supports only ashii keyboards and the unicode field is deprecated in sdl 1.3
 KeyPressChat(event.key.keysym.sym);
 SDL_WINDOWEVENT:
 if event.window.event = SDL_WINDOWEVENT_SHOWN then
 cHasFocus:= true;
 {$ELSE}
 KeyPressChat(event.key.keysym.unicode);
 SDL_MOUSEBUTTONDOWN: if event.button.button = SDL_BUTTON_WHEELDOWN then wheelDown:= true;
 SDL_ShowCursor(0)
 end;
 ///////////////
 {$IFDEF HWLIBRARY}
-procedure Game(gameArgs: PPChar); cdecl; export;
+procedure Game(); cdecl; export;
 {$ELSE}
 procedure Game;
 {$ENDIF}
 var p: TPathType;
 s: shortstring;
 begin
 {$IFDEF HWLIBRARY}
 cBits:= 32;
 cFullScreen:= false;
 cTimerInterval:= 8;
-PathPrefix:= 'Data';
+PathPrefix:= '/sdcard/Data';
-UserPathPrefix:= '.';
 cShowFPS:= {$IFDEF DEBUGFILE}true{$ELSE}false{$ENDIF};
-val(gameArgs[0], ipcPort);
+val('0', ipcPort);
-val(gameArgs[1], cScreenWidth);
+val('800', cScreenWidth);
-val(gameArgs[2], cScreenHeight);
+val('480', cScreenHeight);
-val(gameArgs[3], cReducedQuality);
+//val('1', cReducedQuality);
-cLocaleFName:= gameArgs[4];
+cReducedQuality := $00000000;
-UserNick:= gameArgs[5];
+cLocaleFName:= 'null';
-isSoundEnabled:= gameArgs[6] = '1';
+UserNick:= 'xeli';
-isMusicEnabled:= gameArgs[7] = '1';
+isSoundEnabled:= '0' = '1';
-cAltDamage:= gameArgs[8] = '1';
+isMusicEnabled:= '0' = '1';
-val(gameArgs[9], rotationQt);
+cAltDamage:= '1' = '1';
-recordFileName:= gameArgs[10];
+val('0', rotationQt);
+recordFileName:= '/sdcard/bla.hwd';
 cStereoMode:= smNone;
 {$ENDIF}
 cLogfileBase:= 'game';
 initEverything(true);
 WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')');
 AddFileLog('Prefix: "' + PathPrefix +'"');
-AddFileLog('UserPrefix: "' + UserPathPrefix +'"');
 for i:= 0 to ParamCount do
 AddFileLog(inttostr(i) + ': ' + ParamStr(i));
-for p:= Succ(Low(TPathType)) to High(TPathType) do
-if (p <> ptMapCurrent) and (p <> ptData) then UserPathz[p]:= UserPathPrefix + '/Data/' + Pathz[p];
-UserPathz[ptData]:= UserPathPrefix + '/Data';
 for p:= Succ(Low(TPathType)) to High(TPathType) do
 if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p];
 WriteToConsole('Init SDL... ');
 ControllerInit(); // has to happen before InitKbdKeyTable to map keys
 InitKbdKeyTable();
 AddProgress();
-LoadLocale(UserPathz[ptLocale] + '/en.txt');  // Do an initial load with english
 LoadLocale(Pathz[ptLocale] + '/en.txt');  // Do an initial load with english
 if (Length(cLocaleFName) > 6) then cLocale := Copy(cLocaleFName,1,5)
 else cLocale := Copy(cLocaleFName,1,2);
 if cLocaleFName <> 'en.txt' then
 begin
 // Try two letter locale first before trying specific locale overrides
 if (Length(cLocale) > 2) and (Copy(cLocale,1,2) <> 'en') then
-begin
+LoadLocale(Pathz[ptLocale] + '/' + Copy(cLocale,1,2)+'.txt');
-LoadLocale(UserPathz[ptLocale] + '/' + Copy(cLocale,1,2)+'.txt');
+LoadLocale(Pathz[ptLocale] + '/' + cLocaleFName);
-LoadLocale(Pathz[ptLocale] + '/' + Copy(cLocale,1,2)+'.txt')
-end;
-LoadLocale(UserPathz[ptLocale] + '/' + cLocaleFName);
-LoadLocale(Pathz[ptLocale] + '/' + cLocaleFName)
 end
 else cLocale := 'en';
 WriteLnToConsole(msgGettingConfig);
 uIO.initModule;
 if complete then
 begin
-uAI.initModule;
+{$IFDEF ANDROID}
+	GLUnit.init;
+	{$ENDIF}
+	uAI.initModule;
 //uAIActions does not need initialization
 //uAIAmmoTests does not need initialization
 uAIMisc.initModule;
 uAmmos.initModule;
 uChat.initModule;
 procedure DisplayUsage;
 var i: LongInt;
 begin
 WriteLn('Wrong argument format: correct configurations is');
 WriteLn();
-WriteLn('  hwengine <path to user hedgewars folder> <path to global data folder> <path to replay file> [options]');
+WriteLn('  hwengine <path to data folder> <path to replay file> [options]');
 WriteLn();
 WriteLn('where [options] must be specified either as:');
 WriteLn(' --set-video [screen width] [screen height] [color dept]');
 WriteLn(' --set-audio [volume] [enable music] [enable sounds]');
 WriteLn(' --set-other [language file] [full screen] [show FPS]');
 ////////////////////
 {$INCLUDE "ArgParsers.inc"}
 procedure GetParams;
 begin
-if (ParamCount < 3) then
+if (ParamCount < 2) then
 GameType:= gmtSyntax
 else
-if (ParamCount = 3) and ((ParamStr(3) = '--stats-only') or (ParamStr(3) = 'landpreview')) then
+if (ParamCount = 3) then
 internalSetGameTypeLandPreviewFromParameters()
 else
 if (ParamCount = cDefaultParamNum) then
 internalStartGameWithParameters()
 else

branch	hedgeroid
changeset 5286	22c1f4833a86
parent 5242	e4f6aa3250eb
child 5339	bc8560452143