Subj : [ANSI] RCS Last Callers 1.0 Mod
To : All
From : Jim Howarth
Date : Thu May 30 2024 10:23 pm
[0m[1;1HHey there,[B[10D[B[10DI'm currently trying to figure out an is
[A[40Csue I am having with this mod. [B[72D[B[72DWhen you look at th
[A[19Ce display of the last 10 callers, the list is out of[B[71Dorder.
[A[8CIe, 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: [B[41D[B[41D[1mN[0mote the d
[A[10Cates[1;30m, [0mmid point down the list[1;30m.[B[40D[B[40D--
[B[2D[0m[Last Callers] -------- [Node] ------ [Location] --------- [Date]
[A[65C ---- [Time][B[77D[2CMaxMouse[17C1[9C!HYP[18C05/22/24[5C10:56
[2Ckoala[20C1[31C05/25/24[5C23:03[B[77D[2CMaxMouse[17C3[9C!HYP[18C
[A[59C05/26/24[5C21:05[B[77D[2Ckoala[20C1[31C05/27/24[5C15:49
[2Ckoala[20C2[31C05/28/24[5C20:12[B[77D[2Ckoala[20C1[31C05/19/24
[A[67C[5C22:50[B[77D[2CMaxMouse[17C2[9C!HYP[18C05/21/24[5C10:50
[2CMaxMouse[17C1[9C!HYP[18C05/21/24[5C19:35[B[77D[2CMaxMouse[17C1
[A[28C[9C!HYP[18C05/21/24[5C19:37[B[77D[2CMystic Hobbies[11C1[9Csy
[A[39Csop[17C05/21/24[5C22:32[B[77D[B[77D[1;30m--[B[2D[B[2D
[A[37mT[0mhis appears to be the code that reads the last callers[1;30m:
[0m---[B[3D[B[3DFunction ReadCallersDat:Boolean[B[31DVar[B[3D[2CRe
[A[4Ct : Boolean = False[B[25D[2Ccounter:Byte=1[B[16DBegin[B[5D
[A[2CCallersdat:=CFGDataPath+'callers.dat'[B[39D[2CfAssign(Fptr,Callers
[A[22Cdat,66)[B[29D[2CfReset(Fptr)[B[14D[2CIf IOResult = 0 Then Begi
[A[27Cn[B[28D[4CFor counter:=1 to 10 do[B[27D[4CBegin[B[9D[6CIf N
[A[10Cot fEof(Fptr) Then[B[28D[8CfReadRec(Fptr,Call[counter])[B[36D
[A[4CEnd[B[7D[4CRet:=True[B[13D[4CfClose(Fptr)[B[16D[2CEnd[B[5D
[A[2CReadCallersdat:=Ret[B[21DEnd[B[3D[B[3D---[B[3D[B[3DAnd this
[A[8C is the code that puts it all together and outputs it. To me it seems
[A[77C more like the problem is in the code above though.[B[48D[B[48D-
[A[1C--[B[3D[B[3DProcedure LastCallers[B[21DVar count : integer = 1
Y : byte[B[10DBegin[B[5D[2Cdispfile('rcschead')[B[22D[2CY:=WhereY
[B[2D[4Cgotoxy(1,Y+1);[B[18D[4CWriteLn(Title+' [34m[[32mLast Call
[A[30Cers[34m] '+TitleOff+Bar+'--------'+Title+' [[32mNode[34m] '+Title
[A[3COff+Bar+'------'+Title+' [[32mLocation[34m] '+TitleOff+Bar+'-------
[A[62C--'+Title+' [[32mDate[34m][1C'+TitleOff+Bar+'----'+Title+' [[32m
[A[32CTime[34m]'+TitleOff)[B[48D[4C//gotoxy(1,Y+6);[B[20D[4Cfor cou
[A[11Cnt:=1 to 10 do[B[25D[6CWriteLn(' '+C2+PadRt(Call[count].Handle,2
[A[48C5,' ')+C1+Int2Str(Call[count].Node)+'[9C'+C3+PadRt(Call[count].City
[A[41C,21,' ')+C4+' '+DateSTR(Call[count].MDateTime,1)+'[5C'+C5+TimeStr(
[A[30CCall[count].MDateTime,False))[B[59D[4Cgotoxy(1,Y+12);[B[19D[4C
[A[4CWriteLn(Title+' [[32mWho''s Online[34m] '+TitleOff+Bar+'--------'+T
[A[63Citle+' [[32mNode[34m] '+TitleOff+Bar+'------'+Title+' [[32mAction
[A[36C[34m] '+TitleOff+Bar+'--------'+Title+' [[32mChat Status[34m] '+T
[A[9CitleOff+Bar+'-------')[B[31D [B[2DEnd[B[3D[B[3D---[B[3D
[1;37mA[0mny thoughts[1;30m? [37mI[30m'[0mm confused[1;30m.[B[28D
