--- a/project_files/HedgewarsMobile/Classes/ObjcExports.m	Thu Sep 22 23:20:11 2011 +0200
+++ b/project_files/HedgewarsMobile/Classes/ObjcExports.m	Fri Sep 23 09:58:41 2011 +0200
@@ -62,6 +62,10 @@
 
 #pragma mark -
 #pragma mark functions called by pascal code
+BOOL inline isApplePhone() {
+    return (IS_IPAD() == NO);
+}
+
 void startSpinningProgress() {
     gameRunning = NO;
     overlay_instance.lowerIndicator = [[UIActivityIndicatorView alloc] initWithActivityIndicatorStyle:UIActivityIndicatorViewStyleWhiteLarge];