equal
deleted
inserted
replaced
418 uMisc.freeModule; // uMisc closes the debug log. |
418 uMisc.freeModule; // uMisc closes the debug log. |
419 uConsts.freeModule; //stub |
419 uConsts.freeModule; //stub |
420 end; |
420 end; |
421 |
421 |
422 ///////////////////////// |
422 ///////////////////////// |
423 procedure GenLandPreview{$IFDEF IPHONEOS}(port: LongInt){$ENDIF}; {$IFDEF HWLIBRARY}cdecl; export;{$ENDIF} |
423 procedure GenLandPreview{$IFDEF HWLIBRARY}(port: LongInt); cdecl; export{$ENDIF}; |
424 var Preview: TPreview; |
424 var Preview: TPreview; |
425 begin |
425 begin |
426 {$IFDEF IPHONEOS} |
426 {$IFDEF HWLIBRARY} |
427 initEverything(false); |
427 initEverything(false); |
428 WriteLnToConsole('Preview connecting on port ' + inttostr(port)); |
428 WriteLnToConsole('Preview connecting on port ' + inttostr(port)); |
429 ipcPort:= port; |
429 ipcPort:= port; |
430 {$ENDIF} |
430 {$ENDIF} |
431 InitIPC; |
431 InitIPC; |
436 WriteLnToConsole('Sending preview...'); |
436 WriteLnToConsole('Sending preview...'); |
437 SendIPCRaw(@Preview, sizeof(Preview)); |
437 SendIPCRaw(@Preview, sizeof(Preview)); |
438 SendIPCRaw(@MaxHedgehogs, sizeof(byte)); |
438 SendIPCRaw(@MaxHedgehogs, sizeof(byte)); |
439 WriteLnToConsole('Preview sent, disconnect'); |
439 WriteLnToConsole('Preview sent, disconnect'); |
440 CloseIPC(); |
440 CloseIPC(); |
441 {$IFDEF IPHONEOS} |
441 {$IFDEF HWLIBRARY} |
442 freeEverything(false); |
442 freeEverything(false); |
443 {$ENDIF} |
443 {$ENDIF} |
444 end; |
444 end; |
445 |
445 |
446 {$IFNDEF HWLIBRARY} |
446 {$IFNDEF HWLIBRARY} |
447 //////////////////////////////// |
|
448 (*procedure Resize(w, h: LongInt); |
|
449 begin |
|
450 cScreenWidth:= w; |
|
451 cScreenHeight:= h; |
|
452 if cFullScreen then |
|
453 ParseCommand('/fullscr 1', true) |
|
454 else |
|
455 ParseCommand('/fullscr 0', true); |
|
456 end;*) |
|
457 |
|
458 ///////////////////// |
447 ///////////////////// |
459 procedure DisplayUsage; |
448 procedure DisplayUsage; |
460 var i: LongInt; |
449 var i: LongInt; |
461 begin |
450 begin |
462 WriteLn('Wrong argument format: correct configurations is'); |
451 WriteLn('Wrong argument format: correct configurations is'); |
481 procedure GetParams; |
470 procedure GetParams; |
482 {$IFDEF DEBUGFILE} |
471 {$IFDEF DEBUGFILE} |
483 var i: LongInt; |
472 var i: LongInt; |
484 {$ENDIF} |
473 {$ENDIF} |
485 begin |
474 begin |
486 |
|
487 case ParamCount of |
475 case ParamCount of |
488 18: begin |
476 18: begin |
489 val(ParamStr(2), cScreenWidth); |
477 val(ParamStr(2), cScreenWidth); |
490 val(ParamStr(3), cScreenHeight); |
478 val(ParamStr(3), cScreenHeight); |
491 cInitWidth:= cScreenWidth; |
479 cInitWidth:= cScreenWidth; |