求免费帕斯卡智障游戏
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
结束。