Hey there,
I'm currently trying to figure out an issue I am having with this mod.
When you look at the display of the last 10 callers, the list is out of
order.
Ie, not in the order of callers time of call. when I first turned
it on, it listed fine, but as soon as it hit caller 10, it starts displaying
them from the top again. example below:
Note the dates, mid point down the lis
t.
--
[Last Callers] -------- [Node] ------ [Location] --------- [Date] ---- [Time]
M
axMouse 1 !HYP 05/22/24 10:56
koala 1 05/25/24 23:03
M
axMouse 3 !HYP 05/26/24 21:05
k
oala 1 05/27/24 15:49
koala 2 05/28/24 20:12
k
oala 1 05/19/24 22:50
M
axMouse 2 !HYP 05/21/24 10:50
MaxMouse 1 !HYP 05/21/24 19:35
M
axMouse 1 !HYP 05/21/24 19:37
M
ystic Hobbies 1 sy sop 05/21/24 22:32
--
Th
is appears to be the code that reads the last callers:
---
Function ReadCallersDat:Boolean
Var
Ret : Boolean = False
counter:Byte=1
Be
gin
Callersdat:=CFGDataPath+'callers.dat'
fAssign(Fptr,Callersdat,66)
fReset(Fp
tr)
If IOResult = 0 Then Begin
For counter:=1 to 10 do
Begin
If Not
fEof(Fptr) Then
fReadRec(Fptr,Call[counter])
End
Ret:=True
fClose(Fp
tr)
End
ReadCallersdat:=Ret
End
---
And this is the code that puts it all together
and outputs it. To me it seems mo
re like the problem is in the code above though.
---
Procedure LastCallers
Var coun
t : integer = 1
Y : byte
Begin
dispfile('rcschead')
Y:=WhereY
gotoxy(1,Y+1);
WriteLn(Title+' [Last Callers] '+TitleOff+Bar+'--------
'+Title+' [Node] '+TitleOff+Bar+'------'+Title+' [Location] '+TitleOff+Bar+'----
--- --'+Title+' [Date] '
+TitleOff+Bar+'----'+Title+' [ Time]'+TitleOff)
//gotoxy(1,Y+6);
for coun
t:=1 to 10 do
WriteLn(' '+C2+PadRt(Call[count].Handle,25,' ')+C1+Int2Str(C
all[count].Node)+' '+C3+PadRt(Call[count].City,21,' ')+C4+' '+DateSTR(C
all[count].MDateTime,1)+' '+C5+TimeStr(Call[count].MDateTime,False))
goto
xy(1,Y+12);
WriteLn(Title+' [Who''s Online] '+TitleOff+Bar+'--------'+Title+'
[Node] '+TitleOff+Bar+'------'+Title+' [Action] '+TitleOff+Bar+'--------'+Title
+' [Chat Status] '+TitleOff+Bar+'-------')
End
---
Any thoughts? I'm confused.
-- NerdRage BBS - SysOp: TheNerd
-- telnet: nerdragebbs.ddns.net
--- Mystic BBS v1.12 A48 (Windows/32)
* Origin: NerdRage BBS -.- telnet: nerdragebbs.ddns.net (1:229/300)
|
