hedgewars/hwengine.pas
changeset 3971 5c82ee165ed5
parent 3935 5ca27a0e9a63
child 3976 abaf741a4e21
equal deleted inserted replaced
3970:0f6e3219c108 3971:5c82ee165ed5
    34 
    34 
    35 var isTerminated: boolean = false;
    35 var isTerminated: boolean = false;
    36     alsoShutdownFrontend: boolean = false;
    36     alsoShutdownFrontend: boolean = false;
    37 
    37 
    38 {$IFDEF HWLIBRARY}
    38 {$IFDEF HWLIBRARY}
    39 type arrayofpchar = array[0..10] of PChar;
       
    40 
       
    41 procedure initEverything(complete:boolean);
    39 procedure initEverything(complete:boolean);
    42 procedure freeEverything(complete:boolean);
    40 procedure freeEverything(complete:boolean);
    43 
    41 
    44 implementation
    42 implementation
    45 {$ELSE}
    43 {$ELSE}
   196     SDL_ShowCursor(0)
   194     SDL_ShowCursor(0)
   197 end;
   195 end;
   198 
   196 
   199 ///////////////
   197 ///////////////
   200 {$IFDEF HWLIBRARY}
   198 {$IFDEF HWLIBRARY}
   201 procedure Game(gameArgs: arrayofpchar); cdecl; export;
   199 procedure Game(gameArgs: PPChar); cdecl; export;
   202 {$ELSE}
   200 {$ELSE}
   203 procedure Game;
   201 procedure Game;
   204 {$ENDIF}
   202 {$ENDIF}
   205 var p: TPathType;
   203 var p: TPathType;
   206     s: shortstring;
   204     s: shortstring;
   214     cTimerInterval:= 8;
   212     cTimerInterval:= 8;
   215     PathPrefix:= 'Data';
   213     PathPrefix:= 'Data';
   216 {$IFDEF DEBUGFILE}
   214 {$IFDEF DEBUGFILE}
   217     cShowFPS:= true;
   215     cShowFPS:= true;
   218 {$ELSE}
   216 {$ELSE}
   219     cShowFPS:= false;    // update me at release time
   217     cShowFPS:= false;
   220 {$ENDIF}
   218 {$ENDIF}
   221     val(gameArgs[0], ipcPort);
   219     val(gameArgs[0], ipcPort);
   222     val(gameArgs[1], cScreenWidth);
   220     val(gameArgs[1], cScreenWidth);
   223     val(gameArgs[2], cScreenHeight);
   221     val(gameArgs[2], cScreenHeight);
   224     val(gameArgs[3], cReducedQuality);
   222     val(gameArgs[3], cReducedQuality);