--- a/hedgewars/pas2cSystem.pas	Sun Nov 11 16:53:16 2012 +0100
+++ b/hedgewars/pas2cSystem.pas	Sun Nov 11 17:15:19 2012 +0100
@@ -1,18 +1,21 @@
 system;
 
 type 
+    uinteger = uinteger;
     Integer = integer;
     LongInt = integer;
-    LongWord = integer;
-    Cardinal = integer;
+    LongWord = uinteger;
+    Cardinal = uinteger;
     PtrInt = integer;
-    Word = integer;
+    Word = uinteger;
     Byte = integer;
     SmallInt = integer;
     ShortInt = integer;
-    QWord = integer;
+    QWord = uinteger;
     GLint = integer;
     GLuint = integer;
+    GLenum = integer;
+
     int = integer;
     size_t = integer;
 
@@ -51,51 +54,22 @@
 var 
     false, true: boolean;
     
-    write, writeLn, read, readLn: procedure;
-    
-    StrLen, ord, Succ, Pred : function : integer;
+    ord, Succ, Pred : function : integer;
     inc, dec, Low, High, Lo, Hi : function : integer;
-    odd, even : function : boolean;
-
-    Now : function : integer;
-
-    new, dispose, FillChar, Move : procedure;
 
-    trunc, round : function : integer;
-    abs, sqr : function : integer;
-
-    StrPas, FormatDateTime, copy, delete, str, pos, trim, LowerCase : function : shortstring;
-    Length, StrToInt : function : integer;
-    SetLength, val : procedure;
-    _pchar : function : PChar;
-    pchar2str : function : string;
-    memcpy : procedure;
-
-    assign, rewrite, reset, flush, BlockWrite, BlockRead, close : procedure;
     IOResult : integer;
     exit, break, halt, continue : procedure;
-    TextFile, file : Handle;
+
+    TextFile, File : Handle;
     FileMode : integer;
-    FileExists, DirectoryExists, eof : function : boolean;
-    ExtractFileName : function : string;
     exitcode : integer;
     stdout, stderr : Handle;
-    
-    ParamCount : function : integer;
-    ParamStr : function : string;
 
-    sqrt, arctan2, cos, sin, power : function : float;
+    sqrt, cos, sin: function : float;
     pi : float;
 
-    TypeInfo, GetEnumName : function : shortstring;
-
-    UTF8ToUnicode, WrapText: function : shortstring;
-
     sizeof : function : integer;
 
-    GetMem : function : pointer;
-    FreeMem : procedure;
-   
     glGetString : function : pchar;
  
     glBegin, glBindTexture, glBlendFunc, glClear, glClearColor,
@@ -110,7 +84,15 @@
     glDeleteFramebuffersEXT, glGenFramebuffersEXT,
     glGenRenderbuffersEXT, glBindFramebufferEXT, 
     glBindRenderbufferEXT, glRenderbufferStorageEXT,
-    glFramebufferRenderbufferEXT, glFramebufferTexture2DEXT : procedure;
+    glFramebufferRenderbufferEXT, glFramebufferTexture2DEXT,
+    glUniformMatrix4fv, glVertexAttribPointer, glCreateShader,
+    glShaderSource, glCompileShader, glGetShaderiv, glGetShaderInfoLog,
+    glCreateProgram, glAttachShader, glBindAttribLocation, glLinkProgram,
+    glDeleteShader, glGetProgramiv, glGetProgramInfoLog, glUseProgram,
+    glUniform1i, glGetUniformLocation, glEnableVertexAttribArray,
+    glGetError, glDeleteProgram, glDeleteBuffers,
+    glGenBuffers, glBufferData, glBindBuffer, glewInit,
+    glUniform4f, glDisableVertexAttribArray : procedure;
 
     GL_BGRA, GL_BLEND, GL_CLAMP_TO_EDGE, GL_COLOR_ARRAY,
     GL_COLOR_BUFFER_BIT, GL_DEPTH_BUFFER_BIT, GL_DEPTH_COMPONENT,
@@ -124,16 +106,12 @@
     GL_TEXTURE_WRAP_T, GL_TRIANGLE_FAN, GL_TRUE, GL_VENDOR,
     GL_VERSION, GL_VERTEX_ARRAY, GLenum,  GL_FRAMEBUFFER_EXT,
     GL_RENDERBUFFER_EXT, GL_DEPTH_ATTACHMENT_EXT,
-    GL_COLOR_ATTACHMENT0_EXT, GL_FLOAT, GL_UNSIGNED_BYTE : integer;
+    GL_COLOR_ATTACHMENT0_EXT, GL_FLOAT, GL_UNSIGNED_BYTE, GL_COMPILE_STATUS,
+    GL_INFO_LOG_LENGTH, GL_LINK_STATUS, GL_VERTEX_SHADER, GL_FRAGMENT_SHADER,
+    GL_NO_ERROR, GL_ARRAY_BUFFER, GL_STATIC_DRAW, GLEW_OK,
+    GL_AUX_BUFFERS: integer;
 
     TThreadId : function : integer;
-    BeginThread, ThreadSwitch : procedure;
-    InterlockedIncrement, InterlockedDecrement : procedure;
-    
-    random : function : integer;
-    randomize : procedure;
-    
-    Assigned : function : boolean;
     
     _strconcat, _strappend, _strprepend, _chrconcat : function : string;
     _strcompare, _strncompare, _strcomparec : function : boolean;
@@ -144,5 +122,7 @@
     png_write_row, png_set_ihdr, png_write_info,
     png_write_end : procedure;
 
-    EnumToStr : function : string;
+    clear_filelist_hook, add_file_hook, idb_loader_hook, mainloop_hook, drawworld_hook : procedure;
+    SDL_InitPatch : procedure;
 
+