| Line | |
|---|
| 1 | unit Names;
|
|---|
| 2 |
|
|---|
| 3 | interface
|
|---|
| 4 |
|
|---|
| 5 | uses
|
|---|
| 6 | Protocol;
|
|---|
| 7 |
|
|---|
| 8 | const
|
|---|
| 9 | Name_Advance: array[0..nAdv - 1] of string =
|
|---|
| 10 | ('Advanced Flight',
|
|---|
| 11 | 'Amphibious Warfare',
|
|---|
| 12 | 'Astronomy',
|
|---|
| 13 | 'Atomic Theory',
|
|---|
| 14 | 'Automobile',
|
|---|
| 15 | 'Ballistics',
|
|---|
| 16 | 'Banking',
|
|---|
| 17 | 'Bridge Building',
|
|---|
| 18 | 'Bronze Working',
|
|---|
| 19 | 'Ceremonial Burial',
|
|---|
| 20 | 'Chemistry',
|
|---|
| 21 | 'Chivalry',
|
|---|
| 22 | 'Composites',
|
|---|
| 23 | 'Code of Laws',
|
|---|
| 24 | 'Combined Arms',
|
|---|
| 25 | 'Combustion Engine',
|
|---|
| 26 | 'Communism',
|
|---|
| 27 | 'Computers',
|
|---|
| 28 | 'Conscription',
|
|---|
| 29 | 'Construction',
|
|---|
| 30 | 'The Corporation',
|
|---|
| 31 | 'Space Flight',
|
|---|
| 32 | 'Currency',
|
|---|
| 33 | 'Democracy',
|
|---|
| 34 | 'Economics',
|
|---|
| 35 | 'Electricity',
|
|---|
| 36 | 'Electronics',
|
|---|
| 37 | 'Engineering',
|
|---|
| 38 | 'Environmentalism',
|
|---|
| 39 | 'The Wheel',
|
|---|
| 40 | 'Explosives',
|
|---|
| 41 | 'Flight',
|
|---|
| 42 | 'Intelligence',
|
|---|
| 43 | 'Gunpowder',
|
|---|
| 44 | 'Horseback Riding',
|
|---|
| 45 | 'Impulse Drive',
|
|---|
| 46 | 'Industrialization',
|
|---|
| 47 | 'Intelligent Arms',
|
|---|
| 48 | 'Invention',
|
|---|
| 49 | 'Iron Working',
|
|---|
| 50 | 'The Laser',
|
|---|
| 51 | 'Nuclear Power',
|
|---|
| 52 | 'Literature',
|
|---|
| 53 | 'Internet',
|
|---|
| 54 | 'Magnetism',
|
|---|
| 55 | 'Map Making',
|
|---|
| 56 | 'Masonry',
|
|---|
| 57 | 'Mass Production',
|
|---|
| 58 | 'Mathematics',
|
|---|
| 59 | 'Medicine',
|
|---|
| 60 | 'Metallurgy',
|
|---|
| 61 | 'Miniaturization',
|
|---|
| 62 | 'Mobile Warfare',
|
|---|
| 63 | 'Monarchy',
|
|---|
| 64 | 'Mysticism',
|
|---|
| 65 | 'Navigation',
|
|---|
| 66 | 'Nuclear Fission',
|
|---|
| 67 | 'Philosophy',
|
|---|
| 68 | 'Physics',
|
|---|
| 69 | 'Plastics',
|
|---|
| 70 | 'Poetry',
|
|---|
| 71 | 'Pottery',
|
|---|
| 72 | 'Radio Communication',
|
|---|
| 73 | 'Recycling',
|
|---|
| 74 | 'Refrigeration',
|
|---|
| 75 | 'Monotheism',
|
|---|
| 76 | 'The Republic',
|
|---|
| 77 | 'Robotics',
|
|---|
| 78 | 'Rocketry',
|
|---|
| 79 | 'Railroad',
|
|---|
| 80 | 'Sanitation',
|
|---|
| 81 | 'Science',
|
|---|
| 82 | 'Writing',
|
|---|
| 83 | 'Seafaring',
|
|---|
| 84 | 'Self-Contained Environment',
|
|---|
| 85 | 'Stealth',
|
|---|
| 86 | 'Steam Engine',
|
|---|
| 87 | 'Steel',
|
|---|
| 88 | 'Synthetic Food',
|
|---|
| 89 | 'Tactics',
|
|---|
| 90 | 'Theology',
|
|---|
| 91 | 'Theory of Gravity',
|
|---|
| 92 | 'Trade',
|
|---|
| 93 | 'Transstellar Colonization',
|
|---|
| 94 | 'University',
|
|---|
| 95 | 'Advanced Rocketry',
|
|---|
| 96 | 'Warrior Code',
|
|---|
| 97 | 'Alphabet',
|
|---|
| 98 | 'Polytheism',
|
|---|
| 99 | 'Refining',
|
|---|
| 100 | 'Computing Technology',
|
|---|
| 101 | 'Nano Technology',
|
|---|
| 102 | 'Material Technology',
|
|---|
| 103 | 'Artificial Intelligence');
|
|---|
| 104 |
|
|---|
| 105 | Name_Improvement: array[0..nImp - 1] of string =
|
|---|
| 106 | ('The Pyramids',
|
|---|
| 107 | 'The Temple of Zeus',
|
|---|
| 108 | 'The Hanging Gardens',
|
|---|
| 109 | 'The Colossus',
|
|---|
| 110 | 'The Lighthouse',
|
|---|
| 111 | 'The Great Library',
|
|---|
| 112 | 'The Oracle',
|
|---|
| 113 | 'Sun Tzu''s War Academy',
|
|---|
| 114 | 'Leonardo''s Workshop',
|
|---|
| 115 | 'Magellan''s Expedition',
|
|---|
| 116 | 'Michelangelo''s Chapel',
|
|---|
| 117 | '*',
|
|---|
| 118 | 'Newton''s College',
|
|---|
| 119 | 'Bach''s Cathedral',
|
|---|
| 120 | '*',
|
|---|
| 121 | 'The Statue of Liberty',
|
|---|
| 122 | 'The Eiffel Tower',
|
|---|
| 123 | 'The Hoover Dam',
|
|---|
| 124 | 'The Shinkansen Express',
|
|---|
| 125 | 'The Manhattan Project',
|
|---|
| 126 | 'MIR Space Station',
|
|---|
| 127 | '*',
|
|---|
| 128 | '*',
|
|---|
| 129 | '*',
|
|---|
| 130 | '*',
|
|---|
| 131 | '*',
|
|---|
| 132 | '*',
|
|---|
| 133 | '*',
|
|---|
| 134 | 'Trade Goods',
|
|---|
| 135 | 'Barracks',
|
|---|
| 136 | 'Granary',
|
|---|
| 137 | 'Temple',
|
|---|
| 138 | 'Marketplace',
|
|---|
| 139 | 'Library',
|
|---|
| 140 | 'Courthouse',
|
|---|
| 141 | 'City Walls',
|
|---|
| 142 | 'Aqueduct',
|
|---|
| 143 | 'Bank',
|
|---|
| 144 | 'Cathedral',
|
|---|
| 145 | 'University',
|
|---|
| 146 | 'Harbor',
|
|---|
| 147 | 'Theater',
|
|---|
| 148 | 'Factory',
|
|---|
| 149 | 'Manufacturing Plant',
|
|---|
| 150 | 'Recycling Center',
|
|---|
| 151 | 'Power Station',
|
|---|
| 152 | 'Hydroelectric Dam',
|
|---|
| 153 | 'Nuclear Plant',
|
|---|
| 154 | 'Offshore Platform',
|
|---|
| 155 | 'Town Hall',
|
|---|
| 156 | 'Sewer System',
|
|---|
| 157 | 'Supermarket',
|
|---|
| 158 | 'Superhighways',
|
|---|
| 159 | 'Research Lab',
|
|---|
| 160 | 'SAM Missile Battery',
|
|---|
| 161 | 'Coastal Fortress',
|
|---|
| 162 | 'Airport',
|
|---|
| 163 | 'Dockyard',
|
|---|
| 164 | 'Palace',
|
|---|
| 165 | 'Great Wall',
|
|---|
| 166 | 'Colosseum',
|
|---|
| 167 | 'Observatory',
|
|---|
| 168 | 'Military Academy',
|
|---|
| 169 | 'Command Bunker',
|
|---|
| 170 | 'Algae Plant',
|
|---|
| 171 | 'Stock Exchange',
|
|---|
| 172 | 'Space Port',
|
|---|
| 173 | 'Colony Ship Component',
|
|---|
| 174 | 'Power Module',
|
|---|
| 175 | 'Habitation Module');
|
|---|
| 176 |
|
|---|
| 177 | Name_Feature: array[0..nFeature - 1] of string =
|
|---|
| 178 | ('Weapons',
|
|---|
| 179 | 'Armor',
|
|---|
| 180 | 'Mobility',
|
|---|
| 181 | 'Sea Transport',
|
|---|
| 182 | 'Carrier',
|
|---|
| 183 | 'Turbines',
|
|---|
| 184 | 'Bombs',
|
|---|
| 185 | 'Fuel',
|
|---|
| 186 | 'Air Transport',
|
|---|
| 187 | 'Navigation',
|
|---|
| 188 | 'Radar / Sonar',
|
|---|
| 189 | 'Submarine',
|
|---|
| 190 | 'Artillery',
|
|---|
| 191 | 'Alpine',
|
|---|
| 192 | 'Supply Ship',
|
|---|
| 193 | 'Overweight',
|
|---|
| 194 | 'Air Defence',
|
|---|
| 195 | 'Spy Plane',
|
|---|
| 196 | 'Steam Power',
|
|---|
| 197 | 'Nuclear Power',
|
|---|
| 198 | 'Jet Engines',
|
|---|
| 199 | 'Stealth',
|
|---|
| 200 | 'Fanatic',
|
|---|
| 201 | 'First Strike',
|
|---|
| 202 | 'Power of Will',
|
|---|
| 203 | 'Academy Training',
|
|---|
| 204 | 'Line Production');
|
|---|
| 205 |
|
|---|
| 206 | Name_TerrainType: array[0..11] of string =
|
|---|
| 207 | ('Ocean',
|
|---|
| 208 | 'Coast',
|
|---|
| 209 | 'Grassland',
|
|---|
| 210 | 'Desert',
|
|---|
| 211 | 'Prairie',
|
|---|
| 212 | 'Tundra',
|
|---|
| 213 | 'Arctic',
|
|---|
| 214 | 'Swamp',
|
|---|
| 215 | '*',
|
|---|
| 216 | 'Forest',
|
|---|
| 217 | 'Hills',
|
|---|
| 218 | 'Mountains');
|
|---|
| 219 |
|
|---|
| 220 | Name_Government: array[0..nGov - 1] of string =
|
|---|
| 221 | ('Anarchy',
|
|---|
| 222 | 'Despotism',
|
|---|
| 223 | 'Monarchy',
|
|---|
| 224 | 'Republic',
|
|---|
| 225 | 'Fundamentalism',
|
|---|
| 226 | 'Communism',
|
|---|
| 227 | 'Democracy',
|
|---|
| 228 | 'Future Society');
|
|---|
| 229 |
|
|---|
| 230 | implementation
|
|---|
| 231 |
|
|---|
| 232 | end.
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
