Tetris_matlab.rar_tetris 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 = N