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
