mtetris.m

采用MATLAB编写的最新俄罗斯方块的游戏

function mtetris(cmd)
%MTETRIS   Matlab Tetris (v1.1)
%
%   To play this game, type: MTETRIS
%
%   Controls (use numpad):
%    [4] Left  [5] Spin  [6] Right
%              [2] Drop
%
%    alternatively,
%    [Q] Left  [W] Spin  [E] Right
%              [S] Drop
%
%    [Ctrl+P] Pause/Unpause
%
%   During the game, use the game menu to set difficulty and to
%   enable/disable sound effects.  Only one game can run at a time.
%   mtetris was written and tested on Matlab 5.3 (R11), but may
%   work with as early as Matlab 4.0 without changes.

%   Author: Pascal Getreuer, June 2004

global MODE TIMESTEP MAP POS GEO BOXOFF BOXY SNDFLAG SNDS SNDD SNDROW SHAPEIND;
global SCORE CLKSND HFIG HMODE HSCORE HCUR HMAP HPAUSE HSTOP HDIF HSND;

if nargin ~= 1 | cmd == 'U' | cmd == 'C',		%%% mtetris main routine %%%

BoxX = 10 + 2;								% playing field width + 2 border cells
BOXY = 18 + 1;								% playing field height + 1 border cell
BOXOFF = [BOXY,1];
MODE = 0;									% set game mode to play
RowScore = [100,250,400,600] - 5;	% points for filling rows
% shapes data
Shapes = reshape([-1 0 0 0 0 1 1 0 -1 0 0 0 1 0 2 0 -1 0 0 0 0 1 1 0 -1 ...
      0 0 0 0 1 1 1 0 0 0 1 1 0 1 1 -1 0 0 0 1 0 1 1 -1 1 -1 0 0 0 1 0],2,4,7);
ShapeColors = [1 0 0;1 1 0;0 0.8 0;0 0 1];
PatX = [0;-1;-1;0];						% coordinates for drawing patches
PatY = [0;0;-1;-1];
ClkV=[0;0;86400;3600;60;1];

if nargin ~= 1 | cmd == 'C'
   if nargin ~= 1		% initialize GUI
      CLKSND = clock;      
      
      % initialize figure window
		HFIG = figure('Name','MTetris','Numbertitle','off','Menubar','none',...
   		'Color',[0.831373 0.815686 0.784314],'Resize','off','DoubleBuffer','on',...
         'Position',[150,150,220,400],'CloseRequestFcn',[mfilename,'(''X'')'],...
         'KeyPressFcn',[mfilename,'(''K'')']);
		axes('Units','normalized','Position', [.05 .06 .9 .93],'Visible','off',...
   		'DrawMode','fast','NextPlot','replace','XLim',[1,BoxX-1],'YLim',[1,BOXY]);
      set(line([1,BoxX-1,BoxX-1,1,1],[1,1,BOXY,BOXY,1]),'Color',[0,0,0]);
        
   	% make button and handles
		HSCORE  = uicontrol('Units','normalized','Position',[0.05,0.01,.5,.05],...
   		'Style','text','HorizontalAlignment','Left','FontWeight','bold');
		HMODE = uicontrol('Units','normalized','Position',[0.1,0.7,.8,.1],...
         'Style','text','FontSize',14);
      
		% make menu
      tmp = uimenu('Label','&Game');
		HPAUSE = uimenu(tmp,'Label','&Pause','Callback',[mfilename,'(''P'')']);
		HSTOP = uimenu(tmp,'Label','&Stop','Callback',[mfilename,'(''N'')']);
	   HDIF(1) = uimenu(tmp,'Label','&Beginner','Callback',[mfilename,'(''1'')'], ...
   	   'Separator','on','Checked','on');
		HDIF(2) = uimenu(tmp,'Label','&Intermediate','Callback',[mfilename,'(''2'')']);
   	HDIF(3) = uimenu(tmp,'Label','&Expert','Callback',[mfilename,'(''3'')']);
	   HDIF(4) = uimenu(tmp,'Label','&Custom...','Callback',[mfilename,'(''4'')']);
   	HSND = uimenu(tmp,'Label','S&ound','Callback',[mfilename,'(''O'')'],'Separator','on');
      uimenu(tmp,'Label','E&xit','Callback',[mfilename,'(''X'')'],'Separator','on');
      tmp = uimenu('Label','&Help');
      uimenu(tmp,'Label','Help &Notes','Callback',['global MODE;if ~MODE,',...
         mfilename,'(''P'');end;msgbox({''Controls (use numpad):'',',...
         '''   [4] Left   [5] Spin   [6] Right'',''                 [2] Drop'','''',',...
         '''   alternatively,'',''   [Q] Left  [W] Spin  [E] Right'','...
         '''                 [S] Drop'','''',',...
         '''   [Ctrl+P] Pause/Unpause  ''},''Help Notes'')']);
      uimenu(tmp,'Label','&M-File Info','Callback','help MTetris');
      uimenu(tmp,'Label','&About MTetris','Separator','on','Callback',['global MODE;',...
            'if ~MODE,',mfilename,'(''P'');end;msgbox({'''',''MTetris   1.1'',' ...
            '''by Pascal Getreuer 2004-2005''},''About MTetris'')']);
      set(HFIG,'Position',[150,150,220,400]);
      
   	TIMESTEP = 0.8;		% beginner difficulty mode
		SNDFLAG = 1;			% sound effects initially enabled (0 for disabled)
      GameSounds;
   else
      figure(HFIG);
   end
   
   set(HPAUSE,'Label','&Pause','Accelerator','P');
  	set(HMODE,'String','PAUSED','Visible','off');
   set(HSCORE,'String','Score: 0');

	MAP = ones(BOXY,BoxX);
	MAP(2:BOXY,2:BoxX-1) = 0;
	HMAP = zeros(BOXY,BoxX);
	SCORE = 0;
	   
   % place first shape
   SHAPEIND = ceil(rand(1)*size(Shapes,3));
	GEO = Shapes(:,:,SHAPEIND);
	POS = [ceil(BoxX/2);BOXY-2];
	Color = ShapeColors(ceil(rand(1)*size(ShapeColors,1)),:);

	for i = 1:4
	   HCUR(i) = patch(PatX + POS(1) + GEO(1,i),...
   	   PatY + POS(2) + GEO(2,i),Color);
   end
else
   figure(HFIG);
end

LastSound = clock;

while ~MODE		% main game loop   
   FrameStart = clock*ClkV;
   
   if any(MAP(BOXOFF*POS + BOXOFF*GEO - BOXY - 1))		% check if shape is blocked
   	% add current shape into arrays
      MAP(BOXOFF*POS + BOXOFF*GEO - BOXY) = 1;
      HMAP(BOXOFF*POS + BOXOFF*GEO - BOXY) = HCUR;
      % spawn a new shape
      SHAPEIND = ceil(rand(1)*size(Shapes,3));
      GEO = Shapes(:,:,SHAPEIND);
      POS = [ceil(BoxX/2);BOXY-2];
      Color = ShapeColors(ceil(rand(1)*size(ShapeColors,1)),:);
     
      % check for filled rows
      tmp = flipud(find(sum(MAP(2:BOXY,:),2) == BoxX)) + 1;
      
      if ~isempty(tmp)
         SCORE = SCORE + RowScore(length(tmp));		% add points for row (or rows)
         
         % clear rows and drop above rows
         for i = 1:length(tmp)
            delete(HMAP(tmp(i),2:BoxX-1));
            HMAP = [HMAP([1:tmp(i)-1,tmp(i)+1:BOXY],:);zeros(1,BoxX)];
            MAP = [MAP([1:tmp(i)-1,tmp(i)+1:BOXY],:);1,zeros(1,BoxX-2),1];
         end
         
         for k1 = 2:BOXY
            for k2 = 2:BoxX-1
               if HMAP(k1,k2) ~= 0
                  set(HMAP(k1,k2),'YData',k1 + PatY);
               end
            end
         end
         
         tmp = clock;
		   while etime(clock,tmp) < 0.2 & ~MODE, drawnow; end
         sound(SNDROW,22050);
         CLKSND = clock;
      end
      
      SCORE = SCORE + 5;
      set(HSCORE,'String',['Score: ',num2str(SCORE)]);	% show updated score
      
      for i = 1:4
         HCUR(i) = patch(PatX + POS(1) + GEO(1,i),PatY + POS(2) + GEO(2,i),Color);
      end
         
      if any(MAP(BOXOFF*POS + BOXOFF*GEO - BOXY))	 % game over
         feval(mfilename,'N');
         break;
      end
   end
   
   if ~MODE		% drop shape one cell
      if ~any(MAP(BOXOFF*POS + BOXOFF*GEO - BOXY - 1))
         POS = POS + [0;-1];
         
         for i = 1:4
            set(HCUR(i),'XData',PatX+POS(1) + GEO(1,i),'YData',PatY+POS(2) + GEO(2,i));
         end
      end
   end
      
   % wait one timestep   
   while (clock)*ClkV-FrameStart < TIMESTEP & ~MODE   
      drawnow;
   end
   
   drawnow;   
end

else	%%% GUI callback routines %%%
   if cmd == 'K' & ~MODE
      switch get(HFIG,'CurrentCharacter')
      case {'4','q','Q'}		% move shape left
         if ~any(MAP(BOXOFF*POS + BOXOFF*GEO - BOXY*2))
            POS = POS + [-1;0];
         end
      case {'6','e','E'}		% move shape right
         if ~any(MAP(BOXOFF*POS + BOXOFF*GEO))
            POS = POS + [1;0];
         end
      case {'5','w','W'}		% spin shape
         if ~any(MAP(BOXOFF*POS + [-1,BOXY]*GEO - BOXY))
            if etime(clock,CLKSND) > 0.2
               sound(SNDS,22050);
               CLKSND = clock;
            end
            
            if SHAPEIND ~= 5
               GEO = [0,1;-1,0]*GEO;
            end            
         end
      case {'2','s','S'}		% drop shape
         NewInd = BOXOFF*POS + BOXOFF*GEO - BOXY - 1;
         if ~any(MAP(NewInd))
            if etime(clock,CLKSND) > 0.2
               sound(SNDD,22050);
               CLKSND = clock;
            end
            
            while ~any(MAP(NewInd))
               NewInd = NewInd - 1;
               POS = POS + [0;-1];
            end
         end
      end
      
      if all(ishandle(HCUR))
	      for i = 1:4
   	      set(HCUR(i),'XData',[0;-1;-1;0] + POS(1) + GEO(1,i),...            
      	      'YData',[0;0;-1;-1] + POS(2) + GEO(2,i));
	      end
      end
      
      return;
   end   
      
   switch(cmd)
   case 'P'
      switch MODE
      case 0		% pause the game
	   	MODE = 1;
	   	set(HPAUSE,'Label','&Unpause');
   		set(HMODE,'Visible','on');
         set(HCUR,'Visible','off');
         set(HMAP,'Visible','off');
      case 1		% unpause the game
         MODE = 0;
	      set(HPAUSE,'Label','&Pause');
   	   set(HMODE,'Visible','off'); 
      	set(HCUR,'Visible','on');
         set(HMAP,'Visible','on');
         feval(mfilename,'U');	% unpause current game
      case 2		% new game
         feval(mfilename,'C');	% start a new game, but do not reinitialize the GUI
	   end
   case 'N'
      if MODE ~= 2 			% stop game
         MODE = 2;                  
         drawnow;                           
         set(HPAUSE,'Label','&New','Accelerator','N');
         set(HMODE,'String','GAME OVER','Visible','on');
         
         if all(ishandle(HCUR))
            delete(HCUR(:));
         end
         
         for i = 1:prod(size(HMAP))
            if HMAP(i), delete(HMAP(i)); end            
         end
      end
   case '1'			% beginner difficulty
      TIMESTEP = 0.8;		% shapes fall one cell every 800 ms 
      set(HDIF(1),'Checked','on');
      set(HDIF(2:4),'Checked','off');
   case '2'			% intermediate difficulty
      TIMESTEP = 0.48;
      set(HDIF(2),'Checked','on');
      set(HDIF([1,3,4]),'Checked','off');
   case '3'			% expert difficulty
      TIMESTEP = 0.3;
      set(HDIF(3),'Checked','on');
      set(HDIF([1,2,4]),'Checked','off');
   case '4'			% custom difficulty
      tmp = inputdlg('Time Step (decrease for faster game)',...
         'Custom Difficulty',1,{num2str(TIMESTEP*1000)});      
      if ~isempty(tmp)          
         tmp = str2double(tmp)/1000;         
         if ~isnan(tmp) & isreal(tmp) & tmp >= 0
	        	TIMESTEP = tmp;
         	set(HDIF(4),'Checked','on');
            set(HDIF(1:3),'Checked','off');
         end
      end
   case 'O'			% enable/disable sound effects
      SNDFLAG = ~SNDFLAG;
      GameSounds;
	case 'X'			% exit
      MODE = 2;
      drawnow;
      closereq;
	end
end
return;


function GameSounds		%%% game sound effects %%%
global SNDFLAG SNDLR SNDS SNDD SNDROW HSND;

if SNDFLAG
   set(HSND,'Checked','on');
	SNDS = sin(([0:1500,1500:-1:0]).^1.2*2*pi*70/22050)*0.6;						% spin
	SNDD = sin((3500:-1:1).^1.2*pi*200/22050).*linspace(0.6,0.1,3500);		% drop
	SNDROW = conv(ones(1,15)/15,sin((1:5000)*pi.*interp1(...						% row filled
      [500,600,400,600,300,200],linspace(1,6,5000),'nearest')/22050));   
else
   set(HSND,'Checked','off');
   SNDS = 0; SNDD = 0; SNDROW = 0;	      
end
return;