Gold transfer mod.  Allows users to give gold to each other.
Belgarath #7 @3314
Thu Dec 05 15:36:42 1991
***************************Gold Transfer Mod ****************************

Load up BBS.C and find this void.  Should be at the top. (At least it is
in Ver 4.12.  In Ver 4.20 it may be elsewhere.

void holdphone(int d)
{

  if (!ok_modem_stuff)
    return;
  if (no_hangup)
    return;
  if (d) {
    if (!global_xx) {
      if (syscfg.sysconfig & sysconfig_off_hook) {
        set_baud(syscfg.baudrate[syscfg.primaryport]);
        pr1(syscfg.pickupphone);
        xtime=timer();
        global_xx=1;
      }
    }
  } else {
    if (syscfg.sysconfig & sysconfig_off_hook) {
      if (global_xx) {
        dtr(1);
        if (fabs(xtime-timer())<modem_time)
          outs("\r\n\r\nWaiting for modem...");
        while (fabs(xtime-timer())<modem_time)
          ;
        pr1(syscfg.hangupphone);
        imodem();
        global_xx=0;
      }
    }
  }
}


==============================================================================

Now you need to copy the following void right below it.  (dont copy
these lines or the holdphone void.  Its already there).

==============================================================================


void transfer()                               /* start gold transfer mod */
{

  char s1[81],s2[81];
  long j,tn;
  userrec u;
  read_user(tn,&u);

    nl();
    outstr("\x0c");
    pl("4 Gold Transfer System ");
    nl();
    tn=0;
    prt(2,"Give gold to which user?");
    nl();
    outstr(":");
    ansic(5);
    input(s1,35);
    tn=finduser1(s1);
    if (tn>0) {
       strcpy(s2,"1You sure you want to give gold to 3");
       read_user(tn,&u);
       strcat(s2,nam(&u,tn));
       strcat(s2," 1Y/N");
       print("",s2,"");
       if (yn()) {
          nl();
          itoa(thisuser.gold,s2,10);
          strcpy(s1,"5You have2 ");
          strcat(s1,s2);
          strcat(s1," 5Gold pieces.");
          pl(s1);
          prt(2,"Give em how much gold?");
          nl();
          outstr(":");
          input(s2,5);
          j=atoi(s2);
        if ((j>0 & j<=thisuser.gold)) {
          ansic(2);
          outstr(s2);
          pl(" 5gold pieces given.");
          nl();
          read_user(tn,&u);
          u.gold+=j;
          write_user(tn,&u);
          thisuser.gold-=j;
          sprintf(s1,"1%s",nam(&thisuser,usernum));
          strcat(s1," 5gave you 3");
          strcat(s1,s2);
          strcat(s1," 5gold pieces!");
          ssm(tn,0,s1);
          strcpy(s1,"1");
          strcat(s1,nam(&thisuser,usernum));
          strcat(s1," 5gave 3");
          read_user(tn,&u);
          strcat(s1,nam(&u,tn));
          strcat(s1," 2");
          strcat(s1,s2);
          strcat(s1," 5gold pieces!");
          sysoplog(s1);
        } else
        if ((j>0 & j>thisuser.gold)) {
          prt(4," You don't have that much!! ");
          nl();
        }
       } else
         prt(7,"Unknown user.");
         nl();
    }
}                                                  /* Stop gold transfer mod */



==============================================================================
SEARCH FOR THE FOLLOWING AND ADD THE /T OPTION
==============================================================================


 if (strcmp(s,"/E")==0)
    slash_e();

  if (strcmp(s,"/T")==0)            /* Start gold Transfer Mod */
    transfer();                      /* Stop gold Transfer Mod */

==============================================================================
YOUR ALL DONE

A nice thing about this mod is that if you give gold to another user, they
will automatically find out the next time they log on, who gave them some
gold and how much they gave.

DON'T FORGET TO CHANGE YOU MENUS FILE TO REFLECT THE /T
==============================================================================

      5**> 3WWIV Net Origin: 4 Erana's Peace BBS 0