Нашли или выдавили из себя код, который нельзя назвать нормальным,
на который без улыбки не взглянешь?
Не торопитесь его удалять или рефакторить, — запостите его на
говнокод.ру, посмеёмся вместе!
var zaxita, ataka, zaxitacomp, atakacomp, yron, yroncomp: integer;
begin
Label3.Caption := IntToStr(healt);
Label4.Caption := IntToStr(healtcomp);
If Radiobutton1.Checked = True then
begin
zaxita := 1;
yron := 3;
end;
If Radiobutton2.Checked = True then
begin
zaxita := 2;
yron := 2;
end;
If Radiobutton3.Checked = True then
begin
zaxita := 3;
yron := 1;
end;
If Radiobutton4.Checked = True then ataka := 3;
If Radiobutton5.Checked = True then ataka := 2;
If Radiobutton6.Checked = True then ataka := 1;
zaxitacomp := Random(4);
atakacomp := Random(4);
If zaxita <> atakacomp then
begin
healt := healt - yron;
Label3.Caption := IntToStr(healt);
If healt <= 0 then
begin
MessageBeep(48);
ShowMessage('Вы проиграли. Ваш труп скормят крысам!');
Close;
end;
If zaxitacomp <> ataka then
begin
healtcomp := healtcomp - ataka;
Label4.Caption := IntToStr(healtcomp);
If healtcomp <= 0 then
begin
MessageBeep(48);
ShowMessage('Вы выйграли! Поздравляю! Теперь можете разграбить своего врага! О, что это?!');
end;
end;
end;
end;
end.
Это оффлайн симулятор игры карнаж. Игра такая игра
ГК-то, конечно, добрый, но раз читаю периодически, то пообвык и говнокоды воспринимаются уже не так ярко, наверное, поэтому глаз зацепился за MessageBeep(48);
'Вы выйграли! Поздравляю! Теперь можете разграбить своего врага! О, что это?!'
Симуляция эмоции удивления? Автор, неистово прошу вас выложить где-нибудь все исходники данного чуда.
Но в то же время, если ты думаешь что всё так, а на самом деле всё не так, но ты продолжаешь думать по другому, то получается что все совсем не так, как ты задумывал в начале, выходит, что всё совсем наоборот, как должно быть, если верить тебе.
Хм, ладно. Итак, твоё утверждение не может быть ни истинным, ни ложным, как и моё (т.к. их нельзя ни подтвердить ни опровергнуть). То есть, вот что получается:
(не Истина и не Ложь) или (не Истина и не Ложь) = Ложь или Ложь = Ложь. Итог: Твоё высказывание о Delphi ложно. Fail.
А с чего ты взял, что существует именно делфи? Что вообще за слово такое — "делфи"? Почему не "кракакака" или не "блаблабла"? Если не воспринимать слова как данное изначально, можно усомниться в существовании делфи.
Спор о том, что Делфи - хуйня, ещё куда не шло, но это уже переходит все границы. Ты же сам говорил в первом посте, что быть безруким лучше, чем писать на Делфи, теперь ты утверждаешь , что Delphi не существует. Если принимать все твои слова за правду, то получается что Делфи - несуществующая хуйня. Так?
Но мы все знаем, что язык программирования Делфи существует. Это факт. Получается, что ты соврал. А значит, остальные твои слова не могут быть правдой. Как и первый пост.
> язык программирования Делфи существует
тут кагбэ мало дельфятников для участия в сраче, порождённом тем фактом, что Delphi как язык - не более чем высер отдела маркетинга Броланда
zaxitauser?
>'Вы выйграли! Поздравляю! Теперь можете разграбить своего врага!'
Не нравится?
в PSDK даже специально волшебные числа стали давать в виде 0x00000030L чтобы таким обезьянкам было труднее скопипастить
Симуляция эмоции удивления? Автор, неистово прошу вас выложить где-нибудь все исходники данного чуда.
Чего стоит аватара игрока в виде одного из стандартных фоновых рисунков Windows 7.
У МЕНЯ ОТ ЭТОГО БРАТ УМЕР
178.166.142.184
Pascal хуйня, следовательно, лучше быть безруким, чем писать на такой хуйне. Утверждение доказано.
(не Истина и не Ложь) или (не Истина и не Ложь) = Ложь или Ложь = Ложь. Итог: Твоё высказывание о Delphi ложно. Fail.
http://ru.wikipedia.org/wiki/Delphi
Разве это непрямое док-во его существования?
Там есть статья про Б-га. Но это же не значит, что Он гарантированно существует?
тут кагбэ мало дельфятников для участия в сраче, порождённом тем фактом, что Delphi как язык - не более чем высер отдела маркетинга Броланда
Go, дельфисрач!
Дельфи - истинный величайший бог говнокодерства. Все кто в него не верят - еретики. Сжеч!