[Skriptas] Duona, dešrelės.

[Tautvis !]

Labas vakaras, na kaip ir susirgau neturėjau ką veikti, taigi sloga didelė, geriu arbatas. Taigi užsinorėjau valgyti, nueinu į šaldytuvą ir randu Dešrelių su duona, galvoju prie arbatos tiks, ir šovė mintis į galva kad reikėtu sukurti tokį mini skriptuką ant greičio.

Taigi, tas skriptas turi naudoti,kita:

• ZCMD komandų procesoių.
  
• Krovimo, saugojimo nedariau.
  
• Šio dalyko netestavau.
  
• Sukurtos 3 komandos. /invetorius, /imti, /valgyti
  

Sistema paprasta. Tiesiog pasiimate dešrelės, ir duonos ir ją valgote, o už tai gausite givybių.

Komandos:

CMD:valgyti(playerid)
{
if(pInfo[playerid][duona] == 0) return SendClientMessage(playerid, -1, "Neturite duonos");
if(pInfo[playerid][desrele] == 0) return SendClientMessage(playerid, -1, "Neturite dešrelių");

new Float:Health;
GetPlayerHealth(playerid, Health);
if(Health < 99)
{
 SetPlayerHealth(playerid, Health+15);
}
pInfo[playerid][duona]-=1;
pInfo[playerid][desreles]-=1;
SendClientMessage(playerid, -1, "Ammmm! Kaip skanūūūū !");
return 1;
}
CMD:inventorius(playerid)
{
new masyvas[128];
format(masyvas, sizeof(masyvas), "Dešrelių: %d\nDuonos: %d",pInfo[playerid][desreles],pInfo[playerid][duona]);
ShowPlayerDialog(playerid, 4, DIALOG_STYLE_LIST, "Inventorius",masyvas, "Ok", "");
return true;
}
CMD:imti(playerid)
{
ShowPlayerDialog(playerid, 1 DIALOG_STYLE_LIST, "Parduotuve", "Duona\nDešrelės", "Imti", "Išeiti");
return true;
}

Challback: OnDialogResponse

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
if(dialogid == 1)
{
if(response)
{
 switch(isitem)
 {
case 0:
{
 ShowPlayerDialog(playerid, 2, DIALOG_STYLE_MSGBOX, "Parduotuve", "\t\tDuona\n\nDuonos pakelyje yra 20 rekučių, tad tikrai užteks jums paskanauti", "Imti", "Išeiti");
}
case 1:
{
 ShowPlayerDialog(playerid, 3, DIALOG_STYLE_MSGBOX, "Parduotuve", "\t\tDešrelės\nDešrelės pakuotėje yra 15 dešrelių, tad tikrai užteks jums paskanauti", "Imti", "Išeiti");
}
 }
}
return 1;
}
if(dialogid == 2)
{
if(response)
{
 pInfo[playerid][duona]+=20;
SendClientMessage(playerid, -1, "Pasiemiau duonos ");
}
return true;
}
if(dialogid == 3)
{
if(response)
{
 pInfo[playerid][desreles]+=15;
 SendClientMessage(playerid, -1, "Paiemiau dešrelių");
}
return true;
}
return 1;
}

3.

Sukurkite kintamuosius, enum. Pačiame modo viršuje:

enum playerdata
{
duona,
desreles
}
new pInfo[MAX_PLAYERS][playerdata];

Štai ir viskas, sekmės naudojime. Kas bus neaišku, parašykit man AŽ. )

Lygiavimą sugadino forumas

Redaguota Spalio 2, 2013, nario Tautvex_Adidas

[Lrytas]

Duona šaldytuve?

[Tautvis !]

Duona šaldytuve?

Taip, ją laikau kad jin nesupelytu.

[infesto]

Mldc, taip ir toliau.

[Twiin]

Skanaus, ir šaunuolis

[Tautvis !]

Skanaus, ir šaunuolis

Ačiū, prašom .

[Kesa]

if(Health < 99)

{

SetPlayerHealth(playerid, Health+15);

}

Jei bus 98? 98+15=113.. Šeip pastebėjimas..

P.S. if((Health + 15) < 99)

Redaguota Spalio 2, 2013, nario Kesa_Tunex

[Tautvis !]

Jei bus 98? 98+15=113.. Šeip pastebėjimas..

P.S. if((Health + 15) < 99)

Nea, žmogus galės daugiausiai turėti 99hp, daugiau jis negalės turėt.

[Kesa]

Taigi sakau jei turės 98??? Tada jau šita koda vykdys:

SetPlayerHealth(playerid, Health+15);

Redaguota Spalio 2, 2013, nario Kesa_Tunex

[Alter]

if(Health < 100) arba if(Health <= 99)

[bebras]

Dešelės su duona? Neskamba labai skaniai..

Ouoj kaip pjausis lentelės tiems kas darys copy/paste

O šiaip, labai matytas kodas kažkokiam GRP tipo kode kurį skaičiau, tik ten berods buvo sumuštiniai.

[Alter]

Dešelės su duona? Neskamba labai skaniai..

Ouoj kaip pjausis lentelės tiems kas darys copy/paste

O šiaip, labai matytas kodas kažkokiam GRP tipo kode kurį skaičiau, tik ten berods buvo sumuštiniai.

Kodėl jos turėtų pjautis? Turi omenyje id?

[bebras]

Kodėl jos turėtų pjautis? Turi omenyje id?

Aga

[Alter]

Aga

Gal susigaudys pasikeist.

[bebras]

Gal susigaudys pasikeist.

Nemanau...

[Funkis]

Padaryk , kad dar susitept galėtai

[wuPoR]

Padaryk , kad dar susitept galėtai

CMD:susitepti(playerid, params[])
{
if(pInfo[playerid][duona] == 0) return SendClientMessage(playerid, -1, "Neturite duonos");
if(pInfo[playerid][desrele] == 0) return SendClientMessage(playerid, -1, "Neturite dešrelių"); 
SendClientMessage(playerid, -1,"Susitepei sumuštinį su duona ir dešrele");
return 1;
}

[asas151]

Mldc:)

[Funkis]

CMD:susitepti(playerid, params[])
{
if(pInfo[playerid][duona] == 0) return SendClientMessage(playerid, -1, "Neturite duonos");
if(pInfo[playerid][desrele] == 0) return SendClientMessage(playerid, -1, "Neturite dešrelių");
SendClientMessage(playerid, -1,"Susitepei sumuštinį su duona ir dešrele");
return 1;
}

Niekad to nesuprasiu : |

[bebras]

Niekad to nesuprasiu : |

Kas tau neaišku ?