[Pagalbos] dėl biznių sistemos!

[KitoOks]

C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(828) : warning 219: local variable "biz" shadows a variable at a preceding level
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(828) : warning 213: tag mismatch
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(828) : warning 205: redundant code: constant expression is zero
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(828) : error 022: must be lvalue (non-constant)
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(835) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(836) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(837) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(838) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(839) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(841) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(842) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(843) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(844) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(845) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(846) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(847) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(848) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(849) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(828) : warning 203: symbol is never used: "biz"
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(867) : warning 219: local variable "biz" shadows a variable at a preceding level
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(868) : warning 213: tag mismatch
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(868) : warning 205: redundant code: constant expression is zero
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(869) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(870) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(871) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(872) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(873) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(874) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(875) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(876) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(877) : error 032: array index out of bounds (variable "bInfo")
C:\Users\Mantas\Desktop\sf-rg.lt Mantas\gamemodes\sf-rg.pwn(878) : error 032: array index out of bounds (variable "bInfo")

Compilation aborted.Pawn compiler 3.2.3664              Copyright © 1997-2006, ITB CompuPhase


26 Errors.

 

Taigi man išlenda tokie errorai ir nežinau kaip pataisyti tą "bInfo"

 

Kodas:

Komandos:

CMD:addbiz(playerid, params[]) // Komanda sukurti versla
{
    if(zInfo[playerid][adminlvl]==0) return 0;
    new price, uzdar, Float:pPos[3], pav[50], npav[50], bQuery[45], msg[300];
    if(sscanf(params, "sdd", pav, price, uzdar)) return SendClientMessage(playerid, -1, "Komandos naudojimas: /addbiz [pavadinimas] [kaina] [uzdrbis]");
    format(npav, 50, "%s", DeleteAllLowLines(pav));
    for(new biz; biz < MAX_BUSSINESS; biz++)
    {
        format(bQuery, 45, "SELECT * FROM `bussiness` WHERE `ID` = '%d'", biz);
        mysql_query(bQuery);
        mysql_store_result();
        if(!mysql_num_rows())
        {
            bInfo[biz][bCreated] = true;
              bInfo[biz][Nupirktas] = false;
            format(bInfo[biz][savininkas], MAX_PLAYER_NAME, "Nera");
            format(bInfo[biz][bPavadinimas], 50, "%s", npav);
            bInfo[biz][Pasaulis] = GetPlayerVirtualWorld(playerid);
            GetPlayerPos(playerid, pPos[0], pPos[1], pPos[2]);
            bInfo[biz][bpX] = pPos[0];
            bInfo[biz][bpY] = pPos[1];
            bInfo[biz][bpZ] = pPos[2];
            bInfo[biz][Kaina] = price;
            bInfo[biz][uzdarbis] = uzdar;
            bInfo[biz][uzdirbta] = 0;
            format(msg, 300, "Verslo pavadinimas: {29e5ad}%s\n{ffffff}Verslas parduodamas!\nVerslo kaina: {29e5ad}%d$\n{ffffff}Į valandą: {29e5ad}%d\n{ffffff}Norint nusipirkti, spauskit {29e5ad}ALT.", bInfo[biz][bPavadinimas], bInfo[biz][Kaina],bInfo[biz][uzdarbis]);
            bInfo[biz][bussiness3D] = Create3DTextLabel(msg, -1, bInfo[biz][bpX], bInfo[biz][bpY], bInfo[biz][bpZ], 10, bInfo[biz][Pasaulis], 0);
            bInfo[biz][bussinessPickup] = CreatePickup(1314, 1, bInfo[biz][bpX], bInfo[biz][bpY], bInfo[biz][bpZ], bInfo[biz][Pasaulis]);
            format(bQuery, 45, "INSERT INTO `bussiness` (ID) VALUES ('%d')", biz);
            mysql_query(bQuery);
            format(msg, 81, "Verslas pavadinimu %s, sukurtas.", npav);
            SendClientMessage(playerid, -1, msg);
            SaveBussines(biz);
            return 1;
        }
        mysql_free_result();
    }
    return SendClientMessage(playerid, -1, "Klaida, daugiau verslu sukurti neimanoma.");
}

 

 

CMD:delbiz(playerid, params[]) // Komanda pasalinti versla
{
    if(zInfo[playerid][adminlvl]==0) return 0;
    new pav[50], npav[50], bQuery[42], msg[85];
    if(sscanf(params, "s", pav)) return SendClientMessage(playerid, -1, "Komandos naudojimas: /delbiz [pavadinimas]");
    format(npav, 50, "%s", DeleteAllLowLines(pav));
    new biz = GetBusinessIdFromName(npav);
    if(biz == -1) return SendClientMessage(playerid, -1, "Klaida, verslo su tokiu pavadinimu nera.");
    bInfo[biz][bCreated] = false;
    bInfo[biz][Nupirktas] = false;
    format(bInfo[biz][savininkas], MAX_PLAYER_NAME, "Nera");
    format(bInfo[biz][bPavadinimas], 50, "%s", "Nera");
    bInfo[biz][Pasaulis] = -1;
    bInfo[biz][bpX] = -1;
    bInfo[biz][bpY] = -1;
    bInfo[biz][bpZ] = -1;
    bInfo[biz][uzdarbis] = -1;
    bInfo[biz][uzdirbta] = -1;
    bInfo[biz][Kaina] = -1;
    Delete3DTextLabel(bInfo[biz][bussiness3D]);
    DestroyPickup(bInfo[biz][bussinessPickup]);
    format(bQuery, sizeof(bQuery), "DELETE FROM `bussiness` WHERE `ID` = '%d'", biz);
    mysql_query(bQuery);
    format(msg, 84, "Verslas pavadinimu %s, pašalintas.", npav);
    SendClientMessage(playerid, -1, msg);
    return 1;
}

Forward

 

forward BizniuUzdarbis(); // Ismoka uzdarbi
public BizniuUzdarbis()
{
    new biz, p;
    for(biz = 0; biz < MAX_BUSSINESS; biz++)
    {
        if(bInfo[biz][Nupirktas])
        {
            for(p = 0; p < MAX_PLAYERS; p++)
            {
                if(!IsPlayerConnected(p)) return 1;
                if(!strcmp(bInfo[biz][savininkas], GetPlayerNameEx(p), true))
                {
                    bInfo[biz][uzdirbta] += bInfo[biz][uzdarbis];
                    SaveBussines(biz);
                    break;
                }
            }
        }
    }
    return 1;
}

Stock:

 

stock CreateBussiness() // Uzkrauna visus verslus
{
    new bQuery[70], msg[300];
    for(new biz = 0; biz < MAX_BUSSINESS; biz++)
    {
        format(bQuery, 45, "SELECT * FROM `bussiness` WHERE `ID` = '%d'", biz);
        mysql_query(bQuery);
        mysql_store_result();
        mysql_retrieve_row();
        if(mysql_num_rows())
        {
            mysql_fetch_field_row(bQuery, "Nupirktas"); bInfo[biz][Nupirktas] = !!strval(bQuery);
            mysql_fetch_field_row(bQuery, "Savininkas"); format(bInfo[biz][savininkas], 21, "%s", bQuery);
            mysql_fetch_field_row(bQuery, "Pavadinimas"); format(bInfo[biz][bPavadinimas], 50, "%s", bQuery);
            mysql_fetch_field_row(bQuery, "Pasaulis"); bInfo[biz][Pasaulis] = strval(bQuery);
            mysql_fetch_field_row(bQuery, "X"); bInfo[biz][bpX] = floatstr(bQuery);
            mysql_fetch_field_row(bQuery, "Y"); bInfo[biz][bpY] = floatstr(bQuery);
            mysql_fetch_field_row(bQuery, "Z"); bInfo[biz][bpZ] = floatstr(bQuery);
            mysql_fetch_field_row(bQuery, "Uzdarbis"); bInfo[biz][uzdarbis] = strval(bQuery);
            mysql_fetch_field_row(bQuery, "Uzdirbta"); bInfo[biz][uzdirbta] = strval(bQuery);
            mysql_fetch_field_row(bQuery, "Kaina"); bInfo[biz][Kaina] = strval(bQuery);
            if(bInfo[biz][Nupirktas])
            {
                format(msg, 300, "{ffffff}Verslo pavadinimas: {29e5ad}%s\n{ffffff}Verslas neparduodamas!\nSavininkas: {29e5ad}%s", bInfo[biz][bPavadinimas], bInfo[biz][savininkas]);
                bInfo[biz][bussiness3D] = Create3DTextLabel(msg, -1, bInfo[biz][bpX], bInfo[biz][bpY], bInfo[biz][bpZ], 10, bInfo[biz][Pasaulis], 0);
                bInfo[biz][bussinessPickup] = CreatePickup(1314, 1, bInfo[biz][bpX], bInfo[biz][bpY], bInfo[biz][bpZ], bInfo[biz][Pasaulis]);
            }
            else
            {
                format(msg, 300, "Verslo pavadinimas: {29e5ad}%s\n{ffffff}Verslas parduodamas!\nVerslo kaina: {29e5ad}%d$\n{ffffff}Į valandą: {29e5ad}%d\n{ffffff}Norint nusipirkti, spauskit {29e5ad}ALT.", bInfo[biz][bPavadinimas], bInfo[biz][Kaina],bInfo[biz][uzdarbis]);
                bInfo[biz][bussiness3D] = Create3DTextLabel(msg, -1, bInfo[biz][bpX], bInfo[biz][bpY], bInfo[biz][bpZ], 10, bInfo[biz][Pasaulis], 0);
                bInfo[biz][bussinessPickup] = CreatePickup(1314, 1, bInfo[biz][bpX], bInfo[biz][bpY], bInfo[biz][bpZ], bInfo[biz][Pasaulis]);
            }
            bInfo[biz][bCreated] = true;
        }
        else
        {
            bInfo[biz][bCreated] = false;
            bInfo[biz][Nupirktas] = false;
            format(bInfo[biz][savininkas], MAX_PLAYER_NAME, "Nera");
            format(bInfo[biz][bPavadinimas], 50, "%s", "Nera");
            bInfo[biz][Pasaulis] = -1;
            bInfo[biz][bpX] = -1;
            bInfo[biz][bpY] = -1;
            bInfo[biz][bpZ] = -1;
            bInfo[biz][uzdarbis] = -1;
            bInfo[biz][uzdirbta] = -1;
            bInfo[biz][Kaina] = -1;
        }
        mysql_free_result();
    }
    return 1;
}

stock SaveBussines(biz) // Saugoja versla pagal jo ID
{
    new bQuery[185];
    format(bQuery, 185, "UPDATE `bussiness` SET Pavadinimas = '%s', Savininkas = '%s', Nupirktas = '%d', Kaina = '%d' WHERE ID = '%d'", bInfo[biz][bPavadinimas], bInfo[biz][savininkas], bInfo[biz][Nupirktas], bInfo[biz][Kaina], biz);
    mysql_query(bQuery);
    format(bQuery, 112, "UPDATE `bussiness` SET Pasaulis = '%d', X = '%.4f', Y = '%.4f', Z = '%.4f' WHERE ID = '%d'", bInfo[biz][Pasaulis], bInfo[biz][bpX], bInfo[biz][bpY], bInfo[biz][bpZ], biz);
    mysql_query(bQuery);
    format(bQuery, 90, "UPDATE `bussiness` SET Uzdarbis = '%d', Uzdirbta = '%d' WHERE ID = '%d'", bInfo[biz][uzdarbis], bInfo[biz][uzdirbta], biz);
    mysql_query(bQuery);
    return 1;
}

stock ArZaidejasTuriBizni(playerid) // Tikrina ar zaidejas turi versla, jeigu taip - grazina jo id, jeigu ne - grazina -1
{
    for(new biz; biz < MAX_BUSSINESS; biz++)
    {
        if(bInfo[biz][bCreated] && !strcmp(bInfo[biz][savininkas], GetPlayerNameEx(playerid), false)) return biz;
    }
    return -1;
}

stock ArZaidejasVersloSavininkas(playerid, biz) // Tikrina ar zaidejas verslo savininkas, jeigu taip - grazina 1, jeigu ne - grazina 0
{
    if(!strcmp(bInfo[biz][savininkas], GetPlayerNameEx(playerid), true)) return 1;
    return 0;
}

stock GetBusinessIdFromName(text[]) // Isgauna verslo id pagal jo pavadinima, jeigu pavadinimas neteisingas, grazina -1
{
    if(!strcmp(text, "--", true)) return -1;
    for(new biz; biz < MAX_BUSSINESS; biz++)
    {
        if(!strcmp(bInfo[biz][bPavadinimas], text, false)) return biz;
    }
    return -1;
}

stock DeleteAllLowLines(text[]) // Pasalina visus _ simbolius rastus string'e
{
    new str[51], len = strlen(text);
    for(new k; k < len; k++)
    {
        if(text[k] == '_') text[k] = ' ';
    }
    format(str, 50, "%s", text);
    return str;
}

 

 

P.S Koda emu iš aPine gamemode

[bebras]

Pradėsim nuo "Index out of bounds" nes jų daugiausia, parodyk kaip sukuri "bInfo"

[KitoOks]

new bInfo[MAX_BUSSINESS][bussinessInfo];

 

 

Štai ...