• [ANSI] RCS Last Callers 1.0 Mod

    From Jim Howarth@1:229/300 to All on Thu May 30 22:23:30 2024
    .[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

    -- 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)