DLLEXPORT double adler32_file(char* filename)
{
    FILE * ptrFile = fopen(filename, "rb");

    if (ptrFile == NULL) return(-1);

    fseek(ptrFile, 0, SEEK_END);
    long lSize = ftell(ptrFile);
    rewind(ptrFile);

    char * buffer = (char*)malloc(sizeof(char) * lSize);
    if (buffer == NULL) return(-2);

    size_t result = fread(buffer, 1, lSize, ptrFile);
    if (result != lSize) return(-3);

    puts(buffer);

    int buffSize = strlen(buffer);
    unsigned long s1 = 1;
    unsigned long s2 = 0;

    for (int i = 0; i <= buffSize; i++) {
        s1 = (s1 + buffer[i]) % 65521;
        s2 = (s2 + s1) % 65521;
    }

    fclose(ptrFile);
    free(buffer);
    return (s2 << 16) + s1;
}

text += "какой то текст" + "\n";
// "\n" - Переход на новую строку. В гм8 используй #

while(!place_free(x - 1, y) and place_free(x + 1, y)) x++;
while(!place_free(x + 1, y) and place_free(x - 1, y)) x--;
while(!place_free(x, y - 1) and place_free(x, y + 1)) y++;
while(!place_free(x, y + 1) and place_free(x, y - 1)) y--;

//Событие создания
boxID = noone;

//Событие столкновение с ящиком
if(boxID == noone) boxID = other;

//Шаг
if(instance_exists(boxID)){
    boxID.x = x;
    boxID.y = y;
    if(keyboard_check(vk_space)) boxID = noone;
}