home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / DND29C4.ZIP / SOURCE.ZIP / ARRAY.INC next >
Text File  |  1993-01-04  |  2KB  |  82 lines
  1.  Rem array.inc v2.9c
  2.  
  3. Dim_
  4.  Alignment.Name1(1 To 3) As String*7,_
  5.  Alignment.Name2(1 To 3) As String*7,_
  6.  Array.Data(1 To 35,1 To 2) As Integer,_
  7.  Class.Name(1 To 10) As String*15,_
  8.  Config1(1 To 30) As Single,_
  9.  Config2(1 To 85) As Integer,_
  10.  Config3(1 To 77) As String,_
  11.  Direction(1 To 11) As String*9,_
  12.  Edit.Data(1 To 5) As String,_
  13.  High.Class.Name(1 To 10) As String*15,_
  14.  Link.Data(1 To 11,1 To 2) As Integer,_
  15.  Menu1(1 To 10) As String*20,_
  16.  Menu2(1 To 10,1 To 2) As Integer,_
  17.  Node.Work.Array1(1 To 36) As String,_
  18.  Node.Work.Array2(1 To 36) As Integer,_
  19.  Numeral(1 To 10) As String*5,_
  20.  Race(1 To 8) As String*8,_
  21.  Room.Array(1 To 16) As String,_
  22.  Stat(1 To 7) As String*12,_
  23.  Strip.Data(1 To 70) As String*10,_
  24.  Title.Data(1 To 35) As String,_
  25.  Training.Room(1 To 10,1 To 4) As Integer,_
  26.  Weapon.Type.Name(1 To 4) As String*9
  27.  
  28. Rem $Dynamic
  29.  
  30. Common Shared_
  31.  Alignment.Name1() As String*7,_
  32.  Alignment.Name2() As String*7,_
  33.  Array.Data() As Integer,_
  34.  Class.Name() As String*15,_
  35.  Config1() As Single,_
  36.  Config2() As Integer,_
  37.  Config3() As String,_
  38.  Direction() As String*9,_
  39.  Edit.Data() As String,_
  40.  High.Class.Name() As String*15,_
  41.  Link.Data() As Integer,_
  42.  Menu1() As String*20,_
  43.  Menu2() As Integer,_
  44.  Node.Work.Array1() As String,_
  45.  Node.Work.Array2() As Integer,_
  46.  Numeral() As String*5,_
  47.  Race() As String*8,_
  48.  Room.Array() As String,_
  49.  Stat() As String*12,_
  50.  Strip.Data() As String*10,_
  51.  Title.Data() As String,_
  52.  Training.Room() As Integer,_
  53.  Weapon.Type.Name() As String*9
  54.  
  55. Common Shared_
  56.  Command.Set1() As String*12,_
  57.  Command.Set2() As String*12,_
  58.  Learned.Spells() As Integer,_
  59.  MonsterArray() As MonsterType,_
  60.  MonsterIndex() As Integer,_
  61.  Monster.Class() As Integer,_
  62.  Monster.Percent() As Integer,_
  63.  Monster.Rate() As Integer,_
  64.  NonplyrsArray() As String*30,_
  65.  Room.Inventory() As Integer,_
  66.  Room.Inventory.Charges() As Integer,_
  67.  SpellArray() As SpellType,_
  68.  Sysop.Commands1() As String*10,_
  69.  Sysop.Commands2() As String*10,_
  70.  Temp.Array1() As Integer,_
  71.  Temp.Array2() As Integer,_
  72.  Temp.ArrayX() As Single,_
  73.  Temp.ArrayS() As String,_
  74.  Temp.ArrayZ() As Double,_
  75.  Treasure() As Integer,_
  76.  Treasure.Charges() As Integer,_
  77.  UserArray() As UserType,_
  78.  UserIndex() As Integer,_
  79.  User.Array1() As Integer,_
  80.  User.Array2() As Integer,_
  81.  User.Array3() As Integer
  82.