[PAMOKA] Fondo kurimas

[Exited]

Sveiki, nusprendžiau šiandien įkelti Fondo sukurimo pamoka

(Pamoka kurta ne mano)

1. Savo modifikacijos lape prie įvairių new'ų rašome tokį kodą;

Pawn: [Pasirinkti]

new musufondas = 1000000;

Nustatome kintamajam musufondas 1,000,000LT sumą.

2. Sukuriame GUI langą,kuriame eis pažiurėti kiek yra fonde pinigų, juos nuimti, ar pridėti.

2.1. Prie visų komandų dedame tokią komandą:

Jeigų naudojate ZCMD:

Pawn: [Pasirinkti]

COMMAND:fondas( playerid, params[] ){

new tekstas[ 128 ];

format(tekstas,sizeof(tekstas),"{ffffff}Mūsų fonde pinigų yra:{ee5555} %iLT",musufondas);

ShowPlayerDialog( playerid, 5, DIALOG_STYLE_LIST, "tekstas", "Nuimti pinigų iš fondo\nPadėti pinigų į fondą", "Rinktis", "Išeiti" );

return 1;

}

Jeigų naudojate strcmp:

Pawn: [Pasirinkti]

if(strcmp(cmdtext, "/fondas", true)==0){

new tekstas[ 128 ];

format(tekstas,sizeof(tekstas),"{ffffff}Mūsų fonde pinigų yra:{ee5555} %iLT",musufondas);

ShowPlayerDialog( playerid, 5, DIALOG_STYLE_LIST, "tekstas", "Nuimti pinigų iš fondo\nPadėti pinigų į fondą", "Rinktis", "Išeiti" );

return 1;

}

2.2. Po public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[]) dedame tokį kodą:

Pawn: [Pasirinkti]

if(dialogid == 5)

{

if(response)

{

if(listitem == 0)

{

ShowPlayerDialog( playerid, 6, DIALOG_STYLE_INPUT, "Nuimti pinigus iš fondo", "Įveskite sumą", "Nuimti", "" );

return 1;

}

if(listitem == 1)

{

ShowPlayerDialog( playerid, 7, DIALOG_STYLE_INPUT, "Padėti pinigų į fondą", "Įveskite sumą", "Padėti", "" );

return 1;

}

}

}

3. Darome, kad nuimtu/padėtų pinigus į fondą.

Pawn: [Pasirinkti]

if(dialogid == 6)

{

if(response)

{

if(musufondas < inputtext){SendClientMessage(playerid,0xFFFFFFFF,"[!] Fonde tiek pinigų nėra."); return 1;}

if(inputtext < 0){SendClientMessage(playerid,0xFFFFFFFF,"[!] Įveskite sumą."); return 1;}

GivePlayerMoney(playerid,inputtext); musufondas-=inputtext;

SendClientMessage(playerid,0xFFFFFFFF,"[~] Pinigų suma sėkmingai nuimta nuo fondo bendrosios sumos.");

return 1;

}

}

}

if(dialogid == 7)

{

if(response)

{

if(GetPlayerMoney(playerid) < inputtext){SendClientMessage(playerid,0xFFFFFFFF,"[!] Tiek pinigų jūs neturite."); return 1;}

if(inputtext < 0){SendClientMessage(playerid,0xFFFFFFFF,"[!] Įveskite sumą."); return 1;}

GivePlayerMoney(playerid,-inputtext); musufondas+=inputtext;

SendClientMessage(playerid,0xFFFFFFFF,"[~] Pinigų suma sėkmingai padėta į fondą.");

return 1;

}

}

}

Negailėkit +R3p

[KeoT]

tavo pamokos man niekad neveikia