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