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

Bugfixes

This commit is contained in:
mysticbbs 2012-08-04 19:18:31 -04:00
parent dd4b943c14
commit e1c55483f9
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mystic/bbs_io.pas
View File

@ -977,7 +977,9 @@ Begin
If Not CheckFileInPath(Config.TextPath) Then Exit; If Not CheckFileInPath(Config.TextPath) Then Exit;
End Else End Else
Exit; Exit;
End;
If Pos('.', FName) = 0 Then
If FileExist(FName + Copy(Ext, 1, 3) + '1') Then Begin If FileExist(FName + Copy(Ext, 1, 3) + '1') Then Begin
Repeat Repeat
BufPos := Random(9); BufPos := Random(9);
@ -991,7 +993,6 @@ Begin
Ext := Copy(Ext, 1, 3) + Code; Ext := Copy(Ext, 1, 3) + Code;
End; End;
End;
Assign (dFile, FName + Ext); Assign (dFile, FName + Ext);
@ -1337,6 +1338,9 @@ Begin
BufFlush; BufFlush;
Repeat Repeat
If InMacro Then
If DoInputEvents(Result) Then Exit;
If LastSecond <> TimerSeconds Then Begin If LastSecond <> TimerSeconds Then Begin
LastSecond := TimerSeconds; LastSecond := TimerSeconds;