home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Devil's Doorknob BBS Capture (1996-2003)
/
devilsdoorknobbbscapture1996-2003.iso
/
Dloads
/
WWIVMODS
/
MODSUNKN.ZIP
/
MSGQUOT4.MOD
< prev
next >
Wrap
Text File
|
1990-07-11
|
4KB
|
85 lines
Goose #19 @7313
Mon Jul 02 18:28:54 1990
And right before the loop to start inputting text (right after the title has
been entered), add the following code to print out the quoted part of the
message so the user knows what he's working with:
- s[thisuser.screenchars]=0;
- pl(s);
+ if (curli!=0) { /* mod - add
*/
+ i1=0; i2=0; i3=thisuser.screenchars; /* mod - add
*/
+ for (i=0; (i<curli) && (!i2); i++) { /* mod - add
*/
+ strcpy(s1,&(lin[i*LEN])); /* mod - add
*/
+ if (s1[0]==2) { /* mod - add
*/
+ strcpy(s1,&(s1[1])); /* mod - add
*/
+ i5=0; /* mod - add
*/
+ for(i4=0; i4<strlen(s1); i4++) /* mod - add
*/
+ if ((s1[i4]==8) || (s1[i4]==3)) /* mod - add
*/
+ --i5; /* mod - add
*/
+ else /* mod - add
*/
+ ++i5; /* mod - add
*/
+ for (i4=0; (i4<(i3-i5)/2) && (!i2); i4++) /* mod - add
*/
+ osan(" ",&i2,&i1); /* mod - add
*/
+ } /* mod - add
*/
+ pla(s1,&i2); /* mod - add
*/
+ } /* mod - add
*/
+ pl("Use /D to delete extra lines, or begin entering.."); /* mod - add
*/
+ } /* mod - add
*/
-
- while (!done) {
- helpl=27;
Then, about 150 lines down, add the following code to add the /D (delete)
command for editing of the message:
- pl("Replace:");
- } else {
- pl("Nothing to replace.");
- }
- }
+ if (stricmp(s,"/D")==0) { /* mod - add */
+ savel=0; /* mod - add */
+ sprintf(s1,"Delete from line 1-%d?",curli-1); /* mod - add */
+ prt(5,s1); /* mod - add */
+ input(s1,2); /* mod - add */
+ i5=atoi(s1); /* mod - add */
+ if (i5==curli) /* mod - add */
+ i6=i5; /* mod - add */
+ else { /* mod - add */
+ sprintf(s1,"through line %d-%d?",i5,curli-1); /* mod - add */
+ prt(5,s1); /* mod - add */
+ input(s1,2); /* mod - add */
+ i6=atoi(s1); /* mod - add */
+ } /* mod - add */
+ if ((i5>0) && (i6>=i5) && (i6<=curli-1)) /* mod - add */
+ memmove(&lin[(i5-1)*LEN],&lin[(i6)*LEN], /* mod - add */
+ LEN*(curli-i6+1)); /* mod - add */
+ curli+=i5-i6-1; /* mod - add */
+ pl("Line(s) deleted. Continue entering..."); /* mod - add */
+ } else /* mod - add */
+ pl("Nothing deleted."); /* mod - add */
+ } /* mod - add */
- if (stricmp(s,"/TI")==0) {
- savel=0;
- helpl=26;
(Continued...)