|
program Travian; uses wincrt; var scelta,risp:char; procedure menu(var index:char); begin writeln(' BENVENUTO IN TRAVIAN CALC 1.0 '); writeln(' by djleo '); gotoxy(0,5); writeln('Seleziona la truppa da creare'); writeln('1) Asce'); writeln('2) Teutonica'); writeln('3) Esci'); readln(index); end; procedure Asce; const le=130;fe=170;ar=120;gr=70; var n:integer; begin writeln('Quante unità vuoi creare?'); readln(n); writeln('Per creare ',n,' unità ASCE hai bisogno di:'); writeln('Legno: ',le*n); writeln('Argilla: ',ar*n); writeln('Ferro: ',fe*n); writeln('Grano: ',gr*n); end; procedure Teutonica; const le=450; fe=480; ar=515; gr=80; var n:integer; begin writeln('Quante unità vuoi creare?'); readln(n); writeln('Per creare ',n,' unità TEUTONICA hai bisogno di:'); writeln('Legno: ',le*n); writeln('Argilla: ',ar*n); writeln('Ferro: ',fe*n); writeln('Grano: ',gr*n); end; begin repeat menu(scelta); clrscr; case scelta of '1':repeat Asce; writeln('Vuoi ripetere?(s/n)'); readln(risp); risp:=upcase(risp); clrscr; until risp='N'; '2':repeat Teutonica; writeln('Vuoi ripetere?(s/n)'); readln(risp); risp:=upcase(risp); clrscr; until risp='N'; end; if (scelta<>'1')and(scelta<>'2')and(scelta<>'3')then writeln('Ripetere input'); until (scelta='3'); clrscr; writeln('Alla prossima'); end.
|
|
