بسم الله الرحمن الرحيم
بصراحه منتدي في قمه الروعه مش مجامله والله بس فيه موضوعات مفيده
بس لو ممكن معاايا لعبه بالماتلاب مش فاهمه الكود بتاعها لو حد افتهم له ممكن يساعدني
لو ما فيها احرررررررررررررررررراج
عي لعبه fire قذف نار بين عدوين
function fire1
hs=findobj(progame,‘tag’,‘s1’); هنايعرف مسافه
ha=findobj(progame,‘tag’,‘a1’);
hr=findobj(progame,‘tag’,‘range’);
hf2=findobj(progame,‘tag’,‘f2’);
hf1=findobj(progame,‘tag’,‘f1’);
hleft=findobj(progame,‘tag’,‘L’);
hright=findobj(progame,‘tag’,‘R’[FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]);
[/size][/font][/size][/font]%-------------------------------------
set(hf2,‘enable’,‘on’)
rs=get(hr,‘string’[FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]);
r=str2num(rs);
ths=get(ha,[/size][/font][/size][/font]‘string’[FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]);
th=str2num(ths);
vs=get(hs,[/size][/font][/size][/font]‘string’[FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]);
v=str2num(vs);
yr=30/130*r;
axis([0 r 0 yr]);
thr=thpi/180;
g=9.81;
[/size][/font][/size][/font]for[FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] x=0:r/200:r,
y=-g/2(x/(vcos(thr)))^2+xtan(thr);
plot(x,y,[/size][/font][/size][/font]‘y*’)
axis([0 r 0 yr])
hold on
patch([0 r/20 r/20 0],[0 0 yr/30 yr/30],‘r’ )
patch([r-r/20 r r r-r/20],[0 0 yr/30 yr/30],‘b’[FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] )
hold [/size][/font][/size][/font]off
axis off
[FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]
drawnow
[/size][/font][/size][/font]if y<=0 & x>0,%Terminate for loop when hit the ground
if x>=(r-r/20) & x<=r,
cla
patch([0 r/20 r/20 0],[0 0 yr/30 yr/30],‘r’ )
hold on[FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]
T1=rand(1,40)*r/20-r/20;
T2=rand(1,40)*r/20-r/40;
P1=rand(1,40)*r/20-r/20;
P2=rand(1,40)*r/20-r/40;
plot(r+T1,T2,[/size][/font][/size][/font]‘y.’,r+P1,P2,‘b.’)
hold off
[FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]
[/size][/font][/size][/font]else
hold on
plot(x,0,‘y*’[FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])
hold [/size][/font][/size][/font]off
end
break
end
end
set(hf1,‘enable’,‘off’)
set(hright,‘visible’,‘on’);
set(hleft,‘visible’,‘off’[FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]);
[/size][/font][/size][/font]