Indented with src/scripts/indent-emp.

[empserver] / src / lib / subs / disloan.c

diff --git a/src/lib/subs/disloan.c b/src/lib/subs/disloan.c
index 62d90c54d53541b3b2e07117f51f3b6b41a68a80..c567bf72c34597fffbda1c519337cdc0664914de 100644 (file)
--- a/src/lib/subs/disloan.c
+++ b/src/lib/subs/disloan.c
@@ -53,63 +53,63 @@
 int
 disloan(int n, register struct lonstr *loan)
 {
-       time_t  now;
-       time_t  due;
-       time_t  lastpaydate;
-       time_t  normaltime;
-       time_t  doubletime;
-       time_t  accept;
-       double  rate;
-       double  owe;
+    time_t now;
+    time_t due;
+    time_t lastpaydate;
+    time_t normaltime;
+    time_t doubletime;
+    time_t accept;
+    double rate;
+    double owe;
 
-       if (loan->l_status == LS_FREE)
-               return 0;
-       if (loan->l_ldur == 0)
-               return 0;
-       if (loan->l_loner != player->cnum && loan->l_lonee != player->cnum)
-               return 0;
-       (void) time(&now);
-       pr("\nLoan #%d from %s to", n, cname(loan->l_loner));
-       pr(" %s\n", cname(loan->l_lonee));
-       if (loan->l_status == LS_PROPOSED) {
-               pr("(proposed) principal=$%d interest rate=%d%%",
-                       loan->l_amtdue, loan->l_irate);
-               pr(" duration(days)=%d\n", loan->l_ldur);
-               if (loan->l_duedate < now) {
-                       loan->l_status = LS_FREE;
-                       putloan(n, loan);
-                       pr("This offer has expired\n");
-                       return 0;
-               }
-               accept = loan->l_lastpay + loan->l_ldur * SECS_PER_DAY;
-               pr("Loan must be accepted by %s", ctime(&accept));
-               return 1;
+    if (loan->l_status == LS_FREE)
+       return 0;
+    if (loan->l_ldur == 0)
+       return 0;
+    if (loan->l_loner != player->cnum && loan->l_lonee != player->cnum)
+       return 0;
+    (void)time(&now);
+    pr("\nLoan #%d from %s to", n, cname(loan->l_loner));
+    pr(" %s\n", cname(loan->l_lonee));
+    if (loan->l_status == LS_PROPOSED) {
+       pr("(proposed) principal=$%d interest rate=%d%%",
+          loan->l_amtdue, loan->l_irate);
+       pr(" duration(days)=%d\n", loan->l_ldur);
+       if (loan->l_duedate < now) {
+           loan->l_status = LS_FREE;
+           putloan(n, loan);
+           pr("This offer has expired\n");
+           return 0;
        }
-       due = loan->l_duedate;
-       lastpaydate = loan->l_lastpay;
-       if (now < due) {
-               normaltime = now - lastpaydate;
-               doubletime = 0;
-       }
-       if (lastpaydate < due && due < now) {
-               normaltime = due - lastpaydate;
-               doubletime = now - due;
-       }
-       if (due < lastpaydate) {
-               normaltime = 0;
-               doubletime = now - lastpaydate;
-       }
-       rate = ((double)loan->l_irate / 100.0) / (loan->l_ldur * SECS_PER_DAY);
-       owe = ((double) loan->l_amtdue *
-               (((double) normaltime * rate + 1.0) +
-               ((double) doubletime * rate * 2.0))) + 0.5;
-       pr("Amount paid to date $%d\n", loan->l_amtpaid);
-       pr("Amount due (if paid now) $%.2f", owe);
-       if (doubletime == 0) {
-               pr(" (if paid on due date) $%.2f\n",
-                       loan->l_amtdue * ((due - lastpaydate) * rate + 1.0));
-               pr("Due date is %s", ctime(&loan->l_duedate));
-       } else
-               pr(" ** In Arrears **\n");
+       accept = loan->l_lastpay + loan->l_ldur * SECS_PER_DAY;
+       pr("Loan must be accepted by %s", ctime(&accept));
        return 1;
+    }
+    due = loan->l_duedate;
+    lastpaydate = loan->l_lastpay;
+    if (now < due) {
+       normaltime = now - lastpaydate;
+       doubletime = 0;
+    }
+    if (lastpaydate < due && due < now) {
+       normaltime = due - lastpaydate;
+       doubletime = now - due;
+    }
+    if (due < lastpaydate) {
+       normaltime = 0;
+       doubletime = now - lastpaydate;
+    }
+    rate = ((double)loan->l_irate / 100.0) / (loan->l_ldur * SECS_PER_DAY);
+    owe = ((double)loan->l_amtdue *
+          (((double)normaltime * rate + 1.0) +
+           ((double)doubletime * rate * 2.0))) + 0.5;
+    pr("Amount paid to date $%d\n", loan->l_amtpaid);
+    pr("Amount due (if paid now) $%.2f", owe);
+    if (doubletime == 0) {
+       pr(" (if paid on due date) $%.2f\n",
+          loan->l_amtdue * ((due - lastpaydate) * rate + 1.0));
+       pr("Due date is %s", ctime(&loan->l_duedate));
+    } else
+       pr(" ** In Arrears **\n");
+    return 1;
 }