mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 00:32:24 +00:00
548 lines
16 KiB
Modula-2
548 lines
16 KiB
Modula-2
MODULE PacMan;
|
|
|
|
(* (C) Copyright 1996 by Roland Brand, Aarau *)
|
|
|
|
IMPORT XYplane := oocXYplane ,Out := Console ,Grafik,RandomNumbers := ethRandomNumbers;
|
|
|
|
TYPE figur=RECORD
|
|
PosX,PosY,Richtung,Blick:INTEGER;
|
|
END;
|
|
|
|
CONST stop=0;
|
|
links=1;
|
|
rechts=2;
|
|
hoch=3;
|
|
runter=4;
|
|
Bremse=100;
|
|
|
|
VAR Feld:ARRAY 39,25 OF INTEGER;
|
|
pcman,geistli,punkt,linie,kreuzung,ecke:Grafik.sprite;
|
|
pcm:figur;
|
|
geist: ARRAY 4 OF figur;
|
|
score:LONGINT;
|
|
AnzPunkte:INTEGER;
|
|
|
|
PROCEDURE Initialisieren;
|
|
VAR i,j:INTEGER;
|
|
BEGIN
|
|
XYplane.Clear;
|
|
score:=0;
|
|
FOR j:=0 TO 24 DO
|
|
FOR i:=0 TO 38 DO
|
|
Feld[i,j]:=0;
|
|
END;
|
|
END;
|
|
FOR j:=0 TO 9 DO
|
|
FOR i:=0 TO 9 DO
|
|
pcman[i,j]:=FALSE;
|
|
punkt[i,j]:=FALSE;
|
|
linie[i,j]:=FALSE;
|
|
kreuzung[i,j]:=FALSE;
|
|
ecke[i,j]:=FALSE;
|
|
END;
|
|
END;
|
|
pcman[4,0]:=TRUE; pcman[5,0]:=TRUE;
|
|
FOR i:=3 TO 7 DO pcman[i,1]:=TRUE END;
|
|
FOR i:=2 TO 9 DO pcman[i,2]:=TRUE END;
|
|
FOR i:=1 TO 7 DO pcman[i,3]:=TRUE END;
|
|
FOR i:=0 TO 6 DO pcman[i,4]:=TRUE END;
|
|
FOR i:=0 TO 6 DO pcman[i,5]:=TRUE END;
|
|
FOR i:=1 TO 7 DO pcman[i,6]:=TRUE END;
|
|
FOR i:=2 TO 9 DO pcman[i,7]:=TRUE END;
|
|
FOR i:=3 TO 7 DO pcman[i,8]:=TRUE END;
|
|
pcman[4,9]:=TRUE; pcman[5,9]:=TRUE;
|
|
FOR j:=0 TO 9 DO
|
|
FOR i:=0 TO 9 DO
|
|
geistli[i,j]:=TRUE;
|
|
END;
|
|
END;
|
|
FOR i:=0 TO 3 DO
|
|
geistli[i,9]:=FALSE;
|
|
geistli[9-i,9]:=FALSE;
|
|
END;
|
|
geistli[0,8]:=FALSE; geistli[1,8]:=FALSE; geistli[8,8]:=FALSE; geistli[9,8]:=FALSE;
|
|
geistli[0,7]:=FALSE; geistli[9,7]:=FALSE;
|
|
geistli[3,6]:=FALSE; geistli[6,6]:=FALSE;
|
|
geistli[2,1]:=FALSE; geistli[6,1]:=FALSE;
|
|
FOR i:=1 TO 3 DO
|
|
geistli[i,0]:=FALSE;
|
|
geistli[9-i,0]:=FALSE;
|
|
END;
|
|
Feld[1,1]:=1;
|
|
punkt[4,4]:=TRUE; punkt[5,4]:=TRUE; punkt[4,5]:=TRUE; punkt[5,5]:=TRUE;
|
|
FOR i:=0 TO 9 DO
|
|
linie[i,4]:=TRUE;
|
|
linie[i,5]:=TRUE;
|
|
kreuzung[i,4]:=TRUE;
|
|
kreuzung[i,5]:=TRUE;
|
|
kreuzung[4,i]:=TRUE;
|
|
kreuzung[5,i]:=TRUE;
|
|
END;
|
|
FOR i:=0 TO 5 DO
|
|
ecke[4,i]:=TRUE;
|
|
ecke[5,i]:=TRUE;
|
|
ecke[9-i,4]:=TRUE;
|
|
ecke[9-i,5]:=TRUE;
|
|
END;
|
|
pcm.Blick:=rechts;
|
|
END Initialisieren;
|
|
|
|
PROCEDURE Bitmuster(a,b:INTEGER):BOOLEAN;
|
|
(* prueft ob das b. Bit in a gesetzt ist und gibt in dem Fall true zurueck *)
|
|
VAR c:INTEGER;
|
|
BEGIN
|
|
IF b<0 THEN
|
|
Out.String("Fehler im Programm: Procedure Bitmuster");
|
|
HALT(35);
|
|
END;
|
|
IF a<ASH(1,b) THEN RETURN FALSE END;
|
|
c:=a;
|
|
REPEAT
|
|
IF c<ASH(1,b) THEN RETURN FALSE END;
|
|
IF (c>=ASH(1,b)) & (c<ASH(1,b+1)) THEN RETURN TRUE END;
|
|
c:=c-SHORT(ASH(1,b+1));
|
|
UNTIL c<0;
|
|
RETURN FALSE;
|
|
END Bitmuster;
|
|
|
|
PROCEDURE Zeichnen;
|
|
VAR i,j,x,y:INTEGER;
|
|
BEGIN
|
|
FOR j:=0 TO 24 DO
|
|
y:=400-j*10;
|
|
FOR i:=0 TO 38 DO
|
|
x:=10+i*10;
|
|
IF Bitmuster(Feld[i,j],7) THEN
|
|
IF Bitmuster(Feld[i,j],6) THEN Grafik.SpriteSetzen(kreuzung,x,y)
|
|
ELSE Grafik.SpriteSetzen(linie,x,y)
|
|
END;
|
|
ELSIF Bitmuster(Feld[i,j],6) THEN
|
|
Grafik.SpriteDrehen(1,linie);
|
|
Grafik.SpriteSetzen(linie,x,y);
|
|
Grafik.SpriteDrehen(1,linie);
|
|
ELSIF Bitmuster(Feld[i,j],5) THEN
|
|
IF i=0 THEN
|
|
IF j=0 THEN Grafik.SpriteSetzen(ecke,x,y)
|
|
ELSIF ~Bitmuster(Feld[i,j-1],6) THEN Grafik.SpriteSetzen(ecke,x,y)
|
|
ELSE
|
|
Grafik.SpriteDrehen(3,ecke);
|
|
Grafik.SpriteSetzen(ecke,x,y);
|
|
Grafik.SpriteDrehen(1,ecke);
|
|
END;
|
|
ELSE
|
|
IF j=0 THEN
|
|
IF ~Bitmuster(Feld[i-1,j],7) THEN Grafik.SpriteSetzen(ecke,x,y)
|
|
ELSE
|
|
Grafik.SpriteDrehen(1,ecke);
|
|
Grafik.SpriteSetzen(ecke,x,y);
|
|
Grafik.SpriteDrehen(3,ecke);
|
|
END;
|
|
ELSIF Bitmuster(Feld[i,j+1],6) THEN
|
|
IF Bitmuster(Feld[i-1,j],7) THEN
|
|
Grafik.SpriteDrehen(1,ecke);
|
|
Grafik.SpriteSetzen(ecke,x,y);
|
|
Grafik.SpriteDrehen(3,ecke);
|
|
ELSE Grafik.SpriteSetzen(ecke,x,y)
|
|
END;
|
|
ELSE
|
|
Grafik.SpriteDrehen(2,ecke);
|
|
Grafik.SpriteSetzen(ecke,x,y);
|
|
Grafik.SpriteDrehen(2,ecke);
|
|
END;
|
|
END;
|
|
ELSIF Bitmuster(Feld[i,j],3) THEN Grafik.SpriteSetzen(punkt,x,y);
|
|
END;
|
|
END;
|
|
END;
|
|
END Zeichnen;
|
|
|
|
PROCEDURE Level1;
|
|
VAR i,j:INTEGER;
|
|
BEGIN
|
|
RandomNumbers.InitSeed(93247856);
|
|
Initialisieren;
|
|
Feld[0,0]:=32;
|
|
FOR i:=1 TO 37 DO
|
|
Feld[i,0]:=128;
|
|
Feld[i,2]:=128;
|
|
Feld[i,4]:=128;
|
|
Feld[i,6]:=128;
|
|
Feld[i,16]:=128;
|
|
Feld[i,20]:=128;
|
|
Feld[i,22]:=128;
|
|
Feld[i,24]:=128;
|
|
END;
|
|
Feld[18,0]:=32; Feld[19,0]:=0; Feld[20,0]:=32; Feld[38,0]:=32;
|
|
FOR i:=1 TO 5 DO
|
|
Feld[0,i]:=64;
|
|
Feld[38,i]:=64;
|
|
END;
|
|
Feld[18,1]:=64; Feld[20,1]:=64;
|
|
Feld[1,2]:=0; Feld[9,2]:=0; Feld[17,2]:=0; Feld[18,2]:=192; Feld[20,2]:=192;
|
|
Feld[21,2]:=0; Feld[29,2]:=0; Feld[37,2]:=0;
|
|
Feld[1,4]:=0; Feld[9,4]:=0; Feld[10,4]:=32; Feld[12,4]:=32; Feld[13,4]:=0;
|
|
Feld[19,4]:=192; Feld[25,4]:=0; Feld[26,4]:=192; Feld[28,4]:=192; Feld[29,4]:=0;
|
|
Feld[37,4]:=0;
|
|
FOR i:=5 TO 9 DO
|
|
Feld[10,i]:=64;
|
|
Feld[28,i]:=64;
|
|
END;
|
|
Feld[12,5]:=64; Feld[19,5]:=64; Feld[26,5]:=64;
|
|
Feld[0,6]:=32; Feld[8,6]:=32; Feld[9,6]:=0; Feld[10,6]:=64; Feld[11,6]:=0;
|
|
Feld[12,6]:=192; Feld[17,6]:=192; Feld[18,6]:=0; Feld[19,6]:=64;Feld[20,6]:=0;
|
|
Feld[21,6]:=192; Feld[26,6]:=192; Feld[27,6]:=0; Feld[28,6]:=64; Feld[29,6]:=0;
|
|
Feld[30,6]:=192; Feld[38,6]:=192;
|
|
FOR i:=7 TO 9 DO
|
|
Feld[8,i]:=64;
|
|
Feld[12,i]:=64;
|
|
Feld[26,i]:=64;
|
|
Feld[30,i]:=64;
|
|
END;
|
|
Feld[12,7]:=192; Feld[13,7]:=128; Feld[14,7]:=128; Feld[15,7]:=128; Feld[16,7]:=128;
|
|
Feld[17,7]:=192; Feld[19,7]:=64; Feld[21,7]:=192; Feld[22,7]:=128; Feld[23,7]:=128;
|
|
Feld[24,7]:=128; Feld[25,7]:=128; Feld[26,7]:=192;
|
|
Feld[14,9]:=192;
|
|
FOR i:=15 TO 23 DO Feld[i,9]:=128 END;
|
|
Feld[19,9]:=0; Feld[24,9]:=192;
|
|
FOR i:=0 TO 7 DO
|
|
Feld[i,10]:=128;
|
|
Feld[i+31,10]:=128;
|
|
END;
|
|
Feld[8,10]:=192; Feld[10,10]:=192; Feld[11,10]:=128; Feld[12,10]:=192;
|
|
Feld[14,10]:=64; Feld[24,10]:=64; Feld[26,10]:=192; Feld[27,10]:=128;
|
|
Feld[28,10]:=192; Feld[30,10]:=192;
|
|
Feld[14,11]:=64; Feld[24,11]:=64;
|
|
FOR i:=0 TO 38 DO
|
|
Feld[i,12]:=Feld[i,10];
|
|
Feld[i,13]:=Feld[i,9];
|
|
Feld[i,14]:=Feld[i,8];
|
|
Feld[i,15]:=Feld[i,9];
|
|
Feld[i,18]:=Feld[i,2];
|
|
END;
|
|
Feld[19,13]:=128;
|
|
Feld[19,15]:=128;
|
|
Feld[0,16]:=192; Feld[8,16]:=192; Feld[9,16]:=0; Feld[10,16]:=192; Feld[12,16]:=192;
|
|
Feld[13,16]:=0; Feld[14,16]:=192; Feld[18,16]:=192; Feld[19,16]:=0; Feld[20,16]:=192;
|
|
Feld[24,16]:=192; Feld[25,16]:=0; Feld[26,16]:=192; Feld[28,16]:=192;
|
|
Feld[29,16]:=0; Feld[30,16]:=192; Feld[38,16]:=192;
|
|
Feld[0,17]:=64; Feld[18,17]:=64; Feld[20,17]:=64; Feld[38,17]:=64;
|
|
Feld[5,18]:=192; Feld[8,18]:=192; Feld[30,18]:=192; Feld[33,18]:=192;
|
|
Feld[0,19]:=64; Feld[5,19]:=64; Feld[8,19]:=64; Feld[30,19]:=64; Feld[33,19]:=64;
|
|
Feld[38,19]:=64;
|
|
Feld[0,20]:=192; Feld[4,20]:=0; Feld[5,20]:=192; Feld[8,20]:=192; Feld[9,20]:=0;
|
|
Feld[10,20]:=192; Feld[13,20]:=192; Feld[14,20]:=0; Feld[18,20]:=192;
|
|
Feld[20,20]:=192; Feld[24,20]:=0; Feld[25,20]:=192; Feld[28,20]:=192;
|
|
Feld[29,20]:=0; Feld[30,20]:=192; Feld[33,20]:=192; Feld[34,20]:=0; Feld[38,20]:=192;
|
|
Feld[0,21]:=64; Feld[10,21]:=64; Feld[13,21]:=64; Feld[18,21]:=64; Feld[20,21]:=64;
|
|
Feld[25,21]:=64; Feld[28,21]:=64; Feld[38,21]:=64;
|
|
Feld[0,22]:=64; Feld[1,22]:=0; Feld[10,22]:=192; Feld[13,22]:=192; Feld[17,22]:=0;
|
|
Feld[18,22]:=192; Feld[20,22]:=192; Feld[21,22]:=0; Feld[25,22]:=192;
|
|
Feld[28,22]:=192; Feld[37,22]:=0; Feld[38,22]:=64;
|
|
Feld[0,23]:=64; Feld[38,23]:=64;
|
|
Feld[0,24]:=192; Feld[38,24]:=192;
|
|
FOR j:=0 TO 24 DO
|
|
FOR i:=0 TO 38 DO
|
|
IF Feld[i,j]=0 THEN
|
|
Feld[i,j]:=8;
|
|
END
|
|
END
|
|
END;
|
|
Feld[19,0]:=0; Feld[19,1]:=0;
|
|
FOR j:=7 TO 9 DO
|
|
FOR i:=0 TO 7 DO
|
|
Feld[i,j]:=0;
|
|
Feld[38-i,j]:=0;
|
|
Feld[i,j+6]:=0;
|
|
Feld[38-i,j+6]:=0;
|
|
END;
|
|
END;
|
|
FOR i:=5 TO 9 DO
|
|
Feld[11,i]:=0;
|
|
Feld[27,i]:=0;
|
|
END;
|
|
Feld[11,13]:=0; Feld[11,14]:=0; Feld[11,15]:=0; Feld[27,13]:=0; Feld[27,14]:=0; Feld[27,15]:=0;
|
|
Feld[6,19]:=0; Feld[7,19]:=0; Feld[19,21]:=0; Feld[11,21]:=0; Feld[12,21]:=0; Feld[26,21]:=0;
|
|
Feld[27,21]:=0; Feld[31,19]:=0; Feld[32,19]:=0; Feld[19,16]:=0; Feld[19,17]:=0;
|
|
FOR j:=10 TO 12 DO
|
|
FOR i:=15 TO 23 DO
|
|
Feld[i,j]:=0;
|
|
END;
|
|
END;
|
|
Zeichnen;
|
|
pcm.PosX:=19; pcm.PosY:=19;
|
|
Feld[pcm.PosX,pcm.PosY]:=1;
|
|
Grafik.SpriteSetzen(pcman,10+pcm.PosX*10,400-pcm.PosY*10);
|
|
geist[0].PosX:=15; geist[0].PosY:=8; geist[0].Richtung:=rechts; geist[0].Blick:=rechts;
|
|
geist[1].PosX:=1; geist[1].PosY:=1; geist[1].Richtung:=rechts; geist[1].Blick:=rechts;
|
|
geist[2].PosX:=37; geist[2].PosY:=1; geist[2].Richtung:=links; geist[2].Blick:=links;
|
|
geist[3].PosX:=19; geist[3].PosY:=12; geist[3].Richtung:=hoch; geist[3].Blick:=hoch;
|
|
FOR i:=0 TO 3 DO
|
|
Feld[geist[i].PosX,geist[i].PosY]:=10;
|
|
Grafik.SpriteSetzen(geistli,10+geist[i].PosX*10,400-geist[i].PosY*10);
|
|
END;
|
|
Feld[geist[3].PosX,geist[3].PosY]:=2;
|
|
AnzPunkte:=344;
|
|
END Level1;
|
|
|
|
PROCEDURE RichtungAnpassen(VAR s:Grafik.sprite; VAR f:figur);
|
|
BEGIN
|
|
IF (f.Richtung#f.Blick) & (f.Richtung#stop) THEN
|
|
IF f.Blick=rechts THEN
|
|
IF f.Richtung=runter THEN Grafik.SpriteDrehen(1,s)
|
|
ELSIF f.Richtung=links THEN Grafik.SpriteDrehen(2,s)
|
|
ELSIF f.Richtung=hoch THEN Grafik.SpriteDrehen(3,s)
|
|
END
|
|
ELSIF f.Blick=runter THEN
|
|
IF f.Richtung=rechts THEN Grafik.SpriteDrehen(3,s)
|
|
ELSIF f.Richtung=links THEN Grafik.SpriteDrehen(1,s)
|
|
ELSIF f.Richtung=hoch THEN Grafik.SpriteDrehen(2,s)
|
|
END
|
|
ELSIF f.Blick=links THEN
|
|
IF f.Richtung=rechts THEN Grafik.SpriteDrehen(2,s)
|
|
ELSIF f.Richtung=runter THEN Grafik.SpriteDrehen(3,s)
|
|
ELSIF f.Richtung=hoch THEN Grafik.SpriteDrehen(1,s)
|
|
END
|
|
ELSIF f.Blick=hoch THEN
|
|
IF f.Richtung=rechts THEN Grafik.SpriteDrehen(1,s)
|
|
ELSIF f.Richtung=runter THEN Grafik.SpriteDrehen(2,s)
|
|
ELSIF f.Richtung=links THEN Grafik.SpriteDrehen(3,s)
|
|
END
|
|
END;
|
|
f.Blick:=f.Richtung;
|
|
END;
|
|
END RichtungAnpassen;
|
|
|
|
PROCEDURE RandHuepfen(s:Grafik.sprite; VAR f:figur; kennung:INTEGER):BOOLEAN;
|
|
VAR x,y:INTEGER;
|
|
resultat:BOOLEAN;
|
|
BEGIN
|
|
resultat:=FALSE;
|
|
x:=10+f.PosX*10;
|
|
y:=400-f.PosY*10;
|
|
IF f.Richtung=links THEN
|
|
IF f.PosX=0 THEN
|
|
IF (Feld[38,f.PosY]=0) OR (Feld[38,f.PosY]=8) THEN
|
|
Grafik.SpriteLoeschen(x,y);
|
|
f.PosX:=38;
|
|
x:=10+f.PosX*10;
|
|
y:=400-f.PosY*10;
|
|
Grafik.SpriteSetzen(s,x,y);
|
|
Feld[f.PosX,f.PosY]:=kennung;
|
|
resultat:=TRUE;
|
|
ELSE
|
|
f.Richtung:=stop;
|
|
END
|
|
END
|
|
ELSIF f.Richtung=rechts THEN
|
|
IF f.PosX=38 THEN
|
|
IF (Feld[0,f.PosY]=0) OR (Feld[0,f.PosY]=8) THEN
|
|
Grafik.SpriteLoeschen(x,y);
|
|
f.PosX:=0;
|
|
x:=10+f.PosX*10;
|
|
y:=400-f.PosY*10;
|
|
Grafik.SpriteSetzen(s,x,y);
|
|
Feld[f.PosX,f.PosY]:=kennung;
|
|
resultat:=TRUE;
|
|
ELSE f.Richtung:=stop
|
|
END
|
|
END
|
|
ELSIF f.Richtung=hoch THEN
|
|
IF f.PosY=0 THEN
|
|
IF (Feld[f.PosX,24]=0) OR (Feld[f.PosX,24]=8) THEN
|
|
Grafik.SpriteLoeschen(x,y);
|
|
f.PosY:=24;
|
|
x:=10+f.PosX*10;
|
|
y:=400-f.PosY*10;
|
|
Grafik.SpriteSetzen(s,x,y);
|
|
Feld[f.PosX,f.PosY]:=kennung;
|
|
resultat:=TRUE;
|
|
ELSE f.Richtung:=stop
|
|
END
|
|
END
|
|
ELSIF f.Richtung=runter THEN
|
|
IF f.PosY=24 THEN
|
|
IF (Feld[f.PosX,0]=0) OR (Feld[f.PosX,0]=8) THEN
|
|
Grafik.SpriteLoeschen(x,y);
|
|
f.PosY:=0;
|
|
x:=10+f.PosX*10;
|
|
y:=400-f.PosY*10;
|
|
Grafik.SpriteSetzen(s,x,y);
|
|
Feld[f.PosX,f.PosY]:=kennung;
|
|
resultat:=TRUE;
|
|
ELSE f.Richtung:=stop
|
|
END
|
|
END
|
|
END;
|
|
RETURN resultat;
|
|
END RandHuepfen;
|
|
|
|
PROCEDURE NeuePosition(VAR f:figur);
|
|
BEGIN
|
|
IF f.Richtung=links THEN
|
|
IF ~((Bitmuster(Feld[f.PosX-1,f.PosY],7) OR Bitmuster(Feld[f.PosX-1,f.PosY],6)) OR
|
|
Bitmuster(Feld[f.PosX-1,f.PosY],5)) THEN DEC(f.PosX)
|
|
ELSE f.Richtung:=stop
|
|
END
|
|
ELSIF f.Richtung=rechts THEN
|
|
IF ~((Bitmuster(Feld[f.PosX+1,f.PosY],7) OR Bitmuster(Feld[f.PosX+1,f.PosY],6)) OR
|
|
(Bitmuster(Feld[f.PosX+1,f.PosY],5))) THEN INC(f.PosX)
|
|
ELSE f.Richtung:=stop
|
|
END
|
|
ELSIF f.Richtung=hoch THEN
|
|
IF ~((Bitmuster(Feld[f.PosX,f.PosY-1],7) OR Bitmuster(Feld[f.PosX,f.PosY-1],6)) OR
|
|
Bitmuster(Feld[f.PosX,f.PosY-1],5)) THEN DEC(f.PosY)
|
|
ELSE f.Richtung:=stop
|
|
END
|
|
ELSIF f.Richtung=runter THEN
|
|
IF ~((Bitmuster(Feld[f.PosX,f.PosY+1],7) OR Bitmuster(Feld[f.PosX,f.PosY+1],6)) OR
|
|
Bitmuster(Feld[f.PosX,f.PosY+1],5)) THEN INC(f.PosY)
|
|
ELSE f.Richtung:=stop
|
|
END
|
|
END;
|
|
END NeuePosition;
|
|
|
|
PROCEDURE GeistliRichtung(VAR f:figur; VAR erwischt:BOOLEAN);
|
|
VAR zufall:INTEGER;
|
|
fertig:BOOLEAN;
|
|
BEGIN
|
|
fertig:=FALSE;
|
|
DEC(Feld[f.PosX,f.PosY],2);
|
|
zufall:=SHORT(ENTIER(10*RandomNumbers.Uniform()));
|
|
IF (zufall<9) & (f.Richtung#stop) THEN
|
|
IF RandHuepfen(geistli,f,2) THEN
|
|
f.Richtung:=stop;
|
|
RETURN;
|
|
END;
|
|
NeuePosition(f);
|
|
erwischt:=Bitmuster(Feld[f.PosX,f.PosY],0);
|
|
IF f.Richtung#stop THEN
|
|
INC(Feld[f.PosX,f.PosY],2);
|
|
fertig:=TRUE;
|
|
END;
|
|
END;
|
|
IF ~fertig THEN
|
|
REPEAT
|
|
REPEAT
|
|
zufall:=SHORT(ENTIER(10*RandomNumbers.Uniform()))
|
|
UNTIL zufall<=4;
|
|
f.Richtung:=zufall;
|
|
IF RandHuepfen(geistli,f,2) THEN
|
|
f.Richtung:=stop;
|
|
RETURN;
|
|
END;
|
|
NeuePosition(f);
|
|
erwischt:=Bitmuster(Feld[f.PosX,f.PosY],0);
|
|
UNTIL f.Richtung#stop;
|
|
INC(Feld[f.PosX,f.PosY],2);
|
|
END;
|
|
END GeistliRichtung;
|
|
|
|
PROCEDURE Bewegen(VAR erwischt:BOOLEAN);
|
|
VAR ax,ay,bx,by,richtung:ARRAY 5 OF INTEGER;
|
|
i,j:INTEGER;
|
|
alt:ARRAY 5 OF figur;
|
|
BEGIN
|
|
alt[0]:=pcm;
|
|
ax[0]:=10+pcm.PosX*10;
|
|
ay[0]:=400-pcm.PosY*10;
|
|
richtung[0]:=pcm.Richtung;
|
|
DEC(Feld[pcm.PosX,pcm.PosY]);
|
|
RichtungAnpassen(pcman,pcm);
|
|
IF RandHuepfen(pcman,pcm,1) THEN RETURN END;
|
|
NeuePosition(pcm);
|
|
erwischt:=Bitmuster(Feld[pcm.PosX,pcm.PosY],1);
|
|
IF erwischt THEN RETURN END;
|
|
INC(Feld[pcm.PosX,pcm.PosY]);
|
|
IF Bitmuster(Feld[pcm.PosX,pcm.PosY],3) THEN
|
|
DEC(Feld[pcm.PosX,pcm.PosY],8);
|
|
INC(score,10);
|
|
DEC(AnzPunkte);
|
|
END;
|
|
FOR i:=1 TO 4 DO
|
|
richtung[i]:=stop;
|
|
ax[i]:=0;
|
|
ay[i]:=0;
|
|
ax[i]:=10+geist[i-1].PosX*10;
|
|
ay[i]:=400-geist[i-1].PosY*10;
|
|
alt[i]:=geist[i-1];
|
|
GeistliRichtung(geist[i-1],erwischt);
|
|
IF erwischt THEN RETURN END;
|
|
richtung[i]:=geist[i-1].Richtung;
|
|
END;
|
|
FOR j:=0 TO 9 DO
|
|
FOR i:=0 TO 4 DO
|
|
bx[i]:=ax[i];
|
|
by[i]:=ay[i];
|
|
IF richtung[i]=links THEN DEC(bx[i])
|
|
ELSIF richtung[i]=rechts THEN INC(bx[i])
|
|
ELSIF richtung[i]=hoch THEN INC(by[i])
|
|
ELSIF richtung[i]=runter THEN DEC(by[i])
|
|
END;
|
|
IF (i=0) & (richtung[0]#stop) THEN
|
|
IF ~((alt[0].PosX=pcm.PosX) & (alt[0].PosY=pcm.PosY)) THEN
|
|
Grafik.SpriteBewegen(pcman,ax[0],ay[0],bx[0],by[0],Bremse)
|
|
END;
|
|
ELSE
|
|
IF richtung[i]#stop THEN
|
|
Grafik.SpriteBewegen(geistli,ax[i],ay[i],bx[i],by[i],Bremse);
|
|
IF Bitmuster(Feld[alt[i].PosX,alt[i].PosY],3) THEN
|
|
Grafik.SpriteEinfuegen(punkt,10+alt[i].PosX*10,400-alt[i].PosY*10);
|
|
END;
|
|
END;
|
|
END;
|
|
ax[i]:=bx[i];
|
|
ay[i]:=by[i];
|
|
END;
|
|
END;
|
|
END Bewegen;
|
|
|
|
PROCEDURE SpielStart;
|
|
VAR c:CHAR;
|
|
abbruch:BOOLEAN;
|
|
BEGIN
|
|
REPEAT
|
|
c:=XYplane.Key();
|
|
UNTIL c#CHR(0);
|
|
IF c="4" THEN pcm.Richtung:=links;
|
|
ELSIF c="6" THEN pcm.Richtung:=rechts;
|
|
ELSIF c="8" THEN pcm.Richtung:=hoch;
|
|
ELSIF c="2" THEN pcm.Richtung:=runter;
|
|
ELSIF c=" " THEN pcm.Richtung:=stop;
|
|
END;
|
|
Grafik.Schreiben('PUNKTE:',7,250,420);
|
|
Grafik.ZahlSchreiben(score,390,420);
|
|
abbruch:=FALSE;
|
|
REPEAT
|
|
Bewegen(abbruch);
|
|
IF abbruch THEN Grafik.Schreiben('ERWISCHT!',9,160,290) END;
|
|
Grafik.ZahlSchreiben(score,390,420);
|
|
IF AnzPunkte=99 THEN Grafik.SpriteSetzen(Grafik.buchstaben[0],10,420) END;
|
|
IF AnzPunkte=9 THEN Grafik.SpriteSetzen(Grafik.buchstaben[0],20,420) END;
|
|
Grafik.ZahlSchreiben(AnzPunkte,30,420);
|
|
IF AnzPunkte<1 THEN
|
|
abbruch:=TRUE;
|
|
Grafik.Schreiben('!YOU WIN!',9,160,290);
|
|
END;
|
|
c:=XYplane.Key();
|
|
IF c="4" THEN pcm.Richtung:=links;
|
|
ELSIF c="6" THEN pcm.Richtung:=rechts;
|
|
ELSIF c="8" THEN pcm.Richtung:=hoch;
|
|
ELSIF c="2" THEN pcm.Richtung:=runter;
|
|
ELSIF c=" " THEN pcm.Richtung:=stop;
|
|
ELSIF c="q" THEN
|
|
abbruch:=TRUE;
|
|
Grafik.Schreiben('GAME OVER',9,160,290);
|
|
END;
|
|
UNTIL abbruch;
|
|
END SpielStart;
|
|
|
|
PROCEDURE Spielen*;
|
|
BEGIN
|
|
XYplane.Open;
|
|
Level1;
|
|
SpielStart;
|
|
END Spielen;
|
|
|
|
BEGIN
|
|
Spielen
|
|
END PacMan.
|