alpha v1.2

// есть события, которые происходят с рабами, есть события которые происходят с рынком, есть события, которые происходят с протагонистом, есть просто события, которые ни на что не влияют.
//И всё это разные события. Пихать их в один массив можно, но адресовать его будет сложно. я бы, скорее всего, не пытался такими мелочными оптимизациями заниматься


var p,o,i:integer;
 a,b,c,d,e,f,g,j,l,i,m,q,s,t:string;
x,y,z,w:string;
label 1;
begin

//события с рабами. влияют
arr[0] = 'рабы умерли от голода'
arr[1] = 'рабы взбунтовались'
arr[2]='стена в замке разрушилась'
arr[3]='рабы нашли деньги'
arr[4]='рабы пропили ваши деньги'
ARR[5]='из-за пролетавшего мимо метеорита рабы разбежались'


//потом просто arr[randon(0, 1)]



Randomize;
i:=1;//Хуся
a:=random(99); //рабы
b:=random(3);   //замки
d:=random(333); //золота
writeln('Введите свое имя');
read(y);
writeln('');
writeln('Здравствуйте великий князь , y);
writeln('Я ваш верный и покорный слуга Хуся');
writeln('Сейчас мы находимся в вашем замке Тьмутаракань');
1:
e:=random(33); //продать рабов
f:=random(99); //купить рабов
j:=random(333);//продать замок
g:=random(999);//купить замок
L:=random(3);//продать Хусю
m:=random(9);//купить хусю
writeln('Можете задать любой вопрос');
read(x);
if x='продать' then begin
read(y);


if Y='рабов' then begin
writeln('сколько продать рабов?');
read(p);
writeln('работорговцы готовы купить каждого раба за ',e,' золотых монет');
writeln('Продать ',p,' рабов, и получить ',p*e,' золота?');
read(q);
    if Q='да' then begin
    o:=e*p;
    writeln('вы успешно продали ',p,' рабов и получили ',o, ' золотых монет');
    e:=e+o;
    a:=a-p;
    goto 1;
    end;{BEGIN}
    else goto 1;


if Y='Хусю' then
writeln('сколько продать клонов Хусь?');
read(p);
writeln('Программисты готовы отдать за каждого клона Хуси всего-то ',L,' золотых монет');
writeln('Продать ',p,' Хусь, и получить ',p*l,' золота?');
read(q);
    if Q='да' then begin
    o:=l*p;
    writeln('вы успешно продали ',p,' Клонов Хусь и получили ',o, ' золотых монет');
    e:=e+o;
    i:=i-p;
    goto 1;
    end;{BEGIN}
     else goto 1;





if X='купить'
read(y);
if Y='рабов' then


if Y='Хусю'

if X='сколько'
read(y);
if Y='золота' then


if Y='рабов' then



if Y='замков' then


if Y='хусь' then