home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
BBS_UTIL
/
MODS_3.ZIP
/
FORLETR.MOD
< prev
next >
Wrap
Text File
|
1994-01-27
|
3KB
|
71 lines
┌──────────────────────────────────────────────────────Filo─Header─(c)────┐
│ Mod Name: Apollo11.423 Mod Authors: Apollo 1@92938 WWIVNet & BRNet │
│ Difficulty: ██▒▒▒▒▒▒▒▒ 1@2939 TARDIS,TERRA,ICE & Mas Nets │
│ WWIV Version: v4.23 Date: 12/09/93 │
│ Files Affected: UEDIT.C │
│ F in UEDIT Sends Form letter │
└─────────────────────────────────────────────────────────────────────────┘
LEGEND:
= old code, Search for this
+ new code
- Remove or comment out this line
> Modified From Virgin Code
#include <witty disclaimer>
BACKUP your Source
Load up: UEDIT.C
Find: void uedit(int usern, int other)
= nl();
= prt(2,get_string(266));
= if ((thisuser.sl==255) || (wfc))
- ch=onek("Q[]{}/,.?UDRNLCPOGMSTEYZAI~%:");
- /* Removed for Apollo11.423 */
+ ch=onek("Q[]{}/,.?UDRNLCPOGMSTEYZAI~%:F"); /* Apollo11.423 */
= else
= ch=onek("Q[]{}/,.?UDRNLCPOGMSTEYZAI%");
= switch(ch) {
= case 'Q':
.
.
. /* Goto the end of: case 'E' */
= if ((i>=0) && (i<=255) && (s[0])) {
= u.exempt=i;
= write_user(un,&u);
= }
= break;
+ case 'F': /* Apollo11.423 */
+ show_files("*.FRM",syscfg.gfilesdir); /* Apollo11.423 */
+ prt(2,get_string(712)); /* Apollo11.423 */
+ mpl(8); /* Apollo11.423 */
+ input(s,8); /* Apollo11.423 */
+ if (!s[0]) /* Apollo11.423 */
+ break; /* Apollo11.423 */
+ sprintf(s1,"%s%s.FRM",syscfg.gfilesdir,s); /* Apollo11.423 */
+ if (!exist(s1)) /* Apollo11.423 */
+ sprintf(s1,"%sFORM%s.MSG",syscfg.gfilesdir,s);
+ /* Apollo11.423 */
+ if (exist(s1)) { /* Apollo11.423 */
+ unsigned short sy,un; /* Apollo11.423 */
+ load_workspace(s1,1); /* Apollo11.423 */
+ helpl=0; /* Apollo11.423 */
+ parse_email_info(u.name,&un,&sy); /* Apollo11.423 */
+ grab_quotes(NULL, NULL); /* Apollo11.423 */
+ email(un,sy,0,0); /* Apollo11.423 */
+ if (!wfc) /* Apollo11.423 */
+ topscreen(); /* Apollo11.423 */
+ } /* Apollo11.423 */
+ break; /* Apollo11.423 */
= case 'G':
= nl();
= outstr(get_string(274));
done.
Save, Recompile and run.
As you can see, not all that hard, just a long one.