0

I have to design a relatively simple game-type programm on pascal
It has to generate a way, which the player will have to guess. They way can only go horizontaly or verticaly. Im usign 10x10 array for this. The problems start, when im making the way for player and checking if randomly roled next piece is possible. Im checking if adjescent pieces of next piece are already road. There should only be one piece there, the way hes comming from, and no any other for it not to merge. There the programm stucks in loop;
heres the code

program KD;
Uses crt;
Var
	mass:array[1..10,1..10] of integer;
	mass2: array[1..10,1..10] of integer;
	Sx, Sy, TSx, TSy, CSx, CSy, mov, itcheck, itcase, IT,P:integer;
	
Label start;
Label nextfield;
Label endgen;
Label nextmove;
Label endgame;

function nextmoveitcheck(ITSx, ITSy: integer):integer;
	Begin
		itcase:=0;
		begin
		if (itsx=1) or (itsx=10) then
			itcase:=(itcase+1);
		if (itsy=1) or (itsy=10) then
			itcase:=(itcase+1);
		end;
		Begin
		Itcheck:=0;
		if (itsx+1<>11) then
			Begin
			CSx:=(itsx+1);
			CSy:=(itsy);
			if (mass[CSx][CSy]=1) then
				itcheck:=(itcheck+1);
			end;
		if (itsx-1<>0) then
			Begin
			CSx:=(itsx-1);
			CSy:=(itsy);
			if (mass[CSx][CSy]=1) then
				itcheck:=(itcheck+1);
			end;
		if (itsy+1<>11) then
			Begin
			CSx:=itsx;
			CSy:=(itsy+1);
			if (mass[CSx][CSy]=1) then
				itcheck:=(itcheck+1);
			end;
		if (itsy-1<>0) then
			Begin
			CSx:=itsx;
			CSy:=(itsy-1);
			if (mass[CSx][CSy]=1) then
				itcheck:=(itcheck+1);
			end;
		end;
		begin
		case itcase of
		0:
			begin
			if (itcheck=4) then
				nextmoveitcheck:=1;
			if (itcheck>1) then
				nextmoveitcheck:=2;
			if (itcheck=1) then
				nextmoveitcheck:=3;
			end;
		1:
			begin
			if (itcheck=3) then
				nextmoveitcheck:=1;
			if (itcheck=2) then
				nextmoveitcheck:=2;
			if (itcheck=1) then
				nextmoveitcheck:=3;
			end;
		2:
			begin
			if (itcheck=2) then
				nextmoveitcheck:=1;
			if (itcheck=1) then
				nextmoveitcheck:=3;
			end;
		end;
		end;
	writeln(itcheck);
	end;


Begin
	begin
		for Sx:=1 to 10 do
			for Sy:=1 to 10 do
			Begin
				mass[Sx][Sy]:=0;
				mass2[Sx][Sy]:=0;
			end;
	end;
	Mass[1][1]:=1;
	mass2[1][1]:=1;
	mass[10][10]:=1;
	mass2[10][10]:=1;
	Start:
		Begin
		Clrscr;
		randomize;
		Sx:=1;
		Sy:=1;
		nextfield:
			Begin
			mov:=random(4);
			Case mov of
			0:
				Begin
					TSx:=(Sx+1);
					TSy:=Sy;
				end;
			1:
				Begin
					TSx:=(Sx-1);
					TSy:=Sy;
				end;
			2:
				begin
					TSx:=Sx;
					TSy:=(Sy+1);
				end;
			3:
				Begin
					TSx:=Sx;
					TSy:=(Sy-1);
				end;
			end;
			end;
		If (TSx=0) or (TSx=11) or (TSy=0) or (TSy=11) then
		goto nextfield;
		if (TSx=10) and (TSy=10) then
		goto endgen;
		IT:=(nextmoveitcheck(Tsx, Tsy));
		case it of
		1:
			Begin
			goto start
			end;
		2:
			Begin
			goto nextfield
			end;
		3:
			Begin
			Sx:=TSx;
			Sy:=TSy;
			mass[Sx][Sy]:=1;
			writeln('Field generation succesfull');
			goto nextfield;
			end;
		end;
	endgen:
        writeln('Field has been generated, press any key to start!');
        readln;
	end;

	Begin
	Sx:=1;
	Sy:=1;
	nextmove:
	Clrscr;
	writeln;
		for TSx:=1 to 10 do
			Begin
			writeln;
			for TSy:=1 to 10 do
				Begin
				If (TSx=Sx) and (TSy=Sy) then
				write ('S':2);
				If ((TSy=Sy+1) or (Tsy=sy-1)) and ((TSx=Sx+1) or (Tsx=Sx-1)) then
				write ('P':2)
				else
				write (mass2[TSx][TSy]:2);
				end;
			end;
		end;
	Begin
		writeln;
		writeln('Your current possition is ' ,Sx, ' and ' ,Sy);
		Writeln('please input two numbers betwen 1 to 10');
		Readln(CSx);
		Readln(Csy);
		If (CSy=23) then
			Begin
			Begin
			For TSx:=1 to 10 do
				Begin
				writeln;
				For TSy:=1 to 10 do
					Begin
					write(mass[TSx][TSy]:2);
					end;
				end;
			end;
			readln;
			end;
		if (CSy=0) or (Csy=11) or (Csx=0) or (Csx=11) then
			Begin
			writeln('impossible move, press any key to try again');
			readln;
			goto nextmove;
			end;
		If (Csy<>Sy+1) or (Csy<>Sy-1) then
			Begin
			writeln('impossible move, press any key to try again');
			readln;
			goto nextmove;
			end;
		If (CSx<>Sx+1) or (CSx<>Sx-1) then
			Begin
			writeln('impossible move, press any key to try again');
			readln;
			goto nextmove;
			end;
		if (CSy=10) and (CSx=10) then
			goto endgame;
		If (mass[Csx][Csy]=1) then
			Begin
			writeln('You move on, press any key to continue');
			Mass2[Sx][Sy]:=1;
			Sx:=Csx;
			Sy:=csy;
			readln;
			goto nextmove;
			end;
		if (mass[CSx][CSy]=0) then
			Begin
			writeln('Incorect move, try again! (Press any key to continue)');
			readln;
			goto nextmove;
			end;
	end;
	endgame:
	Begin
	writeln('You have won the game! congratz!');
	writeln('Press 1 to quit, press any key to play again!');
	readln(P);
	if P<>1 then
	goto start;
	end;
	
end.
1
Contributor
1
Reply
2
Views
6 Years
Discussion Span
Last Post by TheBW
0

I found the error myself, I forgot to clear the Array before each usage, so evidently it filled up.

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.