Matlab 版 (精华区)
发信人: zjliu (秋天的萝卜), 信区: Matlab
标 题: 转贴一个matlab写的俄罗斯方块游戏
发信站: 哈工大紫丁香 (Tue Dec 2 16:33:48 2003), 站内信件
% Author: Maurice Smith, 1/19/95 (msmith@bme.jhu.edu)
标 题: 转贴一个matlab写的俄罗斯方块游戏m文件
发信站: 饮水思源 (2003年11月30日23:59:11 星期天), 站内信件
m文件下载:http://bbs.sjtu.edu.cn/showfile?name=tetris.m
function tetris(action)
% TETRIS for MATLAB
%
% To begin, simply type: tetris
%
% Only one game can be run at a time.
% UN-PAUSE (I know that's not a word) the game by hitting RETURN
% in the Matlab command window.
%
% Please feel free to modify, improve, rewrite, cleanup the code etc.
% Written and tested on a SUN running Matlab 4.2c, but should work with
% Matlab 4.0, if not you can debug/modify it.
% This is FREEWARE, enjoy! - Peace & Love
%
% Author: Maurice Smith, 1/19/95 (msmith@bme.jhu.edu)
global CENTER_X CENTER_Y POS STUCK USED_SPACE H;
global WIDTH1 HEIGHT1 LEVEL TIME_DELAY SQ_X SQ_Y;
global H_SLIDER_LEVEL H_SLIDER_WIDTH H_SLIDER_HEIGHT;
global H_TEXT_LEVEL H_TEXT_WIDTH H_TEXT_HEIGHT H_TEXT_SCORE;
global START_HANDLE STOP_HANDLE STOP_GAME EXIT_HANDLE;
global H_A H_B BOX H_LINE MIN_DELAY MAX_DELAY;
if nargin < 1, action = 'initialize'; end;
if strcmp(action,'initialize'),
default_width = 10; % default width of tetris play-field
default_height = 25; % default hieght of tetris play-field
default_level = 5; % default skill level
default_box = 1; % default play field outline (on=1, off=0)
WIDTH1 = default_width;
HEIGHT1 = default_height;
LEVEL = default_level;
BOX = default_box;
MIN_DELAY = 0.1; % delay corresponding to skill level 9
if BOX == 1, % draw outline box initially
BOX = ~BOX;
tetris('box');
end
pause_handle = uicontrol('units','normalized',...
'position', [.7 .04 .1 .05],'string','pause', ...
'callback','disp(''press RETURN to continue''); pause;', ...
'interruptible','no');
box_handle = uicontrol('units','normalized',...
'position', [.7 .15 .1 .05],'string','box', ...
'callback','tetris(''box'');', ...
'interruptible','yes');
STOP_HANDLE = uicontrol('units','normalized',...
'position', [.55 .04 .1 .05],'string','stop', ...
'callback','tetris(''stop'')', ...
'interruptible','yes','visible','off');
EXIT_HANDLE = uicontrol('units','normalized',...
if BOX == 1, % draw outline box initially
BOX = ~BOX;
tetris('box');
end
pause_handle = uicontrol('units','normalized',...
'position', [.7 .04 .1 .05],'string','pause', ...
'callback','disp(''press RETURN to continue''); pause;', ...
'interruptible','no');
box_handle = uicontrol('units','normalized',...
'position', [.7 .15 .1 .05],'string','box', ...
'callback','tetris(''box'');', ...
'interruptible','yes');
STOP_HANDLE = uicontrol('units','normalized',...
'position', [.55 .04 .1 .05],'string','stop', ...
'callback','tetris(''stop'')', ...
'interruptible','yes','visible','off');
EXIT_HANDLE = uicontrol('units','normalized',...
if BOX == 1, % draw outline box initially
BOX = ~BOX;
tetris('box');
end
pause_handle = uicontrol('units','normalized',...
'position', [.7 .04 .1 .05],'string','pause', ...
'callback','disp(''press RETURN to continue''); pause;', ...
'interruptible','no');
box_handle = uicontrol('units','normalized',...
'position', [.7 .15 .1 .05],'string','box', ...
'callback','tetris(''box'');', ...
'interruptible','yes');
STOP_HANDLE = uicontrol('units','normalized',...
'position', [.55 .04 .1 .05],'string','stop', ...
'callback','tetris(''stop'')', ...
'interruptible','yes','visible','off');
EXIT_HANDLE = uicontrol('units','normalized',...
'position', [.85 .04 .1 .05],'string','exit', ...
'callback','delete(gcf)', ...
'interruptible','no');
START_HANDLE = uicontrol('units','normalized',...
'position', [.55 .04 .1 .05],'string','start', ...
'callback','tetris(''start'')', ...
'interruptible','yes','visible','on');
left_handle = uicontrol('units','normalized',...
'position', [.18 .07 .1 .05 ],'string','<---', ...
'callback','tetris(''left'')', ...
'interruptible','yes');
right_handle = uicontrol('units','normalized',...
'position', [.32 .07 .1 .05 ],'string','--->', ...
'callback','tetris(''right'')', ...
'interruptible','yes');
drop_handle = uicontrol('units','normalized',...
'position',[.25 .01 .1 .05 ],'string','drop', ...
'callback','tetris(''drop'')');
H_SLIDER_HEIGHT = uicontrol(...
'CallBack', 'tetris(''height''); ', 'Max', [ 50], 'Min',[10],...
'val', HEIGHT1, 'Position', [ 0.78 0.3 0.04 0.4 ],...
'style', 'slider', 'Units', 'normalized');
H_SLIDER_WIDTH = uicontrol(...
'CallBack','tetris(''width''); ','Max',[ 20 ],'Min',[ 6 ],...
'val',WIDTH1,'Position',[ 0.9 0.3 0.04 0.4 ],...
'style','slider','Units','normalized');
H_label_width = uicontrol(...
'ForegroundColor',[ 0 1 1 ], 'Position',[0.87 .72 .1 .06],...
'String','Width', 'style','text', 'Units','normalized');
H_label_Height = uicontrol(...
'ForegroundColor',[ 1 1 0 ], 'Position',[ 0.75 0.72 0.1 0.06],...
'String','Height', 'style','text', 'Units','normalized');
H_label_level = uicontrol(...
'ForegroundColor',[ 1 0 0 ], 'Position',[ 0.57 0.72 0.1 0.06],...
'String','Level', 'style','text', 'Units','normalized');
H_TEXT_WIDTH = uicontrol(...
'ForegroundColor',[ 0 1 1 ], 'Position',[0.87 .22 .1 .06],...
'String',num2str(WIDTH1), 'style','text','Units','normalized');
H_TEXT_HEIGHT = uicontrol(...
'ForegroundColor',[ 1 1 0 ], 'Position',[ 0.75 0.22 0.1 0.06],...
'String',num2str(HEIGHT1), 'style','text','Units','normalized');
H_TEXT_LEVEL = uicontrol(...
'ForegroundColor',[ 1 0 0 ], 'Position',[ 0.57 0.22 0.1 0.06],...
'String',num2str(LEVEL), 'style','text', 'Units','normalized');
end; % end version 4.2 extras (slider controls & labels)
end; % end initialization routine
if strcmp(action,'level'), % set skill level
LEVEL = round(get(H_SLIDER_LEVEL,'val'));
set(H_TEXT_LEVEL,'string',LEVEL);
TIME_DELAY = MAX_DELAY*exp((LEVEL/9)*log(MIN_DELAY/MAX_DELAY));
end;
if strcmp(action,'height'), % set play-field height
HEIGHT1 = round(get(H_SLIDER_HEIGHT,'val'));
set(H_TEXT_HEIGHT,'string',HEIGHT1);
end;
if strcmp(action,'width'), % set play-field width
WIDTH1 = round(get(H_SLIDER_WIDTH,'val'));
set(H_TEXT_WIDTH,'string',WIDTH1);
end;
if strcmp(action,'box'), % toggle display of play-field outline
if strcmp(action,'level'), % set skill level
LEVEL = round(get(H_SLIDER_LEVEL,'val'));
set(H_TEXT_LEVEL,'string',LEVEL);
TIME_DELAY = MAX_DELAY*exp((LEVEL/9)*log(MIN_DELAY/MAX_DELAY));
end;
if strcmp(action,'height'), % set play-field height
HEIGHT1 = round(get(H_SLIDER_HEIGHT,'val'));
set(H_TEXT_HEIGHT,'string',HEIGHT1);
end;
if strcmp(action,'width'), % set play-field width
WIDTH1 = round(get(H_SLIDER_WIDTH,'val'));
set(H_TEXT_WIDTH,'string',WIDTH1);
end;
if strcmp(action,'box'), % toggle display of play-field outline
stopped = 0;
for i=1:4, if USED_SPACE(POS(i,1)+1,POS(i,2)) == 1, stopped=1; end; end;
if stopped == 0,
POS(:,1) = POS(:,1) + 1;
CENTER_X = CENTER_X + 1;
for i=1:4, set(H(i),'XData',SQ_X+POS(i,1),'YData',SQ_Y+POS(i,2));
end;
drawnow;
end;
end;
if strcmp(action,'drop'), % Drop Piece Down
while STUCK==0,
for i=1:4, if USED_SPACE(POS(i,1),POS(i,2)-1) == 1, STUCK=1; end;
end;
if STUCK == 0, POS(:,2) = POS(:,2) -1; end;
end;
for i=1:4, set(H(i),'XData',SQ_X+POS(i,1),'YData',SQ_Y+POS(i,2)); end;
drawnow;
stopped = 0;
for i=1:4, if USED_SPACE(POS(i,1)+1,POS(i,2)) == 1, stopped=1; end; end;
if stopped == 0,
POS(:,1) = POS(:,1) + 1;
CENTER_X = CENTER_X + 1;
for i=1:4, set(H(i),'XData',SQ_X+POS(i,1),'YData',SQ_Y+POS(i,2));
end;
drawnow;
end;
end;
if strcmp(action,'drop'), % Drop Piece Down
while STUCK==0,
for i=1:4, if USED_SPACE(POS(i,1),POS(i,2)-1) == 1, STUCK=1; end;
end;
if STUCK == 0, POS(:,2) = POS(:,2) -1; end;
end;
for i=1:4, set(H(i),'XData',SQ_X+POS(i,1),'YData',SQ_Y+POS(i,2)); end;
drawnow;
end;
if strcmp(action,'rotate'), % Rotate
new_x = -(POS(:,2) - CENTER_Y) + CENTER_X;
new_y = (POS(:,1) - CENTER_X) + CENTER_Y;
stopped = 0;
for i=1:4,
if ((new_x>1) & (new_x<(WIDTH1+2)) & (new_y>1)),
if USED_SPACE(new_x(i), new_y(i)) == 1, stopped=1; end;
else, stopped=1;
end;
end;
if stopped == 0, % space not occupied
POS = [new_x new_y];
for i=1:4, set(H(i),'XData',SQ_X+POS(i,1),'YData',SQ_Y+POS(i,2));
end;
drawnow;
end;
end;
axes(H_A);
% shape definitions
a_shape = [-1 0 1 2; 0 0 0 0]'; % rectangle 1x4
b_shape = [-1 0 0 1; 0 0 1 0]'; % Z mirror
c_shape = [-1 0 0 1; 0 0 1 1]'; % Z normal
d_shape = [-1 0 0 1; 1 1 0 0]'; % truncated T
e_shape = [0 0 1 1; 0 1 0 1]'; % square 2x2
f_shape = [-1 0 1 1; 0 0 0 1]'; % L normal
g_shape = [-1 -1 0 1; 1 0 0 0]'; % L mirror
shape_matrix = [a_shape b_shape c_shape d_shape e_shape f_shapeg_shape];
s = size(shape_matrix);
num_shapes = s(2) / 2;
color_matrix = [ 0 0 1; 0 1 0; 0 1 1; 1 0 0; 1 0 1; 1 1 0; 1 1 1];
home_pos = ones(4,1) * [(WIDTH1/2) (HEIGHT1-2)];
POS = a_shape + home_pos;
for i=1:4, H(i) = patch(SQ_X+POS(i,1),SQ_Y+POS(i,2),'r'); end;
axes(H_A);
% shape definitions
a_shape = [-1 0 1 2; 0 0 0 0]'; % rectangle 1x4
b_shape = [-1 0 0 1; 0 0 1 0]'; % Z mirror
c_shape = [-1 0 0 1; 0 0 1 1]'; % Z normal
d_shape = [-1 0 0 1; 1 1 0 0]'; % truncated T
e_shape = [0 0 1 1; 0 1 0 1]'; % square 2x2
f_shape = [-1 0 1 1; 0 0 0 1]'; % L normal
g_shape = [-1 -1 0 1; 1 0 0 0]'; % L mirror
shape_matrix = [a_shape b_shape c_shape d_shape e_shape f_shapeg_shape];
s = size(shape_matrix);
num_shapes = s(2) / 2;
color_matrix = [ 0 0 1; 0 1 0; 0 1 1; 1 0 0; 1 0 1; 1 1 0; 1 1 1];
home_pos = ones(4,1) * [(WIDTH1/2) (HEIGHT1-2)];
POS = a_shape + home_pos;
for i=1:4, H(i) = patch(SQ_X+POS(i,1),SQ_Y+POS(i,2),'r'); end;
if STUCK == 0,
t0 = clock;
POS(:,2) = POS(:,2) - 1;
CENTER_Y = CENTER_Y - 1;
for i = 1:4,
set(H(i),'YData',SQ_Y+POS(i,2));
end;
drawnow;
%etime(clock,t0)
end
end;
drawnow;
end
for i=1:4, USED_SPACE(POS(i,1),POS(i,2)) = 1; end; % retire piece
for i = 1:4, set(H(i),'Visible', 'off'); end; % hide active piece
axes(H_B);
for i=1:4, h_matb(POS(i,1),POS(i,2)) =patch(SQ_X+POS(i,1),...
SQ_Y+POS(i,2),current_color); end;
i=2;
if STUCK == 0,
t0 = clock;
POS(:,2) = POS(:,2) - 1;
CENTER_Y = CENTER_Y - 1;
for i = 1:4,
set(H(i),'YData',SQ_Y+POS(i,2));
end;
drawnow;
%etime(clock,t0)
end
end;
drawnow;
end
for i=1:4, USED_SPACE(POS(i,1),POS(i,2)) = 1; end; % retire piece
for i = 1:4, set(H(i),'Visible', 'off'); end; % hide active piece
axes(H_B);
for i=1:4, h_matb(POS(i,1),POS(i,2)) =patch(SQ_X+POS(i,1),...
SQ_Y+POS(i,2),current_color); end;
i=2;
while i < HEIGHT1, % check if any lines are complete
if sum(USED_SPACE(2:WIDTH1+1,i)) == WIDTH1,
score = score + 10*(LEVEL+1); % add score for completingline
set(H_TEXT_SCORE, 'string', ['Score: ' num2str(score)]);
for k1=2:WIDTH1+1, delete(h_matb(k1,i)); end;
for k2=(i+1):HEIGHT1,
for k1=2:WIDTH1+1,
if h_matb(k1,k2) ~= 0,
%disp([k1 k2 h_matb(k1,k2)]);
set(h_matb(k1,k2),'YData',k2-1+SQ_Y);
end;
end;
end;
h_matb(2:WIDTH1+1,i:(HEIGHT1-1)) =h_matb(2:WIDTH1+1,...
(i+1):HEIGHT1);
h_matb(2:WIDTH1+1,HEIGHT1) = zeros(WIDTH1,1);
USED_SPACE(2:WIDTH1+1,i:(HEIGHT1-1)) =USED_SPACE(...
2:WIDTH1+1,(i+1):HEIGHT1);
USED_SPACE(2:WIDTH1+1,HEIGHT1) = zeros(WIDTH1,1);
else i = i+1;
end
--
╔═══════════════════╗
║★★★★★友谊第一 比赛第二★★★★★║
╚═══════════════════╝
※ 来源:．哈工大紫丁香 bbs.hit.edu.cn [FROM: 202.118.229.162]
※ 修改:．zjliu 於 Dec 2 16:47:02 2003 修改本文．[FROM: 202.118.229.162]
※ 修改:．zjliu 於 Dec 2 16:47:25 2003 修改本文．[FROM: 202.118.229.162]
Powered by KBS BBS 2.0 (http://dev.kcn.cn)
页面执行时间：207.145毫秒