Rocksolid Light

News from da outaworlds

mail  files  register  groups  login

Message-ID:  

You will be honored for contributing your time and skill to a worthy cause.

alt / alt.bbs.mystic / [ANSI] RCS Last Callers 1.0 Mod

SubjectAuthor
o [ANSI] RCS Last Callers 1.0 ModJim Howarth

1
Subject: [ANSI] RCS Last Callers 1.0 Mod
From: Jim Howarth
Newsgroups: alt.bbs.mystic
Organization: Agency HUB, Dunedin - New Zealand
Date: Thu, 30 May 2024 09:23 UTC
Path: eternal-september.org!news.eternal-september.org!feeder3.eternal-september.org!news.bbs.nz!.POSTED.agency.bbs.nz!not-for-mail
From: nospam.Jim.Howarth@f300.n229.z1.fidonet.org (Jim Howarth)
Newsgroups: alt.bbs.mystic
Subject: [ANSI] RCS Last Callers 1.0 Mod
Date: Thu, 30 May 2024 22:23:30 +1300
Organization: Agency HUB, Dunedin - New Zealand
Message-ID: <1612325545@f300.n229.z1.fidonet.org>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 8bit
Injection-Info: news.bbs.nz; posting-host="8IWYKlztXHa0+IViEdY46zrq8kpk7dC9fTbT74JiSDQ";
logging-data="23350"; mail-complaints-to="abuse@news.bbs.nz"
User-Agent: VSoup v1.2.9.47Beta [95/NT]
X-Comment-To: All
X-MailConverter: SoupGate-Win32 v1.05
View all headers

Hey there,I'm currently trying to figure out an is
sue I am having with this mod. When you look at th
e display of the last 10 callers, the list is out oforder.
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 d
ates, mid point down the list.--
[Last Callers] -------- [Node] ------ [Location] --------- [Date]
 ---- [Time]MaxMouse1!HYP05/22/2410:56
koala105/25/2423:03MaxMouse3!HYP
05/26/2421:05koala105/27/2415:49
koala205/28/2420:12koala105/19/24
22:50MaxMouse2!HYP05/21/2410:50
MaxMouse1!HYP05/21/2419:35MaxMouse1
!HYP05/21/2419:37Mystic Hobbies1sy
sop05/21/2422:32--
This appears to be the code that reads the last callers:
---Function ReadCallersDat:BooleanVarRe
t : Boolean = Falsecounter:Byte=1Begin
Callersdat:=CFGDataPath+'callers.dat'fAssign(Fptr,Callers
dat,66)fReset(Fptr)If IOResult = 0 Then Begi
nFor counter:=1 to 10 doBeginIf N
ot fEof(Fptr) ThenfReadRec(Fptr,Call[counter])
EndRet:=TruefClose(Fptr)End
ReadCallersdat:=RetEnd---And this
 is the code that puts it all together and outputs it. To me it seems
 more like the problem is in the code above though.-
--Procedure LastCallersVar count : integer = 1
Y : byteBegindispfile('rcschead')Y:=WhereY
gotoxy(1,Y+1);WriteLn(Title+' [Last Call
ers] '+TitleOff+Bar+'--------'+Title+' [Node] '+Title
Off+Bar+'------'+Title+' [Location] '+TitleOff+Bar+'-------
--'+Title+' [Date]'+TitleOff+Bar+'----'+Title+' [
Time]'+TitleOff)//gotoxy(1,Y+6);for cou
nt:=1 to 10 doWriteLn(' '+C2+PadRt(Call[count].Handle,2
5,' ')+C1+Int2Str(Call[count].Node)+''+C3+PadRt(Call[count].City
,21,' ')+C4+' '+DateSTR(Call[count].MDateTime,1)+''+C5+TimeStr(
Call[count].MDateTime,False))gotoxy(1,Y+12);
WriteLn(Title+' [Who''s Online] '+TitleOff+Bar+'--------'+T
itle+' [Node] '+TitleOff+Bar+'------'+Title+' [Action
] '+TitleOff+Bar+'--------'+Title+' [Chat Status] '+T
itleOff+Bar+'-------') End---
Any thoughts? I'm confused.

-- NerdRage BBS - SysOp: TheNerd
-- telnet: nerdragebbs.ddns.net

1

rocksolid light 0.9.8
clearnet tor