home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / games / volume14 / umoria4 / part20 < prev    next >
Internet Message Format  |  1992-08-31  |  58KB
  1. Path: uunet!zephyr.ens.tek.com!master!saab!billr
  2. From: billr@saab.CNA.TEK.COM (Bill Randle)
  3. Newsgroups: comp.sources.games
  4. Subject: v14i052:  umoria4 - single player dungeon simulation (ver. 5.5), Part20/39
  5. Message-ID: <3416@master.CNA.TEK.COM>
  6. Date: 22 Aug 92 22:12:17 GMT
  7. Sender: news@master.CNA.TEK.COM
  8. Lines: 2135
  9. Approved: billr@saab.CNA.TEK.COM
  10.  
  11. Submitted-by: grabiner@math.harvard.edu (David Grabiner)
  12. Posting-number: Volume 14, Issue 52
  13. Archive-name: umoria4/Part20
  14. Supersedes: umoria3: Volume 9, Issue 55-97; Volume 10, Issue 15-17
  15. Environment: Curses, Unix, Mac, MS-DOS, Atari-ST, Amiga, VMS
  16.  
  17.  
  18.  
  19. #! /bin/sh
  20. # This is a shell archive.  Remove anything before this line, then unpack
  21. # it by saving it into a file and typing "sh file".  To overwrite existing
  22. # files, type "sh file -c".  You can also feed this as standard input via
  23. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  24. # will see the following message at the end:
  25. #        "End of archive 20 (of 39)."
  26. # Contents:  atari_st/Makefile.tc mac/moria.r source/store2.c
  27. # Wrapped by billr@saab on Thu Aug 20 09:11:31 1992
  28. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  29. if test -f 'atari_st/Makefile.tc' -a "${1}" != "-c" ; then 
  30.   echo shar: Will not clobber existing file \"'atari_st/Makefile.tc'\"
  31. else
  32. echo shar: Extracting \"'atari_st/Makefile.tc'\" \(3833 characters\)
  33. sed "s/^X//" >'atari_st/Makefile.tc' <<'END_OF_FILE'
  34. X# BINDIR is the directory where the moria binary will be put
  35. X# LIBDIR is where the other files (scoreboard, news, hours) will be put
  36. X# LIBDIR must be the same directory defined in config.h
  37. X# this was clipped from the link command: -lcurses -ltermcap
  38. XBINDIR = \umoria
  39. XLIBDIR = \umorie\files
  40. X
  41. XCFLAGS = -DGEMDOS -O
  42. XCC = cc
  43. X
  44. XSRCS = main.c misc1.c misc2.c misc3.c misc4.c store1.c files.c io.c \
  45. X    create.c desc.c generate.c sets.c dungeon.c creature.c death.c \
  46. X    eat.c help.c magic.c potions.c prayer.c save.c staffs.c wands.c \
  47. X    scrolls.c spells.c wizard.c store2.c signals.c moria1.c moria2.c \
  48. X    moria3.c moria4.c monsters.c treasure.c variable.c rnd.c recall.c \
  49. X    atarist.c player.c tables.c
  50. X
  51. XOBJS = main.o misc1.o misc2.o misc3.o misc4.o store1.o files.o io.o \
  52. X    create.o desc.o generate.o sets.o dungeon.o creature.o death.o \
  53. X    eat.o help.o magic.o potions.o prayer.o save.o staffs.o wands.o \
  54. X    scrolls.o spells.o wizard.o store2.o signals.o moria1.o moria2.o \
  55. X    moria3.o moria4.o monsters.o treasure.o variable.o rnd.o recall.o \
  56. X    atarist.o curses.o player.o tables.o
  57. X
  58. XLIBFILES = moria_hours moria_help moria_orig_help moria_wiz_help \
  59. X    moria_orig_wiz_help moria_man
  60. X
  61. Xmoria : $(OBJS)
  62. X#    $(CC) -o moria $(CFLAGS) $(OBJS)
  63. X#    \tc\tlink -C=moria.lnk
  64. X
  65. Xlibfiles: $(LIBFILES)
  66. X    chmod 444 $(LIBFILES)
  67. X    cp $(LIBFILES) $(LIBDIR)
  68. X
  69. X$(BINDIR):
  70. X    mkdir $(BINDIR)
  71. X    chmod 755 $(BINDIR)
  72. X
  73. X$(LIBDIR):
  74. X    mkdir $(LIBDIR)
  75. X    chmod 711 $(LIBDIR)
  76. X
  77. X$(LIBDIR)/moria_hours: moria_hours
  78. X    chmod 644 moria_hours
  79. X    cp moria_hours $(LIBDIR)
  80. X
  81. Xlintout : $(SRCS)
  82. X    lint $(SRCS) -lcurses -ltermcap > lintout
  83. X
  84. Xlintout2 : $(SRCS)
  85. X    lint -bach $(SRCS) -lcurses -ltermcap > lintout
  86. X
  87. XTAGS : $(SRCS)
  88. X    ctags -x $(SRCS) > TAGS
  89. X
  90. X# you must define BINDIR and LIBDIR before installing
  91. Xinstall:
  92. X    cp moria $(BINDIR)
  93. X    cp Moria_hours $(LIBDIR)
  94. X    cp Moria_news $(LIBDIR)
  95. X    cp Highscores $(LIBDIR)
  96. X    chmod 4511 $(BINDIR)/moria
  97. X    chmod 644 $(LIBDIR)/Highscores
  98. X    chmod 444 $(LIBDIR)/Moria_news
  99. X    chmod 444 $(LIBDIR)/Moria_hours
  100. X    chmod 555 $(LIBDIR)
  101. X
  102. Xclean:
  103. X    rm -r *.o
  104. X    rm -i moria
  105. X
  106. Xcreate.o: constant.h types.h externs.h config.h
  107. Xcreature.o: constant.h types.h externs.h config.h
  108. Xdeath.o: constant.h types.h externs.h config.h
  109. Xdesc.o: constant.h types.h externs.h config.h
  110. Xdungeon.o: constant.h types.h externs.h config.h
  111. Xeat.o: constant.h types.h externs.h config.h
  112. Xfiles.o: constant.h types.h externs.h config.h
  113. Xgenerate.o: constant.h types.h externs.h config.h
  114. Xhelp.o: constant.h types.h externs.h config.h
  115. Xio.o: constant.h types.h externs.h config.h
  116. Xmagic.o: constant.h types.h externs.h config.h
  117. Xmain.o: constant.h types.h externs.h config.h
  118. Xmisc1.o: constant.h types.h externs.h config.h
  119. Xmisc2.o: constant.h types.h externs.h config.h
  120. Xmisc3.o: constant.h types.h externs.h config.h
  121. Xmisc4.o: constant.h types.h externs.h config.h
  122. Xmonsters.o: constant.h types.h config.h
  123. Xmoria1.o: constant.h types.h externs.h config.h
  124. Xmoria2.o: constant.h types.h externs.h config.h
  125. Xmoria3.o: constant.h types.h externs.h config.h
  126. Xmoria4.o: constant.h types.h externs.h config.h
  127. Xplayer.o: constant.h types.h config.h
  128. Xpotions.o: constant.h types.h externs.h config.h
  129. Xprayer.o: constant.h types.h externs.h config.h
  130. Xrecall.o: constant.h config.h types.h externs.h
  131. Xrnd.o: constant.h types.h
  132. Xsave.o: constant.h types.h externs.h config.h
  133. Xscrolls.o: constant.h types.h externs.h config.h
  134. Xsets.o: constant.h config.h
  135. Xsignals.o: constant.h types.h externs.h config.h
  136. Xspells.o: constant.h types.h externs.h config.h
  137. Xstaffs.o: constant.h types.h externs.h config.h
  138. Xstore1.o: constant.h types.h externs.h config.h
  139. Xstore2.o: constant.h types.h externs.h config.h
  140. Xtables.o: constant.h types.h config.h
  141. Xtreasure.o: constant.h types.h config.h
  142. Xatarist.o: constant.h config.h types.h externs.h
  143. Xvariable.o: constant.h types.h config.h
  144. Xwands.o: constant.h types.h externs.h config.h
  145. Xwizard.o: constant.h types.h externs.h config.h
  146. END_OF_FILE
  147. if test 3833 -ne `wc -c <'atari_st/Makefile.tc'`; then
  148.     echo shar: \"'atari_st/Makefile.tc'\" unpacked with wrong size!
  149. fi
  150. # end of 'atari_st/Makefile.tc'
  151. fi
  152. if test -f 'mac/moria.r' -a "${1}" != "-c" ; then 
  153.   echo shar: Will not clobber existing file \"'mac/moria.r'\"
  154. else
  155. echo shar: Extracting \"'mac/moria.r'\" \(19941 characters\)
  156. sed "s/^X//" >'mac/moria.r' <<'END_OF_FILE'
  157. X/* mac/moria.r: MacMoria resources, for Mac functionality
  158. X
  159. X   Copyright (c) 1989-92 Curtis McCauley, James E. Wilson
  160. X
  161. X   This software may be copied and distributed for educational, research, and
  162. X   not for profit purposes provided that this copyright and statement are
  163. X   included in all such copies. */
  164. X
  165. X#include "Types.r"
  166. X
  167. Xinclude "ScrnMgr.rsrc";
  168. X
  169. Xtype 'MRIA' as 'STR ';
  170. X
  171. Xtype 'CNFG' (256 : 257) {
  172. X    longint;
  173. X};
  174. X
  175. Xtype 'TEXT' {
  176. X    string;
  177. X};
  178. X
  179. Xresource 'MRIA' (0) {
  180. X    "Moria 5.4 for the Macintosh"
  181. X};
  182. X
  183. Xresource 'BNDL' (128, purgeable) {
  184. X    'MRIA',
  185. X    0,
  186. X    { /* array TypeArray: 2 elements */
  187. X        /* [1] */
  188. X        'ICN#',
  189. X        { /* array IDArray: 3 elements */
  190. X            /* [1] Application */
  191. X            0, 128,
  192. X            /* [2] Save file */
  193. X            1, 129,
  194. X            /* [3] Aux files */
  195. X            2, 130
  196. X        },
  197. X        /* [2] */
  198. X        'FREF',
  199. X        { /* array IDArray: 5 elements */
  200. X            /* [1] Appilication */
  201. X            0, 128,
  202. X            /* [2] Save file */
  203. X            1, 129,
  204. X            /* [3] Info files */
  205. X            2, 130,
  206. X            /* [4] Score file */
  207. X            3, 131,
  208. X            /* [5] Config file */
  209. X            4, 132
  210. X        }
  211. X    }
  212. X};
  213. X
  214. Xresource 'FREF' (128, "Application", purgeable) {
  215. X    'APPL',
  216. X    0,
  217. X    ""
  218. X};
  219. X
  220. Xresource 'FREF' (129, "Save Files", purgeable) {
  221. X    'SAVE',
  222. X    1,
  223. X    ""
  224. X};
  225. X
  226. Xresource 'FREF' (130, "Info Files", purgeable) {
  227. X    'TEXT',
  228. X    2,
  229. X    ""
  230. X};
  231. X
  232. Xresource 'FREF' (131, "Score File", purgeable) {
  233. X    'SCOR',
  234. X    2,
  235. X    ""
  236. X};
  237. X
  238. Xresource 'FREF' (132, "Config File", purgeable) {
  239. X    'CNFG',
  240. X    2,
  241. X    ""
  242. X};
  243. X
  244. Xresource 'ICON' (128, "Application", purgeable) {
  245. X    $"00 01 00 00 00 02 80 00 00 04 40 00 00 08 20 00"
  246. X    $"00 10 10 00 00 22 08 00 00 45 04 00 00 88 82 00"
  247. X    $"01 05 15 00 02 02 A8 80 04 40 40 40 08 A8 80 20"
  248. X    $"11 15 00 10 24 8A 00 28 40 51 3F 44 91 20 C0 8A"
  249. X    $"40 00 80 51 24 41 30 22 10 01 C8 14 09 1E 7F 8F"
  250. X    $"04 02 30 07 02 41 00 07 01 00 80 07 00 80 60 07"
  251. X    $"00 40 1F E7 00 20 02 1F 00 10 04 07 00 08 08 00"
  252. X    $"00 04 10 00 00 02 20 00 00 01 40 00 00 00 80"
  253. X};
  254. X
  255. Xresource 'ICON' (256, "Command Set", purgeable) {
  256. X    $"00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  257. X    $"00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  258. X    $"00 00 00 00 7F FF FF FE 80 00 00 01 9A AA AA A9"
  259. X    $"80 00 00 01 95 55 55 59 80 00 00 01 9A AA AA A9"
  260. X    $"80 00 00 01 85 7F FF 51 80 00 00 01 80 00 00 01"
  261. X    $"7F FF FF FE"
  262. X};
  263. X
  264. Xresource 'ICON' (257, "TEXT Editor", purgeable) {
  265. X    $"0F FF FE 00 08 00 03 00 08 00 02 80 08 00 02 40"
  266. X    $"08 00 02 20 08 00 02 10 08 00 03 F8 08 00 00 08"
  267. X    $"08 00 00 08 08 07 C0 08 08 0F E0 08 08 18 30 08"
  268. X    $"08 30 18 08 08 20 18 08 08 00 18 08 08 00 30 08"
  269. X    $"08 00 60 08 08 00 C0 08 08 01 80 08 08 01 80 08"
  270. X    $"08 01 80 08 08 01 80 08 08 00 00 08 08 01 80 08"
  271. X    $"08 03 C0 08 08 01 80 08 08 00 00 08 08 00 00 08"
  272. X    $"08 00 00 08 08 00 00 08 08 00 00 08 0F FF FF F8"
  273. X};
  274. X
  275. Xresource 'ICN#' (128, "Application", purgeable) {
  276. X    { /* array: 2 elements */
  277. X        /* [1] */
  278. X        $"00 01 00 00 00 02 80 00 00 04 40 00 00 08 20 00"
  279. X        $"00 10 10 00 00 22 08 00 00 45 04 00 00 88 82 00"
  280. X        $"01 05 15 00 02 02 A8 80 04 40 40 40 08 A8 80 20"
  281. X        $"11 15 00 10 24 8A 00 28 40 51 3F 44 91 20 C0 8A"
  282. X        $"40 00 80 51 24 41 30 22 10 01 C8 14 09 1E 7F 8F"
  283. X        $"04 02 30 07 02 41 00 07 01 00 80 07 00 80 60 07"
  284. X        $"00 40 1F E7 00 20 02 1F 00 10 04 07 00 08 08 00"
  285. X        $"00 04 10 00 00 02 20 00 00 01 40 00 00 00 80",
  286. X        /* [2] */
  287. X        $"00 01 00 00 00 03 80 00 00 07 C0 00 00 0F E0 00"
  288. X        $"00 1F F0 00 00 3F F8 00 00 7F FC 00 00 FF FE 00"
  289. X        $"01 FF FF 00 03 FF FF 80 07 FF FF C0 0F FF FF E0"
  290. X        $"1F FF FF F0 3F FF FF F8 7F FF FF FC FF FF FF FE"
  291. X        $"7F FF FF FF 3F FF FF FE 1F FF FF FC 0F FF FF FF"
  292. X        $"07 FF FF FF 03 FF FF FF 01 FF FF FF 00 FF FF FF"
  293. X        $"00 7F FF FF 00 3F FE 1F 00 1F FC 07 00 0F F8 00"
  294. X        $"00 07 F0 00 00 03 E0 00 00 01 C0 00 00 00 80"
  295. X    }
  296. X};
  297. X
  298. Xresource 'ICN#' (129, "Save Files", purgeable) {
  299. X    { /* array: 2 elements */
  300. X        /* [1] */
  301. X        $"0F FF FE 00 08 00 03 00 08 00 02 80 08 00 02 40"
  302. X        $"08 00 02 20 08 00 02 10 08 00 03 F8 08 00 00 08"
  303. X        $"08 00 00 08 08 7F FE 08 08 FF FF 08 09 80 01 88"
  304. X        $"09 9F F9 88 09 B0 09 88 09 B1 29 88 09 92 A9 88"
  305. X        $"09 91 29 88 09 B0 49 88 09 B0 09 88 09 9F F9 88"
  306. X        $"09 80 01 88 09 FF FF 88 09 FF FF 88 09 80 01 88"
  307. X        $"08 00 00 08 09 12 64 88 09 B5 55 48 09 55 65 C8"
  308. X        $"09 15 55 48 09 12 55 48 08 00 00 08 0F FF FF F8",
  309. X        /* [2] */
  310. X        $"0F FF FE 00 0F FF FF 00 0F FF FF 80 0F FF FF C0"
  311. X        $"0F FF FF E0 0F FF FF F0 0F FF FF F8 0F FF FF F8"
  312. X        $"0F FF FF F8 0F FF FF F8 0F FF FF F8 0F FF FF F8"
  313. X        $"0F FF FF F8 0F FF FF F8 0F FF FF F8 0F FF FF F8"
  314. X        $"0F FF FF F8 0F FF FF F8 0F FF FF F8 0F FF FF F8"
  315. X        $"0F FF FF F8 0F FF FF F8 0F FF FF F8 0F FF FF F8"
  316. X        $"0F FF FF F8 0F FF FF F8 0F FF FF F8 0F FF FF F8"
  317. X        $"0F FF FF F8 0F FF FF F8 0F FF FF F8 0F FF FF F8"
  318. X    }
  319. X};
  320. X
  321. Xresource 'ICN#' (130, "Aux Files", purgeable) {
  322. X    { /* array: 2 elements */
  323. X        /* [1] */
  324. X        $"0F FF FE 00 08 00 03 00 08 00 02 80 09 FB AE 40"
  325. X        $"08 00 02 20 08 00 02 10 09 F7 7B F8 08 00 00 08"
  326. X        $"08 00 00 08 09 BB ED C8 08 00 00 08 08 00 00 08"
  327. X        $"09 F7 B7 C8 08 00 00 08 08 00 00 08 09 B5 FD C8"
  328. X        $"08 00 00 08 08 00 00 08 09 77 B6 C8 08 00 00 08"
  329. X        $"08 00 00 08 09 EB B7 48 08 00 00 08 08 00 00 08"
  330. X        $"08 00 00 08 09 12 64 88 09 B5 55 48 09 55 65 C8"
  331. X        $"09 15 55 48 09 12 55 48 08 00 00 08 0F FF FF F8",
  332. X        /* [2] */
  333. X        $"0F FF FE 00 0F FF FF 00 0F FF FF 80 0F FF FF C0"
  334. X        $"0F FF FF E0 0F FF FF F0 0F FF FF F8 0F FF FF F8"
  335. X        $"0F FF FF F8 0F FF FF F8 0F FF FF F8 0F FF FF F8"
  336. X        $"0F FF FF F8 0F FF FF F8 0F FF FF F8 0F FF FF F8"
  337. X        $"0F FF FF F8 0F FF FF F8 0F FF FF F8 0F FF FF F8"
  338. X        $"0F FF FF F8 0F FF FF F8 0F FF FF F8 0F FF FF F8"
  339. X        $"0F FF FF F8 0F FF FF F8 0F FF FF F8 0F FF FF F8"
  340. X        $"0F FF FF F8 0F FF FF F8 0F FF FF F8 0F FF FF F8"
  341. X    }
  342. X};
  343. X
  344. Xresource 'DLOG' (128, "About", purgeable) {
  345. X    {46, 26, 304, 274},
  346. X    dBoxProc,
  347. X    invisible,
  348. X    noGoAway,
  349. X    0x0,
  350. X    128,
  351. X    ""
  352. X};
  353. X
  354. Xresource 'DITL' (128, "About", purgeable) {
  355. X    {    /* array DITLarray: 4 elements */
  356. X        /* [1] */
  357. X        {224, 192, 247, 235},
  358. X        Button {
  359. X            enabled,
  360. X            "OK"
  361. X        },
  362. X        /* [2] */
  363. X        {232, 224, 241, 233},
  364. X        UserItem {
  365. X            disabled
  366. X        },
  367. X        /* [3] */
  368. X        {16, 8, 248, 184},
  369. X        StaticText {
  370. X            disabled,
  371. X            "Moria for the Macintosh\n"
  372. X            "Version 5.4\n"
  373. X            "Programmers:\n"
  374. X            "Robert Alan Koeneke\n"
  375. X            "Jimmey Wayne Todd\n\n"
  376. X            "UNIX Port:\n"
  377. X            "James E. Wilson\n\n"
  378. X            "Macintosh Port:\n"
  379. X            "Curtis W. McCauley"
  380. X        },
  381. X        /* [4] */
  382. X        {16, 195, 48, 227},
  383. X        Icon {
  384. X            disabled,
  385. X            128
  386. X        }
  387. X    }
  388. X};
  389. X
  390. Xresource 'STR ' (128, "About Title", purgeable) {
  391. X    "About Moria\311"
  392. X};
  393. X
  394. Xresource 'CNFG' (256, "Command Set", purgeable) {
  395. X    '-o\0x00\0x00'
  396. X};
  397. X
  398. Xresource 'DLOG' (256, "Command Set", purgeable) {
  399. X    {42, 34, 218, 404},
  400. X    dBoxProc,
  401. X    invisible,
  402. X    noGoAway,
  403. X    0x0,
  404. X    256,
  405. X    ""
  406. X};
  407. X
  408. Xresource 'DITL' (256, "Command Set", purgeable) {
  409. X    {    /* array DITLarray: 9 elements */
  410. X        /* [1] */
  411. X        {24, 296, 48, 352},
  412. X        Button {
  413. X            enabled,
  414. X            "OK"
  415. X        },
  416. X        /* [2] */
  417. X        {64, 296, 88, 352},
  418. X        Button {
  419. X            enabled,
  420. X            "Cancel"
  421. X        },
  422. X        /* [3] */
  423. X        {40, 24, 56, 200},
  424. X        RadioButton {
  425. X            enabled,
  426. X            "Rogue-Like Commands"
  427. X        },
  428. X        /* [4] */
  429. X        {64, 24, 80, 200},
  430. X        RadioButton {
  431. X            enabled,
  432. X            "Original Commands"
  433. X        },
  434. X        /* [5] */
  435. X        {112, 72, 168, 352},
  436. X        StaticText {
  437. X            disabled,
  438. X            "Choose the desired command set.  The change "
  439. X            "will take effect when you start the next game."
  440. X        },
  441. X        /* [6] */
  442. X        {16, 16, 96, 232},
  443. X        UserItem {
  444. X            disabled
  445. X        },
  446. X        /* [7] */
  447. X        {8, 24, 24, 104},
  448. X        StaticText {
  449. X            enabled,
  450. X            "Choose One"
  451. X        },
  452. X        /* [8] */
  453. X        {32, 336, 40, 344},
  454. X        UserItem {
  455. X            disabled
  456. X        },
  457. X        /* [9] */
  458. X        {112, 16, 144, 48},
  459. X        Icon {
  460. X            disabled,
  461. X            256
  462. X        }
  463. X    }
  464. X};
  465. X
  466. Xresource 'CNFG' (257, "TEXT Editor", purgeable) {
  467. X    'MACA'
  468. X};
  469. X
  470. Xresource 'DLOG' (257, "TEXT Editor", purgeable) {
  471. X    {42, 34, 226, 426},
  472. X    dBoxProc,
  473. X    invisible,
  474. X    noGoAway,
  475. X    0x0,
  476. X    257,
  477. X    ""
  478. X};
  479. X
  480. Xresource 'DITL' (257, "TEXT Editor", purgeable) {
  481. X    {    /* array DITLarray: 11 elements */
  482. X        /* [1] */
  483. X        {24, 320, 48, 376},
  484. X        Button {
  485. X            enabled,
  486. X            "OK"
  487. X        },
  488. X        /* [2] */
  489. X        {64, 320, 88, 376},
  490. X        Button {
  491. X            enabled,
  492. X            "Cancel"
  493. X        },
  494. X        /* [3] */
  495. X        {40, 24, 56, 200},
  496. X        RadioButton {
  497. X            enabled,
  498. X            "MacWrite"
  499. X        },
  500. X        /* [4] */
  501. X        {64, 24, 80, 176},
  502. X        RadioButton {
  503. X            enabled,
  504. X            "Microsoft Word"
  505. X        },
  506. X        /* [5] */
  507. X        {88, 24, 104, 176},
  508. X        RadioButton {
  509. X            enabled,
  510. X            "Other:  File Creator"
  511. X        },
  512. X        /* [6] */
  513. X        {88, 176, 104, 240},
  514. X        EditText {
  515. X            disabled,
  516. X            ""
  517. X        },
  518. X        /* [7] */
  519. X        {136, 72, 176, 376},
  520. X        StaticText {
  521. X            disabled,
  522. X            "Choose what kind of documents you want Moria "
  523. X            "to create when it prints to a file."
  524. X        },
  525. X        /* [8] */
  526. X        {16, 8, 120, 264},
  527. X        UserItem {
  528. X            disabled
  529. X        },
  530. X        /* [9] */
  531. X        {8, 24, 24, 104},
  532. X        StaticText {
  533. X            enabled,
  534. X            "Choose One"
  535. X        },
  536. X        /* [10] */
  537. X        {32, 360, 40, 368},
  538. X        UserItem {
  539. X            disabled
  540. X        },
  541. X        /* [11] */
  542. X        {136, 16, 168, 48},
  543. X        Icon {
  544. X            disabled,
  545. X            257
  546. X        }
  547. X    }
  548. X};
  549. X
  550. Xresource 'DLOG' (258, "Save, Quit, or Cancel", purgeable) {
  551. X    {40, 40, 168, 318},
  552. X    dBoxProc,
  553. X    invisible,
  554. X    noGoAway,
  555. X    0x0,
  556. X    258,
  557. X    ""
  558. X};
  559. X
  560. Xresource 'DITL' (258, "Save, Quit, or Cancel", purgeable) {
  561. X    {    /* array DITLarray: 6 elements */
  562. X        /* [1] */
  563. X        {64, 16, 84, 76},
  564. X        Button {
  565. X            enabled,
  566. X            "Save"
  567. X        },
  568. X        /* [2] */
  569. X        {96, 16, 116, 76},
  570. X        Button {
  571. X            enabled,
  572. X            "Quit"
  573. X        },
  574. X        /* [3] */
  575. X        {96, 200, 116, 260},
  576. X        Button {
  577. X            enabled,
  578. X            "Cancel"
  579. X        },
  580. X        /* [4] */
  581. X        {64, 200, 80, 216},
  582. X        UserItem {
  583. X            disabled
  584. X        },
  585. X        /* [5] */
  586. X        {8, 56, 48, 264},
  587. X        StaticText {
  588. X            disabled,
  589. X            "What do you want to do with the game in progress?"
  590. X        },
  591. X        /* [6] */
  592. X        {8, 16, 40, 48},
  593. X        Icon {
  594. X            disabled,
  595. X            0
  596. X        }
  597. X    }
  598. X};
  599. X
  600. Xresource 'MENU' (129, "File") {
  601. X    129,
  602. X    textMenuProc,
  603. X    0x7FFFFFC3,
  604. X    enabled,
  605. X    "File",
  606. X    {    /* array: 7 elements */
  607. X        /* [1] */
  608. X        "New", noIcon, "N", "", plain,
  609. X        /* [2] */
  610. X        "Open\311", noIcon, "O", "", plain,
  611. X        /* [3] */
  612. X        "-", noIcon, "", "", plain,
  613. X        /* [4] */
  614. X        "Save", noIcon, "S", "", plain,
  615. X        /* [5] */
  616. X        "Save As\311", noIcon, "", "", plain,
  617. X        /* [6] */
  618. X        "-", noIcon, "", "", plain,
  619. X        /* [7] */
  620. X        "Quit", noIcon, "Q", "", plain
  621. X    }
  622. X};
  623. X
  624. Xresource 'MENU' (229, "File (No Keys)") {
  625. X    229,
  626. X    textMenuProc,
  627. X    0x7FFFFFC3,
  628. X    enabled,
  629. X    "File",
  630. X    {    /* array: 7 elements */
  631. X        /* [1] */
  632. X        "New", noIcon, "", "", plain,
  633. X        /* [2] */
  634. X        "Open\311", noIcon, "", "", plain,
  635. X        /* [3] */
  636. X        "-", noIcon, "", "", plain,
  637. X        /* [4] */
  638. X        "Save", noIcon, "", "", plain,
  639. X        /* [5] */
  640. X        "Save As\311", noIcon, "", "", plain,
  641. X        /* [6] */
  642. X        "-", noIcon, "", "", plain,
  643. X        /* [7] */
  644. X        "Quit", noIcon, "", "", plain
  645. X    }
  646. X};
  647. X
  648. Xresource 'MENU' (133, "Moria") {
  649. X    133,
  650. X    textMenuProc,
  651. X    0x7FFFFF17,
  652. X    enabled,
  653. X    "Moria",
  654. X    {    /* array: 5 elements */
  655. X        /* [1] */
  656. X        "Help\311", noIcon, "H", "", plain,
  657. X        /* [2] */
  658. X        "Command Set\311", noIcon, "", "", plain,
  659. X        /* [3] */
  660. X        "TEXT Editor\311", noIcon, "", "", plain,
  661. X        /* [4] */
  662. X        "-", noIcon, "", "", plain,
  663. X        /* [5] */
  664. X        "High Scores\311", noIcon, "", "", plain
  665. X    }
  666. X};
  667. X
  668. Xresource 'MENU' (233, "Moria (No Keys)") {
  669. X    233,
  670. X    textMenuProc,
  671. X    0x7FFFFF17,
  672. X    enabled,
  673. X    "Moria",
  674. X    {    /* array: 5 elements */
  675. X        /* [1] */
  676. X        "Help\311", noIcon, "", "", plain,
  677. X        /* [2] */
  678. X        "Command Set\311", noIcon, "", "", plain,
  679. X        /* [3] */
  680. X        "TEXT Editor\311", noIcon, "", "", plain,
  681. X        /* [4] */
  682. X        "-", noIcon, "", "", plain,
  683. X        /* [5] */
  684. X        "High Scores\311", noIcon, "", "", plain
  685. X    }
  686. X};
  687. X
  688. Xresource 'DLOG' (512, "Mac Help", purgeable) {
  689. X    {40, 34, 310, 496},
  690. X    dBoxProc,
  691. X    invisible,
  692. X    noGoAway,
  693. X    0x0,
  694. X    512,
  695. X    ""
  696. X};
  697. X
  698. Xresource 'DITL' (512, "Mac Help", purgeable) {
  699. X    {    /* array DITLarray: 6 elements */
  700. X        /* [1] */
  701. X        {16, 392, 36, 452},
  702. X        Button {
  703. X            enabled,
  704. X            "Ok"
  705. X        },
  706. X        /* [2] */
  707. X        {24, 432, 32, 440},
  708. X        UserItem {
  709. X            disabled
  710. X        },
  711. X        /* [3] */
  712. X        {48, 8, 264, 440},
  713. X        UserItem {
  714. X            disabled
  715. X        },
  716. X        /* [4] */
  717. X        {48, 439, 264, 455},
  718. X        Control {
  719. X            enabled,
  720. X            512
  721. X        },
  722. X        /* [5] */
  723. X        {8, 52, 40, 380},
  724. X        StaticText {
  725. X            disabled,
  726. X            "Moria for the Macintosh Version 5.4"
  727. X        },
  728. X        /* [6] */
  729. X        {8, 8, 40, 40},
  730. X        Icon {
  731. X            disabled,
  732. X            128
  733. X        }
  734. X    }
  735. X};
  736. X
  737. Xresource 'CNTL' (512, "Mac Help Scroll Bar", purgeable) {
  738. X    {0, 0, 216, 16},
  739. X    0,
  740. X    visible,
  741. X    0,
  742. X    0,
  743. X    scrollBarProc,
  744. X    0,
  745. X    ""
  746. X};
  747. X
  748. Xresource 'TEXT' (512, "Mac Help", purgeable) {
  749. X    "This is an beta version of Mac Moria, implementation 2.0b1, which is "
  750. X    "based on the Umoria 5.4 sources.  Please send comments and bug repor"
  751. X    "ts to wilson@toad.com (Jim Wilson).\n\n"
  752. X    "Users of previous versions o"
  753. X    "f Mac Moria should discard the old program.  Otherwise, the Finder mig"
  754. X    "ht get confused when you double-click on a saved game to start Moria.\n"
  755. X    "\n*****************************\n\nMoria is a dungeon exploration game.  "
  756. X    "The name comes from \322The Lord of the Rings\323 trilogy written by J. R"
  757. X    ". R. Tolkien.  Moria is pronounced with the accent on the first syllable,"
  758. X    " e.g. MORE-ee-ah.  For details on the game itself, please read the Mor"
  759. X    "ia Docs file that is distributed along with Moria.\n\nMoria was original"
  760. X    "ly written for VAX/VMS systems.  As such,  it is heavily dependent on "
  761. X    "the keyboard for game play.  The mouse is not used at all, except for "
  762. X    "standard things like menus and dialogs.  To get a list of the availabl"
  763. X    "e keyboard commands, hit the \324?\325 key while playing the game.\n\nSome"
  764. X    " of the commands are specified as being control characters, i.e.  saving t"
  765. X    "he game is ^X.  To type these characters hold down the control key and"
  766. X    " then press the appropriate character key.  If you do not have a contr"
  767. X    "ol key, use the command key (apple/cloverleaf key) instead of the cont"
  768. X    "rol key.  If you prefer, you may enter these commands using two keystr"
  769. X    "okes, by first typing the '^' key followed by the letter.\n\nThe game al"
  770. X    "so uses the escape key (ESC) quite a bit.  If you do not have an escap"
  771. X    "e key on your keyboard, you can use the ` key or the Clear key on the "
  772. X    "numeric keypad instead.  An escape can also by typed as ^[, i.e. contr"
  773. X    "ol (or command) left bracket.\n\nFile Menu\n\nThe game fully supports the "
  774. X    "standard Macintosh file menu.  Use New to start playing a new game,  o"
  775. X    "r Open to restart a previous game.   Save As will always ask you for t"
  776. X    "he name of the file to save your character in.  Save will usually save"
  777. X    " the game in a file with the same name as the name of the current char"
  778. X    "acter.  If you are playing a new game, or have changed the name of you"
  779. X    "r character, Save will instead ask you for the name of the save file. "
  780. X    " The Quit option, of course, is used to exit the game.\n\nA game can onl"
  781. X    "y be saved at the point where it is your turn to move.  At all other t"
  782. X    "imes the Save command will not be available.\n\nThe File Menu is disable"
  783. X    "d while saving and restoring games.  There is no cause for alarm if you "
  784. X    "see this occur.  After the operation is completed, there will be a prompt"
  785. X    " that says \322press any key to continue\323.  After you press a key, t"
  786. X    "he File Menu will be reenabled.\n\nIf your character dies, or you decide"
  787. X    " to stop running him, you will be prompted via a standard file dialog "
  788. X    "for the name of a file in which to save his memories.  Pressing cancel"
  789. X    " will avoid saving the memories.\n\nEdit Menu\n\nThe Edit Menu items are n"
  790. X    "ot used by the game.  The Edit menu is disabled unless there is a Desk"
  791. X    " Accessory open.\n\nScreen/FontSize Menu\n\nIf you have a color system, th"
  792. X    "e Color item allows you to choose the background and foreground colors"
  793. X    " of the game window.  The game must use a constant width font, so only"
  794. X    " the Monaco font is supported.  You can, however, specify which point "
  795. X    "size that you want to use.  The menu will list every point size availa"
  796. X    "ble on your Macintosh for the Monaco font.\n\nAdvanced users can choose "
  797. X    "a different font by using ResEdit or a similar program to edit the STR"
  798. X    " \"Font Name\" resource.\n\nMoria Menu\n\nHelp brings up this dialog.\n\n"
  799. X    "Command Set allows you to choose between the original Moria command set "
  800. X    "and an optional command set similar to the UNIX game Rogue.  The main dif"
  801. X    "ference between the two is that the original command set uses the nume"
  802. X    "ric keypad for movement, whereas the Rogue-like command set uses the \324"
  803. X    "hjkl\325 keys for, respectively, left down up and right.  The program wil"
  804. X    "l remember your setting and use it as a default the next time you star"
  805. X    "t a new character.  The command set can be chosen for the current char"
  806. X    "acter by using the set options ('=') command.\n\nNote that the numeric k"
  807. X    "eypad, if your system has one, is always available for indicating dire"
  808. X    "ctions, regardless of the command set chosen.  The arrow keys will wor"
  809. X    "k as well.\n\nText Editor allows you to choose the type of TEXT file cre"
  810. X    "ated by Moria, that is, it allows you to specify which application wil"
  811. X    "l be used by the Finder when you open a TEXT file created by Moria.  Y"
  812. X    "ou can choose MacWrite or Microsoft Word files.  You can also specify "
  813. X    "the signature of the desired application if you prefer something else."
  814. X    "\n\nHigh Scores displays all of the scores stored in the scorefile.  You"
  815. X    " can clear these scores by just deleting the High Scores file.  This f"
  816. X    "eature is not implemented.\n\nConfiguration Info\n\nMoria is fully Multifi"
  817. X    "nder compatible/aware.  It requires 450 K of memory under Multifinder."
  818. X    "  The game will run on any Macintosh with 1 Megabyte or more of memory"
  819. X    ".\n\nMoria comes with a documentation file, called Moria Docs.  The Mori"
  820. X    "a Docs file is an explanation of the game system.  Please remember to "
  821. X    "always distribute this file with the game, since it contains much impo"
  822. X    "rtant information.\n\nMoria will create two files when it is run.  The H"
  823. X    "igh Scores file keeps a list of the scores of all of the previous game"
  824. X    "s.  If this file is not present, a new one will be created in the fold"
  825. X    "er which contains the game.  This file can be kept either in the folde"
  826. X    "r that contains the application, or in the System Folder.\n\nMoria also "
  827. X    "creates a file called Moria Config in the System Folder.  This file co"
  828. X    "ntains all of the configuration info for Moria, such as the size and l"
  829. X    "ocation of windows, the font size, the command set, etc.  This file mu"
  830. X    "st remain in the Sytem Folder.\n\nThe text displayed when Moria starts u"
  831. X    "p is stored in the data fork of this program.  You can edit it with mo"
  832. X    "st text editors by first changing the file type of the program from 'A"
  833. X    "PPL' to 'TEXT' with ResEdit.  Remember to change the file type back ag"
  834. X    "ain when you are through.  Be careful not to disturb the lines which b"
  835. X    "egin with a '#'.\n\0x00"
  836. X};
  837. X
  838. Xtype 'DFPR' {
  839. X    unsigned hex integer = $600A;                    /* branch around header */
  840. X    unsigned hex integer;                            /* flags */
  841. X    unsigned literal longint;                        /* resource type */
  842. X    integer;                                        /* resource id */
  843. X    integer;                                        /* version */
  844. X    unsigned hex integer = $4EF9;                    /* jump instruction */
  845. X    unsigned hex longint = $0;                        /* target address for jump */
  846. X};
  847. X
  848. Xtype 'LDEF' as 'DFPR';
  849. X
  850. Xresource 'LDEF' (514, "High Scores", purgeable) {
  851. X    $0, 'LDEF', 514, 0
  852. X};
  853. X
  854. Xresource 'DITL' (514, "High Scores", purgeable) {
  855. X    {    /* array DITLarray: 5 elements */
  856. X        /* [1] */
  857. X        {15, 422, 35, 482},
  858. X        Button {
  859. X            enabled,
  860. X            "Ok"
  861. X        },
  862. X        /* [2] */
  863. X        {24, 464, 32, 472},
  864. X        UserItem {
  865. X            disabled
  866. X        },
  867. X        /* [3] */
  868. X        {48, 2, 281, 490},
  869. X        UserItem {
  870. X            disabled
  871. X        },
  872. X        /* [4] */
  873. X        {8, 56, 40, 336},
  874. X        StaticText {
  875. X            disabled,
  876. X            "Moria High Scores\n"
  877. X            "Positions ^0 to ^1"
  878. X        },
  879. X        /* [5] */
  880. X        {8, 8, 40, 40},
  881. X        Icon {
  882. X            disabled,
  883. X            128
  884. X        }
  885. X    }
  886. X};
  887. X
  888. Xresource 'DLOG' (514, "High Scores", purgeable) {
  889. X    {40, 34, 327, 526},
  890. X    dBoxProc,
  891. X    invisible,
  892. X    noGoAway,
  893. X    0x0,
  894. X    514,
  895. X    ""
  896. X};
  897. X
  898. Xresource 'DITL' (1024, "General Error", purgeable) {
  899. X    {    /* array DITLarray: 2 elements */
  900. X        /* [1] */
  901. X        {80, 304, 100, 364},
  902. X        Button {
  903. X            enabled,
  904. X            "Ok"
  905. X        },
  906. X        /* [2] */
  907. X        {7, 68, 71, 364},
  908. X        StaticText {
  909. X            disabled,
  910. X            "^0"
  911. X        }
  912. X    }
  913. X};
  914. X
  915. Xresource 'ALRT' (1024, "General Error", purgeable) {
  916. X    {42, 42, 148, 416},
  917. X    1024,
  918. X    {    /* array: 4 elements */
  919. X        /* [1] */
  920. X        OK, visible, sound1,
  921. X        /* [2] */
  922. X        OK, visible, sound1,
  923. X        /* [3] */
  924. X        OK, visible, sound1,
  925. X        /* [4] */
  926. X        OK, visible, sound1
  927. X    }
  928. X};
  929. X
  930. Xresource 'SIZE' (-1) {
  931. X    dontSaveScreen,
  932. X    acceptSuspendResumeEvents,
  933. X    enableOptionSwitch,
  934. X    canBackground,
  935. X    multiFinderAware,
  936. X    backgroundAndForeground,
  937. X    dontGetFrontClicks,
  938. X    ignoreChildDiedEvents,
  939. X    not32BitCompatible,
  940. X    reserved,
  941. X    reserved,
  942. X    reserved,
  943. X    reserved,
  944. X    reserved,
  945. X    reserved,
  946. X    reserved,
  947. X    375 * 1024,
  948. X    375 * 1024
  949. X};
  950. END_OF_FILE
  951. if test 19941 -ne `wc -c <'mac/moria.r'`; then
  952.     echo shar: \"'mac/moria.r'\" unpacked with wrong size!
  953. fi
  954. # end of 'mac/moria.r'
  955. fi
  956. if test -f 'source/store2.c' -a "${1}" != "-c" ; then 
  957.   echo shar: Will not clobber existing file \"'source/store2.c'\"
  958. else
  959. echo shar: Extracting \"'source/store2.c'\" \(29309 characters\)
  960. sed "s/^X//" >'source/store2.c' <<'END_OF_FILE'
  961. X/* source/store2.c: store code, entering, command interpreter, buying, selling
  962. X
  963. X   Copyright (c) 1989-92 James E. Wilson, Robert A. Koeneke
  964. X
  965. X   This software may be copied and distributed for educational, research, and
  966. X   not for profit purposes provided that this copyright and statement are
  967. X   included in all such copies. */
  968. X
  969. X#ifdef __TURBOC__
  970. X#include    <stdio.h>
  971. X#include    <stdlib.h>
  972. X#endif /* __TURBOC__ */
  973. X 
  974. X#include "config.h"
  975. X#include "constant.h"
  976. X#include "types.h"
  977. X#include "externs.h"
  978. X
  979. X#ifdef USG
  980. X#ifndef ATARIST_MWC
  981. X#include <string.h>
  982. X#endif
  983. X#else
  984. X#include <strings.h>
  985. X#endif
  986. X
  987. X#if defined(LINT_ARGS)
  988. Xstatic void prt_comment1(void);
  989. Xstatic void prt_comment2(int32, int32, int);
  990. Xstatic void prt_comment3(int32, int32, int);
  991. Xstatic void prt_comment4(void);
  992. Xstatic void prt_comment5(void);
  993. Xstatic void prt_comment6(void);
  994. Xstatic void display_commands(void);
  995. Xstatic void haggle_commands(int);
  996. Xstatic void display_inventory(int, int);
  997. Xstatic void display_cost(int, int);
  998. Xstatic void store_prt_gold(void);
  999. Xstatic void display_store(int, int);
  1000. Xstatic int get_store_item(int *, char *, int, int);
  1001. Xstatic int increase_insults(int);
  1002. Xstatic void decrease_insults(int);
  1003. Xstatic int haggle_insults(int);
  1004. Xstatic int get_haggle(char *, int32 *, int);
  1005. Xstatic int receive_offer(int, char *, int32 *, int32, int, int);
  1006. Xstatic int purchase_haggle(int, int32 *, struct inven_type *);
  1007. Xstatic int sell_haggle(int, int32 *, struct inven_type *);
  1008. Xstatic int store_purchase(int, int *);
  1009. Xstatic int store_sell(int, int *);
  1010. X#endif
  1011. X
  1012. X#ifdef ATARIST_TC
  1013. X/* Include this to get prototypes for standard library functions.  */
  1014. X#include <stdlib.h>
  1015. X#endif
  1016. X
  1017. Xlong atol();
  1018. X
  1019. Xstatic char *comment1[14] = {
  1020. X  "Done!",  "Accepted!",  "Fine.",  "Agreed!",  "Ok.",  "Taken!",
  1021. X  "You drive a hard bargain, but taken.",
  1022. X  "You'll force me bankrupt, but it's a deal.",  "Sigh.  I'll take it.",
  1023. X  "My poor sick children may starve, but done!",  "Finally!  I accept.",
  1024. X  "Robbed again.",  "A pleasure to do business with you!",
  1025. X  "My spouse will skin me, but accepted."
  1026. X  };
  1027. X
  1028. Xstatic char *comment2a[3] = {
  1029. X  "%A2 is my final offer; take it or leave it.",
  1030. X  "I'll give you no more than %A2.",
  1031. X  "My patience grows thin.  %A2 is final."
  1032. X  };
  1033. X
  1034. Xstatic char *comment2b[16] = {
  1035. X  "%A1 for such a fine item?  HA!  No less than %A2.",
  1036. X  "%A1 is an insult!  Try %A2 gold pieces.",
  1037. X  "%A1?!?  You would rob my poor starving children?",
  1038. X  "Why, I'll take no less than %A2 gold pieces.",
  1039. X  "Ha!  No less than %A2 gold pieces.",
  1040. X  "Thou knave!  No less than %A2 gold pieces.",
  1041. X  "%A1 is far too little, how about %A2?",
  1042. X  "I paid more than %A1 for it myself, try %A2.",
  1043. X  "%A1?  Are you mad?!?  How about %A2 gold pieces?",
  1044. X  "As scrap this would bring %A1.  Try %A2 in gold.",
  1045. X  "May the fleas of 1000 orcs molest you.  I want %A2.",
  1046. X  "My mother you can get for %A1, this costs %A2.",
  1047. X  "May your chickens grow lips.  I want %A2 in gold!",
  1048. X  "Sell this for such a pittance?  Give me %A2 gold.",
  1049. X  "May the Balrog find you tasty!  %A2 gold pieces?",
  1050. X  "Your mother was a Troll!  %A2 or I'll tell."
  1051. X  };
  1052. X
  1053. Xstatic char *comment3a[3] = {
  1054. X  "I'll pay no more than %A1; take it or leave it.",
  1055. X  "You'll get no more than %A1 from me.",
  1056. X  "%A1 and that's final."
  1057. X  };
  1058. X
  1059. Xstatic char *comment3b[15] = {
  1060. X  "%A2 for that piece of junk?  No more than %A1.",
  1061. X  "For %A2 I could own ten of those.  Try %A1.",
  1062. X  "%A2?  NEVER!  %A1 is more like it.",
  1063. X  "Let's be reasonable. How about %A1 gold pieces?",
  1064. X  "%A1 gold for that junk, no more.",
  1065. X  "%A1 gold pieces and be thankful for it!",
  1066. X  "%A1 gold pieces and not a copper more.",
  1067. X  "%A2 gold?  HA!  %A1 is more like it.",  "Try about %A1 gold.",
  1068. X  "I wouldn't pay %A2 for your children, try %A1.",
  1069. X  "*CHOKE* For that!?  Let's say %A1.",  "How about %A1?",
  1070. X  "That looks war surplus!  Say %A1 gold.",
  1071. X  "I'll buy it as scrap for %A1.",
  1072. X  "%A2 is too much, let us say %A1 gold."
  1073. X  };
  1074. X
  1075. Xstatic char *comment4a[5] = {
  1076. X  "ENOUGH!  You have abused me once too often!",
  1077. X  "THAT DOES IT!  You shall waste my time no more!",
  1078. X  "This is getting nowhere.  I'm going home!",
  1079. X  "BAH!  No more shall you insult me!",
  1080. X  "Begone!  I have had enough abuse for one day."
  1081. X  };
  1082. X
  1083. Xstatic char *comment4b[5] = {
  1084. X  "Out of my place!",  "out... Out... OUT!!!",  "Come back tomorrow.",
  1085. X  "Leave my place.  Begone!",  "Come back when thou art richer."
  1086. X  };
  1087. X
  1088. Xstatic char *comment5[10] = {
  1089. X  "You will have to do better than that!",  "That's an insult!",
  1090. X  "Do you wish to do business or not?",  "Hah!  Try again.",
  1091. X  "Ridiculous!",  "You've got to be kidding!",  "You'd better be kidding!",
  1092. X  "You try my patience.",  "I don't hear you.",
  1093. X  "Hmmm, nice weather we're having."
  1094. X  };
  1095. X
  1096. Xstatic char *comment6[5] = {
  1097. X  "I must have heard you wrong.",  "What was that?",
  1098. X  "I'm sorry, say that again.",  "What did you say?",
  1099. X  "Sorry, what was that again?"
  1100. X  };
  1101. X
  1102. X
  1103. Xextern int16 last_store_inc;
  1104. X
  1105. X/* Comments vary.                    -RAK-    */
  1106. X/* Comment one : Finished haggling                */
  1107. Xstatic void prt_comment1()
  1108. X{
  1109. X  msg_print(comment1[randint(14)-1]);
  1110. X}
  1111. X
  1112. X
  1113. X/* %A1 is offer, %A2 is asking.        */
  1114. Xstatic void prt_comment2(offer, asking, final)
  1115. Xint32 offer, asking; int final;
  1116. X{
  1117. X  vtype comment;
  1118. X
  1119. X  if (final > 0)
  1120. X    (void) strcpy(comment, comment2a[randint(3)-1]);
  1121. X  else
  1122. X    (void) strcpy(comment, comment2b[randint(16)-1]);
  1123. X
  1124. X  insert_lnum(comment, "%A1", offer, FALSE);
  1125. X  insert_lnum(comment, "%A2", asking, FALSE);
  1126. X  msg_print(comment);
  1127. X}
  1128. X
  1129. X
  1130. Xstatic void prt_comment3(offer, asking, final)
  1131. Xint32 offer, asking; int final;
  1132. X{
  1133. X  vtype comment;
  1134. X
  1135. X  if (final > 0)
  1136. X    (void) strcpy (comment, comment3a[randint(3)-1]);
  1137. X  else
  1138. X    (void) strcpy (comment, comment3b[randint(15)-1]);
  1139. X
  1140. X  insert_lnum(comment, "%A1", offer, FALSE);
  1141. X  insert_lnum(comment, "%A2", asking, FALSE);
  1142. X  msg_print(comment);
  1143. X}
  1144. X
  1145. X
  1146. X/* Kick 'da bum out.                    -RAK-    */
  1147. Xstatic void prt_comment4()
  1148. X{
  1149. X  register int tmp;
  1150. X
  1151. X  tmp = randint(5) - 1;
  1152. X  msg_print(comment4a[tmp]);
  1153. X  msg_print(comment4b[tmp]);
  1154. X}
  1155. X
  1156. X
  1157. Xstatic void prt_comment5()
  1158. X{
  1159. X  msg_print(comment5[randint(10)-1]);
  1160. X}
  1161. X
  1162. X
  1163. Xstatic void prt_comment6()
  1164. X{
  1165. X  msg_print (comment6[randint(5)-1]);
  1166. X}
  1167. X
  1168. X
  1169. X/* Displays the set of commands                -RAK-    */
  1170. Xstatic void display_commands()
  1171. X{
  1172. X  prt("You may:", 20, 0);
  1173. X  prt(" p) Purchase an item.           b) Browse store's inventory.", 21, 0);
  1174. X  prt(" s) Sell an item.               i/e/t/w/x) Inventory/Equipment Lists.",
  1175. X      22, 0);
  1176. X  prt("ESC) Exit from Building.        ^R) Redraw the screen.", 23, 0);
  1177. X}
  1178. X
  1179. X
  1180. X/* Displays the set of commands                -RAK-    */
  1181. Xstatic void haggle_commands(typ)
  1182. Xint typ;
  1183. X{
  1184. X  if (typ == -1)
  1185. X    prt("Specify an asking-price in gold pieces.", 21, 0);
  1186. X  else
  1187. X    prt("Specify an offer in gold pieces.", 21, 0);
  1188. X  prt("ESC) Quit Haggling.", 22, 0);
  1189. X  erase_line (23, 0);    /* clear last line */
  1190. X}
  1191. X
  1192. X
  1193. X/* Displays a store's inventory                -RAK-    */
  1194. Xstatic void display_inventory(store_num, start)
  1195. Xint store_num, start;
  1196. X{
  1197. X  register store_type *s_ptr;
  1198. X  register inven_type *i_ptr;
  1199. X  register int i, j, stop;
  1200. X  bigvtype out_val1, out_val2;
  1201. X  int32 x;
  1202. X
  1203. X  s_ptr = &store[store_num];
  1204. X  i = (start % 12);
  1205. X  stop = ((start / 12) + 1) * 12;
  1206. X  if (stop > s_ptr->store_ctr)    stop = s_ptr->store_ctr;
  1207. X  while (start < stop)
  1208. X    {
  1209. X      i_ptr = &s_ptr->store_inven[start].sitem;
  1210. X      x = i_ptr->number;
  1211. X      if ((i_ptr->subval >= ITEM_SINGLE_STACK_MIN)
  1212. X      && (i_ptr->subval <= ITEM_SINGLE_STACK_MAX))
  1213. X    i_ptr->number = 1;
  1214. X      objdes(out_val1, i_ptr, TRUE);
  1215. X      i_ptr->number = x;
  1216. X      (void) sprintf(out_val2, "%c) %s", 'a'+i, out_val1);
  1217. X      prt(out_val2, i+5, 0);
  1218. X      x = s_ptr->store_inven[start].scost;
  1219. X      if (x <= 0)
  1220. X    {
  1221. X      int32 value = -x;
  1222. X      value = value * chr_adj() / 100;
  1223. X      if (value <= 0)
  1224. X        value = 1;
  1225. X      (void) sprintf(out_val2, "%9ld", value);
  1226. X    }
  1227. X      else
  1228. X    (void) sprintf(out_val2,"%9ld [Fixed]", x);
  1229. X      prt(out_val2, i+5, 59);
  1230. X      i++;
  1231. X      start++;
  1232. X    }
  1233. X  if (i < 12)
  1234. X    for (j = 0; j < (11 - i + 1); j++)
  1235. X      erase_line (j+i+5, 0); /* clear remaining lines */
  1236. X  if (s_ptr->store_ctr > 12)
  1237. X    put_buffer("- cont. -", 17, 60);
  1238. X  else
  1239. X    erase_line (17, 60);
  1240. X}
  1241. X
  1242. X
  1243. X/* Re-displays only a single cost            -RAK-    */
  1244. Xstatic void display_cost(store_num, pos)
  1245. Xint store_num, pos;
  1246. X{
  1247. X  register int i;
  1248. X  register int32 j;
  1249. X  vtype out_val;
  1250. X  register store_type *s_ptr;
  1251. X
  1252. X  s_ptr = &store[store_num];
  1253. X  i = (pos % 12);
  1254. X  if (s_ptr->store_inven[pos].scost < 0)
  1255. X    {
  1256. X      j = - s_ptr->store_inven[pos].scost;
  1257. X      j = j * chr_adj() / 100;
  1258. X      (void) sprintf(out_val, "%ld", j);
  1259. X    }
  1260. X  else
  1261. X    (void) sprintf(out_val, "%9ld [Fixed]", s_ptr->store_inven[pos].scost);
  1262. X  prt(out_val, i+5, 59);
  1263. X}
  1264. X
  1265. X
  1266. X/* Displays players gold                    -RAK-    */
  1267. Xstatic void store_prt_gold()
  1268. X{
  1269. X  vtype out_val;
  1270. X
  1271. X  (void) sprintf(out_val, "Gold Remaining : %ld", py.misc.au);
  1272. X  prt(out_val, 18, 17);
  1273. X}
  1274. X
  1275. X
  1276. X/* Displays store                    -RAK-    */
  1277. Xstatic void display_store(store_num, cur_top)
  1278. Xint store_num, cur_top;
  1279. X{
  1280. X  register store_type *s_ptr;
  1281. X
  1282. X  s_ptr = &store[store_num];
  1283. X  clear_screen();
  1284. X  put_buffer(owners[s_ptr->owner].owner_name, 3, 9);
  1285. X  put_buffer("Item", 4, 3);
  1286. X  put_buffer("Asking Price", 4, 60);
  1287. X  store_prt_gold();
  1288. X  display_commands();
  1289. X  display_inventory(store_num, cur_top);
  1290. X}
  1291. X
  1292. X
  1293. X/* Get the ID of a store item and return it's value    -RAK-    */
  1294. Xstatic int get_store_item(com_val, pmt, i, j)
  1295. Xint *com_val;
  1296. Xchar *pmt;
  1297. Xregister int i, j;
  1298. X{
  1299. X  char command;
  1300. X  vtype out_val;
  1301. X  register int flag;
  1302. X
  1303. X  *com_val = -1;
  1304. X  flag = FALSE;
  1305. X  (void) sprintf(out_val, "(Items %c-%c, ESC to exit) %s", i+'a', j+'a', pmt);
  1306. X  while (get_com(out_val, &command))
  1307. X    {
  1308. X      command -= 'a';
  1309. X      if (command >= i && command <= j)
  1310. X    {
  1311. X      flag = TRUE;
  1312. X      *com_val = command;
  1313. X      break;
  1314. X    }
  1315. X      bell();
  1316. X    }
  1317. X  erase_line(MSG_LINE, 0);
  1318. X  return(flag);
  1319. X}
  1320. X
  1321. X
  1322. X/* Increase the insult counter and get angry if too many -RAK-    */
  1323. Xstatic int increase_insults(store_num)
  1324. Xint store_num;
  1325. X{
  1326. X  register int increase;
  1327. X  register store_type *s_ptr;
  1328. X
  1329. X  increase = FALSE;
  1330. X  s_ptr = &store[store_num];
  1331. X  s_ptr->insult_cur++;
  1332. X  if (s_ptr->insult_cur > owners[s_ptr->owner].insult_max)
  1333. X    {
  1334. X      prt_comment4();
  1335. X      s_ptr->insult_cur = 0;
  1336. X      s_ptr->good_buy = 0;
  1337. X      s_ptr->bad_buy = 0;
  1338. X      s_ptr->store_open = turn + 2500 + randint(2500);
  1339. X      increase = TRUE;
  1340. X    }
  1341. X  return(increase);
  1342. X}
  1343. X
  1344. X
  1345. X/* Decrease insults                    -RAK-    */
  1346. Xstatic void decrease_insults(store_num)
  1347. Xint store_num;
  1348. X{
  1349. X  register store_type *s_ptr;
  1350. X
  1351. X  s_ptr = &store[store_num];
  1352. X  if (s_ptr->insult_cur != 0)
  1353. X    s_ptr->insult_cur--;
  1354. X}
  1355. X
  1356. X
  1357. X/* Have insulted while haggling                -RAK-    */
  1358. Xstatic int haggle_insults(store_num)
  1359. Xint store_num;
  1360. X{
  1361. X  register int haggle;
  1362. X
  1363. X  haggle = FALSE;
  1364. X  if (increase_insults(store_num))
  1365. X    haggle = TRUE;
  1366. X  else
  1367. X    {
  1368. X      prt_comment5();
  1369. X      msg_print (CNIL); /* keep insult separate from rest of haggle */
  1370. X    }
  1371. X  return(haggle);
  1372. X}
  1373. X
  1374. X
  1375. Xstatic int get_haggle(comment, new_offer, num_offer)
  1376. Xchar *comment;
  1377. Xint32 *new_offer;
  1378. Xint num_offer;
  1379. X{
  1380. X  register int32 i;
  1381. X  vtype out_val, default_offer;
  1382. X  register int flag, clen;
  1383. X  int orig_clen;
  1384. X  register char *p;
  1385. X  int increment;
  1386. X
  1387. X  flag = TRUE;
  1388. X  increment = FALSE;
  1389. X  clen = strlen(comment);
  1390. X  orig_clen = clen;
  1391. X  if (num_offer == 0)
  1392. X    last_store_inc = 0;
  1393. X  i = 0;
  1394. X  do
  1395. X    {
  1396. X      prt(comment, 0, 0);
  1397. X      if (num_offer && last_store_inc != 0)
  1398. X    {
  1399. X      (void) sprintf (default_offer, "[%c%d] ",
  1400. X              (last_store_inc < 0) ? '-' : '+',
  1401. X              abs (last_store_inc));
  1402. X      prt (default_offer, 0, orig_clen);
  1403. X      clen = orig_clen + strlen (default_offer);
  1404. X    }
  1405. X      if (!get_string(out_val, 0, clen, 40))
  1406. X    flag = FALSE;
  1407. X      for (p = out_val; *p == ' '; p++)
  1408. X    ;
  1409. X      if (*p == '+' || *p == '-')
  1410. X    increment = TRUE;
  1411. X      if (num_offer && increment)
  1412. X    {
  1413. X      i = atol (out_val);
  1414. X      /* Don't accept a zero here.  Turn off increment if it was zero
  1415. X         because a zero will not exit.  This can be zero if the user
  1416. X         did not type a number after the +/- sign.  */
  1417. X      if (i == 0)
  1418. X        increment = FALSE;
  1419. X      else
  1420. X        last_store_inc = i;
  1421. X    }
  1422. X      else if (num_offer && *out_val == '\0')
  1423. X    {
  1424. X      i = last_store_inc;
  1425. X      increment = TRUE;
  1426. X    }
  1427. X      else
  1428. X    i = atol (out_val);
  1429. X
  1430. X      /* don't allow incremental haggling, if player has not made an offer
  1431. X     yet */
  1432. X      if (flag && num_offer == 0 && increment)
  1433. X    {
  1434. X      msg_print("You haven't even made your first offer yet!");
  1435. X      i = 0;
  1436. X      increment = FALSE;
  1437. X    }
  1438. X    }
  1439. X  while (flag && (i == 0));
  1440. X  if (flag)
  1441. X    {
  1442. X      if (increment)
  1443. X    *new_offer += i;
  1444. X      else
  1445. X    *new_offer = i;
  1446. X    }
  1447. X  else
  1448. X    erase_line (0, 0);
  1449. X  return(flag);
  1450. X}
  1451. X
  1452. X
  1453. Xstatic int receive_offer(store_num, comment, new_offer, last_offer,
  1454. X             num_offer, factor)
  1455. Xint store_num;
  1456. Xchar *comment;
  1457. Xregister int32 *new_offer, last_offer;
  1458. Xint num_offer, factor;
  1459. X{
  1460. X  register int flag;
  1461. X  register int receive;
  1462. X
  1463. X  receive = 0;
  1464. X  flag = FALSE;
  1465. X  do
  1466. X    {
  1467. X      if (get_haggle(comment, new_offer, num_offer))
  1468. X    {
  1469. X      if (*new_offer*factor >= last_offer*factor)
  1470. X        flag = TRUE;
  1471. X      else if (haggle_insults(store_num))
  1472. X        {
  1473. X          receive = 2;
  1474. X          flag = TRUE;
  1475. X        }
  1476. X      else
  1477. X        /* new_offer rejected, reset new_offer so that incremental
  1478. X           haggling works correctly */
  1479. X        *new_offer = last_offer;
  1480. X    }
  1481. X      else
  1482. X    {
  1483. X      receive = 1;
  1484. X      flag = TRUE;
  1485. X    }
  1486. X    }
  1487. X  while (!flag);
  1488. X  return(receive);
  1489. X}
  1490. X
  1491. X
  1492. X/* Haggling routine                    -RAK-    */
  1493. Xstatic int purchase_haggle(store_num, price, item)
  1494. Xint store_num;
  1495. Xint32 *price;
  1496. Xinven_type *item;
  1497. X{
  1498. X  int32 max_sell, min_sell, max_buy;
  1499. X  int32 cost, cur_ask, final_ask, min_offer;
  1500. X  int32 last_offer, new_offer;
  1501. X  int32 x1, x2, x3;
  1502. X  int32 min_per, max_per;
  1503. X  register int flag, loop_flag;
  1504. X  char *comment;
  1505. X  vtype out_val;
  1506. X  int purchase, num_offer, final_flag, didnt_haggle;
  1507. X  register store_type *s_ptr;
  1508. X  register owner_type *o_ptr;
  1509. X
  1510. X  flag = FALSE;
  1511. X  purchase = 0;
  1512. X  *price = 0;
  1513. X  final_flag = 0;
  1514. X  didnt_haggle = FALSE;
  1515. X  s_ptr = &store[store_num];
  1516. X  o_ptr = &owners[s_ptr->owner];
  1517. X  cost = sell_price(store_num, &max_sell, &min_sell, item);
  1518. X  max_sell = max_sell * chr_adj() / 100;
  1519. X  if (max_sell <= 0)  max_sell = 1;
  1520. X  min_sell = min_sell * chr_adj() / 100;
  1521. X  if (min_sell <= 0)  min_sell = 1;
  1522. X  /* cast max_inflate to signed so that subtraction works correctly */
  1523. X  max_buy  = cost * (200 - (int)o_ptr->max_inflate) / 100;
  1524. X  if (max_buy <= 0) max_buy = 1;
  1525. X  min_per  = o_ptr->haggle_per;
  1526. X  max_per  = min_per * 3;
  1527. X  haggle_commands(1);
  1528. X  cur_ask   = max_sell;
  1529. X  final_ask = min_sell;
  1530. X  min_offer = max_buy;
  1531. X  last_offer = min_offer;
  1532. X  new_offer = 0;
  1533. X  num_offer = 0; /* this prevents incremental haggling on first try */
  1534. X  comment = "Asking";
  1535. X
  1536. X  /* go right to final price if player has bargained well */
  1537. X  if (noneedtobargain(store_num, final_ask))
  1538. X    {
  1539. X      msg_print("After a long bargaining session, you agree upon the price.");
  1540. X      cur_ask = min_sell;
  1541. X      comment = "Final offer";
  1542. X      didnt_haggle = TRUE;
  1543. X
  1544. X      /* Set up automatic increment, so that a return will accept the
  1545. X     final price.  */
  1546. X      last_store_inc = min_sell;
  1547. X      num_offer = 1;
  1548. X    }
  1549. X
  1550. X  do
  1551. X    {
  1552. X      do
  1553. X    {
  1554. X      loop_flag = TRUE;
  1555. X      (void) sprintf(out_val, "%s :  %ld", comment, cur_ask);
  1556. X      put_buffer(out_val, 1, 0);
  1557. X      purchase = receive_offer(store_num, "What do you offer? ",
  1558. X                   &new_offer, last_offer, num_offer, 1);
  1559. X      if (purchase != 0)
  1560. X        flag = TRUE;
  1561. X      else
  1562. X        {
  1563. X          if (new_offer > cur_ask)
  1564. X        {
  1565. X          prt_comment6();
  1566. X          /* rejected, reset new_offer for incremental haggling */
  1567. X          new_offer = last_offer;
  1568. X
  1569. X          /* If the automatic increment is large enough to overflow,
  1570. X             then the player must have made a mistake.  Clear it
  1571. X             because it is useless.  */
  1572. X          if (last_offer + last_store_inc > cur_ask)
  1573. X            last_store_inc = 0;
  1574. X        }
  1575. X          else if (new_offer == cur_ask)
  1576. X        {
  1577. X          flag = TRUE;
  1578. X          *price = new_offer;
  1579. X        }
  1580. X          else
  1581. X        loop_flag = FALSE;
  1582. X        }
  1583. X    }
  1584. X      while (!flag && loop_flag);
  1585. X      if (!flag)
  1586. X    {
  1587. X      x1 = (new_offer - last_offer) * 100 / (cur_ask - last_offer);
  1588. X      if (x1 < min_per)
  1589. X        {
  1590. X          flag = haggle_insults(store_num);
  1591. X          if (flag)     purchase = 2;
  1592. X        }
  1593. X      else if (x1 > max_per)
  1594. X        {
  1595. X          x1 = x1 * 75 / 100;
  1596. X          if (x1 < max_per)     x1 = max_per;
  1597. X        }
  1598. X      x2 = x1 + randint(5) - 3;
  1599. X      x3 = ((cur_ask - new_offer) * x2 / 100) + 1;
  1600. X      /* don't let the price go up */
  1601. X      if (x3 < 0)
  1602. X        x3 = 0;
  1603. X      cur_ask -= x3;
  1604. X      if (cur_ask < final_ask)
  1605. X        {
  1606. X          cur_ask = final_ask;
  1607. X          comment = "Final Offer";
  1608. X          /* Set the automatic haggle increment so that RET will give
  1609. X         a new_offer equal to the final_ask price.  */
  1610. X          last_store_inc = final_ask - new_offer;
  1611. X          final_flag++;
  1612. X          if (final_flag > 3)
  1613. X        {
  1614. X          if (increase_insults(store_num))
  1615. X            purchase = 2;
  1616. X          else
  1617. X            purchase = 1;
  1618. X          flag = TRUE;
  1619. X        }
  1620. X        }
  1621. X      else if (new_offer >= cur_ask)
  1622. X        {
  1623. X          flag = TRUE;
  1624. X          *price = new_offer;
  1625. X        }
  1626. X      if (!flag)
  1627. X        {
  1628. X          last_offer = new_offer;
  1629. X          num_offer++; /* enable incremental haggling */
  1630. X          erase_line (1, 0);
  1631. X          (void) sprintf(out_val, "Your last offer : %ld", last_offer);
  1632. X          put_buffer(out_val, 1, 39);
  1633. X          prt_comment2(last_offer, cur_ask, final_flag);
  1634. X
  1635. X          /* If the current increment would take you over the store's
  1636. X         price, then decrease it to an exact match.  */
  1637. X          if (cur_ask - last_offer < last_store_inc)
  1638. X        last_store_inc = cur_ask - last_offer;
  1639. X        }
  1640. X    }
  1641. X    }
  1642. X  while (!flag);
  1643. X
  1644. X  /* update bargaining info */
  1645. X  if ((purchase == 0) && (!didnt_haggle))
  1646. X    updatebargain(store_num, *price, final_ask);
  1647. X
  1648. X  return(purchase);
  1649. X}
  1650. X
  1651. X
  1652. X/* Haggling routine                    -RAK-    */
  1653. Xstatic int sell_haggle(store_num, price, item)
  1654. Xint store_num;
  1655. Xint32 *price;
  1656. Xinven_type *item;
  1657. X{
  1658. X  int32 max_sell, max_buy, min_buy;
  1659. X  int32 cost, cur_ask, final_ask, min_offer;
  1660. X  int32 last_offer, new_offer;
  1661. X  int32 max_gold;
  1662. X  int32 x1, x2, x3;
  1663. X  int32 min_per, max_per;
  1664. X  register int flag, loop_flag;
  1665. X  char *comment;
  1666. X  vtype out_val;
  1667. X  register store_type *s_ptr;
  1668. X  register owner_type *o_ptr;
  1669. X  int sell, num_offer, final_flag, didnt_haggle;
  1670. X
  1671. X  flag = FALSE;
  1672. X  sell = 0;
  1673. X  *price = 0;
  1674. X  final_flag = 0;
  1675. X  didnt_haggle = FALSE;
  1676. X  s_ptr = &store[store_num];
  1677. X  cost = item_value(item);
  1678. X  if (cost < 1)
  1679. X    {
  1680. X      sell = 3;
  1681. X      flag = TRUE;
  1682. X    }
  1683. X  else
  1684. X    {
  1685. X      o_ptr = &owners[s_ptr->owner];
  1686. X      cost = cost * (200 - chr_adj()) / 100;
  1687. X      cost = cost * (200 - rgold_adj[o_ptr->owner_race][py.misc.prace]) / 100;
  1688. X      if (cost < 1)  cost = 1;
  1689. X      max_sell = cost * o_ptr->max_inflate / 100;
  1690. X      /* cast max_inflate to signed so that subtraction works correctly */
  1691. X      max_buy  = cost * (200 - (int)o_ptr->max_inflate) / 100;
  1692. X      min_buy  = cost * (200 - o_ptr->min_inflate) / 100;
  1693. X      if (min_buy < 1) min_buy = 1;
  1694. X      if (max_buy < 1) max_buy = 1;
  1695. X      if (min_buy < max_buy)  min_buy = max_buy;
  1696. X      min_per  = o_ptr->haggle_per;
  1697. X      max_per  = min_per * 3;
  1698. X      max_gold = o_ptr->max_cost;
  1699. X    }
  1700. X  if (!flag)
  1701. X    {
  1702. X      haggle_commands(-1);
  1703. X      num_offer = 0; /* this prevents incremental haggling on first try */
  1704. X      if (max_buy > max_gold)
  1705. X    {
  1706. X      final_flag= 1;
  1707. X      comment = "Final Offer";
  1708. X      /* Disable the automatic haggle increment on RET.  */
  1709. X      last_store_inc = 0;
  1710. X      cur_ask   = max_gold;
  1711. X      final_ask = max_gold;
  1712. X      msg_print("I am sorry, but I have not the money to afford such \
  1713. Xa fine item.");
  1714. X      didnt_haggle = TRUE;
  1715. X    }
  1716. X      else
  1717. X    {
  1718. X      cur_ask   = max_buy;
  1719. X      final_ask = min_buy;
  1720. X      if (final_ask > max_gold)
  1721. X        final_ask = max_gold;
  1722. X      comment = "Offer";
  1723. X
  1724. X      /* go right to final price if player has bargained well */
  1725. X          if (noneedtobargain(store_num, final_ask))
  1726. X        {
  1727. X          msg_print("After a long bargaining session, you agree upon \
  1728. Xthe price.");
  1729. X              cur_ask = final_ask;
  1730. X          comment = "Final offer";
  1731. X          didnt_haggle = TRUE;
  1732. X
  1733. X          /* Set up automatic increment, so that a return will accept the
  1734. X         final price.  */
  1735. X          last_store_inc = final_ask;
  1736. X          num_offer = 1;
  1737. X            }
  1738. X    }
  1739. X      min_offer = max_sell;
  1740. X      last_offer = min_offer;
  1741. X      new_offer = 0;
  1742. X      if (cur_ask < 1)    cur_ask = 1;
  1743. X      do
  1744. X    {
  1745. X      do
  1746. X        {
  1747. X          loop_flag = TRUE;
  1748. X          (void) sprintf(out_val, "%s :  %ld", comment, cur_ask);
  1749. X          put_buffer(out_val, 1, 0);
  1750. X          sell = receive_offer(store_num, "What price do you ask? ",
  1751. X                 &new_offer, last_offer, num_offer, -1);
  1752. X          if (sell != 0)
  1753. X        flag   = TRUE;
  1754. X          else
  1755. X        {
  1756. X          if (new_offer < cur_ask)
  1757. X            {
  1758. X              prt_comment6();
  1759. X              /* rejected, reset new_offer for incremental haggling */
  1760. X              new_offer = last_offer;
  1761. X
  1762. X              /* If the automatic increment is large enough to
  1763. X             overflow, then the player must have made a mistake.
  1764. X             Clear it because it is useless.  */
  1765. X              if (last_offer + last_store_inc < cur_ask)
  1766. X            last_store_inc = 0;
  1767. X            }
  1768. X          else if (new_offer == cur_ask)
  1769. X            {
  1770. X              flag = TRUE;
  1771. X              *price = new_offer;
  1772. X            }
  1773. X          else
  1774. X            loop_flag = FALSE;
  1775. X        }
  1776. X        }
  1777. X      while (!flag && loop_flag);
  1778. X      if (!flag)
  1779. X        {
  1780. X          x1 = (last_offer - new_offer) * 100 / (last_offer - cur_ask);
  1781. X          if (x1 < min_per)
  1782. X        {
  1783. X          flag = haggle_insults(store_num);
  1784. X          if (flag)  sell = 2;
  1785. X        }
  1786. X          else if (x1 > max_per)
  1787. X        {
  1788. X          x1 = x1 * 75 / 100;
  1789. X          if (x1 < max_per)  x1 = max_per;
  1790. X        }
  1791. X          x2 = x1 + randint(5) - 3;
  1792. X          x3 = ((new_offer - cur_ask) * x2 / 100) + 1;
  1793. X          /* don't let the price go down */
  1794. X          if (x3 < 0)
  1795. X        x3 = 0;
  1796. X          cur_ask += x3;
  1797. X          if (cur_ask > final_ask)
  1798. X        {
  1799. X          cur_ask = final_ask;
  1800. X          comment = "Final Offer";
  1801. X          /* Set the automatic haggle increment so that RET will give
  1802. X             a new_offer equal to the final_ask price.  */
  1803. X          last_store_inc = final_ask - new_offer;
  1804. X          final_flag++;
  1805. X          if (final_flag > 3)
  1806. X            {
  1807. X              if (increase_insults(store_num))
  1808. X            sell = 2;
  1809. X              else
  1810. X            sell = 1;
  1811. X              flag = TRUE;
  1812. X            }
  1813. X        }
  1814. X          else if (new_offer <= cur_ask)
  1815. X        {
  1816. X          flag = TRUE;
  1817. X          *price = new_offer;
  1818. X        }
  1819. X          if (!flag)
  1820. X        {
  1821. X          last_offer = new_offer;
  1822. X          num_offer++; /* enable incremental haggling */
  1823. X          erase_line (1, 0);
  1824. X          (void) sprintf(out_val, "Your last bid %ld", last_offer);
  1825. X          put_buffer(out_val, 1, 39);
  1826. X          prt_comment3(cur_ask, last_offer, final_flag);
  1827. X
  1828. X          /* If the current decrement would take you under the store's
  1829. X             price, then increase it to an exact match.  */
  1830. X          if (cur_ask - last_offer > last_store_inc)
  1831. X            last_store_inc = cur_ask - last_offer;
  1832. X        }
  1833. X        }
  1834. X    }
  1835. X      while (!flag);
  1836. X    }
  1837. X
  1838. X  /* update bargaining info */
  1839. X  if ((sell == 0) && (!didnt_haggle))
  1840. X    updatebargain(store_num, *price, final_ask);
  1841. X
  1842. X  return(sell);
  1843. X}
  1844. X
  1845. X
  1846. X/* Buy an item from a store                -RAK-    */
  1847. Xstatic int store_purchase(store_num, cur_top)
  1848. Xint store_num;
  1849. Xint *cur_top;
  1850. X{
  1851. X  int32 price;
  1852. X  register int i, choice;
  1853. X  bigvtype out_val, tmp_str;
  1854. X  register store_type *s_ptr;
  1855. X  inven_type sell_obj;
  1856. X  register inven_record *r_ptr;
  1857. X  int item_val, item_new, purchase;
  1858. X
  1859. X  purchase = FALSE;
  1860. X  s_ptr = &store[store_num];
  1861. X  /* i == number of objects shown on screen    */
  1862. X  if (*cur_top == 12)
  1863. X    i = s_ptr->store_ctr - 1 - 12;
  1864. X  else if (s_ptr->store_ctr > 11)
  1865. X    i = 11;
  1866. X  else
  1867. X    i = s_ptr->store_ctr - 1;
  1868. X  if (s_ptr->store_ctr < 1)
  1869. X    msg_print("I am currently out of stock.");
  1870. X      /* Get the item number to be bought        */
  1871. X  else if (get_store_item(&item_val,
  1872. X              "Which item are you interested in? ", 0, i))
  1873. X    {
  1874. X      item_val = item_val + *cur_top;    /* TRUE item_val    */
  1875. X      take_one_item(&sell_obj, &s_ptr->store_inven[item_val].sitem);
  1876. X      if (inven_check_num(&sell_obj))
  1877. X    {
  1878. X      if (s_ptr->store_inven[item_val].scost > 0)
  1879. X        {
  1880. X          price = s_ptr->store_inven[item_val].scost;
  1881. X          choice = 0;
  1882. X        }
  1883. X      else
  1884. X        choice = purchase_haggle(store_num, &price, &sell_obj);
  1885. X      if (choice == 0)
  1886. X        {
  1887. X          if (py.misc.au >= price)
  1888. X        {
  1889. X          prt_comment1();
  1890. X          decrease_insults(store_num);
  1891. X          py.misc.au -= price;
  1892. X          item_new = inven_carry(&sell_obj);
  1893. X          i = s_ptr->store_ctr;
  1894. X          store_destroy(store_num, item_val, TRUE);
  1895. X          objdes(tmp_str, &inventory[item_new], TRUE);
  1896. X          (void) sprintf(out_val, "You have %s (%c)",
  1897. X                   tmp_str, item_new+'a');
  1898. X          prt(out_val, 0, 0);
  1899. X          check_strength();
  1900. X          if (*cur_top >= s_ptr->store_ctr)
  1901. X            {
  1902. X              *cur_top = 0;
  1903. X              display_inventory(store_num, *cur_top);
  1904. X            }
  1905. X          else
  1906. X            {
  1907. X              r_ptr = &s_ptr->store_inven[item_val];
  1908. X              if (i == s_ptr->store_ctr)
  1909. X            {
  1910. X              if (r_ptr->scost < 0)
  1911. X                {
  1912. X                  r_ptr->scost = price;
  1913. X                  display_cost(store_num, item_val);
  1914. X                }
  1915. X            }
  1916. X              else
  1917. X            display_inventory(store_num, item_val);
  1918. X            }
  1919. X          store_prt_gold();
  1920. X        }
  1921. X          else
  1922. X        {
  1923. X          if (increase_insults(store_num))
  1924. X            purchase = TRUE;
  1925. X          else
  1926. X            {
  1927. X              prt_comment1();
  1928. X              msg_print("Liar!  You have not the gold!");
  1929. X            }
  1930. X        }
  1931. X        }
  1932. X      else if (choice == 2)
  1933. X        purchase = TRUE;
  1934. X
  1935. X      /* Less intuitive, but looks better here than in purchase_haggle. */
  1936. X      display_commands();
  1937. X      erase_line (1, 0);
  1938. X    }
  1939. X      else
  1940. X    prt("You cannot carry that many different items.", 0, 0);
  1941. X    }
  1942. X  return(purchase);
  1943. X}
  1944. X
  1945. X
  1946. X/* Sell an item to the store                -RAK-    */
  1947. Xstatic int store_sell(store_num, cur_top)
  1948. Xint store_num, *cur_top;
  1949. X{
  1950. X  int item_val, item_pos;
  1951. X  int32 price;
  1952. X  bigvtype out_val, tmp_str;
  1953. X  inven_type sold_obj;
  1954. X  register int sell, choice, flag;
  1955. X  char mask[INVEN_WIELD];
  1956. X  int counter, first_item, last_item;
  1957. X
  1958. X  sell = FALSE;
  1959. X  first_item = inven_ctr;
  1960. X  last_item = -1;
  1961. X  for (counter = 0; counter < inven_ctr; counter++)
  1962. X    {
  1963. X#ifdef MAC
  1964. X      flag = store_buy(store_num, (inventory[counter].tval));
  1965. X#else
  1966. X      flag = (*store_buy[store_num])(inventory[counter].tval);
  1967. X#endif
  1968. X      mask[counter] = flag;
  1969. X      if (flag)
  1970. X    {
  1971. X      if (counter < first_item)
  1972. X        first_item = counter;
  1973. X      if (counter > last_item)
  1974. X        last_item = counter;
  1975. X    } /* end of if (flag) */
  1976. X    } /* end of for (counter) */
  1977. X  if (last_item == -1)
  1978. X    msg_print("You have nothing to sell to this store!");
  1979. X  else if (get_item(&item_val, "Which one? ", first_item, last_item, mask,
  1980. X            "I do not buy such items."))
  1981. X    {
  1982. X      take_one_item(&sold_obj, &inventory[item_val]);
  1983. X      objdes(tmp_str, &sold_obj, TRUE);
  1984. X      (void) sprintf(out_val, "Selling %s (%c)", tmp_str, item_val+'a');
  1985. X      msg_print(out_val);
  1986. X      if (store_check_num(&sold_obj, store_num))
  1987. X    {
  1988. X      choice = sell_haggle(store_num, &price, &sold_obj);
  1989. X      if (choice == 0)
  1990. X        {
  1991. X          prt_comment1();
  1992. X          decrease_insults(store_num);
  1993. X          py.misc.au += price;
  1994. X          /* identify object in inventory to set object_ident */
  1995. X          identify(&item_val);
  1996. X          /* retake sold_obj so that it will be identified */
  1997. X          take_one_item(&sold_obj, &inventory[item_val]);
  1998. X          /* call known2 for store item, so charges/pluses are known */
  1999. X          known2(&sold_obj);
  2000. X          inven_destroy(item_val);
  2001. X          objdes(tmp_str, &sold_obj, TRUE);
  2002. X          (void) sprintf(out_val, "You've sold %s", tmp_str);
  2003. X          msg_print(out_val);
  2004. X          store_carry(store_num, &item_pos, &sold_obj);
  2005. X          check_strength();
  2006. X          if (item_pos >= 0)
  2007. X        {
  2008. X          if (item_pos < 12)
  2009. X            if (*cur_top < 12)
  2010. X              display_inventory(store_num, item_pos);
  2011. X            else
  2012. X              {
  2013. X            *cur_top = 0;
  2014. X            display_inventory(store_num, *cur_top);
  2015. X              }
  2016. X          else if (*cur_top > 11)
  2017. X            display_inventory(store_num, item_pos);
  2018. X          else
  2019. X            {
  2020. X              *cur_top = 12;
  2021. X              display_inventory(store_num, *cur_top);
  2022. X            }
  2023. X        }
  2024. X          store_prt_gold();
  2025. X        }
  2026. X      else if (choice == 2)
  2027. X        sell = TRUE;
  2028. X      else if (choice == 3)
  2029. X        {
  2030. X          msg_print("How dare you!");
  2031. X          msg_print("I will not buy that!");
  2032. X          sell = increase_insults(store_num);
  2033. X        }
  2034. X      /* Less intuitive, but looks better here than in sell_haggle. */
  2035. X      erase_line (1, 0);
  2036. X      display_commands();
  2037. X    }
  2038. X      else
  2039. X    msg_print("I have not the room in my store to keep it.");
  2040. X    }
  2041. X  return(sell);
  2042. X}
  2043. X
  2044. X
  2045. X/* Entering a store                    -RAK-    */
  2046. Xvoid enter_store(store_num)
  2047. Xint store_num;
  2048. X{
  2049. X  int cur_top, tmp_chr;
  2050. X  char command;
  2051. X  register int exit_flag;
  2052. X  register store_type *s_ptr;
  2053. X
  2054. X  s_ptr = &store[store_num];
  2055. X  if (s_ptr->store_open < turn)
  2056. X    {
  2057. X      exit_flag = FALSE;
  2058. X      cur_top = 0;
  2059. X      display_store(store_num, cur_top);
  2060. X      do
  2061. X    {
  2062. X      move_cursor (20, 9);
  2063. X      /* clear the msg flag just like we do in dungeon.c */
  2064. X      msg_flag = FALSE;
  2065. X      if (get_com(CNIL, &command))
  2066. X        {
  2067. X          switch(command)
  2068. X        {
  2069. X        case 'b':
  2070. X          if (cur_top == 0)
  2071. X            if (s_ptr->store_ctr > 12)
  2072. X              {
  2073. X            cur_top = 12;
  2074. X            display_inventory(store_num, cur_top);
  2075. X              }
  2076. X            else
  2077. X              msg_print("Entire inventory is shown.");
  2078. X          else
  2079. X            {
  2080. X              cur_top = 0;
  2081. X              display_inventory(store_num, cur_top);
  2082. X            }
  2083. X          break;
  2084. X        case 'E': case 'e':     /* Equipment List    */
  2085. X        case 'I': case 'i':     /* Inventory        */
  2086. X        case 'T': case 't':     /* Take off        */
  2087. X        case 'W': case 'w':    /* Wear            */
  2088. X        case 'X': case 'x':    /* Switch weapon        */
  2089. X          tmp_chr = py.stats.use_stat[A_CHR];
  2090. X          do
  2091. X            {
  2092. X              inven_command(command);
  2093. X              command = doing_inven;
  2094. X            }
  2095. X          while (command);
  2096. X          /* redisplay store prices if charisma changes */
  2097. X          if (tmp_chr != py.stats.use_stat[A_CHR])
  2098. X            display_inventory(store_num, cur_top);
  2099. X          free_turn_flag = FALSE;    /* No free moves here. -CJS- */
  2100. X          break;
  2101. X        case 'p':
  2102. X          exit_flag = store_purchase(store_num, &cur_top);
  2103. X          break;
  2104. X        case 's':
  2105. X          exit_flag = store_sell(store_num, &cur_top);
  2106. X          break;
  2107. X        default:
  2108. X          bell();
  2109. X          break;
  2110. X        }
  2111. X        }
  2112. X      else
  2113. X        exit_flag = TRUE;
  2114. X    }
  2115. X      while (!exit_flag);
  2116. X      /* Can't save and restore the screen because inven_command does that. */
  2117. X      draw_cave();
  2118. X    }
  2119. X  else
  2120. X    msg_print("The doors are locked.");
  2121. X}
  2122. END_OF_FILE
  2123. if test 29309 -ne `wc -c <'source/store2.c'`; then
  2124.     echo shar: \"'source/store2.c'\" unpacked with wrong size!
  2125. fi
  2126. # end of 'source/store2.c'
  2127. fi
  2128. echo shar: End of archive 20 \(of 39\).
  2129. cp /dev/null ark20isdone
  2130. MISSING=""
  2131. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 ; do
  2132.     if test ! -f ark${I}isdone ; then
  2133.     MISSING="${MISSING} ${I}"
  2134.     fi
  2135. done
  2136. if test "${MISSING}" = "" ; then
  2137.     echo You have unpacked all 39 archives.
  2138.     echo "Now run "bldfiles.sh" to build split files"
  2139.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  2140. else
  2141.     echo You still need to unpack the following archives:
  2142.     echo "        " ${MISSING}
  2143. fi
  2144. ##  End of shell archive.
  2145. exit 0
  2146.