Small fix in MCI parser

This commit is contained in:
mysticbbs 2012-03-04 13:26:05 -05:00
parent 226fac328c
commit 5b81e856b1
3 changed files with 10 additions and 1 deletions

View File

@ -3985,3 +3985,6 @@
and their directories (if they do not already exist). See MUTIL.CFG for and their directories (if they do not already exist). See MUTIL.CFG for
more information. more information.
! The MCI parser for |!x MCI codes now checks for validity of the number
or otherwise does not parse the code.

View File

@ -377,11 +377,16 @@ Begin
End; End;
Case Code[1] of Case Code[1] of
'!' : Begin '!' : If Code[2] in ['0'..'9'] Then Begin
A := strS2I(Code[2]); A := strS2I(Code[2]);
ScreenInfo[A].X := Screen.CursorX; ScreenInfo[A].X := Screen.CursorX;
ScreenInfo[A].Y := Screen.CursorY; ScreenInfo[A].Y := Screen.CursorY;
ScreenInfo[A].A := Screen.TextAttr; ScreenInfo[A].A := Screen.TextAttr;
End Else Begin
Result := False;
Exit;
End; End;
'$' : Case Code[2] of '$' : Case Code[2] of
'C' : Begin 'C' : Begin

View File

@ -100,6 +100,7 @@ FUTURE / IDEAS / WORK IN PROGRESS / NOTES
- So much cool stuff to do with the new themes - So much cool stuff to do with the new themes
- LastOn revamp make sure its not global and new stuff is populated - LastOn revamp make sure its not global and new stuff is populated
- ANSI online help that can execute menu commands/restore screen - ANSI online help that can execute menu commands/restore screen
- MPL fAppend? Why didnt I add that?
RANDOM DRUNKEN BRAINDUMP AKA DESIGN DETAILS RANDOM DRUNKEN BRAINDUMP AKA DESIGN DETAILS
=========================================== ===========================================