DanDelatt

Moderator entry

Sep 13th, 2017
134
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. type
  2.   Player = class
  3.   private
  4.     Name: string;
  5.     SpSy: string;
  6.   end;
  7.  
  8. label 1, 2;
  9.  
  10. var
  11.   P := new Player;
  12.   W: string;
  13.  
  14. begin
  15.   P.SpSy := '>';
  16.   Println('[][][]');
  17.   Println('Loading.');
  18.   Println('Loading finished.');
  19.   Println('Language: russian.');
  20.   1: Print(P.SpSy, 'Как мне вас называть? >');
  21.   Readln(P.Name);
  22.   Println(P.SpSy, 'Здравствуйте, ', P.Name, '.');
  23.   2: Print('Хотите открыть консоль? Напишите "Да" или "Нет". >');
  24.   Readln(W);
  25.   case W of
  26.    
  27.    
  28.    
  29.     'Да':
  30.       begin
  31.         println('...Открываю консоль...');
  32.         println('Введите "//Сменить имя", что-бы сменить свое имя');
  33.         println('Введите "//Сменить приветствие", что-бы сменить символ, который бот ставит перед своей речью');
  34.         readln(W);
  35.         case W of
  36.           '//Сменить имя': goto 1;
  37.           '//Сменить приветствие':
  38.             begin
  39.               readln(P.SpSy);
  40.               println(P.SpSy, 'Так то лучше');
  41.               goto 2;
  42.             end;
  43.         end;
  44.        
  45.        
  46.       end;
  47.     'Нет': println('Ща не откроем эту консоль!');
  48.  
  49.  
  50.  
  51.  
  52.   else
  53.     begin
  54.       println('вы должны написать либо "Да", либо "Нет"!');
  55.       goto 1;
  56.      
  57.      
  58.     end;
  59.   end;
  60.  
  61.  
  62.  
  63.  
  64. end.
RAW Paste Data