stock VmKlausimas(playerid)
{
    for(new i = 0; i < 10; i++)
    {
        if(TeorijosKl[playerid][i])
        {
            if(playerDB[playerid][vm_balai] < 7)
            {
                new msg[250];
                format(msg, sizeof(msg), "• Išlaikėte teorijos egzaminą %d/10", playerDB[playerid][vm_balai]);
                SCM(playerid, YELLOW, msg);
                playerDB[playerid][vm_teor]=true;
                return 1;
            }
            else
            {
                new msg[250];
                format(msg, sizeof(msg), "• Neišlaikėte teorijos egzaminą %d/10", playerDB[playerid][vm_balai]);
                SCM(playerid, RED, msg);
                return 1;
            }
        }
    }
    new string[500];
    new rand = random(sizeof(vm_teo));
    if(!TeorijosKl[playerid][rand]) format(string, 500, vm_teo[rand][klausim]), TeorijosKl[playerid][rand]=1, playerDB[playerid][vm_klausimas]=rand;
    ShowPlayerDialog(playerid, 6540, DIALOG_STYLE_LIST, "Teorijos egzaminas", string, "Pasirinkti", "Išeiti");
    return 1;
}