Balkan SA:MP

PAWN skriptanje, gamemodovi, filterskripte, include fajlovi, mape, pluginovi => Razgovor u vezi PAWN - skriptanja => Temu započeo: Tong1950Po poslato April 03, 2012, 17:15:36 POSLE PODNE

Naslov: [Pomoc] Bugovi CLRP
Poruka od: Tong1950Po poslato April 03, 2012, 17:15:36 POSLE PODNE
Skripta koju koristim: CLRP - Edit
Detaljan opis problema:Iman par bugova, slusajno sam ibrisa mod od CLRP di sam popravija bugove, pa bi zelija ponono napravit novi, prvo zelim da popravim bugove, ali neznam kako jer sam zaboravija

1. Bug je: Kad neko ide u ducan i kupi nesto njemu ne oduzme novac evo komanda jedna! Tako mi svagi vraca novac
if(strcmp(cmd, "/kupi", true) == 0)
{
    if(IsPlayerConnected(playerid))
    {
if (PlayerToPoint(5.0, playerid,-29.3113,-184.1468,1003.5469)) //kiosk
{
if(BizzInfo[11][bProducts] == 0)
{
GameTextForPlayer(playerid, "~r~Nema Produkata", 5000, 1);
return 1;
}
ShowPlayerDialog(playerid, 203, DIALOG_STYLE_LIST, "{00C0FF}SuperMarket", "Mobitel 150$\nSrecka $500\nImenik $100\nKockica $10\nUpaljac $5\nCigare $30\nKondom $1\nKamera $50\nMaska $500\nSat $100\nOprema za ribolov $150\nKonop $10\nSprej $50\nPovez $10", "U redu", "Odustani");
}
else if (PlayerToPoint(5.0, playerid,2.1480,-28.0041,1003.5494)) //kiosk br 2
{
if(BizzInfo[12][bProducts] == 0)
{
GameTextForPlayer(playerid, "~r~Nema Produkata", 5000, 1);
return 1;
}
ShowPlayerDialog(playerid, 204, DIALOG_STYLE_LIST, "{00C0FF}SuperMarket", "Mobitel 150$\nSrecka $500\nImenik $100\nKockica $10\nUpaljac $5\nCigare $30\nKondom $1\nKamera $50\nMaska $500\nSat $100\nOprema za ribolov $150\nKonop $10\nSprej $50\nPovez $10", "U redu", "Odustani");
}
else if (PlayerToPoint(5.0, playerid,-28.1822,-89.2201,1003.5469)) //kiosk br 3
{
if(BizzInfo[13][bProducts] == 0)
{
GameTextForPlayer(playerid, "~r~Nema Produkata", 5000, 1);
return 1;
}
ShowPlayerDialog(playerid, 205, DIALOG_STYLE_LIST, "{00C0FF}SuperMarket", "Mobitel 150$\nSrecka $500\nImenik $100\nKockica $10\nUpaljac $5\nCigare $30\nKondom $1\nKamera $50\nMaska $500\nSat $100\nOprema za ribolov $150\nKonop $10\nSprej $50\nPovez $10", "U redu", "Odustani");
}
else if (PlayerToPoint(5.0, playerid,-22.2104,-138.0743,1003.5469)) //kiosk br 4
{
if(BizzInfo[14][bProducts] == 0)
{
GameTextForPlayer(playerid, "~r~Nema Produkata", 5000, 1);
return 1;
}
ShowPlayerDialog(playerid, 206, DIALOG_STYLE_LIST, "{00C0FF}SuperMarket", "Mobitel 150$\nSrecka $500\nImenik $100\nKockica $10\nUpaljac $5\nCigare $30\nKondom $1\nKamera $50\nMaska $500\nSat $100\nOprema za ribolov $150\nKonop $10\nSprej $50\nPovez $10", "U redu", "Odustani");
}
else if (PlayerToPoint(5.0, playerid,-30.8499,-28.5352,1003.5573)) //kiosk br 5
{
if(BizzInfo[15][bProducts] == 0)
{
GameTextForPlayer(playerid, "~r~Nema Produkata", 5000, 1);
return 1;
}
ShowPlayerDialog(playerid, 207, DIALOG_STYLE_LIST, "{00C0FF}SuperMarket", "Mobitel 150$\nSrecka $500\nImenik $100\nKockica $10\nUpaljac $5\nCigare $30\nKondom $1\nKamera $50\nMaska $500\nSat $100\nOprema za ribolov $150\nKonop $10\nSprej $50\nPovez $10", "U redu", "Odustani");
}
else if (PlayerToPoint(5.0, playerid,-23.6264,-54.9116,1003.5469)) //kiosk br 6
{
if(BizzInfo[16][bProducts] == 0)
{
GameTextForPlayer(playerid, "~r~Nema Produkata", 5000, 1);
return 1;
}
ShowPlayerDialog(playerid, 100, DIALOG_STYLE_LIST, "{00C0FF}SuperMarket", "Mobitel 150$\nSrecka $500\nImenik $100\nKockica $10\nUpaljac $5\nCigare $30\nKondom $1\nKamera $50\nMaska $500\nSat $100\nOprema za ribolov $150\nKonop $10\nSprej $50\nPovez $10", "U redu", "Odustani");
}
else
            {
        SendClientMessage(playerid, WHITE, ""COL_RED"ERROR:{FFFFFF} Ne nalazite se u "COL_RED"SuperMarketu!");
    return 1;


2. Bug je: Kad nesto kupim ili turniram auto pise mi "Mario Strikanov pokusali ste spavnati novac"
Evo kod! forward MoneyTimer();
public MoneyTimer()
{
    new username[MAX_PLAYER_NAME];
    for(new i=0; i<MAX_PLAYERS; i++)
    {
        if(IsPlayerConnected(i))
        {
            if(GetPlayerCash(i) != GetPlayerMoney(i))
            {
                ResetMoneyBar(i);//Reseta novac u originalni bar
                UpdateMoneyBar(i,GetPlayerCash(i));//Stavljanje igracevog novca na 0
                new hack = GetPlayerMoney(i) - GetPlayerCash(i);
                GetPlayerName(i,username,sizeof(username));
                new string[256];
                format(string, sizeof(string), "("rd"LecevicA{FFFFFF}!) "rd"%s {FFFFFF}je pokusao spawnati "rd"novac!", username);
ABroadCast(WHITE,string,1);
                printf("%s je pokusao spawnati $%d.", username,hack);
            }
        }
    }
}


3. Ja kupin auto, sve je u redu ja razbijem auto i explodira ja ga /v lociraj pojavi se crveni marker na mapi kad dodem do njega nema nista, taj se marker nalazija u jednom selu :S

4. Ja sam se zaposalija kao "postar" Sve je u redu onda uden u auto postara pise nemate vozacku za letjelicu tako nesto :S

Neke sam sam popravija koje znam ali ove bome neznam :S
Dio skripte:
Neke slike/video za lakse dobivanje pomoci(neobavezno):
Naslov: Odg: [Pomoc] Bugovi CLRP
Poruka od: Impulseâ„¢ poslato April 03, 2012, 17:47:41 POSLE PODNE
1.daj nam pod ondialogresponse dio taj
2.Izbrisi ga
3.Daj tu komandu
4.daj taj dio
Naslov: Odg: [Pomoc] Bugovi CLRP
Poruka od: Muhamed. poslato April 03, 2012, 19:34:06 POSLE PODNE
Ja bih ti preporucio da koristi Samsung GM ! Dobar je i koristi ZCMD..Nazalost koristi dINI,ali se moze lako prebaciti na YINI ! CLRP ti je bugovit..
Naslov: Odg: [Pomoc] Bugovi CLRP
Poruka od: Tong1950Po poslato April 04, 2012, 23:35:07 POSLE PODNE
1. Evo kod }
if(dialogid == 69)
{
    if(response)
{
if (listitem == 0 && GetPlayerMoney(playerid) > 149)
{
    if(PlayerInfo[playerid][pTraderPerk] > 0)
    {
new skill = 150 / 100;
new price = (skill)*(PlayerInfo[playerid][pTraderPerk]);
new payout = 150 - price;
        format(string, sizeof(string), "~r~-$%d", payout);
GameTextForPlayer(playerid, string, 5000, 1);
GivePlayerCash(playerid,- payout);
SBizzInfo[16][sbTill] += payout;
ExtortionSBiz(16, payout);
SBizzInfo[16][sbProducts]--;
OnPropUpdate();

    }
    else
    {
        format(string, sizeof(string), "~r~-$%d", 150);
GameTextForPlayer(playerid, string, 5000, 1);
GivePlayerCash(playerid,-150);
SBizzInfo[16][sbTill] += 150;
ExtortionSBiz(16, 150);
SBizzInfo[16][sbProducts]--;
OnPropUpdate();
    }
PlayerPlaySound(playerid, 1052, 0.0, 0.0, 0.0);
new randphone = 100000 + random(899999);//minimum 1000  max 9999
PlayerInfo[playerid][pPnumber] = randphone;
format(string, sizeof(string), "Kupili ste mobilni, vas novi broj je {FFFFFF}%d", randphone);
SendClientMessage(playerid, SVJETLOPLAVA, string);
SendClientMessage(playerid, SVJETLOPLAVA, "Ovo uvjek mozete provjeriti kucajuci {FFFFFF}/stats");
SendClientMessage(playerid, SVJETLOPLAVA, "Podsjetnik: Sada mozete kucati /help da vidite komande od telefona.");
return 1;
}


2. Sta triba izbrisat?

3. Evo kod }
else if(strcmp(x_nr,"lociraj",true) == 0)
{
    if (Carlist[playerid][Typ]!=-1)
    {
        if(cartrack[playerid] == 0)
{
new Float:x, Float:y, Float:z;
GetVehiclePos(Carlist[playerid][Carid], x, y, z);
SetPlayerCheckpoint(playerid,x,y,z, 6.0);
SendClientMessage(playerid, YELLOW, "* Lokacija tvog {FFFFFF}vozila "COL_YELLOW"je postavljena na mapi!");
cartrack[playerid] = 1;
}
else
{
    SendClientMessage(playerid, COLOR_WHITE, "Otkazano.");
}
}
else
{
    SendClientMessage(playerid, COLOR_GRAD2, "Ne posedujes vozilo!");
    return 1;
}
return 1;
}
}
return 1;
}


4. Koji da dam dijo?
Naslov: Odg: [Pomoc] Bugovi CLRP
Poruka od: ♥ BMW ♥ poslato April 05, 2012, 16:18:05 POSLE PODNE
Otidji na kraj skripte i obrisi dole ono za novac.... Znaci skroz na kraju skripte