Peršokti į turinį
PiKaSoO

[PAMOKA Nr.2] Kreditų pirkimu sistemą [RPG] PiKaSoO

Recommended Posts

Sveiki, taigi pristatau savo antra pamoką(Labiau skripto gabalą) : Kreditų pirkimu sistema [GUI]

Kas tai :

Kreditu pirkimu sistema , per kurią galima pirkti visokius menknekius už kreditus, tai yra paprasta bet ne eilinė sistemėlė.

Pradėkim.

1. Komandos sukūrimas

Kuriu su ZCMD :

COMMAND:pirkimai(playerid, params[])
{
ShowPlayerDialog(playerid,500,DIALOG_STYLE_LIST,"Paslaugos už kreditus.","Mano kreditai\nKaip gauti kreditų?\n500 patirties taškų\n50 000 Lt.\nIeškomumo panaikinimas\nVIP statusas","Informacija","Uždaryti");
return 1;
}

2. Dialogu sukūrimas

	if(dialogid == 500)
{
if(response)
{
if(listitem == 0)
{
new msg[28];
format(msg,28,"Tu turi [%d] kreditus(ų)",PlayerInfo[playerid][Kreditai]);
SendClientMessage(playerid,-1,msg);
}
if(listitem == 1)
{
  	ShowPlayerDialog(playerid,501,DIALOG_STYLE_MSGBOX,"Kaip Gauti kreditų?.","Kreditus reikia nusipirkti už tikrus pinigus, puslapįje www.vvp.serveris.lt\nVieno kredito kaina tikrais pinigais lygi 1 Lt., t.y. kiek kreditų žaidime, tiek litų realybėje.","Gerai","Grįžti");
  	}
  	if(listitem == 2)
  	{
  	ShowPlayerDialog(playerid,502,DIALOG_STYLE_MSGBOX,"500 Patirties taškų.","Tu dabar nusipirksi 500patirties taškų\nŠi paslauga kainuoja 5 kreditus.\nJei paspausi PIRKTI jie tau nusipirks.","PIRKTI","Grįžti");
  	}
  	if(listitem == 3)
  	{
  	ShowPlayerDialog(playerid,503,DIALOG_STYLE_MSGBOX,"50000 LT.","Tu dabar nusipirksi 50000litų\nŠi paslauga kainuoja 5 kreditus.\nJei paspausi PIRKTI jie tau nusipirks.","PIRKTI","Grįžti");
  	}
  	if(listitem == 4)
  	{
  	ShowPlayerDialog(playerid,504,DIALOG_STYLE_MSGBOX,"Ieškomumo lygio nuejimas.","Jei nusipirksi nusiimsi visą ieskomumo lygį\nŠi paslauga kainuoja 1 kreditą.\nJei paspausi PIRKTI jie tau nusipirks.","PIRKTI","Grįžti");
  	}
  	if(listitem == 5)
  	{
  	ShowPlayerDialog(playerid,505,DIALOG_STYLE_MSGBOX,"VIP Statuso pirkimas","Jei nusipirksi gausi VIP Statusą\nŠi paslauga kainuoja 7 kreditus.\nJei paspausi PIRKTI jie tau nusipirks.","PIRKTI","Grįžti");
  	}
  	}
  	return 1;
}

if(dialogid == 502)
{
if(PlayerInfo[playerid][Kreditai] < 5)
  	{
SendClientMessage(playerid,-1,"Nepakanka kreditu");
return 1;
}
	SetPlayerScore(playerid,GetPlayerScore(playerid)+500);
PlayerInfo[playerid][Kreditai]-=5;
ShowPlayerDialog(playerid,666,DIALOG_STYLE_MSGBOX,"Paslaugos už kreditus.","500 Patirties taškų\n\nPaslauga sėkmingai aktyvuota.");
return 1;
}

if(dialogid == 503)
{
if(PlayerInfo[playerid][Kreditai] < 5)
{
SendClientMessage(playerid,-1,"Nepakanka kreditu");
return 1;
}
GivePlayerMoney(playerid,50000);
PlayerInfo[playerid][Kreditai]-=5;
ShowPlayerDialog(playerid,666,DIALOG_STYLE_MSGBOX,"Paslaugos už kreditus.","50000LT.\n\nPaslauga sėkmingai aktyvuota.");
return 1;
}
if(dialogid == 504)
{
if(PlayerInfo[playerid][Kreditai] < 1)
  	{
	SendClientMessage(playerid,-1,"Nepakanka kreditu");
	return 1;
	}
	SetPlayerWantedLevel(playerid,0);
PlayerInfo[playerid][Kreditai]-=1;
ShowPlayerDialog(playerid,666,DIALOG_STYLE_MSGBOX,"Paslaugos už kreditus.","Nuimtos žvaiždės.\n\nPaslauga sėkmingai aktyvuota.");
  	return 1;
  	}
  	if(dialogid == 505)
  	{
if(PlayerInfo[playerid][Kreditai] < 7)
  	{
	SendClientMessage(playerid,-1,"Nepakanka kreditu");
	return 1;
	}
PlayerInfo[playerid][VIP] = true;
PlayerInfo[playerid][Kreditai]-=7;
ShowPlayerDialog(playerid,666,DIALOG_STYLE_MSGBOX,"Paslaugos už kreditus.","VIP statusas.\n\nPaslauga sėkmingai aktyvuota.");
return 1;
}

3. Prie žaidėjo informacijos prirašome

bool:VIP,

Kreditai,

Su Skriptu ir Idėjomis padėjo DIVITO

2012 @ PiKaSoO

Dalintis šį pranešimą


Nuoroda iki šio pranešimo
Dalintis per kitą puslapį



Jei tai būtų pamoka, kiekviena eilutė būtų paaiškinta. Čia tik arklio šūdas.

Toks pat " ARKLIO ŠŪDAS " kaip tu, nes kuriesi acc išvengiant užblokavimo, matosi koks žmogus esi. Sukures esi kažka panašaus, ne. Žmogus įdėjo skripto " GABALĄ " nes nėra tokios skilties kaip " SKRIPTAI ", kažkas nedašunta?

Naujokam pravers.

Dalintis šį pranešimą


Nuoroda iki šio pranešimo
Dalintis per kitą puslapį

Varyti ant jo, kad sukūrė kažką - nereikia, tiesiog ir taip tokių pamokų/temų su kreditais ir jų pirkimais yra daug. Šiame tinklapyje ypač, na bet šaunuolis, kad laiką savo naudoji. ;)

Aišku, kažkam tai pravers.

Dalintis šį pranešimą


Nuoroda iki šio pranešimo
Dalintis per kitą puslapį


ibeer dekui bet čia yra kažkiek kitokia negu paprasta GRP. :)

Sutikt galiu,kad kitokia, kiek mačiau su GUI langais, tikrai patogiau užsisakinėt ir taip toliau, bet apskritai kalbu, kad tokio tipo pamokų yra daug, visos jos kažkuo skiriasi, tarkim aprašymu, tekstais - tavo skiriasi, nes yra įterpta su GUI langais. kaip ir sakiau kažkam pravers, o kritikos sulaukt ir priimt gali bet kokios, svarbu tu kažką darai ;)

Dalintis šį pranešimą


Nuoroda iki šio pranešimo
Dalintis per kitą puslapį




Svečias
Ši tema yra užrakinta.

  • Narių peržiūri šį forumą:   0 nariai

    Nėra registruotų narių peržiūrinčių šį forumą.


  • SuperGames programele
  • SuperGames programele


×