MAZE FRENZY:One-Button Arcade Chase

Umar
/
MAZE FRENZY:One-Button Arcade Chase
about 3 hours ago
0
4
0
0
6858
game.m
function g=game
% MAZE FRENZY - One-button arcade maze chase
% Collect pellets, evade ghosts, and grab power orbs.
% Automatic movement, ghost pursuit, combos and rising difficulty.
g.init=@init;
g.update=@update;
g.render=@render;
end

function s=init(ax)
R=17; C=21; W=true(R,C);
W(2:R-1,2:C-1)=false;
for c=[5 9 13 17]
 for r=3:R-2
  if mod(r+c,5)~=0, W(r,c)=true; end
 end
end
for r=[5 9 13]
 for c=3:C-2
  if mod(c+r,6)~=0, W(r,c)=true; end
 end
end
W(2,2)=false; W(R-1,C-1)=false;
W(2,C-1)=false; W(R-1,2)=false;
W(8,11)=false;
im=zeros(R,C,3);
im(:,:,3)=.09;
a=im(:,:,1); a(W)=.12; im(:,:,1)=a;
a=im(:,:,2); a(W)=.3; im(:,:,2)=a;
a=im(:,:,3); a(W)=.95; im(:,:,3)=a;
image(ax,im);
set(ax,'YDir','reverse','XLim',[.5 C+.5],...
 'YLim',[.5 R+.5],'XTick',[],'YTick',[],...
 'Color',[.015 .015 .04]);
axis(ax,'image'); axis(ax,'manual'); hold(ax,'on');
s.W=W; s.R=R; s.C=C;
s.pel=scatter(ax,[],[],13,[1 .82 .28],'filled');
s.orbs=scatter(ax,[],[],65,[.25 1 1],'filled');
s.player=scatter(ax,2,2,190,[1 .88 .05],'filled');
s.ghost=scatter(ax,[],[],155,'filled');
s.hud=text(ax,1,.35,'','Color','w','FontSize',10,...
 'FontWeight','bold','VerticalAlignment','top');
s.banner=text(ax,C/2,R/2,'','Color',[1 .9 .25],...
 'FontSize',20,'FontWeight','bold','HorizontalAlignment','center',...
 'BackgroundColor',[.02 .02 .08]);
s.help=text(ax,C/2,R/2+1.5,'','Color','w','FontSize',9,...
 'HorizontalAlignment','center');
s.dx=[1 0 -1 0]; s.dy=[0 1 0 -1];
s=reset(s); s.phase=0;
end

function s=reset(s)
s.dots=~s.W; s.power=false(s.R,s.C);
s.power(2,s.C-1)=true; s.power(s.R-1,2)=true;
s.dots(2,2)=false;
s.dots(s.R-1,s.C-1)=false;
s.dots(2,s.C-1)=false;
s.dots(s.R-1,2)=false;
s.dots(8,11)=false;
s.px=2; s.py=2; s.dir=1; s.q=1;
s.gx=[s.C-1 s.C-1 2 11];
s.gy=[s.R-1 2 s.R-1 8];
s.sx=s.gx; s.sy=s.gy;
s.score=0; s.lives=3; s.level=1;
s.pow=0; s.acc=0; s.tick=0;
end

function s=update(s,dt,pressed)
if s.phase==0
 if pressed, s.phase=1; end
 return
end
if s.phase==2
 if pressed, s=reset(s); s.phase=1; end
 return
end
s.pow=max(0,s.pow-dt);
s.acc=s.acc+min(dt,.08);
step=max(.075,.15-(s.level-1)*.008);
while s.acc>=step
 s.acc=s.acc-step; s.tick=s.tick+1;
 if pressed
  for z=1:4
   d=mod(s.q+z-1,4)+1;
   x=s.px+s.dx(d); y=s.py+s.dy(d);
   if ~s.W(y,x), s.q=d; break; end
  end
  pressed=false;
 end
 x=s.px+s.dx(s.q); y=s.py+s.dy(s.q);
 if ~s.W(y,x)
  s.px=x; s.py=y; s.dir=s.q;
 end
 if s.dots(s.py,s.px)
  s.dots(s.py,s.px)=false;
  s.score=s.score+10;
 end
 if s.power(s.py,s.px)
  s.power(s.py,s.px)=false;
  s.score=s.score+50; s.pow=7;
 end
 if mod(s.tick,2)==0
  for k=1:4
   best=1; val=inf;
   if s.pow>0, val=-inf; end
   for d=1:4
    x=s.gx(k)+s.dx(d); y=s.gy(k)+s.dy(d);
    if s.W(y,x), continue; end
    dist=abs(x-s.px)+abs(y-s.py);
    if s.pow>0, dist=-dist; end
    if dist<val || (dist==val && rand>.5)
     val=dist; best=d;
    end
   end
   x=s.gx(k)+s.dx(best); y=s.gy(k)+s.dy(best);
   if ~s.W(y,x), s.gx(k)=x; s.gy(k)=y; end
  end
 end
 hit=find(s.gx==s.px & s.gy==s.py);
 if ~isempty(hit)
  if s.pow>0
   s.score=s.score+200*numel(hit);
   s.gx(hit)=s.sx(hit); s.gy(hit)=s.sy(hit);
  else
   s.lives=s.lives-1;
   s.px=2; s.py=2; s.q=1; s.dir=1; s.pow=0;
   s.gx=s.sx; s.gy=s.sy;
   if s.lives<=0, s.phase=2; end
  end
 end
 if ~any(s.dots(:)) && ~any(s.power(:))
  s.level=s.level+1;
  s=nextLevel(s);
 end
end
end

function s=nextLevel(s)
s.dots=~s.W; s.power=false(s.R,s.C);
s.power(2,s.C-1)=true; s.power(s.R-1,2)=true;
s.dots(2,2)=false;
s.dots(s.R-1,s.C-1)=false;
s.dots(2,s.C-1)=false;
s.dots(s.R-1,2)=false;
s.dots(8,11)=false;
s.px=2; s.py=2; s.q=1; s.dir=1;
s.gx=s.sx; s.gy=s.sy; s.pow=0;
s.acc=0;
end

function render(ax,s)
[y,x]=find(s.dots);
set(s.pel,'XData',x,'YData',y);
[y,x]=find(s.power);
set(s.orbs,'XData',x,'YData',y);
set(s.player,'XData',s.px,'YData',s.py);
set(s.ghost,'XData',s.gx,'YData',s.gy);
if s.pow>0
 set(s.ghost,'CData',repmat([.15 .8 1],4,1));
else
 set(s.ghost,'CData',[1 .15 .25;1 .45 .8;...
 1 .55 .12;.3 1 .65]);
end
set(s.hud,'String',sprintf(...
 ' SCORE %07d     LIVES %d     LEVEL %d     POWER %.1f',...
 s.score,s.lives,s.level,s.pow));
if s.phase==0
 set(s.banner,'String','MAZE FRENZY');
 set(s.help,'String','CLICK TO START  |  CLICK TO CHANGE DIRECTION');
elseif s.phase==2
 set(s.banner,'String','GAME OVER');
 set(s.help,'String',sprintf(...
  'FINAL SCORE %d  |  CLICK TO PLAY AGAIN',s.score));
else
 set(s.banner,'String','');
 set(s.help,'String','');
end
end
Play Game
Preview

Play Game opens this in MATLAB Drive. Click Run this app there to play.