vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-05 23:22:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

tetris example added

Browse source
This commit is contained in:
Norayr Chilingarian 2014-02-03 17:01:10 +04:00
parent a2fbb3aaa4
commit ec7a685466
7 changed files with 1380 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/test/X11/mines/Readme.md
View file

@ -1,3 +1,7 @@
This is a game historycal source taken from http://web.archive.org/web/20050212180221/http://www.vis.inf.ethz.ch/~andy/Oberon.html
It serves as an example of XYplane module useage
Build by typing
# make

24
src/test/X11/pacman/Readme.md Normal file
View file

@ -0,0 +1,24 @@
This is a game historycal source taken from http://web.archive.org/web/20050212180221/http://www.vis.inf.ethz.ch/~andy/Oberon.html
It serves as an example of XYplane module usage.
build by typing:
make
run by
./PacMan
During the game, the following keys are availiable:
Player One:
q ... move left
w ... move right
a ... mark field
Player Two:
o ... move left
p ... move right
l ... mark field
General keys:
h ... abort

234
src/test/X11/tetris/Linie.Mod Normal file
View file

@ -0,0 +1,234 @@
MODULE Linie;
IMPORT XYplane := oocXYplane, In := compatIn;
VAR abbruch: BOOLEAN;
Zaehler,Wert1, Wert2, Wert3, Wert4,Wert5, Wert6, Wert7, Wert8,Ende: INTEGER;
(* Version 1.0 / 6.April 96 / Peter Brantschen *)
PROCEDURE Linie*(StartX,StartY,EndeX,EndeY: INTEGER);
VAR i,x,y,LaengeX,LaengeY: INTEGER;
BEGIN
LaengeX:=EndeX-StartX;
LaengeY:=EndeY-StartY;
IF LaengeX>=0 THEN
IF LaengeY>=0 THEN
FOR i:=0 TO LaengeX DO;
IF LaengeX#0 THEN
x:=StartX+i;
y:=StartY + (i*LaengeY)DIV LaengeX;
XYplane.Dot(x,y,1);
END;
END;
FOR i:=0 TO LaengeY DO;
IF LaengeY#0 THEN
x:=StartX + (i*LaengeX) DIV LaengeY;
y:=StartY + i;
XYplane.Dot(x,y,1);
END;
END;
ELSE
FOR i:=0 TO LaengeX DO;
IF LaengeX#0 THEN
x:=StartX+i;
y:=StartY + (i*LaengeY)DIV LaengeX;
XYplane.Dot(x,y,1);
END;
END;
FOR i:=LaengeY TO 0 DO;
IF LaengeY#0 THEN
x:=StartX + (i*LaengeX) DIV LaengeY;
y:=StartY + i;
XYplane.Dot(x,y,1);
END;
END;
END;
ELSE
IF LaengeY>=0 THEN
FOR i:=LaengeX TO 0 DO;
IF LaengeX#0 THEN
x:=StartX+i;
y:=StartY + (i*LaengeY)DIV LaengeX;
XYplane.Dot(x,y,1);
END;
END;
FOR i:=0 TO LaengeY DO;
IF LaengeY#0 THEN
x:=StartX + (i*LaengeX) DIV LaengeY;
y:=StartY + i;
XYplane.Dot(x,y,1);
END;
END;
ELSE
FOR i:=LaengeX TO 0 DO;
IF LaengeX#0 THEN
x:=StartX+i;
y:=StartY + (i*LaengeY)DIV LaengeX;
XYplane.Dot(x,y,1);
END;
END;
FOR i:=LaengeY TO 0 DO;
IF LaengeY#0 THEN
x:=StartX + (i*LaengeX) DIV LaengeY;
y:=StartY + i;
XYplane.Dot(x,y,1);
END;
END;
END;
END;
END Linie;
PROCEDURE LoescheLinie*(StartX,StartY,EndeX,EndeY: INTEGER);
VAR i,x,y,LaengeX,LaengeY: INTEGER;
BEGIN
LaengeX:=EndeX-StartX;
LaengeY:=EndeY-StartY;
IF LaengeX>=0 THEN
IF LaengeY>=0 THEN
FOR i:=0 TO LaengeX DO;
IF LaengeX#0 THEN
x:=StartX+i;
y:=StartY + (i*LaengeY)DIV LaengeX;
XYplane.Dot(x,y,0);
END;
END;
FOR i:=0 TO LaengeY DO;
IF LaengeY#0 THEN
x:=StartX + (i*LaengeX) DIV LaengeY;
y:=StartY + i;
XYplane.Dot(x,y,0);
END;
END;
ELSE
FOR i:=0 TO LaengeX DO;
IF LaengeX#0 THEN
x:=StartX+i;
y:=StartY + (i*LaengeY)DIV LaengeX;
XYplane.Dot(x,y,0);
END;
END;
FOR i:=LaengeY TO 0 DO;
IF LaengeY#0 THEN
x:=StartX + (i*LaengeX) DIV LaengeY;
y:=StartY + i;
XYplane.Dot(x,y,0);
END;
END;
END;
ELSE
IF LaengeY>=0 THEN
FOR i:=LaengeX TO 0 DO;
IF LaengeX#0 THEN
x:=StartX+i;
y:=StartY + (i*LaengeY)DIV LaengeX;
XYplane.Dot(x,y,0);
END;
END;
FOR i:=0 TO LaengeY DO;
IF LaengeY#0 THEN
x:=StartX + (i*LaengeX) DIV LaengeY;
y:=StartY + i;
XYplane.Dot(x,y,0);
END;
END;
ELSE
FOR i:=LaengeX TO 0 DO;
IF LaengeX#0 THEN
x:=StartX+i;
y:=StartY + (i*LaengeY)DIV LaengeX;
XYplane.Dot(x,y,0);
END;
END;
FOR i:=LaengeY TO 0 DO;
IF LaengeY#0 THEN
x:=StartX + (i*LaengeX) DIV LaengeY;
y:=StartY + i;
XYplane.Dot(x,y,0);
END;
END;
END;
END;
END LoescheLinie;
PROCEDURE Linie2(x1,y1,x2,y2: INTEGER);
VAR dx,dy,sx,sy,d,x,y: INTEGER;
BEGIN
dx:=ABS(x2-x1); IF (x2-x1)#0 THEN sx:=(x2-x1)DIV ABS(x2-x1); ELSE sx:=0; END;
dy:=ABS(y2-y1); IF (y2-y1)#0 THEN sy:=(y2-y1) DIV ABS(y2-y1); ELSE sy:=0; END;
d:=2*dy-dx; x:=x1; y:=y1;
XYplane.Dot(x,y,1);
WHILE x#x2 DO
IF (d>0) OR ((d=0)&(sy=1)) THEN
y:=y+sy; d:=d-2*dx;
END;
x:=x+sx; d:=d+2*dy;
XYplane.Dot(x,y,1);
END;
END Linie2;
PROCEDURE Fraktal(x1,y1,x2,y2: INTEGER);
BEGIN;
IF ~abbruch THEN
INC(Zaehler);
IF Zaehler>Ende THEN abbruch:=TRUE; END;
Linie2(x1,y1,x2,y2);
Fraktal(x1+ Wert1,y1+Wert2,x2+Wert3,y2+Wert4);
END;
END Fraktal;
PROCEDURE Fraktal4Eck(x1,y1,x2,y2,x3,y3,x4,y4: INTEGER);
BEGIN
IF ~abbruch THEN
INC(Zaehler);
IF Zaehler>Ende THEN abbruch:=TRUE; END;
Linie2(x1,y1,x2,y2);
Linie2(x2,y2,x3,y3);
Linie2(x3,y3,x4,y4);
Linie2(x4,y4,x1,y1);
Fraktal4Eck(x1+ Wert1,y1+Wert2,x2+Wert3,y2+Wert4,x3+ Wert5,y3+Wert6,x4+Wert7,y4+Wert8);
END;
END Fraktal4Eck;
PROCEDURE Start*;
BEGIN
XYplane.Open;
In.Open;
In.Int(Wert1); In.Int(Wert2); In.Int(Wert3); In.Int(Wert4);In.Int(Ende);
abbruch:=FALSE;
Zaehler:=0;
Fraktal(150,150,250,250);
END Start;
PROCEDURE Start4Eck*;
BEGIN
XYplane.Open;
In.Open;
In.Int(Wert1); In.Int(Wert2); In.Int(Wert3); In.Int(Wert4);
In.Int(Wert5); In.Int(Wert6); In.Int(Wert7); In.Int(Wert8);In.Int(Ende);
abbruch:=FALSE;
Zaehler:=0;
Fraktal4Eck(150,150,150,250,250,250,250,150);
END Start4Eck;
END Linie.

14
src/test/X11/tetris/Readme.md Normal file
View file

@ -0,0 +1,14 @@
* Start Tetris with Tetris.Start a~
a 1 or 2 for One or Two-Player-Modus
During the game the following keys are availiable:
General keys:
p...Pause
q...Quit
The other keys can be changed by the player.

953
src/test/X11/tetris/Tetris.Mod Normal file
View file

@ -0,0 +1,953 @@
MODULE Tetris;
(* Peter Brantschen, 15.April 96 , Version 1.1*)
(* neuste Version vom 12. Dezember 1996, Version 1.2 *)
(* Neuerungen: Spielparameter sind ueber Konstantendeklariert, Zweispielermodus
bricht bei Limit-Linien ab, Pause-Funktion wurde eingefuehrt *)
IMPORT X:=oocXYplane, L:=Linie, In := compatIn, Out := Console, RN:=ethRandomNumbers, Ziffer, Oberon := Kernel;
CONST
(* Spielwerte : *)
Schrittweite=10;
Limit=20;
ende="q";
pause="p";
endepause=" ";
(* Werte fuer Verzoegerung:
Pentium 100: 1 Spieler Modus 25000
Pentium 100: 2 Spieler Modus 20000
*)
Verzoegerung=2000;
(* Steuerung Spieler 1: *)
links1="y";
rechts1="x";
runter1="-";
drehunglinks1=".";
drehungrechts1=",";
(* Steuerung Spieler 2: *)
links2="4";
rechts2="6";
runter2="5";
drehunglinks2="9";
drehungrechts2="7";
VAR Feld: ARRAY 32,22 OF BOOLEAN;
geaendert1,geaendert2: ARRAY 21 OF BOOLEAN;
AnzahlGeaenderteLinien1, AnzahlGeaenderteLinien2: INTEGER;
Spielende, fertig1,fertig2, wechsel, Spieler2: BOOLEAN;
Punkte1,Punkte2,x1,y1,a1,lage1,x2,y2,a2,lage2,tempo1,tempo2: INTEGER;
altkey: CHAR;
Linien1, Linien2: INTEGER;
level1, level2: INTEGER;
Straflinien1, Straflinien2: INTEGER;
PROCEDURE Spielfeldzeichnen;
CONST Bildschirmbreite=800; Bildschirmhoehe=600;
VAR x,y,i: INTEGER;
BEGIN;
X.Open;
L.Linie(50,50,150,50); L.Linie(50,30,50,250); L.Linie(150,30,150,250);
L.Linie(50,30,150,30); L.Linie(50,40,150,40);
L.Linie(180,180,180,220); L.Linie(180,220,220,220);L.Linie(220,220,220,180); L.Linie(220,180,180,180);
IF Spieler2 THEN L.Linie(250,50,350,50); L.Linie(250,30,250,250); L.Linie(350,30,350,250);
L.Linie(250,30,350,30); L.Linie(250,40,350,40); END;
FOR x:=1 TO 31 DO;
FOR y:=1 TO 21 DO;
Feld[x,y]:=FALSE;
END;
END;
FOR i:=0 TO 21 DO;
Feld[0,i]:=TRUE;
Feld[11,i]:=TRUE;
Feld[20,i]:=TRUE;
Feld[31,i]:=TRUE;
END;
FOR i:=1 TO 31 DO;
Feld[i,0]:=TRUE;
END;
FOR i:=0 TO 20 DO;
geaendert1[i]:=FALSE;
geaendert2[i]:=FALSE;
END;
X.Dot(2,2,1);X.Dot(3,2,1); X.Dot(4,2,1); X.Dot(6,2,1);X.Dot(8,2,1); X.Dot(9,2,1); X.Dot(10,2,1); X.Dot(14,2,1);
X.Dot(19,2,1);X.Dot(20,2,1); X.Dot(21,2,1); X.Dot(23,2,1); X.Dot(24,2,1); X.Dot(25,2,1);
X.Dot(3,3,1);X.Dot(6,3,1); X.Dot(8,3,1); X.Dot(9,3,1);X.Dot(11,3,1); X.Dot(14,3,1); X.Dot(21,3,1); X.Dot(23,3,1);
X.Dot(25,3,1);
X.Dot(3,4,1);X.Dot(6,4,1); X.Dot(7,4,1); X.Dot(8,4,1);X.Dot(9,4,1); X.Dot(11,4,1); X.Dot(14,4,1);
X.Dot(19,4,1);X.Dot(20,4,1); X.Dot(21,4,1); X.Dot(23,4,1); X.Dot(24,4,1); X.Dot(25,4,1);
X.Dot(3,5,1);X.Dot(6,5,1); X.Dot(7,5,1); X.Dot(8,5,1);X.Dot(9,5,1); X.Dot(11,5,1); X.Dot(13,5,1); X.Dot(15,5,1);
X.Dot(19,5,1);X.Dot(21,5,1); X.Dot(23,5,1);
X.Dot(2,6,1);X.Dot(3,6,1); X.Dot(4,6,1); X.Dot(6,6,1);X.Dot(8,6,1); X.Dot(9,6,1); X.Dot(10,6,1); X.Dot(13,6,1);
X.Dot(15,6,1); X.Dot(17,6,1); X.Dot(19,6,1);X.Dot(20,6,1); X.Dot(21,6,1); X.Dot(23,6,1); X.Dot(24,6,1); X.Dot(25,6,1);
END Spielfeldzeichnen;
PROCEDURE FuelleFeld(i,j: INTEGER);
VAR x,y: INTEGER;
BEGIN
FOR x:=1 TO 9 DO;
L.Linie(40+10*i+x,41+10*j,40+10*i+x,49+10*j);
END;
END FuelleFeld;
PROCEDURE LoescheFeld(i,j: INTEGER);
VAR x,y: INTEGER;
BEGIN
FOR x:=1 TO 9 DO;
L.LoescheLinie(40+10*i+x,41+10*j,40+10*i+x,49+10*j);
END;
END LoescheFeld;
PROCEDURE IstFeld(i,j: INTEGER):BOOLEAN;
BEGIN;
RETURN X.IsDot(45+10*i,45+10*j);
END IstFeld;
PROCEDURE MaleVorschau;
VAR i,j: INTEGER;
BEGIN;
FOR i:=13 TO 18 DO;
FOR j:=13 TO 18 DO;
IF Feld[i,j] THEN
IF ~IstFeld(i,j) THEN FuelleFeld(i,j); END;
ELSE
IF IstFeld(i,j) THEN LoescheFeld(i,j); END;
END;
END;
END;
END MaleVorschau;
PROCEDURE Malen1;
VAR i,j: INTEGER;
BEGIN;
FOR i:=1 TO 10 DO;
FOR j:=1 TO 20 DO;
IF Feld[i,j] THEN
IF ~IstFeld(i,j) THEN FuelleFeld(i,j); END;
ELSE
IF IstFeld(i,j) THEN LoescheFeld(i,j); END;
END;
END;
END;
END Malen1;
PROCEDURE Malen2;
VAR i,j: INTEGER;
BEGIN;
FOR i:=21 TO 30 DO;
FOR j:=1 TO 20 DO;
IF Feld[i,j] THEN
IF ~IstFeld(i,j) THEN FuelleFeld(i,j); END;
ELSE
IF IstFeld(i,j) THEN LoescheFeld(i,j); END;
END;
END;
END;
END Malen2;
PROCEDURE LoescheLinien1;
VAR i,j,h,k,Zaehler: INTEGER;
BEGIN;
INC(Linien1,AnzahlGeaenderteLinien1);
level1:=(Linien1 + Schrittweite) DIV Schrittweite;
Punkte1:=Punkte1+level1*AnzahlGeaenderteLinien1*AnzahlGeaenderteLinien1*50;
FOR i:=1 TO AnzahlGeaenderteLinien1 DO
j:=1;
WHILE j<19 DO
WHILE ~geaendert1[j] DO INC(j); END;
IF geaendert1[j] THEN
FOR h:=j TO 19 DO
FOR k:=1 TO 10 DO;
Feld[k,h]:=Feld[k,h+1];
END;
geaendert1[h]:=geaendert1[h+1];
END;
Malen1;
j:=22;
END;
END;
END;
END LoescheLinien1;
PROCEDURE LoescheLinien2;
VAR i,j,h,k,Zaehler: INTEGER;
BEGIN;
INC(Linien2,AnzahlGeaenderteLinien2);
level2:=(Linien2 + Schrittweite) DIV Schrittweite;
Punkte2:=Punkte2+level2*AnzahlGeaenderteLinien2*AnzahlGeaenderteLinien2*50;
FOR i:=1 TO AnzahlGeaenderteLinien2 DO
j:=1;
WHILE j<19 DO
WHILE ~geaendert2[j] DO INC(j); END;
IF geaendert2[j] THEN
FOR h:=j TO 19 DO
FOR k:=21 TO 30 DO;
Feld[k,h]:=Feld[k,h+1];
END;
geaendert2[h]:=geaendert2[h+1];
END;
Malen2;
j:=22;
END;
END;
END;
END LoescheLinien2;
PROCEDURE Kontrolle;
VAR i,j: INTEGER; Zustand1, Zustand2:BOOLEAN;
BEGIN;
AnzahlGeaenderteLinien1:=0;AnzahlGeaenderteLinien2:=0;
FOR i:=1 TO 20 DO
Zustand1:=TRUE; Zustand2:=TRUE;
FOR j:=1 TO 10 DO
Zustand1:=Zustand1&Feld[j,i]
END;
IF Zustand1 THEN INC(AnzahlGeaenderteLinien1);geaendert1[i]:=TRUE; ELSE geaendert1[i]:=FALSE;END;
FOR j:=21 TO 30 DO
Zustand2:=Zustand2&Feld[j,i]
END;
IF Zustand2 THEN INC(AnzahlGeaenderteLinien2);geaendert2[i]:=TRUE; ELSE geaendert2[i]:=FALSE;END;
END;
IF Spieler2 THEN
IF AnzahlGeaenderteLinien1 > 1 THEN
IF AnzahlGeaenderteLinien1=2 THEN Straflinien2:=1;
ELSIF AnzahlGeaenderteLinien1=3 THEN Straflinien2:=2;
ELSIF AnzahlGeaenderteLinien1=4 THEN Straflinien2:=4;
END;
END;
IF AnzahlGeaenderteLinien2 > 1 THEN
IF AnzahlGeaenderteLinien2=2 THEN Straflinien1:=1;
ELSIF AnzahlGeaenderteLinien2=3 THEN Straflinien1:=2;
ELSIF AnzahlGeaenderteLinien2=4 THEN Straflinien1:=4;
END;
END;
END;
END Kontrolle;
PROCEDURE LoescheTeil(a,lage: INTEGER; VAR x,y: INTEGER);
VAR i,j: INTEGER;
BEGIN
IF a=1 THEN
FOR i:=0 TO 1 DO;
FOR j:=0 TO 1 DO;
Feld[x+i,y+j]:=FALSE
END;
END;
ELSIF a=2 THEN
IF (lage=1)OR(lage=3) THEN
FOR i:=0 TO 3 DO;
Feld[x-1+i,y]:=FALSE;
END;
ELSE
FOR i:=0 TO 3 DO;
Feld[x,y-1+i]:=FALSE;
END;
END;
ELSIF a=3 THEN
IF lage=1 THEN
Feld[x-1,y]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y]:=FALSE;Feld[x,y+1]:=FALSE;
ELSIF lage=2 THEN
Feld[x,y-1]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y]:=FALSE;Feld[x,y+1]:=FALSE;
ELSIF lage=3 THEN
Feld[x,y-1]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y]:=FALSE;Feld[x-1,y]:=FALSE;
ELSIF lage=4 THEN
Feld[x,y-1]:=FALSE;Feld[x,y]:=FALSE; Feld[x,y+1]:=FALSE;Feld[x-1,y]:=FALSE;
END;
ELSIF a=4 THEN
IF lage=1 THEN
Feld[x-1,y]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y]:=FALSE;Feld[x+1,y+1]:=FALSE;
ELSIF lage=2 THEN
Feld[x,y-1]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y-1]:=FALSE;Feld[x,y+1]:=FALSE;
ELSIF lage=3 THEN
Feld[x-1,y-1]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y]:=FALSE;Feld[x-1,y]:=FALSE;
ELSIF lage=4 THEN
Feld[x,y-1]:=FALSE;Feld[x,y]:=FALSE; Feld[x,y+1]:=FALSE;Feld[x-1,y+1]:=FALSE;
END;
ELSIF a=5 THEN
IF lage=1 THEN
Feld[x-1,y]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y]:=FALSE;Feld[x-1,y+1]:=FALSE;
ELSIF lage=2 THEN
Feld[x,y-1]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y+1]:=FALSE;Feld[x,y+1]:=FALSE;
ELSIF lage=3 THEN
Feld[x+1,y-1]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y]:=FALSE;Feld[x-1,y]:=FALSE;
ELSIF lage=4 THEN
Feld[x,y-1]:=FALSE;Feld[x,y]:=FALSE; Feld[x,y+1]:=FALSE;Feld[x-1,y-1]:=FALSE;
END;
ELSIF a=6 THEN
IF (lage=1) OR (lage=3) THEN
Feld[x-1,y]:=FALSE;Feld[x,y]:=FALSE; Feld[x,y+1]:=FALSE;Feld[x+1,y+1]:=FALSE;
ELSIF (lage=2) OR (lage= 4 )THEN
Feld[x+1,y]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y-1]:=FALSE; Feld[x,y+1]:=FALSE;
END;
ELSIF a=7 THEN
IF (lage=1) OR (lage=3) THEN
Feld[x,y+1]:=FALSE;Feld[x,y]:=FALSE; Feld[x+1,y]:=FALSE;Feld[x-1,y+1]:=FALSE;
ELSIF (lage=2) OR (lage=4) THEN
Feld[x,y+1]:=FALSE;Feld[x,y]:=FALSE; Feld[x-1,y-1]:=FALSE;Feld[x-1,y]:=FALSE;
END;
END;
END LoescheTeil;
PROCEDURE ZeichneTeil(a,lage: INTEGER; VAR x,y: INTEGER);
VAR i,j: INTEGER;
BEGIN;
IF a=1 THEN
FOR i:=0 TO 1 DO;
FOR j:=0 TO 1 DO;
Feld[x+i,y+j]:=TRUE
END;
END;
ELSIF a=2 THEN
IF (lage=1)OR(lage=3) THEN
FOR i:=0 TO 3 DO;
Feld[x-1+i,y]:=TRUE;
END;
ELSE
FOR i:=0 TO 3 DO;
Feld[x,y-1+i]:=TRUE;
END;
END;
ELSIF a=3 THEN
IF lage=1 THEN
Feld[x-1,y]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y]:=TRUE;Feld[x,y+1]:=TRUE;
ELSIF lage=2 THEN
Feld[x,y-1]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y]:=TRUE;Feld[x,y+1]:=TRUE;
ELSIF lage=3 THEN
Feld[x,y-1]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y]:=TRUE;Feld[x-1,y]:=TRUE;
ELSIF lage=4 THEN
Feld[x,y-1]:=TRUE;Feld[x,y]:=TRUE; Feld[x,y+1]:=TRUE;Feld[x-1,y]:=TRUE;
END;
ELSIF a=4 THEN
IF lage=1 THEN
Feld[x-1,y]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y]:=TRUE;Feld[x+1,y+1]:=TRUE;
ELSIF lage=2 THEN
Feld[x,y-1]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y-1]:=TRUE; Feld[x,y+1]:=TRUE;
ELSIF lage=3 THEN
Feld[x-1,y-1]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y]:=TRUE;Feld[x-1,y]:=TRUE;
ELSIF lage=4 THEN
Feld[x,y-1]:=TRUE;Feld[x,y]:=TRUE; Feld[x,y+1]:=TRUE;Feld[x-1,y+1]:=TRUE;
END;
ELSIF a=5 THEN
IF lage=1 THEN
Feld[x-1,y]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y]:=TRUE;Feld[x-1,y+1]:=TRUE;
ELSIF lage=2 THEN
Feld[x,y-1]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y+1]:=TRUE;Feld[x,y+1]:=TRUE;
ELSIF lage=3 THEN
Feld[x+1,y-1]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y]:=TRUE;Feld[x-1,y]:=TRUE;
ELSIF lage=4 THEN
Feld[x,y-1]:=TRUE;Feld[x,y]:=TRUE; Feld[x,y+1]:=TRUE;Feld[x-1,y-1]:=TRUE;
END;
ELSIF a=6 THEN
IF (lage=1) OR (lage=3) THEN
Feld[x-1,y]:=TRUE;Feld[x,y]:=TRUE; Feld[x,y+1]:=TRUE;Feld[x+1,y+1]:=TRUE;
ELSIF (lage=2) OR (lage= 4 )THEN
Feld[x+1,y]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y-1]:=TRUE; Feld[x,y+1]:=TRUE;
END;
ELSIF a=7 THEN
IF (lage=1) OR (lage=3) THEN
Feld[x,y+1]:=TRUE;Feld[x,y]:=TRUE; Feld[x+1,y]:=TRUE;Feld[x-1,y+1]:=TRUE;
ELSIF (lage=2) OR (lage=4) THEN
Feld[x,y+1]:=TRUE;Feld[x,y]:=TRUE; Feld[x-1,y-1]:=TRUE;Feld[x-1,y]:=TRUE;
END;
END;
END ZeichneTeil;
PROCEDURE HilfeLinks;
BEGIN
wechsel:=TRUE; altkey:=",";
END HilfeLinks;
PROCEDURE KontrolleLinks(a,lage: INTEGER; VAR x,y: INTEGER);
VAR hilfe1, hilfe2: BOOLEAN;
BEGIN
IF a=1 THEN
IF (~Feld[x-1,y])&(~Feld[x-1,y+1]) THEN DEC(x);
ELSIF ~(x<2) THEN HilfeLinks;END;
ELSIF a=2 THEN
IF (lage=1) OR (lage=3) THEN
IF (~Feld[x-2,y]) THEN DEC(x);
ELSIF ~(x<3) THEN HilfeLinks; END;
ELSE
hilfe1:=(~Feld[x-1,y-1])&(~Feld[x-1,y]); hilfe2:=(~Feld[x-1,y+1])&(~Feld[x-1,y+2]);
IF hilfe1&hilfe2 THEN DEC(x);
ELSIF ~(x<2) THEN HilfeLinks; END;
END;
ELSIF a=3 THEN
IF lage=1 THEN
IF (~Feld[x-2,y]&~Feld[x-1,y+1]) THEN DEC(x);
ELSIF ~(x<3) THEN HilfeLinks; END;
ELSIF lage=2 THEN
hilfe1:=(~Feld[x-1,y]&~Feld[x-1,y+1]);
IF hilfe1 & ~Feld[x-1,y-1] THEN DEC(x);
ELSIF ~(x<2) THEN HilfeLinks; END;
ELSIF lage=3 THEN
IF (~Feld[x-2,y]&~Feld[x-1,y-1]) THEN DEC(x);
ELSIF ~(x<3) THEN HilfeLinks; END;
ELSIF lage=4 THEN
hilfe1:=(~Feld[x-2,y]&~Feld[x-1,y+1]);
IF hilfe1 & ~Feld[x-1,y-1] THEN DEC(x);
ELSIF ~(x<3) THEN HilfeLinks; END;
END;
ELSIF a=4 THEN
IF lage=1 THEN
IF (~Feld[x-2,y]&~Feld[x,y+1]) THEN DEC(x);
ELSIF ~(x<3) THEN HilfeLinks; END;
ELSIF lage=2 THEN
hilfe1:=(~Feld[x-1,y]&~Feld[x-1,y+1]);
IF hilfe1 & ~Feld[x-1,y-1] THEN DEC(x);
ELSIF ~(x<2) THEN HilfeLinks; END;
ELSIF lage=3 THEN
IF (~Feld[x-2,y]&~Feld[x-2,y-1]) THEN DEC(x);
ELSIF ~(x<3) THEN HilfeLinks; END;
ELSIF lage=4 THEN
hilfe1:=(~Feld[x-2,y+1]&~Feld[x-1,y]);
IF hilfe1 & ~Feld[x-1,y-1] THEN DEC(x);
ELSIF ~(x<3) THEN HilfeLinks; END;
END;
ELSIF a=5 THEN
IF lage=1 THEN
IF (~Feld[x-2,y]&~Feld[x-2,y+1]) THEN DEC(x);
ELSIF ~(x<3) THEN HilfeLinks; END;
ELSIF lage=2 THEN
hilfe1:=(~Feld[x-1,y]&~Feld[x-1,y+1]);
IF hilfe1 & ~Feld[x-1,y-1] THEN DEC(x);
ELSIF ~(x<2) THEN HilfeLinks; END;
ELSIF lage=3 THEN
IF (~Feld[x-2,y]&~Feld[x,y-1]) THEN DEC(x);
ELSIF ~(x<3) THEN HilfeLinks; END;
ELSIF lage=4 THEN
hilfe1:=(~Feld[x-1,y+1]&~Feld[x-1,y]);
IF hilfe1 & ~Feld[x-2,y-1] THEN DEC(x);
ELSIF ~(x<3) THEN HilfeLinks; END;
END;
ELSIF a=6 THEN
IF (lage=1) OR (lage=3) THEN
IF (~Feld[x-2,y])&(~Feld[x-1,y+1]) THEN DEC(x);
ELSIF ~(x<3) THEN HilfeLinks; END;
ELSE
hilfe1:=(~Feld[x,y-1])&(~Feld[x-1,y]); hilfe2:=(~Feld[x-1,y+1]);
IF hilfe1&hilfe2 THEN DEC(x);
ELSIF ~(x<2) THEN HilfeLinks; END;
END;
ELSIF a=7 THEN
IF (lage=1) OR (lage=3) THEN
IF (~Feld[x-1,y])&(~Feld[x-2,y+1]) THEN DEC(x);
ELSIF ~(x<3) THEN HilfeLinks; END;
ELSE
hilfe1:=(~Feld[x-2,y-1])&(~Feld[x-2,y]); hilfe2:=(~Feld[x-1,y+1]);
IF hilfe1&hilfe2 THEN DEC(x);
ELSIF ~(x<3) THEN HilfeLinks; END;
END;
END;
END KontrolleLinks;
PROCEDURE HilfeRechts;
BEGIN
wechsel:=TRUE; altkey:=".";
END HilfeRechts;
PROCEDURE KontrolleRechts(a,lage: INTEGER; VAR x,y: INTEGER);
VAR hilfe1, hilfe2: BOOLEAN;
BEGIN
IF a=1 THEN
IF (~Feld[x+2,y])&(~Feld[x+2,y+1])THEN INC(x);
ELSIF~(x>8) THEN HilfeRechts; END;
ELSIF a=2 THEN
IF (lage=1) OR (lage=3) THEN
IF (~Feld[x+3,y]) THEN INC(x);
ELSIF ~(x>7) THEN HilfeRechts; END;
ELSE
hilfe1:=(~Feld[x+1,y-1])&(~Feld[x+1,y]); hilfe2:=(~Feld[x+1,y+1])&(~Feld[x+1,y+2]);
IF hilfe1&hilfe2 THEN INC(x);
ELSIF ~(x>9) THEN HilfeRechts; END;
END;
ELSIF a=3 THEN
IF lage=1 THEN
IF (~Feld[x+2,y]&~Feld[x+1,y+1]) THEN INC(x);
ELSIF ~(x>8) THEN HilfeRechts; END;
ELSIF lage=2 THEN
hilfe1:=(~Feld[x+2,y]&~Feld[x+1,y+1]);
IF hilfe1 & ~Feld[x+1,y-1] THEN INC(x);
ELSIF ~(x>8) THEN HilfeRechts; END;
ELSIF lage=3 THEN
IF (~Feld[x+2,y]&~Feld[x+1,y-1]) THEN INC(x);
ELSIF ~(x>8) THEN HilfeRechts; END;
ELSIF lage=4 THEN
hilfe1:=(~Feld[x+1,y]&~Feld[x+1,y+1]);
IF hilfe1 & ~Feld[x+1,y-1] THEN INC(x);
ELSIF ~(x>9) THEN HilfeRechts; END;
END;
ELSIF a=4 THEN
IF lage=1 THEN
IF (~Feld[x+2,y]&~Feld[x+2,y+1]) THEN INC(x);
ELSIF ~(x>8) THEN HilfeRechts; END;
ELSIF lage=2 THEN
hilfe1:=(~Feld[x+1,y]&~Feld[x+1,y+1]);
IF hilfe1 & ~Feld[x+2,y-1] THEN INC(x);
ELSIF ~(x>8) THEN HilfeRechts; END;
ELSIF lage=3 THEN
IF (~Feld[x+2,y]&~Feld[x,y-1]) THEN INC(x);
ELSIF ~(x>8) THEN HilfeRechts; END;
ELSIF lage=4 THEN
hilfe1:=(~Feld[x+1,y]&~Feld[x+1,y+1]);
IF hilfe1 & ~Feld[x+1,y-1] THEN INC(x);
ELSIF ~(x>9) THEN HilfeRechts; END;
END;
ELSIF a=5 THEN
IF lage=1 THEN
IF (~Feld[x+2,y]&~Feld[x,y+1]) THEN INC(x);
ELSIF ~(x>8) THEN HilfeRechts; END;
ELSIF lage=2 THEN
hilfe1:=(~Feld[x+1,y]&~Feld[x+2,y+1]);
IF hilfe1 & ~Feld[x+1,y-1] THEN INC(x);
ELSIF ~(x>8) THEN HilfeRechts; END;
ELSIF lage=3 THEN
IF (~Feld[x+2,y]&~Feld[x+2,y-1]) THEN INC(x);
ELSIF ~(x>8) THEN HilfeRechts; END;
ELSIF lage=4 THEN
hilfe1:=(~Feld[x+1,y]&~Feld[x+1,y+1]);
IF hilfe1 & ~Feld[x+1,y-1] THEN INC(x);
ELSIF ~(x>9) THEN HilfeRechts; END;
END;
ELSIF a=6 THEN
IF (lage=1) OR (lage=3) THEN
IF (~Feld[x+1,y])&(~Feld[x+2,y+1]) THEN INC(x);
ELSIF ~(x>8) THEN HilfeRechts; END;
ELSE
hilfe1:=(~Feld[x+2,y-1])&(~Feld[x+2,y]); hilfe2:=(~Feld[x+1,y+1]);
IF hilfe1&hilfe2 THEN INC(x);
ELSIF ~(x>8) THEN HilfeRechts; END;
END;
ELSIF a=7 THEN
IF (lage=1) OR (lage=3) THEN
IF (~Feld[x+2,y])&(~Feld[x+1,y+1]) THEN INC(x);
ELSIF ~(x>8) THEN HilfeRechts; END;
ELSE
hilfe1:=(~Feld[x,y-1])&(~Feld[x+1,y]); hilfe2:=(~Feld[x+1,y+1]);
IF hilfe1&hilfe2 THEN INC(x);
ELSIF ~(x>9) THEN HilfeRechts; END;
END;
END;
END KontrolleRechts;
PROCEDURE HilfeUnten(x,y: INTEGER);
BEGIN;
IF y=19 THEN Spielende:=TRUE END;
IF x<11 THEN fertig1:=TRUE; ELSE fertig2:=TRUE END;
END HilfeUnten;
PROCEDURE KontrolleUnten(a,lage,x,y: INTEGER);
VAR hilfe1, hilfe2: BOOLEAN;
BEGIN
IF y>1 THEN
IF a=1 THEN
IF Feld[x,y-1] OR Feld[x+1,y-1] THEN HilfeUnten(x,y) END;
ELSIF a=2 THEN
IF (lage=1) OR (lage=3) THEN
hilfe1:=Feld[x-1,y-1] OR Feld[x,y-1]; hilfe2:=Feld[x+1,y-1] OR Feld[x+2,y-1];
IF hilfe1 OR hilfe2 THEN HilfeUnten(x,y) END;
ELSE
IF Feld[x,y-2] THEN HilfeUnten(x,y) END;
END;
ELSIF a=3 THEN
IF lage=1 THEN
hilfe1:=Feld[x-1,y-1] OR Feld[x,y-1]; hilfe2:=Feld[x+1,y-1];
IF hilfe1 OR hilfe2 THEN HilfeUnten(x,y) END;
ELSIF lage=2 THEN
IF Feld[x,y-2] OR Feld[x+1,y-1] THEN HilfeUnten(x,y) END;
ELSIF lage=3 THEN
hilfe1:=Feld[x-1,y-1] OR Feld[x,y-2]; hilfe2:=Feld[x+1,y-1];
IF hilfe1 OR hilfe2 THEN HilfeUnten(x,y) END;
ELSIF lage=4 THEN
IF Feld[x,y-2] OR Feld[x-1,y-1] THEN HilfeUnten(x,y) END;
END;
ELSIF a=4 THEN
IF lage=1 THEN
hilfe1:=Feld[x-1,y-1] OR Feld[x,y-1]; hilfe2:=Feld[x+1,y-1];
IF hilfe1 OR hilfe2 THEN HilfeUnten(x,y) END;
ELSIF lage=2 THEN
IF Feld[x,y-2] OR Feld[x+1,y-2] THEN HilfeUnten(x,y) END;
ELSIF lage=3 THEN
hilfe1:=Feld[x-1,y-2] OR Feld[x,y-1]; hilfe2:=Feld[x+1,y-1];
IF hilfe1 OR hilfe2 THEN HilfeUnten(x,y) END;
ELSIF lage=4 THEN
IF Feld[x,y-2] OR Feld[x-1,y] THEN HilfeUnten(x,y) END;
END;
ELSIF a=5 THEN
IF lage=1 THEN
hilfe1:=Feld[x-1,y-1] OR Feld[x,y-1]; hilfe2:=Feld[x+1,y-1];
IF hilfe1 OR hilfe2 THEN HilfeUnten(x,y) END;
ELSIF lage=2 THEN
IF Feld[x,y-2] OR Feld[x+1,y] THEN HilfeUnten(x,y) END;
ELSIF lage=3 THEN
hilfe1:=Feld[x-1,y-1] OR Feld[x,y-1]; hilfe2:=Feld[x+1,y-2];
IF hilfe1 OR hilfe2 THEN HilfeUnten(x,y) END;
ELSIF lage=4 THEN
IF Feld[x,y-2] OR Feld[x-1,y-2] THEN HilfeUnten(x,y) END;
END;
ELSIF a=6 THEN
IF (lage=1) OR (lage=3) THEN
hilfe1:=Feld[x-1,y-1] OR Feld[x,y-1]; hilfe2:=Feld[x+1,y];
IF hilfe1 OR hilfe2 THEN HilfeUnten(x,y) END;
ELSE
IF Feld[x,y-1] OR Feld[x+1,y-2] THEN HilfeUnten(x,y) END;
END;
ELSIF a=7 THEN
IF (lage=1) OR (lage=3) THEN
hilfe1:=Feld[x-1,y] OR Feld[x,y-1]; hilfe2:=Feld[x+1,y-1];
IF hilfe1 OR hilfe2 THEN HilfeUnten(x,y) END;
ELSE
IF Feld[x,y-1] OR Feld[x-1,y-2] THEN HilfeUnten(x,y) END;
END;
END;
ELSE HilfeUnten(x,y); END;
END KontrolleUnten;
PROCEDURE DrehungLinks(VAR a,lage,x,y: INTEGER):BOOLEAN;
VAR hilfe1: BOOLEAN;
BEGIN;
IF a=2 THEN
IF lage DIV 2 # 0 THEN
hilfe1:=~Feld[x-1,y]&~Feld[x+1,y];
RETURN ~Feld[x+2,y]&hilfe1 ;
ELSE
hilfe1:=~Feld[x,y-1]&~Feld[x,y+1];
RETURN ~Feld[x,y+2]&hilfe1 ;
END;
ELSIF a=3 THEN
IF lage=1 THEN RETURN ~Feld[x,y-1];
ELSIF lage=2 THEN RETURN ~Feld[x-1,y];
ELSIF lage=3 THEN RETURN ~Feld[x,y+1];
ELSIF lage=4 THEN RETURN ~Feld[x+1,y];
END;
ELSIF a=4 THEN
IF lage=1 THEN
hilfe1:=~Feld[x+1,y-1]&~Feld[x,y-1];
RETURN hilfe1&~Feld[x,y+1];
ELSIF lage=2 THEN
hilfe1:=~Feld[x+1,y]&~Feld[x-1,y-1];
RETURN hilfe1&~Feld[x-1,y];
ELSIF lage=3 THEN
hilfe1:=~Feld[x-1,y+1]&~Feld[x,y-1];
RETURN hilfe1&~Feld[x,y+1];
ELSIF lage=4 THEN
hilfe1:=~Feld[x+1,y]&~Feld[x+1,y+1];
RETURN hilfe1&~Feld[x-1,y];
END;
ELSIF a=5 THEN
IF lage=1 THEN
hilfe1:=~Feld[x+1,y+1]&~Feld[x,y-1];
RETURN hilfe1&~Feld[x,y+1];
ELSIF lage=2 THEN
hilfe1:=~Feld[x+1,y]&~Feld[x+1,y-1];
RETURN hilfe1&~Feld[x-1,y];
ELSIF lage=3 THEN
hilfe1:=~Feld[x-1,y-1]&~Feld[x,y-1];
RETURN hilfe1&~Feld[x,y+1];
ELSIF lage=4 THEN
hilfe1:=~Feld[x+1,y]&~Feld[x-1,y+1];
RETURN hilfe1&~Feld[x-1,y];
END;
END;
RETURN TRUE;
END DrehungLinks;
PROCEDURE DrehungRechts(VAR a,lage,x,y: INTEGER):BOOLEAN;
VAR hilfe1: BOOLEAN;
BEGIN
IF a=2 THEN
IF lage DIV 2 # 0 THEN
hilfe1:=~Feld[x-1,y]&~Feld[x+1,y];
RETURN ~Feld[x+2,y]&hilfe1 ;
ELSE
hilfe1:=~Feld[x,y-1]&~Feld[x,y+1];
RETURN ~Feld[x,y+2]&hilfe1 ;
END;
ELSIF a=3 THEN
IF lage=3 THEN RETURN ~Feld[x,y-1];
ELSIF lage=2 THEN RETURN ~Feld[x-1,y];
ELSIF lage=1 THEN RETURN ~Feld[x,y+1];
ELSIF lage=4 THEN RETURN ~Feld[x+1,y];
END;
ELSIF a=4 THEN
IF lage=3 THEN
hilfe1:=~Feld[x+1,y-1]&~Feld[x,y-1];
RETURN hilfe1&~Feld[x,y+1];
ELSIF lage=4 THEN
hilfe1:=~Feld[x+1,y]&~Feld[x-1,y-1];
RETURN hilfe1&~Feld[x-1,y];
ELSIF lage=1 THEN
hilfe1:=~Feld[x-1,y+1]&~Feld[x,y-1];
RETURN hilfe1&~Feld[x,y+1];
ELSIF lage=2 THEN
hilfe1:=~Feld[x+1,y]&~Feld[x+1,y+1];
RETURN hilfe1&~Feld[x-1,y];
END;
ELSIF a=5 THEN
IF lage=3 THEN
hilfe1:=~Feld[x+1,y+1]&~Feld[x,y-1];
RETURN hilfe1&~Feld[x,y+1];
ELSIF lage=4 THEN
hilfe1:=~Feld[x+1,y]&~Feld[x+1,y-1];
RETURN hilfe1&~Feld[x-1,y];
ELSIF lage=1 THEN
hilfe1:=~Feld[x-1,y-1]&~Feld[x,y-1];
RETURN hilfe1&~Feld[x,y+1];
ELSIF lage=2 THEN
hilfe1:=~Feld[x+1,y]&~Feld[x-1,y+1];
RETURN hilfe1&~Feld[x-1,y];
END;
ELSIF a=6 THEN
IF (lage=1) OR (lage=3) THEN
RETURN ~Feld[x+1,y-1]&~Feld[x+1,y];
ELSE
RETURN ~Feld[x+1,y+1]&~Feld[x-1,y];
END;
ELSIF a=7 THEN
IF (lage=1) OR (lage=3) THEN
RETURN ~Feld[x-1,y-1]&~Feld[x-1,y];
ELSE
RETURN ~Feld[x-1,y+1]&~Feld[x+1,y];
END;
END;
RETURN TRUE;
END DrehungRechts;
PROCEDURE Strafen1;
VAR Hoehe,i,j,freiesFeld: INTEGER;
BEGIN
IF Straflinien1#0 THEN
Hoehe:=20-Straflinien1;
WHILE Hoehe>=1 DO
FOR i:=1 TO 10 DO;
Feld[i,Hoehe+Straflinien1]:=Feld[i,Hoehe];
END;
DEC(Hoehe);
END;
FOR i:=1 TO Straflinien1 DO;
FOR j:=1 TO 10 DO;
Feld[j,i]:=TRUE;
END;
freiesFeld:=0;
WHILE freiesFeld=0 DO freiesFeld:=SHORT(ENTIER(10*RN.Uniform())); END;
Feld[freiesFeld,i]:=FALSE;
END;
Straflinien1:=0;
END;
END Strafen1;
PROCEDURE Strafen2;
VAR Hoehe,i,j,freiesFeld: INTEGER;
BEGIN
IF Straflinien2#0 THEN
Hoehe:=20-Straflinien2;
WHILE Hoehe>=1 DO
FOR i:=21 TO 30 DO;
Feld[i,Hoehe+Straflinien2]:=Feld[i,Hoehe];
END;
DEC(Hoehe);
END;
FOR i:=1 TO Straflinien2 DO;
FOR j:=21 TO 30 DO;
Feld[j,i]:=TRUE;
END;
freiesFeld:=0;
WHILE freiesFeld=0 DO freiesFeld:=SHORT(ENTIER(10*RN.Uniform())); END;
Feld[20+freiesFeld,i]:=FALSE;
END;
Straflinien2:=0;
END;
END Strafen2;
PROCEDURE Spiel;
VAR i,j,k,Zaehler: INTEGER; key: CHAR; hilfe1,hilfe2: BOOLEAN;next,altnext,OrtX, OrtY: INTEGER;
BEGIN;
WHILE ~Spielende DO
IF y1=0 THEN
IF y2=0 THEN
x2:=25; y2:=19;lage2:=1;fertig2:=FALSE; tempo2:=1; a2:=0;
a2:=next;
END;
x1:=5; y1:=19;lage1:=1; fertig1:=FALSE; tempo1:=1;a1:=0;
a1:=next;
ELSE
x2:=25; y2:=19;lage2:=1;fertig2:=FALSE; tempo2:=1; a2:=0;
IF next=0 THEN a2:=a1; ELSE a2:=next; END;
END;
next:=0;
WHILE next=0 DO next:=SHORT(ENTIER(7*RN.Uniform()+0.5)); END;
OrtX:=15; OrtY:=15;
LoescheTeil(altnext,1,OrtX,OrtY);
ZeichneTeil(next,1,OrtX, OrtY);
MaleVorschau;
altnext:=next;
wechsel:=FALSE;
Ziffer.Zeichne(3,level1,1,0); Ziffer.Zeichne(4,Linien1,7,0);Ziffer.Zeichne(8,Punkte1,3,-1);
IF Spieler2 THEN Ziffer.Zeichne(3,level2,21,0); Ziffer.Zeichne(4,Linien2,27,0);
Ziffer.Zeichne(8,Punkte2,23,-1); END;
WHILE (y1>0) & (y2>0) DO;
IF ~Spieler2 THEN y2:=7; END;
INC(Zaehler);
key:=X.Key();
(* IF wechsel THEN key:=altkey; END; *);
IF key=links1 THEN
LoescheTeil(a1,lage1,x1,y1);
KontrolleLinks(a1,lage1,x1,y1);
END;
IF key=rechts1 THEN
LoescheTeil(a1,lage1,x1,y1);
KontrolleRechts(a1,lage1,x1,y1);
END;
IF Spieler2 THEN
IF key=links2 THEN
LoescheTeil(a2,lage2,x2,y2);
KontrolleLinks(a2,lage2,x2,y2);
END;
IF key=rechts2 THEN
LoescheTeil(a2,lage2,x2,y2);
KontrolleRechts(a2,lage2,x2,y2);
END; END;
hilfe1:=(x1>1)&(x1<10);
IF Spieler2 THEN hilfe2:=(x2>21)&(x2<30); END;
IF key=drehunglinks1 THEN
IF hilfe1 & DrehungLinks(a1,lage1,x1,y1) THEN INC(lage1); IF lage1>4 THEN lage1:=1 END; END; END;
IF key=drehungrechts1 THEN
IF hilfe1 & DrehungRechts(a1,lage1,x1,y1) THEN DEC(lage1); IF lage1<1 THEN lage1:=4 END; END; END;
IF Spieler2 THEN
IF key=drehunglinks2 THEN
IF hilfe2 & DrehungLinks(a2,lage2,x2,y2) THEN INC(lage2); IF lage2>4 THEN lage2:=1 END; END; END;
IF key=drehungrechts2 THEN
IF hilfe2 & DrehungRechts(a2,lage2,x2,y2) THEN DEC(lage2); IF lage2<1 THEN lage2:=4 END; END; END;
END;
IF key=ende THEN Spielende:=TRUE; END;
IF key=runter1 THEN
IF tempo1=8(*Verzoegerung DIV level1*) THEN tempo1:=1
ELSE tempo1:=8(*Verzoegerung DIV level1*); Punkte1:=Punkte1 + level1*y1; END;
END;
IF Spieler2 THEN IF key=runter2 THEN
IF tempo2=8(*Verzoegerung DIV level2*) THEN tempo2:=1
ELSE tempo2:=8(*Verzoegerung DIV level2*); Punkte2:=Punkte2 + level2*y2;END;
END; END;
IF Zaehler MOD (Verzoegerung DIV level1 DIV tempo1) = 0 THEN
KontrolleUnten(a1,lage1,x1,y1);
ZeichneTeil(a1,lage1,x1,y1);
Malen1;
IF fertig1 THEN Kontrolle; LoescheLinien1; Malen1; Strafen1; END;
IF ~fertig1 THEN
LoescheTeil(a1,lage1,x1,y1);
END;
IF fertig1 THEN y1:=0 ELSE DEC(y1); END;
END;
IF Spieler2 THEN
IF Zaehler MOD (Verzoegerung DIV level2 DIV tempo2) = 0 THEN
KontrolleUnten(a2,lage2,x2,y2);
ZeichneTeil(a2,lage2,x2,y2);
Malen2;
IF fertig2 THEN Kontrolle; LoescheLinien2; Malen2; Strafen2; END;
IF ~fertig2 THEN
LoescheTeil(a2,lage2,x2,y2);
END;
IF fertig2 THEN y2:=0 ELSE DEC(y2); END;
END;
END;
IF Spieler2 THEN
IF (Linien1>=Limit) OR (Linien2>=Limit) THEN
IF Linien2<Limit THEN Out.String("Spieler1 hat gewonnen!"); Spielende:=TRUE;
ELSIF Linien1<Limit THEN Out.String("Spieler2 hat gewonnen!"); Spielende:=TRUE;
ELSE Out.String("Beide haben gewonnen!"); Spielende:=TRUE;
END
END;
END;
IF key=pause THEN
REPEAT key:=X.Key() UNTIL key=endepause;
END;
IF Zaehler=Verzoegerung THEN Zaehler:=0; END;
END;
END;
END Spiel;
PROCEDURE Start*;
VAR p: INTEGER;
BEGIN
In.Open;
In.Int(p);
IF p=2 THEN Spieler2:=TRUE; ELSE Spieler2:=FALSE; END;
Spielfeldzeichnen;
RN.InitSeed(Oberon.Time());
Spielende:=FALSE;
IF Spieler2 THEN x2:=26; y2:=19;lage2:=1;fertig2:=FALSE; tempo2:=1; a2:=0;
WHILE a2=0 DO a2:=SHORT(ENTIER(7*RN.Uniform()+0.5)); END ; END;
x1:=5; y1:=19;lage1:=1; fertig1:=FALSE; tempo1:=1;a1:=0;
WHILE a1=0 DO a1:=SHORT(ENTIER(7*RN.Uniform()+0.5)); END;
wechsel:=FALSE;
Linien1:=0; Linien2:=0; level1:=1; level2:=1; Punkte1:=0; Punkte2:=0;
Straflinien1:=0; Straflinien2:=0;
Spiel;
END Start;
BEGIN
Start
END Tetris.

134
src/test/X11/tetris/Ziffer.Mod Normal file
View file

@ -0,0 +1,134 @@
MODULE Ziffer;
IMPORT X:=oocXYplane, L:=Linie, In := compatIn, Out := Console, RN:=ethRandomNumbers;
PROCEDURE Loesche*(x,y: INTEGER);
VAR i: INTEGER;
BEGIN
FOR i:=1 TO 9 DO;
L.LoescheLinie(40+10*x+1,40+10*y+i,40+10*x+9,40+10*y+i);
END;
END Loesche;
PROCEDURE Eins*(x,y: INTEGER);
BEGIN
L.Linie(40+10*x+3,40+10*y+5,40+10*x+6,40+10*y+8);
L.Linie(40+10*x+6,40+10*y+8,40+10*x+6,40+10*y+2);
END Eins;
PROCEDURE Zwei*(x,y: INTEGER);
BEGIN
L.Linie(40+10*x+3,40+10*y+8,40+10*x+6,40+10*y+8);
L.Linie(40+10*x+3,40+10*y+5,40+10*x+6,40+10*y+5);
L.Linie(40+10*x+3,40+10*y+2,40+10*x+6,40+10*y+2);
L.Linie(40+10*x+6,40+10*y+8,40+10*x+6,40+10*y+5);
L.Linie(40+10*x+3,40+10*y+5,40+10*x+3,40+10*y+2);
END Zwei;
PROCEDURE Drei*(x,y: INTEGER);
BEGIN
L.Linie(40+10*x+3,40+10*y+8,40+10*x+6,40+10*y+8);
L.Linie(40+10*x+3,40+10*y+5,40+10*x+6,40+10*y+5);
L.Linie(40+10*x+3,40+10*y+2,40+10*x+6,40+10*y+2);
L.Linie(40+10*x+6,40+10*y+8,40+10*x+6,40+10*y+5);
L.Linie(40+10*x+6,40+10*y+5,40+10*x+6,40+10*y+2);
END Drei;
PROCEDURE Vier*(x,y: INTEGER);
BEGIN
L.Linie(40+10*x+3,40+10*y+8,40+10*x+3,40+10*y+5);
L.Linie(40+10*x+3,40+10*y+5,40+10*x+6,40+10*y+5);
L.Linie(40+10*x+5,40+10*y+7,40+10*x+5,40+10*y+2);
END Vier;
PROCEDURE Fuenf*(x,y: INTEGER);
BEGIN
L.Linie(40+10*x+3,40+10*y+8,40+10*x+6,40+10*y+8);
L.Linie(40+10*x+3,40+10*y+5,40+10*x+6,40+10*y+5);
L.Linie(40+10*x+3,40+10*y+2,40+10*x+6,40+10*y+2);
L.Linie(40+10*x+3,40+10*y+8,40+10*x+3,40+10*y+5);
L.Linie(40+10*x+6,40+10*y+5,40+10*x+6,40+10*y+2);
END Fuenf;
PROCEDURE Sechs*(x,y: INTEGER);
BEGIN
L.Linie(40+10*x+3,40+10*y+5,40+10*x+6,40+10*y+5);
L.Linie(40+10*x+3,40+10*y+2,40+10*x+6,40+10*y+2);
L.Linie(40+10*x+3,40+10*y+8,40+10*x+3,40+10*y+2);
L.Linie(40+10*x+6,40+10*y+5,40+10*x+6,40+10*y+2);
END Sechs;
PROCEDURE Sieben*(x,y: INTEGER);
BEGIN
L.Linie(40+10*x+3,40+10*y+8,40+10*x+7,40+10*y+8);
L.Linie(40+10*x+3,40+10*y+2,40+10*x+7,40+10*y+8);
END Sieben;
PROCEDURE Acht*(x,y: INTEGER);
BEGIN
L.Linie(40+10*x+3,40+10*y+8,40+10*x+7,40+10*y+8);
L.Linie(40+10*x+3,40+10*y+5,40+10*x+7,40+10*y+5);
L.Linie(40+10*x+3,40+10*y+2,40+10*x+7,40+10*y+2);
L.Linie(40+10*x+3,40+10*y+8,40+10*x+3,40+10*y+2);
L.Linie(40+10*x+7,40+10*y+8,40+10*x+7,40+10*y+2);
END Acht;
PROCEDURE Neun*(x,y: INTEGER);
BEGIN
L.Linie(40+10*x+3,40+10*y+8,40+10*x+7,40+10*y+8);
L.Linie(40+10*x+3,40+10*y+5,40+10*x+7,40+10*y+5);
L.Linie(40+10*x+3,40+10*y+2,40+10*x+7,40+10*y+2);
L.Linie(40+10*x+3,40+10*y+8,40+10*x+3,40+10*y+5);
L.Linie(40+10*x+7,40+10*y+8,40+10*x+7,40+10*y+2);
END Neun;
PROCEDURE Null*(x,y: INTEGER);
BEGIN
L.Linie(40+10*x+3,40+10*y+8,40+10*x+7,40+10*y+8);
L.Linie(40+10*x+3,40+10*y+2,40+10*x+7,40+10*y+2);
L.Linie(40+10*x+3,40+10*y+8,40+10*x+3,40+10*y+2);
L.Linie(40+10*x+7,40+10*y+8,40+10*x+7,40+10*y+2);
END Null ;
PROCEDURE Zeichne*(Laenge, Zahl, x,y: INTEGER);
VAR j,a,i,k: INTEGER;
BEGIN;
FOR i:=0 TO Laenge-1 DO;
Loesche(x+i,y);
a:=1;
FOR k:=2 TO Laenge-i DO
a:=10*a;
END;
j:=Zahl DIV a;
IF j=0 THEN Null(x+i,y);
ELSIF j=1 THEN Eins(x+i,y);
ELSIF j=2 THEN Zwei(x+i,y);
ELSIF j=3 THEN Drei(x+i,y);
ELSIF j=4 THEN Vier(x+i,y);
ELSIF j=5 THEN Fuenf(x+i,y);
ELSIF j=6 THEN Sechs(x+i,y);
ELSIF j=7 THEN Sieben(x+i,y);
ELSIF j=8 THEN Acht(x+i,y);
ELSIF j=9 THEN Neun(x+i,y);
END;
Zahl:=Zahl - j*a;
END;
END Zeichne;
END Ziffer.

17
src/test/X11/tetris/makefile Normal file
View file

@ -0,0 +1,17 @@
#for old systems like RHEL4 use
#CFLAGS=-L/usr/X11R6/lib -lX11
CFLAGS=-lX11
export CFLAGS
VOC = $(SETPATH) /opt/voc/bin/voc
all:
$(VOC) -s Linie.Mod Ziffer.Mod Tetris.Mod -m
#$(VOC) -Cm test.Mod
#gcc -o test test.o -fPIC -g -I /opt/voc-1.0/src/lib/system/gnuc/x86_64 -I /opt/voc-1.0/lib/voc/obj -lVishapOberon -L. -L/opt/voc-1.0/lib -lX11
clean:
rm *.c
rm *.h
rm *.sym
rm *.o