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