1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
#include "header.h"
/* bill.c "Larn is copyrighted 1986 by Noah Morgan. */
static char mail600[32];
/*
* function to create the tax bill for the user
*/
static int pid;
static letter1()
{
sprintf(mail600,"/tmp/#%dmail600",pid); /* prepare path */
if (lcreat(mail600) < 0) { write(1,"can't write 600 letter\n",23); return(0);}
lprcat("\n\n\n\n\n\n\n\n\n\n\n\n");
standout("From:"); lprcat(" the LRS (Larn Revenue Service)\n");
standout("\nSubject:"); lprcat(" undeclared income\n");
lprcat("\n We heard you survived the caverns of Larn. Let me be the");
lprcat("\nfirst to congratulate you on your success. It is quite a feat.");
lprcat("\nIt must also have been very profitable for you.");
lprcat("\n\n The Dungeon Master has informed us that you brought");
lprintf("\n%d gold pieces back with you from your journey. As the",(long)c[GOLD]);
lprcat("\ncounty of Larn is in dire need of funds, we have spared no time");
lprintf("\nin preparing your tax bill. You owe %d gold pieces as",
(long)c[GOLD]*TAXRATE);
lprcat("\nof this notice, and is due within 5 days. Failure to pay will");
lprcat("\nmean penalties. Once again, congratulations, We look forward");
lprcat("\nto your future successful expeditions.\n");
lwclose(); return(1);
}
static letter2()
{
sprintf(mail600,"/tmp/#%dmail600",pid); /* prepare path */
if (lcreat(mail600) < 0) { write(1,"can't write 601 letter\n",23); return(0);}
lprcat("\n\n\n\n\n\n\n\n\n\n\n\n");
standout("From:"); lprcat(" His Majesty King Wilfred of Larndom\n");
standout("\nSubject:"); lprcat(" a noble deed\n");
lprcat("\n I have heard of your magnificent feat, and I, King Wilfred,");
lprcat("\nforthwith declare today to be a national holiday. Furthermore,");
lprcat("\nhence three days, Ye be invited to the castle to receive the");
lprcat("\nhonour of Knight of the realm. Upon thy name shall it be written. . .");
lprcat("\nBravery and courage be yours.");
lprcat("\nMay you live in happiness forevermore . . .\n");
lwclose(); return(1);
}
static letter3()
{
sprintf(mail600,"/tmp/#%dmail600",pid); /* prepare path */
if (lcreat(mail600) < 0) { write(1,"can't write 602 letter\n",23); return(0);}
lprcat("\n\n\n\n\n\n\n\n\n\n\n\n");
standout("From:"); lprcat(" Count Endelford\n");
standout("\nSubject:"); lprcat(" You Bastard!\n");
lprcat("\n I heard (from sources) of your journey. Congratulations!");
lprcat("\nYou Bastard! With several attempts I have yet to endure the");
lprcat(" caves,\nand you, a nobody, makes the journey! From this time");
lprcat(" onward, bewarned\nupon our meeting you shall pay the price!\n");
lwclose(); return(1);
}
static letter4()
{
sprintf(mail600,"/tmp/#%dmail600",pid); /* prepare path */
if (lcreat(mail600) < 0) { write(1,"can't write 603 letter\n",23); return(0);}
lprcat("\n\n\n\n\n\n\n\n\n\n\n\n");
standout("From:"); lprcat(" Mainair, Duke of Larnty\n");
standout("\nSubject:"); lprcat(" High Praise\n");
lprcat("\n With a certainty a hero I declare to be amongst us! A nod of");
lprcat("\nfavour I send to thee. Me thinks Count Endelford this day of");
lprcat("\nright breath'eth fire as of dragon of whom ye are slayer. I");
lprcat("\nyearn to behold his anger and jealously. Should ye choose to");
lprcat("\nunleash some of thy wealth upon those who be unfortunate, I,");
lprcat("\nDuke Mainair, Shall equal thy gift also.\n");
lwclose(); return(1);
}
static letter5()
{
sprintf(mail600,"/tmp/#%dmail600",pid); /* prepare path */
if (lcreat(mail600) < 0) { write(1,"can't write 604 letter\n",23); return(0);}
lprcat("\n\n\n\n\n\n\n\n\n\n\n\n");
standout("From:"); lprcat(" St. Mary's Children's Home\n");
standout("\nSubject:"); lprcat(" these poor children\n");
lprcat("\n News of your great conquests has spread to all of Larndom.");
lprcat("\nMight I have a moment of a great man's time. We here at St.");
lprcat("\nMary's Children's Home are very poor, and many children are");
lprcat("\nstarving. Disease is widespread and very often fatal without");
lprcat("\ngood food. Could you possibly find it in your heart to help us");
lprcat("\nin our plight? Whatever you could give will help much.");
lprcat("\n(your gift is tax deductible)\n");
lwclose(); return(1);
}
static letter6()
{
sprintf(mail600,"/tmp/#%dmail600",pid); /* prepare path */
if (lcreat(mail600) < 0) { write(1,"can't write 605 letter\n",23); return(0);}
lprcat("\n\n\n\n\n\n\n\n\n\n\n\n");
standout("From:"); lprcat(" The National Cancer Society of Larn\n");
standout("\nSubject:"); lprcat(" hope\n");
lprcat("\nCongratulations on your successful expedition. We are sure much");
lprcat("\ncourage and determination were needed on your quest. There are");
lprcat("\nmany though, that could never hope to undertake such a journey");
lprcat("\ndue to an enfeebling disease -- cancer. We at the National");
lprcat("\nCancer Society of Larn wish to appeal to your philanthropy in");
lprcat("\norder to save many good people -- possibly even yourself a few");
lprcat("\nyears from now. Much work needs to be done in researching this");
lprcat("\ndreaded disease, and you can help today. Could you please see it");
lprcat("\nin your heart to give generously? Your continued good health");
lprcat("\ncan be your everlasting reward.\n");
lwclose(); return(1);
}
/*
* function to mail the letters to the player if a winner
*/
static int (*pfn[])()= { letter1, letter2, letter3, letter4, letter5, letter6 };
mailbill()
{
register int i;
char buf[128];
wait(0); pid=getpid();
if (fork() == 0)
{
resetscroll();
for (i=0; i<sizeof(pfn)/sizeof(int (*)()); i++)
if ((*pfn[i])())
{
sleep(20); sprintf(buf,"mail %s < %s",loginname,mail600);
system(buf); unlink(mail600);
}
exit();
}
}
|
