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

 
Output of file : DNDAUX.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 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 UserType
Inventory As String*40
InventoryCharges As String*40
CodeName As String*30
PassWord As String*20
ClassName As String*20
ClassType As Integer
Stats As String*14
Weapons As String*8
Room As Integer
Level As Integer
Experience As Double
Gold As Double
NumCalls As Integer
Fatigue As Integer
FatigueMax As Integer
Vitality As Integer
VitalityMax As Integer
Magic As Integer
MagicMax As Integer
Poison As Integer
LastMessage As Integer
Invisible As Integer
Race As Integer
Proficiency As Integer
Bank As Double
PlayersKilled As Integer
MonstersKilled As Single
Brief As Integer
DateOn As String*10
Linefeed As Integer
Psionic As Integer
PsionicMax As Integer
Align1 As Integer
Align2 As Integer
Flags As Integer
End Type

Type MessageType
Message As String*81
End Type

Type TableType
MessageTime As String*21
MessageFrom As String*30
MessageTo As String*30
MessageSubject As String*20
MessageLength As Integer
MessageKilled As String*1
MessageStart As Integer
End Type

Type NodeType
LocalMode As Integer
UserIndex As Integer
ColorGraphics As Integer
Room As Integer
TimeOn As Single
TimeLeft As Single
Shelled As Integer
Remote as Integer
RoomMax As Integer
InventoryMax As Integer
MonstersMax As Integer
NumberMonsters As Integer
Inventory As Integer
Port As Integer
Fossil As Integer
ModemPort As Integer
TimeLoggedIn As String*8
Weapon1 As Integer
Weapon2 As Integer
Weapon3 As Integer
Weapon4 As Integer
Weapon5 As Integer
Weapon6 As Integer
Weapon7 As Integer
Weapon8 As Integer
Weapon9 As Integer
Weapon10 As Integer
Auxiliary As Integer
LastCommand As Integer
ParsedCommand as String*20
End Type

DefStr A-B
DefInt C-Z

Dim AlignmentName1$(3),_
AlignmentName2$(3),_
ClassName$(10),_
Config!(29),_
Config(65),_
Config$(53),_
Direction$(11),_
NodeWorkArray1$(9),_
NodeWorkArray2(9),_
Numeral$(10),_
Race$(8),_
RoomArray$(16),_
Stat$(7),_
TrainingRoom(10,4),_
WeaponTypeName$(4)

Common Shared AlignmentName1$(),_
AlignmentName2$(),_
All.Commands() As String*30,_
All.Commands2() As String*30,_
All.MonsterNames() As String*30,_
AllowBreak%,_
Alt.Mess$,_
Break%,_
CarriageReturn,_
Chat,_
Choice,_
ClassName$(),_
Color.Code,_
Color.Graphics,_
Config!(),_
Config$(),_
Config(),_
Data.Error$,_
Data.Error,_
Debug,_
Direction$(),_
Direction,_
Disk.Log.Filename$,_
Disk.Log.On,_
DnD.Path$,_
Door.Time!,_
Dungeon.Master,_
Dungeon.Master.Assistant,_
Echo,_
Exit$,_
Exit.Function,_
Extension$,_
Fossil.Active,_
Graphics.Off,_
Hidden.Player,_
Hide,_
Inregs As RegType,_
Last.Command$,_
Last.Command,_
Last.Command.Type,_
LineLength,_
Local.Mode,_
Magic.Spell,_
Mess$,_
Message1$,_
Message2$,_
MessageRecord As MessageType,_
Modem.Out$,_
Modem.Port,_
Monclass.Max,_
Monster(2),_
Monster.Rate,_
Monster.Rate2,_
Monster.Temp,_
MonsterClass() As String*20,_
MonsterPercent(2),_
MonsterRate(2),_
MonsterTreasure(2),_
Multiplier,_
New.Room,_
Next.Room,_
No,_
NoEcho,_
NoInput,_
Node$,_
Node,_
Node2$,_
NodeRecord As NodeType,_
NodeWorkArray1$(),_
NodeWorkArray2(),_
Noden,_
Normal.User,_
Null.Errors,_
Number.Appearing,_
Number.Inventory,_
Number.Monsters,_
Number.MonstersMax,_
Numeral$(),_
Out$,_
Out2$,_
Out3$,_
Out4$,_
Outregs As RegType,_
Overflow,_
Parse.Temp,_
Parsed.Command$,_
Parsed.Command2$,_
Parser,_
PassDoor,_
Port,_
Prefix1$,_
Prefix2$,_
Previous.Command,_
Printer.On,_
Psi.Attack.Mode,_
Psi.Defense.Mode,_
Race$(),_
Room,_
Room.Health.Rate,_
Room.Monster.Rate,_
Room.Rate,_
Room.Treasure.Max,_
RoomArray$(),_
RoomInventory(1),_
RoomInventoryCharges(1),_
Security.Guard,_
Stat$(),_
Stored.Parsed.Command$,_
Stored.Parsed.Command2$,_
TableRecord As TableType,_
Temp1,_
Temp2,_
Temp3,_
Temp4,_
Temp5,_
Temp6,_
Temp7,_
Temp9,_
TempArray(1),_
TempArray2(1),_
Time.Left!,_
Time.On!,_
Time.On$,_
Token,_
Token.Index,_
TrainingRoom(),_
Treasure(1),_
Treasure.Max,_
TreasureCharges(1),_
TwoMinutesLeft,_
Type.Ahead$,_
UserArray1(1),_
UserArray2(1),_
UserArray3(1),_
UserIndex,_
UsersMax,_
UserRecord As UserType,_
Vehicle1,_
Vehicle2,_
Vehicle3,_
Weapon1,_
Weapon10,_
Weapon2,_
Weapon3,_
Weapon4,_
Weapon5,_
Weapon6,_
Weapon7,_
Weapon8,_
WeaponTypeName$(),_
WeaponsList(1),_
Weight,_
WordWrap,_
Yes

Def FNstat(Temp)=Cvi(Mid$(UserRecord.Stats,(Temp-1)*2+1,2))

Def FNdatetime$
Temp$=Right$(Date$,2)+" "
Temp$=Temp$+Mid$("JanFebMarAprMayJunJulAugSepOctNovDec",Val(Left$(Date$,2))*3-2,3)
Temp$=Temp$+" "+Mid$(Date$,4,2)+","
Temp=Val(Left$(Time$,2))
Temp2$=Mid$(" am pm",(1-(Temp>12))*3-2,3)
Temp=Temp+12*(Temp>12)-12*(Temp=0)
Temp2$=" "+Temp$+Str$(Temp)+Mid$(Time$,3,3)+Temp2$
FNdatetime$=Temp2$
End Def

Const False=0
Const True=-1
Const TruePlus=1