Skriptas /moneta [sarg.lt]

[VSAG.LT]

Sveiki, taigi pasidalinsiu identišku sarg.lt scriptu iš savo projekto - /moneta. Taipogi šiomis dienomis pasidalinsiu statomų baldų sistema (identiška sarg.lt).

 

Pastebin: http://pastebin.com/CwNtKTKc

 

Arba 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;
}

Redaguota Rugsėjo 26, 2015, nario TesT

[20170823]

Žeuru .. TIkiuosi sistemų nuo sarg.lt nekopinat :DDD

[VSAG.LT]

Žeuru .. TIkiuosi sistemų nuo sarg.lt nekopinat :DDD

Visas sistemas, kurias dėsiu į savo gm paplatinsiu, kadangi jos nėra unikalios viskas iš - sarg.lt

[20170823]

Visas sistemas, kurias dėsiu į savo gm paplatinsiu, kadangi jos nėra unikalios viskas iš - sarg.lt

Tai sakyk kad KOPIJA

[VSAG.LT]

Tai sakyk kad KOPIJA

savg.lt - kapūt, tai sv kitam bumerynui

[20170823]

savg.lt - kapūt, tai sv kitam bumerynui

O ta kur ant parašo pasidaręs ? Paplatinsi T.y gm

[VSAG.LT]

O ta kur ant parašo pasidaręs ? Paplatinsi T.y gm

Užbaigsiu, ir senesnią versiją įmesiu, ten čj yra jau mafijų grobimai/gaujų zonos ir pnš

[Infernus_Justas]

Šaunuolis ačiū, laukiam kitų darbų.

[ℛøℓαᾔⅾ@﹩]

Sveikas, užėjau į šią temą ir pamačiau kodą, galvoju kažkur matytas...

Ok, bet galėjai prieš keldamas pašnekėti su manim... Na bent jau kreditus parašei.

[B4SSY!]

Hmm, yra būgas, kai tau pasiūlo mesti moneta parašai /moneta Vardas_Pavardė 10000 H, ir gali rašyti kiek nori ir tau kyla lt, vis rašo Laimėjai, tas pats yra kai pralaimi.

 

+ EINA SAU SIŪLYTI MONETĄ, ir taip pat prisibuginti lt.

Redaguota Rugsėjo 23, 2015, nario AlachAkbar-

[VSAG.LT]

Hmm, yra būgas, kai tau pasiūlo mesti moneta parašai /moneta Vardas_Pavardė 10000 H, ir gali rašyti kiek nori ir tau kyla lt, vis rašo Laimėjai, tas pats yra kai pralaimi.

 

+ EINA SAU SIŪLYTI MONETĄ, ir taip pat prisibuginti lt.

Tam padariau, nes taip testinau...

[B4SSY!]

Tam padariau, nes taip testinau...

O tai galėsi sutvarkyti ?

[VSAG.LT]

O tai galėsi sutvarkyti ?

if( pID[ playerid ] == playerid ){SendClientMessage( playerid, COLOR_RED, "* Sau siūlyti negalite!" );return 1;}

[B4SSY!]

if( pID[ playerid ] == playerid ){SendClientMessage( playerid, COLOR_RED, "* Sau siūlyti negalite!" );return 1;}

Šitą susitvarkiau, bet dar vienas yra, kai laimi moneta eina, nors ir tukstantį kartų rašyti /moneta Vardas 1000 H arba S, ir laimi pinigus.