Исходник текстовой игры на Pascal - Исходники - Файлы для игроделов

Исходный код текстовой игры файтинга, написан на Pascal (на Turbo работать не будет т. к. присутствуют русские буквы).

В игре нужно выбрать класс вашего воина (Ловкач, Боксер и Здоровяк), задать имя, класс врага и дать имя ему. Каждый ход компьютер просит повторить показанную строчку, если вы написали все символ в символ, то у врага и у вас отнимаются жизни, если вы ошиблись при вводе, урон получите только вы.

Code

const
a: array [1..5] of string=('ударь его', 'ну же, бей', 'окей go','бей ему по черепу','давай! у тебя получиться');
lov=10;
ur=25;
lives=100;
var
sim:char;
name1, name2, prover, a1:string;
lov1, lov2, ur1, ur2, lives1, lives2, shet1, shet2, a2:integer;
begin
writeln('Виберите класс вашего воина:');
writeln('1:Ловкач(бонус к уклонениям)');
writeln('2:Боксер (бонус к урону)');
writeln('3:Здровяк (бонус к жизням)');
readln(sim);
case sim of
'1':begin lov1:=lov+8; ur1:=ur; lives1:=lives end;
'2':begin lov1:=lov; ur1:=ur+6; lives1:=lives end;
'3':begin lov1:=lov; ur1:=ur; lives1:=lives+40 end;
else writeln('error') end;
writeln('Введите имя персонажа');
readln(name1);
writeln('Виберите класс вашего врага:');
writeln('1:Ловкач(бонус к уклонениям)');
writeln('2:Боксер (бонус к урону)');
writeln('3:Здровяк (бонус к жизням)');
readln(sim);
case sim of
'1':begin lov2:=lov+8; ur2:=ur; lives2:=lives end;
'2':begin lov2:=lov; ur2:=ur+6; lives2:=lives end;
'3':begin lov2:=lov; ur2:=ur; lives2:=lives+40 end;
else writeln('error') end;
writeln('Введите имя врага');
readln(name2);
while (lives1>0) and (lives2>0) do
begin
writeln('y ',name1,' ',lives1,' жизней у ', name2 ,' ',lives2,' жизней');
a2:=random(6);
case a2 of
1:a1:=a[1];
2:a1:=a[2];
3:a1:=a[3];
4:a1:=a[4];
5:a1:=a[5];
else writeln('error') end;
Writeln(a1,' - энтер');
readln(prover);
if prover=a1 then
begin
shet1:=(ur1+random(5))-(lov2+random(5));
lives2:=lives2-shet1;
writeln('Вы нанесли урон ',shet1);
shet2:=(ur2+random(5))-(lov1+random(5));
lives1:=lives1-shet2;
writeln('Вы получили урон ',shet2);
end
else
begin
writeln('вы промахнулись, урон - 0');
shet2:=(ur2+random(5))-(lov1+random(5));
lives1:=lives1-shet2;
writeln('вы получили урон ',shet2);
end;
end;
if (lives2<0) and (lives1<0) then
writeln('Ничья!!')
else
if lives2>0 then
writeln('Вы проиграли!!!')
else
writeln('Вы выиграли!!!');
end.