home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / DOORS / GT3_B12.ZIP / TPSTRUC.ZIP / GT3STRUC.PAS next >
Encoding:
Pascal/Delphi Source File  |  1990-08-11  |  1.6 KB  |  80 lines
  1. {$L-}
  2. {$D-}
  3. {$O+}
  4. {$F+}
  5.  
  6. { Ghost Town 3 - The Final Draw }
  7.  
  8. Unit Gt3Struc;
  9.  
  10. Interface
  11.  
  12. Uses Dos;
  13.  
  14. Const
  15.   Version    = 'v.05';
  16.   CowboyData = 'GT3USER.DAT';
  17.   MapData    = 'GT3MAP.DAT';
  18.   CampData   = 'GT3CAMP.DAT';
  19.  
  20. Type
  21.   Terrain_Type = (Swamp,Desert,River,Forest,Mountains,Hole,Road,Grave,
  22.                   Grassland,Brush,Town);
  23.  
  24.   Camp_Rec = Record
  25.           CName:String[32];
  26.         MenProd:LongInt;
  27.           MenIn:LongInt;
  28.           Owner:Integer;
  29.        CLPlayer:String[32];
  30.   End;
  31.  
  32.   Direction_Rec = Record
  33.        North,South,East,West:Byte;
  34.   End;
  35.  
  36.   MapPointer = ^Map_Rec;
  37.   Map_Rec = Record
  38.         Terrain:Terrain_Type;
  39.            Ways:Direction_Rec;
  40.           MGold:LongInt;
  41.           MCamp:LongInt;
  42.           Owner:Integer;
  43.            MMen:LongInt;
  44.        MLPlayer:String[32];
  45.        Pioneers:Boolean;
  46.   End;
  47.  
  48.   Player_Rec = Record
  49.        RealName:String[32];
  50.      PlayerName:String[32];
  51.        LastDate:String[10];
  52.           PGold:LongInt;
  53.           Horse:Boolean;
  54.            Dead:Boolean;
  55.           Turns:Integer;
  56.            PMen:LongInt;
  57.              PX:Integer;    { Starting 8 }
  58.              PY:Integer;    { Starting 1 }
  59.           Line1:String[78];
  60.           Line2:String[78];
  61.           Line3:String[78];
  62.           Line4:String[78];
  63.           Line5:String[78];
  64.   End;
  65.   
  66. Var
  67.   PlayerFile:File Of Player_Rec;
  68.   MapFile:File Of Map_Rec;
  69.   CampFile:File Of Camp_Rec;
  70.   CampNum,CurPlayer:Integer;
  71.   InitItem:MapPointer;
  72.   Cur_Plyr,Enemy,Player1,Player2,Player3:Player_Rec;
  73.   Map1,Map2,Map3,Map4,Map5,Map6:Map_Rec;
  74.   Camp1,Camp2,Camp3,Camp4,Camp5:Camp_Rec;
  75.  
  76. Implementation
  77.  
  78. Begin
  79. End.
  80.