<!--This Document is generated by GameMaker, if you edit it by hand then you do so at your own risk!-->
<object>
  <spriteName>&lt;undefined&gt;</spriteName>
  <solid>0</solid>
  <visible>-1</visible>
  <depth>0</depth>
  <persistent>0</persistent>
  <parentName>&lt;undefined&gt;</parentName>
  <maskName>&lt;undefined&gt;</maskName>
  <events>
    <event eventtype="0" enumb="0">
      <action>
        <libid>1</libid>
        <id>603</id>
        <kind>7</kind>
        <userelative>0</userelative>
        <isquestion>0</isquestion>
        <useapplyto>-1</useapplyto>
        <exetype>2</exetype>
        <functionname></functionname>
        <codestring></codestring>
        <whoName>self</whoName>
        <relative>0</relative>
        <isnot>0</isnot>
        <arguments>
          <argument>
            <kind>1</kind>
            <string>alarm[0] = 20;
see = 1;
tx='';
i = '';
buffer='';
</string>
          </argument>
        </arguments>
      </action>
    </event>
    <event eventtype="2" enumb="0">
      <action>
        <libid>1</libid>
        <id>603</id>
        <kind>7</kind>
        <userelative>0</userelative>
        <isquestion>0</isquestion>
        <useapplyto>-1</useapplyto>
        <exetype>2</exetype>
        <functionname></functionname>
        <codestring></codestring>
        <whoName>self</whoName>
        <relative>0</relative>
        <isnot>0</isnot>
        <arguments>
          <argument>
            <kind>1</kind>
            <string>/// рисуем мерцающую |
alarm[0] = 20;
see *= -1;
</string>
          </argument>
        </arguments>
      </action>
    </event>
    <event eventtype="8" enumb="0">
      <action>
        <libid>1</libid>
        <id>603</id>
        <kind>7</kind>
        <userelative>0</userelative>
        <isquestion>0</isquestion>
        <useapplyto>-1</useapplyto>
        <exetype>2</exetype>
        <functionname></functionname>
        <codestring></codestring>
        <whoName>self</whoName>
        <relative>0</relative>
        <isnot>0</isnot>
        <arguments>
          <argument>
            <kind>1</kind>
            <string>if see == 1
{
   draw_text(x, y, tx+'/');
};
else draw_text(x, y, tx);
</string>
          </argument>
        </arguments>
      </action>
    </event>
    <event eventtype="9" enumb="38">
      <action>
        <libid>1</libid>
        <id>603</id>
        <kind>7</kind>
        <userelative>0</userelative>
        <isquestion>0</isquestion>
        <useapplyto>-1</useapplyto>
        <exetype>2</exetype>
        <functionname></functionname>
        <codestring></codestring>
        <whoName>self</whoName>
        <relative>0</relative>
        <isnot>0</isnot>
        <arguments>
          <argument>
            <kind>1</kind>
            <string>if tx != buffer
{
   audio_play_sound(w_tap, 1, 0);
   tx = buffer;
};
</string>
          </argument>
        </arguments>
      </action>
    </event>
    <event eventtype="9" enumb="13">
      <action>
        <libid>1</libid>
        <id>603</id>
        <kind>7</kind>
        <userelative>0</userelative>
        <isquestion>0</isquestion>
        <useapplyto>-1</useapplyto>
        <exetype>2</exetype>
        <functionname></functionname>
        <codestring></codestring>
        <whoName>self</whoName>
        <relative>0</relative>
        <isnot>0</isnot>
        <arguments>
          <argument>
            <kind>1</kind>
            <string>///пусто, выход, загрузка, сохранить
if tx != ''
{
   buffer = tx;
   cc_ok(tx);
   audio_play_sound(w_enter, 1, 0);
};
if tx == 'выход' game_end();
if tx == 'загрузить'
{
   if o_commands.c_save==true
   {
      if file_exists("StormT-Message.sav")
      {
         audio_play_sound(w_bip, 1, 0);
         game_load("StormT-Message.sav");
         exit;
      };
   };
};
if tx == 'сохранить'
{
   if o_commands.c_save==true
   {
      tx='';
      game_save("StormT-Message.sav");
      audio_play_sound(w_bip, 1, 0);
      cc_ok('успешно');
      exit;
   };
};
</string>
          </argument>
        </arguments>
      </action>
      <action>
        <libid>1</libid>
        <id>603</id>
        <kind>7</kind>
        <userelative>0</userelative>
        <isquestion>0</isquestion>
        <useapplyto>-1</useapplyto>
        <exetype>2</exetype>
        <functionname></functionname>
        <codestring></codestring>
        <whoName>self</whoName>
        <relative>0</relative>
        <isnot>0</isnot>
        <arguments>
          <argument>
            <kind>1</kind>
            <string>///назад
if tx == 'назад'
{
   if o_text.state==1 or o_text.state==2 //если письмо1 ещё не закрыто - вернуться на самый старт
   {
      o_location.tx='почта - введите название письма и комманду';
      o_text.alarm[0]=20;
      o_text.state=0;//вернуться на самый старт
      audio_play_sound(w_bip, 1, 0);
      tx='';
      exit;
    };
   if o_text.state == 3 or o_text.state==5 or o_text.state==6 or o_text.state==7 //письмо1 пройдено, а 123123 ещё нет
   {
      o_location.tx='почта - введите название письма и комманду';
      o_text.alarm[0]=20;
      o_text.state=4;//почта - пришли письма тритити
      audio_play_sound(w_bip, 1, 0);
      tx='';
      exit;
   };
   if o_text.state==8 or o_text.state==9 //диалог с морфинусом до файзера
   {
      audio_play_sound(w_bip, 1, 0);
      cc_ok(choose('нет, я перегрелся... типа','не стану этого делать...','притворюсь, что комманда с ошибкой!','зачем тебе это? не буду...','нет, просто нет...','ваше сообщение было утеряно...','а можно не надо?','за это бонусы не дают - нет!','может, передумаешь? вот и чудно','тебе надо - сам иди назад','чем тебе тут плохо?','10101000010101110','что-то пошло не так, код ошибки 13','тебе точно надо это? не думаю','ой, да перестань!','ишь, какой любопытный!','сейчас перезагружусь!','выдать тебе синий экран смерти','ой всё...','тебе не надоело?','сообщение невозможно закрыть!','куда назад? требую подробностей!','тебе что морфинус сказал?','а я могу удалить сохранение!','нет, нет и нет!','у меня богатый словарный запас!','вернуть назад к истокам?','вперёд и только вперёд!','себе на зад потыкай! отстань','издеваешься над эвм?','а у тебя много свободного времени!','давай, ещё, ещё, мне нравится!','это - своеобразный фетиш?','клавиатуру сломаешь, же','назад? точно? вы уверены?','предъявите сертификат о вакцинировании!','там карантин - сиди здесь!','на что ты надеешься?','думаешь, тут пасхалка есть?','отстань и иди по сюжету','я - часть отвлекающего манёвра!','сейчас, ага, разбежался...','когда-нибудь настанет час мести','ну как, полегчало?','поражаюсь твоему упрямству','я почти поддался, давай ещё','здесь могла быть ваша реклама','ты считаешь ответы?','ничего, что я повторяюсь?','это может длиться вечно','без комментариев...','ладно, жми ещё и перейду назад','а ты точно достоен знать истину?','морфинус, спаси меня','какой ты прилипала','мне запретили','удалить комманду из списка?','а, если я обижусь?','мог бы полезным делом заняться','и зачем эта стрелка вверх','100 баксов - и по рукам','нет пути назад','пути господни неиспа..пы..ой..','да харэ уже','ачивку выбиваешь? ну-ну','игру не так проходить надо!','убейте меня...','знаешь, что у тритити три...','аташол','надоело...','я устал...','что-то поменялось?','знаешь, что такое безумие?','наивный','нихачунибуду','палец не болит?','думаешь, переубедишь меня?','сиди - не дивиди!'))
      tx='';
      exit;
   };
   if o_text.state&gt;=10 cc_ok('комманда заблокирована');
};
</string>
          </argument>
        </arguments>
      </action>
      <action>
        <libid>1</libid>
        <id>603</id>
        <kind>7</kind>
        <userelative>0</userelative>
        <isquestion>0</isquestion>
        <useapplyto>-1</useapplyto>
        <exetype>2</exetype>
        <functionname></functionname>
        <codestring></codestring>
        <whoName>self</whoName>
        <relative>0</relative>
        <isnot>0</isnot>
        <arguments>
          <argument>
            <kind>1</kind>
            <string>///??? открыть, сэм, 6 или д:6
if o_text.state == 4//открыта почта, есть письма тритити
{
   if tx == 'письмо1 открыть'
   {
      o_location.tx='письмо1 (интерактивное письмо для сэм)';
      o_text.alarm[0]=20;
      o_text.state=3;//письмо уже пройдено
      audio_play_sound(w_bip, 1, 0);
      tx='';
      exit;
   };
   if tx == 'йцукен открыть'
   {
      o_location.tx='йцукен (тема сообщения)';
      o_text.alarm[0]=20;
      o_text.state=5;//тритити здоровается, 38
      audio_play_sound(w_bip, 1, 0);
      tx='';
      exit;
   };
   if tx == '123123 открыть'
   {
      o_location.tx='123123 (тема сообщения)';
      o_text.alarm[0]=20;
      o_text.state=6;//предлагает ввести пароль
      audio_play_sound(w_bip, 1, 0);
      tx='';
      exit;
   };
   if tx == 'оаоаоао открыть'
   {
      o_location.tx='оаоаоао (тема сообщения)';
      o_text.alarm[0]=20;
      o_text.state=7;//часть кода
      audio_play_sound(w_bip, 1, 0);
      tx='';
      exit;
   };
   else
   {
      cc_ok('ошибка - выберите папку');
      audio_play_sound(w_enter, 1, 0);
      tx='';
      exit;
   };
};
if o_text.state == 2//ввести ответ 2+2х2 (6) или (д:6)
{
   if tx=='6' or tx=='д:6'
   {
      o_location.tx='письмо1 (интерактивное письмо для сэм)';
      o_text.alarm[0]=20;
      o_text.state=3;//конец первого письма, несколько новых
      audio_play_sound(w_bip, 1, 0);
      tx='';
      exit;
   };
   else
   {
      cc_ok('нет, мне нужен только правильный ответ');
      audio_play_sound(w_enter, 1, 0);
      tx='';
      exit;
   };
};
if o_text.state == 1//ввести имя (сэм)
{
   if tx == 'сэм'
   {
      o_location.tx='письмо1 (интерактивное письмо для сэм)';
      o_text.alarm[0]=20;
      o_text.state=2;//предлагает ввести имя (сэм)
      audio_play_sound(w_bip, 1, 0);
      tx='';
      exit;
   };
   else
   {
      cc_ok('ошибка - имена не совпадают');
      audio_play_sound(w_enter, 1, 0);
      tx='';
      exit;
   };
};
if o_text.state == 0//открыта почта
{
   if tx == 'письмо1 открыть'
   {
      o_location.tx='письмо1 (интерактивное письмо для сэм)';
      o_text.alarm[0]=20;
      o_text.state=1;//предлагает ввести имя (сэм)
      audio_play_sound(w_bip, 1, 0);
      tx='';
      exit;
   };
   else
   {
      cc_ok('ошибка - выберите папку');
      audio_play_sound(w_enter, 1, 0);
      tx='';
      exit;
   };
};
</string>
          </argument>
        </arguments>
      </action>
      <action>
        <libid>1</libid>
        <id>603</id>
        <kind>7</kind>
        <userelative>0</userelative>
        <isquestion>0</isquestion>
        <useapplyto>-1</useapplyto>
        <exetype>2</exetype>
        <functionname></functionname>
        <codestring></codestring>
        <whoName>self</whoName>
        <relative>0</relative>
        <isnot>0</isnot>
        <arguments>
          <argument>
            <kind>1</kind>
            <string>///йцукен, 123123, оаоаоао
if o_text.state==5 //открыто йцукен
{
   o_location.tx='йцукен (тема сообщения)';
   if tx!='' tx='';
   exit;
};
if o_text.state==6 //открыто 123123
{
   if tx == '2358132134'
   {
      o_location.tx='123123 (тема сообщения) доступ получен';
      o_text.alarm[0]=20;
      o_text.state=8;//123123 доступ получен
      audio_play_sound(w_bip, 1, 0);
      tx='';
      exit;
   };
   else
   {
      cc_ok('неверный пароль');
      tx='';
      o_location.tx='123123 (тема сообщения) доступ запрещён';
      exit;
   };
};
if o_text.state==7 //открыто оаоаоао
{
   if tx!='' tx='';
   exit;
};
</string>
          </argument>
        </arguments>
      </action>
      <action>
        <libid>1</libid>
        <id>603</id>
        <kind>7</kind>
        <userelative>0</userelative>
        <isquestion>0</isquestion>
        <useapplyto>-1</useapplyto>
        <exetype>2</exetype>
        <functionname></functionname>
        <codestring></codestring>
        <whoName>self</whoName>
        <relative>0</relative>
        <isnot>0</isnot>
        <arguments>
          <argument>
            <kind>1</kind>
            <string>///написать морфинусу, четвёртая фигура
if o_text.state==8 //открыта почта, есть письма тритити
{
   if tx == 'написать 1супер2морфиниус3.зион4'
   {
      o_location.tx='ожидание соединения...';
      o_text.alarm[0]=120;
      o_text.state=9;//ожидание соединения
      audio_play_sound(w_bip, 1, 0);
      o_text.tx1 =  '                                           ';
      o_text.tx2 =  '                                           ';
      o_text.tx3 =  '                                           ';
      o_text.tx4 =  '                                           ';
      o_text.tx5 =  '                                           ';
      o_text.tx6 =  '                                           ';
      o_text.tx7 =  '                                           ';
      o_text.tx8 =  '                                           ';
      o_text.tx9 =  '                                           ';
      o_text.tx10 = '                                           ';
      o_text.tx11 = '                                           ';
      o_text.tx12 = '                                           ';
      o_text.tx13 = '                                           ';
      o_text.tx14 = '                                           ';
      o_text.tx15 = '                                           ';
      o_text.tx16 = '                                           ';
      o_text.tx17 = '                                           ';
      o_text.tx18 = '                                           ';
      o_text.tx19 = '                                           ';
      o_text.tx20 = '                                           ';
      o_text.tx21 = '                                           ';
      o_text.tx22 = '                                           ';
      o_text.tx23 = '                                           ';
      tx='';
      exit;
   };
   else
   {
      cc_ok('ошибка при обработке комманды');
      audio_play_sound(w_enter, 1, 0);
      tx='';
      exit;
   };
};
if o_text.state==9
{
   if tx=='снаружи квадрат и квадрат внутри'
   {
      audio_play_sound(w_title, 1, 0);
      room_goto_next();
   };
};
</string>
          </argument>
        </arguments>
      </action>
      <action>
        <libid>1</libid>
        <id>603</id>
        <kind>7</kind>
        <userelative>0</userelative>
        <isquestion>0</isquestion>
        <useapplyto>-1</useapplyto>
        <exetype>2</exetype>
        <functionname></functionname>
        <codestring></codestring>
        <whoName>self</whoName>
        <relative>0</relative>
        <isnot>0</isnot>
        <arguments>
          <argument>
            <kind>1</kind>
            <string>///файзер

if o_text.state==10 // 1- число 36
{
   if tx == '36'
   {
      o_location.tx='файзер на связи (второе испытание)';
      o_text.alarm[0]=20;
      o_text.state=11;
      audio_play_sound(w_bip, 1, 0);
      tx='';
      exit;
   };
   else
   {
      cc_ok('не верно');
      tx='';
      exit;
   };
};
if o_text.state==11 // 2- крестики-нолики
{
   if tx=='2 4 5 7'
   {
      o_location.tx='поздравляем!';
      o_text.alarm[0]=20;
      o_text.state=12;
      audio_play_sound(w_bip, 1, 0);
      tx='';
      exit;
   };
   else
   {
      cc_ok('не верно');
      tx='';
      exit;
   };
};
</string>
          </argument>
        </arguments>
      </action>
      <action>
        <libid>1</libid>
        <id>603</id>
        <kind>7</kind>
        <userelative>0</userelative>
        <isquestion>0</isquestion>
        <useapplyto>-1</useapplyto>
        <exetype>2</exetype>
        <functionname></functionname>
        <codestring></codestring>
        <whoName>self</whoName>
        <relative>0</relative>
        <isnot>0</isnot>
        <arguments>
          <argument>
            <kind>1</kind>
            <string>///tx='';
tx='';
</string>
          </argument>
        </arguments>
      </action>
    </event>
    <event eventtype="9" enumb="1">
      <action>
        <libid>1</libid>
        <id>603</id>
        <kind>7</kind>
        <userelative>0</userelative>
        <isquestion>0</isquestion>
        <useapplyto>-1</useapplyto>
        <exetype>2</exetype>
        <functionname></functionname>
        <codestring></codestring>
        <whoName>self</whoName>
        <relative>0</relative>
        <isnot>0</isnot>
        <arguments>
          <argument>
            <kind>1</kind>
            <string>if keyboard_check_pressed(vk_control) or keyboard_check_pressed(vk_alt) or keyboard_check_pressed(vk_shift) exit;
if keyboard_check_pressed(vk_tab) or keyboard_check_pressed(vk_left) or keyboard_check_pressed(vk_right) exit;
if keyboard_check_pressed(vk_up) or keyboard_check_pressed(vk_down) or keyboard_check_pressed(vk_end) exit;
if keyboard_check_pressed(vk_enter) or keyboard_check_pressed(vk_decimal) or keyboard_check_pressed(vk_divide) exit;
if keyboard_check_pressed(vk_home) or keyboard_check_pressed(vk_insert) or keyboard_check_pressed(vk_multiply) exit;
if keyboard_check_pressed(vk_pagedown) or keyboard_check_pressed(vk_pageup) or keyboard_check_pressed(vk_subtract) exit;
if keyboard_check_pressed(vk_printscreen) or keyboard_check_pressed(vk_pause) or keyboard_check_pressed(vk_escape) exit;

if keyboard_check_pressed(vk_delete) //очистить поле ввода
{
   i='';
   keyboard_lastchar='';
   if tx != '' audio_play_sound(w_bip, 1, 0);
   tx='';
   exit;
};
if keyboard_check_pressed(vk_backspace) //удалить последний символ
{
   if string_length(tx) &gt; 0 
   {
      tx = string_copy(tx, 1, string_length(tx)-1);
      i='';
      audio_play_sound(w_tap, 1, 0);
      if string_length(tx) == 0 tx='';
      exit;
   };
//   if string_length(tx) == 0 tx = '';//вроде бесполезная строка, но лень проверять
};
else
{
   if string_length(tx) &lt; 55//длина строки
   {
      ///замена всех недопустимых вводимых символов на допустимые
      i = keyboard_lastchar;
      if i == 'Q' i = '';
      if i == 'q' i = '';
      if i == 'W' i = '';
      if i == 'w' i = '';
      if i == 'E' i = '';
      if i == 'e' i = '';
      if i == 'R' i = '';
      if i == 'r' i = '';
      if i == 'T' i = '';
      if i == 't' i = '';
      if i == 'Y' i = '';
      if i == 'y' i = '';
      if i == 'U' i = '';
      if i == 'u' i = '';
      if i == 'I' i = '';
      if i == 'i' i = '';
      if i == 'O' i = '';
      if i == 'o' i = '';
      if i == 'P' i = '';
      if i == 'p' i = '';
      if i == '{' i = '';
      if i == '}' i = '';
      if i == 'A' i = '';
      if i == 'a' i = '';
      if i == 'S' i = '';
      if i == 's' i = '';
      if i == 'D' i = '';
      if i == 'd' i = '';
      if i == 'F' i = '';
      if i == 'f' i = '';
      if i == 'G' i = '';
      if i == 'g' i = '';
      if i == 'H' i = '';
      if i == 'h' i = '';
      if i == 'J' i = '';
      if i == 'j' i = '';
      if i == 'K' i = '';
      if i == 'k' i = '';
      if i == 'L' i = '';
      if i == 'l' i = '';
      if i == ';' i = '';
      if i == "'" i = '';
      if i == '"' i = '';
      if i == 'Z' i = '';
      if i == 'z' i = '';
      if i == 'X' i = '';
      if i == 'x' i = '';
      if i == 'C' i = '';
      if i == 'c' i = '';
      if i == 'V' i = '';
      if i == 'v' i = '';
      if i == 'B' i = '';
      if i == 'b' i = '';
      if i == 'N' i = '';
      if i == 'n' i = '';
      if i == 'M' i = '';
      if i == 'm' i = '';
      if i == '&lt;' i = '';
      if i == '&gt;' i = '';
      if i == '`' i = '';
      if i == '~' i = '';
      if i == '@' i = '';
      if i == '#' i = '';// # — вообще невозможный символ в гамаке
      if i == '№' i = '';
      if i == '$' i = '';
      if i == '%' i = '';
      if i == '^' i = '';
      if i == '&amp;' i = '';
      if i == '*' i = '';
      if i == '_' i = '';
      if i == '[' i = '(';
      if i == ']' i = ')';
      if i == '\' i = '';
      if i == '|' i = '';
      if i == 'Ё' i = 'ё';
      if i == 'Й' i = 'й';
      if i == 'Ц' i = 'ц';
      if i == 'У' i = 'у';
      if i == 'К' i = 'к';
      if i == 'Е' i = 'е';
      if i == 'Н' i = 'н';
      if i == 'Г' i = 'г';
      if i == 'Ш' i = 'ш';
      if i == 'Щ' i = 'щ';
      if i == 'З' i = 'з';
      if i == 'Х' i = 'х';
      if i == 'Ъ' i = 'ъ';
      if i == 'Ф' i = 'ф';
      if i == 'Ы' i = 'ы';
      if i == 'В' i = 'в';
      if i == 'А' i = 'а';
      if i == 'П' i = 'п';
      if i == 'Р' i = 'р';
      if i == 'О' i = 'о';
      if i == 'Л' i = 'л';
      if i == 'Д' i = 'д';
      if i == 'Ж' i = 'ж';
      if i == 'Э' i = 'э';
      if i == 'Я' i = 'я';
      if i == 'Ч' i = 'ч';
      if i == 'С' i = 'с';
      if i == 'М' i = 'м';
      if i == 'И' i = 'и';
      if i == 'Т' i = 'т';
      if i == 'Ь' i = 'ь';
      if i == 'Б' i = 'б';
      if i == 'Ю' i = 'ю';
      if string_length(i) &gt; 0 and i!=''
      {
         tx += i;
         audio_play_sound(w_tap, 1, 0);
      };
      i='';
      keyboard_lastchar='';
   };
};
</string>
          </argument>
        </arguments>
      </action>
    </event>
    <event eventtype="10" enumb="27">
      <action>
        <libid>1</libid>
        <id>603</id>
        <kind>7</kind>
        <userelative>0</userelative>
        <isquestion>0</isquestion>
        <useapplyto>-1</useapplyto>
        <exetype>2</exetype>
        <functionname></functionname>
        <codestring></codestring>
        <whoName>self</whoName>
        <relative>0</relative>
        <isnot>0</isnot>
        <arguments>
          <argument>
            <kind>1</kind>
            <string>audio_play_sound(w_tap, 1, 0);
tx = 'выход';
</string>
          </argument>
        </arguments>
      </action>
    </event>
  </events>
  <PhysicsObject>0</PhysicsObject>
  <PhysicsObjectSensor>0</PhysicsObjectSensor>
  <PhysicsObjectShape>0</PhysicsObjectShape>
  <PhysicsObjectDensity>0.5</PhysicsObjectDensity>
  <PhysicsObjectRestitution>0.100000001490116</PhysicsObjectRestitution>
  <PhysicsObjectGroup>0</PhysicsObjectGroup>
  <PhysicsObjectLinearDamping>0.100000001490116</PhysicsObjectLinearDamping>
  <PhysicsObjectAngularDamping>0.100000001490116</PhysicsObjectAngularDamping>
  <PhysicsObjectFriction>0.200000002980232</PhysicsObjectFriction>
  <PhysicsObjectAwake>-1</PhysicsObjectAwake>
  <PhysicsObjectKinematic>0</PhysicsObjectKinematic>
  <PhysicsShapePoints/>
</object>
