pascal编的游戏在delphi里怎么运行

今天极游攻略网带你认识pascal游戏以及应该怎么解决它，如果我们能早点知道解决方法，下次遇到的话，就不用太过惊慌了。下面，跟着极游攻略网一起了解吧。

pascal编的游戏在delphi里怎么运行

源代码直接保存为PAS文件到DELPHI里使用

没试过因为PASCAL已经满足了

按理来说应该是新版本兼容旧版本直接转移应该没有问题

求一个free pascal智障级游戏

var a:char;

i,j,m,n:integer;

ma:array[110,110]of integer;

hp,mp,money,ql,dengji,fy,atc,mc,hpmax,mpmax,zhiye,jy,mcp:integer;

procedure map;

begin

randomize;

m:=random(10);

n:=random(10);

writeln('*******地图********');

for i:=1 to 10 do

begin

for j:=1 to 10 do

begin

if (i=m)and(j=n)then

begin

ma[i,j]:=9;

write('9 ');

end

else

begin

ma[i,j]:=random(3);

if ma[i,j]=0 then write('0 ');

if ma[i,j]=1 then write('1 ');

if ma[i,j]=2 then write('2 ');

end;

writeln;

end;

writeln('*******************');

readln;

end;

procedure save;

var t:text;

begin

rewrite(t);

writeln(t,dengji);

writeln(t,hpmax,' ',hp);

writeln(t,mpmax,' ',mp);

writeln(t,ql);

writeln(t,fy);

writeln(t,mc);

writeln(t,atc);

writeln(t,money);

end;

procedure load;

var t:text;

begin

reset(t);

readln(t,dengji);

readln(t,hpmax,hp);

readln(t,mpmax,mp);

readln(t,ql);

readln(t,fy);

readln(t,mc);

readln(t,atc);

readln(t,money);

end;

procedure ziliao;

begin

writeln('********************人物资料**********************');

writeln('* 等级：',dengji,' *');

writeln('* 生命：',hpmax,'/',hp,' *');

writeln('* 魔力：',mpmax,'/',mp,' *');

writeln('* 金钱：',money,' *');////////////

writeln('* 升级经验/现在经验：',dengji*100+30,'/',JY,' *');

writeln('**************************************************');

end;

procedure shengji;

begin

if jy>=dengji*100+30 then

begin

writeln('升级了！大家鼓掌呕～～～～～～～～～');

dengji:=dengji+1;

jy:=jy-dengji*100-30;

atc:=atc+dengji*2+10;

fy:=fy+dengji*2+10;

mcp:=mcp+dengji*2+4;

hpmax:=hpmax+dengji*10;

mpmax:=mpmax+dengji*8;

writeln('#############资料###########');

writeln('等级：',dengji);

hp:=hpmax;

writeln('生命：',hpmax,'/',hp);

mp:=mpmax;

writeln('魔力：',mpmax,'/',mp);

writeln('攻击力：',atc);

writeln('防御力：',fy);

writeln('魔击力：',mc);

end;

procedure moguaishou;

var p:char;

z,ghp,fyl,gatc,hp0,jy,mcp:integer;

begin

gatc:=random(100)+dengji*10;

writeln('你遇到了怪兽,现在：Y：战斗；N：逃跑。Y/N');

readln(p);

ghp:=random(100)*20;

hp0:=ghp;

fyl:=fy;

if p='Y' then

begin

writeln('战斗开始');

while (hp>0)and(ghp>0) do

begin

writeln('你的HP：',hpmax,'/',hp,' ','MP:',mpmax,'/',mp,' ','气力',ql);

writeln('怪兽的HP：',hp0,'/',ghp);

writeln('攻击：1：普通攻击 2：魔法攻击 3：必杀 4:防御 5:逃跑 ');

readln(p);

z:=random(11);

if z=5 then

begin

if p='1' then

begin

write('攻击无效！');

readln;

end;

if p='2' then

begin

write('没打中');

readln;

end;

end

else

begin

if p='1'

then

begin

ghp:=ghp-atc;

if ghp<=0

then

begin

write('打败怪兽！经验+',hp0);

readln;

z:=random(5);

jy:=jy+hp0;

if z=2 then writeln('得到金钱',(hp0 div 10)*10);

money:=money+((hp0 div 10)*10);

readln;

ql:=ql+10;

break;

end

else

begin

write('怪兽受到伤害,HP-',atc,'怪HP：',hp0,'/',ghp);

readln;

ql:=ql+10;

end;

if p='2'

then

begin

writeln('选择魔法：');

if dengji>=0 then writeln('1.火球：初始攻击力110 mp-2');

if dengji>=2 then writeln('2.火焰：初始攻击力150 mp-5');

if dengji>=4 then writeln('3.冰球：初始攻击力200,冰冻效果,怪兽一回合不能攻击 mp-10');

if dengji>=6 then writeln('4.冰柱：初始攻击力250,冰冻效果,怪兽三回合不能攻击 mp-20');

if dengji>=8 then writeln('5.猛虎炎神：初始攻击力400,灼伤效果,怪兽每回合hp减少10％ mp-40');

if dengji>=10 then writeln('6.冰环暴：初始攻击力450,冰冻效果,怪兽三回合不能攻击 mp-40');

readln(p);

if p='1' then

if mp>=2

then

begin

mp:=mp-2;

mcp:=110+mc;

end

else writeln('魔力不够！');

if p='2' then

if mp>=5

then

begin

mp:=mp-5;

mcp:=150+mc;

end

else writeln('魔力不够！');

if p='3' then

if mp>=10

then

begin

mp:=mp-10;

mcp:=200+mc;

end

else writeln('魔力不够！');

if p='4' then

if mp>=20

then

begin

mp:=mp-20;

mcp:=250+mc;

end

else writeln('魔力不够！');

if p='5' then

if mp>=40

then

begin

mp:=mp-40;

mcp:=400+mc;

end

else writeln('魔力不够！');

if p='6' then

if mp>=40

then

begin

mp:=mp-40;

mcp:=400+mc;

end

else writeln('魔力不够！');

end;

ghp:=ghp-mcp;

if ghp<0

then

begin

write('打败怪兽！经验+',(hp0 mod 10+10));

readln;

jy:=jy+hp0;

z:=random(5);

if z=3 then writeln('得到金钱',(hp0 div 10*10));

money:=money+((hp0 div 10)*10);

ql:=ql+10;

break;

end

else

begin

write('怪兽受到伤害,HP-',mcp,'怪HP：',hp0,'/',ghp);

readln;

ql:=ql+10;

end;

if p='4' then fyl:=fy*2;

if p='5' then begin

z:=random(4);

if z=3 then writeln('逃跑失败！')

else exit;

end;

writeln('回合结束');

writeln('怪兽攻击！');

z:=random(9);

if z=1 then

begin

write('miss! ye!');

readln;

end

else

begin

if fy>=gatc then

begin

write('成功防御！');

readln;

end

else

begin

hp:=hp+fyl-gatc;

if hp>0 then

begin

write('你的HP－',gatc-fyl,' ',hpmax,'/',hp);

readln;

end

else

begin

write('你挂了！重新开始吧!');

readln;

halt;

end;

write('回合结束');

readln;

end;

shengji;

end;

procedure shangdian;

var p:char;

begin

writeln('*********************商店****************************');

if money<=0 then

begin

writeln('老板：这里不欢迎穷光蛋！滚');

exit;

end

else

writeln('1.红药：HP+50 100元 2.蓝药 MP+50 100元');

write('(本商店现仅开放这两类药品,你要什么？1/2 Q:Quit)');

while (money>0)and(p<>'Q') do

begin

readln(p);

if p='1' then

begin

if hp+100>hpmax

then

begin

hp:=hpmax;

writeln('生命：',hpmax,'/',hp);

money:=money-100;

end

else

begin

hp:=hp+100;

writeln('生命：',hpmax,'/',hp);

money:=money-100;

end;

end

else

if p='2' then

begin

if mp+50>mpmax

then

begin

mp:=mpmax;

writeln('魔力：',mpmax,'/',mp);

money:=money-100;

end

else

begin

mp:=mp+50;

money:=money-100;

writeln('魔力：',mpmax,'/',mp);

end;

if money<=0 then writeln('店老板：没钱？滚！');

end;

procedure kaishi;

var s,m,n,k,l:integer;

p:char;

begin

write('请选择角色：1.剑士 2.魔法师 :');

readln(l);

if l=1 then

begin

hp:=500;

hpmax:=hp;

mp:=30;

mpmax:=mp;

money:=1000;

fy:=100;

dengji:=1;

atc:=150;

mc:=50;

zhiye:=1;

end;

if l=2 then

begin

hp:=300;

hpmax:=hp;

mp:=50;

mpmax:=mp;

money:=1000;

fy:=50;

dengji:=1;

atc:=80;

mc:=150;

zhiye:=2;

end;

randomize;

repeat

writeln('hp:',hpmax,'/',hp,' ','mp:',mpmax,'/',mp,' ','money:',money);

m:=1;

n:=1;

writeln('请输入：F：移动 B：购买物品 Z:人物状态 M:地图 Q离开');

readln(p);

if p='F' then

begin

writeln('W:向前 S:向下 A：向左 D:向右 ');////{}////gvhfdghdvdhs! {}

readln(p);

if p='W'

then

begin

m:=m+1;

if m>10 then

begin

writeln('无法前进!');

m:=m-1;

end

else

if ma[m,n]=0 then writeln('什么都没有');

if ma[m,n]=1 then moguaishou;

end;

if p='B' then shangdian;

if p='Z' then ziliao;

if p='M' then map;

until p='Q';

end;

procedure shuoming;

var p:char;

begin

writeln('************************游戏说明******************************');

writeln('* 你是一个英雄,在峡谷里前进,前方可能有妖怪,也可能有宝物。 *');

writeln('* 你遇到野兽时,你可以用身上的东西向他攻击。按G键是攻击,按 *');

writeln('* T键是逃跑,但可能逃不掉哦！你开始只有一把小刀,以后可能拣 *');

writeln('* 到其它宝物，要加油哦！你的任务是找到传说中的宝物－CSW之剑 *');

writeln('* 然后打败大魔王（剧情比较老土，请见谅） *');

writeln('*************************************************************');

writeln('好了，开始游戏吧！Y/N');

readln(p);

if p='N' then halt

else if p='Y' then kaishi

else

begin

writeln('耍我，死把!');

readln;

halt;

end;

begin

writeln('************************游戏开始****************************');

writeln('* F:如何游戏:说明游戏方式 *');

writeln('* B:开始游戏：进入游戏 *');

writeln('* Q:退出游戏：离开游戏 *');

writeln('**************************************************************');

writeln('请输入：');

readln(a);

if a='F' then shuoming

else if a='B' then kaishi

else if a='Q' then halt;

end.

var pm,pw,cm,cw,jishuqif:longint;

px,pz,cx,cz:longint;

pb,ph,pt,pf,py,cb,ch,cf,ct,cy:longint;

a,b,c,d,e:longint;

begin

writeln(' 欢迎来到BOB游戏世界 ');

begin

write(' 你想要多少金钱:');

readln(pm);

write(' 你想要多少木材:');

readln(pw);

writeln(' 你的金钱:',pm,' ','你的木材:',pw );

writeln(' 游戏正式开始 ');

writeln(' 1=剪刀 2=石头 3=布 ');

cm:=pm; cw:=pw;

px:=10000; cx:=10000;

pz:=500; cz:=500;

pb:=0; ph:=0; pt:=0; pf:=0; py:=0; cb:=0; ch:=0; ct:=0; cf:=0; cy:=0;

repeat

randomize;

a:=random(3)+1;

randomize;

b:=random(5)+1;

jishuqif:=jishuqif+1;

writeln(' 第',jishuqif,'回合 ');

writeln('你的血量:',px,'你的攻击力:',pz,'你的金钱:',pm,'你的木材:',pw,' ,','电脑的血量:',cx,'电脑的攻击力:',cz,'电脑的金钱:',cm,'电脑的木材:',cw);

writeln('步兵:',pb,'火枪兵:',ph,'坦克:',pt,'飞机:',pf,'原子弹:',py,' ','步兵:',cb,'火枪兵:',ch,'坦克:',ct,'飞机:',cf,'原子弹:',cy);

write(' 面对凶悍的电脑,你出(剪刀,石头或布):');

readln(c);

begin

if (c=1) and (a=1) then begin writeln(' 你出剪刀,电脑出剪刀,没有赢家 ');

d:=3; end;

if (c=1) and (a=2) then begin writeln(' 你出剪刀,电脑出石头,电脑赢了 ');

d:=2; end;

if (c=1) and (a=3) then begin writeln(' 你出剪刀,电脑出布 ,你赢了 ');

d:=1; end;

if (c=2) and (a=1) then begin writeln(' 你出石头,电脑出剪刀,你赢了 ');

d:=1; end;

if (c=2) and (a=2) then begin writeln(' 你出石头,电脑出石头,没有赢家 ');

d:=3; end;

if (c=2) and (a=3) then begin writeln(' 你出石头,电脑出布 ,电脑赢了 ');

d:=2; end;

if (c=3) and (a=1) then begin writeln(' 你出布,电脑出剪刀,电脑赢了 ');

d:=2; end;

if (c=3) and (a=2) then begin writeln(' 你出布,电脑出石头,你赢了 ');

d:=1; end;

if (c=3) and (a=3) then begin writeln(' 你出布,电脑出布, 没有赢家 ');

d:=3; end;

if (c>3) then begin writeln('输入错误!'); d:=3; end;

if (c<1) then begin writeln('输入错误!'); d:=3; end;

end;

if d=3 then begin

writeln(' 本局没有赢家 ');

end;

if d=1 then begin write(' 恭喜你,你获得了主动权,你的战略是:');

readln(e);

if (e=1) and (pm>100) then begin

pb:=pb+1; pm:=(pm-100); px:=px+100; pz:=pz+100;

writeln(' 你选择了买一个步兵 ');

end else if (pm<100) then begin e:=0;writeln('金钱或木材不足!你的操作失败!'); end;

if (e=2) and (pm>200) and (pw>50) then begin

ph:=ph+1; pm:=(pm-200); pw:=(pw-50); px:=px+250; pz:=pz+200;

writeln(' 你选择了买一个火枪兵 ');

end else if (pm<200) or (pw<50) then begin e:=0;writeln('金钱或木材不足!你的操作失败!'); end;

if (e=3) and (pm>500) and (pw>250) then begin

pt:=pt+1; pm:=(pm-500); pw:=(pw-250); px:=px+500; pz:=pz+500;

writeln(' 你选择了买一辆坦克 ');

end else if (pm<500) or (pw<250) then begin e:=0;writeln('金钱或木材不足!你的操作失败!'); end;

if (e=4) and (pm>1000) and (pw>500) then begin

pf:=pf+1; pm:=(pm-1000); pw:=(pw-500); px:=px+750; pz:=pz+1000;

writeln(' 你选择了买一架飞机 ');

end else if (pm<1000) or (pw<500) then begin e:=0;writeln('金钱或木材不足!你的操作失败!'); end;

if (e=123456789) and (pm>10000) and (pw>10000) then begin

py:=py+1; pm:=(pm-10000); pw:=(pw-10000); pz:=pz+5000;

writeln(' 你选择了买一个原子弹 ');

end else if (pm<10000) or (pw<10000) then begin b:=0;writeln('金钱或木材不足!你的操作失败!'); end;

if (e=5) then begin

cx:=cx-pz;

writeln(' 你选择了攻击电脑,电脑的血量减去了:',pz,'点 ');

if py>0 then begin pz:=pz-(5000*py); py:=py-py; end else py:=py-0;

end;

if d=2 then begin

writeln(' 很遗憾,你让电脑获得了主动权,电脑的操作是:',b);

if (b=1) and (cm>100) then begin

cb:=cb+1; cm:=(cm-100); cx:=cx+100; cz:=cz+100;

writeln(' 电脑选择了买一个步兵 ');

end else if (cm<100) then begin b:=0;writeln('金钱或木材不足!你的操作失败!'); end;

if (b=2) and (cm>200) and (cw>50) then begin

ch:=ch+1; cm:=(cm-200); cw:=(cw-50); cx:=cx+250; cz:=cz+200;

writeln(' 电脑选择了买一个火枪兵 ');

end else if (cm<200) or (cw<50) then begin b:=0;writeln('金钱或木材不足!你的操作失败!'); end;

if (b=3) and (cm>500) and (cw>250) then begin

ct:=ct+1; cm:=(cm-500); cw:=(cw-250); cx:=cx+500; cz:=cz+500;

writeln(' 电脑选择了买一辆坦克 ');

end else if (cm<500) or (cw<250) then begin b:=0;writeln('金钱或木材不足!你的操作失败!'); end;

if (b=4) and (cm>1000) and (cw>500) then begin

cf:=cf+1; cm:=(cm-1000); cw:=(cw-500); cx:=cx+750; cz:=cz+1000;

writeln(' 电脑选择了买一架飞机 ');

end else if (cm<1000) or (cw<500) then begin b:=0;writeln('金钱或木材不足!你的操作失败!'); end;

if (b=5) then begin

px:=px-cz;

writeln(' 电脑选择了攻击你,你的血量减去了:',cz,'点 ');

end;

if px<0 then writeln(' 哦,电脑打死了你,你输了!');

if cx<0 then writeln(' 恭喜你,你已经打死了电脑,你赢了!');

until (px<0) or (cx<0);

end;

writeln(' 你的参与! ');

readln;

end.

用pascal语言编程模拟剪刀、石头、布游戏：用S表示剪刀，用R表示石头，用P表示布。规则是：剪

{0=S 1=P 2=R}

program srp;

var ch:char;

num:integer;

begin

write('Please input your choice(S ,R or P):');

readln(ch);

randomize;

num:=random(3);

case ch of

'S','s':if num=0 then writeln('A TIE!')

else if num=1 then writeln('YOU WIN!')

else writeln('YOU LOSE!');

'R','r':if num=0 then writeln('YOU WIN!')

else if num=1 then writeln('YOU LOSE!')

else writeln('A TIE!');

'P','p':if num=0 then writeln('YOU LOSE!')

else if num=1 then writeln('A TIE!')

else writeln('YOU WIN!');

else writeln('PLEASE INPUT CORRECT LETTER!');

end;

readln;

end.

怎么用free pascal编游戏

当然可以了。编程序写到手腕酸到时候敲一个游戏进去是最好不过到啦。

用pascal有一点点麻烦，但是也是可以轻松实现的。不过用delphi更方便。

用pascal可以用面向单元的程序，但是不怎么好看。给你一点样本代码吧。

俄罗斯方块：

USES Crt;

CONST

Change:Array [06,03,07] Of Byte =(((0,1,1,1,2,1,3,1),(1,0,1,1,1,2,1,3),(0,1,1,1,2,1,3,1),(1,0,1,1,1,2,1,3)),

((1,0,0,1,1,1,2,1),(1,0,1,1,1,2,2,1),(0,1,1,1,2,1,1,2),(1,0,0,1,1,1,1,2)),

((1,0,2,0,1,1,2,1),(1,0,2,0,1,1,2,1),(1,0,2,0,1,1,2,1),(1,0,2,0,1,1,2,1)),

((1,0,2,0,0,1,1,1),(0,0,0,1,1,1,1,2),(1,0,2,0,0,1,1,1),(0,0,0,1,1,1,1,2)),

((0,0,1,0,1,1,2,1),(1,0,0,1,1,1,0,2),(0,0,1,0,1,1,2,1),(1,0,0,1,1,1,0,2)),

((1,0,2,0,1,1,1,2),(0,0,0,1,1,1,2,1),(1,0,0,2,1,1,1,2),(2,2,0,1,1,1,2,1)),

((0,0,1,0,1,1,1,2),(2,0,0,1,1,1,2,1),(2,2,1,0,1,1,1,2),(0,2,0,1,1,1,2,1)));

VAR

Board:Array [03,011,125] Of Byte;

Players,N,Nowx,Nowy,Kind,Trans,Speed:Byte;

Time,Score:Word;

Now:Array [07] Of Byte;

PROCEDURE Furbish;

VAR B,C:Byte;

Begin

For C:=24 Downto 2 Do Begin

Gotoxy(1,C);

For B:=1 To 10 Do

If Board[0,B,C]=0 Then Write(' ')

Else Write('圹');

End;

PROCEDURE Clear;

Var A,B,C:Byte;D:Boolean;

Begin

For A:=24 Downto 1 Do

Begin

D:=True;

For B:=1 To 10 Do

If Board[0,B,A]=0 Then D:=False;

If D=True Then

Begin

Score:=Score+10;Gotoxy(1,1);Write(Score:5,'0');

For C:=A Downto 2 Do

For B:=1 To 10 Do

Board[0,B,C]:=Board[0,B,C-1];

A:=A+1;

End;

Furbish;

End;

FUNCTION Canmove(X,Y:Byte):Boolean;

BEGIN

Canmove:=True;

If Board[0,X+Now[0],Y+Now[1]]>0 Then Canmove:=False;

If Board[0,X+Now[2],Y+Now[3]]>0 Then Canmove:=False;

If Board[0,X+Now[4],Y+Now[5]]>0 Then Canmove:=False;

If Board[0,X+Now[6],Y+Now[7]]>0 Then Canmove:=False;

End;

PROCEDURE Clean;

Begin

Gotoxy((Nowx+Now[0])*2-1,Nowy+Now[1]);Write(' ');

Gotoxy((Nowx+Now[2])*2-1,Nowy+Now[3]);Write(' ');

Gotoxy((Nowx+Now[4])*2-1,Nowy+Now[5]);Write(' ');

Gotoxy((Nowx+Now[6])*2-1,Nowy+Now[7]);Write(' ');

End;

PROCEDURE Show;

Begin

Gotoxy((Nowx+Now[0])*2-1,Nowy+Now[1]);Write('圹');

Gotoxy((Nowx+Now[2])*2-1,Nowy+Now[3]);Write('圹');

Gotoxy((Nowx+Now[4])*2-1,Nowy+Now[5]);Write('圹');

Gotoxy((Nowx+Now[6])*2-1,Nowy+Now[7]);Write('圹');

End;

BEGIN

Fillchar(Board,Sizeof(Board),0);

Randomize;Score:=0;

For N:=1 To 24 Do

Board[0,0,N]:=1;

For N:=1 To 24 Do

Board[0,11,N]:=1;

For N:=1 To 10 Do

Board[0,N,25]:=1;

Window(31,2,50,25);Textcolor(White);Textbackground(Blue);

Clrscr;Window(31,2,51,25);

Speed:=1;

Kind:=Random(7);Trans:=Random(4);Nowx:=4;Nowy:=1;

For N:=0 To 7 Do

Now[N]:=Change[Kind,Trans,N];

While Canmove(Nowx,Nowy) Do

Begin

Repeat

Clean;Nowy:=Nowy+1;Show;

Repeat

If Keypressed Then

Case Upcase(Readkey) Of

#0:Case Readkey Of

#75:If Canmove(Nowx-1,Nowy) Then Begin Clean;Nowx:=Nowx-1;Show;End;

#77:If Canmove(Nowx+1,Nowy) Then Begin Clean;Nowx:=Nowx+1;Show;End;

#80:Begin Clean;Repeat

If Canmove(Nowx,Nowy+1) Then Nowy:=Nowy+1;

Until Not(Canmove(Nowx,Nowy+1));Show;End;

#61:Begin Gotoxy(9,12);Write('Pause');Repeat Delay(1000);Until Keypressed;Furbish;End;

End;

#27:Exit;

' ',#13:Begin

Clean;Trans:=Trans+1;

If Trans=4 Then Trans:=0;

For N:=0 To 7 Do

Now[N]:=Change[Kind,Trans,N];

If Not(Canmove(Nowx,Nowy)) Then Begin Trans:=Trans-1;For N:=0 To 7 Do

Now[N]:=Change[Kind,Trans,N];Show;End

Else Show;

End;

Until Not(Keypressed);

Delay((10-Speed)*50);

Until Not(Canmove(Nowx,Nowy+1));

Score:=Score+1;Gotoxy(1,1);Write(Score:5,'0');Speed:=(Score Div 300)+1;

Board[0,Nowx+Now[0],Nowy+Now[1]]:=1;

Board[0,Nowx+Now[2],Nowy+Now[3]]:=1;

Board[0,Nowx+Now[4],Nowy+Now[5]]:=1;

Board[0,Nowx+Now[6],Nowy+Now[7]]:=1;

Clear;

Kind:=Random(7);Trans:=Random(4);Nowx:=4;Nowy:=1;

For N:=0 To 7 Do

Now[N]:=Change[Kind,Trans,N];

End;

Gotoxy(7,12);Write('GAME OVER');Readln;

END.