1 /* Declarations of global functions. */
2 
3 extern int dungeon_main(void);
4 extern int txcryp_(integer *r__, char *line, ftnlen line_len);
5 extern int game_(void);
6 extern int xendmv_(logical *flag__);
7 extern logical xvehic_(integer *n);
8 extern logical initfl_(integer *x);
9 extern logical protct_(integer *x);
10 extern logical oappli_(integer *ri, integer *arg);
11 extern logical sobjs_(integer *ri, integer *arg);
12 extern logical nobjs_(integer *ri, integer *arg);
13 extern logical mirpan_(integer *st, logical *pnf);
14 extern logical ballop_(integer *arg);
15 extern logical trollp_(integer *arg);
16 extern logical cyclop_(integer *arg);
17 extern logical thiefp_(integer *arg);
18 extern int rdline_(char *inline__, integer *inlen, integer *who, ftnlen inline_len);
19 extern logical parse_(char *inline__, integer *inlen, logical *vbflag, ftnlen inline_len);
20 extern logical lex_(char *inline__, integer *inlen, char *outbuf, integer *op, logical *vbflag, ftnlen inline_len, ftnlen outbuf_len);
21 extern integer sparse_(char *lbuf, integer *llnt, logical *vbflag, ftnlen lbuf_len);
22 extern integer getobj_(integer *oidx, integer *aidx, integer *spcobj);
23 extern integer schlst_(integer *oidx, integer *aidx, integer *rm, integer *cn, integer *ad, integer *spcobj);
24 extern logical thisit_(integer *oidx, integer *aidx, integer *obj, integer *spcobj);
25 extern logical synmch_(integer *x);
26 extern int unpack_(integer *oldj, integer *j);
27 extern logical syneql_(integer *prep, integer *obj, integer *sprep, integer *sfl1, integer *sfl2);
28 extern logical takeit_(integer *obj, integer *sflag);
29 extern integer gwim_(integer *sflag, integer *sfw1, integer *sfw2);
30 extern logical noadjs_(integer *obj);
31 extern void lcify_(char *ret_val, ftnlen ret_val_len, char *string, integer *start, ftnlen string_len);
32 extern void findvb_(char *ret_val, ftnlen ret_val_len, integer *syntax);
33 extern void findpr_(char *ret_val, ftnlen ret_val_len, integer *prepno);
34 extern int rappli_(integer *ri);
35 extern int lookto_(integer *nrm, integer *srm, integer *nt, integer *st, integer *ht);
36 extern int ewtell_(integer *rm, integer *st);
37 extern int rspeak_(integer *n);
38 extern int rspsub_(integer *n, integer *s1);
39 extern int rspsb2_(integer *a, integer *b, integer *c__);
40 extern logical objact_(integer *x);
41 extern int bug_(integer *a, integer *b);
42 extern int newsta_(integer *o, integer *r__, integer *rm, integer *cn, integer *ad);
43 extern logical qhere_(integer *obj, integer *rm);
44 extern logical qempty_(integer *obj);
45 extern int jigsup_(integer *desc);
46 extern integer oactor_(integer *obj);
47 extern logical prob_(integer *g, integer *b);
48 extern logical rmdesc_(integer *full);
49 extern int princr_(integer *full, integer *rm);
50 extern int invent_(integer *adv);
51 extern int princo_(integer *obj, integer *desc, logical *ldescf);
52 extern logical moveto_(integer *nr, integer *who);
53 extern int score_(logical *flg);
54 extern int scrupd_(integer *n);
55 extern logical findxt_(integer *dir, integer *rm);
56 extern integer fwim_(integer *f1, integer *f2, integer *rm, integer *con, integer *adv, logical *nocare);
57 extern int orphan_(integer *or1, integer *or2, integer *or3, integer *or4, integer *or5, char *or6, integer *or7, integer *or8, ftnlen or6_len);
58 extern logical yesno_(integer *q, integer *y, integer *n);
59 extern integer robadv_(integer *adv, integer *nr, integer *nc, integer *na);
60 extern integer robrm_(integer *rm, integer *pr, integer *nr, integer *nc, integer *na);
61 extern logical winnin_(integer *vl, integer *hr);
62 extern integer fights_(integer *h__, logical *flg);
63 extern integer vilstr_(integer *v);
64 extern int gttime_(integer *t);
65 extern logical opncls_(integer *obj, integer *so, integer *sc);
66 extern logical lit_(integer *rm);
67 extern integer weighr_(integer *cn, integer *ad);
68 extern logical ghere_(integer *obj, integer *rm);
69 extern integer mrhere_(integer *rm);
70 extern int encryp_(char *inw, char *outw, ftnlen inw_len, ftnlen outw_len);
71 extern int cpgoto_(integer *st);
72 extern int cpinfo_(integer *rmk, integer *st);
73 extern integer nblen_(char *string, ftnlen string_len);
74 extern logical clockd_(integer *x);
75 extern int cevapp_(integer *ri);
76 extern int litint_(integer *obj, integer *ctr, integer *cev, integer *ticks, integer *tickln);
77 extern int fightd_(void);
78 extern integer blow_(integer *h__, integer *v, integer *rmk, logical *hflg, integer *out);
79 extern int swordd_(void);
80 extern logical infest_(integer *r__);
81 extern logical aappli_(integer *ri);
82 extern int thiefd_(void);
83 extern logical vappli_(integer *ri);
84 extern logical take_(logical *flg);
85 extern logical drop_(logical *flg);
86 extern logical put_(logical *flg);
87 extern int valuac_(integer *v);
88 extern logical qbunch_(integer *obj);
89 extern int savegm_(void);
90 extern int rstrgm_(void);
91 extern logical walk_(integer *x);
92 extern integer cxappl_(integer *ri);
93 
94 extern integer rnd_(integer *val);
95 extern int inirnd_(integer *v1, integer *v2);
96 extern int idate_(integer *year, integer *month, integer *day);
97 extern int itime_(integer *hour, integer *min, integer *sec);
98 extern int gdt_(void);
99 extern void s_paus(char *prompt, int len);
100 extern int s_stop(char *s, ftnlen n);
101 extern int f_get_ints(strid_t fl, integer *ptr, integer num);
102 extern int f_get_llogicals(strid_t fl, logical *ptr, integer num);
103 extern int f_get_logicals(strid_t fl, logical *ptr, integer num);
104 extern int f_put_ints(strid_t fl, integer *ptr, integer num);
105 extern int f_put_logicals(strid_t fl, logical *ptr, integer num);
106 extern int getline_(char *buf, int buflen);
107 extern int getline_null_(char *buf, int buflen);
108 extern int getchar_(void);
109 extern void weeprintf(char *fmt, ...);
110 extern int str_to_num(char *buf);
111 extern void printdb(int msgnum, int msgsub1, int msgsub2, int newline);
112 
113 extern void s_copy(char *a, char *b, ftnlen la, ftnlen lb);
114 extern void s_cat(char *lp, char *rpp[], ftnlen rnp[], ftnlen *np, ftnlen ll);
115 extern integer s_cmp(char *a0, char *b0, ftnlen la, ftnlen lb);
116 extern integer i_indx(char *a, char *b, ftnlen la, ftnlen lb);
117 extern integer i_len(char *s, ftnlen n);
118 extern void v_set(void *a, ftnlen la, char val);
119