Category : BBS Programs+Doors
Archive   : 2AF004.ZIP
Filename : 2AF004.422

 
Output of file : 2AF004.422 contained in archive : 2AF004.ZIP

ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
Í File : 2AF004.422 Í
Í Mod : New Last Callers Listing Í
Í For : WWIV 4.22 Í
Í Date : 02/08/93 Í
Í By : 2af Mods, Inc. Í
Í Í
Í Desc : Í
Í I hated the drab look the the last callers listings, so this adds a bit of Í
Í color, and a box around them. Í
Í Í
ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
Í No stupid disclamers are included. You should know what your doing. Í
ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ

Before you add this mod (and future mod's by me) you will need to install a
mod called FF0001.MOD. It allows you to use your own *.STR file instead of
adding to BBS.STR. You can of course just add them to BBS.STR and change
the # called, etc.

The strings used are as follows:

1 "2Last Few Callers:"
2 "5ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ"+
"ÍÍÍÍÍÍ»"
3 "5ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ"+
"ÍÍÍÍÍͼ"
4 "2Today's Callers:"

(of course #2 and 3 are split up due to length)

ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ

The first step is to load up BBSUTL.C and drop this function at the top.

int dump_file(char *fn) /* 2af 4 - whole function */
{
FILE *fhd;
char ss[81],xch;

if (fn[3]=='U') {
if (okansi())
sprintf(ss,"%s%s.ANS",syscfg.gfilesdir,fn);
else
sprintf(ss,"%s%s.MSG",syscfg.gfilesdir,fn);
} else {
sprintf(ss,"%s%s.ANS",syscfg.gfilesdir,fn);
if (!exist(ss))
sprintf(ss,"%s%s.MSG",syscfg.gfilesdir,fn);
if (!exist(ss))
sprintf(ss,"%s%s.LOG",syscfg.gfilesdir,fn);
if (!exist(ss))
sprintf(ss,"%s%s.TXT",syscfg.gfilesdir,fn);
}
if ((fhd = fopen(ss,"rt")) == NULL) {
return(0);
} else {
while ((xch=getc(fhd))!=EOF) {
switch (xch) {
case 10 : outchr(13);
default : outchr(xch);
break;
}
}
fclose(fhd);
}
return(1);
}

Now load up LILO.C and go to the function logon. Changed the your code to
match the marked areas.

sprintf(s2,"%sLASTON.TXT",syscfg.gfilesdir);
ss=get_file(s2,&len);
pos=0;
if (ss!=NULL) {
if (!cs())
for (i=0; i<4; i++)
copy_line(s1,ss,&pos,len);
i=1;
do {
copy_line(s1,ss,&pos,len);
if ((s1[0]) && live_user) {
if (i) {

i=0;
outchr(12); /* 2af 4 */
nl();
nl();
pl(modstring(1)); /* 2af 4 */
pl(modstring(2)); /* 2af 4 */
}
pl(s1);
}
} while (pos pl(modstring(3)); /* 2af 4 */
}
if ((actsl!=255) || (incom)) {
sl1(0,"");
sl1(0,s);
sl1(1,"");
sprintf(s,"5º 2%5ld0: 1%-36s 3%-26s 0- 7%-2d 5º\r\n", /* 2af 4 */
status.callernum1,
nam(&thisuser,usernum),

Ok, now you need to load up BBS.C. Go down and make the 'L' case in
mainmenu look as follows.

case 'L':
nl();
pl(modstring(4)); /* 2af 4 */
pl(modstring(2)); /* 2af 4 */
dump_file("USER"); /* 2af 4 */
pl(modstring(3)); /* 2af 4 */
break;


All done.. Just recompile. You can also MAKE FNCS to add dump_file in the
header if you want.

The dump_file function will be used for mod's to come.


Have fun.