eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

New $X formatting MCI code

This commit is contained in:
mysticbbs 2012-03-14 02:23:09 -04:00
parent cb08f03b24
commit 4e23c5ac49
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
mystic/bbs_io.pas
View File

@ -289,7 +289,9 @@ Var
Code : String[2]; Code : String[2];
Begin Begin
If FmtString Then Begin If FmtString Then Begin
FmtString := False; FmtString := False;
Case FmtType of Case FmtType of
1 : Str := strPadR(Str, FmtLen + Length(Str) - Length(strStripPipe(Str)), ' '); 1 : Str := strPadR(Str, FmtLen + Length(Str) - Length(strStripPipe(Str)), ' ');
2 : Str := strPadL(Str, FmtLen + Length(Str) - Length(strStripPipe(Str)), ' '); 2 : Str := strPadL(Str, FmtLen + Length(Str) - Length(strStripPipe(Str)), ' ');
@ -404,6 +406,10 @@ Begin
FmtString := True; FmtString := True;
FmtType := 1; FmtType := 1;
End; End;
'X' : Begin
FmtString := True;
FmtType := 17;
End;
End; End;
'&' : Case Code[2] of '&' : Case Code[2] of
'1' : LastMCIValue := PromptInfo[1]; '1' : LastMCIValue := PromptInfo[1];
@ -770,6 +776,13 @@ Begin
FmtString := False; FmtString := False;
End; End;
17: Begin
Inc (A);
FmtString := False;
If Screen.CursorX < FmtLen Then
BufAddStr (strRep(Str[A], FmtLen - Screen.CursorX + 1));
End;
End; End;
End; End;
End Else End Else
@ -1076,6 +1089,12 @@ Begin
BaudEmulator := FmtLen; BaudEmulator := FmtLen;
FmtString := False; FmtString := False;
End; End;
17: Begin
FmtString := False;
If Screen.CursorX < FmtLen Then
BufAddStr (strRep(GetChar, FmtLen - Screen.CursorX + 1));
End;
End; End;
End; End;
End; End;