/* Для Ъ */
Main()
{
begin:
do("Попытаться доказать оппоненту, что он обязан молиться, поститься, слушать Радонеж, и что он тварь дрожащая")
cond = get_answer()
if(cond == "оппонент ссылается непосредственно на библию, отмечая противоречия в ней")
goto satan
elif(cond == "оппонент ссылается только на научные источники, не принимая в расчет религиозные")
{
do("Сказать оппоненту, что у него узкий кругозор")
cond = get_answer()
if(cond == "оппонент говорит, что ненаучные источники можно игнорировать, как бездоказательные")
goto satan
elif(cond == "оппонент говорит, что библейские источники ему тоже знакомы, но они только подтверждают его позицию")
goto insult
elif(cond == "оппонент согласился ознакомиться с библией")
{
do("дать оппоненту ссылку на библию, дождаться, когда он её прочитает")
cond = get_answer()
if(cond == "оппонент говорит, что библия его не убедила")
goto satan
elif(cond == "оппонент теперь говорит, что в библии есть рациональное зерно")
goto begin
}
}
elif(cond == "оппонент ссылается на научные, библейски, философские и другие источники"
{
insult:
do("сказать оппоненту, что у него каша в голове")
cond = get_answer()
if(cond == "оппонент говорит, что вы ведете себя некорректно и делаете недопустимые замечания")
goto satan
elif(cond == "оппонент говорит, что знание нескольких источников не является признаком каши в голове, и позволяет получить более полное представление о вопросе")
{
truth:
do("сказать оппоненту, что источники противоречащие библии несут в себе зло")
cond = get_answer()
if(cond == "оппонент говорит, что у вас узкий кругозор")
goto satan
elif(cond == "оппонент начинает приводить примеры о пользе науки")
goto satan
}
elif(cond == "оппонент проигнорировал оскорбление")
{
do("смакуя свою победу, дать понять оппоненту, что таким незрелым личностям, как он, лучше всегда слушать таких мудрых людей, как вы")
cond = get_answer()
if(cond == "терпение оппонента закончилось и он указывает на вашу бестактность")
goto satan
elif(cond == "оппонент говорит, что знание нескольких источников не является признаком каши в голове, и позволяет получить более полное представление о вопросе")
goto truth
}
}
satan:
do("сказать оппоненту, что он посланник Сатаны и искушает вас, заставляя усомниться в святой вере")
do("забанить оппонента по ip")
return 0
}