Shadow fix

This commit is contained in:
mysticbbs 2013-05-27 02:52:00 -04:00
parent 217dc31fa3
commit 7ffca01cdb
1 changed files with 2 additions and 2 deletions

View File

@ -199,9 +199,9 @@ Begin
If Shadow Then Begin
For A := Y1 + 1 to Y2 + 1 Do
For B := X2 to X2 + 1 Do Begin
For B := X2 + 1 to X2 + 2 Do Begin
Ch := Console.ReadCharXY(B, A);
Console.WriteXY (B + 1, A, ShadowAttr, Ch);
Console.WriteXY (B, A, ShadowAttr, Ch);
End;
A := Y2 + 1;