Школоло / Говнокод #22677 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 father__Muldoon, (Updated )

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

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

Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

    А не использовать ли нам bbcode?

    ↑
    8
    ↓