Question

free pascal做小游戏的基本思路。谢啦~

Answer 1

用pascal做小游戏的基本思路是这样的：开一个数组，一直循环并输出数组，直到达到了某种条件时（即赢了），方可结束，注意，如果你用char读入的话要注意会出现以外情况，用label就可以了。
下面是我的参考程序：（迷宫，按w：上，s：下，a：左，d：右）
label 1;
var
c:char;
i,j,i1,j1,i2,j2,s:longint;
a:array[1..7,1..15]of char;
begin
for i:=1 to 15 do
begin
a[1,i]:='1';
a[7,i]:='1';
end;
for i:=1 to 7 do
begin
a[i,1]:='1';
a[i,15]:='1';
end;
a[1,2]:='o';
a[2,15]:='0';
for i:=3 to 5 do
begin
a[i,3]:='1';
a[i+2,5]:='1';
a[3,i+1]:='1';
a[i,7]:='1';
a[5,i+5]:='1';
a[i-2,9]:='1';
a[i-1,11]:='1';
a[5,i+8]:='1';
a[3,i+10]:='1';
end;
a[2,10]:='2';
a[4,4]:='2';
a[4,8]:='2';
a[6,6]:='2';
a[4,14]:='2';
i:=1;
j:=2;
repeat
i1:=i;
j1:=j;
for i2:=1 to 7 do
begin
for j2:=1 to 15 do
write(a[i2,j2]);
writeln;
end;
writeln('---------------');
1:read(c);
case c of
'a':if j-1<>0 then if a[i,j-1]<>'1' then j:=j-1;
'd':if j+1<>16 then if a[i,j+1]<>'1' then j:=j+1;
'w':if i-1<>0 then if a[i-1,j]<>'1' then i:=i-1;
's':if i+1<>8 then if a[i+1,j]<>'1' then i:=i+1;
else goto 1;
end;
if a[i,j]='2' then inc(s);
if a[i,j]='0' then if s=5 then begin
write('you win');
exit;
end
else j:=j-1;
a[i1,j1]:=' ';
a[i,j]:='o';
until a[i,j]='0';
write('You win');
end.

Answer 2

很多数组存放当前状态。（低级的不用）
不停地输出屏幕。

Answer 3

1//uses crt;
2//同ls，不停输出屏幕

Answer 4

什么小游戏