home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.pdx.edu / 2014.02.ftp.ee.pdx.edu.tar / ftp.ee.pdx.edu / pub / frp / traveller / TravMap116.lzx / UWP.rexx < prev   
OS/2 REXX Batch file  |  1989-02-14  |  8KB  |  171 lines
  1. /* UWPReader : Universal World Profile translator */
  2. /* Copyright 1995 Pierre-Louis Constantin         */
  3. /* Usage:                                         */
  4. /*       rx UWP.rexx Name Hex UWP Bases Trade Travel Misc Allegiance */
  5. /*       or can be called from the Traveller Mapper program         */
  6.  
  7. /* Prends Parametres */
  8. parse ARG Name Hex UWP Bases Trade Travel Misc Allegiance
  9. call open fen,"con:0/0/590/110/Universal Planetary Profile v0.2/SCREENMapper"
  10.  
  11. SIGNAL ON error
  12. signal on syntax
  13.  
  14. call writeln fen,Name Hex
  15. u1 = substr(UWP,1,1)
  16. select
  17.     when u1='A' then descr="Excellent Starships Overhaul Refined"
  18.     when u1='B' then descr="Good Spacecraf Overhaul Refined"
  19.     when u1='C' then descr="Routine - Major Damage Unrefined"
  20.     when u1='D' then descr="Poor - Minor Damage Unrefined"
  21.     when u1='E' then descr="Frontier"
  22.     when u1='X' then descr="None"
  23.     otherwise descr=substr(UWP,1,1)
  24. end
  25. call writeln fen,"Spaceport: "descr
  26. u1 = substr(UWP,2,1)
  27. select
  28.     when u1 = 'R' then descr="Asteroid/Planetoid Ring Multiple Bodies <1 km"
  29.     when u1 = 'S' then descr="Very Small (400 km) 200-799 km"
  30.     when u1=0 then descr="Asteroid/Planetoid Belt Multiple Bodies < 200 km"
  31.     when u1=1 then descr="Small                 800-2399 km"
  32.     when u1=2 then descr="Small (Luna:3200 km) 2400-3999 km"
  33.     when u1=3 then descr="Small (Mercury:4800km) 4000-5599 km"
  34.     when u1=4 then descr="Small (Mars:6400km) 5600-7199 km"
  35.     when u1=5 then descr="Medium              7200-8799 km"
  36.     when u1=6 then descr="Medium              8800-10399 km"
  37.     when u1=7 then descr="Medium             10400-11999 km"
  38.     when u1=8 then descr="Large (Terra: 12800 km) 12000-13599 km"
  39.     when u1=9 then descr="Large                   13600-15199 km"
  40.     when u1='A' then descr="Large                 15200-16799 km"
  41.     otherwise descr=substr(UWP,2,1)
  42. end
  43. call writeln fen, "Size: "descr
  44. u1 = substr(UWP,3,1)
  45. select
  46.     when u1=0 then descr="Vacuum               0.00"
  47.     when u1=1 then descr="Vacuum (Trace) 0.001-0.09"
  48.     when u1=2 then descr="Vacuum (very thin tainted) 0.10-0.42"
  49.     when u1=3 then descr="Vacuum (very thin)         0.10-0.42"
  50.     when u1=4 then descr="Thin (tainted)             0.43-0.70"
  51.     when u1=5 then descr="Thin                       0.43-0.70"
  52.     when u1=6 then descr="Standard                   0.71-1.49"
  53.     when u1=7 then descr="Standard (tainted)         0.71-1.49"
  54.     when u1=8 then descr="Dense                      1.50-2.49"
  55.     when u1=9 then descr="Dense (tainted)            1.50-2.49"
  56.     when u1='A' then descr="Exotic                   varies"
  57.     when u1='B' then descr="Exotic (corrosive)       varies"
  58.     when u1='C' then descr="Exotic (insidious)       varies"
  59.     when u1='D' then descr="Exotic (dense,high)      varies"
  60.     when u1='E' then descr="Exotic (ellipsoid)       varies"
  61.     when u1='F' then descr="Exotic (thin, low)       varies"
  62.     otherwise descr=substr(UWP,3,1)
  63. end
  64. call writeln fen, "Athmosphere: "descr
  65. u1=substr(UWP,4,1)
  66. u1=x2d(u1)*10
  67. descr = "Wet"
  68. if u1 = 0 then descr = "Desert"
  69. if u1 = 10 | u1 = 20 then descr = "Dry"
  70. if u1 = 100 then descr = "Water"
  71. call writeln fen, "Hydrography: "descr" World "u1" %"
  72. u1 = substr(UWP,5,1)
  73.  
  74. select
  75.     when u1=0 then descr="Low <10"
  76.     when u1=1 then descr="Low (10-99)"
  77.     when u1=2 then descr="Low (100-999)"
  78.     when u1=3 then descr="Low (1000-9999)"
  79.     when u1=4 then descr="Mod (10000-99999)"
  80.     when u1=5 then descr="Mod (100000-999999)"
  81.     when u1=6 then descr="Mod (1000000-9999999)"
  82.     when u1=7 then descr="Mod (10000000-99999999)"
  83.     when u1=8 then descr="Mod (100000000-999999999)"
  84.     when u1=9 then descr="High (1000000000-9999999999)"
  85.     when u1='A' then descr="High (10000000000-999999999999)"
  86.     otherwise descr=substr(UWP,5,1)
  87. end
  88. call writeln fen, "Population: "descr
  89. u1 = substr(UWP,6,1)
  90. select
  91.     when u1=0 then descr="No Government Structure: Family bonds predominate."
  92.     when u1=1 then descr="Compagny/Corporation: Citizens are employee."
  93.     when u1=2 then descr="Participating Democracy: Consent of citizen."
  94.     when u1=3 then descr="Self-perpetuating Oligarchy: Restricted minority."
  95.     when u1=4 then descr="Representative Oligarchy: Selected representatives."
  96.     when u1=5 then descr="Feudal Technocracy: Exchange of activities."
  97.     when u1=6 then descr="Captive Government/Colony: Conquered."
  98.     when u1=7 then descr="Balkanization: Rival governments compete."
  99.     when u1=8 then descr="Civil Service Bureaucracy"
  100.     when u1=9 then descr="Impersonal Bureaucracy: Insulated from government."
  101.     when u1='A' then descr="Charismatic Dictator: Confidence of citizens."
  102.     when u1='B' then descr="Non-charismatic leader:Replaced normally."
  103.     when u1='C' then descr="Charismatic Oligarchy: Overwhelming confidence."
  104.     when u1='D' then descr="Religious Dictatorship:little regars for cits."
  105.     when u1='E' then descr="Religious Autocracy:Single leader."
  106.     when u1='F' then descr="Totalitarian Autocracy:coercion and oppression."
  107.     otherwise descr=substr(UWP,6,1)
  108. end
  109. call writeln fen, "Government: "descr
  110. u1 = substr(UWP,7,1)
  111. select
  112.     when u1=0 then descr="No law (no prohibition)"
  113.     when u1=1 then descr="Low law (body pistol, explosives, poison gas)"
  114.     when u1=2 then descr="Low law (portable energy weapons prohibited)"
  115.     when u1=3 then descr="Low law (machineguns, automatic rifles prohibited)"
  116.     when u1=4 then descr="Mod law (light assault weapons)"
  117.     when u1=5 then descr="Mod law (personal concealable weapons)"
  118.     when u1=6 then descr="Mod law (all firearms except sidearms)"
  119.     when u1=7 then descr="Mod law (shotguns prohibited)"
  120.     when u1=8 then descr="Hi law (blade weapons controlled, no open display)"
  121.     when u1=9 then descr="Hi law (weapon outside the home prohibited)"
  122.     when u1='A' then descr="Extreme law (weapon possession prohibited)"
  123.     when u1='B' then descr="Extreme law (rigid control of civilian movement)"
  124.     when u1='C' then descr="Extreme law (unrestricted invasion of privacy)"
  125.     when u1='D' then descr="Extreme law (paramilitary law enforcement)"
  126.     when u1='E' then descr="Extreme law (full-fledged police state)"
  127.     when u1='F' then descr="Extreme law (all facets of daily life controlled)"
  128.     when u1='G' then descr="Extreme law (severe punishment for petty infractions)"
  129.     when u1='H' then descr="Extreme law (legalized oppressive practices)"
  130.     when u1='J' then descr="Extreme law (routinely oppressive and restrictive)"
  131.     when u1='K' then descr="Extreme law (exccessively oppressive and restrictive)"
  132.     when u1='L' then descr="Extreme law (totally oppresive and restrictive)"
  133.     otherwise descr=substr(UWP,7,1)
  134. end
  135. call writeln fen, "Law level: "descr
  136. u1 = substr(UWP,9,1)
  137. select
  138.     when u1=0 then descr="Pre-Industrial (primitive) Stone Age"
  139.     when u1=1 then descr="Pre-Industrial (bronze,iron) middle ages"
  140.     when u1=2 then descr="Pre-Industrial (printing press) circa 1600"
  141.     when u1=3 then descr="Pre-Industrial (basic science) circa 1800"
  142.     when u1=4 then descr="Industrial (int. combustion) circa 1900"
  143.     when u1=5 then descr="Industrial (mass production) circa 1930"
  144.     when u1=6 then descr="Pre-Stellar (nuclear power) circa 1950"
  145.     when u1=7 then descr="Pre-Stellar (mini. electronics) circa 1970"
  146.     when u1=8 then descr="Pre-Stellar (superconductors) circa 1990"
  147.     when u1=9 then descr="Early Stellar (fusion power) circa 2010"
  148.     when u1='A' then descr="Early Stellar (jump drive) circa 2100"
  149.     when u1='B' then descr="Average Stellar (large starships)"
  150.     when u1='C' then descr="Average Stellar (sophisticated robots)"
  151.     when u1='D' then descr="Average Stellar (holo data storage) The Imperium"
  152.     when u1='E' then descr="High Stellar (anti-grav cities)"
  153.     when u1='F' then descr="High Stellar (anagathics)"
  154.     when u1='G' then descr="High Stellar (global terraforming)"
  155.     when u1='H' then descr="Extreme Stellar"
  156.     when u1='J' then descr="Extreme Stellar"
  157.     when u1='K' then descr="Extreme Stellar"
  158.     when u1='L' then descr="Extreme Stellar the Ancients"
  159.     otherwise descr=substr(UWP,9,1)
  160. end
  161. call writeln fen, "Tech Level: "descr
  162. call writeln fen,"-- Press a key to continue --"
  163. bitbucket = readln(fen)
  164. exit 0
  165.  
  166. error:
  167. syntax:
  168.         call writeln fen,"-- Error! Press a key to continue --"
  169.         bitbucket = readln(fen)
  170. exit 0
  171.