Hello Forumozok !!
Segitségeteket kérném
Ebben a Bank Scriptben szeretném kérni hogy beleirnátok nekem hogy amikor kilép a Játékos akkor elmentse azt az összeget amit a bankban hagyott és ha vissza jön a Játékos akkor Betöltse neki ha beirja azt hogy /szamla akkor annyi is maradjon amit legutobb betett
Köszii
Itt a Script !!
[pawn]#include <a_samp>
#include <zcmd>
#include <sscanf2>
#include <sii>
#define COLOR_BLUE 0x0000BBAA
#define COLOR_RED 0xFF0606FF
#define Sx(%1,%2) floatround((float(%1)/100.0)*%2)
new bankmoney[MAX_PLAYERS];
new banktimer;
forward Bank(playerid);
public OnFilterScriptInit()
{
print(\"Bank Rendszer betöltve!\");
return 1;
}
public OnFilterScriptExit()
{
print(\"Bank Rendszer kikapcsolva!\");
return 1;
}
public OnPlayerConnect(playerid)
{
new file[128];
GetPlayerName(playerid, file, MAX_PLAYER_NAME);
format(file, 128, \"/Bank/%s.ini\", file);
INI_Open(file);
bankmoney[playerid] = INI_ReadInt(\"BankMoney\");
INI_Close();
banktimer = SetTimerEx(\"Bank\", 5*60000, true, \"i\", playerid);
return 1;
}
CMD:berak(playerid, params[])
{
new money;
new msg[128];
new playermoney;
playermoney = GetPlayerMoney(playerid);
if(sscanf(params, \"i\", money))return SendClientMessage(playerid, COLOR_BLUE,\"Használat: /berak [pénz összeg]\");
if(playermoney < money) return SendClientMessage(playerid,COLOR_RED,\"Nincs ennyi pénzed!\");
GivePlayerMoney(playerid,-money);
bankmoney[playerid] += money;
format(msg,sizeof(msg),\"Sikeresen beraktál a bankba %d dollárt!\",money);
SendClientMessage(playerid,COLOR_BLUE,msg);
return 1;
}
CMD:atutal(playerid, params[])
{
new money;
new id;
new msg[128];
new name[24];
new msg2[128];
new name2[24];
if(sscanf(params, \"ui\", id, money))return SendClientMessage(playerid, COLOR_BLUE,\"Használat: /atutal [id] [pénz összeg]\");
if(money > bankmoney[playerid]) return SendClientMessage(playerid,COLOR_RED,\"Nincs ennyi pénz a bankszámládon!\");
bankmoney[playerid] -= money;
bankmoney[id] += money;
GetPlayerName(playerid,name,sizeof(name));
GetPlayerName(id,name2,sizeof(name2));
format(msg,sizeof(msg),\"Sikeresen átutaltál %s számlájára %d dollárt!\",name2,money);
SendClientMessage(playerid,COLOR_BLUE,msg);
format(msg2,sizeof(msg2),\"%s átutalt %d dollárt a bakszámládra! Kivenni /kivesz parancssal tudod!\",name,money);
SendClientMessage(id,COLOR_BLUE,msg2);
return 1;
}
CMD:kivesz(playerid, params[])
{
new money;
new msg[128];
if(sscanf(params, \"i\", money)) return SendClientMessage(playerid, COLOR_BLUE,\"Használat: /kivesz [pénz összeg]\");
if(money > bankmoney[playerid]) return SendClientMessage(playerid,COLOR_RED,\"Nincs ennyi pénz a bankszámládon!\");
bankmoney[playerid] -= money;
GivePlayerMoney(playerid,money);
format(msg,sizeof(msg),\"Sikeresen kivettél %d dollárt a bankból!\",money);
SendClientMessage(playerid,COLOR_BLUE,msg);
return 1;
}
CMD:bankinfo(playerid, params[])
{
new msg[128];
format(msg,sizeof(msg),\"A bankszámládon jelenleg %d dollár van.Betenni /berak parancsal tudod,kivenni /kivesz parancssal tudod.\",bankmoney[playerid]);
SendClientMessage(playerid,COLOR_BLUE,msg);
return 1;
}
public OnPlayerDisconnect(playerid)
{
new file[128];
new name[MAX_PLAYERS];
GetPlayerName(playerid, name, sizeof(name));
format(file,sizeof(file),\"/Bank/%s.ini\",name);
INI_Open(file);
INI_WriteInt(\"Bank\",bankmoney[playerid]);
INI_Save();
INI_Close();
KillTimer(banktimer);
return 1;
}
public Bank(playerid)
{
if(bankmoney[playerid] > 1)
{
new money1 = Sx(bankmoney[playerid],5);
bankmoney[playerid] += money1;
}
}[/pawn]
Dupla hozzászólás automatikusan összefûzve. ( 2011. Június 17. - 18:18:06 )
MEGÓLDÓDOTT !!!
Üzenetek megjelenítése
