[legenda][Банк]

[legenda]

По просьбе одного из пользователей форума разобраться с его сисьмой банка я написал и выложил её сюда. special for pawno-info.ru:di:
и так начнем:
Без этого не куда

#include <a_samp>

Теперь заходим в public OnPlayerCommandText(playerid,cmdtext[]) и добовляем команду:

public OnPlayerCommandText(playerid, cmdtext[])
{
	if (strcmp("/банк", cmdtext, true, 10) == 0)
	{
	    SetPVarInt(playerid,"GetDialog",1);
		ShowPlayerDialog(playerid,0,2,"{ffffff}Банк:","Узнать кол-во денег в банке\nПоложить на счёт\nСнять со счёта","Ок","Отмена");
		return 1;
	}
	return 0;
}

После заходим в public OnDialogResponse(playerid,dialogid,response,listitem,inputtext[]) и добовляем туда:

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
	switch(GetPVarInt(playerid,"GetDialog"))
	{
	    case 1:
	    {
	        if(!response)return SetPVarInt(playerid,"GetDialog",0);
	        switch(listitem)
	        {
	            case 0:
	            {
	                new message[128];
	                GetPlayerName(playerid,message,MAX_PLAYER_NAME);
	                format(message,sizeof(message),"{ff0000}%s{ffffff} [id:{ff0000}%d{ffffff}] у вас на счёте в банке: [{00ff00}%d{ffffff}$]",message,playerid,GetPVarInt(playerid,"GetBankMoney"));
					ShowPlayerDialog(playerid,0,0,"{ffffff}Банк:",message,"Ок","Назад");
					SetPVarInt(playerid,"GetDialog",2);
	                return 1;
	            }
				case 1:
				{
					if(GetPlayerMoney(playerid)<1)return SendClientMessage(playerid,-1,"У вас нет средст.");
				    new message[255];
				    GetPlayerName(playerid,message,MAX_PLAYER_NAME);
				    format(message,sizeof(message),"{ff0000}%s{ffffff} [id:{ff0000}%d{ffffff}] введите нижу сумму от {00ff00}1{ffffff}$ до {00ff00}%d{ffffff}$",message,playerid,GetPlayerMoney(playerid));
					ShowPlayerDialog(playerid,0,1,"{ffffff}Банк:",message,"Ок","Назад");
                    SetPVarInt(playerid,"GetDialog",3);
					return 1;
				}
				case 2:
				{
					if(GetPVarInt(playerid,"GetBankMoney")<1)return SendClientMessage(playerid,-1,"У вас нет средст в банке.");
				    new message[255];
				    GetPlayerName(playerid,message,MAX_PLAYER_NAME);
				    format(message,sizeof(message),"{ff0000}%s{ffffff} [id:{ff0000}%d{ffffff}] введите нижу сумму от {00ff00}1{ffffff}$ до {00ff00}%d{ffffff}$",message,playerid,GetPVarInt(playerid,"GetBankMoney"));
					ShowPlayerDialog(playerid,0,1,"{ffffff}Банк:",message,"Ок","Назад");
                    SetPVarInt(playerid,"GetDialog",4);
					return 1;
				}
	        }
	        return 1;
	    }
	    case 2:
	    {
	        if(response)return SetPVarInt(playerid,"GetDialog",0);
			SetPVarInt(playerid,"GetDialog",1);
		 	ShowPlayerDialog(playerid,0,2,"{ffffff}Банк:","Узнать кол-во денег в банке\nПоложить на счёт\nСнять со счёта","Ок","Отмена");
			return 1;
	    }
	    case 3:
	    {
	        if(!response)
	        {
				SetPVarInt(playerid,"GetDialog",1);
		 		ShowPlayerDialog(playerid,0,2,"{ffffff}Банк:","Узнать кол-во денег в банке\nПоложить на счёт\nСнять со счёта","Ок","Отмена");
	            return 1;
	        }
	        if(!strlen(inputtext)||!strval(inputtext))
	        {
	            new message[255];
	            GetPlayerName(playerid,message,MAX_PLAYER_NAME);
				format(message,sizeof(message),"{ff0000}%s{ffffff} [id:{ff0000}%d{ffffff}] введите нижу сумму от {00ff00}1{ffffff}$ до {00ff00}%d{ffffff}$\n{ff0000}Вы не ввели сумму!",message,playerid,GetPlayerMoney(playerid));
				ShowPlayerDialog(playerid,0,1,"{ffffff}Банк:",message,"Ок","Назад");
    			SetPVarInt(playerid,"GetDialog",3);
	            return 1;
	        }
	        if(strval(inputtext)>GetPlayerMoney(playerid))
	        {
             	new message[255];
	            GetPlayerName(playerid,message,MAX_PLAYER_NAME);
				format(message,sizeof(message),"{ff0000}%s{ffffff} [id:{ff0000}%d{ffffff}] у вас нет столько денег!",message,playerid);
				SendClientMessage(playerid,-1,message);
				SetPVarInt(playerid,"GetDialog",0);
	            return 1;
	        }
	        new message[255];
	        GetPlayerName(playerid,message,MAX_PLAYER_NAME);
	        GivePlayerMoney(playerid,-strval(inputtext));
	        SetPVarInt(playerid,"GetBankMoney",GetPVarInt(playerid,"GetBankMoney")+strval(inputtext));
	        format(message,sizeof(message),"{ff0000}%s{ffffff} [id:{ff0000}%d{ffffff}] вы успешно положили в банк: [{00ff00}%d{ffffff}$]\nВсего в банке у вас: [{00ff00}%d{ffffff}$]",message,playerid,strval(inputtext),GetPVarInt(playerid,"GetBankMoney"));
			ShowPlayerDialog(playerid,0,0,"{ffffff}Банк:",message,"Ок","Назад");
			SetPVarInt(playerid,"GetDialog",0);
	        return 1;
		}
		case 4:
		{
  			if(!strlen(inputtext)||!strval(inputtext))
	        {
	            new message[255];
	            GetPlayerName(playerid,message,MAX_PLAYER_NAME);
				format(message,sizeof(message),"{ff0000}%s{ffffff} [id:{ff0000}%d{ffffff}] введите нижу сумму от {00ff00}1{ffffff}$ до {00ff00}%d{ffffff}$\n{ff0000}Вы не ввели сумму!",message,playerid,GetPVarInt(playerid,"GetBankMoney"));
				ShowPlayerDialog(playerid,0,1,"{ffffff}Банк:",message,"Ок","Назад");
    			SetPVarInt(playerid,"GetDialog",4);
	            return 1;
	        }
	        if(strval(inputtext)>GetPVarInt(playerid,"GetBankMoney"))
	        {
             	new message[255];
	            GetPlayerName(playerid,message,MAX_PLAYER_NAME);
				format(message,sizeof(message),"{ff0000}%s{ffffff} [id:{ff0000}%d{ffffff}] у вас нет столько денег в банке!",message,playerid);
				SendClientMessage(playerid,-1,message);
				SetPVarInt(playerid,"GetDialog",0);
	            return 1;
	        }
	        new message[255];
	        GetPlayerName(playerid,message,MAX_PLAYER_NAME);
	        GivePlayerMoney(playerid,strval(inputtext));
	        SetPVarInt(playerid,"GetBankMoney",GetPVarInt(playerid,"GetBankMoney")-strval(inputtext));
	        format(message,sizeof(message),"{ff0000}%s{ffffff} [id:{ff0000}%d{ffffff}] вы успешно забрали из банка: [{00ff00}%d{ffffff}$]\nВ банке у вас осталось: [{00ff00}%d{ffffff}$]",message,playerid,strval(inputtext),GetPVarInt(playerid,"GetBankMoney"));
			ShowPlayerDialog(playerid,0,0,"{ffffff}Банк:",message,"Ок","Назад");
			SetPVarInt(playerid,"GetDialog",0);
	        return 1;
		}
	}
	return 1;
}

"Для некоторых людей знакомых со мной лично: Да Да Да legenda начал писать лесенкойD"
© by legenda.