matlab 太空大战程序

function galactic(cmd) %GALACTIC Galactic game % % To play this game, type: GALACTIC % % Controls: % Mouse Control ship % Left click Shoot % Ctrl+P Pause % % During the game, use the game menu to set difficulty and to % enable/disable sound effects. Only one game can run at a time. % Galactic was written and tested on Matlab 5.3 (R11), but may % work with as early as Matlab 5.0 without changes. % % This game may be too computationally intense for slower systems. % Minimum system recommendation: 600 MHz CPU % Pascal Getreuer 2004-2006 global MODE IMG MAP TSTEP NLIVE GAME SPR SSPR SPRP SPRT ... HFIG HMENU SNDTMR SND; ImgX = 80; ImgY = 120; if nargin < 1|cmd == 6 ClkV = [0;0;86400;3600;60;1]; KPts([6,7,4,5,8,9,10,11,12]) ... = [25,25,100,100,40,40,175,400,400]; if nargin == 0 GameInit(ImgY); HFIG = figure('Name','Galactic','Numbertitle','off','Menubar','none',... 'Color',[0.3 0.3 0.3],'Resize','off','DoubleBuffer','on',... 'Position',[150,150,250,350],'CloseRequestFcn',[mfilename,'(-1)'],... 'Pointer','circle'); tmp = uimenu('Label','&Game'); HMENU(1) = uimenu(tmp,'Label','&Pause'); uimenu(tmp,'Label','&Stop','Callback',[mfilename,'(8)']); HMENU(2) = uimenu(tmp,'Label','&Beginner','Callback',[mfilename,'(10)'],... 'Separator','on','Checked','on'); HMENU(3) = uimenu(tmp,'Label','&Intermediate','Callback',[mfilename,'(11)']); HMENU(4) = uimenu(tmp,'Label','&Expert','Callback',[mfilename,'(12)']); HMENU(5) = uimenu(tmp,'Label','&Custom...','Callback',[mfilename,'(13)']); HMENU(6) = uimenu(tmp,'Label','S&ound','Callback',[mfilename,'(14)'],'Checked','on','Separator','on'); uimenu(tmp,'Label','&Highscores...','Separator','on','Callback',[mfilename,'(15)']); uimenu(tmp,'Label','E&xit','Callback',[mfilename,'(-1)'],'Separator','on'); tmp = uimenu('Label','&Help'); uimenu(tmp,'Label','Help &Notes','Callback',['global MODE;if ~MODE,',... mfilename,'(7);end;msgbox({''Controls:'',',... ''' Mouse Control ship'','' Click Shoot'','''',',... ''' Ctrl+P Pause/Unpause'','''',''Game Options (under game menu):'',',... ''' * Choose beginner, intermediate, expert, or custom difficulty'','' * ',... 'Enable/disable sound effects''},''Help Notes'')']); uimenu(tmp,'Label','&M-File Info','Callback',['help ',mfilename]); uimenu(tmp,'Label','&About Galactic','Separator','on','Callback',['global MODE;',... 'if ~MODE,',mfilename,'(7);end;msgbox(''Written by Pascal Getreuer, ',... 'August 2004.'',''About Galactic'')']); colormap([0,0,0;1,1,1;0.6,0.6,1;0.4,0.4,0.7;1,1,0;0,0.5,0.5;1,0,1;0,1,1;1,0,0;0.4,0.6,0;1,1,1;0,0,0.5]); set(HFIG,'Position',[150,150,250,350]); IMG = zeros(ImgY,ImgX); MAP = IMG; SPRP = [ImgX/2,ImgY-8,1;1,0,0;floor(rand(1)*(ImgX-20))+2,35,1]; SPRT = [1;2;6]; MODE = 0; GAME = [0,4]; TSTEP = 0.04; NLIVE = -1; drawnow; tmp = repmat([1,2,3,2,3,6,4,10,9,14,11,16]/11,650,1); sound(cos((1:7800)'/6).*sin((1:7800)'.*tmp(:))/3,11025); SNDTMR = (clock)*ClkV+0.76; set(HFIG,'WindowButtonMotionFcn',[mfilename,'(1)'],'WindowButtonDownFcn',[mfilename,'(5)']); end set(HMENU(1),'Label','&Pause','Callback',[mfilename,'(7)'],'Accelerator','P'); feval(mfilename,4); while ~MODE FrameStart = (clock)*ClkV; if NLIVE > 1 NLIVE = NLIVE-1; if NLIVE == 1 set(HFIG,'WindowButtonDownFcn',[mfilename,'(5)']); feval(mfilename,4); end; end IMG(:) = 0; MAP(:) = 0; SInd = (SPRP(:,1)-1)*ImgY+SPRP(:,2); for k = length(SPRT):-1:1 IMG(SSPR{SPRT(k)}+SInd(k)) = SPR{SPRT(k)}; MAP(SSPR{SPRT(k)}+SInd(k)) = k; end i = find(SPRT == 13); SPRInd = MAP((SPRP(i,1)-1)*ImgY+SPRP(i,2)); j = find(SPRInd); if ~isempty(j) SPRInd = SPRInd(j); DelSPR = i(SPRT(SPRInd) == 17); j = find(SPRT(SPRInd) >= 4&SPRT(SPRInd) <= 12); if ~isempty(j) DelSPR = [DelSPR;i(j)]; SPRInd = SPRInd(j); k = find(SPRT(SPRInd) >= 5&SPRT(SPRInd) <= 9); GAME(1) = GAME(1)+sum(KPts(SPRT(SPRInd(k)))); SPRT(SPRInd(k)) = 21; k = find(SPRT(SPRInd) == 4); SPRT(SPRInd(k)) = 5; k = find(SPRT(SPRInd) >= 10&SPRT(SPRInd) <= 12); if ~isempty(k) SPRP(SPRInd(k),3) = SPRP(SPRInd(k),3)-1; SPRT(SPRInd(k(find(SPRP(SPRInd(k),3) == 4&SPRT(SPRInd(k)) == 11)))) = 12; k = k(find(SPRP(SPRInd(k),3) <= 0)); j = SPRInd(k); GAME(1) = GAME(1)+sum(KPts(SPRT(j))); SPRT(j) = 21; SPRP(j,:) = SPRP(j,:)+repmat([4,2,0],length(j),1); SPRP = [SPRP;SPRP(j,:)+repmat([5,0,0],length(j),1)]; SPRT = [SPRT;SPRT(j)]; end feval(mfilename,4); end if ~isempty(DelSPR) SPRT(DelSPR) = []; SPRP(DelSPR,:) = []; i = find(SPRT == 13); end end SPRP(i,2) = SPRP(i,2)-5; j = i(find(SPRP(i,2) <= 0)); SPRT(j) = []; SPRP(j,:) = []; i = find(SPRT >= 14&SPRT <= 16); SInd = (SPRP(i,1)-1)*ImgY+SPRP(i,2); j = find(SPRT >= 17); k = (SPRP(j,1)-1)*ImgY+SPRP(j,2); if (~isempty(i)&any(MAP(SInd+1+ImgY) == 1))|... (~isempty(j)&any(MAP([k+4;k+8*ImgY+4;k+4*ImgY+9]) == 1)) SPRT(1) = 1; SPRT = [SPRT;18]; SPRP(length(SPRT),:) = SPRP(1,:); set(HFIG,'WindowButtonDownFcn',[mfilename,'(0)']); GAME(2) = GAME(2)-1; feval(mfilename,4); if ~isinf(SNDTMR) WaitSnd; sound(SND{4},11025); SNDTMR = (clock)*ClkV+0.37; end end if ~isempty(i) SPRP(i,1) = SPRP(i,1)+SPRT(i)-14-1; SPRP(i,2) = SPRP(i,2)+2; j = i(SPRP(i,2) > ImgY-3|SPRP(i,1) < 1|SPRP(i,1) > ImgX-3); SPRT(j) = []; SPRP(j,:) = []; end i = find(SPRT == 17); SInd = (SPRP(i,1)-1)*ImgY+SPRP(i,2); if ~isempty(i) SPRP(i,2) = SPRP(i,2)+2; j = i(SPRP(i,2) > ImgY-9); SPRT(j) = []; SPRP(j,:) = []; end i = find(SPRT == 23); SPRT(i) = []; SPRP(i,:) = []; SPRT(SPRT == 22) = 23; i = find(SPRT == 21); SPRT(i) = 22; if ~isempty(i)&(clock)*ClkV > SNDTMR sound(SND{1},11025); SNDTMR = (clock)*ClkV+0.05; end i = find(SPRT == 20); if ~isempty(i) SPRT(i) = []; SPRP(i,:) = []; if GAME(2) >= 0 NLIVE = 25; else feval(mfilename,8); end end i = find(SPRT == 19); SPRT(i) = 20; i = find(SPRT == 18); SPRT(i) = 19; if (length(SPRT) < 3|rand(1) < 0.03)&~NLIVE i = sum(SPRT >= 6&SPRT <= 11); j = rand(1); if j < 0.56&i < 12 SPRT = [SPRT;6]; SPRP(length(SPRT),:) = floor([rand(1)*(ImgX-15)+2,rand(1)*50+2,1]); if (clock)*ClkV > SNDTMR sound(SND{2},11025); SNDTMR = (clock)*ClkV+0.28; end elseif j < 0.72&i < 8&GAME(1) > 100 SPRT = [SPRT;4]; SPRP(length(SPRT),:) = floor([rand(1)*(ImgX-15)+2,rand(1)*50+2,1]); if (clock)*ClkV > SNDTMR sound(SND{2},11025); SNDTMR = (clock)*ClkV+0.28; end elseif j < 0.87&i < 10 SPRT = [SPRT;8]; SPRP(length(SPRT),:) = floor([rand(1)*(ImgX-15)+2,rand(1)*50+2,1]); if (clock)*ClkV > SNDTMR sound(SND{2},11025); SNDTMR = (clock)*ClkV+0.28; end elseif sum(SPRT >= 10&SPRT <= 12) <= 1 if j < 0.92&i < 15&GAME(1) > 2500 SPRT = [SPRT;11]; SPRP(length(SPRT),:) = floor([rand(1)*(ImgX-27)+2,rand(1)*50+2,8]); if (clock)*ClkV > SNDTMR sound(SND{3},11025); SNDTMR = (clock)*ClkV+0.37; end elseif i > 1&GAME(1) > 600 SPRT = [SPRT;10]; SPRP(length(SPRT),:) = floor([rand(1)*(ImgX-24)+2,rand(1)*50+2,4]); if (clock)*ClkV > SNDTMR sound(SND{3},11025); SNDTMR = (clock)*ClkV+0.37; end end end end i = find(SPRT == 6|SPRT == 7); if ~isempty(i) SPRP(i,1) = min(max(SPRP(i,1)+floor(rand(length(i),1)*3)-1,1),ImgX-11); SPRP(i,2) = min(max(SPRP(i,2)+floor(rand(length(i),1)*3)-1,1),ImgY-40); if rand(1) < 0.01*length(i)&~NLIVE j = 1+round(rand(1)*(length(i)-1)); SPRT = [SPRT;14+2*round(rand(1))]; SPRP(length(SPRT),:) = SPRP(i(j),:)+[5,6,0]; end SPRT(i) = min(max(round(SPRT(i)+rand(length(i),1)*1.2-0.6),6),7); end i = find(SPRT == 4|SPRT == 5); Dir = sign(SPRP(1,1)-SPRP(i,1)-3); SPRP(i,1) = min(max(SPRP(i,1)+floor(rand(length(i),1)*7)-3+Dir,1),ImgX-9); SPRP(i,2) = min(max(SPRP(i,2)+floor(rand(length(i),1)*3)-1,1),ImgY-40); if rand(1) < 0.05*length(i)&~NLIVE j = 1+round(rand(1)*(length(i)-1)); SPRT = [SPRT;14+round(2*rand(2,1))]; SPRP(length(SPRT)+(-1:0),:) = [SPRP(i(j),:);SPRP(i(j),:)]+[5,10,0;5,10,0]; end i = find(SPRT == 8|SPRT == 9); if ~isempty(i) SPRP(i,1) = min(max(SPRP(i,1)+floor(rand(length(i),1)*5)-2,1),ImgX-8