| 1 | unit Names;
|
|---|
| 2 |
|
|---|
| 3 | interface
|
|---|
| 4 |
|
|---|
| 5 | uses
|
|---|
| 6 | Protocol;
|
|---|
| 7 |
|
|---|
| 8 | const
|
|---|
| 9 |
|
|---|
| 10 | Name_Advance: array [0 .. nAdv - 1] of string = ('Advanced Flight',
|
|---|
| 11 | 'Amphibious Warfare', 'Astronomy', 'Atomic Theory', 'Automobile',
|
|---|
| 12 | 'Ballistics', 'Banking', 'Bridge Building', 'Bronze Working',
|
|---|
| 13 | 'Ceremonial Burial', 'Chemistry', 'Chivalry', 'Composites', 'Code of Laws',
|
|---|
| 14 | 'Combined Arms', 'Combustion Engine', 'Communism', 'Computers',
|
|---|
| 15 | 'Conscription', 'Construction', 'The Corporation', 'Space Flight',
|
|---|
| 16 | 'Currency', 'Democracy', 'Economics', 'Electricity', 'Electronics',
|
|---|
| 17 | 'Engineering', 'Environmentalism', 'The Wheel', 'Explosives', 'Flight',
|
|---|
| 18 | 'Intelligence', 'Gunpowder', 'Horseback Riding', 'Impulse Drive',
|
|---|
| 19 | 'Industrialization', 'Intelligent Arms', 'Invention', 'Iron Working',
|
|---|
| 20 | 'The Laser', 'Nuclear Power', 'Literature', 'Internet', 'Magnetism',
|
|---|
| 21 | 'Map Making', 'Masonry', 'Mass Production', 'Mathematics', 'Medicine',
|
|---|
| 22 | 'Metallurgy', 'Miniaturization', 'Mobile Warfare', 'Monarchy', 'Mysticism',
|
|---|
| 23 | 'Navigation', 'Nuclear Fission', 'Philosophy', 'Physics', 'Plastics',
|
|---|
| 24 | 'Poetry', 'Pottery', 'Radio Communication', 'Recycling', 'Refrigeration',
|
|---|
| 25 | 'Monotheism', 'The Republic', 'Robotics', 'Rocketry', 'Railroad',
|
|---|
| 26 | 'Sanitation', 'Science', 'Writing', 'Seafaring',
|
|---|
| 27 | 'Self-Contained Environment', 'Stealth', 'Steam Engine', 'Steel',
|
|---|
| 28 | 'Synthetic Food', 'Tactics', 'Theology', 'Theory of Gravity', 'Trade',
|
|---|
| 29 | 'Transstellar Colonization', 'University', 'Advanced Rocketry',
|
|---|
| 30 | 'Warrior Code', 'Alphabet', 'Polytheism', 'Refining',
|
|---|
| 31 | 'Computing Technology', 'Nano Technology', 'Material Technology',
|
|---|
| 32 | 'Artificial Intelligence');
|
|---|
| 33 |
|
|---|
| 34 | Name_Improvement: array [0 .. nImp - 1] of string = ('The Pyramids',
|
|---|
| 35 | 'The Temple of Zeus', 'The Hanging Gardens', 'The Colossus',
|
|---|
| 36 | 'The Lighthouse', 'The Great Library', 'The Oracle',
|
|---|
| 37 | 'Sun Tzu''s War Academy', 'Leonardo''s Workshop', 'Magellan''s Expedition',
|
|---|
| 38 | 'Michelangelo''s Chapel', '*', 'Newton''s College', 'Bach''s Cathedral',
|
|---|
| 39 | '*', 'The Statue of Liberty', 'The Eiffel Tower', 'The Hoover Dam',
|
|---|
| 40 | 'The Shinkansen Express', 'The Manhattan Project', 'MIR Space Station', '*',
|
|---|
| 41 | '*', '*', '*', '*', '*', '*', 'Trade Goods', 'Barracks', 'Granary',
|
|---|
| 42 | 'Temple', 'Marketplace', 'Library', 'Courthouse', 'City Walls', 'Aqueduct',
|
|---|
| 43 | 'Bank', 'Cathedral', 'University', 'Harbor', 'Theater', 'Factory',
|
|---|
| 44 | 'Manufacturing Plant', 'Recycling Center', 'Power Station',
|
|---|
| 45 | 'Hydroelectric Dam', 'Nuclear Plant', 'Offshore Platform', 'Town Hall',
|
|---|
| 46 | 'Sewer System', 'Supermarket', 'Superhighways', 'Research Lab',
|
|---|
| 47 | 'SAM Missile Battery', 'Coastal Fortress', 'Airport', 'Dockyard', 'Palace',
|
|---|
| 48 | 'Great Wall', 'Colosseum', 'Observatory', 'Military Academy',
|
|---|
| 49 | 'Command Bunker', 'Algae Plant', 'Stock Exchange', 'Space Port',
|
|---|
| 50 | 'Colony Ship Component', 'Power Module', 'Habitation Module');
|
|---|
| 51 |
|
|---|
| 52 | Name_Feature: array [0 .. nFeature - 1] of string = ('Weapons', 'Armor',
|
|---|
| 53 | 'Mobility', 'Sea Transport', 'Carrier', 'Turbines', 'Bombs', 'Fuel',
|
|---|
| 54 | 'Air Transport', 'Navigation', 'Radar / Sonar', 'Submarine', 'Artillery',
|
|---|
| 55 | 'Alpine', 'Supply Ship', 'Overweight', 'Air Defence', 'Spy Plane',
|
|---|
| 56 | 'Steam Power', 'Nuclear Power', 'Jet Engines', 'Stealth', 'Fanatic',
|
|---|
| 57 | 'First Strike', 'Power of Will', 'Academy Training', 'Line Production');
|
|---|
| 58 |
|
|---|
| 59 | Name_TerrainType: array [0 .. 11] of string = ('Ocean', 'Coast', 'Grassland',
|
|---|
| 60 | 'Desert', 'Prairie', 'Tundra', 'Arctic', 'Swamp', '*', 'Forest', 'Hills',
|
|---|
| 61 | 'Mountains');
|
|---|
| 62 |
|
|---|
| 63 | Name_Government: array [0 .. nGov - 1] of string = ('Anarchy', 'Despotism',
|
|---|
| 64 | 'Monarchy', 'Republic', 'Fundamentalism', 'Communism', 'Democracy',
|
|---|
| 65 | 'Future Society');
|
|---|
| 66 |
|
|---|
| 67 | implementation
|
|---|
| 68 |
|
|---|
| 69 | end.
|
|---|
