1. Pascal / Говнокод #22677

    −127

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    const
  Pizduley:array[0..9] of string=('иди нахуй','не заебывай','отвали!','съебни в туман','заебал, сучандра!','пошел вон','хуесос, съебни','пидор ебучий!','гандон','шлюха!');
  Epitety:array[0..5] of string=('%s, чмырло лысое,','%s подойди, побазарим,','%s - опаньки,','%s, кароч, слушай сюда:','%s, золотой ты мой,','слышь, %s,');
var
  username, epitet:string;
  i:integer;
  s:string;
begin
  Randomize;
  i:=RandomRange(0, 10);
  username:=Trim(UpperCase(Name.text));
  if (username='') then
  begin
    MessageBox(Handle, PChar('Введите имя, в противном случае, пиздюлей будет выдан Вам!!!'), PChar('Внимание'), 48);
    Exit;
  end;

  epitet:=epitety[RandomRange(0, 6)];
  s:=Format(epitet ,[username]);

  s:=Format('%s %s ',[s, pizduley[i]]);


  messagebox(handle, pchar(S),'',64);
  end;

    Запостил: father__Muldoon, 26 Марта 2017

    Комментарии (4) RSS

    Добавить комментарий