Mercurial Mercurial > hedgewars-draft / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/hwengine.pas
changeset 2743 39d097ac2276
parent 2735 f2008d0ce3f8
child 2747 7889a3a9724f
equal deleted inserted replaced
2742:21c0d2e69753 2743:39d097ac2276 
    67 //       HHHandlers.inc
 
    67 //       HHHandlers.inc
 
    68 //       SinTable.inc
 
    68 //       SinTable.inc
 
    69 //       proto.inc
 
    69 //       proto.inc
 
    70 
    70 
    71 {$IFDEF IPHONEOS}
 
    71 {$IFDEF IPHONEOS}
 
    72 type arrayofpchar = array[0..6] of PChar;
 
    72 type arrayofpchar = array[0..5] of PChar;
 
    73 procedure DoTimer(Lag: LongInt);
 
    73 procedure DoTimer(Lag: LongInt);
 
    74 procedure OnDestroy;
 
    74 procedure OnDestroy;
 
    75 procedure MainLoop;
 
    75 procedure MainLoop;
 
    76 procedure ShowMainWindow;
 
    76 procedure ShowMainWindow;
 
    77 procedure Game(gameArgs: arrayofpchar); cdecl; export;
 
    77 procedure Game(gameArgs: arrayofpchar); cdecl; export;
 
   230 begin
 
   230 begin
 
   231 {$IFDEF IPHONEOS}
 
   231 {$IFDEF IPHONEOS}
 
   232 	initEverything();
 
   232 	initEverything();
 
   233 	Randomize();
 
   233 	Randomize();
 
   234 
   234 
   235 	val('480', cScreenWidth);
 
   235 	cScreenWidth:= 480;
 
   236 	val('320', cScreenHeight);
 
   236 	cScreenHeight:= 320;
 
   237 	cInitWidth:= cScreenWidth;
 
   237 	cInitWidth:= cScreenWidth;
 
   238 	cInitHeight:= cScreenHeight;
 
   238 	cInitHeight:= cScreenHeight;
 
   239 	cBitsStr:= '32';
 
   239 	cBits:= 32;
 
   240 	val(cBitsStr, cBits);
 
       
   241 	cFullScreen:= false;
 
   240 	cFullScreen:= false;
 
   242 	cVSyncInUse:= true;
 
   241 	cVSyncInUse:= true;
 
   243 	val('8', cTimerInterval);
 
   242 	cTimerInterval:= 8;
 
   244 	PathPrefix:= 'Data';
 
   243 	PathPrefix:= 'Data';
 
   245 	cReducedQuality:= false;
 
   244 	cReducedQuality:= false;
 
   246 	cShowFPS:= true;
 
   245 	cShowFPS:= true;
 
       
   246 	cInitVolume:= 100;
 
   247 
   247 
   248 	UserNick:= gameArgs[0];
 
   248 	UserNick:= gameArgs[0];
 
   249 	val(gameArgs[1], ipcPort);
 
   249 	val(gameArgs[1], ipcPort);
 
   250 	isSoundEnabled:= gameArgs[2] = '1';
 
   250 	isSoundEnabled:= gameArgs[2] = '1';
 
   251 	isMusicEnabled:= gameArgs[3] = '1';
 
   251 	isMusicEnabled:= gameArgs[3] = '1';
 
   252 	cLocaleFName:= gameArgs[4];
 
   252 	cLocaleFName:= gameArgs[4];
 
   253 	val(gameArgs[5], cInitVolume);
 
   253 	cAltDamage:= gameArgs[5] = '1';
 
   254 	cAltDamage:= gameArgs[6] = '1';
 
       
   255 {$ENDIF}
 
   254 {$ENDIF}
 
   256 
   255 
   257 	for p:= Succ(Low(TPathType)) to High(TPathType) do
 
   256 	for p:= Succ(Low(TPathType)) to High(TPathType) do
 
   258 		if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p];
 
   257 		if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p];
 
   259 		
   258
hedgewars-draft