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