home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / BBS_GAME / LOD400E.ZIP / PROGRAMR.ZIP / MAKE0.PAS < prev    next >
Pascal/Delphi Source File  |  1994-01-05  |  8KB  |  251 lines
  1. unit make0;
  2.  
  3. interface
  4.  
  5. uses crt;
  6. {$V-}
  7.  
  8. type
  9.  str100=string[80];
  10. const
  11.  numstr=216 + 1;
  12.  stringdef: array[0..numstr] of str100=
  13.                ('nil',
  14.        {   1}   'You',
  15.        {   2}   'Him',
  16.        {   3}   'Location..:',
  17.        {   4}   'Type......:',
  18.        {   5}   'Dist/Zone.:',
  19.        {   6}   'Danger....:',
  20.        {   7}   'Health....:',
  21.        {   8}   'Attributes:',
  22.        {   9}   'Rad dmg...:',
  23.        {  10}   'Experience:',
  24.        {  11}   'Level.....:',
  25.        {  12}   'Hunger....:',
  26.        {  13}   'Money.....:',
  27.        {  14}   'SFG Mode..:',
  28.        {  15}   'Time Left.:',
  29.        {  16}   'String Def Bytes...:',
  30.        {  17}   'Num string def.....:',
  31.        {  18}   'Map array storage..:',
  32.        {  19}   'Object data storage:',
  33.        {  20}   'Number of Objects..:',
  34.        {  21}   'Monster idx storage:',
  35.        {  22}   'Combat rec storage.:',
  36.        {  23}   'Combat str storage.:',
  37.        {  24}   'User record size...:',
  38.        {  25}   'Overlay buffer size:',
  39.        {  26}   'n/a',
  40.        {  27}   'Heap remaining.....:',
  41.        {  28}   'Dos memory avail...:',
  42.        {  29}   'MOD audio system...:',
  43.        {  30}   'Ready',
  44.        {  31}   'Off',
  45.        {  32}   'FULL   ',
  46.        {  33}   'NOMAP  ',
  47.        {  34}   'SOUND  ',
  48.        {  35}   'MISC   ',
  49.        {  36}   'COMBAT ',
  50.        {  37}   'ICMBT  ',
  51.        {  38}   'ANSI   ',
  52.        {  39}   'RANK   ',
  53.        {  40}   'RANK1  ',
  54.        {  41}   'RANK2  ',
  55.        {  42}   '__ ________  _____ _____ _____',
  56.        {  43}   '## Pkt Name  #updt #sent bsent',
  57.        {  44}   '  ',
  58.        {  45}   'Data Not Received.',
  59.        {  46}   '  Worth ',
  60.        {  47}   '  Level ',
  61.        {  48}   '  Exper ',
  62.        {  49}   'Bravery ',
  63.        {  50}   '  Accur ',
  64.        {  51}   '  Total ',
  65.        {  52}   '      ---- You',
  66.        {  53}   '      ---- Average',
  67.        {  54}   '      ---- Top Player',
  68.        {  55}   ' -- MOD Audio System Status --',
  69.        {  56}   'The MOD audio system was not',
  70.        {  57}   'activated because the /AUDIOxx',
  71.        {  58}   'parameter was not present on',
  72.        {  59}   'the command line (see docs for',
  73.        {  60}   'more information).',
  74.        {  61}   'Song: ',
  75.        {  62}   'Mix rate: ',
  76.        {  63}   'Memory Rsvd: ',
  77.        {  64}   'Memory Free: ',
  78.        {  65}   'The MOD audio system was not',
  79.        {  66}   'activated because there was',
  80.        {  67}   'not enough memory available to',
  81.        {  68}   'reserve for playing songs.',
  82.        {  69}   'The MOD audio system was not',
  83.        {  70}   'activated because there were',
  84.        {  71}   'not any MOD files in the',
  85.        {  72}   'directory. (forget to unzip',
  86.        {  73}   'LODxxxF.ARJ?)',
  87.        {  74}   'The MOD audio system was not',
  88.        {  75}   'activated because the user was',
  89.        {  76}   'on remotely. (use /FR to force',
  90.        {  77}   'sound under remote operation)',
  91.        {  78}   '%  ',
  92.        {  79}   'Minimal ',
  93.        {  80}   'Slight  ',
  94.        {  81}   'Moderate',
  95.        {  82}   'Extreme ',
  96.        {  83}   'Dying   ',
  97.        {  84}   'Unknown',
  98.        {  85}   'N/A    ',
  99.        {  86}   'Neutral',
  100.        {  87}   'Noisy  ',
  101.        {  88}   'Quiet  ',
  102.        {  89}   '         LOD Commands',
  103.        {  90}   ' [F1] LOD Help (this menu)',
  104.        {  91}   ' [F2] Inventory display',
  105.        {  92}   ' [F3] Wastelands Menu',
  106.        {  93}   ' [F4] LOD Information',
  107.        {  94}   ' [F5] Map Legend',
  108.        {  95}   ' [F6] Last LRSCAN',
  109.        {  96}   ' [F7] Host Data',
  110.        {  97}   ' [F8] Combat Window',
  111.        {  98}   ' [F9] Utilities',
  112.        {  99}   'ALT-C Force chat mode',
  113.        { 100}   'User: ',
  114.        { 101}   '        GTERM Commands',
  115.        { 102}   ' [F1] GTerm Help (this menu)',
  116.        { 103}   ' [F2] Inventory display',
  117.        { 104}   ' [F3] Wastelands Menu',
  118.        { 105}   ' [F4] GTERM Information',
  119.        { 106}   ' [F5] Map Legend',
  120.        { 107}   ' [F6] Last LRSCAN',
  121.        { 108}   ' [F7] Host Data',
  122.        { 109}   ' [F8] Combat Window',
  123.        { 110}   ' [F9] Utilities',
  124.        { 111}   '[F10] Exit GTERM',
  125.        { 112}   'CLS',
  126.        { 113}   'RNG',
  127.        { 114}   'ARM',
  128.        { 115}   'LTP',
  129.        { 116}   'MED',
  130.        { 117}   '        WasteLand Help',
  131.        { 118}   'North.....: N/8  Get Item..: P',
  132.        { 119}   'South.....: S/2  Drop Item.: D',
  133.        { 120}   'East......: E/4  Status....: C',
  134.        { 121}   'West......: W/6  Equip.....: Q',
  135.        { 122}   'Use Item..: U    Enter Fort: I',
  136.        { 123}   'Camp......: A    Build Fort: F',
  137.        { 124}   'Enter.....: G    Inv Maint.: M',
  138.        { 125}   'Laptop....: L    Quick Heal: Y',
  139.        { 126}   '',
  140.        { 127}   '',
  141.        { 128}   'Land of Devastation is a BBS',
  142.        { 129}   'door game. It supports local',
  143.        { 130}   'and remote graphics display',
  144.        { 131}   'formats.',
  145.        { 132}   'HEAP....: ',
  146.        { 133}   'DOSMEM..: ',
  147.        { 134}   'COM PORT: LOCAL',
  148.        { 135}   'COM PORT: COM',
  149.        { 136}   ',N,8,1',
  150.        { 137}   'EMS USED: ',
  151.        { 138}   '',
  152.        { 139}   '',
  153.        { 140}   'GTERM is designed to work as a',
  154.        { 141}   'graphics terminal for use with',
  155.        { 142}   'the Land Of Devastation door',
  156.        { 143}   'game. ',
  157.        { 144}   'HEAP....: ',
  158.        { 145}   'COM PORT: COM',
  159.        { 146}   ',N,8,1',
  160.        { 147}   'EMS USED: ',
  161.        { 148}   'Plains',
  162.        { 149}   'Imp. Mtn',
  163.        { 150}   'Desert',
  164.        { 151}   'Mountains',
  165.        { 152}   'Road',
  166.        { 153}   'WasteLand',
  167.        { 154}   'Water',
  168.        { 155}   'Swamp',
  169.        { 156}   'U-Pylon',
  170.        { 157}   'D-Pylon',
  171.        { 158}   'Radiation',
  172.        { 159}   'City',
  173.        { 160}   'No LRSCAN has been captured!',
  174.        { 161}   ' LRSCAN',
  175.        { 162}   ' Z: ',
  176.        { 163}   ' X: ',
  177.        { 164}   ' Y: ',
  178.        { 165}   'LOD version ',
  179.        { 166}   'By Scott M. Baker',
  180.        { 167}   'Name..: ',
  181.        { 168}   'Alias.: ',
  182.        { 169}   'Sysop.: ',
  183.        { 170}   'BBS...: ',
  184.        { 171}   'Reg...: Yes',
  185.        { 172}   'Reg To: ',
  186.        { 173}   'Reg...: No',
  187.        { 174}   'Reg To: N/A',
  188.        { 175}   'Data Not Received.',
  189.        { 176}   '      Utility Functions',
  190.        { 177}   ' [ALT-1] Display Last Ranking ',
  191.        { 178}   ' [ALT-2] Ranking Profile',
  192.        { 179}   ' [ALT-3] MOD sound status',
  193.        { 180}   ' [ALT-4] MAPPER device',
  194.        { 181}   '                              ',
  195.        { 182}   ' [ALT-A] Misc LOD Info        ',
  196.        { 183}   ' [ALT-B] Gterm Protocol Stat  ',
  197.        { 184}   ' [ALT-C] Enter Chat Mode      ',
  198.        { 185}   ' [ALT-D] Drop file info       ',
  199.        { 186}   '                              ',
  200.        { 187}   '      Utility Functions',
  201.        { 188}   ' [ALT-1] Display Last Ranking',
  202.        { 189}   ' [ALT-2] Ranking Profile',
  203.        { 190}   ' [ALT-3] MOD sound status',
  204.        { 191}   ' [ALT-4] MAPPER device',
  205.        { 192}   '                              ',
  206.        { 193}   '                              ',
  207.        { 194}   '                              ',
  208.        { 195}   '                              ',
  209.        { 196}   '                              ',
  210.        { 197}   '                              ',
  211.        { 198}   'Data Not Received.',
  212.        { 199}   '____________ __ __ __ __ __ __',
  213.        { 200}   'Name         WR LV EX BR QS TT',
  214.        { 201}   ' ++',
  215.        { 202}   '',
  216.        { 203}   'D:\TURBO\BGI',
  217.        { 204}   'Error while registering BGI driver.',
  218.        { 205}   '',
  219.        { 206}   '',
  220.        { 207}   '<Local>',
  221.        { 208}   ',N,8,1',
  222.        { 209}   'COM',
  223.        { 210}   '',
  224.        { 211}   'Your character does not posess',
  225.        { 212}   'an item that is required to',
  226.        { 213}   'use this feature.',
  227.        { 214}   'Awaiting data reception.',
  228.        { 215}   '',
  229.        { 216}   'MOD',
  230.                 '');
  231.  
  232. implementation
  233.  
  234. end.
  235.  
  236. {procedure doit(fn: string);
  237. var
  238.  a: word;
  239.  f: text;
  240. begin;
  241.  assign(f,fn);
  242.  rewrite(f);
  243.  writeln(f,numstr);
  244.  for a:=1 to numstr do writeln(f,stringdef[a]+'~');
  245.  close(f);
  246. end;
  247.  
  248. begin;
  249.  doit('GTSTRS.DEF');
  250.  doit('..\GTERM\GTSTRS.DEF');
  251. end.}