<?

define('_IN_JOHNCMS', 1);
$rootpath = '../../';
require_once ($rootpath."incfiles/core.php");
require_once ($rootpath."incfiles/head.php");
echo "<div class='phdr'>Письмо Психиатору</div>";


function form()
{
	$file = file_get_contents("temp/psychiatrist.tmp");
	$out = intval($file);
	echo '<form method="post" action="psychiatrist.php"><div class="gmenu">
1. Как твое имя?<br/>
<input type="text" name="1" value=""/><br/>
2. Сколько тебе лет?<br/>
<input type="text" name="2" value=""/><br/>
3. Во сколько ты ложишься спать?<br/>
<input type="text" name="3" value=""/><br/>
4. Что за обувь ты носишь?<br/>
<input type="text" name="4" value=""/><br/>
5. Назови какого-нибудь мультяшного героя:<br/>
<input type="text" name="5" value=""/><br/>
6. Любая фраза:<br/>
<input type="text" name="6" value=""/><br/>
7. Самое подходящее имя для проститутки?<br/>
<input type="text" name="7" value=""/><br/>
8. Какое ты знаешь ругательство? Ругнись!<br/>
<input type="text" name="8" value=""/><br/>
9. Что отрывает взрывом гранаты?<br/>
<input type="text" name="9" value=""/><br/>
10. Какое-нибудь строение?<br/>
<input type="text" name="10" value=""/><br/>
11. Профессия<br/>
<input type="text" name="11" value=""/><br/>
12. Что произоидет с бутылкой, если ей ударить о стену?<br/>
<input type="text" name="12" value=""/><br/>
13. Элемент зимней одежды?<br/>
<input type="text" name="13" value=""/><br/>
14. Каково обычно после большой пьянки?<br/>
<input type="text" name="14" value=""/><br/>
15. Чего не хватает в твоем доме?<br/>
<input type="text" name="15" value=""/><br/>
16. Бытовой предмет:<br/>
<input type="text" name="16" value=""/><br/>
17. Любой "изм" (напр. коммунизм).<br/>
<input type="text" name="17" value=""/><br/>
18. Назови какого-нибудь актера?<br/>
<input type="text" name="18" value=""/><br/>
19. Самый старший член семьи?<br/>
<input type="text" name="19" value=""/><br/>
20. Какое-нибудь число (1-10)?<br/>
<input type="text" name="20" value=""/><br/></div><div class="bmenu">
<input type="submit" name="submit" value="Написать :)"/></div>
</form><div class="gmenu">Написали: '.$out.' раз(a)</div>';
}


if(isset ($_POST['submit']))
{
	for($i = 1; $i < 21; $i++)
	{
		$text[$i] = functions :: checkout(mb_substr($_POST[$i], 0, 20), 1, 1);
	}
	$file = file_get_contents("temp/psychiatrist.tmp");
	$out = intval($file + 1);
	echo '<div class="gmenu">Здравствуйте дорогой психиатр. Меня зовут '.$text[1].'.<br />
Знаете, у меня возникла странная сексуальная проблема и я хочу поведать Вам о ней.<br />
 Итак слушайте. Однажды в '.$text[3].' часов, я вышел из дому и пошел гулять.<br />
  Из темных переулков задувал сильный ветер и вдруг я увидел ее, ее звали '.$text[7].' и она была просто великолепна!<br />
- '.$text[8].'! - воскликнул я и потерял '.$text[9].'.<br />
Очнулся я на большой кровати, на ногах моих были , '.$text[4].'.<br />
 На письменном столе горела свеча, а за окном догорала '.$text[10].', подожженная проклятыми '.$text[11].' и мое сердце сейчас '.$text[12].'.<br />
Далее все происходило быстро - она вышла из ванной, медленно снимая с себя '.$text[13].' и обнажила свою превосходную грудь.<br />
- Ах ты мой маленький '.$text[5].', - сказала она и подошла ближе.<br />
Мне стало '.$text[14].'.<br />
 В последний момент я успел взглянуть в ее глаза цвета '.$text[15].' и опять отбросил '.$text[9].'. Тишина.<br />
  Вдруг сквозь сон слышу: "Бросишь мне '.$text[2].' палок, а?"<br />
Я не знал, что мне и говорить, а только и сказал: "'.$text[6].'".<br />
 Далее она начала целовать мне живот и спускалась все ниже и ниже... О нет!<br />
  Она дошла до этого...<br />
   В ее руке сверкнула '.$text[16].', зачем?<br />
    Может это новое направление '.$text[17].', однако времени для рассуждений было мало.<br />
	 Я вскочил с кровати и увидел фотографию: она голая с голым мужиком.<br />
	  А мужик то этот '.$text[18].'.<br />
	   И к тому же он ее '.$text[19].'.<br />
	    ВО извращенка, я это сразу понял.<br />
		 Итак, я вскочил на подоконник. КАКОЙ УЖАС!!!<br />
		  Я стоял на карнизе '.$text[20].'-го этажа.<br />
		   Я закрыл глаза и прыгнул!<br />
		   Я помню свой жалосливый крик... Я орал во всю глотку: "'.$a7.'"!<br /> К счастью все обошлось.<br />
		   Но мне до сих пор мерещится '.$text[7].'.<br />Подскажите доктор что мне делать?<br />
С уважением к товарищу психиатру, '.$text[1].'.</div>';
	//Запись
	$fp_send = fopen("temp/psychiatrist.tmp", "w");
	flock($fp_send, LOCK_EX);
	fputs($fp_send, $out);
	flock($fp_send, LOCK_UN);
	fclose($fp_send);
	chmod("temp/psychiatrist.tmp", 0666);
}
else
{
	echo '<div class="rmenu">Пишите вразумительные ответы, иначе результат не будет иметь смысла и вы зря потратите время.</div>';
	form();
}
echo '<div class="menu"><a href="../?act=send">Еще письма</a><br /><a href="../?">В раздел</a></div>';
require_once ($rootpath."incfiles/end.php");

?>