home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 07 / awari / awarintr.inc < prev    next >
Encoding:
Text File  |  1987-06-10  |  6.4 KB  |  129 lines
  1. (*****************************************************************************)
  2. (*                                                                           *)
  3. (*            DIESE INCLUDE-DATEI ENTHAELT DIE SPIELBESCHREIBUNG             *)
  4. (*                                                                           *)
  5. (*****************************************************************************)
  6.  
  7. PROCEDURE  introduction;
  8.  
  9.    BEGIN
  10.      ClrScr;
  11.      GotoXY  ( 0 , 2 );
  12.      Write   ( '                    AWARI - Ein afrikani' );
  13.      WriteLn ( 'sches Strategiespiel' );
  14.      Write   ( '                 =======================' );
  15.      WriteLn ( '=======================' );
  16.      WriteLn;
  17.      WriteLn;
  18.      Write   ( 'AWARI ist ein sehr altes, aus Nordafrika' );
  19.      WriteLn ( ' stammendes Strategiespiel, das trotz  ' );
  20.      Write   ( 'recht einfach zu erlernender Regeln dem ' );
  21.      WriteLn ( 'Spieler eine verhaeltnismaessig grosse ' );
  22.      Write   ( 'Vielfalt an taktischen Moeglichkeiten er' );
  23.      WriteLn ( 'oeffnet. Es sollen nun kurz die Spiel- ' );
  24.      WriteLn ( 'regeln vorgestellt werden:              ' );
  25.      WriteLn;
  26.      Write   ( '  1. Das Spielfeld:  Es wird auf einem S' );
  27.      WriteLn ( 'pielfeld gespielt, das den folgenden   ' );
  28.      WriteLn ( '  -----------------  Aufbau hat:        ' );
  29.      WriteLn;
  30.      Write   ( '                                        ' );
  31.      WriteLn ( '    O O O O O O                        ' );
  32.      Write   ( '                                        ' );
  33.      WriteLn ( ' O               O                     ' );
  34.      Write   ( '                                        ' );
  35.      WriteLn ( '    O O O O O O                        ' );
  36.      WriteLn;
  37.      Write   ( '                     In der unteren Hael' );
  38.      WriteLn ( 'fte des Spielfelds liegen die von Ihnen' );
  39.      Write   ( '                     beeinflussbaren Fel' );
  40.      WriteLn ( 'der, in der oberen die Ihres Gegners.  ' );
  41.      Write   ( '                     Das Feld rechts in ' );
  42.      WriteLn ( 'der mittleren Reihe ist Ihr "Homefeld",' );
  43.      Write   ( '                     das links ist das I' );
  44.      WriteLn ( 'hres Gegners. Zu Spielbeginn liegen in ' );
  45.      Write   ( '                     den beeinflussbaren' );
  46.      WriteLn ( ' Feldern jeweils' , max : 2 , ' Steine, waehrend die' );
  47.      WriteLn ( '                     Homefelder leer sind.' );
  48.      GotoXY  ( 0 , 24 );
  49.      Write   ( 'TASTE ' );
  50.      REPEAT
  51.      UNTIL  KeyPressed;
  52.      ClrScr;
  53.      GotoXY  ( 0 , 2 );
  54.      Write   ( '  2. Das Spielziel:  Ziel des Spieles is' );
  55.      WriteLn ( 't es, moeglichst viele Steine in seinem' );
  56.      Write   ( '  -----------------  Homefeld zu sammeln' );
  57.      WriteLn ( '. Derjenige Spieler hat gewonnen, der  ' );
  58.      Write   ( '                     die meisten Steine ' );
  59.      WriteLn ( 'angesammelt hat.                       ' );
  60.      WriteLn;
  61.      Write   ( '  3. Spielbeginn:    Die Spieler einigen' );
  62.      WriteLn ( ' sich, wer den ersten Zug macht. Danach' );
  63.      Write   ( '  ---------------    machen die beiden S' );
  64.      WriteLn ( 'pieler jeweils abwechselnd einen Zug   ' );
  65.      Write   ( '                     nach den im folgend' );
  66.      WriteLn ( 'en beschriebenen Zugregeln.            ' );
  67.      WriteLn;
  68.      Write   ( '  4. Die Zugregeln:  Beim AWARI-Spiel be' );
  69.      WriteLn ( 'steht ein Zug aus folgenden Handlungen:' );
  70.      Write   ( '  -----------------  - Der sich am Zug b' );
  71.      WriteLn ( 'efindliche Spieler waehlt sich ein un- ' );
  72.      Write   ( '                       ter seinem Einflu' );
  73.      WriteLn ( 'ssbereich stehendes Feld aus, um es zu ' );
  74.      Write   ( '                       entleeren. Die St' );
  75.      WriteLn ( 'eine werden aus dem Feld entfernt und  ' );
  76.      Write   ( '                       so auf die nachfo' );
  77.      WriteLn ( 'lgenden Felder entgegen dem Uhrzeiger- ' );
  78.      Write   ( '                       sinn verteilt, da' );
  79.      WriteLn ( 'ss sich deren Inhalt um jeweils einen  ' );
  80.      Write   ( '                       Stein erhoeht. Da' );
  81.      WriteLn ( 'bei wird auch das Homefeld einbezogen. ' );
  82.      Write   ( '                     - Landet der letzte' );
  83.      WriteLn ( ' verteilte Stein bei einem Zug auf dem ' );
  84.      Write   ( '                       Homefeld des zieh' );
  85.      WriteLn ( 'enden Spielers, so hat der noch einen  ' );
  86.      Write   ( '                       2. Zug. Einen 3. ' );
  87.      WriteLn ( 'Zug gibt es beim AWARI-Spiel nicht.    ' );
  88.      Write   ( '                     - Landet der letzte' );
  89.      WriteLn ( ' verteilte Stein eines Zuges auf einem ' );
  90.      Write   ( '                       leeren Feld, so k' );
  91.      WriteLn ( 'ann sich der am Zug befindliche Spieler' );
  92.      Write   ( '                       die Steine des de' );
  93.      WriteLn ( 'm Feld gegenueberliegenden Feldes neh- ' );
  94.      Write   ( '                       men und in sein H' );
  95.      WriteLn ( 'omefeld legen.                         ' );
  96.      GotoXY  ( 0 , 24 );
  97.      Write   ( 'TASTE ' );
  98.      REPEAT
  99.      UNTIL  KeyPressed;
  100.      ClrScr;
  101.      GotoXY  ( 0 , 2 );
  102.      Write   ( '  5. Das Spielende:  Das Spiel ist beend' );
  103.      WriteLn ( 'et, sobald sich nach dem Zug eines der ' );
  104.      Write   ( '  -----------------  beiden Spieler die ' );
  105.      WriteLn ( 'Situation ergibt, dass eine Seite der  ' );
  106.      Write   ( '                     beeinflussbaren Fel' );
  107.      WriteLn ( 'der vollstaendig entleert ist, also je-' );
  108.      Write   ( '                     des Feld dieser Sei' );
  109.      WriteLn ( 'te mit 0 Steinen belegt ist. Jetzt wird' );
  110.      Write   ( '                     der Sieger des Spie' );
  111.      WriteLn ( 'les ermittelt und ein neues Spiel kann ' );
  112.      WriteLn ( '                     beginnen.' );
  113.      WriteLn;
  114.      Write   ( 'Damit ist das Regelwerk des AWARI-Spiele' );
  115.      WriteLn ( 's auch schon vollstaendig beschrieben. ' );
  116.      Write   ( 'Vielleicht hoert sich die nuechterne Bes' );
  117.      WriteLn ( 'chreibung der Regeln doch ein wenig    ' );
  118.      Write   ( 'kompliziert an. Lassen Sie sich aber dad' );
  119.      WriteLn ( 'urch nicht abschrecken, denn schon nach' );
  120.      Write   ( 'wenigen Spielen werden Sie erkennen, das' );
  121.      WriteLn ( 's alles ganz einfach ist.              ' );
  122.      WriteLn;
  123.      WriteLn ( 'Aber nun genug der Worte ...' );
  124.      GotoXY  ( 0 , 24 );
  125.      Write   ( 'TASTE ' );
  126.      REPEAT
  127.      UNTIL  KeyPressed
  128.    END;
  129.