Dream Football World Cup 2050

KARUPPASAMYPANDIYAN M
/
Dream Football World Cup 2050
about 16 hours ago
0
13
5
0
9769
game.m
function g=game()
g.init=@initGame;g.update=@step;g.render=@draw;
end
function S=initGame(ax)
global A Hs Hl Hh Ht Ha Hd Hy Hb Hu Hm J Z t tm lc W M O I Tm ng dr pd fx fy nm
nm={'1st half' '2nd half' 'extra time 1' 'extra time 2'};t=0;tm=0;lc=-9;W=0;M=0;O=0;I=(1:22)';Tm=I>11;ng=I~=1&I~=12;dr=1;pd=1;fx=[.02 repelem([.13 .33],4) .5 .5]';fx=[fx;fx];fy=315+[0 -125 -45 45 125 -125 -45 45 125 -55 55]';fy=[fy;fy];
A=ax;ax.Color=[.2 .2 .28];tx={'Color','w','FontWeight','bold'};th=0:.1:6.3;
rc=@(p,f,e,l)rectangle(ax,'Position',p,'FaceColor',f,'EdgeColor',e,'LineWidth',l);sc=@(x,y,s,c,m,varargin)scatter(ax,x,y,s,c,m,'filled',varargin{:});
sc(800*rand(6e3,1),600*rand(6e3,1),16,rand(6e3,3),'s');cellfun(rc,{[80 132 640 366],[100 132 100 366],[300 132 100 366],[500 132 100 366],[100 135 600 360],[100 205 90 220],[610 205 90 220],[80 270 20 90],[700 270 20 90],[0 0 800 30]},{[.28 .55 .2],[.33 .62 .24],[.33 .62 .24],[.33 .62 .24],'none','none','none',[.85 .85 .9],[.85 .85 .9],[.05 .08 .22]},{'none','none','none','none','w','w','w','w','w','none'},{1,1,1,1,2,2,2,3,3,1});
sk=[.95 .8 .65;.8 .6 .45;.6 .4 .3;.4 .28 .2];

line(ax,[400 400 NaN 400+50*cos(th)],[135 495 NaN 315+50*sin(th)],'Color','w','LineWidth',2);
c=repelem([.1 .4 .95;.85 .12 .15],11,1);c([1 12],:)=[1 .6 .1;.2 .8 .3];z=zeros(22,1);s0=[.85 .65 .5];
Hs=sc(0,0,30,[.15 .4 .12],'o');Hl=line(ax,0,0,'Color',s0,'LineWidth',3);Hh=sc(z,z,30,repelem([1 1 1;.1 .15 .45],11,1),'s');
Ht=sc(z,z,50,c,'s');Ha=line(ax,0,0,'Color',s0,'LineWidth',2);Hd=sc(z,z,38,sk(randi(4,22,1),:),'o');Hy=sc(0,0,60,[1 .85 .2],'v');
Hb=sc(0,0,36,'w','o','MarkerEdgeColor','k');Hu=text(ax,14,15,'','FontSize',13,tx{:});
Hm=text(ax,400,315,'','FontSize',15,tx{:},'HorizontalAlignment','center','BackgroundColor',[.05 .08 .22]);text(ax,795,15,sprintf('Click on a spot on the ground to move your player there.\nDouble-click to kick the ball.'),'FontSize',8,tx{:},'HorizontalAlignment','right');set(ax.Children,'HitTest','off','PickableParts','none');
restart(0);J=1;S=0;Z='';
end
function restart(k)
global H dr Tm P fx fy V F sy I o b B E G lt tu K at Q
H=dr*(1-2*Tm);P=[400+H.*(600*fx-300) fy];V=0*P;F=[H 0*H];sy=0*I;o=10+11*k;P(o,:)=[400 315];b=P(o,:);B=0;E=0;G=[0 0];lt=k>0;tu=[NaN NaN];K=sy;at=.8;Q=rand(22,1);
end
function S=step(S,dt,p)
global t tm J nk Z M O pd W dr K lc A P tu o Tm H fx Q b I fy V sy F G B E ng at lt nm
t=t+dt;tm=tm+dt;
if J~=1
if J==2&&t>3.5||J~=2&&p&&t>.6
if J~=2,M=0;O=0;pd=1;W=0;dr=1;nk=0;end
restart(nk);J=1;t=0;Z='';
end
return
end
W=W+dt;K=max(K-dt,0);U=10;gk=[1 12];
if p&&tm-lc>.08
C=min(max(A.CurrentPoint(1,1:2),0),[800 600]);n=norm(C-P(U,:));
if tm-lc<.4,kick(U,C,min(650,80+1.6*n),.1);else,tu=C;end
lc=tm;
end
own=(o>0)&((o>11)==Tm);
T=[400+H.*(600*fx-300)+(.25+.6*fx).*(.5+Q)*(b(1)-400)+40*H.*own+22*sin(t*Q+9*I) fy+.6*Q.*(b(2)-fy)+22*cos(t*(1-Q)+5*I)];
T(gk,:)=[400-290*H(gk) 315+0*gk'+max(min(.5*(b(2)-315),40),-40)];
d=sum((P-b).^2,2);d([1 12 U])=Inf;m=d<(140*Q).^2&~own;T(m,:)=b+20*[cos(3*I(m)) sin(5*I(m))];
[~,a]=min(d(1:11));[~,c]=min(d(12:22));c=c+11;
w=own([1 12]);T([a c],:)=T([a c],:).*w+b.*~w;
if o>0&&~any(o==gk),T(o,:)=[400+300*H(o) 315+50*sin(t/2+o)];end
if o==U,T(U,:)=tu;elseif o==0||o>11,T(U,:)=b;end
if any(isnan(tu)),T(U,:)=P(U,:);end
sp=(.8+.4*Q).*(55+12*Tm);sp([a c])=sp([a c])*1.36;sp(c)=190-100*own(12);sp(U)=190;sp(gk)=100;
sp=sp.*(1-.1*(I==o));
D=T-P;n=max(vecnorm(D,2,2),1e-3);V=V+(D./n.*(sp.*min(n/15,1))-V).*min(1,(5+20*(I==U|I==c))*dt);P=max(P+V*dt,[102 137]);P=min(P,[698 493]);
s=vecnorm(V,2,2);sy=sy+min(s,100)*dt*.25;m=s>8;F(m,:)=V(m,:)./s(m);
f=o==0;b=f*(b+G*dt)+~f*(P(o+f,:)+(7+4*abs(sin(6*t+o)))*F(o+f,:));B=f*(B+E*dt);E=f*(E-400*dt);
g=f&B<=0;h=g&E<-80;B=B*~g;E=E*~g-.5*E*h;G=G*(1-.2*h)*exp(-(.2+.8*(B==0))*dt);
d=vecnorm(P-b,2,2);v=norm(G);
if o==0
R=10+10*~ng;[m,i]=min(d./(d<R&K==0&((B<8&v<320)|(R>12&B<25))));r=rand;
if m<Inf
if R(i)>12&&v>150&&r>.35
if r<.92,G=-G*.5+80*randn(1,2);E=60;end
K(i)=.5;
else
take(i);
end
end
elseif ~any(o==gk)
q=find((o>11)~=Tm&d<16&K==0&ng);
if ~isempty(q)&&rand<(2.5+3*(o<12))*dt,K(o)=.6;take(q(1));end
end
at=at-dt;
if o>0&&o~=U&&at<=0
at=.3+.5*rand;e=[400+300*H(o) 315];k=any(o==gk);
if ~k&&norm(e-P(o,:))<150&&rand<.7
kick(o,[e(1) 315+80*(rand-.5)],400+100*rand,.15);
elseif k||rand<.3
m=find((o>11)==Tm&I~=o);dd=vecnorm(P(m,:)-P(o,:),2,2);ok=dd>45&dd<290;
if any(ok)
[~,j]=max(H(o)*P(m,1)+50*rand(numel(m),1)-1e4*~ok);q=P(m(j),:);kick(o,q,min(520,40+1.25*dd(j)),.5);
end
end
end
x=b(1);y=b(2);
if o==0&&(x<100||x>700)
k=(x>700)~=(dr==1);
if y>270&&y<360&&B<22
O=O+k;M=M+~k;
nk=~k;J=2;t=0;Z=sprintf('GOAL!!!   INDIA %d - %d SPAIN',M,O);
else
k=1+11*~k;P(k,:)=[400+290*sign(x-400) 315];take(k);b=P(k,:);
end
elseif o==0&&(y<135||y>495)
b(2)=min(max(y,136),494);[~,i]=min(vecnorm(P-b,2,2)./(Tm==~lt&ng));P(i,:)=b;take(i);
end
if J==1&&W>=45-35*(pd>2)
t=0;J=2;W=0;
if pd<2||pd==2&&M==O||pd==3
pd=pd+1;dr=-dr;nk=~mod(pd,2);Z=sprintf('%d - %d\nNext: %s (sides swap)',M,O,nm{pd});
else
J=3;r={'INDIA WIN THE WORLD CUP!' 'DRAW' 'SPAIN WIN'};Z=sprintf('FULL TIME  IND %d - %d ESP\n%s\n(tap to replay)',M,O,r{2-sign(M-O)});
end
end
end
function take(i)
global o lt G B E at
o=i;lt=i>11;G=[0 0];B=0;E=0;at=.3+.4*rand+any(i==[1 12]);
end
function kick(i,q,v,l)
global P G E b B o lt K F
r=q-P(i,:);r=r/max(norm(r),1)+.03*randn(1,2);G=v*r;E=l*max(0,v-350)*.9;b=P(i,:)+10*r;B=0;o=0;lt=i>11;K(i)=.5;F(i,:)=r;
end
function draw(~,~)
global P V sy K Hl Ha Hh Ht Hd Hy Hs b B Hb J W M O pd Hu Hm Z nm
x=P(:,1);y=P(:,2);z=NaN(22,1);c=sin(sy);a=min(vecnorm(V,2,2)/60,1)*6+5*(K>.35);s=c.*a;u=y+1.2*abs(c).*a/6;
pt(Hl,[x-s x x+s z]',[y+.4*max(-s,0) u+9 y+.4*max(s,0) z]');pt(Ha,[x-4 x-6 z x+4 x+6 z]',[u+21 u+13+s z u+21 u+13-s z]');
pt(Hh,x,u+11);pt(Ht,x,u+18);pt(Hd,x,u+27);pt(Hy,x(10),u(10)+38);
set(Hs,'XData',b(1),'YData',b(2),'SizeData',30/(1+B/30));pt(Hb,b(1),b(2)+2+.8*B);
T=W+45*min(pd-1,2)+10*(pd>3);s=sprintf('WC 2050  IND %d - %d ESP   %d:%02d  %s',M,O,floor(T/60),mod(floor(T),60),nm{pd});
Hu.String=s;Hm.String=Z;
end
function pt(h,x,y)
set(h,'XData',x(:),'YData',y(:));
end
Play Game
Preview

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