| … | |
… | |
| 1368 | ****************************************************************************/ |
1368 | ****************************************************************************/ |
| 1369 | |
1369 | |
| 1370 | /* artifact_msg() - generate a message detailing the properties |
1370 | /* artifact_msg() - generate a message detailing the properties |
| 1371 | * of 1-6 artifacts drawn sequentially from the artifact list. |
1371 | * of 1-6 artifacts drawn sequentially from the artifact list. |
| 1372 | */ |
1372 | */ |
| 1373 | |
1373 | const char * |
| 1374 | char * |
|
|
| 1375 | artifact_msg (int level, int booksize) |
1374 | artifact_msg (int level, int booksize) |
| 1376 | { |
1375 | { |
| 1377 | artifactlist *al = NULL; |
1376 | artifactlist *al = NULL; |
| 1378 | artifact *art; |
1377 | artifact *art; |
| 1379 | int chance, i, type, index; |
1378 | int chance, i, type, index; |
| 1380 | int book_entries = level > 5 ? RANDOM () % 3 + RANDOM () % 3 + 2 : RANDOM () % level + 1; |
1379 | int book_entries = level > 5 ? RANDOM () % 3 + RANDOM () % 3 + 2 : RANDOM () % level + 1; |
|
|
1380 | const char *ch; |
| 1381 | char *ch, name[MAX_BUF], buf[BOOK_BUF], sbuf[MAX_BUF]; |
1381 | char name[MAX_BUF], buf[BOOK_BUF], sbuf[MAX_BUF]; |
| 1382 | static char retbuf[BOOK_BUF]; |
1382 | static char retbuf[BOOK_BUF]; |
| 1383 | object *tmp = NULL; |
1383 | object *tmp = NULL; |
| 1384 | |
1384 | |
| 1385 | /* values greater than 5 create msg buffers that are too big! */ |
1385 | /* values greater than 5 create msg buffers that are too big! */ |
| 1386 | if (book_entries > 5) |
1386 | if (book_entries > 5) |
| … | |
… | |
| 1400 | i++; |
1400 | i++; |
| 1401 | } |
1401 | } |
| 1402 | while ((al == NULL) && (i < 10)); |
1402 | while ((al == NULL) && (i < 10)); |
| 1403 | |
1403 | |
| 1404 | if (i == 10) /* Unable to find a message */ |
1404 | if (i == 10) /* Unable to find a message */ |
| 1405 | return ("None"); |
1405 | return "None"; |
| 1406 | |
1406 | |
| 1407 | /* There is no reason to start on the artifact list at the begining. Lets |
1407 | /* There is no reason to start on the artifact list at the begining. Lets |
| 1408 | * take our starting position randomly... */ |
1408 | * take our starting position randomly... */ |
| 1409 | art = al->items; |
1409 | art = al->items; |
| 1410 | for (i = RANDOM () % level + RANDOM () % 2 + 1; i > 0; i--) |
1410 | for (i = RANDOM () % level + RANDOM () % 2 + 1; i > 0; i--) |
| … | |
… | |
| 1707 | #endif |
1707 | #endif |
| 1708 | |
1708 | |
| 1709 | return retbuf; |
1709 | return retbuf; |
| 1710 | } |
1710 | } |
| 1711 | |
1711 | |
| 1712 | |
|
|
| 1713 | /* god_info_msg() - generate a message detailing the properties |
1712 | /* god_info_msg() - generate a message detailing the properties |
| 1714 | * of a random god. Used by the book hack. b.t. |
1713 | * of a random god. Used by the book hack. b.t. |
| 1715 | */ |
1714 | */ |
| 1716 | |
|
|
| 1717 | const char * |
1715 | const char * |
| 1718 | god_info_msg (int level, int booksize) |
1716 | god_info_msg (int level, int booksize) |
| 1719 | { |
1717 | { |
| 1720 | static char retbuf[BOOK_BUF]; |
1718 | static char retbuf[BOOK_BUF]; |
| 1721 | const char *name = NULL; |
1719 | const char *name = NULL; |
| … | |
… | |
| 1757 | const char *enemy = god->title; |
1755 | const char *enemy = god->title; |
| 1758 | |
1756 | |
| 1759 | if (enemy) |
1757 | if (enemy) |
| 1760 | sprintf (buf, "The gods %s and %s are enemies.\n ---\n", name, enemy); |
1758 | sprintf (buf, "The gods %s and %s are enemies.\n ---\n", name, enemy); |
| 1761 | } |
1759 | } |
|
|
1760 | |
| 1762 | if (level == 3 && RANDOM () % 2) |
1761 | if (level == 3 && RANDOM () % 2) |
| 1763 | { /* enemy race, what the god's holy word effects */ |
1762 | { /* enemy race, what the god's holy word effects */ |
| 1764 | const char *enemy = god->slaying; |
1763 | const char *enemy = god->slaying; |
| 1765 | |
1764 | |
| 1766 | if (enemy && !(god->path_denied & PATH_TURNING)) |
1765 | if (enemy && !(god->path_denied & PATH_TURNING)) |
| … | |
… | |
| 1775 | else |
1774 | else |
| 1776 | sprintf (tmpbuf, "race of%s", strtoktolin (enemy, ",")); |
1775 | sprintf (tmpbuf, "race of%s", strtoktolin (enemy, ",")); |
| 1777 | sprintf (buf, "%s%s\n ---\n", buf, tmpbuf); |
1776 | sprintf (buf, "%s%s\n ---\n", buf, tmpbuf); |
| 1778 | } |
1777 | } |
| 1779 | } |
1778 | } |
|
|
1779 | |
| 1780 | if (level == 4 && RANDOM () % 2) |
1780 | if (level == 4 && RANDOM () % 2) |
| 1781 | { /* Priest of god gets these protect,vulnerable... */ |
1781 | { /* Priest of god gets these protect,vulnerable... */ |
| 1782 | char tmpbuf[MAX_BUF], *cp; |
1782 | char tmpbuf[MAX_BUF]; |
| 1783 | |
1783 | |
| 1784 | cp = describe_resistance (god, 1); |
1784 | if (const char *cp = describe_resistance (god, 1)) |
| 1785 | |
|
|
| 1786 | if (*cp) |
|
|
| 1787 | { /* This god does have protections */ |
1785 | { /* This god does have protections */ |
| 1788 | sprintf (tmpbuf, "%s has a potent aura which is extended\n", name); |
1786 | sprintf (tmpbuf, "%s has a potent aura which is extended\n", name); |
| 1789 | strcat (tmpbuf, "faithful priests. The effects of this aura include:\n"); |
1787 | strcat (tmpbuf, "faithful priests. The effects of this aura include:\n"); |
| 1790 | strcat (tmpbuf, cp); |
1788 | strcat (tmpbuf, cp); |
| 1791 | strcat (buf, tmpbuf); |
1789 | strcat (buf, tmpbuf); |
| 1792 | strcat (buf, "\n ---\n"); |
1790 | strcat (buf, "\n ---\n"); |
| 1793 | } |
1791 | } |
| 1794 | else |
1792 | else |
| 1795 | sprintf (buf, " "); |
1793 | sprintf (buf, " "); |
| 1796 | } |
1794 | } |
|
|
1795 | |
| 1797 | if (level == 5 && RANDOM () % 2) |
1796 | if (level == 5 && RANDOM () % 2) |
| 1798 | { /* aligned race, summoning */ |
1797 | { /* aligned race, summoning */ |
| 1799 | const char *race = god->race; /* aligned race */ |
1798 | const char *race = god->race; /* aligned race */ |
| 1800 | |
1799 | |
| 1801 | if (race && !(god->path_denied & PATH_SUMMON)) |
1800 | if (race && !(god->path_denied & PATH_SUMMON)) |
| … | |
… | |
| 1809 | else |
1808 | else |
| 1810 | sprintf (tmpbuf, "race of%s", strtoktolin (race, ",")); |
1809 | sprintf (tmpbuf, "race of%s", strtoktolin (race, ",")); |
| 1811 | sprintf (buf, "%s%s\n ---\n", buf, tmpbuf); |
1810 | sprintf (buf, "%s%s\n ---\n", buf, tmpbuf); |
| 1812 | } |
1811 | } |
| 1813 | } |
1812 | } |
|
|
1813 | |
| 1814 | if (level == 6 && RANDOM () % 2) |
1814 | if (level == 6 && RANDOM () % 2) |
| 1815 | { /* blessing,curse properties of the god */ |
1815 | { /* blessing,curse properties of the god */ |
| 1816 | char tmpbuf[MAX_BUF], *cp; |
1816 | char tmpbuf[MAX_BUF]; |
| 1817 | |
1817 | |
| 1818 | cp = describe_resistance (god, 1); |
1818 | if (const char *cp = describe_resistance (god, 1)) |
| 1819 | |
|
|
| 1820 | if (*cp) |
|
|
| 1821 | { /* This god does have protections */ |
1819 | { /* This god does have protections */ |
| 1822 | sprintf (tmpbuf, "\nThe priests of %s are known to be able to \n", name); |
1820 | sprintf (tmpbuf, "\nThe priests of %s are known to be able to \n", name); |
| 1823 | strcat (tmpbuf, "bestow a blessing which makes the recipient\n"); |
1821 | strcat (tmpbuf, "bestow a blessing which makes the recipient\n"); |
| 1824 | strcat (tmpbuf, cp); |
1822 | strcat (tmpbuf, cp); |
| 1825 | strcat (buf, tmpbuf); |
1823 | strcat (buf, tmpbuf); |
| … | |
… | |
| 1827 | } |
1825 | } |
| 1828 | else |
1826 | else |
| 1829 | sprintf (buf, " "); |
1827 | sprintf (buf, " "); |
| 1830 | |
1828 | |
| 1831 | } |
1829 | } |
|
|
1830 | |
| 1832 | if (level == 8 && RANDOM () % 2) |
1831 | if (level == 8 && RANDOM () % 2) |
| 1833 | { /* immunity, holy possession */ |
1832 | { /* immunity, holy possession */ |
| 1834 | int has_effect = 0, tmpvar; |
1833 | int has_effect = 0, tmpvar; |
| 1835 | char tmpbuf[MAX_BUF]; |
1834 | char tmpbuf[MAX_BUF]; |
| 1836 | |
1835 | |
| … | |
… | |
| 1845 | { |
1844 | { |
| 1846 | has_effect = 1; |
1845 | has_effect = 1; |
| 1847 | sprintf (tmpbuf + strlen (tmpbuf), "Immunity to %s", attacktype_desc[tmpvar]); |
1846 | sprintf (tmpbuf + strlen (tmpbuf), "Immunity to %s", attacktype_desc[tmpvar]); |
| 1848 | } |
1847 | } |
| 1849 | } |
1848 | } |
|
|
1849 | |
| 1850 | if (has_effect) |
1850 | if (has_effect) |
| 1851 | { |
1851 | { |
| 1852 | strcat (buf, tmpbuf); |
1852 | strcat (buf, tmpbuf); |
| 1853 | strcat (buf, "\n ---\n"); |
1853 | strcat (buf, "\n ---\n"); |
| 1854 | } |
1854 | } |
| 1855 | else |
1855 | else |
| 1856 | sprintf (buf, " "); |
1856 | sprintf (buf, " "); |
| 1857 | } |
1857 | } |
|
|
1858 | |
| 1858 | if (level == 12 && RANDOM () % 2) |
1859 | if (level == 12 && RANDOM () % 2) |
| 1859 | { /* spell paths */ |
1860 | { /* spell paths */ |
| 1860 | int has_effect = 0, tmpvar; |
1861 | int has_effect = 0, tmpvar; |
| 1861 | char tmpbuf[MAX_BUF]; |
1862 | char tmpbuf[MAX_BUF]; |
| 1862 | |
1863 | |
| 1863 | sprintf (tmpbuf, "\n"); |
1864 | sprintf (tmpbuf, "\n"); |
| 1864 | sprintf (tmpbuf, "It is rarely known fact that the priests of %s\n", name); |
1865 | sprintf (tmpbuf, "It is rarely known fact that the priests of %s\n", name); |
| 1865 | strcat (tmpbuf, "are mystically transformed. Effects of this include:\n"); |
1866 | strcat (tmpbuf, "are mystically transformed. Effects of this include:\n"); |
|
|
1867 | |
| 1866 | if ((tmpvar = god->path_attuned)) |
1868 | if ((tmpvar = god->path_attuned)) |
| 1867 | { |
1869 | { |
| 1868 | has_effect = 1; |
1870 | has_effect = 1; |
| 1869 | DESCRIBE_PATH (tmpbuf, tmpvar, "Attuned"); |
1871 | DESCRIBE_PATH (tmpbuf, tmpvar, "Attuned"); |
| 1870 | } |
1872 | } |
|
|
1873 | |
| 1871 | if ((tmpvar = god->path_repelled)) |
1874 | if ((tmpvar = god->path_repelled)) |
| 1872 | { |
1875 | { |
| 1873 | has_effect = 1; |
1876 | has_effect = 1; |
| 1874 | DESCRIBE_PATH (tmpbuf, tmpvar, "Repelled"); |
1877 | DESCRIBE_PATH (tmpbuf, tmpvar, "Repelled"); |
| 1875 | } |
1878 | } |
|
|
1879 | |
| 1876 | if ((tmpvar = god->path_denied)) |
1880 | if ((tmpvar = god->path_denied)) |
| 1877 | { |
1881 | { |
| 1878 | has_effect = 1; |
1882 | has_effect = 1; |
| 1879 | DESCRIBE_PATH (tmpbuf, tmpvar, "Denied"); |
1883 | DESCRIBE_PATH (tmpbuf, tmpvar, "Denied"); |
| 1880 | } |
1884 | } |
|
|
1885 | |
| 1881 | if (has_effect) |
1886 | if (has_effect) |
| 1882 | { |
1887 | { |
| 1883 | strcat (buf, tmpbuf); |
1888 | strcat (buf, tmpbuf); |
| 1884 | strcat (buf, "\n ---\n"); |
1889 | strcat (buf, "\n ---\n"); |
| 1885 | } |
1890 | } |
| … | |
… | |
| 1893 | */ |
1898 | */ |
| 1894 | if (book_overflow (retbuf, buf, booksize)) |
1899 | if (book_overflow (retbuf, buf, booksize)) |
| 1895 | break; |
1900 | break; |
| 1896 | else if (strlen (buf) > 1) |
1901 | else if (strlen (buf) > 1) |
| 1897 | strcat (retbuf, buf); |
1902 | strcat (retbuf, buf); |
|
|
1903 | |
| 1898 | level--; |
1904 | level--; |
| 1899 | } |
1905 | } |
|
|
1906 | |
| 1900 | if (strlen (retbuf) == introlen) |
1907 | if (strlen (retbuf) == introlen) |
| 1901 | { /* we got no information beyond the preamble! */ |
1908 | { /* we got no information beyond the preamble! */ |
| 1902 | strcat (retbuf, " [Unfortunately the rest of the information is\n"); |
1909 | strcat (retbuf, " [Unfortunately the rest of the information is\n"); |
| 1903 | strcat (retbuf, " hopelessly garbled!]\n ---\n"); |
1910 | strcat (retbuf, " hopelessly garbled!]\n ---\n"); |
| 1904 | } |
1911 | } |
