Kreditu sistema Samp

[Andrius1993]

Kreditų sistemą [GRP]

Eini į gamemode>data>playerDB.txt

ir po tų visų

Kodas:

bool:nesamonės

rašyk:

Kodas:

kreditai,

Tada einam į pawno atsidarai savo gamemoda.

Susirandi per paiešką Callbacka:

Kodas:

public OnPlayerCommandText(playerid, cmdtext[])

{

Ir rašai po juo:

i

Kodas:

f(strcmp(cmdtext, "/kredpagalba", true)==0)//Kreditai

{

SendClientMessage(playerid,GREEN,"*Kreditu Pagalba: /kreditai - Parodo kiek turi kreditu");

SendClientMessage(playerid,GREEN,"*Kreditu Pagalba: /pirkimai - Parodo ka gali nusipirkti");

return 1;

}

if(strcmp(cmdtext, "/kreditai", true)==0)

{

new msg[128];

format(msg,sizeof(msg),"* Jus turite %i kreditu(Nori Pirkti Kazka?) /pirkimai ",playerDB[playerid][kreditai]);

SendClientMessage(playerid,0xFFFFFFAA,msg);

return 1;

}

if(strcmp(cmdtext, "/pirkimai", true)==0)

{

ShowPlayerDialog(playerid, 10000,DIALOG_STYLE_LIST,"Pirkimai","5000 XP (1800 Kreditu)\n100000LT (1700 Kreditu)\n1000000LT (10.000 Kreditu)\nVIPAS (20.000 Kreditu)\nADMINAS (70.000 Kreditu)\nSTAR NUIMIMAS (800 Kreditu)","Rinktis","Atgal");

return 1;

}

Tada susirandi:

Kodas:

public OnDialogResponse(playerid,dialogid,response,listitem,inputtext[])

{

Ir po juo rašai:

Kodas:

if(dialogid == 10000)

{

if(response)

{

if(listitem == 0)

{

if (playerDB[playerid][kreditai] < 500){SendClientMessage(playerid, RED, "* Tu neturi tiek!"); return 1;}

SendClientMessage(playerid,0xFF000090,"* Taigi atsiemiai priza 5000 XP -1800 Kreditu ");

playerDB[playerid][kreditai]-=1800;

SetPlayerScore(playerid,(GetPlayerScore(playerid)+5000));

SavePlayerData(playerid, false);

}

if(listitem == 1)

{

if (playerDB[playerid][kreditai] < 400){SendClientMessage(playerid, RED, "* Tu neturi tiek!"); return 1;}

SendClientMessage(playerid,0xFF000090,"* Taigi atsiemiai priza 100000(LT) -1700 Kreditu");

playerDB[playerid][kreditai]-=1700;

GivePlayerMoneyA(playerid,100000);

SavePlayerData(playerid, false);

}

if(listitem == 2)

{

if (playerDB[playerid][kreditai] < 10000){SendClientMessage(playerid, RED, "* Tu neturi tiek!"); return 1;}

SendClientMessage(playerid,0xFF000090,"* Taigi atsiemiai priza 1000000(LT) -10000 Kreditu");

playerDB[playerid][kreditai]-=10000;

GivePlayerMoneyA(playerid,1000000);

SavePlayerData(playerid, false);

}

if(listitem == 3)

{

if (playerDB[playerid][kreditai] < 20000){SendClientMessage(playerid, RED, "* Tu neturi tiek!"); return 1;}

SendClientMessage(playerid,0xFF000090,"* Taigi atsiemiai priza Vipa /galivip -20000 Kreditu");

playerDB[playerid][kreditai]-=20000;

playerDB[playerid][vip] = true;//Duodam vipukà :}

SavePlayerData(playerid, false);

}

if(listitem == 4)

{

if (playerDB[playerid][kreditai] < 70000){SendClientMessage(playerid, RED, "* Tu neturi tiek!"); return 1;}

SendClientMessage(playerid,0xFF000090,"* Taigi atsiemiai priza Admina /akomandos -70000 Kreditu");

playerDB[playerid][kreditai]-=70000;

playerDB[playerid][admin] = true;//Duodam admina :}

SavePlayerData(playerid, false);

}

if(listitem == 5)

{

if (playerDB[playerid][kreditai] < 800){SendClientMessage(playerid, RED, "* Tu neturi tiek!"); return 1;}

SetPlayerWantedLevel(playerid,0);

SavePlayerData(playerid, false);

}

}

return 1;

}

P.S jaigu Dialogid jau užimtas kaškur pakeisk jį į koki nors laisvą id'a.

Tada susirandi:

Kodas:

public Clear(playerid)

{

ir po juo rašai:

Kodas:

playerDB[playerid][kreditai]=0;

Viskas turi atrodyti maždaug taip:

Kodas:

public Clear(playerid)

{

print("blablabla"); //

zinutes[playerid]="--";

playerDB[playerid][admin]=false;

playerDB[playerid][vip]=false;

playerDB[playerid][superadmin]=false;

playerDB[playerid][kreditai]=0; // KREDITAI

Tuomet susirandi:

Kodas:

GameTextForPlayer(playerid,"~r~] Kraunamas Tavo zaidimas ]",50000,5);

Jis randasi kaškur po:

Kodas:

public LoadPlayerData(playerid)

{

ir pamatysi ten eilutes panašias į šitą.

Tad prie jų rašykim:

Kodas:

playerDB[playerid][kreditai] = dini_Int(file,"Kreditai");//

tada po:

Kodas:

public SavePlayerData(playerid,bool:simple)

{

Susirandi panašias eilutes kaip šita ir rašai po jom:

Kodas:

dini_IntSet(file,"Kreditai",playerDB[playerid][kreditai]);

tada susirandi:

Kodas:

SetPlayerScore(playerid,GetPlayerScore(playerid)+random(2)+1); // Xp ++

Ten kur random(2)+1 tai pas tave gali būti kitaip tad bandyk ieškotis va taip:

Kodas:

SetPlayerScore(playerid,GetPlayerScore(playerid)+random

Ir po ja dėk:

Kodas:

playerDB[playerid][kreditai]+=1;

šiuo atvėju į minutę vienas kreditas. Jaigu neklystu..

Viskas turėtu atrodyti taip:

Kodas:

SetPlayerScore(playerid,GetPlayerScore(playerid)+random(TAVO SKAIČIUS)+TAVO SKAIČIUS); // Xp ++

playerDB[playerid][kreditai]+=1;

Pamoka Kurta ne mano o By: Samas.

Bet, jei negaila +rep.

[stefon]

cj copy paste...