home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / BBS_GAME / LOD400E.ZIP / PROGRAMR.ZIP / SETGEN.PAS < prev    next >
Pascal/Delphi Source File  |  1994-03-01  |  5KB  |  225 lines
  1. unit setgen;
  2. {$F+,V-,O+}
  3.  
  4. interface
  5.  
  6. uses globals;
  7.  
  8. procedure setgeneral;
  9.  
  10. implementation
  11.  
  12. procedure setgeneral;
  13. begin;
  14.  fillchar(general,sizeof(general),0);
  15.  general.startstr:=21;
  16.  general.startdex:=21;
  17.  general.startagl:=21;
  18.  general.starthp:=25;
  19.  general.startmoney:=2000;
  20.  general.startdev1:='MEDKIT/10';
  21.  general.startdev2:='RATIONS/5';
  22.  general.startdev3:='';
  23.  general.basecost:=250000;
  24.  general.lev2exp:=1250;
  25.  general.expmul:=200;
  26.  general.levlim:=9;
  27.  general.levpts:=5;
  28.  
  29.  general.basestartspec[1]:='ROBOPISTOL';
  30.  general.basestartspec[2]:='WINDMILL';
  31.  general.basestartspec[3]:='ENERGY BARS';
  32.  
  33.  general.basestartene:=250;
  34.  general.basemaxitems:=50;
  35.  general.playermaxbases:=25;
  36.  general.janitorpay:=5;
  37.  general.killobj:=true;
  38.  general.statmodeavail:=true;
  39.  general.alphamodeavail:=true;
  40.  general.reflexmodeavail:=true;
  41.  general.reflexdelay:=30;
  42.  general.reflexhit:=6;
  43.  general.reflexincr:=7;
  44.  general.alphahit:=14;
  45.  general.alphadelay:=50;
  46.  general.LRAnsiLx:=4;
  47.  general.LRAnsiLy:=4;
  48.  general.LRAnsiGx:=4;
  49.  general.LRAnsiGy:=5;
  50.  general.LRAnsiTx:=4;
  51.  general.LRAnsiTy:=9;
  52.  general.LRAnsiBf:=7;
  53.  general.LRAnsiBb:=1;
  54.  general.LRAnsiCx:=54;
  55.  general.LRAnsiCy:=6;
  56.  general.LRAnsiCf:=12;
  57.  general.LRAnsiCb:=1;
  58.  general.LRAnsiC2x:=15;
  59.  general.LRAnsiC2y:=9;
  60.  general.minloanday:=1;
  61.  general.FSAnsiFx:=48;
  62.  general.FSAnsiFy:=5;
  63.  general.FSAnsiFf:=15;
  64.  general.FSAnsiFb:=1;
  65.  general.FSAnsiTx:=48;
  66.  general.FSAnsiTy:=11;
  67.  general.FSAnsiTf:=14;
  68.  general.FSAnsiTb:=1;
  69.  
  70.  general.loanmax:=15;
  71.  general.loanint:=20;
  72.  general.gameint:=14;
  73.  general.bankint:=7;
  74.  
  75.  general.PTAnsiPx:=27;
  76.  general.PTAnsiPy:=7;
  77.  general.PTAnsiPf:=12;
  78.  general.PTAnsiPb:=1;
  79.  general.PTAnsiNx:=42;
  80.  general.PTAnsiNy:=7;
  81.  general.PTAnsiNf:=11;
  82.  general.PTAnsiNb:=1;
  83.  general.PTAnsiRx:=36;
  84.  general.PTAnsiRy:=7;
  85.  general.PTAnsiRf:=12;
  86.  general.PTAnsiRb:=1;
  87.  general.PTAnsiAx:=21;
  88.  general.PTAnsiAy:=17;
  89.  general.PTansiAf:=12;
  90.  general.PTAnsiAb:=1;
  91.  
  92.  general.purmoney[1]:=500000;
  93.  general.purmoney[2]:=500000;
  94.  general.purmoney[3]:=500000;
  95.  general.purmoney[4]:=500000;
  96.  general.purmoney[5]:=500000;
  97.  general.purmoney[6]:=500000;
  98.  general.purmoney[7]:=500000;
  99.  general.purmoney[8]:=500000;
  100.  general.purmoney[9]:=500000;
  101.  
  102.  general.purexp[1]:=75000;
  103.  general.purexp[2]:=75000;
  104.  general.purexp[3]:=75000;
  105.  general.purexp[4]:=75000;
  106.  general.purexp[5]:=75000;
  107.  general.purexp[6]:=75000;
  108.  general.purexp[7]:=75000;
  109.  general.purexp[8]:=75000;
  110.  general.purexp[9]:=75000;
  111.  
  112.  general.daystodel:=32;
  113.  general.daystodeldead:=45;
  114.  
  115.  general.inbankmax:=25000000;
  116.  general.incasmax:=25000000;
  117.  general.inloanmax:=25000000;
  118.  
  119.  general.monsellmult:=2;
  120.  
  121.  general.taxlevel:=10;
  122.  general.taxpercent:=10;
  123.  
  124.  general.maxfortattack:=15;
  125.  
  126.  with general do begin;
  127.   fillchar(vbattammoeff,sizeof(vbattammoeff),1);
  128.   fillchar(vbattammonames,sizeof(vbattammonames),0);
  129.   vbattammoeff[1]:=0;
  130.   vbattammoeff[2]:=0;
  131.   vbattammoeff[3]:=1;
  132.   vbattammoeff[4]:=2;
  133.   vbattammoeff[5]:=3;
  134.   vbattammoeff[6]:=4;
  135.   vbattammoeff[7]:=5;
  136.   vbattammoeff[8]:=12;
  137.   vbattammoeff[9]:=30;
  138.   vbattammoeff[10]:=0;
  139.   vbattammonames[1]:='Crossbow bolts';
  140.   vbattammonames[2]:='9mm ammo';
  141.   vbattammonames[3]:='Power pack energy';
  142.   vbattammonames[4]:='Graviton energy';
  143.   vbattammonames[5]:='Plasma energy';
  144.   vbattammonames[6]:='Widow energy';
  145.   vbattammonames[7]:='Neutron energy';
  146.   vbattammonames[8]:='Trivex fuel';
  147.   vbattammonames[9]:='Nuke Shell';
  148.   vbattammonames[10]:='FortShell';
  149.  
  150.   purquest[1]:=5;
  151.   purquest[2]:=5;
  152.   purquest[3]:=5;
  153.   purquest[4]:=5;
  154.   purquest[5]:=5;
  155.   purquest[6]:=5;
  156.   purquest[7]:=5;
  157.  
  158.   numvbattammo:=10;
  159.  
  160.   trivia_cost:=100;
  161.   trivia_pay:=500;
  162.   caslimit:=500000;
  163.  
  164.   fillchar(porig,sizeof(porig),0);
  165.   fillchar(pnew,sizeof(pnew),0);
  166.   porig[1]:=6;  pnew[1]:=1;
  167.   porig[2]:=11; pnew[2]:=12;
  168.  
  169.   maxtransport:=30;
  170.  
  171.   deathperday:=3;
  172.  
  173.   maxbasemoney:=25000000;
  174.   maxbaseenergy:=100000;
  175.  
  176. {  salvage:=50;}
  177.   basesalvage:=65;
  178.  
  179.   vortexeneprice:=100;
  180.  
  181.   ACMEthreeroundprice:=500;
  182.   ACMEaccprice[1]:=100;
  183.   ACMEaccprice[2]:=300;
  184.   ACMEaccprice[3]:=500;
  185.   ACMEintprice[1]:=100;
  186.   ACMEintprice[2]:=300;
  187.   ACMEintprice[3]:=500;
  188.   ACMEuniprice:=300;
  189.   ACMEstunprice:=400;
  190.  
  191.   stun5odds:=7;
  192.   stun4odds:=15;
  193.   stun3odds:=30;
  194.   stun2odds:=60;
  195.   stun1odds:=100;
  196.   stunaddodds:=75;
  197.  
  198.   scavratio:=20;
  199.   maxscavmoney:=5000000;
  200.  
  201.   scavmedratio:=75;
  202.   maxscavmed:=1000;
  203.  
  204.   scaveneratio:=75;
  205.   maxscavene:=10000;
  206.  
  207.   ACMEscandecloakprice:=100;
  208.   ACMEarmor1price:=100;  ACMEarmor1bp:=250000;
  209.   ACMEarmor2price:=300;  ACMEarmor2bp:=500000;
  210.   ACMEarmor3price:=500;  ACMEarmor3bp:=1000000;
  211.  
  212.   taxlevel2:=20;
  213.   taxpercent2:=25;
  214.   discpercent:=5;
  215.  
  216.   moneyperlevel:=2000;
  217.   xebocmax:=125;
  218.  
  219.   numquest:=0; {set in makedev.pas}
  220.  
  221.   raiseall:=false;
  222.  end;
  223. end;
  224.  
  225. end.