hedgewars/hwengine.pas
branchwebgl
changeset 8833 c13ebed437cb
parent 8444 75db7bb8dce8
parent 8742 b7b8bd398c1b
child 8847 ff7fbab7cd56
--- a/hedgewars/hwengine.pas	Wed Feb 20 02:21:58 2013 +0100
+++ b/hedgewars/hwengine.pas	Tue Apr 02 21:00:57 2013 +0200
@@ -196,8 +196,10 @@
 {$IFDEF SDL13}
                 SDL_KEYDOWN:
                     if GameState = gsChat then
+                        begin
                     // sdl on iphone supports only ashii keyboards and the unicode field is deprecated in sdl 1.3
-                        KeyPressChat(SDL_GetKeyFromScancode(event.key.keysym.sym))//TODO correct for keymodifiers
+                        KeyPressChat(SDL_GetKeyFromScancode(event.key.keysym.sym, event.key.keysym.sym)//TODO correct for keymodifiers
+                        end
                     else
                         ProcessKey(event.key);
                 SDL_KEYUP:
@@ -241,7 +243,7 @@
 {$ELSE}
                 SDL_KEYDOWN:
                     if GameState = gsChat then
-                        KeyPressChat(event.key.keysym.unicode)
+                        KeyPressChat(event.key.keysym.unicode, event.key.keysym.sym)
                     else
                         ProcessKey(event.key);
                 SDL_KEYUP:
@@ -384,8 +386,11 @@
     parseCommandLine(argc, argv);
 {$ENDIF}
     initEverything(true);
-    WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')');
-
+    WriteLnToConsole('Hedgewars engine ' + cVersionString + '-r' + cRevisionString +
+                     ' (' + cHashString + ') with protocol #' + inttostr(cNetProtoVersion));
+    AddFileLog('Prefix: "' + PathPrefix +'"');
+    AddFileLog('UserPrefix: "' + UserPathPrefix +'"');
+    
     for i:= 0 to ParamCount do
         AddFileLog(inttostr(i) + ': ' + ParamStr(i));