一、求一个free pascal智障级游戏
var a:char;
i,j,m,n:integer;
ma:array[1..10,1..10]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;
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;
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;
end;
if p='2'
then
begin
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;
end;
if p='4' then fyl:=fy*2;
if p='5' then begin
z:=random(4);
if z=3 then writeln('逃跑失败！')
else exit;
end;
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;
end;
write('回合结束');
readln;
end;
end;
shengji;
end;
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;
end;
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;
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;
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;
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;
end;
if px<0 then writeln('哦,电脑打死了你,你输了!');
if cx<0 then writeln('恭喜你,你已经打死了电脑,你赢了!');
until(px<0) or(cx<0);
end;
writeln('谢谢你的参与!');
readln;
end.
二、智障儿童的情感特点:与智障儿童的互动游戏
导致智力障碍的原因很复杂,通常不是由单一的原因造成的,接下来就是我给大家分享的智障儿童的情感特点，希望对大家有帮助。
智障儿童的情感特点
智障儿童的情感特点的体现是由于他们大脑器官受损，以及不良环境和不合理的教育，使他们的心理和行为出现了种种的缺陷和障碍。在认知方面的表现是知觉速度慢、容量小、不够分化、缺乏积极性。正常儿童3岁时已能分辨红、黄、蓝、绿等基本颜色，而智力落后学生到很大年龄还不能做到，八九岁的孩子都说不出自己衣服的颜色;言语发生晚、表达能力差、词汇贫乏、语法单调、存在明显言语障碍;思维直观具体、概括水平低，缺乏思维的目的性、灵活性、独立性与批判性。智障儿童对各种事物的理解只有与具体事物联系在一起时才能做到，抽象概括能力很低。针对这些心理问题，智障儿童在情感特点方面与正常儿童表现出明显的差异。首先，表现为情绪不稳定，体验不深刻。智障儿童的情绪体验与幼儿差不多，情感不稳定，易变化，破涕为笑，转怒为喜得现象颇为常见。常有教师反映智障儿童忘性大，被老师批评后没多久又再次犯错。
导致智障儿童智力落后的原因
1、遗传的影响。很多智障儿童在视觉、听觉、运动和认识活动方面的缺陷，都是由遗传因素所致。如先天愚型的儿童，就是染色体的畸形引起的。
2、产程因素。婴儿在母体妊娠期感染某种疾病，或受药物中毒，放射伤害-在分娩过程中引起的脑损伤、颅内出血和缺氧;出生后早期感染如脑炎、脑外伤或其它有高热症状的疾病等均可影响婴儿大脑的正常发育，造成智力落后。
3、家庭对儿童的发展有重要影响。近亲结婚，歧视儿童，父母事业心低，父亲离家，缺乏适当的两性榜样，贫困和不重视教育。
4、社会因素。由于智障儿童在社会生活环境中经常遭受挫折与失败，周围人常予以歧视和嘲笑，导致他们形成不良的自我概念。同时，由于各种条件的制约，相当多的智障儿童得不到相应的教育。这些也是造智障儿童智力长期落后的原因。
导致智障儿童身心发展的影响
1、对智障儿童身心发展的影响。智障儿童的身心缺陷使他们较难觉察自身内在情绪的变化，认识到引发情绪的原因。若得不到正确、适当的教育和引导，智障儿童情绪方面的缺陷就得不到补偿和改善，致使身心发展不协调或不健康，出现情绪失控的情况也就不足为奇了。
2、对智障儿童认识的影响。智障儿童的高级情感发展缓慢，教师在教育和训练中若一味注重思想品德教育和高级情感培养，忽视了情绪教育，就如同在沙地上建高楼，缺乏基础，无法收到预期的效果。例如：教师讲授《让我们荡起双桨》这篇课文时，引导学生体会文中的思想感情，并引导他们说说自己的幸福生活，学生却很难体会，同时也说不出自己过着怎样幸福的生活。原因在于智障儿童体会不出什么是幸福感，因此无法认识理解相应的知识内容。另一方面，在学习的过程中，智障儿童出现情绪失控或失常的情况，不仅影响了教学进度，自己也无法投入学习。
3、对智障儿童生活的影响。情绪是生活的一部分，每一个人的生活里永远脱离不了多种情绪的变化起伏。二十一世纪的生活是多元化的，对正常人来说尚且有很多生活压力，必须学会调适情绪去面对。而智障儿童的情绪特点不是令他们的情绪表现与外界刺激的强度不一致，就是令他们产生过激反应而失控，他们又如何面对生活中的各种压力，可想面知，智障儿童的生活情趣、生活质量甚至基本的生存都会出现问题。
4、对智障儿童适应社会的影响。当今社会的生活节奏快，正常人的情绪都会有较大的起伏波动。何况智障儿童的社会适应能力较常人差，如果他们不懂得缓解自身情绪，不懂解读他人情绪，不懂得如何面对和处理他人的情，那么，智障儿童的人际交往、与人合作等社会适应方面就会出现这样或那样的问题。同样，社会也无法接纳和认同一群智力有问题，情绪又有问题的人。最终，使智障儿童能适应社会，融入社会生活的教育目标就不能真正实现。
三、奥特曼为什么会被叫做智障游戏啊
原因是很多方面的首先那以奥迪为代表的国内玩具厂家放弃了青少年玩具，把主要的精力用在了学龄前，儿童身上去校边店逛几圈就会发现如今已经没有像过去的是驱车陀螺那样能够长期吸引生的玩相机的玩具了。
其次是国产动画与特色的质量不行也缺乏像奥特曼高达那样适合出玩具周边的长线IP卡油也出了斗罗大陆叶罗丽的卡牌，但销量明显没有奥特曼的卡牌好。
最后是学生业余的时间变少，生活节奏变快了，奥特曼卡牌正好装。那家长不让学生玩手机，电脑学生也没有时间玩，其它项目的控制玩正经电子游戏还得练技术练级反正都是装逼奥特曼卡牌把练级的时间先去直接步入社会装逼环节，直接的小孩的需要痛点。
其实奥特曼卡牌不是完全无脑的，最常见的x档案系列有一套基于对战地图的基本方法，而且卡油旗下还有以桌游对战为主的英雄对决的系列，但是大部分的孩子只希望用稀有卡的装逼并不任何这些。
如果比较游戏性的话，小孩的奥特曼卡牌约等于中年人的贪玩蓝月。
