equal
deleted
inserted
replaced
539 |
539 |
540 /////////////////////////////////////////////////////////////////////////////// |
540 /////////////////////////////////////////////////////////////////////////////// |
541 {$INCLUDE "ArgParsers.inc"} |
541 {$INCLUDE "ArgParsers.inc"} |
542 |
542 |
543 procedure GetParams; |
543 procedure GetParams; |
544 var tmpInt: LongInt; |
544 var startIndex: LongInt; |
|
545 tmpInt: LongInt; |
545 begin |
546 begin |
546 if (ParamCount < 2) then |
547 if (ParamCount < 2) then |
|
548 DisplayUsage(); |
547 GameType:= gmtSyntax |
549 GameType:= gmtSyntax |
548 else |
550 else |
549 if (ParamCount >= 2) then |
551 if (ParamCount >= 2) then |
550 begin |
552 begin |
551 UserPathPrefix:= ParamStr(1); |
553 UserPathPrefix:= ParamStr(1); |