[PAMOKĖLĖ] Kreditų sistema, bei pirkimai už kreditus. [GRP]

[real life man :)]

Kreditų sistemą [GRP]

Eini į gamemode>data>playerDB.txt

ir po tų visų

bool:nesamonės 

rašyk:

kreditai, 

Tada einam į pawno atsidarai savo gamemoda.

Susirandi per paiešką Callbacka:

public OnPlayerCommandText(playerid, cmdtext[])
{ 

Ir rašai po juo:

i

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:

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

Ir po juo rašai:

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:

public Clear(playerid)
{ 

ir po juo rašai:

playerDB[playerid][kreditai]=0; 

Viskas turi atrodyti maždaug taip:

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:

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

Jis randasi kaškur po:

public LoadPlayerData(playerid)
{ 

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

Tad prie jų rašykim:

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

tada po:

public SavePlayerData(playerid,bool:simple)
{ 

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

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

tada susirandi:

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:

SetPlayerScore(playerid,GetPlayerScore(playerid)+random 

Ir po ja dėk:

playerDB[playerid][kreditai]+=1; 

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

Viskas turėtu atrodyti taip:

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.

[eXmaS]

Kreditai neveikia -rep nestatau.

[x ernis x]

Tai turbut tavo serveris ne grp kad neveikia.

[Stanis]

Veikia aciu. +rep neduosiu nes nesudetinga, bet jei dar keles tokias pamokas idesi tikrai nepagailesiu.

[juodas]

Yehuuuuu, viskas ok susicompilina, tikas prie duodamu kreditu nustaciau ne 1 o 5, ten toje paskutineje eiluteje kurtie paskutine bereikejo dadet, tai ar dabar duos po 5 jau? +rep duodu mldc tik dar atsakyk i sita kalusima

-- Papildyta --

nebereike atrasyt pasitikrinau, duoda viska, viskas ok, dabar pajieskosiu auto nuemimo vip dq dar karta

[danfox]

Kreditų pamoka kopijuota, negėda ?

[juodas]

Kreditų pamoka kopijuota, negėda ?

Koks skirtumas svarbu padeda zmonem, o kur tas originalas??? parodik jeigu yra, istrauk ir pabaigos jauciu jau koke mirus tema nekas nemato o jis padare viska, mldc,

[real life man :)]

Kreditų pamoka kopijuota, negėda ?

Ne, negeda nes zmonems padedu. O, kopijuota is Gta-Sa.LT.

[Samukas]

Kreditų pamoka kopijuota, negėda ?

Koks skirtumas svarbu padeda zmonem, o kur tas originalas??? parodik jeigu yra, istrauk ir pabaigos jauciu jau koke mirus tema nekas nemato o jis padare viska, mldc,

http://gta-support.lt/post10343.html#p10343 Čia ne reklaminimas, o įrodymas. Pirmas buvo Gta-sa*lt, o antras gta-support*lt

Sėkmės.

[alch0bako]

Jei vogi scriptus, tai nors jas įdėk į „

“

[real life man :)]

Kam prikeliat senas temas?

[Kingdom]

Kam prikeliat senas temas?

Pažiūrėk kada parašytas paskutinis pranešimas 22 Bir 2011, 18:58

[real life man :)]

Samukas čia ir prikėlė nes aš paskutini karta temoje buvau parases o kada parasiau va: 20 Bal 2011, 18:46.

[alch0bako]

Samukas čia ir prikėlė nes aš paskutini karta temoje buvau parases o kada parasiau va: 20 Bal 2011, 18:46.

Nėra skirtumo kada tema yra parašyta, bet su ja turi būt viskas tvarkoj.

[real life man :)]

Nu gerai padarysiu tuos

.

[Drift_Deivis]

Ačių praverte, bet kolkas +REP neduosiu.

[real life man :)]

Ačių praverte, bet kolkas +REP neduosiu.

Tai ir nereikia :/ Aš ne rep auką.

[iR1sas]

pagalbos man meta 3 erorus

D:\domo\LS\gamemodes\GRP.pwn(1500) : error 017: undefined symbol "f"

D:\domo\LS\gamemodes\GRP.pwn(1507) : warning 225: unreachable code

D:\domo\LS\gamemodes\GRP.pwn(15633) : error 001: expected token: ";", but found "-identifier-"

D:\domo\LS\gamemodes\GRP.pwn(15716) : error 017: undefined symbol "file"

Pawn compiler 3.2.3664 Copyright © 1997-2006, ITB CompuPhase

3 Errors.

-- Papildyta --

pagalbossssss prasau man meta 1 erora man niekaip neina istaisyti pagalbos

va eroreas

D:\domo\LS\gamemodes\GRP.pwn(15636) : error 001: expected token: ";", but found "for"

Pawn compiler 3.2.3664 Copyright © 1997-2006, ITB CompuPhase

1 Error.

o cia ta eilute

15636 for(new housei=0; housei < 255; housei++) playerDB[playerid][pakviestas][housei]=false;

15637 for(new faction=0; faction < 10; faction++) playerDB[playerid][leanvited][faction]=false;

15638 for(new factionk=0; factionk < 10; factionk++) playerDB[playerid][leanvitedk][factionk]=false;

15639 for(new factiong=0; factiong < 10; factiong++) playerDB[playerid][leanvitedg][factiong]=false;

prasau kasnors padekit

[Skripterisss]

Nu aš pasidariau, kad tie kreditai nekiltų.

noriu tavęs paklausti kaip juos užsidėti per failus.

Kad man žaidime rodytų parašius: /kreditai

pvz turiu kiek užsidėjau.

Už tai +R3P tikrai duosiu

[real life man :)]

Nu aš pasidariau, kad tie kreditai nekiltų.

noriu tavęs paklausti kaip juos užsidėti per failus.

Kad man žaidime rodytų parašius: /kreditai

pvz turiu kiek užsidėjau.

Už tai +R3P tikrai duosiu

Gaila mečiau scriptinimą, tad viską užmiršau. Gal kas ir padės :/