home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / MISC / DNDOOR46.ZIP / DNDCNVT.INC < prev    next >
Text File  |  2001-07-11  |  4KB  |  182 lines
  1. rem include file for conversion program.
  2. defint a-z
  3. rem $dynamic
  4.  
  5. Type NewContainerType
  6.  Closed As Integer
  7.  ContainerName As String*30
  8.  Locked As Integer
  9.  Keyed As Integer
  10.  ShortName As String*30
  11.  Charges(1 To 5) As Integer
  12.  Inventory(1 To 5) As Integer
  13.  Invisible(1 To 5) As Integer
  14.  TreasureName(1 To 5) As String*30
  15.  Permanent As Integer ' this is the new container attribute!
  16. End Type
  17.  
  18. Type NewRoomType
  19.  Action As Integer
  20.  Direct(1 To 12) As Single
  21.  Flags(1 To 20) As Integer
  22.  LongDesc(1 To 5) As String*80
  23.  MonsterClass As Integer
  24.  Object(1 To 20) As Integer
  25.  ObjCharges(1 To 20) As Integer
  26.  ShortDesc As String*80
  27.  Treasure(1 To 20) As Integer
  28.  TreCharges(1 To 20) As Integer
  29.  Container As NewContainerType
  30. End Type
  31.  
  32. Type NewUserType
  33.  CodeName As String*30
  34.  PassWord As String*20
  35.  ClassName As String*20
  36.  ClassType As Integer
  37.  Container(1 To 3) As NewContainerType
  38.  Inv(1 To 20) As Integer
  39.  Charges(1 To 20) As Integer
  40.  Object(1 To 20) As Integer
  41.  ObjCharges(1 To 20) As Integer
  42.  Stats(1 To 7) As Integer
  43.  Weapons(1 To 4) As Integer
  44.  Room As Single
  45.  Level As Integer
  46.  Experience As Double
  47.  Gold As Double
  48.  NumCalls As Integer
  49.  Fatigue As Integer
  50.  FatigueMax As Integer
  51.  Vitality As Integer
  52.  VitalityMax As Integer
  53.  Magic As Integer
  54.  MagicMax As Integer
  55.  Poison As Integer
  56.  Borrow As Double
  57.  Invisible As Integer
  58.  Race As Integer
  59.  Proficiency As Integer
  60.  Bank As Double
  61.  Sort As Integer
  62.  MonstersKilled As Single
  63.  Brief As Integer
  64.  DateOn As String*10
  65.  Beauty As Integer
  66.  Glamour As Integer
  67.  Psionic As Integer
  68.  PsionicMax As Integer
  69.  Align1 As Integer
  70.  Align2 As Integer
  71.  Flags As Integer
  72.  MaxCalls As Integer
  73.  FromHour As Integer
  74.  FromMin As Integer
  75.  ToHour As Integer
  76.  ToMin As Integer
  77.  Echo As Integer
  78.  LastMessage As Integer
  79.  Linefeeds As Integer
  80.  Linelength As Integer
  81.  Pagelength As Integer
  82.  Wordwrap As Integer
  83. End Type
  84.  
  85. Type OldContainerType
  86.  Closed As Integer
  87.  ContainerName As String*30
  88.  Locked As Integer
  89.  Keyed As Integer
  90.  ShortName As String*30
  91.  Charges(1 To 5) As Integer
  92.  Inventory(1 To 5) As Integer
  93.  Invisible(1 To 5) As Integer
  94.  TreasureName(1 To 5) As String*30
  95. End Type
  96.  
  97. Type OldRoomType
  98.  Action As Integer
  99.  Direct(1 To 12) As Single
  100.  Flags(1 To 20) As Integer
  101.  LongDesc(1 To 5) As String*80
  102.  MonsterClass As Integer
  103.  Object(1 To 20) As Integer
  104.  ObjCharges(1 To 20) As Integer
  105.  ShortDesc As String*80
  106.  Treasure(1 To 20) As Integer
  107.  TreCharges(1 To 20) As Integer
  108.  Container As OldContainerType
  109. End Type
  110.  
  111. Type OldUserType
  112.  CodeName As String*30
  113.  PassWord As String*20
  114.  ClassName As String*20
  115.  ClassType As Integer
  116.  Container(1 To 3) As OldContainerType
  117.  Inv(1 To 20) As Integer
  118.  Charges(1 To 20) As Integer
  119.  Object(1 To 20) As Integer
  120.  ObjCharges(1 To 20) As Integer
  121.  Stats(1 To 7) As Integer
  122.  Weapons(1 To 4) As Integer
  123.  Room As Single
  124.  Level As Integer
  125.  Experience As Double
  126.  Gold As Double
  127.  NumCalls As Integer
  128.  Fatigue As Integer
  129.  FatigueMax As Integer
  130.  Vitality As Integer
  131.  VitalityMax As Integer
  132.  Magic As Integer
  133.  MagicMax As Integer
  134.  Poison As Integer
  135.  Borrow As Double
  136.  Invisible As Integer
  137.  Race As Integer
  138.  Proficiency As Integer
  139.  Bank As Double
  140.  Sort As Integer
  141.  MonstersKilled As Single
  142.  Brief As Integer
  143.  DateOn As String*10
  144.  Beauty As Integer
  145.  Glamour As Integer
  146.  Psionic As Integer
  147.  PsionicMax As Integer
  148.  Align1 As Integer
  149.  Align2 As Integer
  150.  Flags As Integer
  151.  MaxCalls As Integer
  152.  FromHour As Integer
  153.  FromMin As Integer
  154.  ToHour As Integer
  155.  ToMin As Integer
  156.  Echo As Integer
  157.  LastMessage As Integer
  158.  Linefeeds As Integer
  159.  Linelength As Integer
  160.  Pagelength As Integer
  161.  Wordwrap As Integer
  162. End Type
  163.  
  164. Common Shared OldContainerRec As OldContainerType
  165. Common Shared OldContainerRecLen As Integer
  166.  
  167. Common Shared NewContainerRec As NewContainerType
  168. Common Shared NewContainerRecLen As Integer
  169.  
  170. Common Shared OldRoomRec As OldRoomType
  171. Common Shared OldRoomRecLen As Integer
  172.  
  173. Common Shared NewRoomRec As NewRoomType
  174. Common Shared NewRoomRecLen As Integer
  175.  
  176. Common Shared OldUserRec As OldUserType
  177. Common Shared OldUserRecLen As Integer
  178.  
  179. Common Shared NewUserRec As NewUserType
  180. Common Shared NewUserRecLen As Integer
  181.  
  182.