求免费帕斯卡智障游戏

var a:char;

I,j,m,n:整数;

马:数组[1..10,1..10]的整数;

hp,mp,money,ql,邓吉,fy,atc,mc,hpmax,mpmax,叶芝,jy,mcp:整数;

程序图;

开始

随机化;

m:= random(10);

n:= random(10);

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

对于i:=1到10做

开始

对于j:=1到10做

开始

如果(i=m)和(j=n ),那么

开始

ma[i,j]:= 9;

写(' 9 ');

结束

其他

开始

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

如果ma[i,j]=0,则写(' 0 ');

如果ma[i,j]=1那么写(' 1 ');

如果ma[i,j]=2,则写(' 2 ');

结束;

结束;

writeln

结束;

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

readln

结束;

程序保存;

var t:文本;

开始

重写(t);

writeln(t,邓吉);

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

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

writeln(t,QL);

writeln(t,fy);

writeln(t,MC);

writeln(t,ATC);

writeln(t,money);

结束;

过程负载;

var t:文本;

开始

复位(t);

readln(t,邓吉);

readln(t,hpmax,HP);

readln(t,mpmax,MP);

readln(t,QL);

readln(t,fy);

readln(t,MC);

readln(t,ATC);

readln(t,money);

结束;

程序子料;

开始

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

Writeln('*年级:',邓吉,' * ');

Writeln('* Life:',hpmax,'/',hp,' * ');

Writeln('* Magic:',mpmax,'/',mp,' * ');

Writeln('* money:',money,' * ');////////////

Writeln('*升级经历/当前经历:',邓吉*100+30,'/',JY,' * ');

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

结束;

程序升级;

开始

如果jy & gt=邓吉*100+30然后

开始

Writeln('已升级!大家鼓掌!!哦~ ~ ~ ~ ~ ~ ~ ~’);

邓吉:=邓吉+1;

jy:= jy-邓吉* 100-30;

ATC:= ATC+邓吉* 2+10;

fy:= fy+邓吉* 2+10;

MCP:= MCP+邓吉* 2+4;

HP max:= HP max+邓吉* 10;

mpmax:= mpmax+邓吉* 8;

writeln(' # # # # # # # # # # data # # # # # #);

Writeln('等级:',邓吉);

HP:= HP max;

Writeln ('Life:',hpmax,'/',HP);

MP:= MP max;

Writeln ('Magic:',mpmax,'/',MP);

Writeln('攻击力:',ATC);

Writeln ('defense:',fy);

Writeln('魔法打击力量:',MC);

结束;

结束;

程序魔怪手;

var p:char;

z,ghp,fyl,gatc,hp0,jy,mcp:整数;

开始

gatc:= random(100)+邓吉* 10;

writeln(‘你遇到了怪物,现在:y:战斗;N:逃跑Y/N’);

readln(p);

GHP:= random(100)* 20;

hp0:= GHP;

fyl:= fy;

如果p='Y '那么

开始

Writeln('战斗开始');

while(HP & gt;0)和(ghp & gt0)做

开始

Writeln('你的HP:',HP max,'/',HP,'',' MP:',MP max,'/',MP,'','力量',QL);

Writeln('怪物的HP:',HP0,'/',GHP);

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

readln(p);

z:= random(11);

如果z=5,那么

开始

如果p='1 ',那么

开始

写('无效攻击!');

readln

结束;

如果p='2 '那么

开始

写(‘小姐’);

readln

结束;

结束

其他

开始

如果p='1 '

然后

开始

GHP:= GHP-ATC;

如果ghp & lt=0

然后

开始

写(‘打败怪物!经验+',hp0);

readln

z:= random(5);

jy:= jy+hp0;

如果z=2那么writeln ('get money ',(hp0 div 10)* 10);

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

readln

QL:= QL+10;

打破;

结束

其他

开始

写('怪物受伤了,HP-',atc,'怪HP:',HP0,'/',GHP);

readln

QL:= QL+10;

结束;

结束;

如果p='2 '

然后

开始

开始

Writeln('选择魔法:');

如果邓吉& gt=0然后writeln('1。火球术:初始攻击力110 MP-2’);

如果邓吉& gt=2然后writeln('2。火焰:初始攻击力150 MP-5’);

如果邓吉& gt=4然后writeln('3。冰球:初始攻击力200,冰冻效果,怪物一轮不能攻击MP-10’);

如果邓吉& gt=6然后writeln('4。冰柱:初始攻击力250,冰冻效果,怪物三轮攻击不了MP-20’);

如果邓吉& gt=8然后writeln('5。虎炎神:初始攻击力400,燃烧效果,怪物每回合hp减少10% MP-40-40’);

如果邓吉& gt=10然后writeln('6。冰环风暴:初始攻击力450,冰冻效果,怪物三轮攻击不了MP-40’);

readln(p);

如果p='1 ',那么

如果mp & gt=2

然后

开始

MP:= MP-2;

MCP:= 110+MC;

结束

Else writeln(“魔法不够!”);

如果p='2 '那么

如果mp & gt=5

然后

开始

MP:= MP-5;

MCP:= 150+MC;

结束

Else writeln(“魔法不够!”);

如果p='3 '那么

如果mp & gt=10

然后

开始

MP:= MP-10;

MCP:= 200+MC;

结束

Else writeln(“魔法不够!”);

如果p='4 '那么

如果mp & gt=20

然后

开始

MP:= MP-20;

MCP:= 250+MC;

结束

Else writeln(“魔法不够!”);

如果p='5 '那么

如果mp & gt=40

然后

开始

MP:= MP-40;

MCP:= 400+MC;

结束

Else writeln(“魔法不够!”);

如果p='6 '那么

如果mp & gt=40

然后

开始

MP:= MP-40;

MCP:= 400+MC;

结束

Else writeln(“魔法不够!”);

结束;

GHP:= GHP-MCP;

如果ghp & lt0

然后

开始

写(‘打败怪物!经验+',(hp0 mod 10+10));

readln

jy:= jy+hp0;

z:= random(5);

如果z=3那么writeln ('get money ',(hp0 div 10 * 10));

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

QL:= QL+10;

打破;

结束

其他

开始

写('怪物受伤了,HP-',mcp,'怪HP:',HP0,'/',GHP);

readln

QL:= QL+10;

结束;

结束;

如果p='4 '那么fyl:= fy * 2;

如果p='5 '那么开始

z:= random(4);

如果z=3,那么writeln('转义失败!')

否则退出;

结束;

结束;

Writeln(“一轮结束”);

Writeln('怪物攻击!');

z:= random(9);

如果z=1,则

开始

写(‘小姐!“是的!”);

readln

结束

其他

开始

如果fy & gt=gatc然后

开始

写(‘成功辩护!’);

readln

结束

其他

开始

HP:= HP+fyl-gatc;

如果hp & gt那么0

开始

写('你的HP-',GATC-FYL ' ',HP Max,'/',HP);

readln

结束

其他

开始

写(‘你挂了!让我们重新开始吧!);

readln

停止;

结束;

结束;

写('一轮结束');

readln

结束;

结束;

盛记;

结束;

结束;

程序尚典;

var p:char;

开始

Writeln ('* * * * * * * * * * * * * * * *存储* * * * * * * * * * * * * * * * * * * * * * * * ');

如果钱& lt那么=0

开始

(老板:这里不欢迎穷人!走开!!!!' );

退出;

结束

其他

Writeln('1。红药:HP+50 100元2。蓝药MP+50 100元’);

这家店现在只开这两种药。你想要什么?1/2 Q:Quit)');

while(money & gt;0)和(p & lt& gt问')做

开始

readln(p);

如果p='1 ',那么

开始

如果HP+100 & gt;hpmax

然后

开始

HP:= HP max;

Writeln ('Life:',hpmax,'/',HP);

钱:= money-100;

结束

其他

开始

HP:= HP+100;

Writeln ('Life:',hpmax,'/',HP);

钱:= money-100;

结束;

结束

其他

如果p='2 '那么

开始

如果MP+50 & gt;mpmax

然后

开始

MP:= MP max;

Writeln ('Magic:',mpmax,'/',MP);

钱:= money-100;

结束

其他

开始

MP:= MP+50;

钱:= money-100;

Writeln ('Magic:',mpmax,'/',MP);

结束;

结束;

结束;

如果钱& lt=0然后writeln('店主:没钱?走开!!!!!');

结束;

石开程序;

var s,m,n,k,l:整数;

p:char;

开始

写('请选择角色:1。笑傲江湖2。魔术师:');

readln(l);

如果l=1,则

开始

HP:= 500;

HP max:= HP;

MP:= 30;

MP max:= MP;

钱:= 1000;

fy:= 100;

邓吉:= 1;

ATC:= 150;

MC:= 50;

叶芝:= 1;

结束;

如果l=2,那么

开始

HP:= 300;

HP max:= HP;

MP:= 50;

MP max:= MP;

钱:= 1000;

fy:= 50;

邓吉:= 1;

ATC:= 80;

MC:= 150;

叶芝:= 2;

结束;

随机化;

重复

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

m:= 1;

n:= 1;

Writeln('请输入:f:移动b:购买物品z:人物状态m:地图q?离开’);

readln(p);

如果p='F '那么

开始

Writeln('W:向前s:向下a:向左d:向右');////{}////gvhfdghdvdhs!!!!!!!{}

readln(p);

如果p='W '

然后

开始

m:= m+1;

如果m & gt那么10

开始

Writeln('不能前进!');

m:= m-1;

结束

其他

如果ma[m,n]=0,则写入(nothing ...));

如果ma[m,n]=1则魔怪手;

结束;

结束;

如果p='B '则尚店;

如果p='Z '那么子料;

如果p='M '则映射;

直到p = ' Q

结束;

程序说明;

var p:char;

开始

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

Writeln('*你是英雄,在峡谷中行进,前方可能有怪物或宝藏。*');

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

writeln(* T键是转义,但不一定转义!你一开始只有一把刀,以后可能会挑。

Writeln('*致其他宝藏,加油!你的任务是找到传说中的宝物——CSW剑*’);

Writeln('*然后打败大魔王(剧情老套,请见谅...) *');

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

(‘好了,我们开始游戏吧!y/N’);

readln(p);

如果p='N '则停止

否则如果p='Y '那么石开

其他

开始

writeln(‘愚弄我,去死吧!’);

readln

停止;

结束;

结束;

开始

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

Writeln('* F:怎么玩:解释怎么玩* ');

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

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

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

Writeln('请输入:');

readln(a);

如果a='F '那么朔明

否则如果a='B '那么石开

否则如果a='Q '则停止;

结束。

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;

开始

Writeln('欢迎来到鲍勃的游戏世界');

开始

写('你要多少钱:');

readln(pm);

写('你要多少木头:');

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;

重复

随机化;

a:= random(3)+1;

随机化;

b:= random(5)+1;

jishuqif:= jishuqif+1;

Writeln ('first ',jishuqif,' round ');

Writeln('你的血量:',px,'你的攻击力:',pz,'你的钱:',pm,'你的木:',pw,',','电脑的血量:',cx,'电脑的攻击力:',cz,'电脑的钱:',cm。

Writeln('步兵:',pb,'火枪手:',ph,'坦克:',pt,'飞机:',pf,'原子弹:',py,'','步兵:',cb,'火枪手:',ch,'坦克:',ct。

写('面对凶猛的电脑,你拿出(剪刀、石头或布):');

read ln(c);

开始

If (c = 1)和(a = 1)然后开始writeln('你给剪刀,计算机给剪刀,没有赢家');

d:= 3;结束;

If (c = 1)和(a = 2)然后begin writeln('你出剪刀,计算机出石头,计算机赢');

d:= 2;结束;

如果(c = 1)和(a = 3)那么开始writeln('你出剪刀,计算机出布,你赢');

d:= 1;结束;

If (c = 2)和(a = 1)然后开始writeln('你扔石头,计算机扔剪刀,你赢');

d:= 1;结束;

如果(c = 2)和(a = 2)那么开始写(‘你扔石头,计算机扔石头,没有赢家’);

d:= 3;结束;

如果(c = 2)和(a = 3)那么开始写(‘你扔石头,计算机给布,计算机赢’);

d:= 2;结束;

If (c = 3)和(a = 1)然后开始writeln('你出布,计算机出剪刀,计算机赢');

d:= 2;结束;

如果(c = 3)和(a = 2)那么开始写('你出布,计算机出石头,你赢');

d:= 1;结束;

If (c = 3)和(a = 3)然后开始writeln('你出布,计算机出布,没有赢家');

d:= 3;结束;

if(c & gt;3)然后开始writeln('输入错误!');d:= 3;结束;

if(c & lt;1)然后开始writeln('输入错误!');d:= 3;结束;

结束;

如果d=3,那么开始

writeln(‘此局无赢家’);

结束;

如果d=1那么就开始写('恭喜你,你获得了主动权,你的策略是:');

readln(e);

如果(e=1)和(pm & gt100)然后开始

Pb:= p b+ 1;pm:=(pm-100);px:= px+100;pz:= pz+100;

Writeln('你选择了买步兵');

结束else if(pm & lt;100)然后开始e:= 0;(‘不够钱也不够柴!你的行动失败了!);结束;

如果(e=2)和(pm & gt200)和(pw & gt50)然后开始

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

Writeln('你选择了买火枪手');

结束else if(pm & lt;200)或(pw & lt50)然后开始e:= 0;(‘不够钱也不够柴!你的行动失败了!);结束;

如果(e=3)和(pm & gt500)和(pw & gt250)然后开始

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

Writeln('你选择买坦克');

结束else if(pm & lt;500)或(pw & lt250)然后开始e:= 0;(‘不够钱也不够柴!你的行动失败了!);结束;

如果(e=4)和(pm & gt1000)和(pw & gt500)然后开始

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

Writeln('你选择买飞机');

结束else if(pm & lt;1000)或(pw & lt500)然后开始e:= 0;(‘不够钱也不够柴!你的行动失败了!);结束;

如果(e=123456789)和(pm & gt10000)和(pw & gt10000)然后开始

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

Writeln('你选择了买原子弹');

结束else if(pm & lt;10000)或(pw & lt10000)然后开始b:= 0;(‘不够钱也不够柴!你的行动失败了!);结束;

如果(e=5)那么开始

CX:= CX-pz;

Writeln('你选择攻击电脑,电脑血量被减去:',pz,'点');

如果py & gt0然后开始pz:= pz-(5000 * py);py:= py-py;end else py:= py-0;

结束;

结束;

如果d=2,那么开始

Writeln('可惜你让电脑获得了主动权,电脑的操作是:',b);

如果(b=1)和(cm & gt100)然后开始

CB:= CB+1;cm:=(cm-100);CX:= CX+100;cz:= cz+100;

Writeln('计算机选择购买一个步兵');

结束else if(cm & lt;100)然后开始b:= 0;(‘不够钱也不够柴!你的行动失败了!);结束;

如果(b=2)和(cm & gt200)和(cw & gt50)然后开始

ch:= ch+1;cm:=(cm-200);CW:=(CW-50);CX:= CX+250;cz:= cz+200;

writeln(‘电脑选择买火枪手’);

结束else if(cm & lt;200)或(cw & lt50)然后开始b:= 0;(‘不够钱也不够柴!你的行动失败了!);结束;

如果(b=3)和(cm & gt500)和(cw & gt250)然后开始

CT:= CT+1;cm:=(cm-500);CW:=(CW-250);CX:= CX+500;cz:= cz+500;

writeln(‘电脑选择买坦克’);

结束else if(cm & lt;500)或(cw & lt250)然后开始b:= 0;(‘不够钱也不够柴!你的行动失败了!);结束;

如果(b=4)和(cm & gt1000)和(cw & gt500)然后开始

cf:= cf+1;cm:=(cm-1000);CW:=(CW-500);CX:= CX+750;cz:= cz+1000;

writeln(‘电脑选择买飞机’);

结束else if(cm & lt;1000)或(cw & lt500)然后开始b:= 0;(‘不够钱也不够柴!你的行动失败了!);结束;

如果(b=5)那么开始

px:= px-cz;

Writeln('电脑选择攻击你,你的血量被减去:',cz,'分');

结束;

结束;

如果px & lt0然后写下('哦,电脑杀了你,你输了!');

如果cx & lt0然后写下(祝贺你,你已经杀死了电脑,你赢了!);

直到(px & lt0)或(cx & lt0);

结束;

Writeln('感谢您的参与!');

readln

结束。