كود:
if place_free( x+argument0, y+argument1) and place_free( x+argument0+argument2, y+argument1+argument3)and place_free( x+argument2+argument2, y+argument3+argument3)and place_free( x+argument0+argument2+argument2, y+argument1+argument3+argument3)and place_free( x+argument2+argument2+argument2, y+argument3+argument3+argument3) and place_free( x+argument0+argument2+argument2+argument2, y+argument1+argument3+argument3+argument3) and place_free( x+argument2, y+argument3) and not place_meeting( x+argument0, y+argument1,obj_stone3)and not place_meeting( x+argument2, y+argument3,obj_stone3)and not place_meeting( x+argument0+argument2, y+argument1+argument3,obj_stone3) and not place_meeting( x+argument2+argument2, y+argument3+argument3,obj_stone3) and not place_meeting( x+argument0+argument2+argument2, y+argument1+argument3+argument3,obj_stone3) and not place_meeting( x+argument2+argument2+argument2, y+argument3+argument3+argument3,obj_stone3)
{
instance_create( x+argument0, y+argument1,argument4)
instance_create( x+argument2, y+argument3,argument4)
instance_create( x+argument0+argument2, y+argument1+argument3,argument4)
instance_create( x+argument2+argument2, y+argument3+argument3,argument4)
instance_create( x+argument0+argument2+argument2, y+argument1+argument3+argument3,argument4)
instance_create( x+argument2+argument2+argument2, y+argument3+argument3+argument3,argument4)
instance_create( x+argument0+argument2+argument2+argument2, y+argument1+argument3+argument3+argument3,argument5)
}
else
if place_free( x+argument0, y+argument1) and place_free( x+argument0+argument2, y+argument1+argument3)and place_free( x+argument2+argument2, y+argument3+argument3)and place_free( x+argument0+argument2+argument2, y+argument1+argument3+argument3) and place_free( x+argument2+argument2+argument2, y+argument3+argument3+argument3) and place_free( x+argument2, y+argument3) and not place_meeting( x+argument0, y+argument1,obj_stone3)and not place_meeting( x+argument2, y+argument3,obj_stone3)and not place_meeting( x+argument0+argument2, y+argument1+argument3,obj_stone3) and not place_meeting( x+argument2+argument2, y+argument3+argument3,obj_stone3) and not place_meeting( x+argument0+argument2+argument2, y+argument1+argument3+argument3,obj_stone3)
{
instance_create( x+argument0, y+argument1,argument4)
instance_create( x+argument2, y+argument3,argument4)
instance_create( x+argument0+argument2, y+argument1+argument3,argument4)
instance_create( x+argument2+argument2, y+argument3+argument3,argument4)
instance_create( x+argument0+argument2+argument2, y+argument1+argument3+argument3,argument4)
instance_create( x+argument2+argument2+argument2, y+argument3+argument3+argument3,argument5)
}
else
if place_free( x+argument0, y+argument1) and place_free( x+argument0+argument2, y+argument1+argument3)and place_free( x+argument2+argument2, y+argument3+argument3)and place_free( x+argument0+argument2+argument2, y+argument1+argument3+argument3) and place_free( x+argument2, y+argument3) and not place_meeting( x+argument0, y+argument1,obj_stone3)and not place_meeting( x+argument2, y+argument3,obj_stone3)and not place_meeting( x+argument0+argument2, y+argument1+argument3,obj_stone3) and not place_meeting( x+argument2+argument2, y+argument3+argument3,obj_stone3)
{
instance_create( x+argument0, y+argument1,argument4)
instance_create( x+argument2, y+argument3,argument4)
instance_create( x+argument0+argument2, y+argument1+argument3,argument4)
instance_create( x+argument2+argument2, y+argument3+argument3,argument4)
instance_create( x+argument0+argument2+argument2, y+argument1+argument3+argument3,argument5)
}
else
if place_free( x+argument0, y+argument1) and place_free( x+argument0+argument2, y+argument1+argument3)and place_free( x+argument2+argument2, y+argument3+argument3) and place_free( x+argument2, y+argument3) and not place_meeting( x+argument0, y+argument1,obj_stone3)and not place_meeting( x+argument2, y+argument3,obj_stone3)and not place_meeting( x+argument0+argument2, y+argument1+argument3,obj_stone3)
{
instance_create( x+argument0, y+argument1,argument4)
instance_create( x+argument2, y+argument3,argument4)
instance_create( x+argument0+argument2, y+argument1+argument3,argument4)
instance_create( x+argument2+argument2, y+argument3+argument3,argument5)
}
else
if place_free( x+argument0, y+argument1) and place_free( x+argument0+argument2, y+argument1+argument3) and place_free( x+argument2, y+argument3) and not place_meeting( x+argument0, y+argument1,obj_stone3)and not place_meeting( x+argument2, y+argument3,obj_stone3)
{
instance_create( x+argument0, y+argument1,argument4)
instance_create( x+argument2, y+argument3,argument4)
instance_create( x+argument0+argument2, y+argument1+argument3,argument5)
}
else
if place_free( x+argument0, y+argument1) and place_free( x+argument2, y+argument3) and not place_meeting( x+argument0, y+argument1,obj_stone3)
{
instance_create( x+argument0, y+argument1,argument4)
instance_create( x+argument2, y+argument3,argument5)
}
else
if place_free( x+argument0, y+argument1)
{
instance_create( x+argument0, y+argument1,argument5)
}
