[Skriptas] Pervesti pinigus į banka kitam žaidėjui.

[Tautvis !]

Laba diena, gavau užsakymą padaryti pervedimą į kita banko sąskaita. Esu nekantrus žmogus ir nesulaukiau pinigų. Tad imkite skriptą ir naudokite, netestavau!

Reikalingi includes: ZCMD, sscanf.

CMD:pervesti(playerid, params[])
{
new id, kiek, vardas[MAX_PLAYER_NAME],zaidejas[MAX_PLAYER_NAME],masyvas[66];
if(sscanf(params, "ud",id,kiek)) return SendClientMessage(playerid, -1, "* Pervesti pinigus: /pervesti [Vardas_Pavarde] [Kiek]");
else if(!IsPlayerConnected(id)) return SendClientMessage(playerid, -1, "* Tokio žaidėjo nėra");
else if(id == playerid) return SendClientMessage(playerid, -1, "* Sau pervesti negalima");
else if(playerDB[playerid][banke] < kiek) return SendClientMessage(playerid, -1, "* Jūs tiek neturite");
else
{
 GetPlayerName(id, vardas, sizeof(vardas));
 GetPlayerName(playerid, zaidejas, sizeof(zaidejas));
playerDB[playerid][banke]-=kiek;
playerDB[id][banke]+=kiek;
 format(masyvas, 60, "* Pervedėte %s žaidėjui %d litų",vardas, kiek);
 SendClientMessage(playerid,-1, masyvas);
 format(masyvas, 65, "* Žaidėjas %s pervedė jums %d litų",zaidejas,kiek);
 SendClientMessage(id, -1, masyvas);
}
return 1;
}

Lygiavimą iškraipė forumas. Naudokite, testuokite, bus problemų rašykite į skype.

Redaguota Gegužės 17, 2013, nario Tautvex_Adidas

[Swedbank]

Daug Kam Pravers.

[Tautvis !]

Daug Kam Pravers.

Thanks!.

[Dovis_Sander]

Šaunu kad daliniesi,tikrai pravers kitiems žmonėms.

[Tautvis !]

Šaunu kad daliniesi,tikrai pravers kitiems žmonėms.

Na skriptas šis daugybę SA:MP žaidėjams įtiks.

[Chrion]

geras skriptas vieną mintį sugalvojau. O gamėtum padaryti , kad būtų įvedimas pinigų gui lentele? būtų liux

Redaguota Gegužės 17, 2013, nario hollyShit

[wuPoR]

geras skriptas vieną mintį sugalvojau. O gamėtum padaryti , kad būtų įvedimas pinigų gui lentele? būtų liux

lengvai persidaryti galima, inputtext naudot reik manau ;s

[Aire_Whi]

pravers.

[Punk.]

O kiek supratau čia komandą leis naudoti visur /pervesti ar tik banke? Bet šeip šaunuolis.

[Tautvis !]

O kiek supratau čia komandą leis naudoti visur /pervesti ar tik banke? Bet šeip šaunuolis.

Taip, bet kur.

[renaldasj]

aš nesuprantu kaip banko sistema daryt :DD

[Tautvis !]

aš nesuprantu kaip banko sistema daryt :DD

Gi kūrimo darymu. Nėra sunkaus paprastą padaryti.

[renaldasj]

Gi kūrimo darymu. Nėra sunkaus paprastą padaryti.

labai padėjai

[Tautvis !]

labai padėjai

Prašom.

[Arunce]

Dzekui

[Winkow]

Jai išvis banke susikurus pickup tai išvis pasaka skriptas būtu.

[- Raganius]

Dėkingas.

[appleomax]

Įvedus neigiamą pinigų skaičių iš gavėjo atimtų įvestą kiekį

Redaguota Birželio 29, 2014, nario appleomax

[Arme_Help.]

Įvedus neigiamą pinigų skaičių iš gavėjo atimtų įvestą kiekį

 

Perdariau .

 

CMD:pervesti( playerid , params[] ) {

    new

        id ,

        kiek ,

        vardas[MAX_PLAYER_NAME] ,

        zaidejas[MAX_PLAYER_NAME] ,

        masyvas [ 66 ]

    ;

    if ( sscanf ( params , "ud" , id , kiek ) ) return SendClientMessage ( playerid , -1 , "* Pervesti pinigus: /pervesti [Vardas_Pavarde] [Kiek]" ) ;

    if ( strfind ( inputtext , "-" , true ) != -1 ) return SendClientMessage ( playerid , -1 , "* Minuso ženklo dėti negalima !" ) ;

    else if ( !IsPlayerConnected ( id ) ) return SendClientMessage ( playerid , -1 , "* Tokio žaidėjo nėra !" ) ;

    else if ( id == playerid) return SendClientMessage ( playerid , -1 , "* Sau pervesti negalima !" ) ;

    else if ( playerDB [ playerid ][ banke ] < kiek ) return SendClientMessage ( playerid , -1 , "* Jūs tiek neturite ." ) ;

    else {

         GetPlayerName ( id , vardas , sizeof ( vardas ) ) ;

         GetPlayerName ( playerid , zaidejas , sizeof ( zaidejas ) ) ;

         playerDB [ playerid ] [ banke ] -=kiek ;

         playerDB [ id ][ banke ] +=kiek ;

         format ( masyvas , 60 , "* Pervedėte %s žaidėjui %d litų" , vardas , kiek ) ;

         SendClientMessage ( playerid , -1 , masyvas ) ;

         format ( masyvas , 65 , "* Žaidėjas %s pervedė jums %d litų" , zaidejas , kiek ) ;

         SendClientMessage ( id , -1 , masyvas ) ; }

         return 1 ; }

Redaguota Liepos 25, 2014, nario » Arminas

[Arme_Help.]

Jai išvis banke susikurus pickup tai išvis pasaka skriptas būtu.

 

Tai lengva pasidaryti . PVZ : Įeini į banką , ir prie kokio langelio uždėti 3dlabel'į , kad pvz rašykite komandą norint pervesti pinigus : /pervesti

 

Ir viršuj skripto padarai :

 

if ( ! IsPlayerInRangeOfPoint ( playerid , 5 , kordinatės ) ) return SendClientMessage ( playerid , - 1 , "Norint pervesti pinigus turite būti banke !" ) ;

 

Redaguota Liepos 25, 2014, nario » Arminas