579 internalStartVideoRecordingWithParameters(); |
579 internalStartVideoRecordingWithParameters(); |
580 exit; |
580 exit; |
581 end |
581 end |
582 {$ENDIF}; |
582 {$ENDIF}; |
583 |
583 |
584 if (ParamCount < 2) then |
584 UserPathPrefix := '.'; |
|
585 PathPrefix := cDefaultPathPrefix; |
|
586 recordFileName := ''; |
|
587 startIndex := 1; |
|
588 playReplayFileWithParameters(startIndex); |
|
589 |
|
590 if (recordFileName = '') then |
585 begin |
591 begin |
586 DisplayUsage(); |
592 DisplayUsage(); |
587 GameType:= gmtSyntax; |
593 GameType:= gmtSyntax; |
588 end |
|
589 else |
|
590 begin |
|
591 if (ParamCount >= 2) then |
|
592 begin |
|
593 UserPathPrefix := '.'; |
|
594 PathPrefix := ParamStr(1); |
|
595 recordFileName := ParamStr(2); |
|
596 startIndex := 3; |
|
597 end; |
|
598 |
|
599 playReplayFileWithParameters(startIndex); |
|
600 end; |
594 end; |
601 (* |
595 (* |
602 WriteLn(stdout,recordFilename); |
596 WriteLn(stdout,'PathPrefix: ' + PathPrefix); |
603 WriteLn(stdout,PathPrefix); |
597 WriteLn(stdout,'UserPathPrefix: ' + UserPathPrefix); |
604 WriteLn(stdout,UserPathPrefix); |
598 WriteLn(stdout,'recordFilename: ' + recordFilename); |
605 *) |
599 *) |
606 end; |
600 end; |
607 |
601 |
608 /////////////////////////////////////////////////////////////////////////////// |
602 /////////////////////////////////////////////////////////////////////////////// |
609 /////////////////////////////////// m a i n /////////////////////////////////// |
603 /////////////////////////////////// m a i n /////////////////////////////////// |