Pascal Симулятор Хакера

[Alex Klare]

Добрый вечер уважаемые пользователи Pawno-Info.
Сделал игру Симулятор Хакера, но она простенькая.
Не судите строго, все-таки моя первая работа ​

program hacker;
uses crt;
var connect,ddos,zarazit,infected3:string;
join1:='connect vk.com';
join2:='DDOS vk.com';
infect:='infect';
infected:integer;
infected2:='infected';

begin
randomize;
ClrScr;
textcolor(green);
writeln('Добро пожаловать в игру Симулятор Хакера!');
delay(3000);
writeln('Вы обычный хакер...');
delay(3000);
writeln('Денёк сегодня скучный. Вам захотелось заразить какой-нибудь сайт');
delay(3000);
writeln('Вы выбрали сайт vk.com');
delay(3000);
writeln('Действуйте быстро, пока Вас не вычислили!');
delay(3000);
writeln('Удачи!');
delay(7000);
ClrScr;
writeln('Введите connect vk.com чтобы подключиться к сайту!');
readln(connect);
  if connect=join1 then begin write('Подключение к сайту'); delay(1000); write('.'); delay(1000); write('.'); delay(1000); writeln('.'); delay(5000); writeln('Подключение установлено!'); end
  else begin writeln('Команда введена неверно!'); delay(5000); textcolor(red); writeln('Вас вычислили!'); exit; end;
writeln('Теперь сделайте DDOS-атаку!');  
delay(3000);
writeln('Для этого введите DDOS vk.com');
readln(ddos); 
  if ddos=join2 then begin writeln('DDOS-атака началась!'); delay(3000); writeln('010101010100110101101000001010101010101010010001010101010100101101001010101010100100010101010101001011010010101010101001000101010101010010110100101010101010010001010101010100101101001010101010100100010101010101001011010010101010101001000101010101010010110100101010101010010001010101010100101101001010101010100100010101010101001011010010101010101001000101010101010010110100101010101010010001010101010100101101001011011000101010100101101001010101010100100010101010101001011010010101010101001000101010101010010110100101010101010010001010101010100101101001010101010100100010101010101001011010010101010101001000101010101010010110100101010101010010001010101010100101101001010101010100100010101010101001011010010101010101001000101010101010010110100101010101010010001010101010100101101001011011000101011010101001010101010101010101010101010101001100101010101010100101010010101001010101010010101001001010010101010101010101010101010011001101001'); delay(5000); clrscr; delay(3000); writeln('DDOS-атака прошла успешно!') end
  else begin writeln('Команда введена неверно!'); delay(5000); textcolor(red); writeln('Вас вычислили!'); exit; end;
delay(5000);
textcolor(green);
writeln('Отлично! Теперь заразите сайт!');
writeln('Чтобы заразить сайт введите infect');
readln(zarazit);
  if zarazit=infect then begin write('Начало заражения'); delay(1000); write('.'); delay(1000); write('.'); delay(1000); writeln('.'); delay(5000); writeln('Отлично! Сайт заражён!'); end
  else begin writeln('Команда введена неверно!'); delay(5000); textcolor(red); writeln('Вас вычислили!'); exit; end;
textcolor(green);
writeln('Чтобы захватить сайт, должны быть заражены более 100 человек!');
writeln('Введите infected чтобы посмотреть количество заражённых');
readln(infected3);
infected:=random(100,500);
  if infected3=infected2 then begin write('Загрузка данных'); delay(1000); write('.'); delay(1000); write('.'); delay(1000); writeln('.'); delay(5000); writeln('Данные получены! Количество заражённых: ',infected); delay(5000); clrscr; end
  else begin writeln('Команда введена неверно!'); delay(5000); textcolor(red); writeln('Вас вычислили!'); exit; end;
delay(5000);
writeln('Отлично! Вы успешно заразили сайт vk.com');
delay(3000);
writeln('Вы настоящий хакер!');
delay(5000);
clrscr;
writeln('Спасибо за игру :)');
end.