超智障游戲排行榜
一、請大家推薦幾個好玩的手機游戲
1、《Lovers in a Dangerous Spacetime》
這是一款歡樂的多人打飛機游戲，游戲適合1-2個玩家，每個玩家相互配合，可以在一臺手機上合作完成射擊、防御、移動等動作，駕駛一艘圓形的巨型戰艦，反抗“反愛人士。
2、《Keep Talking and Nobody Explodes》
這款游戲由純虛擬世界引入了現實游戲必須由兩個玩家進行：一方需要描述自己所見到的炸彈類型和需要解的模塊，另一方需要在手冊上找相對應的解密方式。
3、《One and One Story》
畫風簡約唯美，玩家分別控制游戲中的男孩（藍色）和女孩（紅色）來過關，需要解決一些基本的謎題比如推石頭和跳陷阱。過關條件是男女相遇，游戲設計的目的在于：很多地方需要男女雙方同時努力才能過關。
4、《人類一敗涂地》
游戲的主角仿佛喝醉了般，走路扭扭捏捏，身體軟綿綿，兩個人玩起來會有種“智障兒童歡樂多”的感覺。游戲其實并沒有什么規則，但盡管如此，仍要不斷前進直到通關。
5、《你裁我剪！斯尼帕Plus》
游戲規則很簡單，兩個小人，只要互相剪來剪去，把對方剪成游戲所需的形狀，比如鉤子、尖尖頭，T型開關等。游戲玩法多種多樣，有讓小雞仔回窩的，趕螢火蟲回家的，給花兒澆水的，裁出小動物形狀的等等。
二、求一個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.
三、有什么可以和智障兒童一起玩的游戲
1、分類游戲
這是創造力學者威爾斯提出的方法。平日可提供孩子一些具有共同特征的不同類物品，例如湯匙、鑰匙、鐵幣、回形針等，讓孩子發覺其共同特征來加以分類，并鼓勵其重復分類。也可以提供符號、顏色、食品、數字、形狀、人物、字詞等材料，讓孩子依其特性分類。
2、猜謎游戲
孩子對猜謎不但有興趣，而且也能激發其推理及想像力，我們可以用“千根線、萬根線，掉到水里就不見”猜“雨”這種方式；也可以用孩子喜歡的東西給一些線索，讓他提出題目、推想答案。還可以用“比手劃腳”的方式要孩子作答。
3、扮演游戲
例如讓孩子玩“扮家家酒”，鼓勵他應用想像力自由扮演所喜歡的“角色”。父母可以提供一些線索，如給他一架飛機，假想他在空中飛行遭遇哪些飛鳥；給他一部金剛，讓他跟鐵金剛對話；給他一些醫生的玩具，讓他扮演醫生看病的情形。
4、想像游戲
“想像力”可以使不可能的事變成可能。在想像的世界里，孩子的思緒更加自由奔放；我們可以用“未來世界的交通工具或城市”為題，讓孩子運用想像力描繪出未來的遠景。
5、接龍游戲
許多游戲可以用“接龍”的方式，如“文字接龍”：上班→班長→長大→……“繪畫接龍”：一個主題大家接力畫；“數字接龍”：1→3→5……“故事接龍”：從前有一個獵人……“動物接龍”：四只腳的如獅子→老虎→大象……空中飛的如老鷹、鴿子……
6、字詞游戲
讓孩子說出“同韻、音、部首、聲調、筆畫的字詞”、“字頭、尾相同的字詞”、“用圖畫寫字”、“用三個字詞說(寫)出不同的句子”，提供一些字詞，如“火”字，讓孩子自由聯想，或說出可以用哪些字詞來替代……
7、手指游戲
雙手是我們的外腦，訓練孩子的雙手，有助于腦力開發；設計一些運用手指的運動，如“手語歌”、“甩手”、“捏泥巴”、“拼積木”等活動，讓孩子能動動頭腦、動動手。也可以用兒歌配合手指的動作，一邊念兒歌一邊運作手指。
8、躲藏游戲
跟孩子玩“躲貓貓”的游戲；把物品藏在家中一角，讓他來找；在圖案中藏著一些物品、數字等，讓他找出來；帶孩子到郊外，親子共玩“大地尋寶”的活動；或在報紙上找出自己需要的“形容詞”或“物品”等活動，都是藏物的游戲。
9、繪畫游戲
從涂鴉到能畫出圖形，孩子繪畫的興趣一直很濃厚，他們以畫畫表達其未能以言語形容的感受、情緒。父母可以和孩子一起畫。用各種不同的材料，畫在紙上、布上、板上……讓孩子享受自由創作的喜悅。
10、觀察游戲
讓孩子觀察樹苗的成長，或紅薯發芽，以了解造物的奧妙；由觀察影子的變化，學習科學概念；由觀察人類的表情，而能察言觀色、善解人意；甚至參觀各種展覽、表演、戶外郊游……等都是很好的觀察活動。