pascal射擊游戲完整版

第一篇：pascal射擊游戲完整版

uses crt;var headx,armlx,armrx,bodyx,legx,heady,armly,armry,bodyy,legy:integer;blood:integer;eblood:array [1..9] of integer;etowards,towards,x:string;earmrx,earmlx,elegx,ebodyx,eheadx:array [1..9] of integer;head,arml,armr,body,leg:char;i1,i:integer;ehead,earml,earmr,ebody,eleg:char;stepstart,steps,enerys,enerys1:integer;firststart:integer;kk:char;active,enery:array [1..9] of integer;time:longint;skilling,deaths,skilllevel:integer;skilltime:longint;skillactive:string;freezing:integer;label 1;procedure printplayer(pr:integer);begin if pr=0 then begin textcolor(red);gotoxy(headx,heady);write(head);gotoxy(armlx,armly);write(arml);gotoxy(armrx,armry);write(armr);gotoxy(bodyx,bodyy);write(body);gotoxy(legx,legy);write(leg);textcolor(white);end else begin textcolor(green);gotoxy(eheadx[pr],17);write(ehead);gotoxy(earmlx[pr],18);write(earml);gotoxy(earmrx[pr],18);write(earmr);gotoxy(ebodyx[pr],18);write(ebody);gotoxy(elegx[pr],19);write(eleg);textcolor(white);end;end;function locationOK(lOk:integer):boolean;var lOk1:integer;begin locationOK:=true;for lOK1:=1 to i-1 do if enery[lOk1]=enery[i] then locationOK:=false;if enery[i]=bodyx then locationOK:=false;end;procedure printstep;var psp:integer;begin gotoxy(stepstart,20);for psp:=1 to steps do write('=');end;function direct(dr:integer):boolean;var dr1:integer;begin direct:=true;for dr1:=1 to enerys do if(enery[dr1]=dr)and(active[dr1]=1)direct:=false;end;procedure clearplayer(cp:integer);begin gotoxy(cp,19);write(' ');gotoxy(cp-1,18);write('

');gotoxy(cp,17);write(' ');end;procedure turnside;begin gotoxy(38,24);write('

');gotoxy(38,24);write(towards);end;procedure fightover(fo:string);begin if fo='left' then begin gotoxy(armlx-1,armly);

then write('=');gotoxy(armlx-1,armly);write(' ');end;if fo='right' then begin gotoxy(armrx+1,armry);write('=');gotoxy(armrx+1,armry);write(' ');end;end;procedure ifs(is1:string);var is2,is3:integer;is4:string;is5:array [1..9] of integer;begin for is2:=1 to enerys do is5[is2]:=eblood[is2];if is1='left' then for is2:=1 to enerys do if active[is2]=1 then begin if armlx-1=earmrx[is2] then eblood[is2]:=eblood[is2]-5;if armlx-1=ebodyx[is2] then eblood[is2]:=eblood[is2]-10;if armlx-1=earmlx[is2] then eblood[is2]:=eblood[is2]-15;end;if is1='right' then for is2:=1 to enerys do if active[is2]=1 then begin if armrx+1=earmlx[is2] then eblood[is2]:=eblood[is2]-5;if armrx+1=ebodyx[is2] then eblood[is2]:=eblood[is2]-10;if armrx+1=earmrx[is2] then eblood[is2]:=eblood[is2]-15;end;for is2:=1 to enerys do if active[is2]=1 then if abs(enery[is2]-headx)<=3 then begin gotoxy(enery[is2],23);str(is5[is2],is4);for is3:=1 to length(is4)do write(' ');gotoxy(enery[is2],23);write(eblood[is2]);end;end;procedure levelup(lu:integer);var lu1:string;lu2:char;lu3:integer;begin case lu of 1:lu1:='frozen the enemy';end;gotoxy(30,25);write('press ''g'' to get the new skill');repeat lu2:=readkey;until lu2='g';gotoxy(30,25);write('

');gotoxy(1,25);write('You''ve gotten a new skill:press ''f'' to ',lu1,'.Press Enter to continue');lu2:=readkey;gotoxy(1,25);for lu3:=1 to 79 do write(' ');end;procedure killing;var kill:integer;kill1:string;begin for kill:=1 to enerys do if(eblood[kill]<=0)and(active[kill]=1)then begin clearplayer(enery[kill]);enerys1:=enerys1-1;active[kill]:=0;gotoxy(enery[kill],21);write(' ');gotoxy(enery[kill],22);write(' ');gotoxy(enery[kill],23);str(eblood[kill],kill1);for i1:=1 to length(kill1)do write(' ');deaths:=deaths+1;if(deaths=10+skilllevel*5)and(skilllevel+1<2)then begin skilllevel:=skilllevel+1;skilling:=skilllevel;deaths:=0;levelup(skilllevel);end;end;end;procedure printblood;begin gotoxy(51,24);write('

');gotoxy(51,24);write(blood);end;procedure printbloods(pb:integer);begin gotoxy(enery[pb],21);write('');gotoxy(enery[pb],22);write('');gotoxy(enery[pb],23);write(eblood[pb]);end;procedure useskill(us:integer);var us1:integer;begin case us of 1:begin time:=time-240000;freezing:=1;for us1:=1 to enerys do if active[us1]=1 then begin textcolor(blue);gotoxy(eheadx[us1],17);write(ehead);gotoxy(earmlx[us1],18);write(earml);gotoxy(earmrx[us1],18);write(earmr);gotoxy(ebodyx[us1],18);write(ebody);gotoxy(elegx[us1],19);write(eleg);textcolor(white);end;end;//case of //2: end;end;begin towards:='left';headx:=40;heady:=17;armlx:=39;armly:=18;armrx:=41;armry:=18;bodyx:=40;bodyy:=18;legx:=40;legy:=19;blood:=100;head:='';arml:='=';armr:='=';body:='';leg:='A';ehead:='';earml:='=';earmr:='=';ebody:='';eleg:='A';clrscr;randomize;gotoxy(30,24);write('towards:',towards);gotoxy(45,24);write('blood:',blood);printplayer(0);skilltime:=1000000;skillactive:='active';gotoxy(60,24);write('skill:',skillactive);repeat if enerys1=0 then begin enerys:=random(8)+1;enerys1:=enerys;steps:=random(60)+enerys;repeat stepstart:=random(75-steps)+1;until(legx>stepstart)and(legx

');gotoxy(legx,14);write(' ');gotoxy(30,25);write('

printplayer(0);if random(5)=1 then begin

');

gotoxy(10,25);write('You''ve gotten a bag,open it to added your blood.(press ''o'')');repeat kk:=readkey;until kk='o';gotoxy(10,25);write('

');if blood+80<100 then blood:=blood+80 else blood:=100;printblood;end;end else begin firststart:=1;printstep;end;for i:=1 to enerys do begin printplayer(i);active[i]:=1;eblood[i]:=100;printbloods(i);end;end;if keypressed then begin kk:=readkey;case kk of 'a':begin towards:='left';if(bodyx-1>stepstart)and(direct(bodyx-1))then begin headx:=headx-1;armlx:=armlx-1;armrx:=armrx-1;bodyx:=bodyx-1;legx:=legx-1;clearplayer(headx+1);printplayer(0);turnside;

end;end;'d':begin towards:='right';if(bodyx+1=1000000 then begin skilltime:=0;skillactive:='not active';gotoxy(66,24);write('

');gotoxy(66,24);write(skillactive);useskill(skilling);end;end;time:=time+2000;skilltime:=skilltime+2000;end;if time>=40000 then begin time:=0;if freezing=1 then begin freezing:=0;for i:=1 to enerys do if active[i]=1 then printplayer(i);end;for i:=1 to enerys do if active[i]=1 then begin if enery[i]-headx>0 then etowards:='left' else etowards:='right';if abs(enery[i]-headx)>3 then begin if etowards='left' then begin enery[i]:=enery[i]-1;earmlx[i]:=earmlx[i]-1;earmrx[i]:=earmrx[i]-1;ebodyx[i]:=ebodyx[i]-1;eheadx[i]:=eheadx[i]-1;elegx[i]:=elegx[i]-1;clearplayer(eheadx[i]+1);printplayer(i);end;if etowards='right' then begin enery[i]:=enery[i]+1;earmlx[i]:=earmlx[i]+1;earmrx[i]:=earmrx[i]+1;ebodyx[i]:=ebodyx[i]+1;eheadx[i]:=eheadx[i]+1;elegx[i]:=elegx[i]+1;clearplayer(eheadx[i]-1);printplayer(i);end;if etowards='left' then i1:=1 else i1:=-1;gotoxy(enery[i]+i1,21);write(' ');gotoxy(enery[i]+i1,22);write(' ');gotoxy(enery[i]+i1,23);str(eblood[i],x);for i1:=1 to length(x)do write(' ');printbloods(i);end else begin if etowards='left' then begin gotoxy(earmlx[i]-1,18);write('=');gotoxy(earmlx[i]-1,18);write(' ');if earmlx[i]-1=armrx then blood:=blood-1;if earmlx[i]-1=bodyx then blood:=blood-2;if earmlx[i]-1=armlx then blood:=blood-3;end;if etowards='right' then begin gotoxy(earmrx[i]+1,18);write('=');gotoxy(earmrx[i]+1,18);write(' ');if earmrx[i]+1=armlx then blood:=blood-1;if earmrx[i]+1=bodyx then blood:=blood-2;if earmrx[i]+1=armrx then blood:=blood-3;end;printblood;if blood<=0 then goto 1;end;

end;end;time:=time+1;skilltime:=skilltime+1;if(skilltime>=1000000)and(skillactive='not active')then begin skillactive:='active';gotoxy(66,24);write('

');gotoxy(66,24);write(skillactive);end;if skilltime>=10000000 then skilltime:=8000000;until 1=0;1:clrscr;gotoxy(30,12);write('game over');readln;end.

第二篇：射擊游戲

射擊游戲

?編號(hào)：SJYX1?名稱：近軌道先鋒

?大小：20MB?適用固件：4.0固件及以上

?游戲由13個(gè)游戲關(guān)卡和5個(gè)不同的場(chǎng)景組成。玩家在游戲中可以使用狙擊槍、等離子槍、火箭發(fā)射器和手榴彈等6種不同的武器裝備。

?游戲包含單人模式和多人模式，其還支持玩家通過WiFi/藍(lán)牙進(jìn)行在線或聯(lián)機(jī)游戲。

?編號(hào)：SJYX2?名稱：近軌道先鋒

?大小：222MB?適用固件：3.1.2固件及以上

?游戲的劇情為軍國主義?；庶h人囚禁了你們的領(lǐng)袖，并在銀河中散播恐怖展開激戰(zhàn)，而你是一名王牌明星飛行員。你需要率領(lǐng)反抗軍戰(zhàn)機(jī)隊(duì)，加入到高強(qiáng)度模擬空戰(zhàn)中與他們決一死戰(zhàn)。反抗軍和?；庶h之間的戰(zhàn)爭將會(huì)貫穿整個(gè)太空，橫跨數(shù)個(gè)星系，這一切都將由全高清畫面所呈現(xiàn)。你將會(huì)在極富未來感的城市、叢林、沙漠和冰山中戰(zhàn)斗。

?單人游戲運(yùn)，行流暢，操作簡便多人游戲部分則支持雙人對(duì)戰(zhàn)（藍(lán)牙/WiFi）。

?編號(hào)：SJYX3?名稱：生死9毫米

?大?。?33MB?適用固件：3.1.3固件及以上

?游戲集成了俠盜系列犯罪游戲的內(nèi)容，包括幫派、槍戰(zhàn)等常見的犯罪元素，不過游戲的主角看起來更像是警察的臥底，《9毫米》明顯的表現(xiàn)出俠盜類游戲的風(fēng)格，自由的駕駛、打架、槍戰(zhàn)，畫面充斥暴力、金錢與毒品。

?本地或者在線的死亡對(duì)戰(zhàn)或者團(tuán)隊(duì)死亡對(duì)戰(zhàn)、支持最多12名玩家進(jìn)行對(duì)戰(zhàn)、4張不同的地圖以及16種不同的武器和多種的武器性能升級(jí)

?編號(hào)：SJYX4?名稱：戰(zhàn)地:叛逆連隊(duì)

2?大小：234MB?適用固件：3.0固件及以上

?將會(huì)橫跨5個(gè)不同區(qū)域、多達(dá)14個(gè)單人任務(wù)。將會(huì)在叢林、沙漠和雪地之中進(jìn)行。同時(shí)游戲還將會(huì)包含多人在線模式，可以通過聯(lián)網(wǎng)進(jìn)行小隊(duì)作戰(zhàn)，最多支持4名玩家通過3G、Wifi、OTA聯(lián)機(jī)，進(jìn)行TDM和DM多人模式。

?游戲注重體現(xiàn)現(xiàn)代戰(zhàn)爭的真實(shí)性，玩家可破壞各種場(chǎng)景物品，能對(duì)建筑物框架進(jìn)行破壞。同時(shí)注重小隊(duì)配合作戰(zhàn)也是《叛逆連隊(duì)2》的特點(diǎn)

?編號(hào)：SJYX5?名稱：恐龍戰(zhàn)士

?大?。?60MB?適用固件：3.0固件及以上

?還有這3種游戲模式，你可以和多達(dá)4個(gè)人一起進(jìn)行多人游戲哦

?Nanosaur 2是一款3D風(fēng)格的飛行射擊游戲，游戲采用重力感應(yīng)控制

?游戲中需要要小心的操控飛行，注意炮塔、迅猛龍或其他恐龍的攻擊。超過地圖的空間還是會(huì)撞壁爆炸的.哦

?編號(hào)：SJYX6?名稱：秘密行動(dòng)

?大?。?57MB?適用固件：3.0固件及以上

?在游戲中，玩家會(huì)扮演三名不同的特工，每個(gè)人都擁有自己不同的能力。?多人模式也可讓你和朋友組隊(duì)（本地藍(lán)牙）。

?秘密行動(dòng)是以世界諜戰(zhàn)為基礎(chǔ)的動(dòng)作游戲，橫跨日內(nèi)瓦，杜布羅夫尼克，香港等地區(qū)來完成各種富有挑戰(zhàn)性的任務(wù)。

?編號(hào)：SJYX7?名稱：戰(zhàn)地：叛逆連隊(duì)

?大小：257MB?適用固件：3.0固件及以上

?五張各式的地圖和三種不同模式（自由戰(zhàn)，團(tuán)隊(duì)死亡戰(zhàn)，控制戰(zhàn)）下與多至5位好友聯(lián)機(jī)作戰(zhàn)。還可以直接通過藍(lán)牙進(jìn)行本地聯(lián)機(jī)，或通過Wi-Fi聯(lián)網(wǎng)與世界各地的朋友們對(duì)戰(zhàn)。

?操縱包括坦克、越野車和滑翔機(jī)在內(nèi)的3種交通工具來干掉敵人，或進(jìn)行成功逃離。武器還可以用機(jī)槍、火箭筒、狙擊步槍及火焰噴射器等多種真實(shí)二戰(zhàn)武器。

?編號(hào)：SJYX8?名稱：現(xiàn)代戰(zhàn)爭2黑色飛馬

?大小：566MB?適用固件：3.1.2固件及以上

?玩家將操縱3名可操縱角色之一，投身到橫跨中東、東歐與南美的12大戰(zhàn)場(chǎng)中去。臉部細(xì)節(jié)動(dòng)畫以及慢動(dòng)作瞬殺帶來令人屏息的緊張?bào)w驗(yàn)。15種真實(shí)軍用武器可供使用，您可以直接從敵人處獲取，也可利用數(shù)種附件對(duì)其進(jìn)行升級(jí)。中彈或遭受其他傷害時(shí)畫面產(chǎn)生模糊效果、武器上展現(xiàn)動(dòng)態(tài)光影都營造出真實(shí)的戰(zhàn)爭體驗(yàn)。多人游戲方面，支持最多10名玩家可同時(shí)參與在線與本地對(duì)抗。

?編號(hào)：SJYX9?名稱：戰(zhàn)列艦

?大?。?0MB?適用固件：3.1.2固件及以上

?一款經(jīng)典戰(zhàn)艦游戲，指揮你的軍艦，將對(duì)手擊沉，具有多種不同的游戲模式，并支持多人對(duì)戰(zhàn)。通過巧妙的部署戰(zhàn)艦，避開敵方部隊(duì)的探測(cè)；運(yùn)用火力偵察鎖定敵船，將它送入海底！讓你如臨其境的逼真炮聲，以及無線電中不時(shí)響起的呼叫！你所熟知并鐘愛的戰(zhàn)艦，都將真實(shí)展現(xiàn)在你面前

?編號(hào)：SJYX10?名稱：合金風(fēng)暴

?大?。?0MB?適用固件：3.1.2固件及以上

?實(shí)時(shí)多人-支持3G和Wi-Fi同其他玩家聯(lián)機(jī)比賽，生存模式:在合作多人模式下與朋友合作或單人多次消滅敵人，回旋裝置允許通過iPhone 4和iPod touch四代裝置進(jìn)行精確控制

?高解析支持的下一代3D圖像、眾多飛行器可供選擇、自定義飛行器導(dǎo)彈和機(jī)槍 ?不同方向擊打,執(zhí)行高難度機(jī)動(dòng)動(dòng)作、3D空間全360度飛行

?編號(hào)：SJYX11?名稱：鋼鐵大戰(zhàn)

?大小：20MB?適用固件：3.1.2固件及以上

?一個(gè) 3D平面射擊游戲，游戲單人戰(zhàn)斗有 3 種不同的模式，多達(dá) 32 個(gè)關(guān)卡，多人戰(zhàn)斗最多可支持 4 人 WIFI 連接，玩家需在遙遠(yuǎn)的鋼鐵星球上為了最強(qiáng)名號(hào)的榮譽(yù)而戰(zhàn)，其精彩的戰(zhàn)斗射擊場(chǎng)景定能讓你熱血澎湃。喜歡火爆刺激的射擊游戲？想體驗(yàn)與對(duì)手猛烈互擊，在槍林彈雨之中狂奔躲閃然后消滅對(duì)手的快感么？那么可以試試這款《Iron Wars》，雖然游戲里你將成為一個(gè)鋼鐵圓球……

?編號(hào)：SJYX12?名稱：三國殺

?大?。?0MB?適用固件：IOS4固件及以上

?這是一個(gè)交織著扮演、推理、典故的游戲,充滿著智慧的搏殺、人性的對(duì)決,符合中國人的審美情趣和娛樂需求。

?三國殺online是移植三國殺實(shí)體紙牌的正統(tǒng)之作,由盛大邊鋒的研發(fā),力圖帶來最完美的三國殺游戲體驗(yàn)。游戲嚴(yán)格遵循官方設(shè)定的規(guī)則和邏輯,并根據(jù)最新的動(dòng)態(tài)進(jìn)行實(shí)時(shí)調(diào)整,保證您能第一時(shí)間玩到原汁原味、專業(yè)嚴(yán)謹(jǐn)?shù)娜龂鴼ⅰ?/p>

?編號(hào)：SJYX13?名稱：牛仔神槍手

?大?。?0MB?適用固件：IOS4固件及以上

?Cowboy Guns HD在很多設(shè)計(jì)上比較獨(dú)特，比如80度的俯視角，樂高造型人物，雙搖桿操作方式，帶點(diǎn)復(fù)古粗獷色彩的3D場(chǎng)景構(gòu)架，再加上濃烈的美國西部風(fēng)情，這些要素都吸引著玩家很好地代入到游戲角色中去。

第三篇：大實(shí)驗(yàn)射擊游戲（本站推薦）

嵌入式Linux應(yīng)用程序開發(fā)

期末結(jié)課實(shí)驗(yàn)

基于QT的射擊游戲

學(xué)號(hào)：1411640407 姓名：林向東班級(jí)：計(jì)算機(jī)1404班學(xué)院：計(jì)算機(jī)科學(xué)與軟件學(xué)院

【實(shí)驗(yàn)?zāi)康摹?/p>

1、掌握Qt下繪圖函數(shù)的使用方法；

2、掌握標(biāo)簽（Label）、段碼液晶（LCDNumber）、滑動(dòng)條（Slider）等部件的應(yīng)用；

3、掌握Qt下不同坐標(biāo)系的轉(zhuǎn)換。

4、掌握通過源代碼重構(gòu)工程并編譯的方法

【實(shí)驗(yàn)設(shè)備】

1、裝有Ubuntu系統(tǒng)或裝有Ubuntu虛擬機(jī)的PC機(jī)一臺(tái)；

2、凌陽A8嵌入式實(shí)驗(yàn)箱一臺(tái)；

3、本實(shí)驗(yàn)用到實(shí)驗(yàn)箱的模塊有：S5PV210 CPU板模塊，LCD液晶屏。

【實(shí)驗(yàn)要求】

完成一個(gè)射擊小游戲，這是4.7.0之前的版本的Qt源碼中自帶的一個(gè)范例

程

序，具

體

位

置

在qtopia-core-opensource-src-4.3.5examplestutorialt14。雖然在4.7.0之后的版本中刪掉了這個(gè)范例，但是通過這個(gè)實(shí)例，可以使讀者深入理解QT信號(hào)與槽，變換坐標(biāo)系等較深層內(nèi)容。運(yùn)行后游戲界面如圖。

【實(shí)驗(yàn)原理】

1、Qpainter QPainter類低水平的繪制，例如在窗口部件上。使用Qpainter類，需要包含頭文件繪制工具為做到絕大部分繪制圖形用戶界面程序的需要提供了高度優(yōu)化的函數(shù)。QPainter可以繪制從簡單的直線到像餅圖和弦這樣的復(fù)雜形狀。它也可以繪制排列的文本和像素映射。通常，它在一個(gè)“自然的”坐標(biāo)系統(tǒng)中繪制，但是它也可以在坐標(biāo)系轉(zhuǎn)換中做到這些。

使用方法很簡單并且這里有可以使用的許多設(shè)置：font()返回當(dāng)前設(shè)置的字體、setFont()設(shè)置要使用的字體。如果你設(shè)置一個(gè)不可用的字體，Qt會(huì)找到一個(gè)相近的匹配。實(shí)際上，font()返回你使用setFont()所設(shè)置的東西并且fontInfo()返回你實(shí)際使用的字體（這也許是相同的）。brush()是當(dāng)前設(shè)置的畫刷，用來填充例如圓的顏色或者調(diào)色板。pen()是當(dāng)前設(shè)置的畫筆，用來畫線或者邊緣的顏色或者點(diǎn)畫。painter的當(dāng)前狀態(tài)能通過調(diào)用save()和稍后調(diào)用restore()存儲(chǔ)在stack中.當(dāng)我們需要臨時(shí)改變一些painter settings并要恢復(fù)到以前的狀態(tài)時(shí),這個(gè)功能是很有用的.QPainter的核心功能是繪制，并且這里有最簡單的繪制函數(shù)：drawPoint()、drawPoints()、drawLine()、drawRect()、drawWinFocusRect()、drawRoundRect()、drawEllipse()、drawArc()、drawPie()、drawChord()、drawLineSegments()、drawPolyline()、drawPolygon()、drawConvexPolygon()和drawCubicBezier()。所有這些函數(shù)使用整數(shù)坐標(biāo)，它們沒有浮點(diǎn)數(shù)的版本，因?yàn)槲覀兿胧估L制盡可能快地進(jìn)行。

2、坐標(biāo)系統(tǒng)

在Qt中的一個(gè)繪畫設(shè)備是一個(gè)可畫的二維平面。QWidget、QPixmap、QPicture和QPrinter都是繪畫設(shè)備。QPainter是一個(gè)可以在上面畫的對(duì)象。一個(gè)繪畫設(shè)備的默認(rèn)坐標(biāo)系統(tǒng)的原點(diǎn)在左上角。X軸由左向右增加，Y軸由上向下增加。對(duì)于基于像素的設(shè)備單位是像素，對(duì)于打印機(jī)是點(diǎn)。Qt的坐標(biāo)系除了默認(rèn)的坐標(biāo)系以外還可對(duì)坐標(biāo)系進(jìn)行轉(zhuǎn)換，這樣結(jié)合Qpainter的繪圖函數(shù)就可以畫出各種圖形。Qt提供了像QPainter::rotate()、QPainter::scale()、QPainter::translate()等方法來改變坐標(biāo)系。

3、射擊小游戲

射擊小游戲可以通過拖動(dòng)右邊“ANGLE”和“FORCE”滑動(dòng)條，改變發(fā)射子彈的角度和力量，點(diǎn)擊“Shoot”按鈕就可以發(fā)射子彈，子彈以拋物線的角度運(yùn)行，如果撞到紅色的目標(biāo)物體，則游戲成功，上面的LCD段碼“HITS”數(shù)值加一，每一局規(guī)定可以發(fā)射子彈的數(shù)據(jù)，SHOTS LEFT顯示還有多少發(fā)子彈可以發(fā)射。整體窗口布局可以分為以下幾部分：上面的按鈕及LCD段碼，包括“Quit”“Shoot”“NewGame”“HITS”“SHOTS LEFT”；窗口左邊的‖ANGLE‖,‖F(xiàn)ORCE‖是LCD段碼和滑動(dòng)條的組合，可以用來改變發(fā)射角度和發(fā)射力量兩個(gè)變量；窗口右邊大部分黃色的區(qū)域是游戲主窗口，里面包括了大炮，炮彈，目標(biāo)，障礙墻等幾個(gè)成員?！緦?shí)驗(yàn)代碼】

lcdrangge.cpp和lcdrange.h創(chuàng)建了一個(gè)新的窗體，窗體中包含了一個(gè)標(biāo)簽，一個(gè)LCD段碼，一個(gè)滑動(dòng)條?；瑒?dòng)條和LCD段碼建立信號(hào)與槽的聯(lián)系，這樣當(dāng)滑動(dòng)條移動(dòng)時(shí)其數(shù)值的變化直接就可以通過LCD段碼顯示。其構(gòu)造函數(shù)如下： void LCDRange::init(){ QLCDNumber *lcd = new QLCDNumber(2);// 定義LCD段碼lcd->setSegmentStyle(QLCDNumber::Filled);slider = new QSlider(Qt::Horizontal);// 定義水平滑動(dòng)條 slider->setRange(0, 99);slider->setValue(0);label = new QLabel;// 定義標(biāo)簽

label->setAlignment(Qt::AlignHCenter | Qt::AlignTop);label->setSizePolicy(QSizePolicy::Preferred, QSizePolicy::Fixed);connect(slider, SIGNAL(valueChanged(int)), lcd, SLOT(display(int)));// 建立滑動(dòng)條信號(hào)和LCD段碼槽函數(shù)的連接

connect(slider, SIGNAL(valueChanged(int)), this, SIGNAL(valueChanged(int)));// 建立滑動(dòng)條信號(hào)和窗體信號(hào)的連接QVBoxLayout *layout = new QVBoxLayout;layout->addWidget(lcd);// 采用垂直布局器，安排三個(gè)組件layout->addWidget(slider);layout->addWidget(label);setLayout(layout);setFocusProxy(slider);// 設(shè)置焦點(diǎn)在滑動(dòng)條上 } 1)大炮

大炮由兩部分組成一部分是下面的底座，一部分是活動(dòng)的炮筒。需要轉(zhuǎn)換坐標(biāo)系然后畫一個(gè)餅形，對(duì)于炮筒，類似與上面鐘表例子的時(shí)鐘，需要隨著角度的不同而不同，代碼如下。void CannonField::paintCannon(QPainter &painter){ painter.setPen(Qt::NoPen);painter.setBrush(Qt::blue);painter.save();// 保存坐標(biāo)信息

painter.translate(0, height());//平移坐標(biāo)原點(diǎn)

painter.drawPie(QRect(-35,-35, 70, 70), 0, 90 * 16);// 畫餅形

painter.rotate(-currentAngle);// 旋轉(zhuǎn)坐標(biāo)系，painter.drawRect(barrelRect);// 在新的坐標(biāo)系中，畫矩形，即炮筒

painter.restore();// 回復(fù)原來的坐標(biāo)系 } 2)炮彈

炮彈使用一個(gè)小矩形代替，炮彈的運(yùn)行軌跡為拋物線，代碼如下 QRect CannonField::shotRect()const { const double gravity = 4;double time = timerCount / 20.0;double velocity = shootForce;// 發(fā)射力量

double radians = shootAngle * 3.14159265 / 180;// 發(fā)射角度 double velx = velocity * cos(radians);// 根據(jù)發(fā)射力量，角度和時(shí)間計(jì)算炮彈位置

double vely = velocity * sin(radians);// 采用標(biāo)準(zhǔn)牛頓力學(xué)公式

double x0 =(barrelRect.right()+ 5)* cos(radians);double y0 =(barrelRect.right()+ 5)* sin(radians);double x = x0 + velx * time;double y = y0 + vely * time1-qRound(y)));return result;} 3)目標(biāo)

目標(biāo)也是使用一個(gè)小矩形表示，為了增加趣味性，目標(biāo)矩形的位置是隨機(jī)的。QT提供了隨機(jī)函數(shù)qrand提供隨機(jī)數(shù)，創(chuàng)建一個(gè)新目標(biāo)代碼如下。

void CannonField::newTarget(){ static bool firstTime = true;// ensure create new target when old target disappear if(firstTime){ firstTime = false;QTime midnight(0, 0, 0);qsrand(midnight.secsTo(QTime::currentTime()));// 設(shè)置隨機(jī)種子 } target = QPoint(200 + qrand()% 190, 10 + qrand()% 255);// 得到隨機(jī)坐標(biāo)值update();} 當(dāng)炮彈發(fā)射后，需要判斷炮彈是否擊中了目標(biāo)，可以使用下面函數(shù)判斷。

void CannonField::moveShot(){ QRegion region = shotRect();// 保存炮彈矩形 ++timerCount;QRect shotR = shotRect();// receive new ball region if(shotR.intersects(targetRect())){ // 如果炮彈和目標(biāo)重合，則認(rèn)為擊中目標(biāo) autoShootTimer->stop();// 停止定時(shí)器 emit hit();// 發(fā)送擊中目標(biāo)信號(hào)

emit canShoot(true);// 表示可以再次發(fā)送炮彈了 } else if(shotR.x()> width()|| shotR.y()> height()|| shotR.intersects(barrierRect())){// 如果炮彈到達(dá)邊界過著碰到障礙墻 autoShootTimer->stop();// 本次發(fā)射結(jié)束 emit missed();// 發(fā)送沒有擊中目標(biāo)信號(hào) emit canShoot(true);// 表示可以再次發(fā)送炮彈 } Else { region = region.unite(shotR);//平滑移動(dòng)炮彈 } update(region);} gameboard.cpp，gameboard.h這兩個(gè)文件的作用是封裝用到的所有成員建立信號(hào)與槽的連接，然后使用布局管理組件完成對(duì)各成員的布局。GameBoard初始化函數(shù)如下所示。

GameBoard::GameBoard(QWidget *parent): QWidget(parent){ QPushButton *quit = new QPushButton(tr(“&Quit”));quit->setFont(QFont(“Times”, 18, QFont::Bold));connect(quit, SIGNAL(clicked()), qApp, SLOT(quit()));LCDRange *angle = new LCDRange(tr(“ANGLE”));angle->setRange(5, 70);LCDRange *force = new LCDRange(tr(“FORCE”));force->setRange(10, 50);QFrame *cannonBox = new QFrame;cannonBox->setFrameStyle(QFrame::WinPanel | QFrame::Sunken);cannonField = new CannonField;connect(angle, SIGNAL(valueChanged(int)), cannonField, SLOT(setAngle(int)));connect(cannonField, SIGNAL(angleChanged(int)), angle, SLOT(setValue(int)));connect(force, SIGNAL(valueChanged(int)), cannonField, SLOT(setForce(int)));connect(cannonField, SIGNAL(forceChanged(int)), force, SLOT(setValue(int)));connect(cannonField, SIGNAL(hit()), this, SLOT(hit()));connect(cannonField, SIGNAL(missed()), this, SLOT(missed()));QPushButton *shoot = new QPushButton(tr(“&Shoot”));shoot->setFont(QFont(“Times”, 18, QFont::Bold));connect(shoot, SIGNAL(clicked()), this, SLOT(fire()));connect(cannonField, SIGNAL(canShoot(bool)), shoot, SLOT(setEnabled(bool)));QPushButton *restart = new QPushButton(tr(“&New Game”));restart->setFont(QFont(“Times”, 18, QFont::Bold));connect(restart, SIGNAL(clicked()), this, SLOT(newGame()));hits = new QLCDNumber(2);hits->setSegmentStyle(QLCDNumber::Filled);shotsLeft = new QLCDNumber(2);shotsLeft->setSegmentStyle(QLCDNumber::Filled);QLabel *hitsLabel = new QLabel(tr(“HITS”));QLabel *shotsLeftLabel = new QLabel(tr(“SHOTS LEFT”));(void)new QShortcut(Qt::Key_Enter, this, SLOT(fire()));(void)new QShortcut(Qt::Key_Return, this, SLOT(fire()));(void)new QShortcut(Qt::CTRL + Qt::Key_Q, this, SLOT(close()));QHBoxLayout *topLayout = new QHBoxLayout;topLayout->addWidget(shoot);topLayout->addWidget(hits);topLayout->addWidget(hitsLabel);topLayout->addWidget(shotsLeft);topLayout->addWidget(shotsLeftLabel);topLayout->addStretch(1);topLayout->addWidget(restart);QVBoxLayout *leftLayout = new QVBoxLayout;leftLayout->addWidget(angle);leftLayout->addWidget(force);QVBoxLayout *cannonLayout = new QVBoxLayout;cannonLayout->addWidget(cannonField);cannonBox->setLayout(cannonLayout);QGridLayout *gridLayout = new QGridLayout;gridLayout->addWidget(quit, 0, 0);gridLayout->addLayout(topLayout, 0, 1);gridLayout->addLayout(leftLayout, 1, 0);gridLayout->addWidget(cannonBox, 1, 1, 2, 1);gridLayout->setColumnStretch(1, 10);setLayout(gridLayout);angle->setValue(60);force->setValue(25);angle->setFocus();newGame();} 【實(shí)驗(yàn)總結(jié)】

這個(gè)實(shí)驗(yàn)讓我體會(huì)到QT編程的魅力所在。雖然有源碼，需要自個(gè)編寫的東西并不多，但還是有很大的收獲的。

第四篇：射擊游戲 Java

游戲資源是從cping1982的博客里下載的(http://blog.csdn.net/cping1982/article/details/6725015）。

下載下來的源碼是反編譯的，我按照自己的思路，盡量模擬跟它一樣的功能效果，用自己的代碼實(shí)現(xiàn)，并且自己寫了一個(gè)地圖編輯器。用到的技術(shù)大概有：swing基本控件，線程，XML讀寫，IO，反射的簡單應(yīng)用，2D繪圖。

最重要的一個(gè)自定義類：Canvas。

每個(gè)canvas都有一個(gè)render方法和update方法，每個(gè)canvas又可以添加別的canvas，類似swing的component結(jié)構(gòu)，每個(gè)canvas執(zhí)行render和update的時(shí)候都會(huì)遍歷所有子canvas執(zhí)行render和update，從而實(shí)現(xiàn)所有canvas都執(zhí)行渲染和更新。游戲的刷新機(jī)制：

這個(gè)刷新機(jī)制是直接學(xué)的原代碼里面的實(shí)現(xiàn)機(jī)制，看它沒注釋的代碼著實(shí)蛋疼，還是請(qǐng)教了我?guī)煾礵esolatecity大神才理解的--！。

最高層是一個(gè)繼承JFrame的GameFrame，實(shí)現(xiàn)了Runnable，游戲啟動(dòng)后會(huì)單獨(dú)運(yùn)行不斷循環(huán)刷新，每隔大概15ms就執(zhí)行一次render，并將整個(gè)循環(huán)所用時(shí)間通過update方法傳給canvas，最高層canvas再一層一層傳遞下去，實(shí)現(xiàn)所有canvas的渲染和更新。大致代碼實(shí)現(xiàn)如下：

[java] view plaincopy

1.while(gameOn){

2.// 獲取開始時(shí)的系統(tǒng)時(shí)間

3.long startTime = System.currentTimeMillis();4.5.// 標(biāo)記時(shí)間所用變量

6.long l1;

7.long l2 = System.currentTimeMillis();8.long l3 = System.currentTimeMillis();9.10.// 執(zhí)行for循環(huán)，直到經(jīng)過了step毫秒

11.for(l1 = l3l2){ 12.l3 = System.currentTimeMillis();13.}

14.// for循環(huán)結(jié)束，開始渲染和更新

15.l2 = System.currentTimeMillis();// 重置l2

16.17.this.getCurrentCanvas().render(g2);// 渲染

18.19.this.getGraphics().drawImage(bufImg, 0, 0, null);// 將緩沖圖片畫到JFrame

20.21.long endTime = System.currentTimeMillis();// 獲取結(jié)束時(shí)的系統(tǒng)時(shí)間

22.23.this.getCurrentCanvas().update(endTime 元素”的映射關(guān)系將時(shí)間和對(duì)應(yīng)元素存儲(chǔ)到一個(gè)IdentityHashMap里，然后游戲的主canvas在update的時(shí)候遍歷IdentityHashMap，若當(dāng)前時(shí)間滿足map里面的時(shí)間，則將對(duì)應(yīng)的元素提取出來，添加到當(dāng)前的子canvas列表里面，從而一個(gè)新的元素（或敵人，或提示消息等）就被添加到了界面上。這里我用到了一個(gè)比較少用的IdentityHashMap，原本直接用的是HashMap，后來發(fā)現(xiàn)一個(gè)時(shí)間有時(shí)候要對(duì)應(yīng)多個(gè)元素，然后上網(wǎng)查到了這個(gè)東東，但是由于鍵是按照對(duì)象來存儲(chǔ)的，所以要把時(shí)間用String對(duì)象來存儲(chǔ)，搞得讀取和存儲(chǔ)的時(shí)候各種麻煩。結(jié)果后來師傅一指點(diǎn)才知道，可以直接用HashMap來存儲(chǔ)“時(shí)間--ArrayList”，這樣又方便又直接。--！后來嫌麻煩也不去改了。。

地圖編輯器：

地圖編輯器沒有什么特別費(fèi)腦袋的地方，就是各種swing控件的運(yùn)用，還有xml的讀寫，簡單的反射應(yīng)用等。

由于整個(gè)游戲基本上都是在邊學(xué)變寫，所以很多地方寫的很粗糙，以至于后來去整理的時(shí)候發(fā)現(xiàn)前面的代碼結(jié)構(gòu)簡直丑死了--，改都該了半天。

最后附上源碼下載地址，如果有興趣的話可以互相探討學(xué)習(xí)。

下載地址：http://download.csdn.net/download/jianglihui0330/4493082

游戲截圖：

地圖編輯器截圖：