<!--This Document is generated by GameMaker, if you edit it by hand then you do so at your own risk!-->
<object>
  <spriteName>s0</spriteName>
  <solid>0</solid>
  <visible>-1</visible>
  <depth>0</depth>
  <persistent>0</persistent>
  <parentName>o_player_main</parentName>
  <maskName>s_block1_c</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>move = 0;
turn1 = 0;
turn2 = 0;
rot1 = 180;
rot2 = 180;
alarm[9] = 2;
</string>
          </argument>
        </arguments>
      </action>
    </event>
    <event eventtype="2" enumb="9">
      <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>///engine sound
alarm[9] = 4;
audio_play_sound(w_engine, 0, 0);
switch (move)
{
    case 0: audio_sound_pitch(w_engine, 1.5); break;
    case 1: audio_sound_pitch(w_engine, 2); break;
    case 2: audio_sound_pitch(w_engine, 2.2); break;
    default: break;
}
</string>
          </argument>
        </arguments>
      </action>
    </event>
    <event eventtype="2" 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>///up, AI
turn2 = 0;
rot2 = (round(rot2/90))*90;
if rot2 &lt; 0 rot2 += 360;
if rot2 &gt;= 360 rot2 -= 360;
</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>///stop moving
ss_grid();
move = 0;
turn1 = 0;
</string>
          </argument>
        </arguments>
      </action>
    </event>
    <event eventtype="3" 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>depth = point_distance(x, y, room_width/2, room_height/2);
if turn1 == -1 rot1 += 9;
if turn1 == 1 rot1 -= 9;
if turn2 == -1 rot2 += 9;
if turn2 == 1 rot2 -= 9;
if move == 1
{
    x += lengthdir_x(4, rot1);
    y += lengthdir_y(4, rot1);
};
if collision_point(x, y, o_printer, 0, 1) with o_shar instance_destroy();
</string>
          </argument>
        </arguments>
      </action>
    </event>
    <event eventtype="5" enumb="87">
      <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 move == 0
{
    if rot1 == 270
    {
        turn1 = choose(-1, 1);
        turn2 = turn1;
        alarm[0] = 20;
        alarm[1] = 20;
        move = 2;
        exit;
    };
    if rot1 = 0
    {
        turn1 = -1;
        turn2 = -1;
        alarm[0] = 10;
        alarm[1] = 10;
        move = 2;
        exit
    };
    if rot1 = 90
    {
        if !collision_point(x+lengthdir_x(40, rot1), y+lengthdir_y(40, rot1), o_busy, 0, 1)
        {
            move = 1;
            alarm[0] = 10;
        };
        exit;
    };
    if rot1 = 180
    {
        turn1 = 1;
        turn2 = 1;
        alarm[0] = 10;
        alarm[1] = 10;
        move = 2;
        exit;
    };
};
</string>
          </argument>
        </arguments>
      </action>
    </event>
    <event eventtype="5" enumb="83">
      <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 move == 0
{
    if rot1 == 90
    {
        turn1 = choose(-1, 1);
        turn2 = turn1;
        alarm[0] = 20;
        alarm[1] = 20;
        move = 2;
        exit;
    };
    if rot1 = 180
    {
        turn1 = -1;
        turn2 = -1;
        alarm[0] = 10;
        alarm[1] = 10;
        move = 2;
        exit
    };
    if rot1 = 270
    {
        if !collision_point(x+lengthdir_x(40, rot1), y+lengthdir_y(40, rot1), o_busy, 0, 1)
        {
            move = 1;
            alarm[0] = 10;
        };
        exit;
    };
    if rot1 = 0
    {
        turn1 = 1;
        turn2 = 1;
        alarm[0] = 10;
        alarm[1] = 10;
        move = 2;
        exit;
    };
};
</string>
          </argument>
        </arguments>
      </action>
    </event>
    <event eventtype="5" enumb="68">
      <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 move == 0
{
    if rot1 == 180
    {
        turn1 = choose(-1, 1);
        turn2 = turn1;
        alarm[0] = 20;
        alarm[1] = 20;
        move = 2;
        exit;
    };
    if rot1 = 270
    {
        turn1 = -1;
        turn2 = -1;
        alarm[0] = 10;
        alarm[1] = 10;
        move = 2;
        exit
    };
    if rot1 = 0
    {
        if !collision_point(x+lengthdir_x(40, rot1), y+lengthdir_y(40, rot1), o_busy, 0, 1)
        {
            move = 1;
            alarm[0] = 10;
        };
        exit;
    };
    if rot1 = 90
    {
        turn1 = 1;
        turn2 = 1;
        alarm[0] = 10;
        alarm[1] = 10;
        move = 2;
        exit;
    };
};
</string>
          </argument>
        </arguments>
      </action>
    </event>
    <event eventtype="5" enumb="65">
      <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 move == 0
{
    if rot1 == 0
    {
        turn1 = choose(-1, 1);
        turn2 = turn1;
        alarm[0] = 20;
        alarm[1] = 20;
        move = 2;
        exit;
    };
    if rot1 = 90
    {
        turn1 = -1;
        turn2 = -1;
        alarm[0] = 10;
        alarm[1] = 10;
        move = 2;
        exit
    };
    if rot1 = 180
    {
        if !collision_point(x+lengthdir_x(40, rot1), y+lengthdir_y(40, rot1), o_busy, 0, 1)
        {
            move = 1;
            alarm[0] = 10;
        };
        exit;
    };
    if rot1 = 270
    {
        turn1 = 1;
        turn2 = 1;
        alarm[0] = 10;
        alarm[1] = 10;
        move = 2;
        exit;
    };
};
</string>
          </argument>
        </arguments>
      </action>
    </event>
    <event eventtype="5" enumb="40">
      <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 move == 0
{
    if rot1 == 90
    {
        turn1 = choose(-1, 1);
        turn2 = turn1;
        alarm[0] = 20;
        alarm[1] = 20;
        move = 2;
        exit;
    };
    if rot1 = 180
    {
        turn1 = -1;
        turn2 = -1;
        alarm[0] = 10;
        alarm[1] = 10;
        move = 2;
        exit
    };
    if rot1 = 270
    {
        if !collision_point(x+lengthdir_x(40, rot1), y+lengthdir_y(40, rot1), o_busy, 0, 1)
        {
            move = 1;
            alarm[0] = 10;
        };
        exit;
    };
    if rot1 = 0
    {
        turn1 = 1;
        turn2 = 1;
        alarm[0] = 10;
        alarm[1] = 10;
        move = 2;
        exit;
    };
};
</string>
          </argument>
        </arguments>
      </action>
    </event>
    <event eventtype="5" enumb="39">
      <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 move == 0
{
    if rot1 == 180
    {
        turn1 = choose(-1, 1);
        turn2 = turn1;
        alarm[0] = 20;
        alarm[1] = 20;
        move = 2;
        exit;
    };
    if rot1 = 270
    {
        turn1 = -1;
        turn2 = -1;
        alarm[0] = 10;
        alarm[1] = 10;
        move = 2;
        exit
    };
    if rot1 = 0
    {
        if !collision_point(x+lengthdir_x(40, rot1), y+lengthdir_y(40, rot1), o_busy, 0, 1)
        {
            move = 1;
            alarm[0] = 10;
        };
        exit;
    };
    if rot1 = 90
    {
        turn1 = 1;
        turn2 = 1;
        alarm[0] = 10;
        alarm[1] = 10;
        move = 2;
        exit;
    };
};
</string>
          </argument>
        </arguments>
      </action>
    </event>
    <event eventtype="5" 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 move == 0
{
    if rot1 == 270
    {
        turn1 = choose(-1, 1);
        turn2 = turn1;
        alarm[0] = 20;
        alarm[1] = 20;
        move = 2;
        exit;
    };
    if rot1 = 0
    {
        turn1 = -1;
        turn2 = -1;
        alarm[0] = 10;
        alarm[1] = 10;
        move = 2;
        exit
    };
    if rot1 = 90
    {
        if !collision_point(x+lengthdir_x(40, rot1), y+lengthdir_y(40, rot1), o_busy, 0, 1)
        {
            move = 1;
            alarm[0] = 10;
        };
        exit;
    };
    if rot1 = 180
    {
        turn1 = 1;
        turn2 = 1;
        alarm[0] = 10;
        alarm[1] = 10;
        move = 2;
        exit;
    };
};
</string>
          </argument>
        </arguments>
      </action>
    </event>
    <event eventtype="5" enumb="37">
      <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 move == 0
{
    if rot1 == 0
    {
        turn1 = choose(-1, 1);
        turn2 = turn1;
        alarm[0] = 20;
        alarm[1] = 20;
        move = 2;
        exit;
    };
    if rot1 = 90
    {
        turn1 = -1;
        turn2 = -1;
        alarm[0] = 10;
        alarm[1] = 10;
        move = 2;
        exit
    };
    if rot1 = 180
    {
        if !collision_point(x+lengthdir_x(40, rot1), y+lengthdir_y(40, rot1), o_busy, 0, 1)
        {
            move = 1;
            alarm[0] = 10;
        };
        exit;
    };
    if rot1 = 270
    {
        turn1 = 1;
        turn2 = 1;
        alarm[0] = 10;
        alarm[1] = 10;
        move = 2;
        exit;
    };
};
</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>var xx, yy;
xx = (x - (room_width/2))/1024;
yy = (y - (room_height/2))/382;
draw_sprite_ext(s_down2, 4, x, y, 1, 1, rot1, c_black, 0.2);
draw_sprite_ext(s_up4, 5, x, y, 1, 1, rot2, c_black, 0.2);
for (i=0; i&lt;30; i+=1)
{
    if i &lt; 15 draw_sprite_ext(s_down2, i, x+(xx*i), y+(yy*i), 1, 1, rot1, make_colour_rgb(250, 200, 128), 1);
    if i &gt; 15 draw_sprite_ext(s_up4, i, x+(xx*i), y+(yy*i), 1, 1, rot2, make_colour_rgb(250, 200, 128), 1);
};
</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>
