--- a/hedgewars/PascalExports.pas	Sat Jan 09 01:34:23 2010 +0000
+++ b/hedgewars/PascalExports.pas	Sun Jan 10 00:52:20 2010 +0000
@@ -15,11 +15,16 @@
 interface
 uses uKeys, uConsole;
 
+{$INCLUDE "proto.inc"}
+
 {$IFDEF IPHONEOS}
 // called by pascal code, they deal with the objc code
 function  IPH_getDocumentsPath: PChar; cdecl; external;
 procedure IPH_showControls; cdecl; external;
 
+// retrieve protocol information
+function  HW_protoVer: LongInt; cdecl; export;
+
 // called by the touch functions (SDL_uikitview.m)
 // they emulate user interaction from mouse or keyboard
 procedure HW_click; cdecl; export;
@@ -40,6 +45,11 @@
 implementation
 
 {$IFDEF IPHONEOS}
+function HW_protoVer: LongInt; cdecl; export;
+begin
+	HW_protoVer:= cNetProtoVersion;
+end;
+
 procedure HW_click; cdecl; export;
 begin
 	WriteLnToConsole('HW - left click');