%% Ausgabe des Spielstandes beim Tennis
%  von tennis.m aufgerufen
%  IN: a,b - Vektoren der Laenge welche fuer Spieler A und B jeweils
%            die aktuelle Anzahl Gewinnsaetze, -spiele, -punkte speichert
function spielstand(a,b)
punkte = [0 15 30 40 60];
if  max(a(3),b(3)) <= 3  && min(a(3),b(3)) <= 2
    sa = num2str(punkte(a(3)+1));
    sb = num2str(punkte(b(3)+1));
else
    if  a(3) == b(3)
        sa = 'duce';
        sb = sa;
    elseif a(3) == b(3)+1
        sa = 'adv.';
        sb = '    ';
    elseif b(3) == a(3)+1
        sb = 'adv.';
        sa = '    ';
    elseif a(3) >= b(3)+2
        sa = 'won';
        sb = '   ';
    elseif b(3) >= a(3)+2
        sb = 'won';
        sa = '   ';
    else
        sa = 'FEHLER';
        sb = sa;
    end
end

disp('--------------------------------------------------------');
disp( 'Spieler  Satz  Spiel  Punkte');
disp(['   A       ',num2str(a(1)),'     ',num2str(a(2)),'      ',sa]);
disp(['   B       ',num2str(b(1)),'     ',num2str(b(2)),'      ',sb]);
