initial import of 386bsd-0.1 sources

1 files changed, 132 insertions, 0 deletions

diff --git a/larn/bill.c b/larn/bill.c
new file mode 100644
index 00000000..3926a2e5
--- /dev/null
+++ b/larn/bill.c
@@ -0,0 +1,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();
+		}
+	}