vlarn/bill.c

/* bill.c    */
#include "extern.h"
#include "header.h"
#include "player.h"

static char mail600[32];
static int pid;
long Taxes;

letter1() {
  sprintf(mail600, "/tmp/#%dmail600", pid); /* prepare path */
  if (lcreat(mail600) < 0) {
    write(1, "can't write 600 letter\n", 23);
    return 0;
  }

  lprcat("From: lrs@vlarn.dnd (Vlarn Revenue Service)\n");
  lprcat("Subject: Undeclared income\n");
  lprcat("\n   We heard you survived the caverns of VLarn.  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 piece%s back with you from your journey.  As the",
          (long)c[GOLD], plural(c[GOLD]));
  lprcat("\ncounty of VLarn is in dire need of funds, we have spared no time");
  lprintf("\nin preparing your tax bill.  You owe %d gold piece%s as", Taxes,
          plural(Taxes));
  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;
}

letter2() {
  sprintf(mail600, "/tmp/#%dmail600", pid); /* prepare path */
  if (lcreat(mail600) < 0) {
    write(1, "can't write 600 letter\n", 23);
    return 0;
  }

  lprcat("From: wilfred@ularn.com (His Majesty King Wilfred)\n");
  lprcat("Subject: a noble deed\n");
  lprcat("\n   I have heard of your magnificent feat and I, King Wilfred,");
  lprcat("\nhereby declare this day to be a national holiday.  Furthermore,");
  lprcat("\nthree days hence, ye be invited to the castle to receive the");
  lprintf("\nhonour of %s of the Realm.  Upon thy name shall it be written...",
          sex ? "Knight" : "Lady");
  lprcat("\nBravery and courage be yours.");
  lprcat("\nMay you live in happiness for evermore...\n");
  lwclose();
  return 1;
}

letter3() {
  sprintf(mail600, "/tmp/#%dmail600", pid); /* prepare path */
  if (lcreat(mail600) < 0) {
    write(1, "can't write 600 letter\n", 23);
    return 0;
  }

  lprcat("From: endelford@ularn.com (Count Endelford)\n");
  lprintf("Subject: You %s\n!", sex ? "Bastard" : "Bitch");
  lprcat("\n   I heard (from sources) of your journey.  Congratulations!");
  lprintf("You %s!  With several attempts I have yet to endure the",
          sex ? "Bastard" : "Bitch");
  lprcat(" caves,\nand you, a nobody, make the journey!  From this time");
  lprcat(" onward, be warned:\nupon our meeting you shall pay the price!\n");
  lwclose();
  return 1;
}

letter4() {
  sprintf(mail600, "/tmp/#%dmail600", pid); /* prepare path */
  if (lcreat(mail600) < 0) {
    write(1, "can't write 600 letter\n", 23);
    return 0;
  }
  lprcat("From: mainair@vlarn.dnd (Duke of VLarnty)\n");
  lprcat("Subject: 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.  Methinks Count Endelford this day of");
  lprcat("\nright breaths 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;
}

letter5() {
  sprintf(mail600, "/tmp/#%dmail600", pid); /* prepare path */
  if (lcreat(mail600) < 0) {
    write(1, "can't write 600 letter\n", 23);
    return 0;
  }
  lprcat("From: stmarys@vlarn.dnd (St. Mary's Children's Home)\n");
  lprcat("Subject: these poor children!\n");
  lprcat("\n   News of your great conquest has spread to all of VLarndom.");
  lprintf("\nMight I have a moment of a great %sman's time?  We here at St.",
          sex ? "" : "wo");
  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 would help much.");
  lprcat("\n(your gift is tax-deductible)\n");
  lwclose();
  return 1;
}

letter6() {
  sprintf(mail600, "/tmp/#%dmail600", pid); /* prepare path */
  if (lcreat(mail600) < 0) {
    write(1, "can't write 600 letter\n", 23);
    return 0;
  }
  lprcat("From: nds@vlarn.dnd (National Dianthroritis Society of VLarn)\n");
  lprcat("Subject: hope\n");
  lprcat("\nCongratulations on your successful expedition.  We are sure much");
  lprcat("\ncourage and determination was needed on your quest.  There are");
  lprcat("\nmany though, that could never hope to undertake such a journey");
  lprcat(
      "\ndue to an enfeebling disease -- dianthroritis.  We at the National");
  lprcat("\nDianthroritis Society of VLarn wish to appeal to your philanthropy "
         "in");
  lprcat("\norder to save many good people -- possibly even yourself or a "
         "loved one 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() {
  int i;
  char buf[128];

  wait((int *)0);
  pid = getpid();
  if (fork() == 0) {
    resetscroll();
    for (i = 0; i < sizeof(pfn) / sizeof(int (*)()); i++)
      if (pfn[i]()) {
        sleep(20);
        sprintf(buf, "/bin/mail %s < %s", loginname, mail600);
        system(buf);
        unlink(mail600);
      }
    exit(0);
  }
}