Category : BBS Programs+Doors
Archive   : DND27A.ZIP
Filename : DNDEDIT.INC

 
Output of file : DNDEDIT.INC contained in archive : DND27A.ZIP

' tm
' --------------- C O P Y W A R E ---------------
'
' Supported by the PC SIG Library
'
' +------------------------------------------------------------------+
' | Dungeon and Dragons Bulletin Board System Version 2.7a |
' | This program is distributed with the Copyware rights agreement. |
' | Valued contributions can be made to: |
' | Erik J. Oredson |
' | 1215 South 9th Street |
' | Minneapolis, Minnesota, 55404 |
' | |
' | You are allowed to distribute DnDBBS with the Copyware rights |
' | agreements set forth here: |
' | 1. This program is not modified before distribution. |
' | 2. The DnDBBS files are not resold for profit. |
' | 3. The copyware notices are not altered or removed. |
' +------------------------------------------------------------------+
' (C) Copyright 1988, 1989, 1990 Erik J. Oredson, All Rights Reserved.
'

TYPE RMT
LD AS STRING*316
SD AS STRING*78
LV AS INTEGER
DI AS STRING*22
RS AS INTEGER
MC AS INTEGER
ST AS INTEGER
MT AS INTEGER
HT AS INTEGER
ET AS INTEGER
TT AS INTEGER
IT AS INTEGER
KT AS INTEGER
PT AS INTEGER
FT AS INTEGER
OBJ AS STRING*40
OBJX AS STRING*40
VER AS INTEGER
FLG AS INTEGER
OBJZ AS STRING*20
END TYPE

TYPE URT
INV AS STRING*40
INVX AS STRING*40
NM AS STRING*30
PS AS STRING*20
CN AS STRING*20
CT AS INTEGER
ST AS STRING*14
WP AS STRING*8
RM AS INTEGER
LV AS INTEGER
XP AS DOUBLE
GD AS DOUBLE
CL AS INTEGER
FT AS INTEGER
FR AS INTEGER
VT AS INTEGER
VR AS INTEGER
MG AS INTEGER
MR AS INTEGER
PI AS INTEGER
NW AS INTEGER
IV AS INTEGER
RC AS INTEGER
WE AS INTEGER
BK AS DOUBLE
PL AS INTEGER
MN AS SINGLE
BR AS INTEGER
DT AS STRING*10
LN AS INTEGER
PN AS INTEGER
PR AS INTEGER
ALN AS INTEGER
ALG AS INTEGER
FLG AS INTEGER
END TYPE

TYPE SPT
SN AS STRING*30
CH AS STRING*80
LV AS INTEGER
TP AS INTEGER
TL AS INTEGER
PSI AS INTEGER
PSM AS INTEGER
CT AS INTEGER
DS AS STRING*80
DMY AS STRING*54
END TYPE

TYPE MCT
MC AS STRING*20
END TYPE

TYPE OBT
OJ AS STRING*30
SN AS STRING*30
RL AS INTEGER
IV AS INTEGER
JT AS INTEGER
LK AS INTEGER
LC AS INTEGER
PM AS INTEGER
HI AS INTEGER
CO AS INTEGER
KE AS INTEGER
RR AS INTEGER
VE AS INTEGER
VH AS INTEGER
DE AS STRING*128
DT AS STRING*40
TR AS INTEGER
TE AS INTEGER
END TYPE

TYPE MNT
MN AS STRING*30
MP AS STRING*30
TR AS STRING*10
EX AS INTEGER
NM AS INTEGER
LV AS INTEGER
HP AS INTEGER
PI AS INTEGER
LD AS INTEGER
SP AS INTEGER
BL AS INTEGER
PV AS INTEGER
FO AS INTEGER
MG AS INTEGER
JT AS INTEGER
TL AS INTEGER
FL AS INTEGER
PB AS INTEGER
PP AS INTEGER
PS AS INTEGER
PO AS INTEGER
PD AS INTEGER
RT AS INTEGER
PT AS INTEGER
PM AS INTEGER
TK AS STRING*10
PN AS INTEGER
PR AS INTEGER
END TYPE

TYPE TRT
TN AS STRING*30
SN AS STRING*30
WT AS INTEGER
GD AS INTEGER
SP AS INTEGER
PL AS INTEGER
CN AS INTEGER
KE AS INTEGER
SC AS INTEGER
CH AS INTEGER
BX AS INTEGER
BN AS STRING*8
BC AS INTEGER
TT AS INTEGER
PO AS INTEGER
LK AS INTEGER
CO AS INTEGER
LO AS INTEGER
AM AS INTEGER
LD AS INTEGER
IV AS INTEGER
WE AS INTEGER
RG AS INTEGER
RH AS INTEGER
DMY AS STRING*18
END TYPE

TYPE REGTYPE
AX AS INTEGER
BX AS INTEGER
CX AS INTEGER
DX AS INTEGER
BP AS INTEGER
SI AS INTEGER
DI AS INTEGER
FLAGS AS INTEGER
END TYPE

TYPE HLPT
CLR AS INTEGER
TXT AS STRING*78
END TYPE

DEFSTR A-B
DEFINT C-Z
DIM A(30),AX(5),Z(30,2),Z1$(30),Z2$(30),Z2(11,2),RC$(8)
COMMON SHARED INREGS AS REGTYPE,OUTREGS AS REGTYPE,ER,OV
COMMON SHARED AX(),R,RT,O,T,M,S,U,MC,V,Z,Q,X,Y,LL,N,L,N1,Z1$()
COMMON SHARED M1,O1,T1,S1,Z(),A(),X$,W1,U1,J,P,C,D,RL,Z2(),Z2$(),RC$(),ER$
COMMON SHARED RMR AS RMT,URR AS URT,SPR AS SPT,MCR AS MCT,OBR AS OBT
COMMON SHARED MNR AS MNT,TRR AS TRT,HLPR AS HLPT
DEF FNOBJ(X)=CVI(MID$(RMR.OBJ,(X-1)*2+1,2))
DEF FNOBJX(X)=CVI(MID$(RMR.OBJX,(X-1)*2+1,2))
DEF FNDIR(X)=CVI(MID$(RMR.DI,(X-1)*2+1,2))
DEF FNDESC$(X)=MID$(RMR.LD,(X-1)*79+1,79)
DEF FNST(X)=CVI(MID$(URR.ST,(X-1)*2+1,2))
DEF FNWP(X)=CVI(MID$(URR.WP,(X-1)*2+1,2))
DEF FNINV(X)=CVI(MID$(URR.INV,(X-1)*2+1,2))
DEF FNINVX(X)=CVI(MID$(URR.INVX,(X-1)*2+1,2))