
10.  ᪨  ० 19
-----------------------------------------------------------------

         ࠧ    ᫮  ७  
 ᪠,  ᫥        ஥ ࠪ᪮
ਬ.

     ⠢塞         ᪥   樮
ணࠬ  ࠡ ᪨ ,  ᫨  
 ᠬ  ⨭   ணࠬ.   뢠   
⨭    묨       짮⥫,  
᭮,   ⢨⥫쭮 ந室 ࠡ  ணࠬ.

10.1  ⢨  ⨪
-----------------------------------------------------------------

        ணࠬ,  ப  ᯮ    Turbo
Pascal VGA19.TPU, 뢠 TERRAX.PAS.

     ꥪ ⮩     祣  饣    ५졮  
ࠣ; ⠬   㦨,   ࠦ.  祭  ⮨ 
⮬, ⮡ ᮧ ᨢ 㭪   VGA  ᯮ짮  
 ᮧ  ᮫,    ⮢.    ᠬ
    ਣ  ⠭ .

10.1.1  ᠭ ணࠬ
-----------------------------------------------------------------

        㤥  ᫨誮  ஡ 뢠,   ந室 
ᠬ ணࠬ.  ਨ      ⨭   ணࠬ   
.   襬  祭     ணࠬ,  ⠪
⮡    ⢨ ⥩ ணࠬ,

        ணࠬ            㣠      
⢨⥫쭮   ࠧ  ⤥쭮 ଫ ணࠬ 
楤.   ।⠢﫮 ,   ணࠬ 뫨
뤥  ⤥ 楤  饭  ணࠬ.

      ணࠬ  稭    뢮  ࠭ ண
᭨⥫쭮 ⥪.  ᭥ 㭪権 ࠢ ன
 .  ஬  ⮣,  ਢ  騥  ᢥ  .
᫥ ⮣  稭 ᠬ ணࠬ.

10.1.2  ࠢ 
-----------------------------------------------------------------

a) ⮬᪨  ਣ  ⠭ 
-----------------------------------------------------

      砫  ࠡ  ணࠬ      ࠢ      ࠭
 ࠦ  ᮫筮  ⥬.  ⭨   
  ࠦ.

      ᮫筠 ⥬       ਬ  ᮫  
 ⠬.         ࠧ஬ ( 
)   梥⮬.   ⢥     ࠢ
 㣨           ࠢ 120.  
ᮮ⢥⢨   ⨬    祭       ⠫
ꥪ⮢ ᮫筮 ⥬ ਢ  ⠡.

      ६  ணࠬ ஥  ᮫ ⥬.
       ᮫筮  ⥬    
࠭   梥⭮ 窨.   த   ,
  ࠭  㤥 500 .

      ⮫쪮           ᮢ,   ⢨
"ᬨ᪮ ࠡ" 稭.  ࠭ 㤥 룫拉  
  ࠡ.  ।   ࠭    㢥,  ⮡
  ஡ ࠦ.

      ⮬  ணࠬ ᪠ 㤥 ᪠ ᮫ ⥬
 ਣ  ⠭ ⥬.  ᫨ ⠪  ⥬  ,
ࠡ ⮬᪨      ⮩ ⥬.   ࠭
 㭮 ⮩ ⥬  ⠡楩    室  
 ꥪ⮢.

      ⮩    ⠫ ᥣ  蠣.  ᫥ ⮣,  
ਣ  㤥 ,   ,  ਪ  ⥬
ᠬ ࠡ ᮢ ᠤ  .

      ᭮        ᮫   ,  ⥬
᮫  ,  ⬮୮  ,  ਮ  饭  
  㤥 ᮧ ࠦ 孮 .

b)  ᮫筮 ⥬:  <C>
------------------------------------------

     ᫨     <C>    ६  ⢨  襣
ࠡ,     ᬮ     ࠭ ᮧ ᮫筮
⥬.  㢨 室  ᯨࠫ쭮 室 ,  
  ᫥⢨ ନ   ⥬.  
 筮 ந室 " ࠭".

     ᪨    ᪮쪮   
 த       ,    筥 ७.  
ନ  .    ⠭ 業ࠫ쭮
 ஦ ᮫筮 ⥬.

      ॠ쭮  ⨪  ⥬      祬   
筮 ࠭.    ⠪  ⥬    
蠭ᮢ    ᫥⢨ ⠪ 䠪஢,  
 ࠢ樮     ᨫ쭠  ࠤ.    ⠭
   室  ணࠬ,  㭨 ᮫ ⥬
। ᪮쪮 䠪஢.

     ⮡ ணࠬ    ⠢     筮          
த饩,      諮     ⮩          筮
⢨⥫쭮    窠.

     -,      ⥬  䨪  
ᮮ⢥⢨  ⭮⥫묨 ﭨﬨ, 騬  襩
ᮡ⢥ ᮫筮 ⥬.  ,  ᠬ 쪮
ꥪ ⥬ ⠭ ࠢ 1=1/120   .

     ⮡ ᮡ    筮,    諮 
  権     1/120000000    
.   ⥯  筮  ᤥ  ணࠬ ⨬
, ⠪          ।稬      ४
᪨ 䥪,      ᮧ VGA,    
ண ᫥  䨧.

c) 뢮 ᮫筮 ⥬  ࠭ 襩 <D>
   (ᠤ 믮 襩 <L>)
------------------------------------------------

     1.)   ⨨    ६      <D>  ⭠
⥬ 㤥  뢥   ࠭   ⮩  ணࠬ,
 뢮 ⥬    ⮬᪮  ᪥.    ࠢ
ࠢ  ࠦ 襩 ᮡ⢥ ᮫筮 ⥬.

     ,      ࠧ    ࠭  㤥  뢥  ⥬,
ᮧ     <D>.

     2.) 襭  ᠤ  롮     믮
襩 <L>     .

     ⥬       ,  ਣ        
祫.   ਭ  ⮣  襭      ࠦ
     ⬮୮ , ⥬ 
த⥫쭮 .

     ਭ 襭,    ᫥饥:

     ଠ쭮 ⬮୮     ⠢  1  
( 1000 ).   ⬮୮  100  10000 
 ⢮ ᥡ  ᫨誮 ⠡쭮.

     । ⥬   ⠢ 13.5 -  14  ࠤᮢ
  ( 57  ७).  ᫥ 롨 ,
    ৭.

          4.6  ठ  .       50%
 ᮫筮 ⥬.  ᮫筮 ⥬ 稢
 "룮࠭" ᮫. 誮  ⥬,  ⮬ 
2.5 म ,  ஡  ᫨誮 訬 ⢮
⥮஢,     ⮪  ⮯  .  뢭
न஢   ᥫ .

      䠪஬        .  誮 ⪨,
   ᮢ,       ᫨誮  ஬  饭
,   ᮧ  ஡   ࠢ樥.  誮 ,
騩 ᪮쪮  ,   易  訬 ९
    筮   ⥬,         ᮡ  
⬮ ,  ⠪    祫.

       㣨  䠪.   ᮫筠  ⥬
 ⮫쪮  ᮫,  ⠪    ᪮쪨 ᮫栬
 ਣ   祫. ஬ ⮣, 冷   
 , ᯮᮡ 맢 饭  ࡨ.

     ᫥ ᠤ         ,  
 .    ᬮ,        
   ⥬,  <L>.

     ⨥ <D>      ⥬  த
.

d) ⪮ ७ ࠢ 
---------------------------------

     ⢨   ⮬᪨      稭 
᪥ ணࠬ.

      ࠧ⨥ ⥬ ,   <C>.

      <D>  ᯮ    뢮    ࠭  ࠭
᮫筮 ⥬.

      <S>  뢮 ࠦ 襩 ᮡ⢥ ᮫筮
⥬.

         ,   <L>   ࠢ  
/.

       / 믮 ⨥ ஡.

            ⥬     ०
⮬᪮ ᪠   ⨥ <D>.


10.1.3  ⨭ TERRAX.PAS  ᪠
-----------------------------------------------------------------

      ணࠬ    ᪮쪮    ᬠਢ   
ணࠬ. 孨᪨   ஭᪨   ஡  ᫨誮
  䠪᪮ ꥪ 㦤    -  䨪
VGA.  ⨭  ணࠬ .   ᪥.


10.2  ணࠬ TERRAX  ᪮  Hercules
-----------------------------------------------------------------

      TerraX     室   ᪠ ।祭 
ࠡ  ० 19 VGA/MCGA.  ,      ,    
짮⥫ ᪮  Hercules  㯭.

        ஢  TerraX  ஬ ᪮
० Hercules,  ᯮ짮  ⮣ ७   
᪠  䨪 Hercules.

     ஢   祭  宦    TerraX.   
⨭      ⢥   ࠧ,      
ਭ     ࠧ  㣨  ࠭  न,
騥  ஬ ᪮ ० Hercules.

      ᪥,  ⠢塞   ,      ⨭  
᪠,   뢠  H-TERRAX.PAS.    樨 ⮩
ணࠬ       㯭   䠩   HERCULES.TPU    (
HERCULES.PAS)  HERC.BGI. ⨭ .  ணࠬ ᪥.

        ணࠬ   Hercules  ⠪ ࠡ
     ७   VGA      ⠭   
MODEHERCULES   MODEPSEUDOHERCULES  HERCULES.TPU.

     ,            樨   ணࠬ   䠩
HERCULES.TPU   HERC.BGI    室         ⥪饩
४ਨ,    㪠   㯠 DOS.

      ⥫,    ᪠,  ணࠬ
⠢ ⠪  ஢ ଥ.

     TERRAX.EXE       ( ० 19 VGA/MCGA)
     H-TERRAX.EXE     ( ஬ ० Hercules)

10.3   䨪  -० 19
-----------------------------------------------------------------

        ࠧ     ।⠢      ᪨
樨, ࠧ祭   .    TERRAX,    
,     ⮬.     ।祭  
 ⭮ ६९஢  ࠡ   ப.

      ணࠬ     ,   
짮⥫᪮      ॡ.   㣨      
ࠪ⨢ ࠪ,    १     ⮣,  
 짮⥫.

      ⠪ ணࠬ 砥  㤮⢨    ᠬ
ணࠬ஢, 祬    ᯮ짮.   ,  
⨬ 樮 ணࠬ  ,  ᭮ 
᪨ ணࠬ.

10.3.1    ॢﬨ (TREE.PAS)
-----------------------------------------------------------------

     ணࠬ TREE.EXE  ᪮஢ ᪠-ணࠬ 
᪥, ⠢塞         .      ᠭ   
-० 19 (VGA/MCGA).

       - ᮧ   ⮬  .    ਧ  
⮨ 让 ,   ண  .

     ࢮ ॢ  頥  ணࠬ  ⮬᪨.  ⥬
짮⥫ "ᠦ"  ⥫  ॢ,    ஡.
ࢮ ⨥  ஡    ⢮  ⪨. ୮ ⨥
஡ ਢ  ⮬,      ⪠  ॢ  
.

     ࢠ ६  ﬨ ஡ ।, ᪮쪮
⢥  쥢 ᯥ ""  ॢ. ᫨   ,
 㤥 ᮧ ॢ  ⢮ ⢥  쥢.  
ࢠ  ﬨ ॢ 㤥      ⮪  /
쥢.   ௥, ⥬ ᨢ .

     ணࠬ 稢 ⨥  <Esc>.

     ⨭ ணࠬ ⠢  ணࠬ ᪥.


10.3.2  㭭  (CRATER.PAS)
-----------------------------------------------------------------

     ணࠬ CRATER.EXE    ⠪    室       ᪥,
⠢塞   .    ஢  ᪠-ணࠬ,
।祭  ᯮ짮  -० 19 (VGA/MCGA).

        ᮧ 㭭   ᪮ ࠢ.
 ନ  ⮫  ⥮⠬. ⢥
⢨ 짮⥫  ⮨    ⮬,  ⮡  ⠭ ࠡ
ணࠬ ⨥  <Esc>.  "㭭 " 
࠭  䠩    SAVE.
     
            砥  ணࠬ  TREE,  ௥  짮⥫
ࠦ  饭 㭪, ⠪  ᮧ ⨭
ॡ ண  ६.   ᫨  ௥ ࠭祭,
   ᪮쪨  㯭   ⥮஢.   襥
⫥ ந    ⥬    ⥮஢   㦥
騥 㯭 ,    室 ࠢ.
     
      ணࠬ         ᮧ     ᫥⥫쭮
ᯥ樠 楤.   楤  ᮣᮢ뢠  
梥 ஢     㦥   騬   .      䥪
嬥୮  㭮  ⥭  ᯥ⨢.
     
     ࠫ       ᪨  ஢  ᮧ
⮤ ४ᨩ.   砥,   楤  CRATER  뢠
 ᮧ ⠪ ஢ ᠬ ᥡ (४ᨢ).
     
      ⮩   ணࠬ       ⢥  "ॠ
⭨".     ॡ   ⮫쪮   ᨤ     ᫠
ᮬ ᮧ ⨭.
     
      ணࠬ  ᪥ ⠪ 室 室 ⥪ ⮩
ணࠬ.
     
     .10:  㭭 
     
10.3.3  ⢠ 256 梥⮢ ("஢  ")
-----------------------------------------------------------------
     
       ⭮,  -० 19  ᯮ짮 
 256 ࠧ 梥⮢ ६.   ᪠  ணࠬ,
 롨ࠥ       262144    梥⮢  VGA  
⠢   ࠭ ࠦ  ᮡ.
     
     ணࠬ      묨    묨
(宫묨) ⮭,     - 묨,  筥묨  묨
(⥯묨).
     
      ணࠬ  ⮨    ⮬,    ⥯   梥   (
"஢") ࠦ  宫묨 梥⠬ ( "").
     
      ᭮  ணࠬ    㦠 ᥫ.  ᫨
ᥫ 㦥 ᥫﬨ 㣮 梥⮢ 㯯,   " 
"   ᥫ 㣮 㯯.
     
      ᪥  ணࠬ  (COLRSTR3.PAS)  筥
஢. ஢  㦤   ࠭,    砭
.    梥  ,   뢠 
ॣ ஢.
     
     ஢ ணࠬ    COLRSTR3.EXE    室    
ணࠬ ᪥,  ⠢塞   .  室 ⥪ 
室 ⠬ .  ஬ ⮣,  ⠢    ⮩
ணࠬ, COLRLUM2.EXE.
     
10.3.4   梥 ᥫ (" ࠫ  ")
-----------------------------------------------------------------
     
      ணࠬ   ᭮   易      ணࠬ    
।饣 ࠧ.    ᪨ 䥪 ᮢᥬ 㣮.
  砥  㤥   襭    筥
梥 "ࠫ"    䮭  梥  .  ⤥  ᥫ 
 "ᥬ",        訥  ࠫ,
᫨ 㦥 㦭묨 梥⠬.
     
        ࠧ  ﭭ  祭,    
 騥 ࠫ.    ⠪,   ࠧ⠭
筥 梥    㤥  ஢ 묨 梥⠬
,   ࠫ ४.
     
     
Procedure GellGro2Pas;
 uses
  dos,crt,vga19;
 
 var x,y,z,f1,f2,f3,f4,Color : Integer;
 
 Procedure BattleColors;
 begin
   Blend(0 ,24, 3, 23,  38 ,52,40,20);
   Blend(38 ,52,40,20,  84 ,45,60,20);
   Blend(84 ,45,60,20, 126 ,50,60,57);
   Blend(127 ,47,60,63, 191 ,25,42,60);
   Blend(191 ,25,42,60, 255 ,10,10,30);
 end;
 
 Procedure Battlefield;
 begin
   for y :=0 to 199 do begin
   for x :=0 to 319 do begin
    Plot(x,y,Random(126));
   end;
   end;
   for y :=197 to 199 do begin
   for x := 159 to 161 do begin
    Plot*x,y,200);
   end;
  end;
end;
   
begin
  directvideo:=false;
  Mode(19);
  Randomize:
  gotoxy(0,0);
  FrameColor(20);
  BattleColors;
  delay(1000);
  Battlefield;
  textbackground(8);textcolor(16); gotoxy(1,10);
  writeln(' Gell Growth Under Water by jan Ruggeberg');
  repeat
   y := Random(199)+1;
   x := Random(318)+1;
  Peek(x,y-1,f1); Peek(x-1,y,f2);
  Peek(x+1,y,f3); Peek(x,y+1,f4);
  Color:=(f1+f2+f3+f4) div 4;
  if Color <= 127 then
     Plot(x+1,y+1,Color) ;
  if ((Color >= 128) and (Color <140)) or ((f1<128) and (f4>128))
then begin
  z:=random(3)-1;
   Plot(x+z,y,128+random(Color div 2));
    Plot(x+z*2,y,128+random(Color div 2)); end;
  if Color >=130 then begin
   z:=random(3)-1;
    Plot(x,y,125-random(80)) ;
    Plot(x+z,y,125-random(80));
    Plot(x,y+1,125-random(80)) ;
     Plot(x+z,y+1,125-random(80)) end;
  
  until keypressed;
end.

    
10.4   䨪  Hercules
-----------------------------------------------------------------
    
    騥  ணࠬ  ।⠢  ᮡ  ࠧ⥫
樨 ७     ᪠  ᪮
 Hercules,      ᬠਢ          .
짮⥫    VGA   ⠪      ᯮ짮  ⨬
ணࠬ, ᫨    ⠭            ᮮ⢥饬
஬ -० IBM 7.  ⮬ 砥  ணࠬ 㦭
  MODEHERCULES  MODEPSEUDOHERCULES.
    
     믮    ணࠬ  㦭:    Turbo  Pascal
HERCULES.TPU, ⠭       GRAPH.TPU      ᪨
䥩 Borland   (B.G.I.)   -   HERC.BGI.   .BGI-䠩   
室    ⥪饩   ४ਨ,          
⠭  ᪠ DOS.
    
10.4.1   ஢ VGA  Hercules
-----------------------------------------------------------------
    
    ணࠬ HERCDEM.PAS        ࠧࠧ   䨣   
஬ ᪮ ०  Hercules.    ᫮  ࠦ
ꥪ⮢ 室  㦭,  אַ㣮쭨,  襭  ,
襭 ⮫  祭 쪨 ⥪⮢ .
    
    室  ணࠬ 室  ணࠬ ᪥.
    
10.4.2   㭭   ० Hercules
-----------------------------------------------------------------
    
         ணࠬ    ࠭   ᠭ   樮
ணࠬ,  㭭   ࠬ,    
ࠡ  ஬ ᪮ ० Hercules. ᬮ  ,
 ࠪ᪨ ணࠬ   ९ᠭ, ᪨
䥪 祭   砥  VGA.
    
        ࠭,      ᮧ  뢭  ⥮
⮪. 室  .  ணࠬ ᪥.
    
10.4.3   DOS  VGA-䨪  ० Hercules
-----------------------------------------------------------------
    
      ,  饭 ७ DOS, ᬮਬ
 SHOW,  ᠭ   ०  VGA/MCGA  19.    
ᯮ   뢮    ࠭ 䠩  㭪  ० 19.
뫠   SAVE  ࠭ ⠪ 䠩.   뢮
ᥫ   ⥪饩  .    ᬮਬ    DOS,
믮  SHOW 㭪    ஬  ᪮
० Hercules.
    
     SHOW-H  ࠡ⠥  ⮫쪮    64000-⮢묨  䠩
㭪  ࠧ襭 320*200 ᥫ.     ᮧ
 ० 19  ᯮ짮  ࠨ   JANSPALETTE
. 㭪   㣨      ஢
 JANSPALETTE.
    
     ⮬   ⨫  ணࠬ ᪥ ணࠬ
(CONVERT.PAS/CONVERT.EXE)  ८ࠧ  㭪    
    .      ணࠬ   ८ࠧ뢠  㭪,
ᮧ  SARAPALETTE,  ⮡ࠦ  JANSPALETTE.
    
    ⨭ ணࠬ  SHOW-H.PAS  .   ⠪      ணࠬ
᪥. ஢      ⮩   ணࠬ   뢠
SHOW-H.EXE. ஢ ᯮ塞 䠩   ᪠  
 ப,    DOS.
    
         ᪠    䠩  㭪   
⢥ ࠬ஢  ப.
    
    
program ShowHPas;          { 256 梥⮢  256000 }
 use dos,crt,Hercules;
  
 type
  VGAPoint =record
       { । ⨯ 䠩,  ᠬ 䠩 ࠧ }
   OnePoint :byte;
  end; {  ६묨 ।  }
  
 var
  Ftype       : File of VGAPoint ;
                { ⨯ VGAPoint 䠩:Ftype }
  Entry       : VGAPoint;
                { ⨯ VGAPoint ६:Entry }
  LoadName    : String;
  PokeX, PokeY,x,y: integer; ch:char;
  Color       : Integer;
  
  
  Procedure Load(LoadName:String);
   Begin
   Assign(Ftype,LoadName);
                { ᢮  䠩 ६ }
   Reset(Ftype);{  䠩   }
   begin
    for y:= 0 to 199 do begin
     for x:= 0 to 319 do begin
     read(Ftype, Entry);
                {  ப  䠩 }
     Color:=Entry.OnePoint;
     while Color>15 do begin
     Color:=Color-16;
    end;
    Color:=Color*16;Color:=255-Color;
    if (Color>32) then begin
     Color:=(255-Color)div 3+Color;
    end;
    Plot(x*23 div 10  , y*17 div 10  ,Color);
    Plot((x*23 div 10)+1,(y*17 div 10) ,Color);
    Plot((x*23 div 10)+2,(y*17 div 10) ,Color);
    Plot(x*23 div 10  ,(y*17 div 10)+1,Color);
    Plot((x*23 div 10)+1,(y*17 div 10)+1,Color);
    Plot((x*23 div 10)+2,(y*17 div 10)+1,Color);
    end;
   end;
   close(Ftype);   {  䠩 }
  end;
end;

begin              { 砫  ணࠬ }
 ModeHercules;
 if ParamCount=0 then exit;
 LoadName:=ParamStr(1);      { ணࠬ 㧪 㭪 }
 Load(LoadName);
 ZeroKey;ch:=readkey;
end.
                                                              
    
    
