Zaloguj się by uzyskać pełen dostęp. Nie masz jeszcze konta? Założ je już teraz w kilka sekund.

Wysłany: 2014-03-03, 17:42


Rumun






Wiek: 30
Na forum: 5235 dni
Posty: 316
Nick w MP: Rumun
Piwa: 25

Respekt: 69
Witam.Jaki? czas temu IgrexolonO napisa? 'system banku ' kt?ry zapisuje kas?.Jak zmieni? by zapisywa?o score zamiast kasy ? Oto kod.

Kod:

CMD:bank(playerid, params[])
{
if(IsPlayerInRangeOfPoint(playerid, 15.0, 2315.9528, -1.6181, 26.7421))
{
ShowPlayerDialog(playerid, 666, DIALOG_STYLE_LIST, "Bank", "Stan konta\nWyp?a?\nWp?a?", "Akceptuj", "Anuluj");
} else SendClientMessage(playerid, -1, "No na Boga jasnego! Przesta? obra?a? naszego Papie?a Polaka!");
return 1;
}

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
if(dialogid == 666 && response)
{
if(listitem == 0)
{
new userBankFile[35] = "/bank/";
strcat(userBankFile, pName_(playerid));
new showStringe[55];
format(showStringe, sizeof(showStringe), "POLAND STRONG RUSSIA WE WAR YOU %i bogactwo!", dini_Int(userBankFile, "stanIno"));
ShowPlayerDialog(playerid, 666, DIALOG_STYLE_MSGBOX, "Bank - Stan konta", showStringe, "Ok");
}
if(listitem == 1)
{
new userBankFile[35] = "/bank/";
strcat(userBankFile, pName_(playerid));
new showStringe[65];
format(showStringe, sizeof(showStringe), "DWA NABOJE WSZYSTKIE MOJE %i - tyle se mo?esz wyp?aci?!", dini_Int(userBankFile, "stanIno"));
ShowPlayerDialog(playerid, 667, DIALOG_STYLE_INPUT, "Bank - Wyp?ata", showStringe, "Akceptuj", "Anuluj");
}
if(listitem == 2)
{
ShowPlayerDialog(playerid, 668, DIALOG_STYLE_INPUT, "Bank - Wp?ata", "Podaj kwot? hajs?w, jakie chcesz przeznaczy? na Watykan!!1", "Akceptuj", "Anuluj");
}
}

if(dialogid == 667 && response)
{
new userBankFile[35] = "/bank/";
strcat(userBankFile, pName_(playerid));
if(strval(inputtext) > dini_Int(userBankFile, "stanIno"))
SendClientMessage(playerid, -1, "Ziomeczgu najukocha?szy! Armii Papiesa Polaka nie oszukasz! Nie masz tyle hajs?wy!");
else
SendClientMessage(playerid, -1, "Dokona?e? wyp?aty z banku Papieskiego!"), dini_IntSet(userBankFile, "stanIno", dini_Int(userBankFile, "stanIno")-strval(inputtext));
}

if(dialogid == 668 && response)
{
if(strval(inputtext) > GetPlayerMoney(playerid))
SendClientMessage(playerid, -1, "Te te! Matk? i Ojca to Ty oszukasz, ale banku Watyka?sko Papieskiego to ju? ni hu hu!");
else
{
new userBankFile[35] = "/bank/";
strcat(userBankFile, pName_(playerid));
dini_IntSet(userBankFile, "stanIno", dini_Int(userBankFile, "stanIno")+strval(inputtext));
new payIn[85];
format(payIn, sizeof(payIn), "POLAND STRONG RUSSIA WE WAR YOU! Wp?aci?e? na konto Watyka?skie %i hajsu!", strval(inputtext));
SendClientMessage(playerid, -1, payIn);
}
}
return 1;
}

stock createBankUser(pid)
{
new userBankFile[35] = "/bank/";
strcat(userBankFile, pName_(pid));
if(!dini_Exists(userBankFile))
{
dini_Create(userBankFile);
dini_IntSet(userBankFile, "stanIno", 250); // ino 250 hajs?w na dobry pocz?tek
}
return 1;
}

stock pName_(pid)
{
new n[24];
GetPlayerName(pid, n, 24);
return n;
}


Postaw piwo autorowi tego posta
 

 
Wysłany: 2014-03-03, 17:52


IgrexolonO






Wiek: 34
Na forum: 6809 dni
Posty: 1386

Piwa: 1062

Respekt: 651,8
Respekt: 651,8Respekt: 651,8
"Rumun" napisał/a:

Witam.Jaki? czas temu IgrexolonO napisa? 'system banku ' kt?ry zapisuje kas?.Jak zmieni? by zapisywa?o score zamiast kasy ? Oto kod.

Kod:

CMD:bank(playerid, params[])
{
if(IsPlayerInRangeOfPoint(playerid, 15.0, 2315.9528, -1.6181, 26.7421))
{
ShowPlayerDialog(playerid, 666, DIALOG_STYLE_LIST, "Bank", "Stan konta\nWyp?a?\nWp?a?", "Akceptuj", "Anuluj");
} else SendClientMessage(playerid, -1, "No na Boga jasnego! Przesta? obra?a? naszego Papie?a Polaka!");
return 1;
}

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
if(dialogid == 666 && response)
{
if(listitem == 0)
{
new userBankFile[35] = "/bank/";
strcat(userBankFile, pName_(playerid));
new showStringe[55];
format(showStringe, sizeof(showStringe), "POLAND STRONG RUSSIA WE WAR YOU %i bogactwo!", dini_Int(userBankFile, "stanIno"));
ShowPlayerDialog(playerid, 666, DIALOG_STYLE_MSGBOX, "Bank - Stan konta", showStringe, "Ok");
}
if(listitem == 1)
{
new userBankFile[35] = "/bank/";
strcat(userBankFile, pName_(playerid));
new showStringe[65];
format(showStringe, sizeof(showStringe), "DWA NABOJE WSZYSTKIE MOJE %i - tyle se mo?esz wyp?aci?!", dini_Int(userBankFile, "stanIno"));
ShowPlayerDialog(playerid, 667, DIALOG_STYLE_INPUT, "Bank - Wyp?ata", showStringe, "Akceptuj", "Anuluj");
}
if(listitem == 2)
{
ShowPlayerDialog(playerid, 668, DIALOG_STYLE_INPUT, "Bank - Wp?ata", "Podaj kwot? hajs?w, jakie chcesz przeznaczy? na Watykan!!1", "Akceptuj", "Anuluj");
}
}

if(dialogid == 667 && response)
{
new userBankFile[35] = "/bank/";
strcat(userBankFile, pName_(playerid));
if(strval(inputtext) > dini_Int(userBankFile, "stanIno"))
SendClientMessage(playerid, -1, "Ziomeczgu najukocha?szy! Armii Papiesa Polaka nie oszukasz! Nie masz tyle hajs?wy!");
else
SendClientMessage(playerid, -1, "Dokona?e? wyp?aty z banku Papieskiego!"), dini_IntSet(userBankFile, "stanIno", dini_Int(userBankFile, "stanIno")-strval(inputtext));
}

if(dialogid == 668 && response)
{
if(strval(inputtext) > GetPlayerMoney(playerid))
SendClientMessage(playerid, -1, "Te te! Matk? i Ojca to Ty oszukasz, ale banku Watyka?sko Papieskiego to ju? ni hu hu!");
else
{
new userBankFile[35] = "/bank/";
strcat(userBankFile, pName_(playerid));
dini_IntSet(userBankFile, "stanIno", dini_Int(userBankFile, "stanIno")+strval(inputtext));
new payIn[85];
format(payIn, sizeof(payIn), "POLAND STRONG RUSSIA WE WAR YOU! Wp?aci?e? na konto Watyka?skie %i hajsu!", strval(inputtext));
SendClientMessage(playerid, -1, payIn);
}
}
return 1;
}

stock createBankUser(pid)
{
new userBankFile[35] = "/bank/";
strcat(userBankFile, pName_(pid));
if(!dini_Exists(userBankFile))
{
dini_Create(userBankFile);
dini_IntSet(userBankFile, "stanIno", 250); // ino 250 hajs?w na dobry pocz?tek
}
return 1;
}

stock pName_(pid)
{
new n[24];
GetPlayerName(pid, n, 24);
return n;
}


o.O Napisa?em co? takiego? Kod mi si? nie podoba, no ale.. xD

A, ju? pami?tam. Nahebany wtedy by?em. Anyway.

Zmie? se wszystkie funkcje pokroju

Kod:

GetPlayerMoney


na te od Scora i po sprawie o.O
Postaw piwo autorowi tego posta
 

 
Tagi: kasy :: score
Anonymous





Na forum: 245 dni
Posty: 1
Anonymous Koniecznie zajrzyj na:






Skocz do:  
Wyświetl posty z ostatnich:   
GTAONLINE.PL » JĘZYKI PROGRAMOWANIA » PAWN Ten temat jest zablokowany bez możliwości zmiany postów lub pisania odpowiedzi

Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
 Dodaj temat do Ulubionych
Wersja do druku