Sarg.lt scriptas ./moneta (Identiskas)

[Forumo Narys]

Taigi kazkada buvau pasidalines identisku /moneta scriptu, bet daug kas sake, kad buginos, taigi istaisiau visus galimus bugus, (spalvas patys pasikeisit), kodas: 

new PasiuleMS[MAX_PLAYERS],PasiuleMZ[MAX_PLAYERS][2],PasiuleMID[MAX_PLAYERS];
CMD:moneta(playerid,params[]){
        new ID,Suma,Simbolis[2];
        if(sscanf(params,"uis[2]",ID,Suma,Simbolis)) return SendClientMessage(playerid,-1,"/moneta V_P/ID Suma S/H");
        if(ID == INVALID_PLAYER_ID) return SendClientMessage(playerid,-1,"Tokio žaidėjo nėra");
        if(PasiuleMID[playerid] != INVALID_PLAYER_ID){
                if(PasiuleMID[playerid] == ID && PasiuleMS[playerid] == Suma){
                        new Rand = random(2),Zin[128];
                        if(Rand == 0){
                                if(!strcmp(PasiuleMZ[playerid],"s")){
                                        format(Zin,sizeof(Zin),"* Laimėjote %i €",PasiuleMS[playerid] / 100 * 80);
                                        SendClientMessage(PasiuleMID[playerid],-1,Zin);
                                        format(Zin,sizeof(Zin),"* Pralaimėjote %i €",PasiuleMS[playerid]);
                                        SendClientMessage(playerid,-1,Zin);
                                        GivePlayerMoney(PasiuleMID[playerid], PasiuleMS[playerid] / 100 * 80);
                                        GivePlayerMoney(playerid, -PasiuleMS[playerid]);
 
                                }else{
                                        format(Zin,sizeof(Zin),"* Laimėjote %i €",PasiuleMS[playerid] / 100 * 80);
                                        SendClientMessage(playerid,-1,Zin);
                                        format(Zin,sizeof(Zin),"* Pralaimėjote %i €",PasiuleMS[playerid]);
                                        SendClientMessage(PasiuleMID[playerid],-1,Zin);
                                        GivePlayerMoney(PasiuleMID[playerid], -PasiuleMS[playerid]);
                                        GivePlayerMoney(playerid, PasiuleMS[playerid] / 100 * 80);
                                }
                        }
                        if(Rand == 1){
                                if(!strcmp(PasiuleMZ[playerid],"h")){
                                        format(Zin,sizeof(Zin),"* Laimėjote %i €",PasiuleMS[playerid] / 100 * 80);
                                        SendClientMessage(PasiuleMID[playerid],-1,Zin);
                                        format(Zin,sizeof(Zin),"* Pralaimėjote %i €",PasiuleMS[playerid]);
                                        SendClientMessage(playerid,-1,Zin);
                                        GivePlayerMoney(PasiuleMID[playerid], PasiuleMS[playerid] / 100 * 80);
                                        GivePlayerMoney(playerid, -PasiuleMS[playerid]);
 
                                }else{
                                        format(Zin,sizeof(Zin),"* Laimėjote %i €",PasiuleMS[playerid] / 100 * 80);
                                        SendClientMessage(playerid,-1,Zin);
                                        format(Zin,sizeof(Zin),"* Pralaimėjote %i €",PasiuleMS[playerid]);
                                        SendClientMessage(PasiuleMID[playerid],-1,Zin);
                                        GivePlayerMoney(PasiuleMID[playerid], -PasiuleMS[playerid]);
                                        GivePlayerMoney(playerid, PasiuleMS[playerid] / 100 * 80);
                                }
                        }
 
                        return 1;
                }
        }      
        PasiuleMID[ID] = playerid;
        PasiuleMS[ID] = Suma;
        strins(PasiuleMZ[playerid],Simbolis,0);
        new Names[MAX_PLAYER_NAME],Zin[128];
        GetPlayerName(playerid,Names,24);
        if(!strcmp(Simbolis,"s")){
                format(Zin,sizeof(Zin),"%s pasiūlė jums mesti monetą, jis sako, kad atvirs skaičius, statymas %i, gali laimėti %i",Names,Suma, Suma / 100 * 80);
                SendClientMessage(ID,-1,Zin);
                format(Zin,sizeof(Zin),"Jeigu sutinki rašyk /moneta %s %i S", Names, Suma);
                SendClientMessage(ID,-1,Zin);
        }
        if(!strcmp(Simbolis,"h")){
                format(Zin,sizeof(Zin),"%s pasiūlė jums mesti monetą, jis sako, kad atvirs herbas, statymas %i, gali laimėti %i",Names,Suma, Suma / 100 * 80);
                SendClientMessage(ID,-1,Zin);
                format(Zin,sizeof(Zin),"Jeigu sutinki rašyk /moneta %s %i H", Names, Suma);
                SendClientMessage(ID,-1,Zin);
        }
        return 1;
}

P.S, testavimui padariau, kad eitu sau siulyti, tai dameskit koda po CMD:moneta:

if (ID == playerid){ SendClientMessage(playerid, RED, "* Sau siulyti negalite !"); return 1;}

--Papildau--

Greitu metu pasidalinsiu identisku GT rezimu, paskutinis atidare/uzdare vartus, bei /bukles sistema (siandien, rytoj).

Redaguota Kovo 9, 2016, nario Forumo Narys

[andriusps1]

Mldc jog dalines,pravers gal kam

[B4SSY!]

Nebus būgo kaip seniau? Kai pasiūlai monetą ir laimi arba pralaimi gali rašinėti kiek tik nori ir pinigai eina arba mažėja, tiesiog neatsišaukia laimėjimas.

[ProExpert]

Mldc, tikrai privers kaškam.

[Renaldas,]

Tikrai nėra identiškas šitas skriptas

[`Elidijus]

Kur dėt galit pasakyt? (Žalias su scriptais,tik pradėjau)

[iDeal]

Ačiū panaudosiu.

[Teemo_Captain]

Thx,kad dalinies isikelsiu pas save.

[Martynuxas]

Dėkui ! Sutaupei laiko.

Manau trūksta patikrinimo ar tas žmogus turi tiek pinigų