Pascal Игра anonymouse

[Lomrix]

Написал за 1 час игру anonymouse (симулятор хакера)
Использовал самые простые функции

Автор: Я

program Anonymouse;

uses crt;

var
  mail: string;
  nick: string;
  pass: string;
  virus: string;
  viruss: string;
  virusss: string;
  admins: string;
  disk: string;
  load: string;
  vk: string;
  // admin: boolean;
  site: string;
  dos: string;
  password: integer;
  base: string;

begin
  
  delay(1000);
  writeln('Добро пожаловать в команду Anonymouse, за одно выполненное задание вы получаете 1+ опыт к вашему рангу.');
  delay(1000); 
  writeln('Чтобы выполнить задание вам нужно зарегистрироваться!');
  delay(200); 
  writeln('Введите свой ник:');
  readln(nick);
  delay(200);
  writeln('Введите свою почту:');
  readln(mail);
  delay(200);
  writeln('Введите свой пароль:');
  readln(pass);
  delay(200);
  writeln('Вы успешно зарегистрировали свой аккаунт!');
  delay(200);
  writeln('Данные от аккаунта:', ' ', nick, ' ', mail, ' ', pass);
  clrscr;
  writeln('Задание №1: создайте вирус и загрузите его на чужой компьютер.');
  writeln('Введите название вируса:');
  readln(virus);
  writeln('Отлично! Теперь надо создать вирус (P.S: s:= s + \windows\system39\hall.dll;)');
  readln(viruss);
  writeln('Ты написал первую строчку вируса осталось дописать его!(P.S: erase(f);)');
  readln(virusss);
  writeln('Поздравляем! Вирус ', virus, ' успешно создан!');
  writeln('Теперь этот вирус надо проверить на деле!');
  writeln('Внедри этот вирус в чужой компьютер.');
  writeln('Введи имя администратора жертвы.');
  readln(admins);
  clrscr;
  writeln('Теперь введи основной диск жертвы.');
  readln(disk);
  writeln('Теперь загрузи свой вирус в основной диск. (P.S windows/system35/(название вируса) ', virus);
  readln(load);
  delay(1000);
  writeln('loading.................................................................................');
  clrscr;
  delay(1000);
  writeln('Done ', load, ' / ', virus, ' / ');
  delay(1000);
  writeln('Задание выполненно!');
  writeln('Задание №2: Взломай любой сайт');
  delay(1000);
  writeln('Введите ссылку сайта:');
  readln(vk);
  delay(1000);
  writeln('Идёт проверка сайта ', vk, '........................');
  writeln('Введите путь к базе данных сайта. (P.S: phpmyadmin/database/', vk, '/)');
  readln(base);
  delay(1000);
  writeln('Список аккаунтов: (Найдите аккаунт с админкой)');
  delay(500);
  writeln('Login: Irina, Pass: 99214, User');
  delay(500);
  writeln('Login: Dima, Pass: 123123, User');
  delay(500);
  writeln('Login: Katya, Pass: 45641, User');
  delay(500);
  writeln('Login: Petya, Pass: 123123, User');
  delay(500);
  writeln('Login: Admin, Pass: 111, Adminisrator');
  delay(500);
  writeln('Login: Maki_Asher, Pass: 123123, User');
  delay(500);
  writeln('Login: Dimas, Pass: 991256214, User');
  delay(500);
  writeln('Login: Anya, Pass: 99214, User');
  delay(2000);
  clrscr;
  writeln('Теперь авторизируйтесь под аккаунтом администратора');
  writeln('Введите пароль:');
  password := 123123;
  readln(password);
  writeln('Вы авторизировались под аккаунтом администратора!');
  writeln('Поздравляю! Вы взломали сайт ', vk);
  delay(1000);
  clrscr;
  delay(300);
  writeln('Задание №3: Запустите дос атаку на любой сайт. (Финал новичка)');
  delay(1000);
  writeln('Введите ссылку сайта: ');
  readln(site);
  writeln('Введите количество дос пакетов: ');
  readln(dos);
  writeln('Отлично! Вы начили дос атаку на ', site, ' отправлено дос пакетов: ', dos);
  delay(1000);
  writeln('0201230123424328419120421847238432472342341843294723942743534892536252');
  delay(1000);
  writeln('0201230123424328419120421847238432472342341843294723942743534892536252');
  delay(1000);
  writeln('0201230123424328419120421847238432472342341843294723942743534892536252');
  delay(1000);
  writeln('0201230123424328419120421847238432472342341843294723942743534892536252');
  delay(1000);
  writeln('0201230123424328419120421847238432472342341843294723942743534892536252');
  delay(1000);
  writeln('0201230123424328419120421847238432472342341843294723942743534892536252');
  delay(1000);
  writeln('0201230123424328419120421847238432472342341843294723942743534892536252');
  delay(300);
  writeln('Сайт не отвечает!');
  writeln('Поздравляем! Вы уничтожили сайт ', site);
  delay(2000);
  writeln('SMS! Поздравляем теперь ты в нашей команде anonymouse, твой ранг "программист"!');
  writeln('Тебе будут приходить по SMS сообщение задания!');
  delay(300);
  writeln('Игра в разработке!');
  
  
end.