hedgewars/hwengine.pas
changeset 2796 7f86e7ad378b
parent 2790 83630d5f94db
child 2799 558b29bf00c5
equal deleted inserted replaced
2795:c9c830897547 2796:7f86e7ad378b
   164 	SendKB();
   164 	SendKB();
   165 	CloseIPC();
   165 	CloseIPC();
   166 	TTF_Quit();
   166 	TTF_Quit();
   167 	{$IFDEF SDL13}SDL_VideoQuit();{$ENDIF}
   167 	{$IFDEF SDL13}SDL_VideoQuit();{$ENDIF}
   168 	SDL_Quit();
   168 	SDL_Quit();
       
   169 	{$IFDEF IPHONEOS}
   169 	freeEverything();
   170 	freeEverything();
       
   171 	{$ENDIF}
   170 	exit();
   172 	exit();
   171 end;
   173 end;
   172 
   174 
   173 ///////////////////
   175 ///////////////////
   174 procedure MainLoop; 
   176 procedure MainLoop; 
   576 	GetParams();
   578 	GetParams();
   577 	Randomize();
   579 	Randomize();
   578 
   580 
   579 	if GameType = gmtLandPreview then GenLandPreview()
   581 	if GameType = gmtLandPreview then GenLandPreview()
   580 	else Game();
   582 	else Game();
       
   583 	freeEverything();
   581 	ExitCode:= 0;
   584 	ExitCode:= 0;
   582 {$ENDIF}
   585 {$ENDIF}
   583 end.
   586 end.