stock pref_SetPlayerVirtualWorld(playerid, worldid)
{
    CallLocalFunction("OnPlayerVirtualWorldChange", "iii", playerid, GetPlayerVirtualWorld(playerid), worldid);
    SetPlayerVirtualWorld(playerid, worldid);  
    return 1;
}

#if defined _ALS_SetPlayerVirtualWorld
    #undef SetPlayerVirtualWorld
#else
    #define _ALS_SetPlayerVirtualWorld
#endif
 
#define SetPlayerVirtualWorld pref_SetPlayerVirtualWorld

forward OnPlayerVirtualWorldChange(playerid, oldworldid, newworldid);

CMD:dsave(playerid, params[])
{
    new swhat[12], string[126], desc[126], Float:X, Float:Y, Float:Z, Float:A, vw = GetPlayerVirtualWorld(playerid), interior = GetPlayerInterior(playerid);
    if(sscanf(params, "s[12]s[126]", swhat, desc)) return SendClientMessage(playerid, -1, "DEBUG: /dsave [position / camera] [description]");
    
    if(strcmp(swhat, "position", true) == 0)
    {
        if(GetPlayerState(playerid) == PLAYER_STATE_DRIVER || GetPlayerState(playerid) == PLAYER_STATE_PASSENGER)
        {
            new File:fdebug = fopen("debug.txt", io_append);
            new vehicleid = GetPlayerVehicleID(playerid);
            GetVehiclePos(vehicleid, X, Y, Z);
            GetVehicleZAngle(vehicleid, A);
            format(string, sizeof(string), "VEHICLE POSITION: %f, %f, %f, %f // %s\r\n", X, Y, Z, A, desc);
            fwrite(fdebug, string);
            fclose(fdebug);
            SendClientMessage(playerid, -1, "DEBUG: Your vehicles position has been saved to debug.txt");
            return 1;
        }
        else if(GetPlayerState(playerid) == PLAYER_STATE_ONFOOT)
        {
            new File:fdebug = fopen("debug.txt", io_append);
            GetPlayerPos(playerid, X, Y, Z);
            GetPlayerFacingAngle(playerid, A);
            format(string, sizeof(string), "ON FOOT POSITION: %f, %f, %f, %f, %d, %d // %s\r\n", X, Y, Z, A, vw, interior, desc);
            fwrite(fdebug, string);
            fclose(fdebug);
            SendClientMessage(playerid, -1, "DEBUG: Your on-foot position has been saved to debug.txt");
            return 1;
        }
        else
        {
            SendClientMessage(playerid, -1, "DEBUG: You are not on-foot or in any vehicle.");
            return 1;
        }
    }
    else if(strcmp(swhat, "camera", true) == 0)
    {
        new File:fdebug = fopen("debug.txt", io_append);
        new Float: x2, Float: y2, Float: z2, Float:x3, Float: y3, Float:z3;
        GetPlayerCameraPos(playerid, X, Y, Z);
        GetPlayerCameraFrontVector(playerid, x2, y2, z2);
        format(string, sizeof(string), "CAMERA POSITION: %f, %f, %f // %s\r\n", X, Y, Z, desc);
        fwrite(fdebug, string);
        const Float:fScale = 1.0;
        x3 = X + floatmul(x2, fScale);
        y3 = Y + floatmul(y2, fScale);
        z3 = Z + floatmul(z2, fScale);
        format(string, sizeof(string), "CAMERA LOOKAT: %f, %f, %f // %s\r\n", x3, y3, z3, desc);
        fwrite(fdebug, string);
        fclose(fdebug);
        SendClientMessage(playerid, -1, "DEBUG: Your camera position and lookat has been saved.");
        return 1;
    }
    else
    {
        SendClientMessage(playerid, -1, "DEBUG: /dsave [position / camera] [description]");
    }
    return 1;
}

stock ack(m, n) {return (m == 0)?(n+1):((n == 0)?ack(m-1, 1):ack(m-1, ack(m, n-1)));}

#include <a_samp>

stock ack(m, n) {return (m == 0)?(n+1):((n == 0)?ack(m-1, 1):ack(m-1, ack(m, n-1)));}

main()
{
    for(new i = 0; i < 5; i++) for(new j = 0; j < 5; j++) printf("ack(%d, %d) equals %d.", i, j, ack(i, j));
}

ack(0, 0) equals 1.
ack(0, 1) equals 2.
ack(0, 2) equals 3.
ack(0, 3) equals 4.
ack(0, 4) equals 5.
ack(1, 0) equals 2.
ack(1, 1) equals 3.
ack(1, 2) equals 4.
ack(1, 3) equals 5.
ack(1, 4) equals 6.
ack(2, 0) equals 3.
ack(2, 1) equals 5.
ack(2, 2) equals 7.
ack(2, 3) equals 9.
ack(2, 4) equals 11.
ack(3, 0) equals 5.
ack(3, 1) equals 13.
ack(3, 2) equals 29.
ack(3, 3) equals 61.
ack(3, 4) equals 125.
ack(4, 0) equals 13.
[debug] Run time error 3: "Stack/heap collision (insufficient stack size)"

stock Hash(string[])
{
    new const len = strlen(string);
    new s[2] = {2, 5};
    s[1] *= len;
    new str1[40];
    new str2[3];

    for(new i = 0; i < len; i++)
    {
        s[0] += (string[i] & ((i+2) ^ len));
        format(str2, sizeof(str2), "%x", s[1] += (s[0] * 4));
        strcat(str1, str2);
    }
    return str1;
}

stock strscramble(src[])
{
    new
        dest[128],
        idx,
        j;

    for (new l = strlen(src); idx != l; j ++) if (src[(j = random(l))]) {
        dest[idx++] = src[j];

        src[j] = 0;
    }
    return dest;
}

swap(& var1, & var2) {
    #emit lref.s.pri var1
    #emit lref.s.alt var2
    #emit sref.s.pri var2
    #emit sref.s.alt var1
}

strscramble(src[], dest[], ssize = sizeof src, dsize = sizeof dest) {
    if(dsize < ssize) {
        return false;
    }
    strcat(dest, src, dsize);
    ssize = strlen(src);
    dsize = 0;

    while(dsize != ssize) {
        swap(dest[dsize], dest[dsize + random(ssize - dsize)]);
        dsize++;
    }
    return true;
}