极之星攻略网将带你了解pascal游戏，希望你可以从中得到收获。

求一个free pascal智障级游戏

var a:char;

i,j,m,n:integer;

ma:array[110,110]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.

pascal 编程游戏大富翁 问题

初学就编游戏，这不现实

dt:array[120]of string[5];  这是在开辟一个字符串数组，长度最多为5位，容量有20.

CRT 是pascal是单元库，这个初中还不需要涉及，在程序开头写上 USES crt;就可以调用了，具体crt里面的函数，有兴趣可网查。

clrscr是一个清屏的过程，（在DOS单元中，在程序开头写上 USES dos秀能调用了）

procedure是过程，可以自己来编过程。

建议：如果你连这个都不知道，编游戏是不现实的，建议你从基础学起，买本pascal教材，从头学期，等以后自然而然就会编了。

参考程序已提交，没有病毒，如果360报错请勿相信

求一款游戏名称，控制一个小分队，深入日军部队，救人质起请各位高手把名字告诉小弟

盟军敢死队4 中 文 名：盟军敢死队4：打击力量

英 文 名：(Commandos Strike Force)

发布时间：2006.04.04

制作厂商：Pyro Studios

代理厂商：Eidos

适应平台：电脑单机

游戏简介：

盟军敢死队——打击力量小组是一个精英团队，其成员是由盟军各连挑选的最优秀士兵组成。

在游戏中玩家将控制“打击力量”的三位成员之一，各自有其不同的操作方式。玩家需在三位人物之间进行切换操作来顺利进行游戏：“绿色贝蕾帽”永远是行动的核心，他专精于格斗与各种武器的使用；“狙击手”有着钢铁般的意志与出众的枪法；而“间谍”则擅长于潜入敌人的内部进行破坏。然而，如何搭配三位敢死队员的独特技能以实现进攻的计划，这取决于玩家的选择。

截至1942年，二次世界大战已席卷欧洲三年之久。欧洲各国惨遭纳粹蹂躏，法国、挪威相继沦陷，英国遭受到猛烈的袭击，苏联在猛烈的炮火中艰难维持。命运的天平似乎将向着法西斯一边倾斜，欧洲的自由已危在旦夕。，玩家要做的则是带领敢死队精英队员在敌人后方完成一系列的任务，横跨了法国、俄国与挪威。摧毁纳粹船只、伏击敌人部队，释放法国反抗军囚犯以及绑架敌人的某个将军——这些是你要完成的任务的其中几个。除了单人战役之外，游戏还设置了不少原创的网络联机多人模式。在游戏中玩家将控制“打击力量”的三位成员之一，各自有其不同的操作方式。玩家需在三位人物之间进行切换操作来顺利进行游戏

团队成员均接受了体格、生存技能、武器装备、行动战术等多方面特训，装备有盟军最先进的武器，深入敌后完成多项特殊任务，破坏纳粹敌人的行动计划，为盟军的进攻争取主动。盟军敢死队——打击力量小组就是盟军反击的先锋，用他们特有的战斗方法和策略消灭敌人。

《盟军敢死队4：打击力量》是第一人称战术动作射击游戏，游戏提供了三名具备自身特点和能力的角色， 融合了动作、渗透、战术等多种元素，同时还有丰富的武器和不同种类的敌人。深入敌后，破坏敌人行动，绑架敌方官员，阻止敌人计划都是玩家将会面对的任务。在斯大林格勒、挪威、法国三大战场上，绿色贝蕾帽、狙击手和间谍相互配合以完成所有任务。

所有行动为全开放式， 战场环境亦绝非线性演绎， 玩家可根据自己的特点和喜好采取不同方案完成任务，而不同的执行方法也会带来截然不同的反应。

玩家既可以孤军奋战，也可以通过互联网与其他15位好友一同参与秘密行动。

任务简介：

Ⅰ深入敌后

纳粹法西斯已攻占法国。所有的希望便寄托在当地反抗组织和盟军的援助上了。一小批特别行动成员即将空降法国境内，你的任务就是找到一处有利据点，为空降部队的到达做好掩护。

Ⅱ出卖

一次简单的联络任务居然演变成了一场噩梦。敌人从后方发动突然袭击并竭力阻挡我们的进攻计划。打击力量小组派出霍金斯中尉和奥布赖恩上尉支援盟军，抵御敌人的疯狂反扑并协助救治伤员。

Ⅲ叛徒

你要和法国抵抗运动的某成员取得联系。任务并不困难但一路上要注意保护好自己。这次任务派出的是间谍--陆军上校布朗，注意不要引起别人怀疑。那位成员盼望这一时刻的到来已很久，别让对方着急。时间有限，赶快上路吧。

Ⅳ眼皮之下

原计划都被打乱了！你的好些同胞降落在距预定目标很远的位置。更糟糕的是，他们已被敌方俘获，正准备押往柏林。你必须和打击力量小组的成员通力合作，准备好对押送车辆的突袭，救出你的人。

Ⅴ冰冷的“问候”

藏匿在挪威雪山间的敌人正在加班加点以期抢先获得核能的开发技术。打击力量小组成员在挪威反抗军的协助下乘船潜入敌方秘密研究基地，你的任务就是炸毁敌方的地下基地，绝不能让核能落入纳粹之手。

Ⅵ反光道钉

满载炸药的卡车已是整装待发。到达目的地前，卡车必将经过由纳粹国防军把守的小镇苏待恩。卡车到达此地前务必拿下该镇。打击力量小组派出了绿色贝蕾帽和狙击手前去行动，利用黑夜潜入镇中，准备反击。

人物简介：

绿色贝蕾帽（弗朗西斯·奥布莱恩）

姓名：弗朗西斯·奥布莱恩

出生年月：1910年6月17日

出生地：美国，纽约

身高/体重：6英尺2英寸/14英石

所属连队：盟军敢死队——打击力量连

军衔：陆军上尉

战术特长：近距离武器，重武器

特训评价：

奥布莱恩已完成全部特训任务，对任何特别行动小组来说，他都是不可多得的人才。在我遇见的所有士官中，奥布莱恩的身体素质和意志力都是最佳的。处事冷静、计划周密是他最大的优点，这种个性陪伴他一次次杀入敌阵，打击威胁世界的恶棍。

背景资料：

母亲早逝成为弗朗西斯人生的转折点。由于对其父亲一无所知，相关部门将他送往圣玛丽孤儿院抚养。孤儿院的修女们将弗朗西斯视为己出，在正确的培养和严格的纪律调教下，弗朗西斯身体和精神上的潜力逐渐显现。严谨的处事态度引导他走向光明的未来。

18岁生日过后，弗朗西斯以优异的成绩获得哥伦比亚大学奖学金。在那里他被授予工程学位，此后因工作关系前往巴黎、柏林等欧洲国家担任重要职位。

1939年纳粹入侵波兰，弗朗西斯的生活也发生了很大转变。内心中强烈的责任感以及要和美军并肩作战的欲望驱使着他加入英国工程师军团。

敦刻尔克大撤退发生之时，弗朗西斯率领其手下团队进行了一场貌似自杀的进攻，最终抵达海边胜利逃脱。

回到英国后，他的能力终于被军方认可并加入了盟军敢死队。

狙击手（威廉·霍金斯）

姓名：威廉·霍金斯

出生年月：1914年1月11日

出生地：英国牛津

身高/体重：6英尺/12英石

所属连队：盟军敢死队——打击力量连

军衔：中尉

战术特长：手握狙击步枪镇定自若，极佳的视力令其能轻易锁定目标，面对任何挑战都无所畏惧。

特训评价：

连队的王牌选手，拥有一双让人畏惧的眼睛。霍金斯的个人生活平淡无奇，却是战斗团队最有价值的成员之一。他总是独自一人置身险境，为其他同胞做好掩护。虽常被人认为是个不大合群的家伙，但其狙击目标或是扔出飞刀的精度之高绝对是连队不可缺少的重要人物。把守好自身位置的同时消灭敌人，对于一场突击行动而言相当关键。

背景资料：

作为一名英国牛津郡的富家公子，霍金斯很小就被送往寄宿学校学习，在那里他热爱运动、喜欢恶作剧的个性得到了充分的发挥。霍金斯的父亲是一名神枪手，他发现儿子继承了自己的特长，在家时，父子俩人总是要花上大量时间探讨射击技艺，这也是霍金斯家族自16世纪起便保有的家庭传统。

1932年霍金斯离开了寄宿学校前往牛津大学学习，学校优秀的运动传统让他大展风采，还成为了校橄榄球队队长和射击队队员，代表学校参加多项国家级赛事。

尽管肩负着维护家族荣誉的责任，且有着极佳的运动天赋，霍金斯仍在1934年被学校开除。学校提供的一份档案表示其被开除的原因在于多项课程无法达到培养计划要求，同时在校行为不端。

尽管如此，他的射击才能并未受到开除事件影响，仍得到了广泛认可。随后霍金斯被召入英国奥林匹克射击队，在1936年柏林奥运会上获得3枚金牌。

原本以为这将成为其人生新的起点，不曾想命运又给他开了个玩笑。回到英国后，在一场和朋友庆祝胜利的聚会上，霍金斯和其他人发生了争斗，并意外的杀死了其中一人。为摆脱即将到来的牢狱之灾，他选择了逃亡。

1936到1939年间，霍金斯逃亡的足迹遍及全球，无论是喜玛拉雅山、婆罗洲的热带丛林还是非洲岛国马达加斯加你都可以找到他的身影。艰险的路途使其屡次命悬一线，例如1939年在坦桑尼亚山峦间攀爬的经历至今令他后怕。1939年战争爆发，满以为警察已放弃追捕的他回到自己的家乡，却仍无法逃脱法律的制裁。迫于形势，国家给了他两种选择，投入监狱或是参军。“参军听上去蛮有意思的”，霍金斯这样回答。

间谍（乔治·布朗）

姓名：乔治·布朗

出生年月：1898年12月29日

出生地：未知

身高/体重：6英尺1英寸/12英石

所属连队：盟军敢死队——打击力量连

军衔：陆军上校

战术特长：天生的领导才能，缜密的头脑，极富个人魅力和煽动性。

特训评价：

上校军衔加之缜密的头脑和领导才干使其成为敢死队打击力量连指挥官的最佳人选。他行事隐秘，精通多国语言的特长使之能轻易潜入敌方阵地，在不惊动敌人的情况下完成消灭敌方目标的任务。

乔治·布朗的德语相当地道，因而能轻易骗过纳粹军看守获取敌方战斗计划等情报。上述特长将成为团队行动最有力的保证。与此同时，我们也发现他对纳粹党极度的憎恨均源自其成长经历和家庭背景。渴望消灭纳粹法西斯的情绪非常之强烈，而且绝对发自内心。

游戏特色：

Ⅰ多样的游戏进行方式

偷袭、埋伏、救助、破坏、渗透……感受风格各异，强度不同的游戏体验。

Ⅱ三名独具特色的游戏人物

绿色贝蕾帽、狙击手、间谍，每个角色都有自身独一无二的技能和特长。开始行动之前，务必派出最合适的人选登场。

Ⅲ强烈而又富有开放型的战场

多样的战场环境，非线性的游戏流程，诺曼底的阴森林、挪威的雪山、斯大林格勒支离破碎的城池都是你展开行动的地方。

Ⅳ实现任务的多样性

任务如何开展？何时开展？从哪里开始？——一切尽在掌握。用你自己的方式制定行动计划，不同的行动方式，可能带来截然不同的反应哦！

Ⅴ挑战无极限

增强的AI设计赋予游戏人物更加真实、自然的行为。你的对手不再傻乎乎等着被你消灭，他们对身处环境非常熟悉，还能从你的行动中获取“经验”。

Ⅵ无与伦比的可重玩性

完全开放的任务流程，提供多种任务实现方案和可选操作。

Ⅶ真实还原二战武器

迄今为止最完善的二战武器库，从英国SAS突击队匕首到反坦克手雷发射器悉数收录。

Ⅷ完全真实

全新引擎让游戏中的一砖一瓦都具备自己的物理特性，配合粒子效果的使用，战场环境具备高度的交互特性。

Ⅸ连线对战

提供多重选项，通过互联网和你的朋友一起在战场上厮杀。

战役 一：

任务 一：深入敌后(Behind Enemy Lines)

参与成员：狙击手

主要目标：

指南：沿着河流接近村庄。(Score:250)

释放反抗者：清除敌人并解救盟军士兵。(Score:500)

纳粹的进攻：清除所有敌人。(Score:500)

任务 二：出卖(Betrayal)

参与成员：贝蕾帽、狙击手

主要目标：

保护盟军士兵：保护他们直到第二梯队着陆。(Score:500)

部队重组：在棚屋处重组部队，并保护受伤的队长。(Score:250)

后退：到达桥并保护你的人。(Score:250)

穿过：清除路面上的纳粹士兵。(Score:250)

次要目标：

奖励：击毁所有探照灯以停止敌人迫击炮的火力。(Score:500)

破坏：在桥上放置炸弹。(Score:500)

突发事件：盟军士兵受伤、德军军车增援

战役 二：

任务 一：叛徒(A Traitor)

参与成员：间谍

主要目标：

联络抵抗士兵：在通讯站会见帕斯卡[Pascal]。(Score:250)

破坏：在卡车和防空炮上放置炸弹。(Score:500)

次要目标：

指南：解决纳粹士兵并换穿他的制服。(Score:250)

指南：当桥上士兵转身时，解决车旁纳粹士兵。(Score:250)

指南：找到伪装用的高阶制服。(Score:250)

指南：经过敌人时，不要引起敌人的注意。(Score:250)

奖励：任务完成于秘密行动中。(Score:500)

沿小路前行。靠近路口时，蹲伏并左靠木栏前进，遇到植物后左拐，从其中穿过，发生剧情。继续前行，依提示待桥面士兵转身之季上前解决车旁的士兵，而后再解决桥上士兵。再前行，等巡逻士兵转身之季，上前解决车旁的观察员并取得制服。于棚屋处取得防毒面具及毒气弹。以下步骤可二选其一：

⒈干掉巡逻兵后干掉棚屋里的军官，可换的高级军官制服。

⒉在取得毒气弹后，可绕道去左边农舍，伺机仍出毒气弹，解决那里的3人(普通士兵、下级军官、高级军官)，可换的高级军官制服。

穿过路口3名守卫时不要引起注意，贴着树丛从几名士兵身后穿过即可，出现动画。在军官身后仍出硬币，转移军官视线后，解决它。进入旁边的通讯室，依次解决士兵和军官，和抵抗组织成员帕斯卡接头。

按照帕斯卡[Pascal]的提示，往南边走，从倒下的树干下穿过，到达敌人的防空炮阵地，炸毁敌人的卡车和防空炮。

任务 二：在他们的鼻子底下(Under Their Noses)

参与成员：狙击手、间谍

主要目标：

警告：绝对不能引起警报。(Score:500)

释放盟军士兵：消灭敌人并打开卡车。(Score:500)

后退：保护盟军士兵直到撤离用车辆到达。(Score:250)

这一任务相当简单，需要在不引起警报的情况下解救3辆卡车里的盟军士兵。开始，先切换狙击手，干掉2名高级军官。(从地图来看，在第2辆卡车附近，第1名军官十分明显，站在高处的石台上，而第2名军官在其身后的树丛之中，用狙击手射杀之。)之后间谍行动，绕上高坡，换上树丛里军官的制服，拿起地上的MP40冲锋枪，继续前行，绕到车队的后面在装甲车后停留。切换到狙击手，依次射杀无人看护的单独士兵(从车队前面开始杀，第1辆车前的通讯兵，第2两车边上，狙击手看的见的巡逻兵，待走到前轮处，射杀之。第2辆车后的士兵，待卡车另一端巡逻兵走回重合时，射杀之——“一箭双雕”，最后射杀第3辆卡车后面的军官)。之后，切换为间谍，操起MP40冲锋枪，将装甲车旁4名纳粹士兵“屠杀”。清理掉敌人后，依次打开卡车后挡板，放出被俘的盟军士兵，前进到隧道附近，等待接应卡车的到来。

任务 三：反抗(Resistance)

参与成员：间谍

主要目标：

城镇中心：法国医生的自由。(Score:500)

火车站：窃取卡车并装载炸药。(Score:500)

请用pascal编写一个猜数字的游戏程序

{不知道楼主要猜的数字范围是多少, 就打个比方, 是0到20以内的数字}

var

RadomNum: Byte; {随机生成一个数字}

ReadNum: Byte; {用户输入, 记录猜的数字}

i: Byte; {记录猜的次数}

ExitCondition: Boolean; {退出条件}

begin

Randomize; {初始化随机数}

RadomNum := Random(21); {020一共21个数}

i := 0; {初始化次数}

repeat

ExitCondition := False;

Readln(ReadNum);

inc(i);

if (ReadNum = RadomNum) or (i >= 21) then

ExitCondition := True; {如果才对或者猜的次数达到21次就退出}

until ExitCondition = True;

case i of

1: Writeln('you are smart!');

25: Writeln('you are clever!');

610: Writeln('you are right!');

1121: Writeln('you are foolish!');

end;

Readln;

end.